| File: | home/alan/workspace/canalyze/test/python/scipy/build/src.linux-x86_64-3.8/build/src.linux-x86_64-3.8/scipy/linalg/_flapackmodule.c |
| Warning: | line 106565, column 44 PyObject ownership leak with reference count of 1 |
Press '?' to see keyboard shortcuts
Keyboard shortcuts:
| 1 | /* File: _flapackmodule.c | |||
| 2 | * This file is auto-generated with f2py (version:2). | |||
| 3 | * f2py is a Fortran to Python Interface Generator (FPIG), Second Edition, | |||
| 4 | * written by Pearu Peterson <pearu@cens.ioc.ee>. | |||
| 5 | * Generation date: Wed Jul 14 03:02:03 2021 | |||
| 6 | * Do not edit this file directly unless you know what you are doing!!! | |||
| 7 | */ | |||
| 8 | ||||
| 9 | #ifdef __cplusplus | |||
| 10 | extern "C" { | |||
| 11 | #endif | |||
| 12 | ||||
| 13 | /*********************** See f2py2e/cfuncs.py: includes ***********************/ | |||
| 14 | #include "Python.h" | |||
| 15 | #include <stdarg.h> | |||
| 16 | #include "fortranobject.h" | |||
| 17 | #include <string.h> | |||
| 18 | #include <setjmp.h> | |||
| 19 | #include <math.h> | |||
| 20 | ||||
| 21 | /**************** See f2py2e/rules.py: mod_rules['modulebody'] ****************/ | |||
| 22 | static PyObject *_flapack_error; | |||
| 23 | static PyObject *_flapack_module; | |||
| 24 | ||||
| 25 | /*********************** See f2py2e/cfuncs.py: typedefs ***********************/ | |||
| 26 | typedef char * string; | |||
| 27 | typedef struct {double r,i;} complex_double; | |||
| 28 | typedef struct {float r,i;} complex_float; | |||
| 29 | ||||
| 30 | /****************** See f2py2e/cfuncs.py: typedefs_generated ******************/ | |||
| 31 | typedef int(*cb_zselect_in_gges__user__routines_typedef)(complex_double *,complex_double *); | |||
| 32 | typedef int(*cb_cselect_in_gges__user__routines_typedef)(complex_float *,complex_float *); | |||
| 33 | typedef int(*cb_dselect_in_gges__user__routines_typedef)(double *,double *,double *); | |||
| 34 | typedef int(*cb_sselect_in_gges__user__routines_typedef)(float *,float *,float *); | |||
| 35 | typedef int(*cb_dselect_in_gees__user__routines_typedef)(double *,double *); | |||
| 36 | typedef int(*cb_sselect_in_gees__user__routines_typedef)(float *,float *); | |||
| 37 | typedef int(*cb_zselect_in_gees__user__routines_typedef)(complex_double *); | |||
| 38 | typedef int(*cb_cselect_in_gees__user__routines_typedef)(complex_float *); | |||
| 39 | ||||
| 40 | /********************** See f2py2e/cfuncs.py: cppmacros **********************/ | |||
| 41 | #define PRINTPYOBJERR(obj)__fprintf_chk (stderr, 2 - 1, "_flapack.error is related to " ); PyObject_Print((PyObject *)obj,stderr,1); __fprintf_chk (stderr , 2 - 1, "\n");\ | |||
| 42 | fprintf(stderr,"_flapack.error is related to ")__fprintf_chk (stderr, 2 - 1, "_flapack.error is related to " );\ | |||
| 43 | PyObject_Print((PyObject *)obj,stderrstderr,Py_PRINT_RAW1);\ | |||
| 44 | fprintf(stderr,"\n")__fprintf_chk (stderr, 2 - 1, "\n"); | |||
| 45 | ||||
| 46 | \ | |||
| 47 | #define FAILNULL(p)do { if ((p) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError , "NULL pointer found"); goto capi_fail; } } while (0) do { \ | |||
| 48 | if ((p) == NULL((void*)0)) { \ | |||
| 49 | PyErr_SetString(PyExc_MemoryError, "NULL pointer found"); \ | |||
| 50 | goto capi_fail; \ | |||
| 51 | } \ | |||
| 52 | } while (0) | |||
| 53 | ||||
| 54 | #define STRINGMALLOC(str,len)if ((str = (string)malloc(sizeof(char)*(len+1))) == ((void*)0 )) { PyErr_SetString(PyExc_MemoryError, "out of memory"); goto capi_fail; } else { (str)[len] = '\0'; }\ | |||
| 55 | if ((str = (string)malloc(sizeof(char)*(len+1))) == NULL((void*)0)) {\ | |||
| 56 | PyErr_SetString(PyExc_MemoryError, "out of memory");\ | |||
| 57 | goto capi_fail;\ | |||
| 58 | } else {\ | |||
| 59 | (str)[len] = '\0';\ | |||
| 60 | } | |||
| 61 | ||||
| 62 | #define GETSCALARFROMPYTUPLE(tuple,index,var,ctype,mess){ if ((capi_tmp = PyTuple_GetItem((tuple),(index)))==((void*) 0)) goto capi_fail; if (!(ctype_from_pyobj((var),capi_tmp,mess ))) goto capi_fail; } {\ | |||
| 63 | if ((capi_tmp = PyTuple_GetItem((tuple),(index)))==NULL((void*)0)) goto capi_fail;\ | |||
| 64 | if (!(ctype ## _from_pyobj((var),capi_tmp,mess)))\ | |||
| 65 | goto capi_fail;\ | |||
| 66 | } | |||
| 67 | ||||
| 68 | #define pyobj_from_float1(v)(PyFloat_FromDouble(v)) (PyFloat_FromDouble(v)) | |||
| 69 | #ifdef DEBUGCFUNCS | |||
| 70 | #define CFUNCSMESS(mess) fprintf(stderr,"debug-capi:"mess)__fprintf_chk (stderr, 2 - 1, "debug-capi:"mess); | |||
| 71 | #define CFUNCSMESSPY(mess,obj) CFUNCSMESS(mess) \ | |||
| 72 | PyObject_Print((PyObject *)obj,stderrstderr,Py_PRINT_RAW1);\ | |||
| 73 | fprintf(stderr,"\n")__fprintf_chk (stderr, 2 - 1, "\n"); | |||
| 74 | #else | |||
| 75 | #define CFUNCSMESS(mess) | |||
| 76 | #define CFUNCSMESSPY(mess,obj) | |||
| 77 | #endif | |||
| 78 | ||||
| 79 | #define pyobj_from_double1(v)(PyFloat_FromDouble(v)) (PyFloat_FromDouble(v)) | |||
| 80 | #define pyobj_from_complex_float1(v)(PyComplex_FromDoubles(v.r,v.i)) (PyComplex_FromDoubles(v.r,v.i)) | |||
| 81 | #define pyobj_from_complex_double1(v)(PyComplex_FromDoubles(v.r,v.i)) (PyComplex_FromDoubles(v.r,v.i)) | |||
| 82 | #if defined(PREPEND_FORTRAN) | |||
| 83 | #if defined(NO_APPEND_FORTRAN) | |||
| 84 | #if defined(UPPERCASE_FORTRAN) | |||
| 85 | #define F_FUNC(f,F)f_ _##F | |||
| 86 | #else | |||
| 87 | #define F_FUNC(f,F)f_ _##f | |||
| 88 | #endif | |||
| 89 | #else | |||
| 90 | #if defined(UPPERCASE_FORTRAN) | |||
| 91 | #define F_FUNC(f,F)f_ _##F##_ | |||
| 92 | #else | |||
| 93 | #define F_FUNC(f,F)f_ _##f##_ | |||
| 94 | #endif | |||
| 95 | #endif | |||
| 96 | #else | |||
| 97 | #if defined(NO_APPEND_FORTRAN) | |||
| 98 | #if defined(UPPERCASE_FORTRAN) | |||
| 99 | #define F_FUNC(f,F)f_ F | |||
| 100 | #else | |||
| 101 | #define F_FUNC(f,F)f_ f | |||
| 102 | #endif | |||
| 103 | #else | |||
| 104 | #if defined(UPPERCASE_FORTRAN) | |||
| 105 | #define F_FUNC(f,F)f_ F##_ | |||
| 106 | #else | |||
| 107 | #define F_FUNC(f,F)f_ f##_ | |||
| 108 | #endif | |||
| 109 | #endif | |||
| 110 | #endif | |||
| 111 | #if defined(UNDERSCORE_G77) | |||
| 112 | #define F_FUNC_US(f,F)f_ F_FUNC(f##_,F##_)f##__ | |||
| 113 | #else | |||
| 114 | #define F_FUNC_US(f,F)f_ F_FUNC(f,F)f_ | |||
| 115 | #endif | |||
| 116 | ||||
| 117 | #define rank(var)var_Rank var ## _Rank | |||
| 118 | #define shape(var,dim)var_Dims[dim] var ## _Dims[dim] | |||
| 119 | #define old_rank(var)((((PyArrayObject_fields *)((PyArrayObject *)(capi_var_tmp))) ->nd)) (PyArray_NDIM((PyArrayObject *)(capi_ ## var ## _tmp))(((PyArrayObject_fields *)((PyArrayObject *)(capi_ ## var ## _tmp )))->nd)) | |||
| 120 | #define old_shape(var,dim)((((PyArrayObject_fields *)(((PyArrayObject *)(capi_var_tmp)) ))->dimensions)[dim]) PyArray_DIM(((PyArrayObject *)(capi_ ## var ## _tmp)),dim)((((PyArrayObject_fields *)(((PyArrayObject *)(capi_ ## var ## _tmp))))->dimensions)[dim]) | |||
| 121 | #define fshape(var,dim)var_Dims[var_Rank-dim-1] shape(var,rank(var)-dim-1)var_Dims[var_Rank-dim-1] | |||
| 122 | #define len(var)var_Dims[0] shape(var,0)var_Dims[0] | |||
| 123 | #define flen(var)var_Dims[var_Rank-0 -1] fshape(var,0)var_Dims[var_Rank-0 -1] | |||
| 124 | #define old_size(var)(*(npy_intp (*)(npy_intp const *, int)) _npy_f2py_ARRAY_API[158 ])((((PyArrayObject_fields *)((PyArrayObject *)(capi_var_tmp) ))->dimensions), (((PyArrayObject_fields *)((PyArrayObject *)(capi_var_tmp)))->nd)) PyArray_SIZE((PyArrayObject *)(capi_ ## var ## _tmp))(*(npy_intp (*)(npy_intp const *, int)) _npy_f2py_ARRAY_API[158 ])((((PyArrayObject_fields *)((PyArrayObject *)(capi_ ## var ## _tmp)))->dimensions), (((PyArrayObject_fields *)((PyArrayObject *)(capi_ ## var ## _tmp)))->nd)) | |||
| 125 | /* #define index(i) capi_i ## i */ | |||
| 126 | #define slen(var)capi_var_len capi_ ## var ## _len | |||
| 127 | #define size(var, ...)f2py_size((PyArrayObject *)(capi_var_tmp), ..., -1) f2py_size((PyArrayObject *)(capi_ ## var ## _tmp), ## __VA_ARGS__, -1) | |||
| 128 | ||||
| 129 | #define CHECKSCALAR(check,tcheck,name,show,var)if (!(check)) { char errstring[256]; __builtin___sprintf_chk ( errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1) , "%s: "show, "("tcheck") failed for "name, var); PyErr_SetString (_flapack_error,errstring); } else\ | |||
| 130 | if (!(check)) {\ | |||
| 131 | char errstring[256];\ | |||
| 132 | sprintf(errstring, "%s: "show, "("tcheck") failed for "name, var)__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: "show, "("tcheck") failed for "name , var);\ | |||
| 133 | PyErr_SetString(_flapack_error,errstring);\ | |||
| 134 | /*goto capi_fail;*/\ | |||
| 135 | } else | |||
| 136 | #ifndef max | |||
| 137 | #define max(a,b)((a > b) ? (a) : (b)) ((a > b) ? (a) : (b)) | |||
| 138 | #endif | |||
| 139 | #ifndef min | |||
| 140 | #define min(a,b)((a < b) ? (a) : (b)) ((a < b) ? (a) : (b)) | |||
| 141 | #endif | |||
| 142 | #ifndef MAX | |||
| 143 | #define MAX(a,b)((a > b) ? (a) : (b)) ((a > b) ? (a) : (b)) | |||
| 144 | #endif | |||
| 145 | #ifndef MIN | |||
| 146 | #define MIN(a,b)((a < b) ? (a) : (b)) ((a < b) ? (a) : (b)) | |||
| 147 | #endif | |||
| 148 | ||||
| 149 | #define CHECKARRAY(check,tcheck,name)if (!(check)) { PyErr_SetString(_flapack_error,"("tcheck") failed for " name); } else \ | |||
| 150 | if (!(check)) {\ | |||
| 151 | PyErr_SetString(_flapack_error,"("tcheck") failed for "name);\ | |||
| 152 | /*goto capi_fail;*/\ | |||
| 153 | } else | |||
| 154 | #define STRINGFREE(str)do {if (!(str == ((void*)0))) free(str);} while (0) do {if (!(str == NULL((void*)0))) free(str);} while (0) | |||
| 155 | ||||
| 156 | #define CHECKSTRING(check,tcheck,name,show,var)if (!(check)) { char errstring[256]; __builtin___sprintf_chk ( errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1) , "%s: "show, "("tcheck") failed for "name, capi_var_len, var ); PyErr_SetString(_flapack_error, errstring); } else\ | |||
| 157 | if (!(check)) {\ | |||
| 158 | char errstring[256];\ | |||
| 159 | sprintf(errstring, "%s: "show, "("tcheck") failed for "name, slen(var), var)__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: "show, "("tcheck") failed for "name , capi_var_len, var);\ | |||
| 160 | PyErr_SetString(_flapack_error, errstring);\ | |||
| 161 | /*goto capi_fail;*/\ | |||
| 162 | } else | |||
| 163 | #define SWAP(a,b,t){ t *c; c = a; a = b; b = c;} {\ | |||
| 164 | t *c;\ | |||
| 165 | c = a;\ | |||
| 166 | a = b;\ | |||
| 167 | b = c;} | |||
| 168 | ||||
| 169 | #if defined(PREPEND_FORTRAN) | |||
| 170 | #if defined(NO_APPEND_FORTRAN) | |||
| 171 | #if defined(UPPERCASE_FORTRAN) | |||
| 172 | #define F_WRAPPEDFUNC(f,F)f2pywrapf_ _F2PYWRAP##F | |||
| 173 | #else | |||
| 174 | #define F_WRAPPEDFUNC(f,F)f2pywrapf_ _f2pywrap##f | |||
| 175 | #endif | |||
| 176 | #else | |||
| 177 | #if defined(UPPERCASE_FORTRAN) | |||
| 178 | #define F_WRAPPEDFUNC(f,F)f2pywrapf_ _F2PYWRAP##F##_ | |||
| 179 | #else | |||
| 180 | #define F_WRAPPEDFUNC(f,F)f2pywrapf_ _f2pywrap##f##_ | |||
| 181 | #endif | |||
| 182 | #endif | |||
| 183 | #else | |||
| 184 | #if defined(NO_APPEND_FORTRAN) | |||
| 185 | #if defined(UPPERCASE_FORTRAN) | |||
| 186 | #define F_WRAPPEDFUNC(f,F)f2pywrapf_ F2PYWRAP##F | |||
| 187 | #else | |||
| 188 | #define F_WRAPPEDFUNC(f,F)f2pywrapf_ f2pywrap##f | |||
| 189 | #endif | |||
| 190 | #else | |||
| 191 | #if defined(UPPERCASE_FORTRAN) | |||
| 192 | #define F_WRAPPEDFUNC(f,F)f2pywrapf_ F2PYWRAP##F##_ | |||
| 193 | #else | |||
| 194 | #define F_WRAPPEDFUNC(f,F)f2pywrapf_ f2pywrap##f##_ | |||
| 195 | #endif | |||
| 196 | #endif | |||
| 197 | #endif | |||
| 198 | #if defined(UNDERSCORE_G77) | |||
| 199 | #define F_WRAPPEDFUNC_US(f,F)f2pywrapf_ F_WRAPPEDFUNC(f##_,F##_)f2pywrapf##__ | |||
| 200 | #else | |||
| 201 | #define F_WRAPPEDFUNC_US(f,F)f2pywrapf_ F_WRAPPEDFUNC(f,F)f2pywrapf_ | |||
| 202 | #endif | |||
| 203 | ||||
| 204 | #define STRINGCOPYN(to,from,buf_size)do { int _m = (buf_size); char *_to = (to); char *_from = (from ); do { if ((_to) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError , "NULL pointer found"); goto capi_fail; } } while (0); do { if ((_from) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError, "NULL pointer found"); goto capi_fail; } } while (0); (void) strncpy(_to, _from, sizeof(char)*_m); _to[_m-1] = '\0'; for ( _m -= 2; _m >= 0 && _to[_m] == '\0'; _m--) { _to[_m ] = ' '; } } while (0) \ | |||
| 205 | do { \ | |||
| 206 | int _m = (buf_size); \ | |||
| 207 | char *_to = (to); \ | |||
| 208 | char *_from = (from); \ | |||
| 209 | FAILNULL(_to)do { if ((_to) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError , "NULL pointer found"); goto capi_fail; } } while (0); FAILNULL(_from)do { if ((_from) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError , "NULL pointer found"); goto capi_fail; } } while (0); \ | |||
| 210 | (void)strncpy(_to, _from, sizeof(char)*_m); \ | |||
| 211 | _to[_m-1] = '\0'; \ | |||
| 212 | /* Padding with spaces instead of nulls */ \ | |||
| 213 | for (_m -= 2; _m >= 0 && _to[_m] == '\0'; _m--) { \ | |||
| 214 | _to[_m] = ' '; \ | |||
| 215 | } \ | |||
| 216 | } while (0) | |||
| 217 | ||||
| 218 | ||||
| 219 | /************************ See f2py2e/cfuncs.py: cfuncs ************************/ | |||
| 220 | static int complex_double_from_pyobj(complex_double* v,PyObject *obj,const char *errmess) { | |||
| 221 | Py_complex c; | |||
| 222 | if (PyComplex_Check(obj)((((PyObject*)(obj))->ob_type) == (&PyComplex_Type) || PyType_IsSubtype((((PyObject*)(obj))->ob_type), (&PyComplex_Type )))) { | |||
| 223 | c=PyComplex_AsCComplex(obj); | |||
| 224 | (*v).r=c.real, (*v).i=c.imag; | |||
| 225 | return 1; | |||
| 226 | } | |||
| 227 | if (PyArray_IsScalar(obj, ComplexFloating)(((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject * )_npy_f2py_ARRAY_API[17])) || PyType_IsSubtype((((PyObject*)( obj))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API [17])))))) { | |||
| 228 | if (PyArray_IsScalar(obj, CFloat)(((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject * )_npy_f2py_ARRAY_API[33])) || PyType_IsSubtype((((PyObject*)( obj))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API [33])))))) { | |||
| 229 | npy_cfloat new; | |||
| 230 | PyArray_ScalarAsCtype(*(void (*)(PyObject *, void *)) _npy_f2py_ARRAY_API[62])(obj, &new); | |||
| 231 | (*v).r = (double)new.real; | |||
| 232 | (*v).i = (double)new.imag; | |||
| 233 | } | |||
| 234 | else if (PyArray_IsScalar(obj, CLongDouble)(((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject * )_npy_f2py_ARRAY_API[35])) || PyType_IsSubtype((((PyObject*)( obj))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API [35])))))) { | |||
| 235 | npy_clongdouble new; | |||
| 236 | PyArray_ScalarAsCtype(*(void (*)(PyObject *, void *)) _npy_f2py_ARRAY_API[62])(obj, &new); | |||
| 237 | (*v).r = (double)new.real; | |||
| 238 | (*v).i = (double)new.imag; | |||
| 239 | } | |||
| 240 | else { /* if (PyArray_IsScalar(obj, CDouble)) */ | |||
| 241 | PyArray_ScalarAsCtype(*(void (*)(PyObject *, void *)) _npy_f2py_ARRAY_API[62])(obj, v); | |||
| 242 | } | |||
| 243 | return 1; | |||
| 244 | } | |||
| 245 | if (PyArray_CheckScalar(obj)((((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject * )_npy_f2py_ARRAY_API[10])) || PyType_IsSubtype((((PyObject*)( obj))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API [10]))))) || (((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject *)_npy_f2py_ARRAY_API[2])) || PyType_IsSubtype((((PyObject*) (obj))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API [2])))) && ((((PyArrayObject_fields *)((PyArrayObject *)obj))->nd) == 0)))) { /* 0-dim array or still array scalar */ | |||
| 246 | PyObject *arr; | |||
| 247 | if (PyArray_Check(obj)((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject *) _npy_f2py_ARRAY_API[2])) || PyType_IsSubtype((((PyObject*)(obj ))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API[ 2]))))) { | |||
| 248 | arr = PyArray_Cast((PyArrayObject *)obj, NPY_CDOUBLE)(*(PyObject * (*)(PyArrayObject *, PyArray_Descr *, int)) _npy_f2py_ARRAY_API [49])((PyArrayObject *)obj, (*(PyArray_Descr * (*)(int)) _npy_f2py_ARRAY_API [45])(NPY_CDOUBLE), 0); | |||
| 249 | } | |||
| 250 | else { | |||
| 251 | arr = PyArray_FromScalar(*(PyObject * (*)(PyObject *, PyArray_Descr *)) _npy_f2py_ARRAY_API [61])(obj, PyArray_DescrFromType(*(PyArray_Descr * (*)(int)) _npy_f2py_ARRAY_API[45])(NPY_CDOUBLE)); | |||
| 252 | } | |||
| 253 | if (arr==NULL((void*)0)) return 0; | |||
| 254 | (*v).r = ((npy_cdouble *)PyArray_DATA(arr)((void *)((PyArrayObject_fields *)(arr))->data))->real; | |||
| 255 | (*v).i = ((npy_cdouble *)PyArray_DATA(arr)((void *)((PyArrayObject_fields *)(arr))->data))->imag; | |||
| 256 | return 1; | |||
| 257 | } | |||
| 258 | /* Python does not provide PyNumber_Complex function :-( */ | |||
| 259 | (*v).i=0.0; | |||
| 260 | if (PyFloat_Check(obj)((((PyObject*)(obj))->ob_type) == (&PyFloat_Type) || PyType_IsSubtype ((((PyObject*)(obj))->ob_type), (&PyFloat_Type)))) { | |||
| 261 | #ifdef __sgi | |||
| 262 | (*v).r = PyFloat_AsDouble(obj); | |||
| 263 | #else | |||
| 264 | (*v).r = PyFloat_AS_DOUBLE(obj)(((PyFloatObject *)(obj))->ob_fval); | |||
| 265 | #endif | |||
| 266 | return 1; | |||
| 267 | } | |||
| 268 | if (PyInt_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL << 24))) != 0)) { | |||
| 269 | (*v).r = (double)PyInt_AS_LONGPyLong_AsLong(obj); | |||
| 270 | return 1; | |||
| 271 | } | |||
| 272 | if (PyLong_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL << 24))) != 0)) { | |||
| 273 | (*v).r = PyLong_AsDouble(obj); | |||
| 274 | return (!PyErr_Occurred()); | |||
| 275 | } | |||
| 276 | if (PySequence_Check(obj) && !(PyString_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL << 27))) != 0) || PyUnicode_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL << 28))) != 0))) { | |||
| 277 | PyObject *tmp = PySequence_GetItem(obj,0); | |||
| 278 | if (tmp) { | |||
| 279 | if (complex_double_from_pyobj(v,tmp,errmess)) { | |||
| 280 | Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp))); | |||
| 281 | return 1; | |||
| 282 | } | |||
| 283 | Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp))); | |||
| 284 | } | |||
| 285 | } | |||
| 286 | { | |||
| 287 | PyObject* err = PyErr_Occurred(); | |||
| 288 | if (err==NULL((void*)0)) | |||
| 289 | err = PyExc_TypeError; | |||
| 290 | PyErr_SetString(err,errmess); | |||
| 291 | } | |||
| 292 | return 0; | |||
| 293 | } | |||
| 294 | ||||
| 295 | static int double_from_pyobj(double* v,PyObject *obj,const char *errmess) { | |||
| 296 | PyObject* tmp = NULL((void*)0); | |||
| 297 | if (PyFloat_Check(obj)((((PyObject*)(obj))->ob_type) == (&PyFloat_Type) || PyType_IsSubtype ((((PyObject*)(obj))->ob_type), (&PyFloat_Type)))) { | |||
| 298 | #ifdef __sgi | |||
| 299 | *v = PyFloat_AsDouble(obj); | |||
| 300 | #else | |||
| 301 | *v = PyFloat_AS_DOUBLE(obj)(((PyFloatObject *)(obj))->ob_fval); | |||
| 302 | #endif | |||
| 303 | return 1; | |||
| 304 | } | |||
| 305 | tmp = PyNumber_Float(obj); | |||
| 306 | if (tmp) { | |||
| 307 | #ifdef __sgi | |||
| 308 | *v = PyFloat_AsDouble(tmp); | |||
| 309 | #else | |||
| 310 | *v = PyFloat_AS_DOUBLE(tmp)(((PyFloatObject *)(tmp))->ob_fval); | |||
| 311 | #endif | |||
| 312 | Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp))); | |||
| 313 | return 1; | |||
| 314 | } | |||
| 315 | if (PyComplex_Check(obj)((((PyObject*)(obj))->ob_type) == (&PyComplex_Type) || PyType_IsSubtype((((PyObject*)(obj))->ob_type), (&PyComplex_Type )))) | |||
| 316 | tmp = PyObject_GetAttrString(obj,"real"); | |||
| 317 | else if (PyString_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL << 27))) != 0) || PyUnicode_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL << 28))) != 0)) | |||
| 318 | /*pass*/; | |||
| 319 | else if (PySequence_Check(obj)) | |||
| 320 | tmp = PySequence_GetItem(obj,0); | |||
| 321 | if (tmp) { | |||
| 322 | PyErr_Clear(); | |||
| 323 | if (double_from_pyobj(v,tmp,errmess)) {Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp))); return 1;} | |||
| 324 | Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp))); | |||
| 325 | } | |||
| 326 | { | |||
| 327 | PyObject* err = PyErr_Occurred(); | |||
| 328 | if (err==NULL((void*)0)) err = _flapack_error; | |||
| 329 | PyErr_SetString(err,errmess); | |||
| 330 | } | |||
| 331 | return 0; | |||
| 332 | } | |||
| 333 | ||||
| 334 | static int f2py_size(PyArrayObject* var, ...) | |||
| 335 | { | |||
| 336 | npy_int sz = 0; | |||
| 337 | npy_int dim; | |||
| 338 | npy_int rank; | |||
| 339 | va_list argp; | |||
| 340 | va_start(argp, var)__builtin_va_start(argp, var); | |||
| 341 | dim = va_arg(argp, npy_int)__builtin_va_arg(argp, npy_int); | |||
| 342 | if (dim==-1) | |||
| 343 | { | |||
| 344 | sz = PyArray_SIZE(var)(*(npy_intp (*)(npy_intp const *, int)) _npy_f2py_ARRAY_API[158 ])((((PyArrayObject_fields *)(var))->dimensions), (((PyArrayObject_fields *)(var))->nd)); | |||
| 345 | } | |||
| 346 | else | |||
| 347 | { | |||
| 348 | rank = PyArray_NDIM(var)(((PyArrayObject_fields *)(var))->nd); | |||
| 349 | if (dim>=1 && dim<=rank) | |||
| 350 | sz = PyArray_DIM(var, dim-1)((((PyArrayObject_fields *)(var))->dimensions)[dim-1]); | |||
| 351 | else | |||
| 352 | fprintf(stderr, "f2py_size: 2nd argument value=%d fails to satisfy 1<=value<=%d. Result will be 0.\n", dim, rank)__fprintf_chk (stderr, 2 - 1, "f2py_size: 2nd argument value=%d fails to satisfy 1<=value<=%d. Result will be 0.\n" , dim, rank); | |||
| 353 | } | |||
| 354 | va_end(argp)__builtin_va_end(argp); | |||
| 355 | return sz; | |||
| 356 | } | |||
| 357 | ||||
| 358 | static int int_from_pyobj(int* v,PyObject *obj,const char *errmess) { | |||
| 359 | PyObject* tmp = NULL((void*)0); | |||
| 360 | if (PyInt_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL << 24))) != 0)) { | |||
| 361 | *v = (int)PyInt_AS_LONGPyLong_AsLong(obj); | |||
| 362 | return 1; | |||
| 363 | } | |||
| 364 | tmp = PyNumber_IntPyNumber_Long(obj); | |||
| 365 | if (tmp) { | |||
| 366 | *v = PyInt_AS_LONGPyLong_AsLong(tmp); | |||
| 367 | Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp))); | |||
| 368 | return 1; | |||
| 369 | } | |||
| 370 | if (PyComplex_Check(obj)((((PyObject*)(obj))->ob_type) == (&PyComplex_Type) || PyType_IsSubtype((((PyObject*)(obj))->ob_type), (&PyComplex_Type )))) | |||
| 371 | tmp = PyObject_GetAttrString(obj,"real"); | |||
| 372 | else if (PyString_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL << 27))) != 0) || PyUnicode_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL << 28))) != 0)) | |||
| 373 | /*pass*/; | |||
| 374 | else if (PySequence_Check(obj)) | |||
| 375 | tmp = PySequence_GetItem(obj,0); | |||
| 376 | if (tmp) { | |||
| 377 | PyErr_Clear(); | |||
| 378 | if (int_from_pyobj(v,tmp,errmess)) {Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp))); return 1;} | |||
| 379 | Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp))); | |||
| 380 | } | |||
| 381 | { | |||
| 382 | PyObject* err = PyErr_Occurred(); | |||
| 383 | if (err==NULL((void*)0)) err = _flapack_error; | |||
| 384 | PyErr_SetString(err,errmess); | |||
| 385 | } | |||
| 386 | return 0; | |||
| 387 | } | |||
| 388 | ||||
| 389 | static int string_from_pyobj(string *str,int *len,const string inistr,PyObject *obj,const char *errmess) { | |||
| 390 | PyArrayObject *arr = NULL((void*)0); | |||
| 391 | PyObject *tmp = NULL((void*)0); | |||
| 392 | #ifdef DEBUGCFUNCS | |||
| 393 | fprintf(stderr,"string_from_pyobj(str='%s',len=%d,inistr='%s',obj=%p)\n",(char*)str,*len,(char *)inistr,obj)__fprintf_chk (stderr, 2 - 1, "string_from_pyobj(str='%s',len=%d,inistr='%s',obj=%p)\n" ,(char*)str,*len,(char *)inistr,obj); | |||
| 394 | #endif | |||
| 395 | if (obj == Py_None(&_Py_NoneStruct)) { | |||
| 396 | if (*len == -1) | |||
| 397 | *len = strlen(inistr); /* Will this cause problems? */ | |||
| 398 | STRINGMALLOC(*str,*len)if ((*str = (string)malloc(sizeof(char)*(*len+1))) == ((void* )0)) { PyErr_SetString(PyExc_MemoryError, "out of memory"); goto capi_fail; } else { (*str)[*len] = '\0'; }; | |||
| 399 | STRINGCOPYN(*str,inistr,*len+1)do { int _m = (*len+1); char *_to = (*str); char *_from = (inistr ); do { if ((_to) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError , "NULL pointer found"); goto capi_fail; } } while (0); do { if ((_from) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError, "NULL pointer found"); goto capi_fail; } } while (0); (void) strncpy(_to, _from, sizeof(char)*_m); _to[_m-1] = '\0'; for ( _m -= 2; _m >= 0 && _to[_m] == '\0'; _m--) { _to[_m ] = ' '; } } while (0); | |||
| 400 | return 1; | |||
| 401 | } | |||
| 402 | if (PyArray_Check(obj)((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject *) _npy_f2py_ARRAY_API[2])) || PyType_IsSubtype((((PyObject*)(obj ))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API[ 2]))))) { | |||
| 403 | if ((arr = (PyArrayObject *)obj) == NULL((void*)0)) | |||
| 404 | goto capi_fail; | |||
| 405 | if (!ISCONTIGUOUS(arr)((((PyArrayObject_fields *)(arr))->flags) & 0x0001)) { | |||
| 406 | PyErr_SetString(PyExc_ValueError,"array object is non-contiguous."); | |||
| 407 | goto capi_fail; | |||
| 408 | } | |||
| 409 | if (*len == -1) | |||
| 410 | *len = (PyArray_ITEMSIZE(arr)(((PyArrayObject_fields *)(arr))->descr->elsize))*PyArray_SIZE(arr)(*(npy_intp (*)(npy_intp const *, int)) _npy_f2py_ARRAY_API[158 ])((((PyArrayObject_fields *)(arr))->dimensions), (((PyArrayObject_fields *)(arr))->nd)); | |||
| 411 | STRINGMALLOC(*str,*len)if ((*str = (string)malloc(sizeof(char)*(*len+1))) == ((void* )0)) { PyErr_SetString(PyExc_MemoryError, "out of memory"); goto capi_fail; } else { (*str)[*len] = '\0'; }; | |||
| 412 | STRINGCOPYN(*str,PyArray_DATA(arr),*len+1)do { int _m = (*len+1); char *_to = (*str); char *_from = ((( void *)((PyArrayObject_fields *)(arr))->data)); do { if (( _to) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError, "NULL pointer found" ); goto capi_fail; } } while (0); do { if ((_from) == ((void* )0)) { PyErr_SetString(PyExc_MemoryError, "NULL pointer found" ); goto capi_fail; } } while (0); (void)strncpy(_to, _from, sizeof (char)*_m); _to[_m-1] = '\0'; for (_m -= 2; _m >= 0 && _to[_m] == '\0'; _m--) { _to[_m] = ' '; } } while (0); | |||
| 413 | return 1; | |||
| 414 | } | |||
| 415 | if (PyString_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL << 27))) != 0)) { | |||
| 416 | tmp = obj; | |||
| 417 | Py_INCREF(tmp)_Py_INCREF(((PyObject*)(tmp))); | |||
| 418 | } | |||
| 419 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 420 | else if (PyUnicode_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL << 28))) != 0)) { | |||
| 421 | tmp = PyUnicode_AsASCIIString(obj); | |||
| 422 | } | |||
| 423 | else { | |||
| 424 | PyObject *tmp2; | |||
| 425 | tmp2 = PyObject_Str(obj); | |||
| 426 | if (tmp2) { | |||
| 427 | tmp = PyUnicode_AsASCIIString(tmp2); | |||
| 428 | Py_DECREF(tmp2)_Py_DECREF(((PyObject*)(tmp2))); | |||
| 429 | } | |||
| 430 | else { | |||
| 431 | tmp = NULL((void*)0); | |||
| 432 | } | |||
| 433 | } | |||
| 434 | #else | |||
| 435 | else { | |||
| 436 | tmp = PyObject_Str(obj); | |||
| 437 | } | |||
| 438 | #endif | |||
| 439 | if (tmp == NULL((void*)0)) goto capi_fail; | |||
| 440 | if (*len == -1) | |||
| 441 | *len = PyString_GET_SIZE(tmp)(((void) (0)),(((PyVarObject*)(tmp))->ob_size)); | |||
| 442 | STRINGMALLOC(*str,*len)if ((*str = (string)malloc(sizeof(char)*(*len+1))) == ((void* )0)) { PyErr_SetString(PyExc_MemoryError, "out of memory"); goto capi_fail; } else { (*str)[*len] = '\0'; }; | |||
| 443 | STRINGCOPYN(*str,PyString_AS_STRING(tmp),*len+1)do { int _m = (*len+1); char *_to = (*str); char *_from = ((( (void) (0)), (((PyBytesObject *)(tmp))->ob_sval))); do { if ((_to) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError, "NULL pointer found" ); goto capi_fail; } } while (0); do { if ((_from) == ((void* )0)) { PyErr_SetString(PyExc_MemoryError, "NULL pointer found" ); goto capi_fail; } } while (0); (void)strncpy(_to, _from, sizeof (char)*_m); _to[_m-1] = '\0'; for (_m -= 2; _m >= 0 && _to[_m] == '\0'; _m--) { _to[_m] = ' '; } } while (0); | |||
| 444 | Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp))); | |||
| 445 | return 1; | |||
| 446 | capi_fail: | |||
| 447 | Py_XDECREF(tmp)_Py_XDECREF(((PyObject*)(tmp))); | |||
| 448 | { | |||
| 449 | PyObject* err = PyErr_Occurred(); | |||
| 450 | if (err==NULL((void*)0)) err = _flapack_error; | |||
| 451 | PyErr_SetString(err,errmess); | |||
| 452 | } | |||
| 453 | return 0; | |||
| 454 | } | |||
| 455 | ||||
| 456 | static int float_from_pyobj(float* v,PyObject *obj,const char *errmess) { | |||
| 457 | double d=0.0; | |||
| 458 | if (double_from_pyobj(&d,obj,errmess)) { | |||
| 459 | *v = (float)d; | |||
| 460 | return 1; | |||
| 461 | } | |||
| 462 | return 0; | |||
| 463 | } | |||
| 464 | ||||
| 465 | static int create_cb_arglist(PyObject* fun,PyTupleObject* xa,const int maxnofargs,const int nofoptargs,int *nofargs,PyTupleObject **args,const char *errmess) { | |||
| 466 | PyObject *tmp = NULL((void*)0); | |||
| 467 | PyObject *tmp_fun = NULL((void*)0); | |||
| 468 | int tot,opt,ext,siz,i,di=0; | |||
| 469 | CFUNCSMESS("create_cb_arglist\n"); | |||
| 470 | tot=opt=ext=siz=0; | |||
| 471 | /* Get the total number of arguments */ | |||
| 472 | if (PyFunction_Check(fun)((((PyObject*)(fun))->ob_type) == &PyFunction_Type)) | |||
| 473 | tmp_fun = fun; | |||
| 474 | else { | |||
| 475 | di = 1; | |||
| 476 | if (PyObject_HasAttrString(fun,"im_func")) { | |||
| 477 | tmp_fun = PyObject_GetAttrString(fun,"im_func"); | |||
| 478 | } | |||
| 479 | else if (PyObject_HasAttrString(fun,"__call__")) { | |||
| 480 | tmp = PyObject_GetAttrString(fun,"__call__"); | |||
| 481 | if (PyObject_HasAttrString(tmp,"im_func")) | |||
| 482 | tmp_fun = PyObject_GetAttrString(tmp,"im_func"); | |||
| 483 | else { | |||
| 484 | tmp_fun = fun; /* built-in function */ | |||
| 485 | tot = maxnofargs; | |||
| 486 | if (xa != NULL((void*)0)) | |||
| 487 | tot += PyTuple_Size((PyObject *)xa); | |||
| 488 | } | |||
| 489 | Py_XDECREF(tmp)_Py_XDECREF(((PyObject*)(tmp))); | |||
| 490 | } | |||
| 491 | else if (PyFortran_Check(fun)((((PyObject*)(fun))->ob_type) == &PyFortran_Type) || PyFortran_Check1(fun)(0==strcmp((((PyObject*)(fun))->ob_type)->tp_name,"fortran" ))) { | |||
| 492 | tot = maxnofargs; | |||
| 493 | if (xa != NULL((void*)0)) | |||
| 494 | tot += PyTuple_Size((PyObject *)xa); | |||
| 495 | tmp_fun = fun; | |||
| 496 | } | |||
| 497 | else if (F2PyCapsule_Check(fun)) { | |||
| 498 | tot = maxnofargs; | |||
| 499 | if (xa != NULL((void*)0)) | |||
| 500 | ext = PyTuple_Size((PyObject *)xa); | |||
| 501 | if(ext>0) { | |||
| 502 | fprintf(stderr,"extra arguments tuple cannot be used with CObject call-back\n")__fprintf_chk (stderr, 2 - 1, "extra arguments tuple cannot be used with CObject call-back\n" ); | |||
| 503 | goto capi_fail; | |||
| 504 | } | |||
| 505 | tmp_fun = fun; | |||
| 506 | } | |||
| 507 | } | |||
| 508 | if (tmp_fun==NULL((void*)0)) { | |||
| 509 | fprintf(stderr,"Call-back argument must be function|instance|instance.__call__|f2py-function but got %s.\n",(fun==NULL?"NULL":Py_TYPE(fun)->tp_name))__fprintf_chk (stderr, 2 - 1, "Call-back argument must be function|instance|instance.__call__|f2py-function but got %s.\n" ,(fun==((void*)0)?"NULL":(((PyObject*)(fun))->ob_type)-> tp_name)); | |||
| 510 | goto capi_fail; | |||
| 511 | } | |||
| 512 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 513 | if (PyObject_HasAttrString(tmp_fun,"__code__")) { | |||
| 514 | if (PyObject_HasAttrString(tmp = PyObject_GetAttrString(tmp_fun,"__code__"),"co_argcount")) | |||
| 515 | #else | |||
| 516 | if (PyObject_HasAttrString(tmp_fun,"func_code")) { | |||
| 517 | if (PyObject_HasAttrString(tmp = PyObject_GetAttrString(tmp_fun,"func_code"),"co_argcount")) | |||
| 518 | #endif | |||
| 519 | tot = PyInt_AsLongPyLong_AsLong(PyObject_GetAttrString(tmp,"co_argcount")) - di; | |||
| 520 | Py_XDECREF(tmp)_Py_XDECREF(((PyObject*)(tmp))); | |||
| 521 | } | |||
| 522 | /* Get the number of optional arguments */ | |||
| 523 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 524 | if (PyObject_HasAttrString(tmp_fun,"__defaults__")) { | |||
| 525 | if (PyTuple_Check(tmp = PyObject_GetAttrString(tmp_fun,"__defaults__"))((((((PyObject*)(tmp = PyObject_GetAttrString(tmp_fun,"__defaults__" )))->ob_type))->tp_flags & ((1UL << 26))) != 0 )) | |||
| 526 | #else | |||
| 527 | if (PyObject_HasAttrString(tmp_fun,"func_defaults")) { | |||
| 528 | if (PyTuple_Check(tmp = PyObject_GetAttrString(tmp_fun,"func_defaults"))((((((PyObject*)(tmp = PyObject_GetAttrString(tmp_fun,"func_defaults" )))->ob_type))->tp_flags & ((1UL << 26))) != 0 )) | |||
| 529 | #endif | |||
| 530 | opt = PyTuple_Size(tmp); | |||
| 531 | Py_XDECREF(tmp)_Py_XDECREF(((PyObject*)(tmp))); | |||
| 532 | } | |||
| 533 | /* Get the number of extra arguments */ | |||
| 534 | if (xa != NULL((void*)0)) | |||
| 535 | ext = PyTuple_Size((PyObject *)xa); | |||
| 536 | /* Calculate the size of call-backs argument list */ | |||
| 537 | siz = MIN(maxnofargs+ext,tot)((maxnofargs+ext < tot) ? (maxnofargs+ext) : (tot)); | |||
| 538 | *nofargs = MAX(0,siz-ext)((0 > siz-ext) ? (0) : (siz-ext)); | |||
| 539 | #ifdef DEBUGCFUNCS | |||
| 540 | fprintf(stderr,"debug-capi:create_cb_arglist:maxnofargs(-nofoptargs),tot,opt,ext,siz,nofargs=%d(-%d),%d,%d,%d,%d,%d\n",maxnofargs,nofoptargs,tot,opt,ext,siz,*nofargs)__fprintf_chk (stderr, 2 - 1, "debug-capi:create_cb_arglist:maxnofargs(-nofoptargs),tot,opt,ext,siz,nofargs=%d(-%d),%d,%d,%d,%d,%d\n" ,maxnofargs,nofoptargs,tot,opt,ext,siz,*nofargs); | |||
| 541 | #endif | |||
| 542 | if (siz<tot-opt) { | |||
| 543 | fprintf(stderr,"create_cb_arglist: Failed to build argument list (siz) with enough arguments (tot-opt) required by user-supplied function (siz,tot,opt=%d,%d,%d).\n",siz,tot,opt)__fprintf_chk (stderr, 2 - 1, "create_cb_arglist: Failed to build argument list (siz) with enough arguments (tot-opt) required by user-supplied function (siz,tot,opt=%d,%d,%d).\n" ,siz,tot,opt); | |||
| 544 | goto capi_fail; | |||
| 545 | } | |||
| 546 | /* Initialize argument list */ | |||
| 547 | *args = (PyTupleObject *)PyTuple_New(siz); | |||
| 548 | for (i=0;i<*nofargs;i++) { | |||
| 549 | Py_INCREF(Py_None)_Py_INCREF(((PyObject*)((&_Py_NoneStruct)))); | |||
| 550 | PyTuple_SET_ITEM((PyObject *)(*args),i,Py_None)PyTuple_SetItem((PyObject *)(*args), i, (&_Py_NoneStruct) ); | |||
| 551 | } | |||
| 552 | if (xa != NULL((void*)0)) | |||
| 553 | for (i=(*nofargs);i<siz;i++) { | |||
| 554 | tmp = PyTuple_GetItem((PyObject *)xa,i-(*nofargs)); | |||
| 555 | Py_INCREF(tmp)_Py_INCREF(((PyObject*)(tmp))); | |||
| 556 | PyTuple_SET_ITEM(*args,i,tmp)PyTuple_SetItem(*args, i, tmp); | |||
| 557 | } | |||
| 558 | CFUNCSMESS("create_cb_arglist-end\n"); | |||
| 559 | return 1; | |||
| 560 | capi_fail: | |||
| 561 | if ((PyErr_Occurred())==NULL((void*)0)) | |||
| 562 | PyErr_SetString(_flapack_error,errmess); | |||
| 563 | return 0; | |||
| 564 | } | |||
| 565 | ||||
| 566 | static int complex_float_from_pyobj(complex_float* v,PyObject *obj,const char *errmess) { | |||
| 567 | complex_double cd={0.0,0.0}; | |||
| 568 | if (complex_double_from_pyobj(&cd,obj,errmess)) { | |||
| 569 | (*v).r = (float)cd.r; | |||
| 570 | (*v).i = (float)cd.i; | |||
| 571 | return 1; | |||
| 572 | } | |||
| 573 | return 0; | |||
| 574 | } | |||
| 575 | ||||
| 576 | ||||
| 577 | /********************* See f2py2e/cfuncs.py: userincludes *********************/ | |||
| 578 | /*need_userincludes*/ | |||
| 579 | ||||
| 580 | /********************* See f2py2e/capi_rules.py: usercode *********************/ | |||
| 581 | /* start usercode multiline (0) */ | |||
| 582 | ||||
| 583 | #define F_INTint int | |||
| 584 | ||||
| 585 | /* end multiline (0)*/ | |||
| 586 | ||||
| 587 | /* See f2py2e/rules.py */ | |||
| 588 | extern void F_FUNC(sgebal,SGEBAL)sgebal_(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint* ); | |||
| 589 | extern void F_FUNC(dgebal,DGEBAL)dgebal_(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint* ); | |||
| 590 | extern void F_FUNC(cgebal,CGEBAL)cgebal_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint* ); | |||
| 591 | extern void F_FUNC(zgebal,ZGEBAL)zgebal_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint* ); | |||
| 592 | extern void F_FUNC(sgehrd,SGEHRD)sgehrd_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 593 | extern void F_FUNC(dgehrd,DGEHRD)dgehrd_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 594 | extern void F_FUNC(cgehrd,CGEHRD)cgehrd_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 595 | extern void F_FUNC(zgehrd,ZGEHRD)zgehrd_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 596 | extern void F_FUNC(sgehrd ,SGEHRD )sgehrd_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 597 | extern void F_FUNC(dgehrd ,DGEHRD )dgehrd_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 598 | extern void F_FUNC(cgehrd ,CGEHRD )cgehrd_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 599 | extern void F_FUNC(zgehrd ,ZGEHRD )zgehrd_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 600 | extern void F_FUNC(sgesv,SGESV)sgesv_(F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 601 | extern void F_FUNC(dgesv,DGESV)dgesv_(F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 602 | extern void F_FUNC(cgesv,CGESV)cgesv_(F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 603 | extern void F_FUNC(zgesv,ZGESV)zgesv_(F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 604 | extern void F_FUNC(sgesvx,SGESVX)sgesvx_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,char*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* ); | |||
| 605 | extern void F_FUNC(dgesvx,DGESVX)dgesvx_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,char*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* ); | |||
| 606 | extern void F_FUNC(cgesvx,CGESVX)cgesvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,char*,float*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,float*,F_INTint* ); | |||
| 607 | extern void F_FUNC(zgesvx,ZGESVX)zgesvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,char*,double*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,double*,F_INTint* ); | |||
| 608 | extern void F_FUNC(sgecon,SGECON)sgecon_(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint* ); | |||
| 609 | extern void F_FUNC(dgecon,DGECON)dgecon_(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint* ); | |||
| 610 | extern void F_FUNC(cgecon,CGECON)cgecon_(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,float*,F_INTint* ); | |||
| 611 | extern void F_FUNC(zgecon,ZGECON)zgecon_(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,double*,F_INTint* ); | |||
| 612 | extern void F_FUNC(sgetrf,SGETRF)sgetrf_(F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 613 | extern void F_FUNC(dgetrf,DGETRF)dgetrf_(F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 614 | extern void F_FUNC(cgetrf,CGETRF)cgetrf_(F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 615 | extern void F_FUNC(zgetrf,ZGETRF)zgetrf_(F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 616 | extern void F_FUNC(sgetrs,SGETRS)sgetrs_(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 617 | extern void F_FUNC(dgetrs,DGETRS)dgetrs_(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 618 | extern void F_FUNC(cgetrs,CGETRS)cgetrs_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 619 | extern void F_FUNC(zgetrs,ZGETRS)zgetrs_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 620 | extern void F_FUNC(sgetc2,SGETC2)sgetc2_(F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 621 | extern void F_FUNC(dgetc2,DGETC2)dgetc2_(F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 622 | extern void F_FUNC(cgetc2,CGETC2)cgetc2_(F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 623 | extern void F_FUNC(zgetc2,ZGETC2)zgetc2_(F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 624 | extern void F_FUNC(sgesc2,SGESC2)sgesc2_(F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float* ); | |||
| 625 | extern void F_FUNC(dgesc2,DGESC2)dgesc2_(F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double* ); | |||
| 626 | extern void F_FUNC(cgesc2,CGESC2)cgesc2_(F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float* ); | |||
| 627 | extern void F_FUNC(zgesc2,ZGESC2)zgesc2_(F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double* ); | |||
| 628 | extern void F_FUNC(sgetri,SGETRI)sgetri_(F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 629 | extern void F_FUNC(dgetri,DGETRI)dgetri_(F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 630 | extern void F_FUNC(cgetri,CGETRI)cgetri_(F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 631 | extern void F_FUNC(zgetri,ZGETRI)zgetri_(F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 632 | extern void F_FUNC(sgetri ,SGETRI )sgetri_(F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 633 | extern void F_FUNC(dgetri ,DGETRI )dgetri_(F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 634 | extern void F_FUNC(cgetri ,CGETRI )cgetri_(F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 635 | extern void F_FUNC(zgetri ,ZGETRI )zgetri_(F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 636 | extern void F_FUNC(sgesdd,SGESDD)sgesdd_(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 637 | extern void F_FUNC(dgesdd,DGESDD)dgesdd_(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 638 | extern void F_FUNC(sgesdd ,SGESDD )sgesdd_(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 639 | extern void F_FUNC(dgesdd ,DGESDD )dgesdd_(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 640 | extern void F_FUNC(cgesdd,CGESDD)cgesdd_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 641 | extern void F_FUNC(zgesdd,ZGESDD)zgesdd_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 642 | extern void F_FUNC(cgesdd ,CGESDD )cgesdd_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 643 | extern void F_FUNC(zgesdd ,ZGESDD )zgesdd_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 644 | extern void F_FUNC(sgesvd,SGESVD)sgesvd_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 645 | extern void F_FUNC(dgesvd,DGESVD)dgesvd_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 646 | extern void F_FUNC(sgesvd ,SGESVD )sgesvd_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 647 | extern void F_FUNC(dgesvd ,DGESVD )dgesvd_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 648 | extern void F_FUNC(cgesvd,CGESVD)cgesvd_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 649 | extern void F_FUNC(zgesvd,ZGESVD)zgesvd_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 650 | extern void F_FUNC(cgesvd ,CGESVD )cgesvd_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 651 | extern void F_FUNC(zgesvd ,ZGESVD )zgesvd_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 652 | extern void F_FUNC(sgels,SGELS)sgels_(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 653 | extern void F_FUNC(dgels,DGELS)dgels_(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 654 | extern void F_FUNC(cgels,CGELS)cgels_(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 655 | extern void F_FUNC(zgels,ZGELS)zgels_(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 656 | extern void F_FUNC(sgels ,SGELS )sgels_(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 657 | extern void F_FUNC(dgels ,DGELS )dgels_(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 658 | extern void F_FUNC(cgels ,CGELS )cgels_(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 659 | extern void F_FUNC(zgels ,ZGELS )zgels_(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 660 | extern void F_FUNC(sgelss,SGELSS)sgelss_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 661 | extern void F_FUNC(dgelss,DGELSS)dgelss_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 662 | extern void F_FUNC(sgelss ,SGELSS )sgelss_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 663 | extern void F_FUNC(dgelss ,DGELSS )dgelss_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 664 | extern void F_FUNC(cgelss,CGELSS)cgelss_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 665 | extern void F_FUNC(zgelss,ZGELSS)zgelss_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 666 | extern void F_FUNC(cgelss ,CGELSS )cgelss_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 667 | extern void F_FUNC(zgelss ,ZGELSS )zgelss_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 668 | extern void F_FUNC(sgelsy,SGELSY)sgelsy_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 669 | extern void F_FUNC(dgelsy,DGELSY)dgelsy_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 670 | extern void F_FUNC(sgelsy ,SGELSY )sgelsy_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 671 | extern void F_FUNC(dgelsy ,DGELSY )dgelsy_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 672 | extern void F_FUNC(cgelsy,CGELSY)cgelsy_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 673 | extern void F_FUNC(zgelsy,ZGELSY)zgelsy_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 674 | extern void F_FUNC(cgelsy ,CGELSY )cgelsy_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 675 | extern void F_FUNC(zgelsy ,ZGELSY )zgelsy_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 676 | extern void F_FUNC(sgelsd,SGELSD)sgelsd_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 677 | extern void F_FUNC(dgelsd,DGELSD)dgelsd_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 678 | extern void F_FUNC(sgelsd ,SGELSD )sgelsd_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 679 | extern void F_FUNC(dgelsd ,DGELSD )dgelsd_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 680 | extern void F_FUNC(cgelsd,CGELSD)cgelsd_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*, complex_float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 681 | extern void F_FUNC(zgelsd,ZGELSD)zgelsd_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*, complex_double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 682 | extern void F_FUNC(cgelsd ,CGELSD )cgelsd_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*, complex_float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 683 | extern void F_FUNC(zgelsd ,ZGELSD )zgelsd_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*, complex_double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 684 | extern void F_FUNC(sgeqp3,SGEQP3)sgeqp3_(F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 685 | extern void F_FUNC(dgeqp3,DGEQP3)dgeqp3_(F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 686 | extern void F_FUNC(cgeqp3,CGEQP3)cgeqp3_(F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 687 | extern void F_FUNC(zgeqp3,ZGEQP3)zgeqp3_(F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 688 | extern void F_FUNC(sgeqrf,SGEQRF)sgeqrf_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 689 | extern void F_FUNC(dgeqrf,DGEQRF)dgeqrf_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 690 | extern void F_FUNC(cgeqrf,CGEQRF)cgeqrf_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 691 | extern void F_FUNC(zgeqrf,ZGEQRF)zgeqrf_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 692 | extern void F_FUNC(sgeqrf ,SGEQRF )sgeqrf_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 693 | extern void F_FUNC(dgeqrf ,DGEQRF )dgeqrf_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 694 | extern void F_FUNC(cgeqrf ,CGEQRF )cgeqrf_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 695 | extern void F_FUNC(zgeqrf ,ZGEQRF )zgeqrf_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 696 | extern void F_FUNC(sgeqrfp,SGEQRFP)sgeqrfp_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 697 | extern void F_FUNC(dgeqrfp,DGEQRFP)dgeqrfp_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 698 | extern void F_FUNC(cgeqrfp,CGEQRFP)cgeqrfp_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 699 | extern void F_FUNC(zgeqrfp,ZGEQRFP)zgeqrfp_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 700 | extern void F_FUNC(sgeqrfp ,SGEQRFP )sgeqrfp_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 701 | extern void F_FUNC(dgeqrfp ,DGEQRFP )dgeqrfp_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 702 | extern void F_FUNC(cgeqrfp ,CGEQRFP )cgeqrfp_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 703 | extern void F_FUNC(zgeqrfp ,ZGEQRFP )zgeqrfp_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 704 | extern void F_FUNC(sgerqf,SGERQF)sgerqf_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 705 | extern void F_FUNC(dgerqf,DGERQF)dgerqf_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 706 | extern void F_FUNC(cgerqf,CGERQF)cgerqf_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 707 | extern void F_FUNC(zgerqf,ZGERQF)zgerqf_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 708 | extern void F_FUNC(sgeev,SGEEV)sgeev_(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 709 | extern void F_FUNC(dgeev,DGEEV)dgeev_(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 710 | extern void F_FUNC(sgeev ,SGEEV )sgeev_(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 711 | extern void F_FUNC(dgeev ,DGEEV )dgeev_(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 712 | extern void F_FUNC(cgeev,CGEEV)cgeev_(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 713 | extern void F_FUNC(zgeev,ZGEEV)zgeev_(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 714 | extern void F_FUNC(cgeev ,CGEEV )cgeev_(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 715 | extern void F_FUNC(zgeev ,ZGEEV )zgeev_(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 716 | extern void F_FUNC(sgegv,SGEGV)sgegv_(char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 717 | extern void F_FUNC(dgegv,DGEGV)dgegv_(char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 718 | extern void F_FUNC(cgegv,CGEGV)cgegv_(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 719 | extern void F_FUNC(zgegv,ZGEGV)zgegv_(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 720 | extern void F_FUNC(cgees,CGEES)cgees_(char*,char*,F_INTint(*)(complex_float*),F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint,F_INTint ); | |||
| 721 | extern void F_FUNC(zgees,ZGEES)zgees_(char*,char*,F_INTint(*)(complex_double*),F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint,F_INTint ); | |||
| 722 | extern void F_FUNC(sgees,SGEES)sgees_(char*,char*,F_INTint(*)(float*,float*),F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint,F_INTint ); | |||
| 723 | extern void F_FUNC(dgees,DGEES)dgees_(char*,char*,F_INTint(*)(double*,double*),F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint,F_INTint ); | |||
| 724 | extern void F_FUNC(sgges,SGGES)sgges_(char*,char*,char*,F_INTint(*)(float*,float*,float*),F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 725 | extern void F_FUNC(dgges,DGGES)dgges_(char*,char*,char*,F_INTint(*)(double*,double*,double*),F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 726 | extern void F_FUNC(cgges,CGGES)cgges_(char*,char*,char*,F_INTint(*)(complex_float*,complex_float*),F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 727 | extern void F_FUNC(zgges,ZGGES)zgges_(char*,char*,char*,F_INTint(*)(complex_double*,complex_double*),F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 728 | extern void F_FUNC(sggev,SGGEV)sggev_(char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 729 | extern void F_FUNC(dggev,DGGEV)dggev_(char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 730 | extern void F_FUNC(cggev,CGGEV)cggev_(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 731 | extern void F_FUNC(zggev,ZGGEV)zggev_(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 732 | extern void F_FUNC(sgeequ,SGEEQU)sgeequ_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* ); | |||
| 733 | extern void F_FUNC(dgeequ,DGEEQU)dgeequ_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* ); | |||
| 734 | extern void F_FUNC(cgeequ,CGEEQU)cgeequ_(F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* ); | |||
| 735 | extern void F_FUNC(zgeequ,ZGEEQU)zgeequ_(F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* ); | |||
| 736 | extern void F_FUNC(sgeequb,SGEEQUB)sgeequb_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* ); | |||
| 737 | extern void F_FUNC(dgeequb,DGEEQUB)dgeequb_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* ); | |||
| 738 | extern void F_FUNC(cgeequb,CGEEQUB)cgeequb_(F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* ); | |||
| 739 | extern void F_FUNC(zgeequb,ZGEEQUB)zgeequb_(F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* ); | |||
| 740 | extern void F_FUNC(sgbsv,SGBSV)sgbsv_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 741 | extern void F_FUNC(dgbsv,DGBSV)dgbsv_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 742 | extern void F_FUNC(cgbsv,CGBSV)cgbsv_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 743 | extern void F_FUNC(zgbsv,ZGBSV)zgbsv_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 744 | extern void F_FUNC(sgbtrf,SGBTRF)sgbtrf_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 745 | extern void F_FUNC(dgbtrf,DGBTRF)dgbtrf_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 746 | extern void F_FUNC(cgbtrf,CGBTRF)cgbtrf_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 747 | extern void F_FUNC(zgbtrf,ZGBTRF)zgbtrf_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 748 | extern void F_FUNC(sgbtrs,SGBTRS)sgbtrs_(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 749 | extern void F_FUNC(dgbtrs,DGBTRS)dgbtrs_(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 750 | extern void F_FUNC(cgbtrs,CGBTRS)cgbtrs_(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 751 | extern void F_FUNC(zgbtrs,ZGBTRS)zgbtrs_(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 752 | extern void F_FUNC(sgtsv,SGTSV)sgtsv_(F_INTint*, F_INTint*, float*, float*, float*, float*, F_INTint*, F_INTint* ); | |||
| 753 | extern void F_FUNC(dgtsv,DGTSV)dgtsv_(F_INTint*, F_INTint*, double*, double*, double*, double*, F_INTint*, F_INTint* ); | |||
| 754 | extern void F_FUNC(cgtsv,CGTSV)cgtsv_(F_INTint*, F_INTint*, complex_float*, complex_float*, complex_float*, complex_float*, F_INTint*, F_INTint* ); | |||
| 755 | extern void F_FUNC(zgtsv,ZGTSV)zgtsv_(F_INTint*, F_INTint*, complex_double*, complex_double*, complex_double*, complex_double*, F_INTint*, F_INTint* ); | |||
| 756 | extern void F_FUNC(sgttrf,SGTTRF)sgttrf_(F_INTint*, float*, float*, float*, float*, F_INTint*, F_INTint* ); | |||
| 757 | extern void F_FUNC(dgttrf,DGTTRF)dgttrf_(F_INTint*, double*, double*, double*, double*, F_INTint*, F_INTint* ); | |||
| 758 | extern void F_FUNC(cgttrf,CGTTRF)cgttrf_(F_INTint*, complex_float*, complex_float*, complex_float*, complex_float*, F_INTint*, F_INTint* ); | |||
| 759 | extern void F_FUNC(zgttrf,ZGTTRF)zgttrf_(F_INTint*, complex_double*, complex_double*, complex_double*, complex_double*, F_INTint*, F_INTint* ); | |||
| 760 | extern void F_FUNC(sgttrs,SGTTRS)sgttrs_(char*, F_INTint*, F_INTint*, float*, float*, float*, float*, F_INTint*, float*, F_INTint*, F_INTint* ); | |||
| 761 | extern void F_FUNC(dgttrs,DGTTRS)dgttrs_(char*, F_INTint*, F_INTint*, double*, double*, double*, double*, F_INTint*, double*, F_INTint*, F_INTint* ); | |||
| 762 | extern void F_FUNC(cgttrs,CGTTRS)cgttrs_(char*, F_INTint*, F_INTint*, complex_float*, complex_float*, complex_float*, complex_float*, F_INTint*, complex_float*, F_INTint*, F_INTint* ); | |||
| 763 | extern void F_FUNC(zgttrs,ZGTTRS)zgttrs_(char*, F_INTint*, F_INTint*, complex_double*, complex_double*, complex_double*, complex_double*, F_INTint*, complex_double*, F_INTint*, F_INTint* ); | |||
| 764 | extern void F_FUNC(sgtsvx,SGTSVX)sgtsvx_(char*,char*,F_INTint*,F_INTint*,float*,float*,float*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* ); | |||
| 765 | extern void F_FUNC(dgtsvx,DGTSVX)dgtsvx_(char*,char*,F_INTint*,F_INTint*,double*,double*,double*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* ); | |||
| 766 | extern void F_FUNC(cgtsvx,CGTSVX)cgtsvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,float*,F_INTint* ); | |||
| 767 | extern void F_FUNC(zgtsvx,ZGTSVX)zgtsvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,double*,F_INTint* ); | |||
| 768 | extern void F_FUNC(ssyev,SSYEV)ssyev_(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 769 | extern void F_FUNC(dsyev,DSYEV)dsyev_(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 770 | extern void F_FUNC(ssyev ,SSYEV )ssyev_(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 771 | extern void F_FUNC(dsyev ,DSYEV )dsyev_(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 772 | extern void F_FUNC(cheev,CHEEV)cheev_(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 773 | extern void F_FUNC(zheev,ZHEEV)zheev_(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 774 | extern void F_FUNC(cheev ,CHEEV )cheev_(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 775 | extern void F_FUNC(zheev ,ZHEEV )zheev_(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 776 | extern void F_FUNC(ssyevd,SSYEVD)ssyevd_(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 777 | extern void F_FUNC(dsyevd,DSYEVD)dsyevd_(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 778 | extern void F_FUNC(ssyevd ,SSYEVD )ssyevd_(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 779 | extern void F_FUNC(dsyevd ,DSYEVD )dsyevd_(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 780 | extern void F_FUNC(cheevd,CHEEVD)cheevd_(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 781 | extern void F_FUNC(zheevd,ZHEEVD)zheevd_(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 782 | extern void F_FUNC(cheevd ,CHEEVD )cheevd_(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 783 | extern void F_FUNC(zheevd ,ZHEEVD )zheevd_(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 784 | extern void F_FUNC(ssytf2,SSYTF2)ssytf2_(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 785 | extern void F_FUNC(dsytf2,DSYTF2)dsytf2_(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 786 | extern void F_FUNC(csytf2,CSYTF2)csytf2_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 787 | extern void F_FUNC(zsytf2,ZSYTF2)zsytf2_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 788 | extern void F_FUNC(ssygst,SSYGST)ssygst_(F_INTint*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 789 | extern void F_FUNC(dsygst,DSYGST)dsygst_(F_INTint*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 790 | extern void F_FUNC(ssytrf,SSYTRF)ssytrf_(char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 791 | extern void F_FUNC(dsytrf,DSYTRF)dsytrf_(char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 792 | extern void F_FUNC(csytrf,CSYTRF)csytrf_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 793 | extern void F_FUNC(zsytrf,ZSYTRF)zsytrf_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 794 | extern void F_FUNC(ssytrf ,SSYTRF )ssytrf_(char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 795 | extern void F_FUNC(dsytrf ,DSYTRF )dsytrf_(char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 796 | extern void F_FUNC(csytrf ,CSYTRF )csytrf_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 797 | extern void F_FUNC(zsytrf ,ZSYTRF )zsytrf_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 798 | extern void F_FUNC(ssysv,SSYSV)ssysv_(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 799 | extern void F_FUNC(dsysv,DSYSV)dsysv_(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 800 | extern void F_FUNC(csysv,CSYSV)csysv_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 801 | extern void F_FUNC(zsysv,ZSYSV)zsysv_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 802 | extern void F_FUNC(ssysv ,SSYSV )ssysv_(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 803 | extern void F_FUNC(dsysv ,DSYSV )dsysv_(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 804 | extern void F_FUNC(csysv ,CSYSV )csysv_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 805 | extern void F_FUNC(zsysv ,ZSYSV )zsysv_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 806 | extern void F_FUNC(ssysvx,SSYSVX)ssysvx_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 807 | extern void F_FUNC(dsysvx,DSYSVX)dsysvx_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 808 | extern void F_FUNC(csysvx,CSYSVX)csysvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 809 | extern void F_FUNC(zsysvx,ZSYSVX)zsysvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 810 | extern void F_FUNC(ssysvx ,SSYSVX )ssysvx_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 811 | extern void F_FUNC(dsysvx ,DSYSVX )dsysvx_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 812 | extern void F_FUNC(csysvx ,CSYSVX )csysvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 813 | extern void F_FUNC(zsysvx ,ZSYSVX )zsysvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 814 | extern void F_FUNC(ssycon,SSYCON)ssycon_(char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint* ); | |||
| 815 | extern void F_FUNC(dsycon,DSYCON)dsycon_(char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint* ); | |||
| 816 | extern void F_FUNC(csycon,CSYCON)csycon_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,complex_float*,F_INTint* ); | |||
| 817 | extern void F_FUNC(zsycon,ZSYCON)zsycon_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,complex_double*,F_INTint* ); | |||
| 818 | extern void F_FUNC(checon,CHECON)checon_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,complex_float*,F_INTint* ); | |||
| 819 | extern void F_FUNC(zhecon,ZHECON)zhecon_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,complex_double*,F_INTint* ); | |||
| 820 | extern void F_FUNC(ssyconv,SSYCONV)ssyconv_(char*,char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint* ); | |||
| 821 | extern void F_FUNC(dsyconv,DSYCONV)dsyconv_(char*,char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint* ); | |||
| 822 | extern void F_FUNC(csyconv,CSYCONV)csyconv_(char*,char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint* ); | |||
| 823 | extern void F_FUNC(zsyconv,ZSYCONV)zsyconv_(char*,char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint* ); | |||
| 824 | extern void F_FUNC(chegst,CHEGST)chegst_(F_INTint*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 825 | extern void F_FUNC(zhegst,ZHEGST)zhegst_(F_INTint*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 826 | extern void F_FUNC(chetrf,CHETRF)chetrf_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 827 | extern void F_FUNC(zhetrf,ZHETRF)zhetrf_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 828 | extern void F_FUNC(chetrf ,CHETRF )chetrf_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 829 | extern void F_FUNC(zhetrf ,ZHETRF )zhetrf_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 830 | extern void F_FUNC(chesv,CHESV)chesv_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 831 | extern void F_FUNC(zhesv,ZHESV)zhesv_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 832 | extern void F_FUNC(chesv ,CHESV )chesv_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 833 | extern void F_FUNC(zhesv ,ZHESV )zhesv_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 834 | extern void F_FUNC(chesvx,CHESVX)chesvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 835 | extern void F_FUNC(zhesvx,ZHESVX)zhesvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 836 | extern void F_FUNC(chesvx ,CHESVX )chesvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 837 | extern void F_FUNC(zhesvx ,ZHESVX )zhesvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 838 | extern void F_FUNC(ssytrd,SSYTRD)ssytrd_(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* ); | |||
| 839 | extern void F_FUNC(dsytrd,DSYTRD)dsytrd_(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* ); | |||
| 840 | extern void F_FUNC(ssytrd ,SSYTRD )ssytrd_(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* ); | |||
| 841 | extern void F_FUNC(dsytrd ,DSYTRD )dsytrd_(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* ); | |||
| 842 | extern void F_FUNC(chetrd,CHETRD)chetrd_(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 843 | extern void F_FUNC(zhetrd,ZHETRD)zhetrd_(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 844 | extern void F_FUNC(chetrd ,CHETRD )chetrd_(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 845 | extern void F_FUNC(zhetrd ,ZHETRD )zhetrd_(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 846 | extern void F_FUNC(ssyevr,SSYEVR)ssyevr_(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 847 | extern void F_FUNC(dsyevr,DSYEVR)dsyevr_(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 848 | extern void F_FUNC(ssyevr ,SSYEVR )ssyevr_(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 849 | extern void F_FUNC(dsyevr ,DSYEVR )dsyevr_(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 850 | extern void F_FUNC(cheevr,CHEEVR)cheevr_(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 851 | extern void F_FUNC(zheevr,ZHEEVR)zheevr_(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 852 | extern void F_FUNC(cheevr ,CHEEVR )cheevr_(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 853 | extern void F_FUNC(zheevr ,ZHEEVR )zheevr_(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 854 | extern void F_FUNC(ssyevx,SSYEVX)ssyevx_(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 855 | extern void F_FUNC(dsyevx,DSYEVX)dsyevx_(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 856 | extern void F_FUNC(ssyevx ,SSYEVX )ssyevx_(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 857 | extern void F_FUNC(dsyevx ,DSYEVX )dsyevx_(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 858 | extern void F_FUNC(cheevx,CHEEVX)cheevx_(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 859 | extern void F_FUNC(zheevx,ZHEEVX)zheevx_(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 860 | extern void F_FUNC(cheevx ,CHEEVX )cheevx_(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 861 | extern void F_FUNC(zheevx ,ZHEEVX )zheevx_(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 862 | extern void F_FUNC(ssygv,SSYGV)ssygv_(F_INTint*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 863 | extern void F_FUNC(dsygv,DSYGV)dsygv_(F_INTint*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 864 | extern void F_FUNC(ssygv ,SSYGV )ssygv_(F_INTint*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 865 | extern void F_FUNC(dsygv ,DSYGV )dsygv_(F_INTint*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 866 | extern void F_FUNC(chegv,CHEGV)chegv_(F_INTint*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 867 | extern void F_FUNC(zhegv,ZHEGV)zhegv_(F_INTint*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 868 | extern void F_FUNC(chegv ,CHEGV )chegv_(F_INTint*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 869 | extern void F_FUNC(zhegv ,ZHEGV )zhegv_(F_INTint*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 870 | extern void F_FUNC(ssygvd,SSYGVD)ssygvd_(F_INTint*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 871 | extern void F_FUNC(dsygvd,DSYGVD)dsygvd_(F_INTint*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 872 | extern void F_FUNC(chegvd,CHEGVD)chegvd_(F_INTint*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 873 | extern void F_FUNC(zhegvd,ZHEGVD)zhegvd_(F_INTint*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 874 | extern void F_FUNC(ssygvx,SSYGVX)ssygvx_(F_INTint*,char*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 875 | extern void F_FUNC(dsygvx,DSYGVX)dsygvx_(F_INTint*,char*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 876 | extern void F_FUNC(ssygvx ,SSYGVX )ssygvx_(F_INTint*,char*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 877 | extern void F_FUNC(dsygvx ,DSYGVX )dsygvx_(F_INTint*,char*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 878 | extern void F_FUNC(chegvx,CHEGVX)chegvx_(F_INTint*,char*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 879 | extern void F_FUNC(zhegvx,ZHEGVX)zhegvx_(F_INTint*,char*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 880 | extern void F_FUNC(chegvx ,CHEGVX )chegvx_(F_INTint*,char*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 881 | extern void F_FUNC(zhegvx ,ZHEGVX )zhegvx_(F_INTint*,char*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 882 | extern void F_FUNC(ssyequb,SSYEQUB)ssyequb_(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint* ); | |||
| 883 | extern void F_FUNC(dsyequb,DSYEQUB)dsyequb_(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint* ); | |||
| 884 | extern void F_FUNC(csyequb,CSYEQUB)csyequb_(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint* ); | |||
| 885 | extern void F_FUNC(zsyequb,ZSYEQUB)zsyequb_(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint* ); | |||
| 886 | extern void F_FUNC(cheequb,CHEEQUB)cheequb_(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint* ); | |||
| 887 | extern void F_FUNC(zheequb,ZHEEQUB)zheequb_(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint* ); | |||
| 888 | extern void F_FUNC(spstrf,SPSTRF)spstrf_(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* ); | |||
| 889 | extern void F_FUNC(dpstrf,DPSTRF)dpstrf_(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* ); | |||
| 890 | extern void F_FUNC(cpstrf,CPSTRF)cpstrf_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* ); | |||
| 891 | extern void F_FUNC(zpstrf,ZPSTRF)zpstrf_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* ); | |||
| 892 | extern void F_FUNC(spstf2,SPSTF2)spstf2_(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* ); | |||
| 893 | extern void F_FUNC(dpstf2,DPSTF2)dpstf2_(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* ); | |||
| 894 | extern void F_FUNC(cpstf2,CPSTF2)cpstf2_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* ); | |||
| 895 | extern void F_FUNC(zpstf2,ZPSTF2)zpstf2_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* ); | |||
| 896 | extern void F_FUNC(sposv,SPOSV)sposv_(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 897 | extern void F_FUNC(dposv,DPOSV)dposv_(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 898 | extern void F_FUNC(cposv,CPOSV)cposv_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 899 | extern void F_FUNC(zposv,ZPOSV)zposv_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 900 | extern void F_FUNC(sposvx,SPOSVX)sposvx_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,char*,float*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* ); | |||
| 901 | extern void F_FUNC(dposvx,DPOSVX)dposvx_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,char*,double*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* ); | |||
| 902 | extern void F_FUNC(cposvx,CPOSVX)cposvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,char*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,float*,F_INTint* ); | |||
| 903 | extern void F_FUNC(zposvx,ZPOSVX)zposvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,char*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,double*,F_INTint* ); | |||
| 904 | extern void F_FUNC(spocon,SPOCON)spocon_(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint* ); | |||
| 905 | extern void F_FUNC(dpocon,DPOCON)dpocon_(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint* ); | |||
| 906 | extern void F_FUNC(cpocon,CPOCON)cpocon_(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,float*,F_INTint* ); | |||
| 907 | extern void F_FUNC(zpocon,ZPOCON)zpocon_(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,double*,F_INTint* ); | |||
| 908 | extern void F_FUNC(spotrf,SPOTRF)spotrf_(char*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 909 | extern void F_FUNC(dpotrf,DPOTRF)dpotrf_(char*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 910 | extern void F_FUNC(cpotrf,CPOTRF)cpotrf_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 911 | extern void F_FUNC(zpotrf,ZPOTRF)zpotrf_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 912 | extern void F_FUNC(spotrs,SPOTRS)spotrs_(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 913 | extern void F_FUNC(dpotrs,DPOTRS)dpotrs_(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 914 | extern void F_FUNC(cpotrs,CPOTRS)cpotrs_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 915 | extern void F_FUNC(zpotrs,ZPOTRS)zpotrs_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 916 | extern void F_FUNC(spotri,SPOTRI)spotri_(char*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 917 | extern void F_FUNC(dpotri,DPOTRI)dpotri_(char*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 918 | extern void F_FUNC(cpotri,CPOTRI)cpotri_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 919 | extern void F_FUNC(zpotri,ZPOTRI)zpotri_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 920 | extern void F_FUNC(sptsv,SPTSV)sptsv_(F_INTint*, F_INTint*, float*, float*, float*, F_INTint*, F_INTint* ); | |||
| 921 | extern void F_FUNC(dptsv,DPTSV)dptsv_(F_INTint*, F_INTint*, double*, double*, double*, F_INTint*, F_INTint* ); | |||
| 922 | extern void F_FUNC(cptsv,CPTSV)cptsv_(F_INTint*, F_INTint*, float*, complex_float*, complex_float*, F_INTint*, F_INTint* ); | |||
| 923 | extern void F_FUNC(zptsv,ZPTSV)zptsv_(F_INTint*, F_INTint*, double*, complex_double*, complex_double*, F_INTint*, F_INTint* ); | |||
| 924 | extern void F_FUNC(spttrf,SPTTRF)spttrf_(F_INTint*, float*, float*, F_INTint* ); | |||
| 925 | extern void F_FUNC(dpttrf,DPTTRF)dpttrf_(F_INTint*, double*, double*, F_INTint* ); | |||
| 926 | extern void F_FUNC(cpttrf,CPTTRF)cpttrf_(F_INTint*, float*, complex_float*, F_INTint* ); | |||
| 927 | extern void F_FUNC(zpttrf,ZPTTRF)zpttrf_(F_INTint*, double*, complex_double*, F_INTint* ); | |||
| 928 | extern void F_FUNC(spttrs,SPTTRS)spttrs_(F_INTint*, F_INTint*, float*, float*, float*, F_INTint*, F_INTint* ); | |||
| 929 | extern void F_FUNC(dpttrs,DPTTRS)dpttrs_(F_INTint*, F_INTint*, double*, double*, double*, F_INTint*, F_INTint* ); | |||
| 930 | extern void F_FUNC(cpttrs,CPTTRS)cpttrs_(char*, F_INTint*, F_INTint*, float*, complex_float*, complex_float*, F_INTint*, F_INTint* ); | |||
| 931 | extern void F_FUNC(zpttrs,ZPTTRS)zpttrs_(char*, F_INTint*, F_INTint*, double*, complex_double*, complex_double*, F_INTint*, F_INTint* ); | |||
| 932 | extern void F_FUNC(spteqr,SPTEQR)spteqr_(char*, F_INTint*, float*, float*, float*, F_INTint*, float*, F_INTint* ); | |||
| 933 | extern void F_FUNC(dpteqr,DPTEQR)dpteqr_(char*, F_INTint*, double*, double*, double*, F_INTint*, double*, F_INTint* ); | |||
| 934 | extern void F_FUNC(cpteqr,CPTEQR)cpteqr_(char*, F_INTint*, float*, float*, complex_float*, F_INTint*, float*, F_INTint* ); | |||
| 935 | extern void F_FUNC(zpteqr,ZPTEQR)zpteqr_(char*, F_INTint*, double*, double*, complex_double*, F_INTint*, double*, F_INTint* ); | |||
| 936 | extern void F_FUNC(sptsvx,SPTSVX)sptsvx_(char*, F_INTint*, F_INTint*, float*, float*, float*, float*, float*, F_INTint*, float*, F_INTint*, float*, float*, float*, float*, F_INTint* ); | |||
| 937 | extern void F_FUNC(dptsvx,DPTSVX)dptsvx_(char*, F_INTint*, F_INTint*, double*, double*, double*, double*, double*, F_INTint*, double*, F_INTint*, double*, double*, double*, double*, F_INTint* ); | |||
| 938 | extern void F_FUNC(cptsvx,CPTSVX)cptsvx_(char*, F_INTint*, F_INTint*, float*, complex_float*, float*, complex_float*, complex_float*, F_INTint*, complex_float*, F_INTint*, float*, float*, float*, complex_float*, float*, F_INTint* ); | |||
| 939 | extern void F_FUNC(zptsvx,ZPTSVX)zptsvx_(char*, F_INTint*, F_INTint*, double*, complex_double*, double*, complex_double*, complex_double*, F_INTint*, complex_double*, F_INTint*, double*, double*, double*, complex_double*, double*, F_INTint* ); | |||
| 940 | extern void F_FUNC(sgejsv,SGEJSV)sgejsv_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 941 | extern void F_FUNC(dgejsv,DGEJSV)dgejsv_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 942 | extern void F_FUNC(stgexc,STGEXC)stgexc_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 943 | extern void F_FUNC(dtgexc,DTGEXC)dtgexc_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 944 | extern void F_FUNC(ctgexc,CTGEXC)ctgexc_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 945 | extern void F_FUNC(ztgexc,ZTGEXC)ztgexc_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 946 | extern void F_FUNC(stgsen,STGSEN)stgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 947 | extern void F_FUNC(dtgsen,DTGSEN)dtgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 948 | extern void F_FUNC(stgsen ,STGSEN )stgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 949 | extern void F_FUNC(dtgsen ,DTGSEN )dtgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 950 | extern void F_FUNC(ctgsen,CTGSEN)ctgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 951 | extern void F_FUNC(ztgsen,ZTGSEN)ztgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 952 | extern void F_FUNC(ctgsen ,CTGSEN )ctgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 953 | extern void F_FUNC(ztgsen ,ZTGSEN )ztgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 954 | extern void F_FUNC(spbtrf,SPBTRF)spbtrf_(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 955 | extern void F_FUNC(dpbtrf,DPBTRF)dpbtrf_(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 956 | extern void F_FUNC(cpbtrf,CPBTRF)cpbtrf_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 957 | extern void F_FUNC(zpbtrf,ZPBTRF)zpbtrf_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 958 | extern void F_FUNC(spbtrs,SPBTRS)spbtrs_(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 959 | extern void F_FUNC(dpbtrs,DPBTRS)dpbtrs_(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 960 | extern void F_FUNC(cpbtrs,CPBTRS)cpbtrs_(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 961 | extern void F_FUNC(zpbtrs,ZPBTRS)zpbtrs_(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 962 | extern void F_FUNC(strtrs,STRTRS)strtrs_(char*,char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 963 | extern void F_FUNC(dtrtrs,DTRTRS)dtrtrs_(char*,char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 964 | extern void F_FUNC(ctrtrs,CTRTRS)ctrtrs_(char*,char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 965 | extern void F_FUNC(ztrtrs,ZTRTRS)ztrtrs_(char*,char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 966 | extern void F_FUNC(stbtrs,STBTRS)stbtrs_(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 967 | extern void F_FUNC(dtbtrs,DTBTRS)dtbtrs_(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 968 | extern void F_FUNC(ctbtrs,CTBTRS)ctbtrs_(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 969 | extern void F_FUNC(ztbtrs,ZTBTRS)ztbtrs_(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 970 | extern void F_FUNC(spbsv,SPBSV)spbsv_(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 971 | extern void F_FUNC(dpbsv,DPBSV)dpbsv_(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 972 | extern void F_FUNC(cpbsv,CPBSV)cpbsv_(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 973 | extern void F_FUNC(zpbsv,ZPBSV)zpbsv_(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 974 | extern void F_FUNC(sorcsd,SORCSD)sorcsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 975 | extern void F_FUNC(dorcsd,DORCSD)dorcsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 976 | extern void F_FUNC(sorcsd ,SORCSD )sorcsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 977 | extern void F_FUNC(dorcsd ,DORCSD )dorcsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 978 | extern void F_FUNC(cuncsd,CUNCSD)cuncsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 979 | extern void F_FUNC(zuncsd,ZUNCSD)zuncsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 980 | extern void F_FUNC(cuncsd ,CUNCSD )cuncsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 981 | extern void F_FUNC(zuncsd ,ZUNCSD )zuncsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 982 | extern void F_FUNC(sorghr,SORGHR)sorghr_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 983 | extern void F_FUNC(dorghr,DORGHR)dorghr_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 984 | extern void F_FUNC(sorghr ,SORGHR )sorghr_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 985 | extern void F_FUNC(dorghr ,DORGHR )dorghr_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 986 | extern void F_FUNC(cunghr,CUNGHR)cunghr_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 987 | extern void F_FUNC(zunghr,ZUNGHR)zunghr_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 988 | extern void F_FUNC(cunghr ,CUNGHR )cunghr_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 989 | extern void F_FUNC(zunghr ,ZUNGHR )zunghr_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 990 | extern void F_FUNC(sorgqr,SORGQR)sorgqr_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 991 | extern void F_FUNC(dorgqr,DORGQR)dorgqr_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 992 | extern void F_FUNC(cungqr,CUNGQR)cungqr_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 993 | extern void F_FUNC(zungqr,ZUNGQR)zungqr_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 994 | extern void F_FUNC(sormqr,SORMQR)sormqr_(char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 995 | extern void F_FUNC(dormqr,DORMQR)dormqr_(char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 996 | extern void F_FUNC(cunmqr,CUNMQR)cunmqr_(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 997 | extern void F_FUNC(zunmqr,ZUNMQR)zunmqr_(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 998 | extern void F_FUNC(sgeqrt,SGEQRT)sgeqrt_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* ); | |||
| 999 | extern void F_FUNC(dgeqrt,DGEQRT)dgeqrt_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* ); | |||
| 1000 | extern void F_FUNC(cgeqrt,CGEQRT)cgeqrt_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* ); | |||
| 1001 | extern void F_FUNC(zgeqrt,ZGEQRT)zgeqrt_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* ); | |||
| 1002 | extern void F_FUNC(sgemqrt,SGEMQRT)sgemqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* ); | |||
| 1003 | extern void F_FUNC(dgemqrt,DGEMQRT)dgemqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* ); | |||
| 1004 | extern void F_FUNC(cgemqrt,CGEMQRT)cgemqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* ); | |||
| 1005 | extern void F_FUNC(zgemqrt,ZGEMQRT)zgemqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* ); | |||
| 1006 | extern void F_FUNC(stpqrt,STPQRT)stpqrt_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* ); | |||
| 1007 | extern void F_FUNC(dtpqrt,DTPQRT)dtpqrt_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* ); | |||
| 1008 | extern void F_FUNC(ctpqrt,CTPQRT)ctpqrt_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* ); | |||
| 1009 | extern void F_FUNC(ztpqrt,ZTPQRT)ztpqrt_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* ); | |||
| 1010 | extern void F_FUNC(stpmqrt,STPMQRT)stpmqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* ); | |||
| 1011 | extern void F_FUNC(dtpmqrt,DTPMQRT)dtpmqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* ); | |||
| 1012 | extern void F_FUNC(ctpmqrt,CTPMQRT)ctpmqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* ); | |||
| 1013 | extern void F_FUNC(ztpmqrt,ZTPMQRT)ztpmqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* ); | |||
| 1014 | extern void F_FUNC(sormrz,SORMRZ)sormrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 1015 | extern void F_FUNC(dormrz,DORMRZ)dormrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 1016 | extern void F_FUNC(cunmrz,CUNMRZ)cunmrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1017 | extern void F_FUNC(zunmrz,ZUNMRZ)zunmrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1018 | extern void F_FUNC(sormrz ,SORMRZ )sormrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 1019 | extern void F_FUNC(dormrz ,DORMRZ )dormrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 1020 | extern void F_FUNC(cunmrz ,CUNMRZ )cunmrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1021 | extern void F_FUNC(zunmrz ,ZUNMRZ )zunmrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1022 | extern void F_FUNC(sorgrq,SORGRQ)sorgrq_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 1023 | extern void F_FUNC(dorgrq,DORGRQ)dorgrq_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 1024 | extern void F_FUNC(cungrq,CUNGRQ)cungrq_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1025 | extern void F_FUNC(zungrq,ZUNGRQ)zungrq_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1026 | extern void F_FUNC(strtri,STRTRI)strtri_(char*,char*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 1027 | extern void F_FUNC(dtrtri,DTRTRI)dtrtri_(char*,char*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 1028 | extern void F_FUNC(ctrtri,CTRTRI)ctrtri_(char*,char*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1029 | extern void F_FUNC(ztrtri,ZTRTRI)ztrtri_(char*,char*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1030 | extern void F_FUNC(strsyl,STRSYL)strsyl_(char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* ); | |||
| 1031 | extern void F_FUNC(dtrsyl,DTRSYL)dtrsyl_(char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* ); | |||
| 1032 | extern void F_FUNC(ctrsyl,CTRSYL)ctrsyl_(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* ); | |||
| 1033 | extern void F_FUNC(ztrsyl,ZTRSYL)ztrsyl_(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* ); | |||
| 1034 | extern void F_FUNC(chbevd,CHBEVD)chbevd_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1035 | extern void F_FUNC(zhbevd,ZHBEVD)zhbevd_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1036 | extern void F_FUNC(chbevx,CHBEVX)chbevx_(char*,char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1037 | extern void F_FUNC(zhbevx,ZHBEVX)zhbevx_(char*,char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1038 | extern void F_FUNC(sgglse,SGGLSE)sgglse_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* ); | |||
| 1039 | extern void F_FUNC(dgglse,DGGLSE)dgglse_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* ); | |||
| 1040 | extern void F_FUNC(cgglse,CGGLSE)cgglse_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1041 | extern void F_FUNC(zgglse,ZGGLSE)zgglse_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1042 | extern void F_FUNC(sgglse ,SGGLSE )sgglse_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* ); | |||
| 1043 | extern void F_FUNC(dgglse ,DGGLSE )dgglse_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* ); | |||
| 1044 | extern void F_FUNC(cgglse ,CGGLSE )cgglse_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1045 | extern void F_FUNC(zgglse ,ZGGLSE )zgglse_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1046 | extern void F_FUNC(sppcon,SPPCON)sppcon_(char*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* ); | |||
| 1047 | extern void F_FUNC(dppcon,DPPCON)dppcon_(char*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* ); | |||
| 1048 | extern void F_FUNC(cppcon,CPPCON)cppcon_(char*,F_INTint*,complex_float*,float*,float*,complex_float*,float*,F_INTint* ); | |||
| 1049 | extern void F_FUNC(zppcon,ZPPCON)zppcon_(char*,F_INTint*,complex_double*,double*,double*,complex_double*,double*,F_INTint* ); | |||
| 1050 | extern void F_FUNC(sppsv,SPPSV)sppsv_(char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 1051 | extern void F_FUNC(dppsv,DPPSV)dppsv_(char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 1052 | extern void F_FUNC(cppsv,CPPSV)cppsv_(char*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1053 | extern void F_FUNC(zppsv,ZPPSV)zppsv_(char*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1054 | extern void F_FUNC(spptrf,SPPTRF)spptrf_(char*,F_INTint*,float*,F_INTint* ); | |||
| 1055 | extern void F_FUNC(dpptrf,DPPTRF)dpptrf_(char*,F_INTint*,double*,F_INTint* ); | |||
| 1056 | extern void F_FUNC(cpptrf,CPPTRF)cpptrf_(char*,F_INTint*,complex_float*,F_INTint* ); | |||
| 1057 | extern void F_FUNC(zpptrf,ZPPTRF)zpptrf_(char*,F_INTint*,complex_double*,F_INTint* ); | |||
| 1058 | extern void F_FUNC(spptri,SPPTRI)spptri_(char*,F_INTint*,float*,F_INTint* ); | |||
| 1059 | extern void F_FUNC(dpptri,DPPTRI)dpptri_(char*,F_INTint*,double*,F_INTint* ); | |||
| 1060 | extern void F_FUNC(cpptri,CPPTRI)cpptri_(char*,F_INTint*,complex_float*,F_INTint* ); | |||
| 1061 | extern void F_FUNC(zpptri,ZPPTRI)zpptri_(char*,F_INTint*,complex_double*,F_INTint* ); | |||
| 1062 | extern void F_FUNC(spptrs,SPPTRS)spptrs_(char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 1063 | extern void F_FUNC(dpptrs,DPPTRS)dpptrs_(char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 1064 | extern void F_FUNC(cpptrs,CPPTRS)cpptrs_(char*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1065 | extern void F_FUNC(zpptrs,ZPPTRS)zpptrs_(char*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1066 | extern void F_FUNC(ssbev,SSBEV)ssbev_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint* ); | |||
| 1067 | extern void F_FUNC(dsbev,DSBEV)dsbev_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint* ); | |||
| 1068 | extern void F_FUNC(ssbevd,SSBEVD)ssbevd_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1069 | extern void F_FUNC(dsbevd,DSBEVD)dsbevd_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1070 | extern void F_FUNC(ssbevx,SSBEVX)ssbevx_(char*,char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*, F_INTint*,F_INTint*,F_INTint* ); | |||
| 1071 | extern void F_FUNC(dsbevx,DSBEVX)dsbevx_(char*,char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*, F_INTint*,F_INTint*,F_INTint* ); | |||
| 1072 | extern void F_FUNC(sstebz,SSTEBZ)sstebz_(char*,char*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 1073 | extern void F_FUNC(dstebz,DSTEBZ)dstebz_(char*,char*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 1074 | extern void F_FUNC(ssterf,SSTERF)ssterf_(F_INTint*,float*,float*,F_INTint* ); | |||
| 1075 | extern void F_FUNC(dsterf,DSTERF)dsterf_(F_INTint*,double*,double*,F_INTint* ); | |||
| 1076 | extern void F_FUNC(sstein,SSTEIN)sstein_(F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1077 | extern void F_FUNC(dstein,DSTEIN)dstein_(F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1078 | extern void F_FUNC(sstemr,SSTEMR)sstemr_(char*,char*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1079 | extern void F_FUNC(dstemr,DSTEMR)dstemr_(char*,char*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1080 | extern void F_FUNC(cstemr ,CSTEMR )cstemr_(char*,char*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1081 | extern void F_FUNC(zstemr ,ZSTEMR )zstemr_(char*,char*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1082 | extern void F_FUNC(sstev,SSTEV)sstev_(char*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint* ); | |||
| 1083 | extern void F_FUNC(dstev,DSTEV)dstev_(char*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint* ); | |||
| 1084 | extern void F_FUNC(ssfrk,SSFRK)ssfrk_(char*,char*,char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,float*,float* ); | |||
| 1085 | extern void F_FUNC(dsfrk,DSFRK)dsfrk_(char*,char*,char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,double*,double* ); | |||
| 1086 | extern void F_FUNC(chfrk,CHFRK)chfrk_(char*,char*,char*,F_INTint*,F_INTint*,float*,complex_float*,F_INTint*,float*,complex_float* ); | |||
| 1087 | extern void F_FUNC(zhfrk,ZHFRK)zhfrk_(char*,char*,char*,F_INTint*,F_INTint*,double*,complex_double*,F_INTint*,double*,complex_double* ); | |||
| 1088 | extern void F_FUNC(stpttf,STPTTF)stpttf_(char*,char*,F_INTint*,float*,float*,F_INTint* ); | |||
| 1089 | extern void F_FUNC(dtpttf,DTPTTF)dtpttf_(char*,char*,F_INTint*,double*,double*,F_INTint* ); | |||
| 1090 | extern void F_FUNC(ctpttf,CTPTTF)ctpttf_(char*,char*,F_INTint*,complex_float*,complex_float*,F_INTint* ); | |||
| 1091 | extern void F_FUNC(ztpttf,ZTPTTF)ztpttf_(char*,char*,F_INTint*,complex_double*,complex_double*,F_INTint* ); | |||
| 1092 | extern void F_FUNC(stpttr,STPTTR)stpttr_(char*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 1093 | extern void F_FUNC(dtpttr,DTPTTR)dtpttr_(char*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 1094 | extern void F_FUNC(ctpttr,CTPTTR)ctpttr_(char*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1095 | extern void F_FUNC(ztpttr,ZTPTTR)ztpttr_(char*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1096 | extern void F_FUNC(stfttp,STFTTP)stfttp_(char*,char*,F_INTint*,float*,float*,F_INTint* ); | |||
| 1097 | extern void F_FUNC(dtfttp,DTFTTP)dtfttp_(char*,char*,F_INTint*,double*,double*,F_INTint* ); | |||
| 1098 | extern void F_FUNC(ctfttp,CTFTTP)ctfttp_(char*,char*,F_INTint*,complex_float*,complex_float*,F_INTint* ); | |||
| 1099 | extern void F_FUNC(ztfttp,ZTFTTP)ztfttp_(char*,char*,F_INTint*,complex_double*,complex_double*,F_INTint* ); | |||
| 1100 | extern void F_FUNC(stfttr,STFTTR)stfttr_(char*,char*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 1101 | extern void F_FUNC(dtfttr,DTFTTR)dtfttr_(char*,char*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 1102 | extern void F_FUNC(ctfttr,CTFTTR)ctfttr_(char*,char*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1103 | extern void F_FUNC(ztfttr,ZTFTTR)ztfttr_(char*,char*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1104 | extern void F_FUNC(strttf,STRTTF)strttf_(char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint* ); | |||
| 1105 | extern void F_FUNC(dtrttf,DTRTTF)dtrttf_(char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint* ); | |||
| 1106 | extern void F_FUNC(ctrttf,CTRTTF)ctrttf_(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* ); | |||
| 1107 | extern void F_FUNC(ztrttf,ZTRTTF)ztrttf_(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* ); | |||
| 1108 | extern void F_FUNC(strttp,STRTTP)strttp_(char*,F_INTint*,float*,F_INTint*,float*,F_INTint* ); | |||
| 1109 | extern void F_FUNC(dtrttp,DTRTTP)dtrttp_(char*,F_INTint*,double*,F_INTint*,double*,F_INTint* ); | |||
| 1110 | extern void F_FUNC(ctrttp,CTRTTP)ctrttp_(char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* ); | |||
| 1111 | extern void F_FUNC(ztrttp,ZTRTTP)ztrttp_(char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* ); | |||
| 1112 | extern void F_FUNC(stfsm,STFSM)stfsm_(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint* ); | |||
| 1113 | extern void F_FUNC(dtfsm,DTFSM)dtfsm_(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint* ); | |||
| 1114 | extern void F_FUNC(ctfsm,CTFSM)ctfsm_(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint* ); | |||
| 1115 | extern void F_FUNC(ztfsm,ZTFSM)ztfsm_(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint* ); | |||
| 1116 | extern void F_FUNC(spftrf,SPFTRF)spftrf_(char*,char*,F_INTint*,float*,F_INTint* ); | |||
| 1117 | extern void F_FUNC(dpftrf,DPFTRF)dpftrf_(char*,char*,F_INTint*,double*,F_INTint* ); | |||
| 1118 | extern void F_FUNC(cpftrf,CPFTRF)cpftrf_(char*,char*,F_INTint*,complex_float*,F_INTint* ); | |||
| 1119 | extern void F_FUNC(zpftrf,ZPFTRF)zpftrf_(char*,char*,F_INTint*,complex_double*,F_INTint* ); | |||
| 1120 | extern void F_FUNC(spftri,SPFTRI)spftri_(char*,char*,F_INTint*,float*,F_INTint* ); | |||
| 1121 | extern void F_FUNC(dpftri,DPFTRI)dpftri_(char*,char*,F_INTint*,double*,F_INTint* ); | |||
| 1122 | extern void F_FUNC(cpftri,CPFTRI)cpftri_(char*,char*,F_INTint*,complex_float*,F_INTint* ); | |||
| 1123 | extern void F_FUNC(zpftri,ZPFTRI)zpftri_(char*,char*,F_INTint*,complex_double*,F_INTint* ); | |||
| 1124 | extern void F_FUNC(spftrs,SPFTRS)spftrs_(char*,char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 1125 | extern void F_FUNC(dpftrs,DPFTRS)dpftrs_(char*,char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 1126 | extern void F_FUNC(cpftrs,CPFTRS)cpftrs_(char*,char*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1127 | extern void F_FUNC(zpftrs,ZPFTRS)zpftrs_(char*,char*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1128 | extern void F_FUNC(stzrzf,STZRZF)stzrzf_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 1129 | extern void F_FUNC(dtzrzf,DTZRZF)dtzrzf_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 1130 | extern void F_FUNC(ctzrzf,CTZRZF)ctzrzf_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1131 | extern void F_FUNC(ztzrzf,ZTZRZF)ztzrzf_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1132 | extern void F_FUNC(stzrzf ,STZRZF )stzrzf_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* ); | |||
| 1133 | extern void F_FUNC(dtzrzf ,DTZRZF )dtzrzf_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* ); | |||
| 1134 | extern void F_FUNC(ctzrzf ,CTZRZF )ctzrzf_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1135 | extern void F_FUNC(ztzrzf ,ZTZRZF )ztzrzf_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1136 | extern void F_FUNC(slasd4,SLASD4)slasd4_(F_INTint*, F_INTint*, float*, float*, float*, float*, float*, float*, F_INTint* ); | |||
| 1137 | extern void F_FUNC(dlasd4,DLASD4)dlasd4_(F_INTint*, F_INTint*, double*, double*, double*, double*, double*, double*, F_INTint* ); | |||
| 1138 | extern void F_FUNC(slauum,SLAUUM)slauum_(char*,F_INTint*,float*,F_INTint*,F_INTint* ); | |||
| 1139 | extern void F_FUNC(dlauum,DLAUUM)dlauum_(char*,F_INTint*,double*,F_INTint*,F_INTint* ); | |||
| 1140 | extern void F_FUNC(clauum,CLAUUM)clauum_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint* ); | |||
| 1141 | extern void F_FUNC(zlauum,ZLAUUM)zlauum_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint* ); | |||
| 1142 | extern void F_FUNC(slaswp,SLASWP)slaswp_(F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1143 | extern void F_FUNC(dlaswp,DLASWP)dlaswp_(F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1144 | extern void F_FUNC(claswp,CLASWP)claswp_(F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1145 | extern void F_FUNC(zlaswp,ZLASWP)zlaswp_(F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* ); | |||
| 1146 | extern void F_WRAPPEDFUNC(dlamch,DLAMCH)f2pywrapdlamch_(double*,string,size_t); | |||
| 1147 | extern void F_WRAPPEDFUNC(slamch,SLAMCH)f2pywrapslamch_(float*,string,size_t); | |||
| 1148 | extern void F_WRAPPEDFUNC(slange,SLANGE)f2pywrapslange_(float*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float* ); | |||
| 1149 | extern void F_WRAPPEDFUNC(dlange,DLANGE)f2pywrapdlange_(double*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double* ); | |||
| 1150 | extern void F_WRAPPEDFUNC(clange,CLANGE)f2pywrapclange_(float*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float* ); | |||
| 1151 | extern void F_WRAPPEDFUNC(zlange,ZLANGE)f2pywrapzlange_(double*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double* ); | |||
| 1152 | extern void F_FUNC(slarfg,SLARFG)slarfg_(int*,float*,float*,int*,float*,int*); | |||
| 1153 | extern void F_FUNC(dlarfg,DLARFG)dlarfg_(int*,double*,double*,int*,double*,int*); | |||
| 1154 | extern void F_FUNC(clarfg,CLARFG)clarfg_(int*,complex_float*,complex_float*,int*,complex_float*,int*); | |||
| 1155 | extern void F_FUNC(zlarfg,ZLARFG)zlarfg_(int*,complex_double*,complex_double*,int*,complex_double*,int*); | |||
| 1156 | extern void F_FUNC(slarf,SLARF)slarf_(string,int*,int*,float*,int*,float*,float*,int*,float*,int*,size_t); | |||
| 1157 | extern void F_FUNC(dlarf,DLARF)dlarf_(string,int*,int*,double*,int*,double*,double*,int*,double*,int*,size_t); | |||
| 1158 | extern void F_FUNC(clarf,CLARF)clarf_(string,int*,int*,complex_float*,int*,complex_float*,complex_float*,int*,complex_float*,int*,size_t); | |||
| 1159 | extern void F_FUNC(zlarf,ZLARF)zlarf_(string,int*,int*,complex_double*,int*,complex_double*,complex_double*,int*,complex_double*,int*,size_t); | |||
| 1160 | extern void F_FUNC(slartg,SLARTG)slartg_(float*,float*,float*,float*,float*); | |||
| 1161 | extern void F_FUNC(dlartg,DLARTG)dlartg_(double*,double*,double*,double*,double*); | |||
| 1162 | extern void F_FUNC(clartg,CLARTG)clartg_(complex_float*,complex_float*,float*,complex_float*,complex_float*); | |||
| 1163 | extern void F_FUNC(zlartg,ZLARTG)zlartg_(complex_double*,complex_double*,double*,complex_double*,complex_double*); | |||
| 1164 | extern void F_FUNC(crot,CROT)crot_(F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float* ); | |||
| 1165 | extern void F_FUNC(zrot,ZROT)zrot_(F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double* ); | |||
| 1166 | extern void F_FUNC(ilaver,ILAVER)ilaver_(int*,int*,int*); | |||
| 1167 | /*eof externroutines*/ | |||
| 1168 | ||||
| 1169 | /******************** See f2py2e/capi_rules.py: usercode1 ********************/ | |||
| 1170 | ||||
| 1171 | ||||
| 1172 | /******************* See f2py2e/cb_rules.py: buildcallback *******************/ | |||
| 1173 | ||||
| 1174 | /********************* cb_cselect_in_gees__user__routines *********************/ | |||
| 1175 | PyObject *cb_cselect_in_gees__user__routines_capi = NULL((void*)0);/*was Py_None*/ | |||
| 1176 | PyTupleObject *cb_cselect_in_gees__user__routines_args_capi = NULL((void*)0); | |||
| 1177 | int cb_cselect_in_gees__user__routines_nofargs = 0; | |||
| 1178 | jmp_buf cb_cselect_in_gees__user__routines_jmpbuf; | |||
| 1179 | /*typedef int(*cb_cselect_in_gees__user__routines_typedef)(complex_float *);*/ | |||
| 1180 | static int cb_cselect_in_gees__user__routines (complex_float *arg_cb_capi) { | |||
| 1181 | PyTupleObject *capi_arglist = cb_cselect_in_gees__user__routines_args_capi; | |||
| 1182 | PyObject *capi_return = NULL((void*)0); | |||
| 1183 | PyObject *capi_tmp = NULL((void*)0); | |||
| 1184 | PyObject *capi_arglist_list = NULL((void*)0); | |||
| 1185 | int capi_j,capi_i = 0; | |||
| 1186 | int capi_longjmp_ok = 1; | |||
| 1187 | /*decl*/ | |||
| 1188 | int return_value; | |||
| 1189 | complex_float arg=(*arg_cb_capi); | |||
| 1190 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1191 | f2py_cb_start_clock(); | |||
| 1192 | #endif | |||
| 1193 | CFUNCSMESS("cb:Call-back function cb_cselect_in_gees__user__routines (maxnofargs=1(-0))\n"); | |||
| 1194 | CFUNCSMESSPY("cb:cb_cselect_in_gees__user__routines_capi=",cb_cselect_in_gees__user__routines_capi); | |||
| 1195 | if (cb_cselect_in_gees__user__routines_capi==NULL((void*)0)) { | |||
| 1196 | capi_longjmp_ok = 0; | |||
| 1197 | cb_cselect_in_gees__user__routines_capi = PyObject_GetAttrString(_flapack_module,"cselect"); | |||
| 1198 | } | |||
| 1199 | if (cb_cselect_in_gees__user__routines_capi==NULL((void*)0)) { | |||
| 1200 | PyErr_SetString(_flapack_error,"cb: Callback cselect not defined (as an argument or module _flapack attribute).\n"); | |||
| 1201 | goto capi_fail; | |||
| 1202 | } | |||
| 1203 | if (F2PyCapsule_Check(cb_cselect_in_gees__user__routines_capi)) { | |||
| 1204 | cb_cselect_in_gees__user__routines_typedef cb_cselect_in_gees__user__routines_cptr; | |||
| 1205 | cb_cselect_in_gees__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_cselect_in_gees__user__routines_capi); | |||
| 1206 | return_value=(*cb_cselect_in_gees__user__routines_cptr)(arg_cb_capi); | |||
| 1207 | return return_value; | |||
| 1208 | } | |||
| 1209 | if (capi_arglist==NULL((void*)0)) { | |||
| 1210 | capi_longjmp_ok = 0; | |||
| 1211 | capi_tmp = PyObject_GetAttrString(_flapack_module,"cselect_extra_args"); | |||
| 1212 | if (capi_tmp) { | |||
| 1213 | capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp); | |||
| 1214 | if (capi_arglist==NULL((void*)0)) { | |||
| 1215 | PyErr_SetString(_flapack_error,"Failed to convert _flapack.cselect_extra_args to tuple.\n"); | |||
| 1216 | goto capi_fail; | |||
| 1217 | } | |||
| 1218 | } else { | |||
| 1219 | PyErr_Clear(); | |||
| 1220 | capi_arglist = (PyTupleObject *)Py_BuildValue("()"); | |||
| 1221 | } | |||
| 1222 | } | |||
| 1223 | if (capi_arglist == NULL((void*)0)) { | |||
| 1224 | PyErr_SetString(_flapack_error,"Callback cselect argument list is not set.\n"); | |||
| 1225 | goto capi_fail; | |||
| 1226 | } | |||
| 1227 | /*setdims*/ | |||
| 1228 | #ifdef PYPY_VERSION | |||
| 1229 | #define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value) | |||
| 1230 | capi_arglist_list = PySequence_List(capi_arglist); | |||
| 1231 | if (capi_arglist_list == NULL((void*)0)) goto capi_fail; | |||
| 1232 | #else | |||
| 1233 | #define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value) | |||
| 1234 | #endif | |||
| 1235 | /*pyobjfrom*/ | |||
| 1236 | if (cb_cselect_in_gees__user__routines_nofargs>capi_i) | |||
| 1237 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_complex_float1(arg)(PyComplex_FromDoubles(arg.r,arg.i)))) | |||
| 1238 | goto capi_fail; | |||
| 1239 | #undef CAPI_ARGLIST_SETITEM | |||
| 1240 | #ifdef PYPY_VERSION | |||
| 1241 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list); | |||
| 1242 | #else | |||
| 1243 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist); | |||
| 1244 | #endif | |||
| 1245 | CFUNCSMESS("cb:Call-back calling Python function cselect.\n"); | |||
| 1246 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1247 | f2py_cb_start_call_clock(); | |||
| 1248 | #endif | |||
| 1249 | #ifdef PYPY_VERSION | |||
| 1250 | capi_return = PyObject_CallObject(cb_cselect_in_gees__user__routines_capi,(PyObject *)capi_arglist_list); | |||
| 1251 | Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list))); | |||
| 1252 | capi_arglist_list = NULL((void*)0); | |||
| 1253 | #else | |||
| 1254 | capi_return = PyObject_CallObject(cb_cselect_in_gees__user__routines_capi,(PyObject *)capi_arglist); | |||
| 1255 | #endif | |||
| 1256 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1257 | f2py_cb_stop_call_clock(); | |||
| 1258 | #endif | |||
| 1259 | CFUNCSMESSPY("cb:capi_return=",capi_return); | |||
| 1260 | if (capi_return == NULL((void*)0)) { | |||
| 1261 | fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n"); | |||
| 1262 | goto capi_fail; | |||
| 1263 | } | |||
| 1264 | if (capi_return == Py_None(&_Py_NoneStruct)) { | |||
| 1265 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 1266 | capi_return = Py_BuildValue("()"); | |||
| 1267 | } | |||
| 1268 | else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags & ((1UL << 26))) != 0)) { | |||
| 1269 | capi_return = Py_BuildValue("(N)",capi_return); | |||
| 1270 | } | |||
| 1271 | capi_j = PyTuple_Size(capi_return); | |||
| 1272 | capi_i = 0; | |||
| 1273 | /*frompyobj*/ | |||
| 1274 | if (capi_j>capi_i) | |||
| 1275 | GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_cselect_in_gees__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))== ((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value ),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_cselect_in_gees__user__routines to C int\n" ))) goto capi_fail; }; | |||
| 1276 | CFUNCSMESS("cb:cb_cselect_in_gees__user__routines:successful\n"); | |||
| 1277 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 1278 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1279 | f2py_cb_stop_clock(); | |||
| 1280 | #endif | |||
| 1281 | goto capi_return_pt; | |||
| 1282 | capi_fail: | |||
| 1283 | fprintf(stderr,"Call-back cb_cselect_in_gees__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_cselect_in_gees__user__routines failed.\n" ); | |||
| 1284 | Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return))); | |||
| 1285 | Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list))); | |||
| 1286 | if (capi_longjmp_ok) | |||
| 1287 | longjmp(cb_cselect_in_gees__user__routines_jmpbuf,-1); | |||
| 1288 | capi_return_pt: | |||
| 1289 | ; | |||
| 1290 | return return_value; | |||
| 1291 | } | |||
| 1292 | /***************** end of cb_cselect_in_gees__user__routines *****************/ | |||
| 1293 | ||||
| 1294 | ||||
| 1295 | /********************* cb_zselect_in_gees__user__routines *********************/ | |||
| 1296 | PyObject *cb_zselect_in_gees__user__routines_capi = NULL((void*)0);/*was Py_None*/ | |||
| 1297 | PyTupleObject *cb_zselect_in_gees__user__routines_args_capi = NULL((void*)0); | |||
| 1298 | int cb_zselect_in_gees__user__routines_nofargs = 0; | |||
| 1299 | jmp_buf cb_zselect_in_gees__user__routines_jmpbuf; | |||
| 1300 | /*typedef int(*cb_zselect_in_gees__user__routines_typedef)(complex_double *);*/ | |||
| 1301 | static int cb_zselect_in_gees__user__routines (complex_double *arg_cb_capi) { | |||
| 1302 | PyTupleObject *capi_arglist = cb_zselect_in_gees__user__routines_args_capi; | |||
| 1303 | PyObject *capi_return = NULL((void*)0); | |||
| 1304 | PyObject *capi_tmp = NULL((void*)0); | |||
| 1305 | PyObject *capi_arglist_list = NULL((void*)0); | |||
| 1306 | int capi_j,capi_i = 0; | |||
| 1307 | int capi_longjmp_ok = 1; | |||
| 1308 | /*decl*/ | |||
| 1309 | int return_value; | |||
| 1310 | complex_double arg=(*arg_cb_capi); | |||
| 1311 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1312 | f2py_cb_start_clock(); | |||
| 1313 | #endif | |||
| 1314 | CFUNCSMESS("cb:Call-back function cb_zselect_in_gees__user__routines (maxnofargs=1(-0))\n"); | |||
| 1315 | CFUNCSMESSPY("cb:cb_zselect_in_gees__user__routines_capi=",cb_zselect_in_gees__user__routines_capi); | |||
| 1316 | if (cb_zselect_in_gees__user__routines_capi==NULL((void*)0)) { | |||
| 1317 | capi_longjmp_ok = 0; | |||
| 1318 | cb_zselect_in_gees__user__routines_capi = PyObject_GetAttrString(_flapack_module,"zselect"); | |||
| 1319 | } | |||
| 1320 | if (cb_zselect_in_gees__user__routines_capi==NULL((void*)0)) { | |||
| 1321 | PyErr_SetString(_flapack_error,"cb: Callback zselect not defined (as an argument or module _flapack attribute).\n"); | |||
| 1322 | goto capi_fail; | |||
| 1323 | } | |||
| 1324 | if (F2PyCapsule_Check(cb_zselect_in_gees__user__routines_capi)) { | |||
| 1325 | cb_zselect_in_gees__user__routines_typedef cb_zselect_in_gees__user__routines_cptr; | |||
| 1326 | cb_zselect_in_gees__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_zselect_in_gees__user__routines_capi); | |||
| 1327 | return_value=(*cb_zselect_in_gees__user__routines_cptr)(arg_cb_capi); | |||
| 1328 | return return_value; | |||
| 1329 | } | |||
| 1330 | if (capi_arglist==NULL((void*)0)) { | |||
| 1331 | capi_longjmp_ok = 0; | |||
| 1332 | capi_tmp = PyObject_GetAttrString(_flapack_module,"zselect_extra_args"); | |||
| 1333 | if (capi_tmp) { | |||
| 1334 | capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp); | |||
| 1335 | if (capi_arglist==NULL((void*)0)) { | |||
| 1336 | PyErr_SetString(_flapack_error,"Failed to convert _flapack.zselect_extra_args to tuple.\n"); | |||
| 1337 | goto capi_fail; | |||
| 1338 | } | |||
| 1339 | } else { | |||
| 1340 | PyErr_Clear(); | |||
| 1341 | capi_arglist = (PyTupleObject *)Py_BuildValue("()"); | |||
| 1342 | } | |||
| 1343 | } | |||
| 1344 | if (capi_arglist == NULL((void*)0)) { | |||
| 1345 | PyErr_SetString(_flapack_error,"Callback zselect argument list is not set.\n"); | |||
| 1346 | goto capi_fail; | |||
| 1347 | } | |||
| 1348 | /*setdims*/ | |||
| 1349 | #ifdef PYPY_VERSION | |||
| 1350 | #define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value) | |||
| 1351 | capi_arglist_list = PySequence_List(capi_arglist); | |||
| 1352 | if (capi_arglist_list == NULL((void*)0)) goto capi_fail; | |||
| 1353 | #else | |||
| 1354 | #define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value) | |||
| 1355 | #endif | |||
| 1356 | /*pyobjfrom*/ | |||
| 1357 | if (cb_zselect_in_gees__user__routines_nofargs>capi_i) | |||
| 1358 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_complex_double1(arg)(PyComplex_FromDoubles(arg.r,arg.i)))) | |||
| 1359 | goto capi_fail; | |||
| 1360 | #undef CAPI_ARGLIST_SETITEM | |||
| 1361 | #ifdef PYPY_VERSION | |||
| 1362 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list); | |||
| 1363 | #else | |||
| 1364 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist); | |||
| 1365 | #endif | |||
| 1366 | CFUNCSMESS("cb:Call-back calling Python function zselect.\n"); | |||
| 1367 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1368 | f2py_cb_start_call_clock(); | |||
| 1369 | #endif | |||
| 1370 | #ifdef PYPY_VERSION | |||
| 1371 | capi_return = PyObject_CallObject(cb_zselect_in_gees__user__routines_capi,(PyObject *)capi_arglist_list); | |||
| 1372 | Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list))); | |||
| 1373 | capi_arglist_list = NULL((void*)0); | |||
| 1374 | #else | |||
| 1375 | capi_return = PyObject_CallObject(cb_zselect_in_gees__user__routines_capi,(PyObject *)capi_arglist); | |||
| 1376 | #endif | |||
| 1377 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1378 | f2py_cb_stop_call_clock(); | |||
| 1379 | #endif | |||
| 1380 | CFUNCSMESSPY("cb:capi_return=",capi_return); | |||
| 1381 | if (capi_return == NULL((void*)0)) { | |||
| 1382 | fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n"); | |||
| 1383 | goto capi_fail; | |||
| 1384 | } | |||
| 1385 | if (capi_return == Py_None(&_Py_NoneStruct)) { | |||
| 1386 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 1387 | capi_return = Py_BuildValue("()"); | |||
| 1388 | } | |||
| 1389 | else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags & ((1UL << 26))) != 0)) { | |||
| 1390 | capi_return = Py_BuildValue("(N)",capi_return); | |||
| 1391 | } | |||
| 1392 | capi_j = PyTuple_Size(capi_return); | |||
| 1393 | capi_i = 0; | |||
| 1394 | /*frompyobj*/ | |||
| 1395 | if (capi_j>capi_i) | |||
| 1396 | GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_zselect_in_gees__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))== ((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value ),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_zselect_in_gees__user__routines to C int\n" ))) goto capi_fail; }; | |||
| 1397 | CFUNCSMESS("cb:cb_zselect_in_gees__user__routines:successful\n"); | |||
| 1398 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 1399 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1400 | f2py_cb_stop_clock(); | |||
| 1401 | #endif | |||
| 1402 | goto capi_return_pt; | |||
| 1403 | capi_fail: | |||
| 1404 | fprintf(stderr,"Call-back cb_zselect_in_gees__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_zselect_in_gees__user__routines failed.\n" ); | |||
| 1405 | Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return))); | |||
| 1406 | Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list))); | |||
| 1407 | if (capi_longjmp_ok) | |||
| 1408 | longjmp(cb_zselect_in_gees__user__routines_jmpbuf,-1); | |||
| 1409 | capi_return_pt: | |||
| 1410 | ; | |||
| 1411 | return return_value; | |||
| 1412 | } | |||
| 1413 | /***************** end of cb_zselect_in_gees__user__routines *****************/ | |||
| 1414 | ||||
| 1415 | ||||
| 1416 | /********************* cb_sselect_in_gees__user__routines *********************/ | |||
| 1417 | PyObject *cb_sselect_in_gees__user__routines_capi = NULL((void*)0);/*was Py_None*/ | |||
| 1418 | PyTupleObject *cb_sselect_in_gees__user__routines_args_capi = NULL((void*)0); | |||
| 1419 | int cb_sselect_in_gees__user__routines_nofargs = 0; | |||
| 1420 | jmp_buf cb_sselect_in_gees__user__routines_jmpbuf; | |||
| 1421 | /*typedef int(*cb_sselect_in_gees__user__routines_typedef)(float *,float *);*/ | |||
| 1422 | static int cb_sselect_in_gees__user__routines (float *arg1_cb_capi,float *arg2_cb_capi) { | |||
| 1423 | PyTupleObject *capi_arglist = cb_sselect_in_gees__user__routines_args_capi; | |||
| 1424 | PyObject *capi_return = NULL((void*)0); | |||
| 1425 | PyObject *capi_tmp = NULL((void*)0); | |||
| 1426 | PyObject *capi_arglist_list = NULL((void*)0); | |||
| 1427 | int capi_j,capi_i = 0; | |||
| 1428 | int capi_longjmp_ok = 1; | |||
| 1429 | /*decl*/ | |||
| 1430 | int return_value; | |||
| 1431 | float arg1=(*arg1_cb_capi); | |||
| 1432 | float arg2=(*arg2_cb_capi); | |||
| 1433 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1434 | f2py_cb_start_clock(); | |||
| 1435 | #endif | |||
| 1436 | CFUNCSMESS("cb:Call-back function cb_sselect_in_gees__user__routines (maxnofargs=2(-0))\n"); | |||
| 1437 | CFUNCSMESSPY("cb:cb_sselect_in_gees__user__routines_capi=",cb_sselect_in_gees__user__routines_capi); | |||
| 1438 | if (cb_sselect_in_gees__user__routines_capi==NULL((void*)0)) { | |||
| 1439 | capi_longjmp_ok = 0; | |||
| 1440 | cb_sselect_in_gees__user__routines_capi = PyObject_GetAttrString(_flapack_module,"sselect"); | |||
| 1441 | } | |||
| 1442 | if (cb_sselect_in_gees__user__routines_capi==NULL((void*)0)) { | |||
| 1443 | PyErr_SetString(_flapack_error,"cb: Callback sselect not defined (as an argument or module _flapack attribute).\n"); | |||
| 1444 | goto capi_fail; | |||
| 1445 | } | |||
| 1446 | if (F2PyCapsule_Check(cb_sselect_in_gees__user__routines_capi)) { | |||
| 1447 | cb_sselect_in_gees__user__routines_typedef cb_sselect_in_gees__user__routines_cptr; | |||
| 1448 | cb_sselect_in_gees__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_sselect_in_gees__user__routines_capi); | |||
| 1449 | return_value=(*cb_sselect_in_gees__user__routines_cptr)(arg1_cb_capi,arg2_cb_capi); | |||
| 1450 | return return_value; | |||
| 1451 | } | |||
| 1452 | if (capi_arglist==NULL((void*)0)) { | |||
| 1453 | capi_longjmp_ok = 0; | |||
| 1454 | capi_tmp = PyObject_GetAttrString(_flapack_module,"sselect_extra_args"); | |||
| 1455 | if (capi_tmp) { | |||
| 1456 | capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp); | |||
| 1457 | if (capi_arglist==NULL((void*)0)) { | |||
| 1458 | PyErr_SetString(_flapack_error,"Failed to convert _flapack.sselect_extra_args to tuple.\n"); | |||
| 1459 | goto capi_fail; | |||
| 1460 | } | |||
| 1461 | } else { | |||
| 1462 | PyErr_Clear(); | |||
| 1463 | capi_arglist = (PyTupleObject *)Py_BuildValue("()"); | |||
| 1464 | } | |||
| 1465 | } | |||
| 1466 | if (capi_arglist == NULL((void*)0)) { | |||
| 1467 | PyErr_SetString(_flapack_error,"Callback sselect argument list is not set.\n"); | |||
| 1468 | goto capi_fail; | |||
| 1469 | } | |||
| 1470 | /*setdims*/ | |||
| 1471 | #ifdef PYPY_VERSION | |||
| 1472 | #define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value) | |||
| 1473 | capi_arglist_list = PySequence_List(capi_arglist); | |||
| 1474 | if (capi_arglist_list == NULL((void*)0)) goto capi_fail; | |||
| 1475 | #else | |||
| 1476 | #define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value) | |||
| 1477 | #endif | |||
| 1478 | /*pyobjfrom*/ | |||
| 1479 | if (cb_sselect_in_gees__user__routines_nofargs>capi_i) | |||
| 1480 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_float1(arg1)(PyFloat_FromDouble(arg1)))) | |||
| 1481 | goto capi_fail; | |||
| 1482 | if (cb_sselect_in_gees__user__routines_nofargs>capi_i) | |||
| 1483 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_float1(arg2)(PyFloat_FromDouble(arg2)))) | |||
| 1484 | goto capi_fail; | |||
| 1485 | #undef CAPI_ARGLIST_SETITEM | |||
| 1486 | #ifdef PYPY_VERSION | |||
| 1487 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list); | |||
| 1488 | #else | |||
| 1489 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist); | |||
| 1490 | #endif | |||
| 1491 | CFUNCSMESS("cb:Call-back calling Python function sselect.\n"); | |||
| 1492 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1493 | f2py_cb_start_call_clock(); | |||
| 1494 | #endif | |||
| 1495 | #ifdef PYPY_VERSION | |||
| 1496 | capi_return = PyObject_CallObject(cb_sselect_in_gees__user__routines_capi,(PyObject *)capi_arglist_list); | |||
| 1497 | Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list))); | |||
| 1498 | capi_arglist_list = NULL((void*)0); | |||
| 1499 | #else | |||
| 1500 | capi_return = PyObject_CallObject(cb_sselect_in_gees__user__routines_capi,(PyObject *)capi_arglist); | |||
| 1501 | #endif | |||
| 1502 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1503 | f2py_cb_stop_call_clock(); | |||
| 1504 | #endif | |||
| 1505 | CFUNCSMESSPY("cb:capi_return=",capi_return); | |||
| 1506 | if (capi_return == NULL((void*)0)) { | |||
| 1507 | fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n"); | |||
| 1508 | goto capi_fail; | |||
| 1509 | } | |||
| 1510 | if (capi_return == Py_None(&_Py_NoneStruct)) { | |||
| 1511 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 1512 | capi_return = Py_BuildValue("()"); | |||
| 1513 | } | |||
| 1514 | else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags & ((1UL << 26))) != 0)) { | |||
| 1515 | capi_return = Py_BuildValue("(N)",capi_return); | |||
| 1516 | } | |||
| 1517 | capi_j = PyTuple_Size(capi_return); | |||
| 1518 | capi_i = 0; | |||
| 1519 | /*frompyobj*/ | |||
| 1520 | if (capi_j>capi_i) | |||
| 1521 | GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_sselect_in_gees__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))== ((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value ),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_sselect_in_gees__user__routines to C int\n" ))) goto capi_fail; }; | |||
| 1522 | CFUNCSMESS("cb:cb_sselect_in_gees__user__routines:successful\n"); | |||
| 1523 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 1524 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1525 | f2py_cb_stop_clock(); | |||
| 1526 | #endif | |||
| 1527 | goto capi_return_pt; | |||
| 1528 | capi_fail: | |||
| 1529 | fprintf(stderr,"Call-back cb_sselect_in_gees__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_sselect_in_gees__user__routines failed.\n" ); | |||
| 1530 | Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return))); | |||
| 1531 | Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list))); | |||
| 1532 | if (capi_longjmp_ok) | |||
| 1533 | longjmp(cb_sselect_in_gees__user__routines_jmpbuf,-1); | |||
| 1534 | capi_return_pt: | |||
| 1535 | ; | |||
| 1536 | return return_value; | |||
| 1537 | } | |||
| 1538 | /***************** end of cb_sselect_in_gees__user__routines *****************/ | |||
| 1539 | ||||
| 1540 | ||||
| 1541 | /********************* cb_dselect_in_gees__user__routines *********************/ | |||
| 1542 | PyObject *cb_dselect_in_gees__user__routines_capi = NULL((void*)0);/*was Py_None*/ | |||
| 1543 | PyTupleObject *cb_dselect_in_gees__user__routines_args_capi = NULL((void*)0); | |||
| 1544 | int cb_dselect_in_gees__user__routines_nofargs = 0; | |||
| 1545 | jmp_buf cb_dselect_in_gees__user__routines_jmpbuf; | |||
| 1546 | /*typedef int(*cb_dselect_in_gees__user__routines_typedef)(double *,double *);*/ | |||
| 1547 | static int cb_dselect_in_gees__user__routines (double *arg1_cb_capi,double *arg2_cb_capi) { | |||
| 1548 | PyTupleObject *capi_arglist = cb_dselect_in_gees__user__routines_args_capi; | |||
| 1549 | PyObject *capi_return = NULL((void*)0); | |||
| 1550 | PyObject *capi_tmp = NULL((void*)0); | |||
| 1551 | PyObject *capi_arglist_list = NULL((void*)0); | |||
| 1552 | int capi_j,capi_i = 0; | |||
| 1553 | int capi_longjmp_ok = 1; | |||
| 1554 | /*decl*/ | |||
| 1555 | int return_value; | |||
| 1556 | double arg1=(*arg1_cb_capi); | |||
| 1557 | double arg2=(*arg2_cb_capi); | |||
| 1558 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1559 | f2py_cb_start_clock(); | |||
| 1560 | #endif | |||
| 1561 | CFUNCSMESS("cb:Call-back function cb_dselect_in_gees__user__routines (maxnofargs=2(-0))\n"); | |||
| 1562 | CFUNCSMESSPY("cb:cb_dselect_in_gees__user__routines_capi=",cb_dselect_in_gees__user__routines_capi); | |||
| 1563 | if (cb_dselect_in_gees__user__routines_capi==NULL((void*)0)) { | |||
| 1564 | capi_longjmp_ok = 0; | |||
| 1565 | cb_dselect_in_gees__user__routines_capi = PyObject_GetAttrString(_flapack_module,"dselect"); | |||
| 1566 | } | |||
| 1567 | if (cb_dselect_in_gees__user__routines_capi==NULL((void*)0)) { | |||
| 1568 | PyErr_SetString(_flapack_error,"cb: Callback dselect not defined (as an argument or module _flapack attribute).\n"); | |||
| 1569 | goto capi_fail; | |||
| 1570 | } | |||
| 1571 | if (F2PyCapsule_Check(cb_dselect_in_gees__user__routines_capi)) { | |||
| 1572 | cb_dselect_in_gees__user__routines_typedef cb_dselect_in_gees__user__routines_cptr; | |||
| 1573 | cb_dselect_in_gees__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_dselect_in_gees__user__routines_capi); | |||
| 1574 | return_value=(*cb_dselect_in_gees__user__routines_cptr)(arg1_cb_capi,arg2_cb_capi); | |||
| 1575 | return return_value; | |||
| 1576 | } | |||
| 1577 | if (capi_arglist==NULL((void*)0)) { | |||
| 1578 | capi_longjmp_ok = 0; | |||
| 1579 | capi_tmp = PyObject_GetAttrString(_flapack_module,"dselect_extra_args"); | |||
| 1580 | if (capi_tmp) { | |||
| 1581 | capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp); | |||
| 1582 | if (capi_arglist==NULL((void*)0)) { | |||
| 1583 | PyErr_SetString(_flapack_error,"Failed to convert _flapack.dselect_extra_args to tuple.\n"); | |||
| 1584 | goto capi_fail; | |||
| 1585 | } | |||
| 1586 | } else { | |||
| 1587 | PyErr_Clear(); | |||
| 1588 | capi_arglist = (PyTupleObject *)Py_BuildValue("()"); | |||
| 1589 | } | |||
| 1590 | } | |||
| 1591 | if (capi_arglist == NULL((void*)0)) { | |||
| 1592 | PyErr_SetString(_flapack_error,"Callback dselect argument list is not set.\n"); | |||
| 1593 | goto capi_fail; | |||
| 1594 | } | |||
| 1595 | /*setdims*/ | |||
| 1596 | #ifdef PYPY_VERSION | |||
| 1597 | #define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value) | |||
| 1598 | capi_arglist_list = PySequence_List(capi_arglist); | |||
| 1599 | if (capi_arglist_list == NULL((void*)0)) goto capi_fail; | |||
| 1600 | #else | |||
| 1601 | #define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value) | |||
| 1602 | #endif | |||
| 1603 | /*pyobjfrom*/ | |||
| 1604 | if (cb_dselect_in_gees__user__routines_nofargs>capi_i) | |||
| 1605 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_double1(arg1)(PyFloat_FromDouble(arg1)))) | |||
| 1606 | goto capi_fail; | |||
| 1607 | if (cb_dselect_in_gees__user__routines_nofargs>capi_i) | |||
| 1608 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_double1(arg2)(PyFloat_FromDouble(arg2)))) | |||
| 1609 | goto capi_fail; | |||
| 1610 | #undef CAPI_ARGLIST_SETITEM | |||
| 1611 | #ifdef PYPY_VERSION | |||
| 1612 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list); | |||
| 1613 | #else | |||
| 1614 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist); | |||
| 1615 | #endif | |||
| 1616 | CFUNCSMESS("cb:Call-back calling Python function dselect.\n"); | |||
| 1617 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1618 | f2py_cb_start_call_clock(); | |||
| 1619 | #endif | |||
| 1620 | #ifdef PYPY_VERSION | |||
| 1621 | capi_return = PyObject_CallObject(cb_dselect_in_gees__user__routines_capi,(PyObject *)capi_arglist_list); | |||
| 1622 | Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list))); | |||
| 1623 | capi_arglist_list = NULL((void*)0); | |||
| 1624 | #else | |||
| 1625 | capi_return = PyObject_CallObject(cb_dselect_in_gees__user__routines_capi,(PyObject *)capi_arglist); | |||
| 1626 | #endif | |||
| 1627 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1628 | f2py_cb_stop_call_clock(); | |||
| 1629 | #endif | |||
| 1630 | CFUNCSMESSPY("cb:capi_return=",capi_return); | |||
| 1631 | if (capi_return == NULL((void*)0)) { | |||
| 1632 | fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n"); | |||
| 1633 | goto capi_fail; | |||
| 1634 | } | |||
| 1635 | if (capi_return == Py_None(&_Py_NoneStruct)) { | |||
| 1636 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 1637 | capi_return = Py_BuildValue("()"); | |||
| 1638 | } | |||
| 1639 | else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags & ((1UL << 26))) != 0)) { | |||
| 1640 | capi_return = Py_BuildValue("(N)",capi_return); | |||
| 1641 | } | |||
| 1642 | capi_j = PyTuple_Size(capi_return); | |||
| 1643 | capi_i = 0; | |||
| 1644 | /*frompyobj*/ | |||
| 1645 | if (capi_j>capi_i) | |||
| 1646 | GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_dselect_in_gees__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))== ((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value ),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_dselect_in_gees__user__routines to C int\n" ))) goto capi_fail; }; | |||
| 1647 | CFUNCSMESS("cb:cb_dselect_in_gees__user__routines:successful\n"); | |||
| 1648 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 1649 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1650 | f2py_cb_stop_clock(); | |||
| 1651 | #endif | |||
| 1652 | goto capi_return_pt; | |||
| 1653 | capi_fail: | |||
| 1654 | fprintf(stderr,"Call-back cb_dselect_in_gees__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_dselect_in_gees__user__routines failed.\n" ); | |||
| 1655 | Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return))); | |||
| 1656 | Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list))); | |||
| 1657 | if (capi_longjmp_ok) | |||
| 1658 | longjmp(cb_dselect_in_gees__user__routines_jmpbuf,-1); | |||
| 1659 | capi_return_pt: | |||
| 1660 | ; | |||
| 1661 | return return_value; | |||
| 1662 | } | |||
| 1663 | /***************** end of cb_dselect_in_gees__user__routines *****************/ | |||
| 1664 | ||||
| 1665 | ||||
| 1666 | /********************* cb_sselect_in_gges__user__routines *********************/ | |||
| 1667 | PyObject *cb_sselect_in_gges__user__routines_capi = NULL((void*)0);/*was Py_None*/ | |||
| 1668 | PyTupleObject *cb_sselect_in_gges__user__routines_args_capi = NULL((void*)0); | |||
| 1669 | int cb_sselect_in_gges__user__routines_nofargs = 0; | |||
| 1670 | jmp_buf cb_sselect_in_gges__user__routines_jmpbuf; | |||
| 1671 | /*typedef int(*cb_sselect_in_gges__user__routines_typedef)(float *,float *,float *);*/ | |||
| 1672 | static int cb_sselect_in_gges__user__routines (float *alphar_cb_capi,float *alphai_cb_capi,float *beta_cb_capi) { | |||
| 1673 | PyTupleObject *capi_arglist = cb_sselect_in_gges__user__routines_args_capi; | |||
| 1674 | PyObject *capi_return = NULL((void*)0); | |||
| 1675 | PyObject *capi_tmp = NULL((void*)0); | |||
| 1676 | PyObject *capi_arglist_list = NULL((void*)0); | |||
| 1677 | int capi_j,capi_i = 0; | |||
| 1678 | int capi_longjmp_ok = 1; | |||
| 1679 | /*decl*/ | |||
| 1680 | int return_value; | |||
| 1681 | float alphar=(*alphar_cb_capi); | |||
| 1682 | float alphai=(*alphai_cb_capi); | |||
| 1683 | float beta=(*beta_cb_capi); | |||
| 1684 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1685 | f2py_cb_start_clock(); | |||
| 1686 | #endif | |||
| 1687 | CFUNCSMESS("cb:Call-back function cb_sselect_in_gges__user__routines (maxnofargs=3(-0))\n"); | |||
| 1688 | CFUNCSMESSPY("cb:cb_sselect_in_gges__user__routines_capi=",cb_sselect_in_gges__user__routines_capi); | |||
| 1689 | if (cb_sselect_in_gges__user__routines_capi==NULL((void*)0)) { | |||
| 1690 | capi_longjmp_ok = 0; | |||
| 1691 | cb_sselect_in_gges__user__routines_capi = PyObject_GetAttrString(_flapack_module,"sselect"); | |||
| 1692 | } | |||
| 1693 | if (cb_sselect_in_gges__user__routines_capi==NULL((void*)0)) { | |||
| 1694 | PyErr_SetString(_flapack_error,"cb: Callback sselect not defined (as an argument or module _flapack attribute).\n"); | |||
| 1695 | goto capi_fail; | |||
| 1696 | } | |||
| 1697 | if (F2PyCapsule_Check(cb_sselect_in_gges__user__routines_capi)) { | |||
| 1698 | cb_sselect_in_gges__user__routines_typedef cb_sselect_in_gges__user__routines_cptr; | |||
| 1699 | cb_sselect_in_gges__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_sselect_in_gges__user__routines_capi); | |||
| 1700 | return_value=(*cb_sselect_in_gges__user__routines_cptr)(alphar_cb_capi,alphai_cb_capi,beta_cb_capi); | |||
| 1701 | return return_value; | |||
| 1702 | } | |||
| 1703 | if (capi_arglist==NULL((void*)0)) { | |||
| 1704 | capi_longjmp_ok = 0; | |||
| 1705 | capi_tmp = PyObject_GetAttrString(_flapack_module,"sselect_extra_args"); | |||
| 1706 | if (capi_tmp) { | |||
| 1707 | capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp); | |||
| 1708 | if (capi_arglist==NULL((void*)0)) { | |||
| 1709 | PyErr_SetString(_flapack_error,"Failed to convert _flapack.sselect_extra_args to tuple.\n"); | |||
| 1710 | goto capi_fail; | |||
| 1711 | } | |||
| 1712 | } else { | |||
| 1713 | PyErr_Clear(); | |||
| 1714 | capi_arglist = (PyTupleObject *)Py_BuildValue("()"); | |||
| 1715 | } | |||
| 1716 | } | |||
| 1717 | if (capi_arglist == NULL((void*)0)) { | |||
| 1718 | PyErr_SetString(_flapack_error,"Callback sselect argument list is not set.\n"); | |||
| 1719 | goto capi_fail; | |||
| 1720 | } | |||
| 1721 | /*setdims*/ | |||
| 1722 | #ifdef PYPY_VERSION | |||
| 1723 | #define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value) | |||
| 1724 | capi_arglist_list = PySequence_List(capi_arglist); | |||
| 1725 | if (capi_arglist_list == NULL((void*)0)) goto capi_fail; | |||
| 1726 | #else | |||
| 1727 | #define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value) | |||
| 1728 | #endif | |||
| 1729 | /*pyobjfrom*/ | |||
| 1730 | if (cb_sselect_in_gges__user__routines_nofargs>capi_i) | |||
| 1731 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_float1(alphar)(PyFloat_FromDouble(alphar)))) | |||
| 1732 | goto capi_fail; | |||
| 1733 | if (cb_sselect_in_gges__user__routines_nofargs>capi_i) | |||
| 1734 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_float1(alphai)(PyFloat_FromDouble(alphai)))) | |||
| 1735 | goto capi_fail; | |||
| 1736 | if (cb_sselect_in_gges__user__routines_nofargs>capi_i) | |||
| 1737 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_float1(beta)(PyFloat_FromDouble(beta)))) | |||
| 1738 | goto capi_fail; | |||
| 1739 | #undef CAPI_ARGLIST_SETITEM | |||
| 1740 | #ifdef PYPY_VERSION | |||
| 1741 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list); | |||
| 1742 | #else | |||
| 1743 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist); | |||
| 1744 | #endif | |||
| 1745 | CFUNCSMESS("cb:Call-back calling Python function sselect.\n"); | |||
| 1746 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1747 | f2py_cb_start_call_clock(); | |||
| 1748 | #endif | |||
| 1749 | #ifdef PYPY_VERSION | |||
| 1750 | capi_return = PyObject_CallObject(cb_sselect_in_gges__user__routines_capi,(PyObject *)capi_arglist_list); | |||
| 1751 | Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list))); | |||
| 1752 | capi_arglist_list = NULL((void*)0); | |||
| 1753 | #else | |||
| 1754 | capi_return = PyObject_CallObject(cb_sselect_in_gges__user__routines_capi,(PyObject *)capi_arglist); | |||
| 1755 | #endif | |||
| 1756 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1757 | f2py_cb_stop_call_clock(); | |||
| 1758 | #endif | |||
| 1759 | CFUNCSMESSPY("cb:capi_return=",capi_return); | |||
| 1760 | if (capi_return == NULL((void*)0)) { | |||
| 1761 | fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n"); | |||
| 1762 | goto capi_fail; | |||
| 1763 | } | |||
| 1764 | if (capi_return == Py_None(&_Py_NoneStruct)) { | |||
| 1765 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 1766 | capi_return = Py_BuildValue("()"); | |||
| 1767 | } | |||
| 1768 | else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags & ((1UL << 26))) != 0)) { | |||
| 1769 | capi_return = Py_BuildValue("(N)",capi_return); | |||
| 1770 | } | |||
| 1771 | capi_j = PyTuple_Size(capi_return); | |||
| 1772 | capi_i = 0; | |||
| 1773 | /*frompyobj*/ | |||
| 1774 | if (capi_j>capi_i) | |||
| 1775 | GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_sselect_in_gges__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))== ((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value ),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_sselect_in_gges__user__routines to C int\n" ))) goto capi_fail; }; | |||
| 1776 | CFUNCSMESS("cb:cb_sselect_in_gges__user__routines:successful\n"); | |||
| 1777 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 1778 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1779 | f2py_cb_stop_clock(); | |||
| 1780 | #endif | |||
| 1781 | goto capi_return_pt; | |||
| 1782 | capi_fail: | |||
| 1783 | fprintf(stderr,"Call-back cb_sselect_in_gges__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_sselect_in_gges__user__routines failed.\n" ); | |||
| 1784 | Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return))); | |||
| 1785 | Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list))); | |||
| 1786 | if (capi_longjmp_ok) | |||
| 1787 | longjmp(cb_sselect_in_gges__user__routines_jmpbuf,-1); | |||
| 1788 | capi_return_pt: | |||
| 1789 | ; | |||
| 1790 | return return_value; | |||
| 1791 | } | |||
| 1792 | /***************** end of cb_sselect_in_gges__user__routines *****************/ | |||
| 1793 | ||||
| 1794 | ||||
| 1795 | /********************* cb_dselect_in_gges__user__routines *********************/ | |||
| 1796 | PyObject *cb_dselect_in_gges__user__routines_capi = NULL((void*)0);/*was Py_None*/ | |||
| 1797 | PyTupleObject *cb_dselect_in_gges__user__routines_args_capi = NULL((void*)0); | |||
| 1798 | int cb_dselect_in_gges__user__routines_nofargs = 0; | |||
| 1799 | jmp_buf cb_dselect_in_gges__user__routines_jmpbuf; | |||
| 1800 | /*typedef int(*cb_dselect_in_gges__user__routines_typedef)(double *,double *,double *);*/ | |||
| 1801 | static int cb_dselect_in_gges__user__routines (double *alphar_cb_capi,double *alphai_cb_capi,double *beta_cb_capi) { | |||
| 1802 | PyTupleObject *capi_arglist = cb_dselect_in_gges__user__routines_args_capi; | |||
| 1803 | PyObject *capi_return = NULL((void*)0); | |||
| 1804 | PyObject *capi_tmp = NULL((void*)0); | |||
| 1805 | PyObject *capi_arglist_list = NULL((void*)0); | |||
| 1806 | int capi_j,capi_i = 0; | |||
| 1807 | int capi_longjmp_ok = 1; | |||
| 1808 | /*decl*/ | |||
| 1809 | int return_value; | |||
| 1810 | double alphar=(*alphar_cb_capi); | |||
| 1811 | double alphai=(*alphai_cb_capi); | |||
| 1812 | double beta=(*beta_cb_capi); | |||
| 1813 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1814 | f2py_cb_start_clock(); | |||
| 1815 | #endif | |||
| 1816 | CFUNCSMESS("cb:Call-back function cb_dselect_in_gges__user__routines (maxnofargs=3(-0))\n"); | |||
| 1817 | CFUNCSMESSPY("cb:cb_dselect_in_gges__user__routines_capi=",cb_dselect_in_gges__user__routines_capi); | |||
| 1818 | if (cb_dselect_in_gges__user__routines_capi==NULL((void*)0)) { | |||
| 1819 | capi_longjmp_ok = 0; | |||
| 1820 | cb_dselect_in_gges__user__routines_capi = PyObject_GetAttrString(_flapack_module,"dselect"); | |||
| 1821 | } | |||
| 1822 | if (cb_dselect_in_gges__user__routines_capi==NULL((void*)0)) { | |||
| 1823 | PyErr_SetString(_flapack_error,"cb: Callback dselect not defined (as an argument or module _flapack attribute).\n"); | |||
| 1824 | goto capi_fail; | |||
| 1825 | } | |||
| 1826 | if (F2PyCapsule_Check(cb_dselect_in_gges__user__routines_capi)) { | |||
| 1827 | cb_dselect_in_gges__user__routines_typedef cb_dselect_in_gges__user__routines_cptr; | |||
| 1828 | cb_dselect_in_gges__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_dselect_in_gges__user__routines_capi); | |||
| 1829 | return_value=(*cb_dselect_in_gges__user__routines_cptr)(alphar_cb_capi,alphai_cb_capi,beta_cb_capi); | |||
| 1830 | return return_value; | |||
| 1831 | } | |||
| 1832 | if (capi_arglist==NULL((void*)0)) { | |||
| 1833 | capi_longjmp_ok = 0; | |||
| 1834 | capi_tmp = PyObject_GetAttrString(_flapack_module,"dselect_extra_args"); | |||
| 1835 | if (capi_tmp) { | |||
| 1836 | capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp); | |||
| 1837 | if (capi_arglist==NULL((void*)0)) { | |||
| 1838 | PyErr_SetString(_flapack_error,"Failed to convert _flapack.dselect_extra_args to tuple.\n"); | |||
| 1839 | goto capi_fail; | |||
| 1840 | } | |||
| 1841 | } else { | |||
| 1842 | PyErr_Clear(); | |||
| 1843 | capi_arglist = (PyTupleObject *)Py_BuildValue("()"); | |||
| 1844 | } | |||
| 1845 | } | |||
| 1846 | if (capi_arglist == NULL((void*)0)) { | |||
| 1847 | PyErr_SetString(_flapack_error,"Callback dselect argument list is not set.\n"); | |||
| 1848 | goto capi_fail; | |||
| 1849 | } | |||
| 1850 | /*setdims*/ | |||
| 1851 | #ifdef PYPY_VERSION | |||
| 1852 | #define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value) | |||
| 1853 | capi_arglist_list = PySequence_List(capi_arglist); | |||
| 1854 | if (capi_arglist_list == NULL((void*)0)) goto capi_fail; | |||
| 1855 | #else | |||
| 1856 | #define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value) | |||
| 1857 | #endif | |||
| 1858 | /*pyobjfrom*/ | |||
| 1859 | if (cb_dselect_in_gges__user__routines_nofargs>capi_i) | |||
| 1860 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_double1(alphar)(PyFloat_FromDouble(alphar)))) | |||
| 1861 | goto capi_fail; | |||
| 1862 | if (cb_dselect_in_gges__user__routines_nofargs>capi_i) | |||
| 1863 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_double1(alphai)(PyFloat_FromDouble(alphai)))) | |||
| 1864 | goto capi_fail; | |||
| 1865 | if (cb_dselect_in_gges__user__routines_nofargs>capi_i) | |||
| 1866 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_double1(beta)(PyFloat_FromDouble(beta)))) | |||
| 1867 | goto capi_fail; | |||
| 1868 | #undef CAPI_ARGLIST_SETITEM | |||
| 1869 | #ifdef PYPY_VERSION | |||
| 1870 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list); | |||
| 1871 | #else | |||
| 1872 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist); | |||
| 1873 | #endif | |||
| 1874 | CFUNCSMESS("cb:Call-back calling Python function dselect.\n"); | |||
| 1875 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1876 | f2py_cb_start_call_clock(); | |||
| 1877 | #endif | |||
| 1878 | #ifdef PYPY_VERSION | |||
| 1879 | capi_return = PyObject_CallObject(cb_dselect_in_gges__user__routines_capi,(PyObject *)capi_arglist_list); | |||
| 1880 | Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list))); | |||
| 1881 | capi_arglist_list = NULL((void*)0); | |||
| 1882 | #else | |||
| 1883 | capi_return = PyObject_CallObject(cb_dselect_in_gges__user__routines_capi,(PyObject *)capi_arglist); | |||
| 1884 | #endif | |||
| 1885 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1886 | f2py_cb_stop_call_clock(); | |||
| 1887 | #endif | |||
| 1888 | CFUNCSMESSPY("cb:capi_return=",capi_return); | |||
| 1889 | if (capi_return == NULL((void*)0)) { | |||
| 1890 | fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n"); | |||
| 1891 | goto capi_fail; | |||
| 1892 | } | |||
| 1893 | if (capi_return == Py_None(&_Py_NoneStruct)) { | |||
| 1894 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 1895 | capi_return = Py_BuildValue("()"); | |||
| 1896 | } | |||
| 1897 | else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags & ((1UL << 26))) != 0)) { | |||
| 1898 | capi_return = Py_BuildValue("(N)",capi_return); | |||
| 1899 | } | |||
| 1900 | capi_j = PyTuple_Size(capi_return); | |||
| 1901 | capi_i = 0; | |||
| 1902 | /*frompyobj*/ | |||
| 1903 | if (capi_j>capi_i) | |||
| 1904 | GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_dselect_in_gges__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))== ((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value ),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_dselect_in_gges__user__routines to C int\n" ))) goto capi_fail; }; | |||
| 1905 | CFUNCSMESS("cb:cb_dselect_in_gges__user__routines:successful\n"); | |||
| 1906 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 1907 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1908 | f2py_cb_stop_clock(); | |||
| 1909 | #endif | |||
| 1910 | goto capi_return_pt; | |||
| 1911 | capi_fail: | |||
| 1912 | fprintf(stderr,"Call-back cb_dselect_in_gges__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_dselect_in_gges__user__routines failed.\n" ); | |||
| 1913 | Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return))); | |||
| 1914 | Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list))); | |||
| 1915 | if (capi_longjmp_ok) | |||
| 1916 | longjmp(cb_dselect_in_gges__user__routines_jmpbuf,-1); | |||
| 1917 | capi_return_pt: | |||
| 1918 | ; | |||
| 1919 | return return_value; | |||
| 1920 | } | |||
| 1921 | /***************** end of cb_dselect_in_gges__user__routines *****************/ | |||
| 1922 | ||||
| 1923 | ||||
| 1924 | /********************* cb_cselect_in_gges__user__routines *********************/ | |||
| 1925 | PyObject *cb_cselect_in_gges__user__routines_capi = NULL((void*)0);/*was Py_None*/ | |||
| 1926 | PyTupleObject *cb_cselect_in_gges__user__routines_args_capi = NULL((void*)0); | |||
| 1927 | int cb_cselect_in_gges__user__routines_nofargs = 0; | |||
| 1928 | jmp_buf cb_cselect_in_gges__user__routines_jmpbuf; | |||
| 1929 | /*typedef int(*cb_cselect_in_gges__user__routines_typedef)(complex_float *,complex_float *);*/ | |||
| 1930 | static int cb_cselect_in_gges__user__routines (complex_float *alpha_cb_capi,complex_float *beta_cb_capi) { | |||
| 1931 | PyTupleObject *capi_arglist = cb_cselect_in_gges__user__routines_args_capi; | |||
| 1932 | PyObject *capi_return = NULL((void*)0); | |||
| 1933 | PyObject *capi_tmp = NULL((void*)0); | |||
| 1934 | PyObject *capi_arglist_list = NULL((void*)0); | |||
| 1935 | int capi_j,capi_i = 0; | |||
| 1936 | int capi_longjmp_ok = 1; | |||
| 1937 | /*decl*/ | |||
| 1938 | int return_value; | |||
| 1939 | complex_float alpha=(*alpha_cb_capi); | |||
| 1940 | complex_float beta=(*beta_cb_capi); | |||
| 1941 | #ifdef F2PY_REPORT_ATEXIT | |||
| 1942 | f2py_cb_start_clock(); | |||
| 1943 | #endif | |||
| 1944 | CFUNCSMESS("cb:Call-back function cb_cselect_in_gges__user__routines (maxnofargs=2(-0))\n"); | |||
| 1945 | CFUNCSMESSPY("cb:cb_cselect_in_gges__user__routines_capi=",cb_cselect_in_gges__user__routines_capi); | |||
| 1946 | if (cb_cselect_in_gges__user__routines_capi==NULL((void*)0)) { | |||
| 1947 | capi_longjmp_ok = 0; | |||
| 1948 | cb_cselect_in_gges__user__routines_capi = PyObject_GetAttrString(_flapack_module,"cselect"); | |||
| 1949 | } | |||
| 1950 | if (cb_cselect_in_gges__user__routines_capi==NULL((void*)0)) { | |||
| 1951 | PyErr_SetString(_flapack_error,"cb: Callback cselect not defined (as an argument or module _flapack attribute).\n"); | |||
| 1952 | goto capi_fail; | |||
| 1953 | } | |||
| 1954 | if (F2PyCapsule_Check(cb_cselect_in_gges__user__routines_capi)) { | |||
| 1955 | cb_cselect_in_gges__user__routines_typedef cb_cselect_in_gges__user__routines_cptr; | |||
| 1956 | cb_cselect_in_gges__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_cselect_in_gges__user__routines_capi); | |||
| 1957 | return_value=(*cb_cselect_in_gges__user__routines_cptr)(alpha_cb_capi,beta_cb_capi); | |||
| 1958 | return return_value; | |||
| 1959 | } | |||
| 1960 | if (capi_arglist==NULL((void*)0)) { | |||
| 1961 | capi_longjmp_ok = 0; | |||
| 1962 | capi_tmp = PyObject_GetAttrString(_flapack_module,"cselect_extra_args"); | |||
| 1963 | if (capi_tmp) { | |||
| 1964 | capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp); | |||
| 1965 | if (capi_arglist==NULL((void*)0)) { | |||
| 1966 | PyErr_SetString(_flapack_error,"Failed to convert _flapack.cselect_extra_args to tuple.\n"); | |||
| 1967 | goto capi_fail; | |||
| 1968 | } | |||
| 1969 | } else { | |||
| 1970 | PyErr_Clear(); | |||
| 1971 | capi_arglist = (PyTupleObject *)Py_BuildValue("()"); | |||
| 1972 | } | |||
| 1973 | } | |||
| 1974 | if (capi_arglist == NULL((void*)0)) { | |||
| 1975 | PyErr_SetString(_flapack_error,"Callback cselect argument list is not set.\n"); | |||
| 1976 | goto capi_fail; | |||
| 1977 | } | |||
| 1978 | /*setdims*/ | |||
| 1979 | #ifdef PYPY_VERSION | |||
| 1980 | #define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value) | |||
| 1981 | capi_arglist_list = PySequence_List(capi_arglist); | |||
| 1982 | if (capi_arglist_list == NULL((void*)0)) goto capi_fail; | |||
| 1983 | #else | |||
| 1984 | #define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value) | |||
| 1985 | #endif | |||
| 1986 | /*pyobjfrom*/ | |||
| 1987 | if (cb_cselect_in_gges__user__routines_nofargs>capi_i) | |||
| 1988 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_complex_float1(alpha)(PyComplex_FromDoubles(alpha.r,alpha.i)))) | |||
| 1989 | goto capi_fail; | |||
| 1990 | if (cb_cselect_in_gges__user__routines_nofargs>capi_i) | |||
| 1991 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_complex_float1(beta)(PyComplex_FromDoubles(beta.r,beta.i)))) | |||
| 1992 | goto capi_fail; | |||
| 1993 | #undef CAPI_ARGLIST_SETITEM | |||
| 1994 | #ifdef PYPY_VERSION | |||
| 1995 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list); | |||
| 1996 | #else | |||
| 1997 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist); | |||
| 1998 | #endif | |||
| 1999 | CFUNCSMESS("cb:Call-back calling Python function cselect.\n"); | |||
| 2000 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2001 | f2py_cb_start_call_clock(); | |||
| 2002 | #endif | |||
| 2003 | #ifdef PYPY_VERSION | |||
| 2004 | capi_return = PyObject_CallObject(cb_cselect_in_gges__user__routines_capi,(PyObject *)capi_arglist_list); | |||
| 2005 | Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list))); | |||
| 2006 | capi_arglist_list = NULL((void*)0); | |||
| 2007 | #else | |||
| 2008 | capi_return = PyObject_CallObject(cb_cselect_in_gges__user__routines_capi,(PyObject *)capi_arglist); | |||
| 2009 | #endif | |||
| 2010 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2011 | f2py_cb_stop_call_clock(); | |||
| 2012 | #endif | |||
| 2013 | CFUNCSMESSPY("cb:capi_return=",capi_return); | |||
| 2014 | if (capi_return == NULL((void*)0)) { | |||
| 2015 | fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n"); | |||
| 2016 | goto capi_fail; | |||
| 2017 | } | |||
| 2018 | if (capi_return == Py_None(&_Py_NoneStruct)) { | |||
| 2019 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 2020 | capi_return = Py_BuildValue("()"); | |||
| 2021 | } | |||
| 2022 | else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags & ((1UL << 26))) != 0)) { | |||
| 2023 | capi_return = Py_BuildValue("(N)",capi_return); | |||
| 2024 | } | |||
| 2025 | capi_j = PyTuple_Size(capi_return); | |||
| 2026 | capi_i = 0; | |||
| 2027 | /*frompyobj*/ | |||
| 2028 | if (capi_j>capi_i) | |||
| 2029 | GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_cselect_in_gges__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))== ((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value ),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_cselect_in_gges__user__routines to C int\n" ))) goto capi_fail; }; | |||
| 2030 | CFUNCSMESS("cb:cb_cselect_in_gges__user__routines:successful\n"); | |||
| 2031 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 2032 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2033 | f2py_cb_stop_clock(); | |||
| 2034 | #endif | |||
| 2035 | goto capi_return_pt; | |||
| 2036 | capi_fail: | |||
| 2037 | fprintf(stderr,"Call-back cb_cselect_in_gges__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_cselect_in_gges__user__routines failed.\n" ); | |||
| 2038 | Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return))); | |||
| 2039 | Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list))); | |||
| 2040 | if (capi_longjmp_ok) | |||
| 2041 | longjmp(cb_cselect_in_gges__user__routines_jmpbuf,-1); | |||
| 2042 | capi_return_pt: | |||
| 2043 | ; | |||
| 2044 | return return_value; | |||
| 2045 | } | |||
| 2046 | /***************** end of cb_cselect_in_gges__user__routines *****************/ | |||
| 2047 | ||||
| 2048 | ||||
| 2049 | /********************* cb_zselect_in_gges__user__routines *********************/ | |||
| 2050 | PyObject *cb_zselect_in_gges__user__routines_capi = NULL((void*)0);/*was Py_None*/ | |||
| 2051 | PyTupleObject *cb_zselect_in_gges__user__routines_args_capi = NULL((void*)0); | |||
| 2052 | int cb_zselect_in_gges__user__routines_nofargs = 0; | |||
| 2053 | jmp_buf cb_zselect_in_gges__user__routines_jmpbuf; | |||
| 2054 | /*typedef int(*cb_zselect_in_gges__user__routines_typedef)(complex_double *,complex_double *);*/ | |||
| 2055 | static int cb_zselect_in_gges__user__routines (complex_double *alpha_cb_capi,complex_double *beta_cb_capi) { | |||
| 2056 | PyTupleObject *capi_arglist = cb_zselect_in_gges__user__routines_args_capi; | |||
| 2057 | PyObject *capi_return = NULL((void*)0); | |||
| 2058 | PyObject *capi_tmp = NULL((void*)0); | |||
| 2059 | PyObject *capi_arglist_list = NULL((void*)0); | |||
| 2060 | int capi_j,capi_i = 0; | |||
| 2061 | int capi_longjmp_ok = 1; | |||
| 2062 | /*decl*/ | |||
| 2063 | int return_value; | |||
| 2064 | complex_double alpha=(*alpha_cb_capi); | |||
| 2065 | complex_double beta=(*beta_cb_capi); | |||
| 2066 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2067 | f2py_cb_start_clock(); | |||
| 2068 | #endif | |||
| 2069 | CFUNCSMESS("cb:Call-back function cb_zselect_in_gges__user__routines (maxnofargs=2(-0))\n"); | |||
| 2070 | CFUNCSMESSPY("cb:cb_zselect_in_gges__user__routines_capi=",cb_zselect_in_gges__user__routines_capi); | |||
| 2071 | if (cb_zselect_in_gges__user__routines_capi==NULL((void*)0)) { | |||
| 2072 | capi_longjmp_ok = 0; | |||
| 2073 | cb_zselect_in_gges__user__routines_capi = PyObject_GetAttrString(_flapack_module,"zselect"); | |||
| 2074 | } | |||
| 2075 | if (cb_zselect_in_gges__user__routines_capi==NULL((void*)0)) { | |||
| 2076 | PyErr_SetString(_flapack_error,"cb: Callback zselect not defined (as an argument or module _flapack attribute).\n"); | |||
| 2077 | goto capi_fail; | |||
| 2078 | } | |||
| 2079 | if (F2PyCapsule_Check(cb_zselect_in_gges__user__routines_capi)) { | |||
| 2080 | cb_zselect_in_gges__user__routines_typedef cb_zselect_in_gges__user__routines_cptr; | |||
| 2081 | cb_zselect_in_gges__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_zselect_in_gges__user__routines_capi); | |||
| 2082 | return_value=(*cb_zselect_in_gges__user__routines_cptr)(alpha_cb_capi,beta_cb_capi); | |||
| 2083 | return return_value; | |||
| 2084 | } | |||
| 2085 | if (capi_arglist==NULL((void*)0)) { | |||
| 2086 | capi_longjmp_ok = 0; | |||
| 2087 | capi_tmp = PyObject_GetAttrString(_flapack_module,"zselect_extra_args"); | |||
| 2088 | if (capi_tmp) { | |||
| 2089 | capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp); | |||
| 2090 | if (capi_arglist==NULL((void*)0)) { | |||
| 2091 | PyErr_SetString(_flapack_error,"Failed to convert _flapack.zselect_extra_args to tuple.\n"); | |||
| 2092 | goto capi_fail; | |||
| 2093 | } | |||
| 2094 | } else { | |||
| 2095 | PyErr_Clear(); | |||
| 2096 | capi_arglist = (PyTupleObject *)Py_BuildValue("()"); | |||
| 2097 | } | |||
| 2098 | } | |||
| 2099 | if (capi_arglist == NULL((void*)0)) { | |||
| 2100 | PyErr_SetString(_flapack_error,"Callback zselect argument list is not set.\n"); | |||
| 2101 | goto capi_fail; | |||
| 2102 | } | |||
| 2103 | /*setdims*/ | |||
| 2104 | #ifdef PYPY_VERSION | |||
| 2105 | #define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value) | |||
| 2106 | capi_arglist_list = PySequence_List(capi_arglist); | |||
| 2107 | if (capi_arglist_list == NULL((void*)0)) goto capi_fail; | |||
| 2108 | #else | |||
| 2109 | #define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value) | |||
| 2110 | #endif | |||
| 2111 | /*pyobjfrom*/ | |||
| 2112 | if (cb_zselect_in_gges__user__routines_nofargs>capi_i) | |||
| 2113 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_complex_double1(alpha)(PyComplex_FromDoubles(alpha.r,alpha.i)))) | |||
| 2114 | goto capi_fail; | |||
| 2115 | if (cb_zselect_in_gges__user__routines_nofargs>capi_i) | |||
| 2116 | if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_complex_double1(beta)(PyComplex_FromDoubles(beta.r,beta.i)))) | |||
| 2117 | goto capi_fail; | |||
| 2118 | #undef CAPI_ARGLIST_SETITEM | |||
| 2119 | #ifdef PYPY_VERSION | |||
| 2120 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list); | |||
| 2121 | #else | |||
| 2122 | CFUNCSMESSPY("cb:capi_arglist=",capi_arglist); | |||
| 2123 | #endif | |||
| 2124 | CFUNCSMESS("cb:Call-back calling Python function zselect.\n"); | |||
| 2125 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2126 | f2py_cb_start_call_clock(); | |||
| 2127 | #endif | |||
| 2128 | #ifdef PYPY_VERSION | |||
| 2129 | capi_return = PyObject_CallObject(cb_zselect_in_gges__user__routines_capi,(PyObject *)capi_arglist_list); | |||
| 2130 | Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list))); | |||
| 2131 | capi_arglist_list = NULL((void*)0); | |||
| 2132 | #else | |||
| 2133 | capi_return = PyObject_CallObject(cb_zselect_in_gges__user__routines_capi,(PyObject *)capi_arglist); | |||
| 2134 | #endif | |||
| 2135 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2136 | f2py_cb_stop_call_clock(); | |||
| 2137 | #endif | |||
| 2138 | CFUNCSMESSPY("cb:capi_return=",capi_return); | |||
| 2139 | if (capi_return == NULL((void*)0)) { | |||
| 2140 | fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n"); | |||
| 2141 | goto capi_fail; | |||
| 2142 | } | |||
| 2143 | if (capi_return == Py_None(&_Py_NoneStruct)) { | |||
| 2144 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 2145 | capi_return = Py_BuildValue("()"); | |||
| 2146 | } | |||
| 2147 | else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags & ((1UL << 26))) != 0)) { | |||
| 2148 | capi_return = Py_BuildValue("(N)",capi_return); | |||
| 2149 | } | |||
| 2150 | capi_j = PyTuple_Size(capi_return); | |||
| 2151 | capi_i = 0; | |||
| 2152 | /*frompyobj*/ | |||
| 2153 | if (capi_j>capi_i) | |||
| 2154 | GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_zselect_in_gges__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))== ((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value ),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_zselect_in_gges__user__routines to C int\n" ))) goto capi_fail; }; | |||
| 2155 | CFUNCSMESS("cb:cb_zselect_in_gges__user__routines:successful\n"); | |||
| 2156 | Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return))); | |||
| 2157 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2158 | f2py_cb_stop_clock(); | |||
| 2159 | #endif | |||
| 2160 | goto capi_return_pt; | |||
| 2161 | capi_fail: | |||
| 2162 | fprintf(stderr,"Call-back cb_zselect_in_gges__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_zselect_in_gges__user__routines failed.\n" ); | |||
| 2163 | Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return))); | |||
| 2164 | Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list))); | |||
| 2165 | if (capi_longjmp_ok) | |||
| 2166 | longjmp(cb_zselect_in_gges__user__routines_jmpbuf,-1); | |||
| 2167 | capi_return_pt: | |||
| 2168 | ; | |||
| 2169 | return return_value; | |||
| 2170 | } | |||
| 2171 | /***************** end of cb_zselect_in_gges__user__routines *****************/ | |||
| 2172 | ||||
| 2173 | ||||
| 2174 | /*********************** See f2py2e/rules.py: buildapi ***********************/ | |||
| 2175 | ||||
| 2176 | /*********************************** sgebal ***********************************/ | |||
| 2177 | static char doc_f2py_rout__flapack_sgebal[] = "\ | |||
| 2178 | ba,lo,hi,pivscale,info = sgebal(a,[scale,permute,overwrite_a])\n\nWrapper for ``sgebal``.\ | |||
| 2179 | \n\nParameters\n----------\n" | |||
| 2180 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 2181 | "\nOther Parameters\n----------------\n" | |||
| 2182 | "scale : input int, optional\n Default: 0\n" | |||
| 2183 | "permute : input int, optional\n Default: 0\n" | |||
| 2184 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 2185 | "\nReturns\n-------\n" | |||
| 2186 | "ba : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 2187 | "lo : int\n" | |||
| 2188 | "hi : int\n" | |||
| 2189 | "pivscale : rank-1 array('f') with bounds (n)\n" | |||
| 2190 | "info : int"; | |||
| 2191 | /* extern void F_FUNC(sgebal,SGEBAL)(char*,F_INT*,float*,F_INT*,F_INT*,F_INT*,float*,F_INT* ); */ | |||
| 2192 | static PyObject *f2py_rout__flapack_sgebal(const PyObject *capi_self, | |||
| 2193 | PyObject *capi_args, | |||
| 2194 | PyObject *capi_keywds, | |||
| 2195 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint* )) { | |||
| 2196 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 2197 | volatile int f2py_success = 1; | |||
| 2198 | /*decl*/ | |||
| 2199 | ||||
| 2200 | int scale = 0; | |||
| 2201 | PyObject *scale_capi = Py_None(&_Py_NoneStruct); | |||
| 2202 | int permute = 0; | |||
| 2203 | PyObject *permute_capi = Py_None(&_Py_NoneStruct); | |||
| 2204 | int n = 0; | |||
| 2205 | float *a = NULL((void*)0); | |||
| 2206 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 2207 | const int a_Rank = 2; | |||
| 2208 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 2209 | int capi_a_intent = 0; | |||
| 2210 | int capi_overwrite_a = 0; | |||
| 2211 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 2212 | int m = 0; | |||
| 2213 | int lo = 0; | |||
| 2214 | int hi = 0; | |||
| 2215 | float *pivscale = NULL((void*)0); | |||
| 2216 | npy_intp pivscale_Dims[1] = {-1}; | |||
| 2217 | const int pivscale_Rank = 1; | |||
| 2218 | PyArrayObject *capi_pivscale_tmp = NULL((void*)0); | |||
| 2219 | int capi_pivscale_intent = 0; | |||
| 2220 | int info = 0; | |||
| 2221 | static char *capi_kwlist[] = {"a","scale","permute","overwrite_a",NULL((void*)0)}; | |||
| 2222 | ||||
| 2223 | /*routdebugenter*/ | |||
| 2224 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2225 | f2py_start_clock(); | |||
| 2226 | #endif | |||
| 2227 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 2228 | "O|OOi:_flapack.sgebal",\ | |||
| 2229 | capi_kwlist,&a_capi,&scale_capi,&permute_capi,&capi_overwrite_a)) | |||
| 2230 | return NULL((void*)0); | |||
| 2231 | /*frompyobj*/ | |||
| 2232 | /* Processing variable permute */ | |||
| 2233 | if (permute_capi == Py_None(&_Py_NoneStruct)) permute = 0; else | |||
| 2234 | f2py_success = int_from_pyobj(&permute,permute_capi,"_flapack.sgebal() 2nd keyword (permute) can't be converted to int"); | |||
| 2235 | if (f2py_success) { | |||
| 2236 | /* Processing variable scale */ | |||
| 2237 | if (scale_capi == Py_None(&_Py_NoneStruct)) scale = 0; else | |||
| 2238 | f2py_success = int_from_pyobj(&scale,scale_capi,"_flapack.sgebal() 1st keyword (scale) can't be converted to int"); | |||
| 2239 | if (f2py_success) { | |||
| 2240 | /* Processing variable hi */ | |||
| 2241 | /* Processing variable lo */ | |||
| 2242 | /* Processing variable a */ | |||
| 2243 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 2244 | ; | |||
| 2245 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 2246 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 2247 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 2248 | if (!PyErr_Occurred()) | |||
| 2249 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgebal to C/Fortran array" ); | |||
| 2250 | } else { | |||
| 2251 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 2252 | ||||
| 2253 | /* Processing variable info */ | |||
| 2254 | /* Processing variable n */ | |||
| 2255 | n = shape(a,1)a_Dims[1]; | |||
| 2256 | /* Processing variable pivscale */ | |||
| 2257 | pivscale_Dims[0]=n; | |||
| 2258 | capi_pivscale_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 2259 | capi_pivscale_tmp = array_from_pyobj(NPY_FLOAT,pivscale_Dims,pivscale_Rank,capi_pivscale_intent,Py_None(&_Py_NoneStruct)); | |||
| 2260 | if (capi_pivscale_tmp == NULL((void*)0)) { | |||
| 2261 | if (!PyErr_Occurred()) | |||
| 2262 | PyErr_SetString(_flapack_error,"failed in converting hidden `pivscale' of _flapack.sgebal to C/Fortran array" ); | |||
| 2263 | } else { | |||
| 2264 | pivscale = (float *)(PyArray_DATA(capi_pivscale_tmp)((void *)((PyArrayObject_fields *)(capi_pivscale_tmp))->data )); | |||
| 2265 | ||||
| 2266 | /* Processing variable m */ | |||
| 2267 | m = shape(a,0)a_Dims[0]; | |||
| 2268 | CHECKSCALAR(m>=n,"m>=n","hidden m","sgebal:m=%d",m)if (!(m>=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgebal:m=%d", "(""m>=n"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 2269 | /*end of frompyobj*/ | |||
| 2270 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2271 | f2py_start_call_clock(); | |||
| 2272 | #endif | |||
| 2273 | /*callfortranroutine*/ | |||
| 2274 | { (*f2py_func)((permute?(scale?"B":"P"):(scale?"S":"N")),&n,a,&m,&lo,&hi,pivscale,&info); hi--; lo--; } ; | |||
| 2275 | /*(*f2py_func)(&scale,&permute,&n,a,&m,&lo,&hi,pivscale,&info);*/ | |||
| 2276 | if (PyErr_Occurred()) | |||
| 2277 | f2py_success = 0; | |||
| 2278 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2279 | f2py_stop_call_clock(); | |||
| 2280 | #endif | |||
| 2281 | /*end of callfortranroutine*/ | |||
| 2282 | if (f2py_success) { | |||
| 2283 | /*pyobjfrom*/ | |||
| 2284 | /*end of pyobjfrom*/ | |||
| 2285 | CFUNCSMESS("Building return value.\n"); | |||
| 2286 | capi_buildvalue = Py_BuildValue("NiiNi",capi_a_tmp,lo,hi,capi_pivscale_tmp,info); | |||
| 2287 | /*closepyobjfrom*/ | |||
| 2288 | /*end of closepyobjfrom*/ | |||
| 2289 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 2290 | /*cleanupfrompyobj*/ | |||
| 2291 | } /*CHECKSCALAR(m>=n)*/ | |||
| 2292 | /* End of cleaning variable m */ | |||
| 2293 | } /*if (capi_pivscale_tmp == NULL) ... else of pivscale*/ | |||
| 2294 | /* End of cleaning variable pivscale */ | |||
| 2295 | /* End of cleaning variable n */ | |||
| 2296 | /* End of cleaning variable info */ | |||
| 2297 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 2298 | /* End of cleaning variable a */ | |||
| 2299 | /* End of cleaning variable lo */ | |||
| 2300 | /* End of cleaning variable hi */ | |||
| 2301 | } /*if (f2py_success) of scale*/ | |||
| 2302 | /* End of cleaning variable scale */ | |||
| 2303 | } /*if (f2py_success) of permute*/ | |||
| 2304 | /* End of cleaning variable permute */ | |||
| 2305 | /*end of cleanupfrompyobj*/ | |||
| 2306 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 2307 | /*routdebugfailure*/ | |||
| 2308 | } else { | |||
| 2309 | /*routdebugleave*/ | |||
| 2310 | } | |||
| 2311 | CFUNCSMESS("Freeing memory.\n"); | |||
| 2312 | /*freemem*/ | |||
| 2313 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2314 | f2py_stop_clock(); | |||
| 2315 | #endif | |||
| 2316 | return capi_buildvalue; | |||
| 2317 | } | |||
| 2318 | /******************************* end of sgebal *******************************/ | |||
| 2319 | ||||
| 2320 | /*********************************** dgebal ***********************************/ | |||
| 2321 | static char doc_f2py_rout__flapack_dgebal[] = "\ | |||
| 2322 | ba,lo,hi,pivscale,info = dgebal(a,[scale,permute,overwrite_a])\n\nWrapper for ``dgebal``.\ | |||
| 2323 | \n\nParameters\n----------\n" | |||
| 2324 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 2325 | "\nOther Parameters\n----------------\n" | |||
| 2326 | "scale : input int, optional\n Default: 0\n" | |||
| 2327 | "permute : input int, optional\n Default: 0\n" | |||
| 2328 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 2329 | "\nReturns\n-------\n" | |||
| 2330 | "ba : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 2331 | "lo : int\n" | |||
| 2332 | "hi : int\n" | |||
| 2333 | "pivscale : rank-1 array('d') with bounds (n)\n" | |||
| 2334 | "info : int"; | |||
| 2335 | /* extern void F_FUNC(dgebal,DGEBAL)(char*,F_INT*,double*,F_INT*,F_INT*,F_INT*,double*,F_INT* ); */ | |||
| 2336 | static PyObject *f2py_rout__flapack_dgebal(const PyObject *capi_self, | |||
| 2337 | PyObject *capi_args, | |||
| 2338 | PyObject *capi_keywds, | |||
| 2339 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint* )) { | |||
| 2340 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 2341 | volatile int f2py_success = 1; | |||
| 2342 | /*decl*/ | |||
| 2343 | ||||
| 2344 | int scale = 0; | |||
| 2345 | PyObject *scale_capi = Py_None(&_Py_NoneStruct); | |||
| 2346 | int permute = 0; | |||
| 2347 | PyObject *permute_capi = Py_None(&_Py_NoneStruct); | |||
| 2348 | int n = 0; | |||
| 2349 | double *a = NULL((void*)0); | |||
| 2350 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 2351 | const int a_Rank = 2; | |||
| 2352 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 2353 | int capi_a_intent = 0; | |||
| 2354 | int capi_overwrite_a = 0; | |||
| 2355 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 2356 | int m = 0; | |||
| 2357 | int lo = 0; | |||
| 2358 | int hi = 0; | |||
| 2359 | double *pivscale = NULL((void*)0); | |||
| 2360 | npy_intp pivscale_Dims[1] = {-1}; | |||
| 2361 | const int pivscale_Rank = 1; | |||
| 2362 | PyArrayObject *capi_pivscale_tmp = NULL((void*)0); | |||
| 2363 | int capi_pivscale_intent = 0; | |||
| 2364 | int info = 0; | |||
| 2365 | static char *capi_kwlist[] = {"a","scale","permute","overwrite_a",NULL((void*)0)}; | |||
| 2366 | ||||
| 2367 | /*routdebugenter*/ | |||
| 2368 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2369 | f2py_start_clock(); | |||
| 2370 | #endif | |||
| 2371 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 2372 | "O|OOi:_flapack.dgebal",\ | |||
| 2373 | capi_kwlist,&a_capi,&scale_capi,&permute_capi,&capi_overwrite_a)) | |||
| 2374 | return NULL((void*)0); | |||
| 2375 | /*frompyobj*/ | |||
| 2376 | /* Processing variable permute */ | |||
| 2377 | if (permute_capi == Py_None(&_Py_NoneStruct)) permute = 0; else | |||
| 2378 | f2py_success = int_from_pyobj(&permute,permute_capi,"_flapack.dgebal() 2nd keyword (permute) can't be converted to int"); | |||
| 2379 | if (f2py_success) { | |||
| 2380 | /* Processing variable scale */ | |||
| 2381 | if (scale_capi == Py_None(&_Py_NoneStruct)) scale = 0; else | |||
| 2382 | f2py_success = int_from_pyobj(&scale,scale_capi,"_flapack.dgebal() 1st keyword (scale) can't be converted to int"); | |||
| 2383 | if (f2py_success) { | |||
| 2384 | /* Processing variable hi */ | |||
| 2385 | /* Processing variable lo */ | |||
| 2386 | /* Processing variable a */ | |||
| 2387 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 2388 | ; | |||
| 2389 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 2390 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 2391 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 2392 | if (!PyErr_Occurred()) | |||
| 2393 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgebal to C/Fortran array" ); | |||
| 2394 | } else { | |||
| 2395 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 2396 | ||||
| 2397 | /* Processing variable info */ | |||
| 2398 | /* Processing variable n */ | |||
| 2399 | n = shape(a,1)a_Dims[1]; | |||
| 2400 | /* Processing variable pivscale */ | |||
| 2401 | pivscale_Dims[0]=n; | |||
| 2402 | capi_pivscale_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 2403 | capi_pivscale_tmp = array_from_pyobj(NPY_DOUBLE,pivscale_Dims,pivscale_Rank,capi_pivscale_intent,Py_None(&_Py_NoneStruct)); | |||
| 2404 | if (capi_pivscale_tmp == NULL((void*)0)) { | |||
| 2405 | if (!PyErr_Occurred()) | |||
| 2406 | PyErr_SetString(_flapack_error,"failed in converting hidden `pivscale' of _flapack.dgebal to C/Fortran array" ); | |||
| 2407 | } else { | |||
| 2408 | pivscale = (double *)(PyArray_DATA(capi_pivscale_tmp)((void *)((PyArrayObject_fields *)(capi_pivscale_tmp))->data )); | |||
| 2409 | ||||
| 2410 | /* Processing variable m */ | |||
| 2411 | m = shape(a,0)a_Dims[0]; | |||
| 2412 | CHECKSCALAR(m>=n,"m>=n","hidden m","dgebal:m=%d",m)if (!(m>=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgebal:m=%d", "(""m>=n"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 2413 | /*end of frompyobj*/ | |||
| 2414 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2415 | f2py_start_call_clock(); | |||
| 2416 | #endif | |||
| 2417 | /*callfortranroutine*/ | |||
| 2418 | { (*f2py_func)((permute?(scale?"B":"P"):(scale?"S":"N")),&n,a,&m,&lo,&hi,pivscale,&info); hi--; lo--; } ; | |||
| 2419 | /*(*f2py_func)(&scale,&permute,&n,a,&m,&lo,&hi,pivscale,&info);*/ | |||
| 2420 | if (PyErr_Occurred()) | |||
| 2421 | f2py_success = 0; | |||
| 2422 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2423 | f2py_stop_call_clock(); | |||
| 2424 | #endif | |||
| 2425 | /*end of callfortranroutine*/ | |||
| 2426 | if (f2py_success) { | |||
| 2427 | /*pyobjfrom*/ | |||
| 2428 | /*end of pyobjfrom*/ | |||
| 2429 | CFUNCSMESS("Building return value.\n"); | |||
| 2430 | capi_buildvalue = Py_BuildValue("NiiNi",capi_a_tmp,lo,hi,capi_pivscale_tmp,info); | |||
| 2431 | /*closepyobjfrom*/ | |||
| 2432 | /*end of closepyobjfrom*/ | |||
| 2433 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 2434 | /*cleanupfrompyobj*/ | |||
| 2435 | } /*CHECKSCALAR(m>=n)*/ | |||
| 2436 | /* End of cleaning variable m */ | |||
| 2437 | } /*if (capi_pivscale_tmp == NULL) ... else of pivscale*/ | |||
| 2438 | /* End of cleaning variable pivscale */ | |||
| 2439 | /* End of cleaning variable n */ | |||
| 2440 | /* End of cleaning variable info */ | |||
| 2441 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 2442 | /* End of cleaning variable a */ | |||
| 2443 | /* End of cleaning variable lo */ | |||
| 2444 | /* End of cleaning variable hi */ | |||
| 2445 | } /*if (f2py_success) of scale*/ | |||
| 2446 | /* End of cleaning variable scale */ | |||
| 2447 | } /*if (f2py_success) of permute*/ | |||
| 2448 | /* End of cleaning variable permute */ | |||
| 2449 | /*end of cleanupfrompyobj*/ | |||
| 2450 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 2451 | /*routdebugfailure*/ | |||
| 2452 | } else { | |||
| 2453 | /*routdebugleave*/ | |||
| 2454 | } | |||
| 2455 | CFUNCSMESS("Freeing memory.\n"); | |||
| 2456 | /*freemem*/ | |||
| 2457 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2458 | f2py_stop_clock(); | |||
| 2459 | #endif | |||
| 2460 | return capi_buildvalue; | |||
| 2461 | } | |||
| 2462 | /******************************* end of dgebal *******************************/ | |||
| 2463 | ||||
| 2464 | /*********************************** cgebal ***********************************/ | |||
| 2465 | static char doc_f2py_rout__flapack_cgebal[] = "\ | |||
| 2466 | ba,lo,hi,pivscale,info = cgebal(a,[scale,permute,overwrite_a])\n\nWrapper for ``cgebal``.\ | |||
| 2467 | \n\nParameters\n----------\n" | |||
| 2468 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 2469 | "\nOther Parameters\n----------------\n" | |||
| 2470 | "scale : input int, optional\n Default: 0\n" | |||
| 2471 | "permute : input int, optional\n Default: 0\n" | |||
| 2472 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 2473 | "\nReturns\n-------\n" | |||
| 2474 | "ba : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 2475 | "lo : int\n" | |||
| 2476 | "hi : int\n" | |||
| 2477 | "pivscale : rank-1 array('f') with bounds (n)\n" | |||
| 2478 | "info : int"; | |||
| 2479 | /* extern void F_FUNC(cgebal,CGEBAL)(char*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT*,float*,F_INT* ); */ | |||
| 2480 | static PyObject *f2py_rout__flapack_cgebal(const PyObject *capi_self, | |||
| 2481 | PyObject *capi_args, | |||
| 2482 | PyObject *capi_keywds, | |||
| 2483 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint* )) { | |||
| 2484 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 2485 | volatile int f2py_success = 1; | |||
| 2486 | /*decl*/ | |||
| 2487 | ||||
| 2488 | int scale = 0; | |||
| 2489 | PyObject *scale_capi = Py_None(&_Py_NoneStruct); | |||
| 2490 | int permute = 0; | |||
| 2491 | PyObject *permute_capi = Py_None(&_Py_NoneStruct); | |||
| 2492 | int n = 0; | |||
| 2493 | complex_float *a = NULL((void*)0); | |||
| 2494 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 2495 | const int a_Rank = 2; | |||
| 2496 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 2497 | int capi_a_intent = 0; | |||
| 2498 | int capi_overwrite_a = 0; | |||
| 2499 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 2500 | int m = 0; | |||
| 2501 | int lo = 0; | |||
| 2502 | int hi = 0; | |||
| 2503 | float *pivscale = NULL((void*)0); | |||
| 2504 | npy_intp pivscale_Dims[1] = {-1}; | |||
| 2505 | const int pivscale_Rank = 1; | |||
| 2506 | PyArrayObject *capi_pivscale_tmp = NULL((void*)0); | |||
| 2507 | int capi_pivscale_intent = 0; | |||
| 2508 | int info = 0; | |||
| 2509 | static char *capi_kwlist[] = {"a","scale","permute","overwrite_a",NULL((void*)0)}; | |||
| 2510 | ||||
| 2511 | /*routdebugenter*/ | |||
| 2512 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2513 | f2py_start_clock(); | |||
| 2514 | #endif | |||
| 2515 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 2516 | "O|OOi:_flapack.cgebal",\ | |||
| 2517 | capi_kwlist,&a_capi,&scale_capi,&permute_capi,&capi_overwrite_a)) | |||
| 2518 | return NULL((void*)0); | |||
| 2519 | /*frompyobj*/ | |||
| 2520 | /* Processing variable permute */ | |||
| 2521 | if (permute_capi == Py_None(&_Py_NoneStruct)) permute = 0; else | |||
| 2522 | f2py_success = int_from_pyobj(&permute,permute_capi,"_flapack.cgebal() 2nd keyword (permute) can't be converted to int"); | |||
| 2523 | if (f2py_success) { | |||
| 2524 | /* Processing variable scale */ | |||
| 2525 | if (scale_capi == Py_None(&_Py_NoneStruct)) scale = 0; else | |||
| 2526 | f2py_success = int_from_pyobj(&scale,scale_capi,"_flapack.cgebal() 1st keyword (scale) can't be converted to int"); | |||
| 2527 | if (f2py_success) { | |||
| 2528 | /* Processing variable hi */ | |||
| 2529 | /* Processing variable lo */ | |||
| 2530 | /* Processing variable a */ | |||
| 2531 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 2532 | ; | |||
| 2533 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 2534 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 2535 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 2536 | if (!PyErr_Occurred()) | |||
| 2537 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgebal to C/Fortran array" ); | |||
| 2538 | } else { | |||
| 2539 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 2540 | ||||
| 2541 | /* Processing variable info */ | |||
| 2542 | /* Processing variable n */ | |||
| 2543 | n = shape(a,1)a_Dims[1]; | |||
| 2544 | /* Processing variable pivscale */ | |||
| 2545 | pivscale_Dims[0]=n; | |||
| 2546 | capi_pivscale_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 2547 | capi_pivscale_tmp = array_from_pyobj(NPY_FLOAT,pivscale_Dims,pivscale_Rank,capi_pivscale_intent,Py_None(&_Py_NoneStruct)); | |||
| 2548 | if (capi_pivscale_tmp == NULL((void*)0)) { | |||
| 2549 | if (!PyErr_Occurred()) | |||
| 2550 | PyErr_SetString(_flapack_error,"failed in converting hidden `pivscale' of _flapack.cgebal to C/Fortran array" ); | |||
| 2551 | } else { | |||
| 2552 | pivscale = (float *)(PyArray_DATA(capi_pivscale_tmp)((void *)((PyArrayObject_fields *)(capi_pivscale_tmp))->data )); | |||
| 2553 | ||||
| 2554 | /* Processing variable m */ | |||
| 2555 | m = shape(a,0)a_Dims[0]; | |||
| 2556 | CHECKSCALAR(m>=n,"m>=n","hidden m","cgebal:m=%d",m)if (!(m>=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgebal:m=%d", "(""m>=n"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 2557 | /*end of frompyobj*/ | |||
| 2558 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2559 | f2py_start_call_clock(); | |||
| 2560 | #endif | |||
| 2561 | /*callfortranroutine*/ | |||
| 2562 | { (*f2py_func)((permute?(scale?"B":"P"):(scale?"S":"N")),&n,a,&m,&lo,&hi,pivscale,&info); hi--; lo--; } ; | |||
| 2563 | /*(*f2py_func)(&scale,&permute,&n,a,&m,&lo,&hi,pivscale,&info);*/ | |||
| 2564 | if (PyErr_Occurred()) | |||
| 2565 | f2py_success = 0; | |||
| 2566 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2567 | f2py_stop_call_clock(); | |||
| 2568 | #endif | |||
| 2569 | /*end of callfortranroutine*/ | |||
| 2570 | if (f2py_success) { | |||
| 2571 | /*pyobjfrom*/ | |||
| 2572 | /*end of pyobjfrom*/ | |||
| 2573 | CFUNCSMESS("Building return value.\n"); | |||
| 2574 | capi_buildvalue = Py_BuildValue("NiiNi",capi_a_tmp,lo,hi,capi_pivscale_tmp,info); | |||
| 2575 | /*closepyobjfrom*/ | |||
| 2576 | /*end of closepyobjfrom*/ | |||
| 2577 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 2578 | /*cleanupfrompyobj*/ | |||
| 2579 | } /*CHECKSCALAR(m>=n)*/ | |||
| 2580 | /* End of cleaning variable m */ | |||
| 2581 | } /*if (capi_pivscale_tmp == NULL) ... else of pivscale*/ | |||
| 2582 | /* End of cleaning variable pivscale */ | |||
| 2583 | /* End of cleaning variable n */ | |||
| 2584 | /* End of cleaning variable info */ | |||
| 2585 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 2586 | /* End of cleaning variable a */ | |||
| 2587 | /* End of cleaning variable lo */ | |||
| 2588 | /* End of cleaning variable hi */ | |||
| 2589 | } /*if (f2py_success) of scale*/ | |||
| 2590 | /* End of cleaning variable scale */ | |||
| 2591 | } /*if (f2py_success) of permute*/ | |||
| 2592 | /* End of cleaning variable permute */ | |||
| 2593 | /*end of cleanupfrompyobj*/ | |||
| 2594 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 2595 | /*routdebugfailure*/ | |||
| 2596 | } else { | |||
| 2597 | /*routdebugleave*/ | |||
| 2598 | } | |||
| 2599 | CFUNCSMESS("Freeing memory.\n"); | |||
| 2600 | /*freemem*/ | |||
| 2601 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2602 | f2py_stop_clock(); | |||
| 2603 | #endif | |||
| 2604 | return capi_buildvalue; | |||
| 2605 | } | |||
| 2606 | /******************************* end of cgebal *******************************/ | |||
| 2607 | ||||
| 2608 | /*********************************** zgebal ***********************************/ | |||
| 2609 | static char doc_f2py_rout__flapack_zgebal[] = "\ | |||
| 2610 | ba,lo,hi,pivscale,info = zgebal(a,[scale,permute,overwrite_a])\n\nWrapper for ``zgebal``.\ | |||
| 2611 | \n\nParameters\n----------\n" | |||
| 2612 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 2613 | "\nOther Parameters\n----------------\n" | |||
| 2614 | "scale : input int, optional\n Default: 0\n" | |||
| 2615 | "permute : input int, optional\n Default: 0\n" | |||
| 2616 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 2617 | "\nReturns\n-------\n" | |||
| 2618 | "ba : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 2619 | "lo : int\n" | |||
| 2620 | "hi : int\n" | |||
| 2621 | "pivscale : rank-1 array('d') with bounds (n)\n" | |||
| 2622 | "info : int"; | |||
| 2623 | /* extern void F_FUNC(zgebal,ZGEBAL)(char*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT*,double*,F_INT* ); */ | |||
| 2624 | static PyObject *f2py_rout__flapack_zgebal(const PyObject *capi_self, | |||
| 2625 | PyObject *capi_args, | |||
| 2626 | PyObject *capi_keywds, | |||
| 2627 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint* )) { | |||
| 2628 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 2629 | volatile int f2py_success = 1; | |||
| 2630 | /*decl*/ | |||
| 2631 | ||||
| 2632 | int scale = 0; | |||
| 2633 | PyObject *scale_capi = Py_None(&_Py_NoneStruct); | |||
| 2634 | int permute = 0; | |||
| 2635 | PyObject *permute_capi = Py_None(&_Py_NoneStruct); | |||
| 2636 | int n = 0; | |||
| 2637 | complex_double *a = NULL((void*)0); | |||
| 2638 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 2639 | const int a_Rank = 2; | |||
| 2640 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 2641 | int capi_a_intent = 0; | |||
| 2642 | int capi_overwrite_a = 0; | |||
| 2643 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 2644 | int m = 0; | |||
| 2645 | int lo = 0; | |||
| 2646 | int hi = 0; | |||
| 2647 | double *pivscale = NULL((void*)0); | |||
| 2648 | npy_intp pivscale_Dims[1] = {-1}; | |||
| 2649 | const int pivscale_Rank = 1; | |||
| 2650 | PyArrayObject *capi_pivscale_tmp = NULL((void*)0); | |||
| 2651 | int capi_pivscale_intent = 0; | |||
| 2652 | int info = 0; | |||
| 2653 | static char *capi_kwlist[] = {"a","scale","permute","overwrite_a",NULL((void*)0)}; | |||
| 2654 | ||||
| 2655 | /*routdebugenter*/ | |||
| 2656 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2657 | f2py_start_clock(); | |||
| 2658 | #endif | |||
| 2659 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 2660 | "O|OOi:_flapack.zgebal",\ | |||
| 2661 | capi_kwlist,&a_capi,&scale_capi,&permute_capi,&capi_overwrite_a)) | |||
| 2662 | return NULL((void*)0); | |||
| 2663 | /*frompyobj*/ | |||
| 2664 | /* Processing variable permute */ | |||
| 2665 | if (permute_capi == Py_None(&_Py_NoneStruct)) permute = 0; else | |||
| 2666 | f2py_success = int_from_pyobj(&permute,permute_capi,"_flapack.zgebal() 2nd keyword (permute) can't be converted to int"); | |||
| 2667 | if (f2py_success) { | |||
| 2668 | /* Processing variable scale */ | |||
| 2669 | if (scale_capi == Py_None(&_Py_NoneStruct)) scale = 0; else | |||
| 2670 | f2py_success = int_from_pyobj(&scale,scale_capi,"_flapack.zgebal() 1st keyword (scale) can't be converted to int"); | |||
| 2671 | if (f2py_success) { | |||
| 2672 | /* Processing variable hi */ | |||
| 2673 | /* Processing variable lo */ | |||
| 2674 | /* Processing variable a */ | |||
| 2675 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 2676 | ; | |||
| 2677 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 2678 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 2679 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 2680 | if (!PyErr_Occurred()) | |||
| 2681 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgebal to C/Fortran array" ); | |||
| 2682 | } else { | |||
| 2683 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 2684 | ||||
| 2685 | /* Processing variable info */ | |||
| 2686 | /* Processing variable n */ | |||
| 2687 | n = shape(a,1)a_Dims[1]; | |||
| 2688 | /* Processing variable pivscale */ | |||
| 2689 | pivscale_Dims[0]=n; | |||
| 2690 | capi_pivscale_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 2691 | capi_pivscale_tmp = array_from_pyobj(NPY_DOUBLE,pivscale_Dims,pivscale_Rank,capi_pivscale_intent,Py_None(&_Py_NoneStruct)); | |||
| 2692 | if (capi_pivscale_tmp == NULL((void*)0)) { | |||
| 2693 | if (!PyErr_Occurred()) | |||
| 2694 | PyErr_SetString(_flapack_error,"failed in converting hidden `pivscale' of _flapack.zgebal to C/Fortran array" ); | |||
| 2695 | } else { | |||
| 2696 | pivscale = (double *)(PyArray_DATA(capi_pivscale_tmp)((void *)((PyArrayObject_fields *)(capi_pivscale_tmp))->data )); | |||
| 2697 | ||||
| 2698 | /* Processing variable m */ | |||
| 2699 | m = shape(a,0)a_Dims[0]; | |||
| 2700 | CHECKSCALAR(m>=n,"m>=n","hidden m","zgebal:m=%d",m)if (!(m>=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgebal:m=%d", "(""m>=n"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 2701 | /*end of frompyobj*/ | |||
| 2702 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2703 | f2py_start_call_clock(); | |||
| 2704 | #endif | |||
| 2705 | /*callfortranroutine*/ | |||
| 2706 | { (*f2py_func)((permute?(scale?"B":"P"):(scale?"S":"N")),&n,a,&m,&lo,&hi,pivscale,&info); hi--; lo--; } ; | |||
| 2707 | /*(*f2py_func)(&scale,&permute,&n,a,&m,&lo,&hi,pivscale,&info);*/ | |||
| 2708 | if (PyErr_Occurred()) | |||
| 2709 | f2py_success = 0; | |||
| 2710 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2711 | f2py_stop_call_clock(); | |||
| 2712 | #endif | |||
| 2713 | /*end of callfortranroutine*/ | |||
| 2714 | if (f2py_success) { | |||
| 2715 | /*pyobjfrom*/ | |||
| 2716 | /*end of pyobjfrom*/ | |||
| 2717 | CFUNCSMESS("Building return value.\n"); | |||
| 2718 | capi_buildvalue = Py_BuildValue("NiiNi",capi_a_tmp,lo,hi,capi_pivscale_tmp,info); | |||
| 2719 | /*closepyobjfrom*/ | |||
| 2720 | /*end of closepyobjfrom*/ | |||
| 2721 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 2722 | /*cleanupfrompyobj*/ | |||
| 2723 | } /*CHECKSCALAR(m>=n)*/ | |||
| 2724 | /* End of cleaning variable m */ | |||
| 2725 | } /*if (capi_pivscale_tmp == NULL) ... else of pivscale*/ | |||
| 2726 | /* End of cleaning variable pivscale */ | |||
| 2727 | /* End of cleaning variable n */ | |||
| 2728 | /* End of cleaning variable info */ | |||
| 2729 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 2730 | /* End of cleaning variable a */ | |||
| 2731 | /* End of cleaning variable lo */ | |||
| 2732 | /* End of cleaning variable hi */ | |||
| 2733 | } /*if (f2py_success) of scale*/ | |||
| 2734 | /* End of cleaning variable scale */ | |||
| 2735 | } /*if (f2py_success) of permute*/ | |||
| 2736 | /* End of cleaning variable permute */ | |||
| 2737 | /*end of cleanupfrompyobj*/ | |||
| 2738 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 2739 | /*routdebugfailure*/ | |||
| 2740 | } else { | |||
| 2741 | /*routdebugleave*/ | |||
| 2742 | } | |||
| 2743 | CFUNCSMESS("Freeing memory.\n"); | |||
| 2744 | /*freemem*/ | |||
| 2745 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2746 | f2py_stop_clock(); | |||
| 2747 | #endif | |||
| 2748 | return capi_buildvalue; | |||
| 2749 | } | |||
| 2750 | /******************************* end of zgebal *******************************/ | |||
| 2751 | ||||
| 2752 | /*********************************** sgehrd ***********************************/ | |||
| 2753 | static char doc_f2py_rout__flapack_sgehrd[] = "\ | |||
| 2754 | ht,tau,info = sgehrd(a,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``sgehrd``.\ | |||
| 2755 | \n\nParameters\n----------\n" | |||
| 2756 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 2757 | "\nOther Parameters\n----------------\n" | |||
| 2758 | "lo : input int, optional\n Default: 0\n" | |||
| 2759 | "hi : input int, optional\n Default: n-1\n" | |||
| 2760 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 2761 | "lwork : input int, optional\n Default: MAX(n,1)\n" | |||
| 2762 | "\nReturns\n-------\n" | |||
| 2763 | "ht : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 2764 | "tau : rank-1 array('f') with bounds (n - 1)\n" | |||
| 2765 | "info : int"; | |||
| 2766 | /* extern void F_FUNC(sgehrd,SGEHRD)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 2767 | static PyObject *f2py_rout__flapack_sgehrd(const PyObject *capi_self, | |||
| 2768 | PyObject *capi_args, | |||
| 2769 | PyObject *capi_keywds, | |||
| 2770 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 2771 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 2772 | volatile int f2py_success = 1; | |||
| 2773 | /*decl*/ | |||
| 2774 | ||||
| 2775 | int n = 0; | |||
| 2776 | int lo = 0; | |||
| 2777 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 2778 | int hi = 0; | |||
| 2779 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 2780 | float *a = NULL((void*)0); | |||
| 2781 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 2782 | const int a_Rank = 2; | |||
| 2783 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 2784 | int capi_a_intent = 0; | |||
| 2785 | int capi_overwrite_a = 0; | |||
| 2786 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 2787 | float *tau = NULL((void*)0); | |||
| 2788 | npy_intp tau_Dims[1] = {-1}; | |||
| 2789 | const int tau_Rank = 1; | |||
| 2790 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 2791 | int capi_tau_intent = 0; | |||
| 2792 | float *work = NULL((void*)0); | |||
| 2793 | npy_intp work_Dims[1] = {-1}; | |||
| 2794 | const int work_Rank = 1; | |||
| 2795 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 2796 | int capi_work_intent = 0; | |||
| 2797 | int lwork = 0; | |||
| 2798 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 2799 | int info = 0; | |||
| 2800 | static char *capi_kwlist[] = {"a","lo","hi","lwork","overwrite_a",NULL((void*)0)}; | |||
| 2801 | ||||
| 2802 | /*routdebugenter*/ | |||
| 2803 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2804 | f2py_start_clock(); | |||
| 2805 | #endif | |||
| 2806 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 2807 | "O|OOOi:_flapack.sgehrd",\ | |||
| 2808 | capi_kwlist,&a_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 2809 | return NULL((void*)0); | |||
| 2810 | /*frompyobj*/ | |||
| 2811 | /* Processing variable a */ | |||
| 2812 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 2813 | ; | |||
| 2814 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 2815 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 2816 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 2817 | if (!PyErr_Occurred()) | |||
| 2818 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgehrd to C/Fortran array" ); | |||
| 2819 | } else { | |||
| 2820 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 2821 | ||||
| 2822 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 2823 | /* Processing variable lo */ | |||
| 2824 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 2825 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.sgehrd() 1st keyword (lo) can't be converted to int"); | |||
| 2826 | if (f2py_success) { | |||
| 2827 | /* Processing variable info */ | |||
| 2828 | /* Processing variable n */ | |||
| 2829 | n = shape(a,0)a_Dims[0]; | |||
| 2830 | /* Processing variable hi */ | |||
| 2831 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 2832 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.sgehrd() 2nd keyword (hi) can't be converted to int"); | |||
| 2833 | if (f2py_success) { | |||
| 2834 | /* Processing variable tau */ | |||
| 2835 | tau_Dims[0]=n - 1; | |||
| 2836 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 2837 | capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 2838 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 2839 | if (!PyErr_Occurred()) | |||
| 2840 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.sgehrd to C/Fortran array" ); | |||
| 2841 | } else { | |||
| 2842 | tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 2843 | ||||
| 2844 | /* Processing variable lwork */ | |||
| 2845 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else | |||
| 2846 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgehrd() 3rd keyword (lwork) can't be converted to int"); | |||
| 2847 | if (f2py_success) { | |||
| 2848 | CHECKSCALAR(lwork>=MAX(n,1),"lwork>=MAX(n,1)","3rd keyword lwork","sgehrd:lwork=%d",lwork)if (!(lwork>=((n > 1) ? (n) : (1)))) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgehrd:lwork=%d", "(""lwork>=MAX(n,1)" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 2849 | /* Processing variable work */ | |||
| 2850 | work_Dims[0]=lwork; | |||
| 2851 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 2852 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 2853 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 2854 | if (!PyErr_Occurred()) | |||
| 2855 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgehrd to C/Fortran array" ); | |||
| 2856 | } else { | |||
| 2857 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 2858 | ||||
| 2859 | /*end of frompyobj*/ | |||
| 2860 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2861 | f2py_start_call_clock(); | |||
| 2862 | #endif | |||
| 2863 | /*callfortranroutine*/ | |||
| 2864 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ; | |||
| 2865 | /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/ | |||
| 2866 | if (PyErr_Occurred()) | |||
| 2867 | f2py_success = 0; | |||
| 2868 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2869 | f2py_stop_call_clock(); | |||
| 2870 | #endif | |||
| 2871 | /*end of callfortranroutine*/ | |||
| 2872 | if (f2py_success) { | |||
| 2873 | /*pyobjfrom*/ | |||
| 2874 | /*end of pyobjfrom*/ | |||
| 2875 | CFUNCSMESS("Building return value.\n"); | |||
| 2876 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info); | |||
| 2877 | /*closepyobjfrom*/ | |||
| 2878 | /*end of closepyobjfrom*/ | |||
| 2879 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 2880 | /*cleanupfrompyobj*/ | |||
| 2881 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 2882 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 2883 | /* End of cleaning variable work */ | |||
| 2884 | } /*CHECKSCALAR(lwork>=MAX(n,1))*/ | |||
| 2885 | } /*if (f2py_success) of lwork*/ | |||
| 2886 | /* End of cleaning variable lwork */ | |||
| 2887 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 2888 | /* End of cleaning variable tau */ | |||
| 2889 | } /*if (f2py_success) of hi*/ | |||
| 2890 | /* End of cleaning variable hi */ | |||
| 2891 | /* End of cleaning variable n */ | |||
| 2892 | /* End of cleaning variable info */ | |||
| 2893 | } /*if (f2py_success) of lo*/ | |||
| 2894 | /* End of cleaning variable lo */ | |||
| 2895 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 2896 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 2897 | /* End of cleaning variable a */ | |||
| 2898 | /*end of cleanupfrompyobj*/ | |||
| 2899 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 2900 | /*routdebugfailure*/ | |||
| 2901 | } else { | |||
| 2902 | /*routdebugleave*/ | |||
| 2903 | } | |||
| 2904 | CFUNCSMESS("Freeing memory.\n"); | |||
| 2905 | /*freemem*/ | |||
| 2906 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2907 | f2py_stop_clock(); | |||
| 2908 | #endif | |||
| 2909 | return capi_buildvalue; | |||
| 2910 | } | |||
| 2911 | /******************************* end of sgehrd *******************************/ | |||
| 2912 | ||||
| 2913 | /*********************************** dgehrd ***********************************/ | |||
| 2914 | static char doc_f2py_rout__flapack_dgehrd[] = "\ | |||
| 2915 | ht,tau,info = dgehrd(a,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``dgehrd``.\ | |||
| 2916 | \n\nParameters\n----------\n" | |||
| 2917 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 2918 | "\nOther Parameters\n----------------\n" | |||
| 2919 | "lo : input int, optional\n Default: 0\n" | |||
| 2920 | "hi : input int, optional\n Default: n-1\n" | |||
| 2921 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 2922 | "lwork : input int, optional\n Default: MAX(n,1)\n" | |||
| 2923 | "\nReturns\n-------\n" | |||
| 2924 | "ht : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 2925 | "tau : rank-1 array('d') with bounds (n - 1)\n" | |||
| 2926 | "info : int"; | |||
| 2927 | /* extern void F_FUNC(dgehrd,DGEHRD)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 2928 | static PyObject *f2py_rout__flapack_dgehrd(const PyObject *capi_self, | |||
| 2929 | PyObject *capi_args, | |||
| 2930 | PyObject *capi_keywds, | |||
| 2931 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 2932 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 2933 | volatile int f2py_success = 1; | |||
| 2934 | /*decl*/ | |||
| 2935 | ||||
| 2936 | int n = 0; | |||
| 2937 | int lo = 0; | |||
| 2938 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 2939 | int hi = 0; | |||
| 2940 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 2941 | double *a = NULL((void*)0); | |||
| 2942 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 2943 | const int a_Rank = 2; | |||
| 2944 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 2945 | int capi_a_intent = 0; | |||
| 2946 | int capi_overwrite_a = 0; | |||
| 2947 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 2948 | double *tau = NULL((void*)0); | |||
| 2949 | npy_intp tau_Dims[1] = {-1}; | |||
| 2950 | const int tau_Rank = 1; | |||
| 2951 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 2952 | int capi_tau_intent = 0; | |||
| 2953 | double *work = NULL((void*)0); | |||
| 2954 | npy_intp work_Dims[1] = {-1}; | |||
| 2955 | const int work_Rank = 1; | |||
| 2956 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 2957 | int capi_work_intent = 0; | |||
| 2958 | int lwork = 0; | |||
| 2959 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 2960 | int info = 0; | |||
| 2961 | static char *capi_kwlist[] = {"a","lo","hi","lwork","overwrite_a",NULL((void*)0)}; | |||
| 2962 | ||||
| 2963 | /*routdebugenter*/ | |||
| 2964 | #ifdef F2PY_REPORT_ATEXIT | |||
| 2965 | f2py_start_clock(); | |||
| 2966 | #endif | |||
| 2967 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 2968 | "O|OOOi:_flapack.dgehrd",\ | |||
| 2969 | capi_kwlist,&a_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 2970 | return NULL((void*)0); | |||
| 2971 | /*frompyobj*/ | |||
| 2972 | /* Processing variable a */ | |||
| 2973 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 2974 | ; | |||
| 2975 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 2976 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 2977 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 2978 | if (!PyErr_Occurred()) | |||
| 2979 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgehrd to C/Fortran array" ); | |||
| 2980 | } else { | |||
| 2981 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 2982 | ||||
| 2983 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 2984 | /* Processing variable lo */ | |||
| 2985 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 2986 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.dgehrd() 1st keyword (lo) can't be converted to int"); | |||
| 2987 | if (f2py_success) { | |||
| 2988 | /* Processing variable info */ | |||
| 2989 | /* Processing variable n */ | |||
| 2990 | n = shape(a,0)a_Dims[0]; | |||
| 2991 | /* Processing variable hi */ | |||
| 2992 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 2993 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.dgehrd() 2nd keyword (hi) can't be converted to int"); | |||
| 2994 | if (f2py_success) { | |||
| 2995 | /* Processing variable tau */ | |||
| 2996 | tau_Dims[0]=n - 1; | |||
| 2997 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 2998 | capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 2999 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 3000 | if (!PyErr_Occurred()) | |||
| 3001 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dgehrd to C/Fortran array" ); | |||
| 3002 | } else { | |||
| 3003 | tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 3004 | ||||
| 3005 | /* Processing variable lwork */ | |||
| 3006 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else | |||
| 3007 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgehrd() 3rd keyword (lwork) can't be converted to int"); | |||
| 3008 | if (f2py_success) { | |||
| 3009 | CHECKSCALAR(lwork>=MAX(n,1),"lwork>=MAX(n,1)","3rd keyword lwork","dgehrd:lwork=%d",lwork)if (!(lwork>=((n > 1) ? (n) : (1)))) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgehrd:lwork=%d", "(""lwork>=MAX(n,1)" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 3010 | /* Processing variable work */ | |||
| 3011 | work_Dims[0]=lwork; | |||
| 3012 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 3013 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 3014 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 3015 | if (!PyErr_Occurred()) | |||
| 3016 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgehrd to C/Fortran array" ); | |||
| 3017 | } else { | |||
| 3018 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 3019 | ||||
| 3020 | /*end of frompyobj*/ | |||
| 3021 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3022 | f2py_start_call_clock(); | |||
| 3023 | #endif | |||
| 3024 | /*callfortranroutine*/ | |||
| 3025 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ; | |||
| 3026 | /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/ | |||
| 3027 | if (PyErr_Occurred()) | |||
| 3028 | f2py_success = 0; | |||
| 3029 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3030 | f2py_stop_call_clock(); | |||
| 3031 | #endif | |||
| 3032 | /*end of callfortranroutine*/ | |||
| 3033 | if (f2py_success) { | |||
| 3034 | /*pyobjfrom*/ | |||
| 3035 | /*end of pyobjfrom*/ | |||
| 3036 | CFUNCSMESS("Building return value.\n"); | |||
| 3037 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info); | |||
| 3038 | /*closepyobjfrom*/ | |||
| 3039 | /*end of closepyobjfrom*/ | |||
| 3040 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 3041 | /*cleanupfrompyobj*/ | |||
| 3042 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 3043 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 3044 | /* End of cleaning variable work */ | |||
| 3045 | } /*CHECKSCALAR(lwork>=MAX(n,1))*/ | |||
| 3046 | } /*if (f2py_success) of lwork*/ | |||
| 3047 | /* End of cleaning variable lwork */ | |||
| 3048 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 3049 | /* End of cleaning variable tau */ | |||
| 3050 | } /*if (f2py_success) of hi*/ | |||
| 3051 | /* End of cleaning variable hi */ | |||
| 3052 | /* End of cleaning variable n */ | |||
| 3053 | /* End of cleaning variable info */ | |||
| 3054 | } /*if (f2py_success) of lo*/ | |||
| 3055 | /* End of cleaning variable lo */ | |||
| 3056 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 3057 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 3058 | /* End of cleaning variable a */ | |||
| 3059 | /*end of cleanupfrompyobj*/ | |||
| 3060 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 3061 | /*routdebugfailure*/ | |||
| 3062 | } else { | |||
| 3063 | /*routdebugleave*/ | |||
| 3064 | } | |||
| 3065 | CFUNCSMESS("Freeing memory.\n"); | |||
| 3066 | /*freemem*/ | |||
| 3067 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3068 | f2py_stop_clock(); | |||
| 3069 | #endif | |||
| 3070 | return capi_buildvalue; | |||
| 3071 | } | |||
| 3072 | /******************************* end of dgehrd *******************************/ | |||
| 3073 | ||||
| 3074 | /*********************************** cgehrd ***********************************/ | |||
| 3075 | static char doc_f2py_rout__flapack_cgehrd[] = "\ | |||
| 3076 | ht,tau,info = cgehrd(a,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``cgehrd``.\ | |||
| 3077 | \n\nParameters\n----------\n" | |||
| 3078 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 3079 | "\nOther Parameters\n----------------\n" | |||
| 3080 | "lo : input int, optional\n Default: 0\n" | |||
| 3081 | "hi : input int, optional\n Default: n-1\n" | |||
| 3082 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 3083 | "lwork : input int, optional\n Default: MAX(n,1)\n" | |||
| 3084 | "\nReturns\n-------\n" | |||
| 3085 | "ht : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 3086 | "tau : rank-1 array('F') with bounds (n - 1)\n" | |||
| 3087 | "info : int"; | |||
| 3088 | /* extern void F_FUNC(cgehrd,CGEHRD)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 3089 | static PyObject *f2py_rout__flapack_cgehrd(const PyObject *capi_self, | |||
| 3090 | PyObject *capi_args, | |||
| 3091 | PyObject *capi_keywds, | |||
| 3092 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 3093 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 3094 | volatile int f2py_success = 1; | |||
| 3095 | /*decl*/ | |||
| 3096 | ||||
| 3097 | int n = 0; | |||
| 3098 | int lo = 0; | |||
| 3099 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 3100 | int hi = 0; | |||
| 3101 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 3102 | complex_float *a = NULL((void*)0); | |||
| 3103 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 3104 | const int a_Rank = 2; | |||
| 3105 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 3106 | int capi_a_intent = 0; | |||
| 3107 | int capi_overwrite_a = 0; | |||
| 3108 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 3109 | complex_float *tau = NULL((void*)0); | |||
| 3110 | npy_intp tau_Dims[1] = {-1}; | |||
| 3111 | const int tau_Rank = 1; | |||
| 3112 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 3113 | int capi_tau_intent = 0; | |||
| 3114 | complex_float *work = NULL((void*)0); | |||
| 3115 | npy_intp work_Dims[1] = {-1}; | |||
| 3116 | const int work_Rank = 1; | |||
| 3117 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 3118 | int capi_work_intent = 0; | |||
| 3119 | int lwork = 0; | |||
| 3120 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 3121 | int info = 0; | |||
| 3122 | static char *capi_kwlist[] = {"a","lo","hi","lwork","overwrite_a",NULL((void*)0)}; | |||
| 3123 | ||||
| 3124 | /*routdebugenter*/ | |||
| 3125 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3126 | f2py_start_clock(); | |||
| 3127 | #endif | |||
| 3128 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 3129 | "O|OOOi:_flapack.cgehrd",\ | |||
| 3130 | capi_kwlist,&a_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 3131 | return NULL((void*)0); | |||
| 3132 | /*frompyobj*/ | |||
| 3133 | /* Processing variable a */ | |||
| 3134 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 3135 | ; | |||
| 3136 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 3137 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 3138 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 3139 | if (!PyErr_Occurred()) | |||
| 3140 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgehrd to C/Fortran array" ); | |||
| 3141 | } else { | |||
| 3142 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 3143 | ||||
| 3144 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 3145 | /* Processing variable lo */ | |||
| 3146 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 3147 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.cgehrd() 1st keyword (lo) can't be converted to int"); | |||
| 3148 | if (f2py_success) { | |||
| 3149 | /* Processing variable info */ | |||
| 3150 | /* Processing variable n */ | |||
| 3151 | n = shape(a,0)a_Dims[0]; | |||
| 3152 | /* Processing variable hi */ | |||
| 3153 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 3154 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.cgehrd() 2nd keyword (hi) can't be converted to int"); | |||
| 3155 | if (f2py_success) { | |||
| 3156 | /* Processing variable tau */ | |||
| 3157 | tau_Dims[0]=n - 1; | |||
| 3158 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 3159 | capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 3160 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 3161 | if (!PyErr_Occurred()) | |||
| 3162 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.cgehrd to C/Fortran array" ); | |||
| 3163 | } else { | |||
| 3164 | tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 3165 | ||||
| 3166 | /* Processing variable lwork */ | |||
| 3167 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else | |||
| 3168 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgehrd() 3rd keyword (lwork) can't be converted to int"); | |||
| 3169 | if (f2py_success) { | |||
| 3170 | CHECKSCALAR(lwork>=MAX(n,1),"lwork>=MAX(n,1)","3rd keyword lwork","cgehrd:lwork=%d",lwork)if (!(lwork>=((n > 1) ? (n) : (1)))) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgehrd:lwork=%d", "(""lwork>=MAX(n,1)" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 3171 | /* Processing variable work */ | |||
| 3172 | work_Dims[0]=lwork; | |||
| 3173 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 3174 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 3175 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 3176 | if (!PyErr_Occurred()) | |||
| 3177 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgehrd to C/Fortran array" ); | |||
| 3178 | } else { | |||
| 3179 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 3180 | ||||
| 3181 | /*end of frompyobj*/ | |||
| 3182 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3183 | f2py_start_call_clock(); | |||
| 3184 | #endif | |||
| 3185 | /*callfortranroutine*/ | |||
| 3186 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ; | |||
| 3187 | /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/ | |||
| 3188 | if (PyErr_Occurred()) | |||
| 3189 | f2py_success = 0; | |||
| 3190 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3191 | f2py_stop_call_clock(); | |||
| 3192 | #endif | |||
| 3193 | /*end of callfortranroutine*/ | |||
| 3194 | if (f2py_success) { | |||
| 3195 | /*pyobjfrom*/ | |||
| 3196 | /*end of pyobjfrom*/ | |||
| 3197 | CFUNCSMESS("Building return value.\n"); | |||
| 3198 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info); | |||
| 3199 | /*closepyobjfrom*/ | |||
| 3200 | /*end of closepyobjfrom*/ | |||
| 3201 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 3202 | /*cleanupfrompyobj*/ | |||
| 3203 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 3204 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 3205 | /* End of cleaning variable work */ | |||
| 3206 | } /*CHECKSCALAR(lwork>=MAX(n,1))*/ | |||
| 3207 | } /*if (f2py_success) of lwork*/ | |||
| 3208 | /* End of cleaning variable lwork */ | |||
| 3209 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 3210 | /* End of cleaning variable tau */ | |||
| 3211 | } /*if (f2py_success) of hi*/ | |||
| 3212 | /* End of cleaning variable hi */ | |||
| 3213 | /* End of cleaning variable n */ | |||
| 3214 | /* End of cleaning variable info */ | |||
| 3215 | } /*if (f2py_success) of lo*/ | |||
| 3216 | /* End of cleaning variable lo */ | |||
| 3217 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 3218 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 3219 | /* End of cleaning variable a */ | |||
| 3220 | /*end of cleanupfrompyobj*/ | |||
| 3221 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 3222 | /*routdebugfailure*/ | |||
| 3223 | } else { | |||
| 3224 | /*routdebugleave*/ | |||
| 3225 | } | |||
| 3226 | CFUNCSMESS("Freeing memory.\n"); | |||
| 3227 | /*freemem*/ | |||
| 3228 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3229 | f2py_stop_clock(); | |||
| 3230 | #endif | |||
| 3231 | return capi_buildvalue; | |||
| 3232 | } | |||
| 3233 | /******************************* end of cgehrd *******************************/ | |||
| 3234 | ||||
| 3235 | /*********************************** zgehrd ***********************************/ | |||
| 3236 | static char doc_f2py_rout__flapack_zgehrd[] = "\ | |||
| 3237 | ht,tau,info = zgehrd(a,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``zgehrd``.\ | |||
| 3238 | \n\nParameters\n----------\n" | |||
| 3239 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 3240 | "\nOther Parameters\n----------------\n" | |||
| 3241 | "lo : input int, optional\n Default: 0\n" | |||
| 3242 | "hi : input int, optional\n Default: n-1\n" | |||
| 3243 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 3244 | "lwork : input int, optional\n Default: MAX(n,1)\n" | |||
| 3245 | "\nReturns\n-------\n" | |||
| 3246 | "ht : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 3247 | "tau : rank-1 array('D') with bounds (n - 1)\n" | |||
| 3248 | "info : int"; | |||
| 3249 | /* extern void F_FUNC(zgehrd,ZGEHRD)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 3250 | static PyObject *f2py_rout__flapack_zgehrd(const PyObject *capi_self, | |||
| 3251 | PyObject *capi_args, | |||
| 3252 | PyObject *capi_keywds, | |||
| 3253 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 3254 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 3255 | volatile int f2py_success = 1; | |||
| 3256 | /*decl*/ | |||
| 3257 | ||||
| 3258 | int n = 0; | |||
| 3259 | int lo = 0; | |||
| 3260 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 3261 | int hi = 0; | |||
| 3262 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 3263 | complex_double *a = NULL((void*)0); | |||
| 3264 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 3265 | const int a_Rank = 2; | |||
| 3266 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 3267 | int capi_a_intent = 0; | |||
| 3268 | int capi_overwrite_a = 0; | |||
| 3269 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 3270 | complex_double *tau = NULL((void*)0); | |||
| 3271 | npy_intp tau_Dims[1] = {-1}; | |||
| 3272 | const int tau_Rank = 1; | |||
| 3273 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 3274 | int capi_tau_intent = 0; | |||
| 3275 | complex_double *work = NULL((void*)0); | |||
| 3276 | npy_intp work_Dims[1] = {-1}; | |||
| 3277 | const int work_Rank = 1; | |||
| 3278 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 3279 | int capi_work_intent = 0; | |||
| 3280 | int lwork = 0; | |||
| 3281 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 3282 | int info = 0; | |||
| 3283 | static char *capi_kwlist[] = {"a","lo","hi","lwork","overwrite_a",NULL((void*)0)}; | |||
| 3284 | ||||
| 3285 | /*routdebugenter*/ | |||
| 3286 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3287 | f2py_start_clock(); | |||
| 3288 | #endif | |||
| 3289 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 3290 | "O|OOOi:_flapack.zgehrd",\ | |||
| 3291 | capi_kwlist,&a_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 3292 | return NULL((void*)0); | |||
| 3293 | /*frompyobj*/ | |||
| 3294 | /* Processing variable a */ | |||
| 3295 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 3296 | ; | |||
| 3297 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 3298 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 3299 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 3300 | if (!PyErr_Occurred()) | |||
| 3301 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgehrd to C/Fortran array" ); | |||
| 3302 | } else { | |||
| 3303 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 3304 | ||||
| 3305 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 3306 | /* Processing variable lo */ | |||
| 3307 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 3308 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.zgehrd() 1st keyword (lo) can't be converted to int"); | |||
| 3309 | if (f2py_success) { | |||
| 3310 | /* Processing variable info */ | |||
| 3311 | /* Processing variable n */ | |||
| 3312 | n = shape(a,0)a_Dims[0]; | |||
| 3313 | /* Processing variable hi */ | |||
| 3314 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 3315 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.zgehrd() 2nd keyword (hi) can't be converted to int"); | |||
| 3316 | if (f2py_success) { | |||
| 3317 | /* Processing variable tau */ | |||
| 3318 | tau_Dims[0]=n - 1; | |||
| 3319 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 3320 | capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 3321 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 3322 | if (!PyErr_Occurred()) | |||
| 3323 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.zgehrd to C/Fortran array" ); | |||
| 3324 | } else { | |||
| 3325 | tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 3326 | ||||
| 3327 | /* Processing variable lwork */ | |||
| 3328 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else | |||
| 3329 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgehrd() 3rd keyword (lwork) can't be converted to int"); | |||
| 3330 | if (f2py_success) { | |||
| 3331 | CHECKSCALAR(lwork>=MAX(n,1),"lwork>=MAX(n,1)","3rd keyword lwork","zgehrd:lwork=%d",lwork)if (!(lwork>=((n > 1) ? (n) : (1)))) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgehrd:lwork=%d", "(""lwork>=MAX(n,1)" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 3332 | /* Processing variable work */ | |||
| 3333 | work_Dims[0]=lwork; | |||
| 3334 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 3335 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 3336 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 3337 | if (!PyErr_Occurred()) | |||
| 3338 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgehrd to C/Fortran array" ); | |||
| 3339 | } else { | |||
| 3340 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 3341 | ||||
| 3342 | /*end of frompyobj*/ | |||
| 3343 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3344 | f2py_start_call_clock(); | |||
| 3345 | #endif | |||
| 3346 | /*callfortranroutine*/ | |||
| 3347 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ; | |||
| 3348 | /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/ | |||
| 3349 | if (PyErr_Occurred()) | |||
| 3350 | f2py_success = 0; | |||
| 3351 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3352 | f2py_stop_call_clock(); | |||
| 3353 | #endif | |||
| 3354 | /*end of callfortranroutine*/ | |||
| 3355 | if (f2py_success) { | |||
| 3356 | /*pyobjfrom*/ | |||
| 3357 | /*end of pyobjfrom*/ | |||
| 3358 | CFUNCSMESS("Building return value.\n"); | |||
| 3359 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info); | |||
| 3360 | /*closepyobjfrom*/ | |||
| 3361 | /*end of closepyobjfrom*/ | |||
| 3362 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 3363 | /*cleanupfrompyobj*/ | |||
| 3364 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 3365 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 3366 | /* End of cleaning variable work */ | |||
| 3367 | } /*CHECKSCALAR(lwork>=MAX(n,1))*/ | |||
| 3368 | } /*if (f2py_success) of lwork*/ | |||
| 3369 | /* End of cleaning variable lwork */ | |||
| 3370 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 3371 | /* End of cleaning variable tau */ | |||
| 3372 | } /*if (f2py_success) of hi*/ | |||
| 3373 | /* End of cleaning variable hi */ | |||
| 3374 | /* End of cleaning variable n */ | |||
| 3375 | /* End of cleaning variable info */ | |||
| 3376 | } /*if (f2py_success) of lo*/ | |||
| 3377 | /* End of cleaning variable lo */ | |||
| 3378 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 3379 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 3380 | /* End of cleaning variable a */ | |||
| 3381 | /*end of cleanupfrompyobj*/ | |||
| 3382 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 3383 | /*routdebugfailure*/ | |||
| 3384 | } else { | |||
| 3385 | /*routdebugleave*/ | |||
| 3386 | } | |||
| 3387 | CFUNCSMESS("Freeing memory.\n"); | |||
| 3388 | /*freemem*/ | |||
| 3389 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3390 | f2py_stop_clock(); | |||
| 3391 | #endif | |||
| 3392 | return capi_buildvalue; | |||
| 3393 | } | |||
| 3394 | /******************************* end of zgehrd *******************************/ | |||
| 3395 | ||||
| 3396 | /******************************** sgehrd_lwork ********************************/ | |||
| 3397 | static char doc_f2py_rout__flapack_sgehrd_lwork[] = "\ | |||
| 3398 | work,info = sgehrd_lwork(n,[lo,hi])\n\nWrapper for ``sgehrd_lwork``.\ | |||
| 3399 | \n\nParameters\n----------\n" | |||
| 3400 | "n : input int\n" | |||
| 3401 | "\nOther Parameters\n----------------\n" | |||
| 3402 | "lo : input int, optional\n Default: 0\n" | |||
| 3403 | "hi : input int, optional\n Default: n-1\n" | |||
| 3404 | "\nReturns\n-------\n" | |||
| 3405 | "work : float\n" | |||
| 3406 | "info : int"; | |||
| 3407 | /* extern void F_FUNC(sgehrd ,SGEHRD )(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 3408 | static PyObject *f2py_rout__flapack_sgehrd_lwork(const PyObject *capi_self, | |||
| 3409 | PyObject *capi_args, | |||
| 3410 | PyObject *capi_keywds, | |||
| 3411 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 3412 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 3413 | volatile int f2py_success = 1; | |||
| 3414 | /*decl*/ | |||
| 3415 | ||||
| 3416 | int n = 0; | |||
| 3417 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 3418 | int lo = 0; | |||
| 3419 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 3420 | int hi = 0; | |||
| 3421 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 3422 | float a = 0; | |||
| 3423 | float tau = 0; | |||
| 3424 | float work = 0; | |||
| 3425 | int lwork = 0; | |||
| 3426 | int info = 0; | |||
| 3427 | static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)}; | |||
| 3428 | ||||
| 3429 | /*routdebugenter*/ | |||
| 3430 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3431 | f2py_start_clock(); | |||
| 3432 | #endif | |||
| 3433 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 3434 | "O|OO:_flapack.sgehrd_lwork",\ | |||
| 3435 | capi_kwlist,&n_capi,&lo_capi,&hi_capi)) | |||
| 3436 | return NULL((void*)0); | |||
| 3437 | /*frompyobj*/ | |||
| 3438 | /* Processing variable n */ | |||
| 3439 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgehrd_lwork() 1st argument (n) can't be converted to int"); | |||
| 3440 | if (f2py_success) { | |||
| 3441 | /* Processing variable a */ | |||
| 3442 | /* Processing variable lo */ | |||
| 3443 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 3444 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.sgehrd_lwork() 1st keyword (lo) can't be converted to int"); | |||
| 3445 | if (f2py_success) { | |||
| 3446 | /* Processing variable tau */ | |||
| 3447 | /* Processing variable work */ | |||
| 3448 | /* Processing variable lwork */ | |||
| 3449 | lwork = -1; | |||
| 3450 | /* Processing variable info */ | |||
| 3451 | /* Processing variable hi */ | |||
| 3452 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 3453 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.sgehrd_lwork() 2nd keyword (hi) can't be converted to int"); | |||
| 3454 | if (f2py_success) { | |||
| 3455 | /*end of frompyobj*/ | |||
| 3456 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3457 | f2py_start_call_clock(); | |||
| 3458 | #endif | |||
| 3459 | /*callfortranroutine*/ | |||
| 3460 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ; | |||
| 3461 | /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/ | |||
| 3462 | if (PyErr_Occurred()) | |||
| 3463 | f2py_success = 0; | |||
| 3464 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3465 | f2py_stop_call_clock(); | |||
| 3466 | #endif | |||
| 3467 | /*end of callfortranroutine*/ | |||
| 3468 | if (f2py_success) { | |||
| 3469 | /*pyobjfrom*/ | |||
| 3470 | /*end of pyobjfrom*/ | |||
| 3471 | CFUNCSMESS("Building return value.\n"); | |||
| 3472 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 3473 | /*closepyobjfrom*/ | |||
| 3474 | /*end of closepyobjfrom*/ | |||
| 3475 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 3476 | /*cleanupfrompyobj*/ | |||
| 3477 | } /*if (f2py_success) of hi*/ | |||
| 3478 | /* End of cleaning variable hi */ | |||
| 3479 | /* End of cleaning variable info */ | |||
| 3480 | /* End of cleaning variable lwork */ | |||
| 3481 | /* End of cleaning variable work */ | |||
| 3482 | /* End of cleaning variable tau */ | |||
| 3483 | } /*if (f2py_success) of lo*/ | |||
| 3484 | /* End of cleaning variable lo */ | |||
| 3485 | /* End of cleaning variable a */ | |||
| 3486 | } /*if (f2py_success) of n*/ | |||
| 3487 | /* End of cleaning variable n */ | |||
| 3488 | /*end of cleanupfrompyobj*/ | |||
| 3489 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 3490 | /*routdebugfailure*/ | |||
| 3491 | } else { | |||
| 3492 | /*routdebugleave*/ | |||
| 3493 | } | |||
| 3494 | CFUNCSMESS("Freeing memory.\n"); | |||
| 3495 | /*freemem*/ | |||
| 3496 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3497 | f2py_stop_clock(); | |||
| 3498 | #endif | |||
| 3499 | return capi_buildvalue; | |||
| 3500 | } | |||
| 3501 | /**************************** end of sgehrd_lwork ****************************/ | |||
| 3502 | ||||
| 3503 | /******************************** dgehrd_lwork ********************************/ | |||
| 3504 | static char doc_f2py_rout__flapack_dgehrd_lwork[] = "\ | |||
| 3505 | work,info = dgehrd_lwork(n,[lo,hi])\n\nWrapper for ``dgehrd_lwork``.\ | |||
| 3506 | \n\nParameters\n----------\n" | |||
| 3507 | "n : input int\n" | |||
| 3508 | "\nOther Parameters\n----------------\n" | |||
| 3509 | "lo : input int, optional\n Default: 0\n" | |||
| 3510 | "hi : input int, optional\n Default: n-1\n" | |||
| 3511 | "\nReturns\n-------\n" | |||
| 3512 | "work : float\n" | |||
| 3513 | "info : int"; | |||
| 3514 | /* extern void F_FUNC(dgehrd ,DGEHRD )(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 3515 | static PyObject *f2py_rout__flapack_dgehrd_lwork(const PyObject *capi_self, | |||
| 3516 | PyObject *capi_args, | |||
| 3517 | PyObject *capi_keywds, | |||
| 3518 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 3519 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 3520 | volatile int f2py_success = 1; | |||
| 3521 | /*decl*/ | |||
| 3522 | ||||
| 3523 | int n = 0; | |||
| 3524 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 3525 | int lo = 0; | |||
| 3526 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 3527 | int hi = 0; | |||
| 3528 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 3529 | double a = 0; | |||
| 3530 | double tau = 0; | |||
| 3531 | double work = 0; | |||
| 3532 | int lwork = 0; | |||
| 3533 | int info = 0; | |||
| 3534 | static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)}; | |||
| 3535 | ||||
| 3536 | /*routdebugenter*/ | |||
| 3537 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3538 | f2py_start_clock(); | |||
| 3539 | #endif | |||
| 3540 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 3541 | "O|OO:_flapack.dgehrd_lwork",\ | |||
| 3542 | capi_kwlist,&n_capi,&lo_capi,&hi_capi)) | |||
| 3543 | return NULL((void*)0); | |||
| 3544 | /*frompyobj*/ | |||
| 3545 | /* Processing variable n */ | |||
| 3546 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgehrd_lwork() 1st argument (n) can't be converted to int"); | |||
| 3547 | if (f2py_success) { | |||
| 3548 | /* Processing variable a */ | |||
| 3549 | /* Processing variable lo */ | |||
| 3550 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 3551 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.dgehrd_lwork() 1st keyword (lo) can't be converted to int"); | |||
| 3552 | if (f2py_success) { | |||
| 3553 | /* Processing variable tau */ | |||
| 3554 | /* Processing variable work */ | |||
| 3555 | /* Processing variable lwork */ | |||
| 3556 | lwork = -1; | |||
| 3557 | /* Processing variable info */ | |||
| 3558 | /* Processing variable hi */ | |||
| 3559 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 3560 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.dgehrd_lwork() 2nd keyword (hi) can't be converted to int"); | |||
| 3561 | if (f2py_success) { | |||
| 3562 | /*end of frompyobj*/ | |||
| 3563 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3564 | f2py_start_call_clock(); | |||
| 3565 | #endif | |||
| 3566 | /*callfortranroutine*/ | |||
| 3567 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ; | |||
| 3568 | /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/ | |||
| 3569 | if (PyErr_Occurred()) | |||
| 3570 | f2py_success = 0; | |||
| 3571 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3572 | f2py_stop_call_clock(); | |||
| 3573 | #endif | |||
| 3574 | /*end of callfortranroutine*/ | |||
| 3575 | if (f2py_success) { | |||
| 3576 | /*pyobjfrom*/ | |||
| 3577 | /*end of pyobjfrom*/ | |||
| 3578 | CFUNCSMESS("Building return value.\n"); | |||
| 3579 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 3580 | /*closepyobjfrom*/ | |||
| 3581 | /*end of closepyobjfrom*/ | |||
| 3582 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 3583 | /*cleanupfrompyobj*/ | |||
| 3584 | } /*if (f2py_success) of hi*/ | |||
| 3585 | /* End of cleaning variable hi */ | |||
| 3586 | /* End of cleaning variable info */ | |||
| 3587 | /* End of cleaning variable lwork */ | |||
| 3588 | /* End of cleaning variable work */ | |||
| 3589 | /* End of cleaning variable tau */ | |||
| 3590 | } /*if (f2py_success) of lo*/ | |||
| 3591 | /* End of cleaning variable lo */ | |||
| 3592 | /* End of cleaning variable a */ | |||
| 3593 | } /*if (f2py_success) of n*/ | |||
| 3594 | /* End of cleaning variable n */ | |||
| 3595 | /*end of cleanupfrompyobj*/ | |||
| 3596 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 3597 | /*routdebugfailure*/ | |||
| 3598 | } else { | |||
| 3599 | /*routdebugleave*/ | |||
| 3600 | } | |||
| 3601 | CFUNCSMESS("Freeing memory.\n"); | |||
| 3602 | /*freemem*/ | |||
| 3603 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3604 | f2py_stop_clock(); | |||
| 3605 | #endif | |||
| 3606 | return capi_buildvalue; | |||
| 3607 | } | |||
| 3608 | /**************************** end of dgehrd_lwork ****************************/ | |||
| 3609 | ||||
| 3610 | /******************************** cgehrd_lwork ********************************/ | |||
| 3611 | static char doc_f2py_rout__flapack_cgehrd_lwork[] = "\ | |||
| 3612 | work,info = cgehrd_lwork(n,[lo,hi])\n\nWrapper for ``cgehrd_lwork``.\ | |||
| 3613 | \n\nParameters\n----------\n" | |||
| 3614 | "n : input int\n" | |||
| 3615 | "\nOther Parameters\n----------------\n" | |||
| 3616 | "lo : input int, optional\n Default: 0\n" | |||
| 3617 | "hi : input int, optional\n Default: n-1\n" | |||
| 3618 | "\nReturns\n-------\n" | |||
| 3619 | "work : complex\n" | |||
| 3620 | "info : int"; | |||
| 3621 | /* extern void F_FUNC(cgehrd ,CGEHRD )(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 3622 | static PyObject *f2py_rout__flapack_cgehrd_lwork(const PyObject *capi_self, | |||
| 3623 | PyObject *capi_args, | |||
| 3624 | PyObject *capi_keywds, | |||
| 3625 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 3626 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 3627 | volatile int f2py_success = 1; | |||
| 3628 | /*decl*/ | |||
| 3629 | ||||
| 3630 | int n = 0; | |||
| 3631 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 3632 | int lo = 0; | |||
| 3633 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 3634 | int hi = 0; | |||
| 3635 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 3636 | complex_float a; | |||
| 3637 | complex_float tau; | |||
| 3638 | complex_float work; | |||
| 3639 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 3640 | int lwork = 0; | |||
| 3641 | int info = 0; | |||
| 3642 | static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)}; | |||
| 3643 | ||||
| 3644 | /*routdebugenter*/ | |||
| 3645 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3646 | f2py_start_clock(); | |||
| 3647 | #endif | |||
| 3648 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 3649 | "O|OO:_flapack.cgehrd_lwork",\ | |||
| 3650 | capi_kwlist,&n_capi,&lo_capi,&hi_capi)) | |||
| 3651 | return NULL((void*)0); | |||
| 3652 | /*frompyobj*/ | |||
| 3653 | /* Processing variable n */ | |||
| 3654 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgehrd_lwork() 1st argument (n) can't be converted to int"); | |||
| 3655 | if (f2py_success) { | |||
| 3656 | /* Processing variable a */ | |||
| 3657 | /* Processing variable lo */ | |||
| 3658 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 3659 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.cgehrd_lwork() 1st keyword (lo) can't be converted to int"); | |||
| 3660 | if (f2py_success) { | |||
| 3661 | /* Processing variable tau */ | |||
| 3662 | /* Processing variable work */ | |||
| 3663 | /* Processing variable lwork */ | |||
| 3664 | lwork = -1; | |||
| 3665 | /* Processing variable info */ | |||
| 3666 | /* Processing variable hi */ | |||
| 3667 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 3668 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.cgehrd_lwork() 2nd keyword (hi) can't be converted to int"); | |||
| 3669 | if (f2py_success) { | |||
| 3670 | /*end of frompyobj*/ | |||
| 3671 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3672 | f2py_start_call_clock(); | |||
| 3673 | #endif | |||
| 3674 | /*callfortranroutine*/ | |||
| 3675 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ; | |||
| 3676 | /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/ | |||
| 3677 | if (PyErr_Occurred()) | |||
| 3678 | f2py_success = 0; | |||
| 3679 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3680 | f2py_stop_call_clock(); | |||
| 3681 | #endif | |||
| 3682 | /*end of callfortranroutine*/ | |||
| 3683 | if (f2py_success) { | |||
| 3684 | /*pyobjfrom*/ | |||
| 3685 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 3686 | /*end of pyobjfrom*/ | |||
| 3687 | CFUNCSMESS("Building return value.\n"); | |||
| 3688 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 3689 | /*closepyobjfrom*/ | |||
| 3690 | /*end of closepyobjfrom*/ | |||
| 3691 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 3692 | /*cleanupfrompyobj*/ | |||
| 3693 | } /*if (f2py_success) of hi*/ | |||
| 3694 | /* End of cleaning variable hi */ | |||
| 3695 | /* End of cleaning variable info */ | |||
| 3696 | /* End of cleaning variable lwork */ | |||
| 3697 | /* End of cleaning variable work */ | |||
| 3698 | /* End of cleaning variable tau */ | |||
| 3699 | } /*if (f2py_success) of lo*/ | |||
| 3700 | /* End of cleaning variable lo */ | |||
| 3701 | /* End of cleaning variable a */ | |||
| 3702 | } /*if (f2py_success) of n*/ | |||
| 3703 | /* End of cleaning variable n */ | |||
| 3704 | /*end of cleanupfrompyobj*/ | |||
| 3705 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 3706 | /*routdebugfailure*/ | |||
| 3707 | } else { | |||
| 3708 | /*routdebugleave*/ | |||
| 3709 | } | |||
| 3710 | CFUNCSMESS("Freeing memory.\n"); | |||
| 3711 | /*freemem*/ | |||
| 3712 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3713 | f2py_stop_clock(); | |||
| 3714 | #endif | |||
| 3715 | return capi_buildvalue; | |||
| 3716 | } | |||
| 3717 | /**************************** end of cgehrd_lwork ****************************/ | |||
| 3718 | ||||
| 3719 | /******************************** zgehrd_lwork ********************************/ | |||
| 3720 | static char doc_f2py_rout__flapack_zgehrd_lwork[] = "\ | |||
| 3721 | work,info = zgehrd_lwork(n,[lo,hi])\n\nWrapper for ``zgehrd_lwork``.\ | |||
| 3722 | \n\nParameters\n----------\n" | |||
| 3723 | "n : input int\n" | |||
| 3724 | "\nOther Parameters\n----------------\n" | |||
| 3725 | "lo : input int, optional\n Default: 0\n" | |||
| 3726 | "hi : input int, optional\n Default: n-1\n" | |||
| 3727 | "\nReturns\n-------\n" | |||
| 3728 | "work : complex\n" | |||
| 3729 | "info : int"; | |||
| 3730 | /* extern void F_FUNC(zgehrd ,ZGEHRD )(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 3731 | static PyObject *f2py_rout__flapack_zgehrd_lwork(const PyObject *capi_self, | |||
| 3732 | PyObject *capi_args, | |||
| 3733 | PyObject *capi_keywds, | |||
| 3734 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 3735 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 3736 | volatile int f2py_success = 1; | |||
| 3737 | /*decl*/ | |||
| 3738 | ||||
| 3739 | int n = 0; | |||
| 3740 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 3741 | int lo = 0; | |||
| 3742 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 3743 | int hi = 0; | |||
| 3744 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 3745 | complex_double a; | |||
| 3746 | complex_double tau; | |||
| 3747 | complex_double work; | |||
| 3748 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 3749 | int lwork = 0; | |||
| 3750 | int info = 0; | |||
| 3751 | static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)}; | |||
| 3752 | ||||
| 3753 | /*routdebugenter*/ | |||
| 3754 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3755 | f2py_start_clock(); | |||
| 3756 | #endif | |||
| 3757 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 3758 | "O|OO:_flapack.zgehrd_lwork",\ | |||
| 3759 | capi_kwlist,&n_capi,&lo_capi,&hi_capi)) | |||
| 3760 | return NULL((void*)0); | |||
| 3761 | /*frompyobj*/ | |||
| 3762 | /* Processing variable n */ | |||
| 3763 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgehrd_lwork() 1st argument (n) can't be converted to int"); | |||
| 3764 | if (f2py_success) { | |||
| 3765 | /* Processing variable a */ | |||
| 3766 | /* Processing variable lo */ | |||
| 3767 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 3768 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.zgehrd_lwork() 1st keyword (lo) can't be converted to int"); | |||
| 3769 | if (f2py_success) { | |||
| 3770 | /* Processing variable tau */ | |||
| 3771 | /* Processing variable work */ | |||
| 3772 | /* Processing variable lwork */ | |||
| 3773 | lwork = -1; | |||
| 3774 | /* Processing variable info */ | |||
| 3775 | /* Processing variable hi */ | |||
| 3776 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 3777 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.zgehrd_lwork() 2nd keyword (hi) can't be converted to int"); | |||
| 3778 | if (f2py_success) { | |||
| 3779 | /*end of frompyobj*/ | |||
| 3780 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3781 | f2py_start_call_clock(); | |||
| 3782 | #endif | |||
| 3783 | /*callfortranroutine*/ | |||
| 3784 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ; | |||
| 3785 | /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/ | |||
| 3786 | if (PyErr_Occurred()) | |||
| 3787 | f2py_success = 0; | |||
| 3788 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3789 | f2py_stop_call_clock(); | |||
| 3790 | #endif | |||
| 3791 | /*end of callfortranroutine*/ | |||
| 3792 | if (f2py_success) { | |||
| 3793 | /*pyobjfrom*/ | |||
| 3794 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 3795 | /*end of pyobjfrom*/ | |||
| 3796 | CFUNCSMESS("Building return value.\n"); | |||
| 3797 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 3798 | /*closepyobjfrom*/ | |||
| 3799 | /*end of closepyobjfrom*/ | |||
| 3800 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 3801 | /*cleanupfrompyobj*/ | |||
| 3802 | } /*if (f2py_success) of hi*/ | |||
| 3803 | /* End of cleaning variable hi */ | |||
| 3804 | /* End of cleaning variable info */ | |||
| 3805 | /* End of cleaning variable lwork */ | |||
| 3806 | /* End of cleaning variable work */ | |||
| 3807 | /* End of cleaning variable tau */ | |||
| 3808 | } /*if (f2py_success) of lo*/ | |||
| 3809 | /* End of cleaning variable lo */ | |||
| 3810 | /* End of cleaning variable a */ | |||
| 3811 | } /*if (f2py_success) of n*/ | |||
| 3812 | /* End of cleaning variable n */ | |||
| 3813 | /*end of cleanupfrompyobj*/ | |||
| 3814 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 3815 | /*routdebugfailure*/ | |||
| 3816 | } else { | |||
| 3817 | /*routdebugleave*/ | |||
| 3818 | } | |||
| 3819 | CFUNCSMESS("Freeing memory.\n"); | |||
| 3820 | /*freemem*/ | |||
| 3821 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3822 | f2py_stop_clock(); | |||
| 3823 | #endif | |||
| 3824 | return capi_buildvalue; | |||
| 3825 | } | |||
| 3826 | /**************************** end of zgehrd_lwork ****************************/ | |||
| 3827 | ||||
| 3828 | /*********************************** sgesv ***********************************/ | |||
| 3829 | static char doc_f2py_rout__flapack_sgesv[] = "\ | |||
| 3830 | lu,piv,x,info = sgesv(a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``sgesv``.\ | |||
| 3831 | \n\nParameters\n----------\n" | |||
| 3832 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 3833 | "b : input rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 3834 | "\nOther Parameters\n----------------\n" | |||
| 3835 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 3836 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 3837 | "\nReturns\n-------\n" | |||
| 3838 | "lu : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 3839 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 3840 | "x : rank-2 array('f') with bounds (n,nrhs) and b storage\n" | |||
| 3841 | "info : int"; | |||
| 3842 | /* extern void F_FUNC(sgesv,SGESV)(F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 3843 | static PyObject *f2py_rout__flapack_sgesv(const PyObject *capi_self, | |||
| 3844 | PyObject *capi_args, | |||
| 3845 | PyObject *capi_keywds, | |||
| 3846 | void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 3847 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 3848 | volatile int f2py_success = 1; | |||
| 3849 | /*decl*/ | |||
| 3850 | ||||
| 3851 | int n = 0; | |||
| 3852 | int nrhs = 0; | |||
| 3853 | float *a = NULL((void*)0); | |||
| 3854 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 3855 | const int a_Rank = 2; | |||
| 3856 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 3857 | int capi_a_intent = 0; | |||
| 3858 | int capi_overwrite_a = 0; | |||
| 3859 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 3860 | int *piv = NULL((void*)0); | |||
| 3861 | npy_intp piv_Dims[1] = {-1}; | |||
| 3862 | const int piv_Rank = 1; | |||
| 3863 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 3864 | int capi_piv_intent = 0; | |||
| 3865 | float *b = NULL((void*)0); | |||
| 3866 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 3867 | const int b_Rank = 2; | |||
| 3868 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 3869 | int capi_b_intent = 0; | |||
| 3870 | int capi_overwrite_b = 0; | |||
| 3871 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 3872 | int info = 0; | |||
| 3873 | static char *capi_kwlist[] = {"a","b","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 3874 | ||||
| 3875 | /*routdebugenter*/ | |||
| 3876 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3877 | f2py_start_clock(); | |||
| 3878 | #endif | |||
| 3879 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 3880 | "OO|ii:_flapack.sgesv",\ | |||
| 3881 | capi_kwlist,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 3882 | return NULL((void*)0); | |||
| 3883 | /*frompyobj*/ | |||
| 3884 | /* Processing variable a */ | |||
| 3885 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 3886 | ; | |||
| 3887 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 3888 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 3889 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 3890 | if (!PyErr_Occurred()) | |||
| 3891 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgesv to C/Fortran array" ); | |||
| 3892 | } else { | |||
| 3893 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 3894 | ||||
| 3895 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 3896 | /* Processing variable info */ | |||
| 3897 | /* Processing variable n */ | |||
| 3898 | n = shape(a,0)a_Dims[0]; | |||
| 3899 | /* Processing variable piv */ | |||
| 3900 | piv_Dims[0]=n; | |||
| 3901 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 3902 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 3903 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 3904 | if (!PyErr_Occurred()) | |||
| 3905 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.sgesv to C/Fortran array" ); | |||
| 3906 | } else { | |||
| 3907 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 3908 | ||||
| 3909 | /* Processing variable b */ | |||
| 3910 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 3911 | b_Dims[0]=n; | |||
| 3912 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 3913 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 3914 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 3915 | if (!PyErr_Occurred()) | |||
| 3916 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgesv to C/Fortran array" ); | |||
| 3917 | } else { | |||
| 3918 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 3919 | ||||
| 3920 | CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 3921 | /* Processing variable nrhs */ | |||
| 3922 | nrhs = shape(b,1)b_Dims[1]; | |||
| 3923 | /*end of frompyobj*/ | |||
| 3924 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3925 | f2py_start_call_clock(); | |||
| 3926 | #endif | |||
| 3927 | /*callfortranroutine*/ | |||
| 3928 | {F_INTint i;(*f2py_func)(&n,&nrhs,a,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 3929 | /*(*f2py_func)(&n,&nrhs,a,piv,b,&info);*/ | |||
| 3930 | if (PyErr_Occurred()) | |||
| 3931 | f2py_success = 0; | |||
| 3932 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3933 | f2py_stop_call_clock(); | |||
| 3934 | #endif | |||
| 3935 | /*end of callfortranroutine*/ | |||
| 3936 | if (f2py_success) { | |||
| 3937 | /*pyobjfrom*/ | |||
| 3938 | /*end of pyobjfrom*/ | |||
| 3939 | CFUNCSMESS("Building return value.\n"); | |||
| 3940 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_piv_tmp,capi_b_tmp,info); | |||
| 3941 | /*closepyobjfrom*/ | |||
| 3942 | /*end of closepyobjfrom*/ | |||
| 3943 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 3944 | /*cleanupfrompyobj*/ | |||
| 3945 | /* End of cleaning variable nrhs */ | |||
| 3946 | } /*CHECKARRAY(shape(a,0)==shape(b,0))*/ | |||
| 3947 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 3948 | /* End of cleaning variable b */ | |||
| 3949 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 3950 | /* End of cleaning variable piv */ | |||
| 3951 | /* End of cleaning variable n */ | |||
| 3952 | /* End of cleaning variable info */ | |||
| 3953 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 3954 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 3955 | /* End of cleaning variable a */ | |||
| 3956 | /*end of cleanupfrompyobj*/ | |||
| 3957 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 3958 | /*routdebugfailure*/ | |||
| 3959 | } else { | |||
| 3960 | /*routdebugleave*/ | |||
| 3961 | } | |||
| 3962 | CFUNCSMESS("Freeing memory.\n"); | |||
| 3963 | /*freemem*/ | |||
| 3964 | #ifdef F2PY_REPORT_ATEXIT | |||
| 3965 | f2py_stop_clock(); | |||
| 3966 | #endif | |||
| 3967 | return capi_buildvalue; | |||
| 3968 | } | |||
| 3969 | /******************************** end of sgesv ********************************/ | |||
| 3970 | ||||
| 3971 | /*********************************** dgesv ***********************************/ | |||
| 3972 | static char doc_f2py_rout__flapack_dgesv[] = "\ | |||
| 3973 | lu,piv,x,info = dgesv(a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``dgesv``.\ | |||
| 3974 | \n\nParameters\n----------\n" | |||
| 3975 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 3976 | "b : input rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 3977 | "\nOther Parameters\n----------------\n" | |||
| 3978 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 3979 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 3980 | "\nReturns\n-------\n" | |||
| 3981 | "lu : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 3982 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 3983 | "x : rank-2 array('d') with bounds (n,nrhs) and b storage\n" | |||
| 3984 | "info : int"; | |||
| 3985 | /* extern void F_FUNC(dgesv,DGESV)(F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 3986 | static PyObject *f2py_rout__flapack_dgesv(const PyObject *capi_self, | |||
| 3987 | PyObject *capi_args, | |||
| 3988 | PyObject *capi_keywds, | |||
| 3989 | void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 3990 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 3991 | volatile int f2py_success = 1; | |||
| 3992 | /*decl*/ | |||
| 3993 | ||||
| 3994 | int n = 0; | |||
| 3995 | int nrhs = 0; | |||
| 3996 | double *a = NULL((void*)0); | |||
| 3997 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 3998 | const int a_Rank = 2; | |||
| 3999 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 4000 | int capi_a_intent = 0; | |||
| 4001 | int capi_overwrite_a = 0; | |||
| 4002 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 4003 | int *piv = NULL((void*)0); | |||
| 4004 | npy_intp piv_Dims[1] = {-1}; | |||
| 4005 | const int piv_Rank = 1; | |||
| 4006 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 4007 | int capi_piv_intent = 0; | |||
| 4008 | double *b = NULL((void*)0); | |||
| 4009 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 4010 | const int b_Rank = 2; | |||
| 4011 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 4012 | int capi_b_intent = 0; | |||
| 4013 | int capi_overwrite_b = 0; | |||
| 4014 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 4015 | int info = 0; | |||
| 4016 | static char *capi_kwlist[] = {"a","b","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 4017 | ||||
| 4018 | /*routdebugenter*/ | |||
| 4019 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4020 | f2py_start_clock(); | |||
| 4021 | #endif | |||
| 4022 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 4023 | "OO|ii:_flapack.dgesv",\ | |||
| 4024 | capi_kwlist,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 4025 | return NULL((void*)0); | |||
| 4026 | /*frompyobj*/ | |||
| 4027 | /* Processing variable a */ | |||
| 4028 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 4029 | ; | |||
| 4030 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 4031 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 4032 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 4033 | if (!PyErr_Occurred()) | |||
| 4034 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgesv to C/Fortran array" ); | |||
| 4035 | } else { | |||
| 4036 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 4037 | ||||
| 4038 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 4039 | /* Processing variable info */ | |||
| 4040 | /* Processing variable n */ | |||
| 4041 | n = shape(a,0)a_Dims[0]; | |||
| 4042 | /* Processing variable piv */ | |||
| 4043 | piv_Dims[0]=n; | |||
| 4044 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 4045 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 4046 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 4047 | if (!PyErr_Occurred()) | |||
| 4048 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.dgesv to C/Fortran array" ); | |||
| 4049 | } else { | |||
| 4050 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 4051 | ||||
| 4052 | /* Processing variable b */ | |||
| 4053 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 4054 | b_Dims[0]=n; | |||
| 4055 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 4056 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 4057 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 4058 | if (!PyErr_Occurred()) | |||
| 4059 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgesv to C/Fortran array" ); | |||
| 4060 | } else { | |||
| 4061 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 4062 | ||||
| 4063 | CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 4064 | /* Processing variable nrhs */ | |||
| 4065 | nrhs = shape(b,1)b_Dims[1]; | |||
| 4066 | /*end of frompyobj*/ | |||
| 4067 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4068 | f2py_start_call_clock(); | |||
| 4069 | #endif | |||
| 4070 | /*callfortranroutine*/ | |||
| 4071 | {F_INTint i;(*f2py_func)(&n,&nrhs,a,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 4072 | /*(*f2py_func)(&n,&nrhs,a,piv,b,&info);*/ | |||
| 4073 | if (PyErr_Occurred()) | |||
| 4074 | f2py_success = 0; | |||
| 4075 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4076 | f2py_stop_call_clock(); | |||
| 4077 | #endif | |||
| 4078 | /*end of callfortranroutine*/ | |||
| 4079 | if (f2py_success) { | |||
| 4080 | /*pyobjfrom*/ | |||
| 4081 | /*end of pyobjfrom*/ | |||
| 4082 | CFUNCSMESS("Building return value.\n"); | |||
| 4083 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_piv_tmp,capi_b_tmp,info); | |||
| 4084 | /*closepyobjfrom*/ | |||
| 4085 | /*end of closepyobjfrom*/ | |||
| 4086 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 4087 | /*cleanupfrompyobj*/ | |||
| 4088 | /* End of cleaning variable nrhs */ | |||
| 4089 | } /*CHECKARRAY(shape(a,0)==shape(b,0))*/ | |||
| 4090 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 4091 | /* End of cleaning variable b */ | |||
| 4092 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 4093 | /* End of cleaning variable piv */ | |||
| 4094 | /* End of cleaning variable n */ | |||
| 4095 | /* End of cleaning variable info */ | |||
| 4096 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 4097 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 4098 | /* End of cleaning variable a */ | |||
| 4099 | /*end of cleanupfrompyobj*/ | |||
| 4100 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 4101 | /*routdebugfailure*/ | |||
| 4102 | } else { | |||
| 4103 | /*routdebugleave*/ | |||
| 4104 | } | |||
| 4105 | CFUNCSMESS("Freeing memory.\n"); | |||
| 4106 | /*freemem*/ | |||
| 4107 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4108 | f2py_stop_clock(); | |||
| 4109 | #endif | |||
| 4110 | return capi_buildvalue; | |||
| 4111 | } | |||
| 4112 | /******************************** end of dgesv ********************************/ | |||
| 4113 | ||||
| 4114 | /*********************************** cgesv ***********************************/ | |||
| 4115 | static char doc_f2py_rout__flapack_cgesv[] = "\ | |||
| 4116 | lu,piv,x,info = cgesv(a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``cgesv``.\ | |||
| 4117 | \n\nParameters\n----------\n" | |||
| 4118 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 4119 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 4120 | "\nOther Parameters\n----------------\n" | |||
| 4121 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 4122 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 4123 | "\nReturns\n-------\n" | |||
| 4124 | "lu : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 4125 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 4126 | "x : rank-2 array('F') with bounds (n,nrhs) and b storage\n" | |||
| 4127 | "info : int"; | |||
| 4128 | /* extern void F_FUNC(cgesv,CGESV)(F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 4129 | static PyObject *f2py_rout__flapack_cgesv(const PyObject *capi_self, | |||
| 4130 | PyObject *capi_args, | |||
| 4131 | PyObject *capi_keywds, | |||
| 4132 | void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 4133 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 4134 | volatile int f2py_success = 1; | |||
| 4135 | /*decl*/ | |||
| 4136 | ||||
| 4137 | int n = 0; | |||
| 4138 | int nrhs = 0; | |||
| 4139 | complex_float *a = NULL((void*)0); | |||
| 4140 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 4141 | const int a_Rank = 2; | |||
| 4142 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 4143 | int capi_a_intent = 0; | |||
| 4144 | int capi_overwrite_a = 0; | |||
| 4145 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 4146 | int *piv = NULL((void*)0); | |||
| 4147 | npy_intp piv_Dims[1] = {-1}; | |||
| 4148 | const int piv_Rank = 1; | |||
| 4149 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 4150 | int capi_piv_intent = 0; | |||
| 4151 | complex_float *b = NULL((void*)0); | |||
| 4152 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 4153 | const int b_Rank = 2; | |||
| 4154 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 4155 | int capi_b_intent = 0; | |||
| 4156 | int capi_overwrite_b = 0; | |||
| 4157 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 4158 | int info = 0; | |||
| 4159 | static char *capi_kwlist[] = {"a","b","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 4160 | ||||
| 4161 | /*routdebugenter*/ | |||
| 4162 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4163 | f2py_start_clock(); | |||
| 4164 | #endif | |||
| 4165 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 4166 | "OO|ii:_flapack.cgesv",\ | |||
| 4167 | capi_kwlist,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 4168 | return NULL((void*)0); | |||
| 4169 | /*frompyobj*/ | |||
| 4170 | /* Processing variable a */ | |||
| 4171 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 4172 | ; | |||
| 4173 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 4174 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 4175 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 4176 | if (!PyErr_Occurred()) | |||
| 4177 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgesv to C/Fortran array" ); | |||
| 4178 | } else { | |||
| 4179 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 4180 | ||||
| 4181 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 4182 | /* Processing variable info */ | |||
| 4183 | /* Processing variable n */ | |||
| 4184 | n = shape(a,0)a_Dims[0]; | |||
| 4185 | /* Processing variable piv */ | |||
| 4186 | piv_Dims[0]=n; | |||
| 4187 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 4188 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 4189 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 4190 | if (!PyErr_Occurred()) | |||
| 4191 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.cgesv to C/Fortran array" ); | |||
| 4192 | } else { | |||
| 4193 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 4194 | ||||
| 4195 | /* Processing variable b */ | |||
| 4196 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 4197 | b_Dims[0]=n; | |||
| 4198 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 4199 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 4200 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 4201 | if (!PyErr_Occurred()) | |||
| 4202 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgesv to C/Fortran array" ); | |||
| 4203 | } else { | |||
| 4204 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 4205 | ||||
| 4206 | CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 4207 | /* Processing variable nrhs */ | |||
| 4208 | nrhs = shape(b,1)b_Dims[1]; | |||
| 4209 | /*end of frompyobj*/ | |||
| 4210 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4211 | f2py_start_call_clock(); | |||
| 4212 | #endif | |||
| 4213 | /*callfortranroutine*/ | |||
| 4214 | {F_INTint i;(*f2py_func)(&n,&nrhs,a,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 4215 | /*(*f2py_func)(&n,&nrhs,a,piv,b,&info);*/ | |||
| 4216 | if (PyErr_Occurred()) | |||
| 4217 | f2py_success = 0; | |||
| 4218 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4219 | f2py_stop_call_clock(); | |||
| 4220 | #endif | |||
| 4221 | /*end of callfortranroutine*/ | |||
| 4222 | if (f2py_success) { | |||
| 4223 | /*pyobjfrom*/ | |||
| 4224 | /*end of pyobjfrom*/ | |||
| 4225 | CFUNCSMESS("Building return value.\n"); | |||
| 4226 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_piv_tmp,capi_b_tmp,info); | |||
| 4227 | /*closepyobjfrom*/ | |||
| 4228 | /*end of closepyobjfrom*/ | |||
| 4229 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 4230 | /*cleanupfrompyobj*/ | |||
| 4231 | /* End of cleaning variable nrhs */ | |||
| 4232 | } /*CHECKARRAY(shape(a,0)==shape(b,0))*/ | |||
| 4233 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 4234 | /* End of cleaning variable b */ | |||
| 4235 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 4236 | /* End of cleaning variable piv */ | |||
| 4237 | /* End of cleaning variable n */ | |||
| 4238 | /* End of cleaning variable info */ | |||
| 4239 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 4240 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 4241 | /* End of cleaning variable a */ | |||
| 4242 | /*end of cleanupfrompyobj*/ | |||
| 4243 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 4244 | /*routdebugfailure*/ | |||
| 4245 | } else { | |||
| 4246 | /*routdebugleave*/ | |||
| 4247 | } | |||
| 4248 | CFUNCSMESS("Freeing memory.\n"); | |||
| 4249 | /*freemem*/ | |||
| 4250 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4251 | f2py_stop_clock(); | |||
| 4252 | #endif | |||
| 4253 | return capi_buildvalue; | |||
| 4254 | } | |||
| 4255 | /******************************** end of cgesv ********************************/ | |||
| 4256 | ||||
| 4257 | /*********************************** zgesv ***********************************/ | |||
| 4258 | static char doc_f2py_rout__flapack_zgesv[] = "\ | |||
| 4259 | lu,piv,x,info = zgesv(a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``zgesv``.\ | |||
| 4260 | \n\nParameters\n----------\n" | |||
| 4261 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 4262 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 4263 | "\nOther Parameters\n----------------\n" | |||
| 4264 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 4265 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 4266 | "\nReturns\n-------\n" | |||
| 4267 | "lu : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 4268 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 4269 | "x : rank-2 array('D') with bounds (n,nrhs) and b storage\n" | |||
| 4270 | "info : int"; | |||
| 4271 | /* extern void F_FUNC(zgesv,ZGESV)(F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 4272 | static PyObject *f2py_rout__flapack_zgesv(const PyObject *capi_self, | |||
| 4273 | PyObject *capi_args, | |||
| 4274 | PyObject *capi_keywds, | |||
| 4275 | void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 4276 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 4277 | volatile int f2py_success = 1; | |||
| 4278 | /*decl*/ | |||
| 4279 | ||||
| 4280 | int n = 0; | |||
| 4281 | int nrhs = 0; | |||
| 4282 | complex_double *a = NULL((void*)0); | |||
| 4283 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 4284 | const int a_Rank = 2; | |||
| 4285 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 4286 | int capi_a_intent = 0; | |||
| 4287 | int capi_overwrite_a = 0; | |||
| 4288 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 4289 | int *piv = NULL((void*)0); | |||
| 4290 | npy_intp piv_Dims[1] = {-1}; | |||
| 4291 | const int piv_Rank = 1; | |||
| 4292 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 4293 | int capi_piv_intent = 0; | |||
| 4294 | complex_double *b = NULL((void*)0); | |||
| 4295 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 4296 | const int b_Rank = 2; | |||
| 4297 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 4298 | int capi_b_intent = 0; | |||
| 4299 | int capi_overwrite_b = 0; | |||
| 4300 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 4301 | int info = 0; | |||
| 4302 | static char *capi_kwlist[] = {"a","b","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 4303 | ||||
| 4304 | /*routdebugenter*/ | |||
| 4305 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4306 | f2py_start_clock(); | |||
| 4307 | #endif | |||
| 4308 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 4309 | "OO|ii:_flapack.zgesv",\ | |||
| 4310 | capi_kwlist,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 4311 | return NULL((void*)0); | |||
| 4312 | /*frompyobj*/ | |||
| 4313 | /* Processing variable a */ | |||
| 4314 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 4315 | ; | |||
| 4316 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 4317 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 4318 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 4319 | if (!PyErr_Occurred()) | |||
| 4320 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgesv to C/Fortran array" ); | |||
| 4321 | } else { | |||
| 4322 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 4323 | ||||
| 4324 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 4325 | /* Processing variable info */ | |||
| 4326 | /* Processing variable n */ | |||
| 4327 | n = shape(a,0)a_Dims[0]; | |||
| 4328 | /* Processing variable piv */ | |||
| 4329 | piv_Dims[0]=n; | |||
| 4330 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 4331 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 4332 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 4333 | if (!PyErr_Occurred()) | |||
| 4334 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.zgesv to C/Fortran array" ); | |||
| 4335 | } else { | |||
| 4336 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 4337 | ||||
| 4338 | /* Processing variable b */ | |||
| 4339 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 4340 | b_Dims[0]=n; | |||
| 4341 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 4342 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 4343 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 4344 | if (!PyErr_Occurred()) | |||
| 4345 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgesv to C/Fortran array" ); | |||
| 4346 | } else { | |||
| 4347 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 4348 | ||||
| 4349 | CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 4350 | /* Processing variable nrhs */ | |||
| 4351 | nrhs = shape(b,1)b_Dims[1]; | |||
| 4352 | /*end of frompyobj*/ | |||
| 4353 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4354 | f2py_start_call_clock(); | |||
| 4355 | #endif | |||
| 4356 | /*callfortranroutine*/ | |||
| 4357 | {F_INTint i;(*f2py_func)(&n,&nrhs,a,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 4358 | /*(*f2py_func)(&n,&nrhs,a,piv,b,&info);*/ | |||
| 4359 | if (PyErr_Occurred()) | |||
| 4360 | f2py_success = 0; | |||
| 4361 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4362 | f2py_stop_call_clock(); | |||
| 4363 | #endif | |||
| 4364 | /*end of callfortranroutine*/ | |||
| 4365 | if (f2py_success) { | |||
| 4366 | /*pyobjfrom*/ | |||
| 4367 | /*end of pyobjfrom*/ | |||
| 4368 | CFUNCSMESS("Building return value.\n"); | |||
| 4369 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_piv_tmp,capi_b_tmp,info); | |||
| 4370 | /*closepyobjfrom*/ | |||
| 4371 | /*end of closepyobjfrom*/ | |||
| 4372 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 4373 | /*cleanupfrompyobj*/ | |||
| 4374 | /* End of cleaning variable nrhs */ | |||
| 4375 | } /*CHECKARRAY(shape(a,0)==shape(b,0))*/ | |||
| 4376 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 4377 | /* End of cleaning variable b */ | |||
| 4378 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 4379 | /* End of cleaning variable piv */ | |||
| 4380 | /* End of cleaning variable n */ | |||
| 4381 | /* End of cleaning variable info */ | |||
| 4382 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 4383 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 4384 | /* End of cleaning variable a */ | |||
| 4385 | /*end of cleanupfrompyobj*/ | |||
| 4386 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 4387 | /*routdebugfailure*/ | |||
| 4388 | } else { | |||
| 4389 | /*routdebugleave*/ | |||
| 4390 | } | |||
| 4391 | CFUNCSMESS("Freeing memory.\n"); | |||
| 4392 | /*freemem*/ | |||
| 4393 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4394 | f2py_stop_clock(); | |||
| 4395 | #endif | |||
| 4396 | return capi_buildvalue; | |||
| 4397 | } | |||
| 4398 | /******************************** end of zgesv ********************************/ | |||
| 4399 | ||||
| 4400 | /*********************************** sgesvx ***********************************/ | |||
| 4401 | static char doc_f2py_rout__flapack_sgesvx[] = "\ | |||
| 4402 | as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = sgesvx(a,b,[fact,trans,af,ipiv,equed,r,c,overwrite_a,overwrite_b])\n\nWrapper for ``sgesvx``.\ | |||
| 4403 | \n\nParameters\n----------\n" | |||
| 4404 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 4405 | "b : input rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 4406 | "\nOther Parameters\n----------------\n" | |||
| 4407 | "fact : input string(len=1), optional\n Default: 'E'\n" | |||
| 4408 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 4409 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 4410 | "af : input rank-2 array('f') with bounds (n,n)\n" | |||
| 4411 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 4412 | "equed : input string(len=1), optional\n Default: 'B'\n" | |||
| 4413 | "r : input rank-1 array('f') with bounds (n)\n" | |||
| 4414 | "c : input rank-1 array('f') with bounds (n)\n" | |||
| 4415 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 4416 | "\nReturns\n-------\n" | |||
| 4417 | "as : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 4418 | "lu : rank-2 array('f') with bounds (n,n) and af storage\n" | |||
| 4419 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 4420 | "equed : string(len=1)\n" | |||
| 4421 | "rs : rank-1 array('f') with bounds (n) and r storage\n" | |||
| 4422 | "cs : rank-1 array('f') with bounds (n) and c storage\n" | |||
| 4423 | "bs : rank-2 array('f') with bounds (n,nrhs) and b storage\n" | |||
| 4424 | "x : rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 4425 | "rcond : float\n" | |||
| 4426 | "ferr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 4427 | "berr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 4428 | "info : int"; | |||
| 4429 | /* extern void F_FUNC(sgesvx,SGESVX)(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,char*,float*,float*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */ | |||
| 4430 | static PyObject *f2py_rout__flapack_sgesvx(const PyObject *capi_self, | |||
| 4431 | PyObject *capi_args, | |||
| 4432 | PyObject *capi_keywds, | |||
| 4433 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,char*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 4434 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 4435 | volatile int f2py_success = 1; | |||
| 4436 | /*decl*/ | |||
| 4437 | ||||
| 4438 | string fact = NULL((void*)0); | |||
| 4439 | int slen(fact)capi_fact_len; | |||
| 4440 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 4441 | string trans = NULL((void*)0); | |||
| 4442 | int slen(trans)capi_trans_len; | |||
| 4443 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 4444 | int n = 0; | |||
| 4445 | int nrhs = 0; | |||
| 4446 | float *a = NULL((void*)0); | |||
| 4447 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 4448 | const int a_Rank = 2; | |||
| 4449 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 4450 | int capi_a_intent = 0; | |||
| 4451 | int capi_overwrite_a = 0; | |||
| 4452 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 4453 | int lda = 0; | |||
| 4454 | float *af = NULL((void*)0); | |||
| 4455 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 4456 | const int af_Rank = 2; | |||
| 4457 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 4458 | int capi_af_intent = 0; | |||
| 4459 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 4460 | int ldaf = 0; | |||
| 4461 | int *ipiv = NULL((void*)0); | |||
| 4462 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 4463 | const int ipiv_Rank = 1; | |||
| 4464 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 4465 | int capi_ipiv_intent = 0; | |||
| 4466 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 4467 | string equed = NULL((void*)0); | |||
| 4468 | int slen(equed)capi_equed_len; | |||
| 4469 | PyObject *equed_capi = Py_None(&_Py_NoneStruct); | |||
| 4470 | float *r = NULL((void*)0); | |||
| 4471 | npy_intp r_Dims[1] = {-1}; | |||
| 4472 | const int r_Rank = 1; | |||
| 4473 | PyArrayObject *capi_r_tmp = NULL((void*)0); | |||
| 4474 | int capi_r_intent = 0; | |||
| 4475 | PyObject *r_capi = Py_None(&_Py_NoneStruct); | |||
| 4476 | float *c = NULL((void*)0); | |||
| 4477 | npy_intp c_Dims[1] = {-1}; | |||
| 4478 | const int c_Rank = 1; | |||
| 4479 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 4480 | int capi_c_intent = 0; | |||
| 4481 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 4482 | float *b = NULL((void*)0); | |||
| 4483 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 4484 | const int b_Rank = 2; | |||
| 4485 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 4486 | int capi_b_intent = 0; | |||
| 4487 | int capi_overwrite_b = 0; | |||
| 4488 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 4489 | int ldb = 0; | |||
| 4490 | float *x = NULL((void*)0); | |||
| 4491 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 4492 | const int x_Rank = 2; | |||
| 4493 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 4494 | int capi_x_intent = 0; | |||
| 4495 | int ldx = 0; | |||
| 4496 | float rcond = 0; | |||
| 4497 | float *ferr = NULL((void*)0); | |||
| 4498 | npy_intp ferr_Dims[1] = {-1}; | |||
| 4499 | const int ferr_Rank = 1; | |||
| 4500 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 4501 | int capi_ferr_intent = 0; | |||
| 4502 | float *berr = NULL((void*)0); | |||
| 4503 | npy_intp berr_Dims[1] = {-1}; | |||
| 4504 | const int berr_Rank = 1; | |||
| 4505 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 4506 | int capi_berr_intent = 0; | |||
| 4507 | float *work = NULL((void*)0); | |||
| 4508 | npy_intp work_Dims[1] = {-1}; | |||
| 4509 | const int work_Rank = 1; | |||
| 4510 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 4511 | int capi_work_intent = 0; | |||
| 4512 | int *iwork = NULL((void*)0); | |||
| 4513 | npy_intp iwork_Dims[1] = {-1}; | |||
| 4514 | const int iwork_Rank = 1; | |||
| 4515 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 4516 | int capi_iwork_intent = 0; | |||
| 4517 | int info = 0; | |||
| 4518 | static char *capi_kwlist[] = {"a","b","fact","trans","af","ipiv","equed","r","c","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 4519 | ||||
| 4520 | /*routdebugenter*/ | |||
| 4521 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4522 | f2py_start_clock(); | |||
| 4523 | #endif | |||
| 4524 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 4525 | "OO|OOOOOOOii:_flapack.sgesvx",\ | |||
| 4526 | capi_kwlist,&a_capi,&b_capi,&fact_capi,&trans_capi,&af_capi,&ipiv_capi,&equed_capi,&r_capi,&c_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 4527 | return NULL((void*)0); | |||
| 4528 | /*frompyobj*/ | |||
| 4529 | /* Processing variable fact */ | |||
| 4530 | slen(fact)capi_fact_len = 1; | |||
| 4531 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.sgesvx to C string"); | |||
| 4532 | if (f2py_success) { | |||
| 4533 | /* Processing variable a */ | |||
| 4534 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 4535 | ; | |||
| 4536 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 4537 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 4538 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 4539 | if (!PyErr_Occurred()) | |||
| 4540 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgesvx to C/Fortran array" ); | |||
| 4541 | } else { | |||
| 4542 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 4543 | ||||
| 4544 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 4545 | /* Processing variable rcond */ | |||
| 4546 | /* Processing variable info */ | |||
| 4547 | /* Processing variable n */ | |||
| 4548 | n = shape(a,0)a_Dims[0]; | |||
| 4549 | /* Processing variable lda */ | |||
| 4550 | lda = shape(a,0)a_Dims[0]; | |||
| 4551 | /* Processing variable af */ | |||
| 4552 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 4553 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 4554 | capi_af_tmp = array_from_pyobj(NPY_FLOAT,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 4555 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 4556 | if (!PyErr_Occurred()) | |||
| 4557 | PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `af' of _flapack.sgesvx to C/Fortran array" ); | |||
| 4558 | } else { | |||
| 4559 | af = (float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 4560 | ||||
| 4561 | /* Processing variable ldaf */ | |||
| 4562 | ldaf = shape(af,0)af_Dims[0]; | |||
| 4563 | /* Processing variable ipiv */ | |||
| 4564 | ipiv_Dims[0]=n; | |||
| 4565 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 4566 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 4567 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 4568 | if (!PyErr_Occurred()) | |||
| 4569 | PyErr_SetString(_flapack_error,"failed in converting 4th keyword `ipiv' of _flapack.sgesvx to C/Fortran array" ); | |||
| 4570 | } else { | |||
| 4571 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 4572 | ||||
| 4573 | /* Processing variable r */ | |||
| 4574 | r_Dims[0]=n; | |||
| 4575 | capi_r_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 4576 | capi_r_tmp = array_from_pyobj(NPY_FLOAT,r_Dims,r_Rank,capi_r_intent,r_capi); | |||
| 4577 | if (capi_r_tmp == NULL((void*)0)) { | |||
| 4578 | if (!PyErr_Occurred()) | |||
| 4579 | PyErr_SetString(_flapack_error,"failed in converting 6th keyword `r' of _flapack.sgesvx to C/Fortran array" ); | |||
| 4580 | } else { | |||
| 4581 | r = (float *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data)); | |||
| 4582 | ||||
| 4583 | /* Processing variable c */ | |||
| 4584 | c_Dims[0]=n; | |||
| 4585 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 4586 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 4587 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 4588 | if (!PyErr_Occurred()) | |||
| 4589 | PyErr_SetString(_flapack_error,"failed in converting 7th keyword `c' of _flapack.sgesvx to C/Fortran array" ); | |||
| 4590 | } else { | |||
| 4591 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 4592 | ||||
| 4593 | /* Processing variable b */ | |||
| 4594 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 4595 | b_Dims[0]=n; | |||
| 4596 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 4597 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 4598 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 4599 | if (!PyErr_Occurred()) | |||
| 4600 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgesvx to C/Fortran array" ); | |||
| 4601 | } else { | |||
| 4602 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 4603 | ||||
| 4604 | /* Processing variable ldb */ | |||
| 4605 | ldb = shape(b,0)b_Dims[0]; | |||
| 4606 | /* Processing variable ldx */ | |||
| 4607 | ldx = n; | |||
| 4608 | /* Processing variable work */ | |||
| 4609 | work_Dims[0]=4 * n; | |||
| 4610 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 4611 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 4612 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 4613 | if (!PyErr_Occurred()) | |||
| 4614 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgesvx to C/Fortran array" ); | |||
| 4615 | } else { | |||
| 4616 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 4617 | ||||
| 4618 | /* Processing variable iwork */ | |||
| 4619 | iwork_Dims[0]=n; | |||
| 4620 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 4621 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 4622 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 4623 | if (!PyErr_Occurred()) | |||
| 4624 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sgesvx to C/Fortran array" ); | |||
| 4625 | } else { | |||
| 4626 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 4627 | ||||
| 4628 | /* Processing variable trans */ | |||
| 4629 | slen(trans)capi_trans_len = 1; | |||
| 4630 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.sgesvx to C string"); | |||
| 4631 | if (f2py_success) { | |||
| 4632 | /* Processing variable nrhs */ | |||
| 4633 | nrhs = shape(b,1)b_Dims[1]; | |||
| 4634 | /* Processing variable equed */ | |||
| 4635 | slen(equed)capi_equed_len = 1; | |||
| 4636 | f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"B",equed_capi,"string_from_pyobj failed in converting 5th keyword `equed' of _flapack.sgesvx to C string"); | |||
| 4637 | if (f2py_success) { | |||
| 4638 | /* Processing variable x */ | |||
| 4639 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 4640 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 4641 | capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 4642 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 4643 | if (!PyErr_Occurred()) | |||
| 4644 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.sgesvx to C/Fortran array" ); | |||
| 4645 | } else { | |||
| 4646 | x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 4647 | ||||
| 4648 | /* Processing variable ferr */ | |||
| 4649 | ferr_Dims[0]=nrhs; | |||
| 4650 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 4651 | capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 4652 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 4653 | if (!PyErr_Occurred()) | |||
| 4654 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.sgesvx to C/Fortran array" ); | |||
| 4655 | } else { | |||
| 4656 | ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 4657 | ||||
| 4658 | /* Processing variable berr */ | |||
| 4659 | berr_Dims[0]=nrhs; | |||
| 4660 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 4661 | capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 4662 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 4663 | if (!PyErr_Occurred()) | |||
| 4664 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.sgesvx to C/Fortran array" ); | |||
| 4665 | } else { | |||
| 4666 | berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 4667 | ||||
| 4668 | /*end of frompyobj*/ | |||
| 4669 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4670 | f2py_start_call_clock(); | |||
| 4671 | #endif | |||
| 4672 | /*callfortranroutine*/ | |||
| 4673 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 4674 | {F_INTint i;(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info);for(i=0;i<n;--ipiv[i++]);} ; | |||
| 4675 | /*(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info,slen(fact),slen(trans),slen(equed));*/ | |||
| 4676 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 4677 | if (PyErr_Occurred()) | |||
| 4678 | f2py_success = 0; | |||
| 4679 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4680 | f2py_stop_call_clock(); | |||
| 4681 | #endif | |||
| 4682 | /*end of callfortranroutine*/ | |||
| 4683 | if (f2py_success) { | |||
| 4684 | /*pyobjfrom*/ | |||
| 4685 | /*end of pyobjfrom*/ | |||
| 4686 | CFUNCSMESS("Building return value.\n"); | |||
| 4687 | capi_buildvalue = Py_BuildValue("NNNyNNNNfNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,equed,capi_r_tmp,capi_c_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 4688 | /*closepyobjfrom*/ | |||
| 4689 | /*end of closepyobjfrom*/ | |||
| 4690 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 4691 | /*cleanupfrompyobj*/ | |||
| 4692 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 4693 | /* End of cleaning variable berr */ | |||
| 4694 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 4695 | /* End of cleaning variable ferr */ | |||
| 4696 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 4697 | /* End of cleaning variable x */ | |||
| 4698 | STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0); | |||
| 4699 | } /*if (f2py_success) of equed*/ | |||
| 4700 | /* End of cleaning variable equed */ | |||
| 4701 | /* End of cleaning variable nrhs */ | |||
| 4702 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 4703 | } /*if (f2py_success) of trans*/ | |||
| 4704 | /* End of cleaning variable trans */ | |||
| 4705 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 4706 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 4707 | /* End of cleaning variable iwork */ | |||
| 4708 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 4709 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 4710 | /* End of cleaning variable work */ | |||
| 4711 | /* End of cleaning variable ldx */ | |||
| 4712 | /* End of cleaning variable ldb */ | |||
| 4713 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 4714 | /* End of cleaning variable b */ | |||
| 4715 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 4716 | /* End of cleaning variable c */ | |||
| 4717 | } /*if (capi_r_tmp == NULL) ... else of r*/ | |||
| 4718 | /* End of cleaning variable r */ | |||
| 4719 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 4720 | /* End of cleaning variable ipiv */ | |||
| 4721 | /* End of cleaning variable ldaf */ | |||
| 4722 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 4723 | /* End of cleaning variable af */ | |||
| 4724 | /* End of cleaning variable lda */ | |||
| 4725 | /* End of cleaning variable n */ | |||
| 4726 | /* End of cleaning variable info */ | |||
| 4727 | /* End of cleaning variable rcond */ | |||
| 4728 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 4729 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 4730 | /* End of cleaning variable a */ | |||
| 4731 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 4732 | } /*if (f2py_success) of fact*/ | |||
| 4733 | /* End of cleaning variable fact */ | |||
| 4734 | /*end of cleanupfrompyobj*/ | |||
| 4735 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 4736 | /*routdebugfailure*/ | |||
| 4737 | } else { | |||
| 4738 | /*routdebugleave*/ | |||
| 4739 | } | |||
| 4740 | CFUNCSMESS("Freeing memory.\n"); | |||
| 4741 | /*freemem*/ | |||
| 4742 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4743 | f2py_stop_clock(); | |||
| 4744 | #endif | |||
| 4745 | return capi_buildvalue; | |||
| 4746 | } | |||
| 4747 | /******************************* end of sgesvx *******************************/ | |||
| 4748 | ||||
| 4749 | /*********************************** dgesvx ***********************************/ | |||
| 4750 | static char doc_f2py_rout__flapack_dgesvx[] = "\ | |||
| 4751 | as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = dgesvx(a,b,[fact,trans,af,ipiv,equed,r,c,overwrite_a,overwrite_b])\n\nWrapper for ``dgesvx``.\ | |||
| 4752 | \n\nParameters\n----------\n" | |||
| 4753 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 4754 | "b : input rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 4755 | "\nOther Parameters\n----------------\n" | |||
| 4756 | "fact : input string(len=1), optional\n Default: 'E'\n" | |||
| 4757 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 4758 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 4759 | "af : input rank-2 array('d') with bounds (n,n)\n" | |||
| 4760 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 4761 | "equed : input string(len=1), optional\n Default: 'B'\n" | |||
| 4762 | "r : input rank-1 array('d') with bounds (n)\n" | |||
| 4763 | "c : input rank-1 array('d') with bounds (n)\n" | |||
| 4764 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 4765 | "\nReturns\n-------\n" | |||
| 4766 | "as : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 4767 | "lu : rank-2 array('d') with bounds (n,n) and af storage\n" | |||
| 4768 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 4769 | "equed : string(len=1)\n" | |||
| 4770 | "rs : rank-1 array('d') with bounds (n) and r storage\n" | |||
| 4771 | "cs : rank-1 array('d') with bounds (n) and c storage\n" | |||
| 4772 | "bs : rank-2 array('d') with bounds (n,nrhs) and b storage\n" | |||
| 4773 | "x : rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 4774 | "rcond : float\n" | |||
| 4775 | "ferr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 4776 | "berr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 4777 | "info : int"; | |||
| 4778 | /* extern void F_FUNC(dgesvx,DGESVX)(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,char*,double*,double*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */ | |||
| 4779 | static PyObject *f2py_rout__flapack_dgesvx(const PyObject *capi_self, | |||
| 4780 | PyObject *capi_args, | |||
| 4781 | PyObject *capi_keywds, | |||
| 4782 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,char*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 4783 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 4784 | volatile int f2py_success = 1; | |||
| 4785 | /*decl*/ | |||
| 4786 | ||||
| 4787 | string fact = NULL((void*)0); | |||
| 4788 | int slen(fact)capi_fact_len; | |||
| 4789 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 4790 | string trans = NULL((void*)0); | |||
| 4791 | int slen(trans)capi_trans_len; | |||
| 4792 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 4793 | int n = 0; | |||
| 4794 | int nrhs = 0; | |||
| 4795 | double *a = NULL((void*)0); | |||
| 4796 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 4797 | const int a_Rank = 2; | |||
| 4798 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 4799 | int capi_a_intent = 0; | |||
| 4800 | int capi_overwrite_a = 0; | |||
| 4801 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 4802 | int lda = 0; | |||
| 4803 | double *af = NULL((void*)0); | |||
| 4804 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 4805 | const int af_Rank = 2; | |||
| 4806 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 4807 | int capi_af_intent = 0; | |||
| 4808 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 4809 | int ldaf = 0; | |||
| 4810 | int *ipiv = NULL((void*)0); | |||
| 4811 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 4812 | const int ipiv_Rank = 1; | |||
| 4813 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 4814 | int capi_ipiv_intent = 0; | |||
| 4815 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 4816 | string equed = NULL((void*)0); | |||
| 4817 | int slen(equed)capi_equed_len; | |||
| 4818 | PyObject *equed_capi = Py_None(&_Py_NoneStruct); | |||
| 4819 | double *r = NULL((void*)0); | |||
| 4820 | npy_intp r_Dims[1] = {-1}; | |||
| 4821 | const int r_Rank = 1; | |||
| 4822 | PyArrayObject *capi_r_tmp = NULL((void*)0); | |||
| 4823 | int capi_r_intent = 0; | |||
| 4824 | PyObject *r_capi = Py_None(&_Py_NoneStruct); | |||
| 4825 | double *c = NULL((void*)0); | |||
| 4826 | npy_intp c_Dims[1] = {-1}; | |||
| 4827 | const int c_Rank = 1; | |||
| 4828 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 4829 | int capi_c_intent = 0; | |||
| 4830 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 4831 | double *b = NULL((void*)0); | |||
| 4832 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 4833 | const int b_Rank = 2; | |||
| 4834 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 4835 | int capi_b_intent = 0; | |||
| 4836 | int capi_overwrite_b = 0; | |||
| 4837 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 4838 | int ldb = 0; | |||
| 4839 | double *x = NULL((void*)0); | |||
| 4840 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 4841 | const int x_Rank = 2; | |||
| 4842 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 4843 | int capi_x_intent = 0; | |||
| 4844 | int ldx = 0; | |||
| 4845 | double rcond = 0; | |||
| 4846 | double *ferr = NULL((void*)0); | |||
| 4847 | npy_intp ferr_Dims[1] = {-1}; | |||
| 4848 | const int ferr_Rank = 1; | |||
| 4849 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 4850 | int capi_ferr_intent = 0; | |||
| 4851 | double *berr = NULL((void*)0); | |||
| 4852 | npy_intp berr_Dims[1] = {-1}; | |||
| 4853 | const int berr_Rank = 1; | |||
| 4854 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 4855 | int capi_berr_intent = 0; | |||
| 4856 | double *work = NULL((void*)0); | |||
| 4857 | npy_intp work_Dims[1] = {-1}; | |||
| 4858 | const int work_Rank = 1; | |||
| 4859 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 4860 | int capi_work_intent = 0; | |||
| 4861 | int *iwork = NULL((void*)0); | |||
| 4862 | npy_intp iwork_Dims[1] = {-1}; | |||
| 4863 | const int iwork_Rank = 1; | |||
| 4864 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 4865 | int capi_iwork_intent = 0; | |||
| 4866 | int info = 0; | |||
| 4867 | static char *capi_kwlist[] = {"a","b","fact","trans","af","ipiv","equed","r","c","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 4868 | ||||
| 4869 | /*routdebugenter*/ | |||
| 4870 | #ifdef F2PY_REPORT_ATEXIT | |||
| 4871 | f2py_start_clock(); | |||
| 4872 | #endif | |||
| 4873 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 4874 | "OO|OOOOOOOii:_flapack.dgesvx",\ | |||
| 4875 | capi_kwlist,&a_capi,&b_capi,&fact_capi,&trans_capi,&af_capi,&ipiv_capi,&equed_capi,&r_capi,&c_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 4876 | return NULL((void*)0); | |||
| 4877 | /*frompyobj*/ | |||
| 4878 | /* Processing variable fact */ | |||
| 4879 | slen(fact)capi_fact_len = 1; | |||
| 4880 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.dgesvx to C string"); | |||
| 4881 | if (f2py_success) { | |||
| 4882 | /* Processing variable a */ | |||
| 4883 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 4884 | ; | |||
| 4885 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 4886 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 4887 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 4888 | if (!PyErr_Occurred()) | |||
| 4889 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgesvx to C/Fortran array" ); | |||
| 4890 | } else { | |||
| 4891 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 4892 | ||||
| 4893 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 4894 | /* Processing variable rcond */ | |||
| 4895 | /* Processing variable info */ | |||
| 4896 | /* Processing variable n */ | |||
| 4897 | n = shape(a,0)a_Dims[0]; | |||
| 4898 | /* Processing variable lda */ | |||
| 4899 | lda = shape(a,0)a_Dims[0]; | |||
| 4900 | /* Processing variable af */ | |||
| 4901 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 4902 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 4903 | capi_af_tmp = array_from_pyobj(NPY_DOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 4904 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 4905 | if (!PyErr_Occurred()) | |||
| 4906 | PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `af' of _flapack.dgesvx to C/Fortran array" ); | |||
| 4907 | } else { | |||
| 4908 | af = (double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 4909 | ||||
| 4910 | /* Processing variable ldaf */ | |||
| 4911 | ldaf = shape(af,0)af_Dims[0]; | |||
| 4912 | /* Processing variable ipiv */ | |||
| 4913 | ipiv_Dims[0]=n; | |||
| 4914 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 4915 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 4916 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 4917 | if (!PyErr_Occurred()) | |||
| 4918 | PyErr_SetString(_flapack_error,"failed in converting 4th keyword `ipiv' of _flapack.dgesvx to C/Fortran array" ); | |||
| 4919 | } else { | |||
| 4920 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 4921 | ||||
| 4922 | /* Processing variable r */ | |||
| 4923 | r_Dims[0]=n; | |||
| 4924 | capi_r_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 4925 | capi_r_tmp = array_from_pyobj(NPY_DOUBLE,r_Dims,r_Rank,capi_r_intent,r_capi); | |||
| 4926 | if (capi_r_tmp == NULL((void*)0)) { | |||
| 4927 | if (!PyErr_Occurred()) | |||
| 4928 | PyErr_SetString(_flapack_error,"failed in converting 6th keyword `r' of _flapack.dgesvx to C/Fortran array" ); | |||
| 4929 | } else { | |||
| 4930 | r = (double *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data)); | |||
| 4931 | ||||
| 4932 | /* Processing variable c */ | |||
| 4933 | c_Dims[0]=n; | |||
| 4934 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 4935 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 4936 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 4937 | if (!PyErr_Occurred()) | |||
| 4938 | PyErr_SetString(_flapack_error,"failed in converting 7th keyword `c' of _flapack.dgesvx to C/Fortran array" ); | |||
| 4939 | } else { | |||
| 4940 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 4941 | ||||
| 4942 | /* Processing variable b */ | |||
| 4943 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 4944 | b_Dims[0]=n; | |||
| 4945 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 4946 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 4947 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 4948 | if (!PyErr_Occurred()) | |||
| 4949 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgesvx to C/Fortran array" ); | |||
| 4950 | } else { | |||
| 4951 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 4952 | ||||
| 4953 | /* Processing variable ldb */ | |||
| 4954 | ldb = shape(b,0)b_Dims[0]; | |||
| 4955 | /* Processing variable ldx */ | |||
| 4956 | ldx = n; | |||
| 4957 | /* Processing variable work */ | |||
| 4958 | work_Dims[0]=4 * n; | |||
| 4959 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 4960 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 4961 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 4962 | if (!PyErr_Occurred()) | |||
| 4963 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgesvx to C/Fortran array" ); | |||
| 4964 | } else { | |||
| 4965 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 4966 | ||||
| 4967 | /* Processing variable iwork */ | |||
| 4968 | iwork_Dims[0]=n; | |||
| 4969 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 4970 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 4971 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 4972 | if (!PyErr_Occurred()) | |||
| 4973 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dgesvx to C/Fortran array" ); | |||
| 4974 | } else { | |||
| 4975 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 4976 | ||||
| 4977 | /* Processing variable trans */ | |||
| 4978 | slen(trans)capi_trans_len = 1; | |||
| 4979 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dgesvx to C string"); | |||
| 4980 | if (f2py_success) { | |||
| 4981 | /* Processing variable nrhs */ | |||
| 4982 | nrhs = shape(b,1)b_Dims[1]; | |||
| 4983 | /* Processing variable equed */ | |||
| 4984 | slen(equed)capi_equed_len = 1; | |||
| 4985 | f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"B",equed_capi,"string_from_pyobj failed in converting 5th keyword `equed' of _flapack.dgesvx to C string"); | |||
| 4986 | if (f2py_success) { | |||
| 4987 | /* Processing variable x */ | |||
| 4988 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 4989 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 4990 | capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 4991 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 4992 | if (!PyErr_Occurred()) | |||
| 4993 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.dgesvx to C/Fortran array" ); | |||
| 4994 | } else { | |||
| 4995 | x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 4996 | ||||
| 4997 | /* Processing variable ferr */ | |||
| 4998 | ferr_Dims[0]=nrhs; | |||
| 4999 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 5000 | capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 5001 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 5002 | if (!PyErr_Occurred()) | |||
| 5003 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.dgesvx to C/Fortran array" ); | |||
| 5004 | } else { | |||
| 5005 | ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 5006 | ||||
| 5007 | /* Processing variable berr */ | |||
| 5008 | berr_Dims[0]=nrhs; | |||
| 5009 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 5010 | capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 5011 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 5012 | if (!PyErr_Occurred()) | |||
| 5013 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.dgesvx to C/Fortran array" ); | |||
| 5014 | } else { | |||
| 5015 | berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 5016 | ||||
| 5017 | /*end of frompyobj*/ | |||
| 5018 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5019 | f2py_start_call_clock(); | |||
| 5020 | #endif | |||
| 5021 | /*callfortranroutine*/ | |||
| 5022 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 5023 | {F_INTint i;(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info);for(i=0;i<n;--ipiv[i++]);} ; | |||
| 5024 | /*(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info,slen(fact),slen(trans),slen(equed));*/ | |||
| 5025 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 5026 | if (PyErr_Occurred()) | |||
| 5027 | f2py_success = 0; | |||
| 5028 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5029 | f2py_stop_call_clock(); | |||
| 5030 | #endif | |||
| 5031 | /*end of callfortranroutine*/ | |||
| 5032 | if (f2py_success) { | |||
| 5033 | /*pyobjfrom*/ | |||
| 5034 | /*end of pyobjfrom*/ | |||
| 5035 | CFUNCSMESS("Building return value.\n"); | |||
| 5036 | capi_buildvalue = Py_BuildValue("NNNyNNNNdNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,equed,capi_r_tmp,capi_c_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 5037 | /*closepyobjfrom*/ | |||
| 5038 | /*end of closepyobjfrom*/ | |||
| 5039 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 5040 | /*cleanupfrompyobj*/ | |||
| 5041 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 5042 | /* End of cleaning variable berr */ | |||
| 5043 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 5044 | /* End of cleaning variable ferr */ | |||
| 5045 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 5046 | /* End of cleaning variable x */ | |||
| 5047 | STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0); | |||
| 5048 | } /*if (f2py_success) of equed*/ | |||
| 5049 | /* End of cleaning variable equed */ | |||
| 5050 | /* End of cleaning variable nrhs */ | |||
| 5051 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 5052 | } /*if (f2py_success) of trans*/ | |||
| 5053 | /* End of cleaning variable trans */ | |||
| 5054 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 5055 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 5056 | /* End of cleaning variable iwork */ | |||
| 5057 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 5058 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 5059 | /* End of cleaning variable work */ | |||
| 5060 | /* End of cleaning variable ldx */ | |||
| 5061 | /* End of cleaning variable ldb */ | |||
| 5062 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 5063 | /* End of cleaning variable b */ | |||
| 5064 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 5065 | /* End of cleaning variable c */ | |||
| 5066 | } /*if (capi_r_tmp == NULL) ... else of r*/ | |||
| 5067 | /* End of cleaning variable r */ | |||
| 5068 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 5069 | /* End of cleaning variable ipiv */ | |||
| 5070 | /* End of cleaning variable ldaf */ | |||
| 5071 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 5072 | /* End of cleaning variable af */ | |||
| 5073 | /* End of cleaning variable lda */ | |||
| 5074 | /* End of cleaning variable n */ | |||
| 5075 | /* End of cleaning variable info */ | |||
| 5076 | /* End of cleaning variable rcond */ | |||
| 5077 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 5078 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 5079 | /* End of cleaning variable a */ | |||
| 5080 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 5081 | } /*if (f2py_success) of fact*/ | |||
| 5082 | /* End of cleaning variable fact */ | |||
| 5083 | /*end of cleanupfrompyobj*/ | |||
| 5084 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 5085 | /*routdebugfailure*/ | |||
| 5086 | } else { | |||
| 5087 | /*routdebugleave*/ | |||
| 5088 | } | |||
| 5089 | CFUNCSMESS("Freeing memory.\n"); | |||
| 5090 | /*freemem*/ | |||
| 5091 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5092 | f2py_stop_clock(); | |||
| 5093 | #endif | |||
| 5094 | return capi_buildvalue; | |||
| 5095 | } | |||
| 5096 | /******************************* end of dgesvx *******************************/ | |||
| 5097 | ||||
| 5098 | /*********************************** cgesvx ***********************************/ | |||
| 5099 | static char doc_f2py_rout__flapack_cgesvx[] = "\ | |||
| 5100 | as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = cgesvx(a,b,[fact,trans,af,ipiv,equed,r,c,overwrite_a,overwrite_b])\n\nWrapper for ``cgesvx``.\ | |||
| 5101 | \n\nParameters\n----------\n" | |||
| 5102 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 5103 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 5104 | "\nOther Parameters\n----------------\n" | |||
| 5105 | "fact : input string(len=1), optional\n Default: 'E'\n" | |||
| 5106 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 5107 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 5108 | "af : input rank-2 array('F') with bounds (n,n)\n" | |||
| 5109 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 5110 | "equed : input string(len=1), optional\n Default: 'B'\n" | |||
| 5111 | "r : input rank-1 array('f') with bounds (n)\n" | |||
| 5112 | "c : input rank-1 array('f') with bounds (n)\n" | |||
| 5113 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 5114 | "\nReturns\n-------\n" | |||
| 5115 | "as : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 5116 | "lu : rank-2 array('F') with bounds (n,n) and af storage\n" | |||
| 5117 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 5118 | "equed : string(len=1)\n" | |||
| 5119 | "rs : rank-1 array('f') with bounds (n) and r storage\n" | |||
| 5120 | "cs : rank-1 array('f') with bounds (n) and c storage\n" | |||
| 5121 | "bs : rank-2 array('F') with bounds (n,nrhs) and b storage\n" | |||
| 5122 | "x : rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 5123 | "rcond : float\n" | |||
| 5124 | "ferr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 5125 | "berr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 5126 | "info : int"; | |||
| 5127 | /* extern void F_FUNC(cgesvx,CGESVX)(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,char*,float*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,float*,F_INT* ); */ | |||
| 5128 | static PyObject *f2py_rout__flapack_cgesvx(const PyObject *capi_self, | |||
| 5129 | PyObject *capi_args, | |||
| 5130 | PyObject *capi_keywds, | |||
| 5131 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,char*,float*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,float*,F_INTint* )) { | |||
| 5132 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 5133 | volatile int f2py_success = 1; | |||
| 5134 | /*decl*/ | |||
| 5135 | ||||
| 5136 | string fact = NULL((void*)0); | |||
| 5137 | int slen(fact)capi_fact_len; | |||
| 5138 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 5139 | string trans = NULL((void*)0); | |||
| 5140 | int slen(trans)capi_trans_len; | |||
| 5141 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 5142 | int n = 0; | |||
| 5143 | int nrhs = 0; | |||
| 5144 | complex_float *a = NULL((void*)0); | |||
| 5145 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 5146 | const int a_Rank = 2; | |||
| 5147 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 5148 | int capi_a_intent = 0; | |||
| 5149 | int capi_overwrite_a = 0; | |||
| 5150 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 5151 | int lda = 0; | |||
| 5152 | complex_float *af = NULL((void*)0); | |||
| 5153 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 5154 | const int af_Rank = 2; | |||
| 5155 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 5156 | int capi_af_intent = 0; | |||
| 5157 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 5158 | int ldaf = 0; | |||
| 5159 | int *ipiv = NULL((void*)0); | |||
| 5160 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 5161 | const int ipiv_Rank = 1; | |||
| 5162 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 5163 | int capi_ipiv_intent = 0; | |||
| 5164 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 5165 | string equed = NULL((void*)0); | |||
| 5166 | int slen(equed)capi_equed_len; | |||
| 5167 | PyObject *equed_capi = Py_None(&_Py_NoneStruct); | |||
| 5168 | float *r = NULL((void*)0); | |||
| 5169 | npy_intp r_Dims[1] = {-1}; | |||
| 5170 | const int r_Rank = 1; | |||
| 5171 | PyArrayObject *capi_r_tmp = NULL((void*)0); | |||
| 5172 | int capi_r_intent = 0; | |||
| 5173 | PyObject *r_capi = Py_None(&_Py_NoneStruct); | |||
| 5174 | float *c = NULL((void*)0); | |||
| 5175 | npy_intp c_Dims[1] = {-1}; | |||
| 5176 | const int c_Rank = 1; | |||
| 5177 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 5178 | int capi_c_intent = 0; | |||
| 5179 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 5180 | complex_float *b = NULL((void*)0); | |||
| 5181 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 5182 | const int b_Rank = 2; | |||
| 5183 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 5184 | int capi_b_intent = 0; | |||
| 5185 | int capi_overwrite_b = 0; | |||
| 5186 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 5187 | int ldb = 0; | |||
| 5188 | complex_float *x = NULL((void*)0); | |||
| 5189 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 5190 | const int x_Rank = 2; | |||
| 5191 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 5192 | int capi_x_intent = 0; | |||
| 5193 | int ldx = 0; | |||
| 5194 | float rcond = 0; | |||
| 5195 | float *ferr = NULL((void*)0); | |||
| 5196 | npy_intp ferr_Dims[1] = {-1}; | |||
| 5197 | const int ferr_Rank = 1; | |||
| 5198 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 5199 | int capi_ferr_intent = 0; | |||
| 5200 | float *berr = NULL((void*)0); | |||
| 5201 | npy_intp berr_Dims[1] = {-1}; | |||
| 5202 | const int berr_Rank = 1; | |||
| 5203 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 5204 | int capi_berr_intent = 0; | |||
| 5205 | complex_float *work = NULL((void*)0); | |||
| 5206 | npy_intp work_Dims[1] = {-1}; | |||
| 5207 | const int work_Rank = 1; | |||
| 5208 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 5209 | int capi_work_intent = 0; | |||
| 5210 | float *rwork = NULL((void*)0); | |||
| 5211 | npy_intp rwork_Dims[1] = {-1}; | |||
| 5212 | const int rwork_Rank = 1; | |||
| 5213 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 5214 | int capi_rwork_intent = 0; | |||
| 5215 | int info = 0; | |||
| 5216 | static char *capi_kwlist[] = {"a","b","fact","trans","af","ipiv","equed","r","c","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 5217 | ||||
| 5218 | /*routdebugenter*/ | |||
| 5219 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5220 | f2py_start_clock(); | |||
| 5221 | #endif | |||
| 5222 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 5223 | "OO|OOOOOOOii:_flapack.cgesvx",\ | |||
| 5224 | capi_kwlist,&a_capi,&b_capi,&fact_capi,&trans_capi,&af_capi,&ipiv_capi,&equed_capi,&r_capi,&c_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 5225 | return NULL((void*)0); | |||
| 5226 | /*frompyobj*/ | |||
| 5227 | /* Processing variable fact */ | |||
| 5228 | slen(fact)capi_fact_len = 1; | |||
| 5229 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.cgesvx to C string"); | |||
| 5230 | if (f2py_success) { | |||
| 5231 | /* Processing variable a */ | |||
| 5232 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 5233 | ; | |||
| 5234 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 5235 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 5236 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 5237 | if (!PyErr_Occurred()) | |||
| 5238 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgesvx to C/Fortran array" ); | |||
| 5239 | } else { | |||
| 5240 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 5241 | ||||
| 5242 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 5243 | /* Processing variable rcond */ | |||
| 5244 | /* Processing variable info */ | |||
| 5245 | /* Processing variable n */ | |||
| 5246 | n = shape(a,0)a_Dims[0]; | |||
| 5247 | /* Processing variable lda */ | |||
| 5248 | lda = shape(a,0)a_Dims[0]; | |||
| 5249 | /* Processing variable af */ | |||
| 5250 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 5251 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 5252 | capi_af_tmp = array_from_pyobj(NPY_CFLOAT,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 5253 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 5254 | if (!PyErr_Occurred()) | |||
| 5255 | PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `af' of _flapack.cgesvx to C/Fortran array" ); | |||
| 5256 | } else { | |||
| 5257 | af = (complex_float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 5258 | ||||
| 5259 | /* Processing variable ldaf */ | |||
| 5260 | ldaf = shape(af,0)af_Dims[0]; | |||
| 5261 | /* Processing variable ipiv */ | |||
| 5262 | ipiv_Dims[0]=n; | |||
| 5263 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 5264 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 5265 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 5266 | if (!PyErr_Occurred()) | |||
| 5267 | PyErr_SetString(_flapack_error,"failed in converting 4th keyword `ipiv' of _flapack.cgesvx to C/Fortran array" ); | |||
| 5268 | } else { | |||
| 5269 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 5270 | ||||
| 5271 | /* Processing variable r */ | |||
| 5272 | r_Dims[0]=n; | |||
| 5273 | capi_r_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 5274 | capi_r_tmp = array_from_pyobj(NPY_FLOAT,r_Dims,r_Rank,capi_r_intent,r_capi); | |||
| 5275 | if (capi_r_tmp == NULL((void*)0)) { | |||
| 5276 | if (!PyErr_Occurred()) | |||
| 5277 | PyErr_SetString(_flapack_error,"failed in converting 6th keyword `r' of _flapack.cgesvx to C/Fortran array" ); | |||
| 5278 | } else { | |||
| 5279 | r = (float *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data)); | |||
| 5280 | ||||
| 5281 | /* Processing variable c */ | |||
| 5282 | c_Dims[0]=n; | |||
| 5283 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 5284 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 5285 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 5286 | if (!PyErr_Occurred()) | |||
| 5287 | PyErr_SetString(_flapack_error,"failed in converting 7th keyword `c' of _flapack.cgesvx to C/Fortran array" ); | |||
| 5288 | } else { | |||
| 5289 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 5290 | ||||
| 5291 | /* Processing variable b */ | |||
| 5292 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 5293 | b_Dims[0]=n; | |||
| 5294 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 5295 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 5296 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 5297 | if (!PyErr_Occurred()) | |||
| 5298 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgesvx to C/Fortran array" ); | |||
| 5299 | } else { | |||
| 5300 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 5301 | ||||
| 5302 | /* Processing variable ldb */ | |||
| 5303 | ldb = shape(b,0)b_Dims[0]; | |||
| 5304 | /* Processing variable ldx */ | |||
| 5305 | ldx = n; | |||
| 5306 | /* Processing variable work */ | |||
| 5307 | work_Dims[0]=2 * n; | |||
| 5308 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 5309 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 5310 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 5311 | if (!PyErr_Occurred()) | |||
| 5312 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgesvx to C/Fortran array" ); | |||
| 5313 | } else { | |||
| 5314 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 5315 | ||||
| 5316 | /* Processing variable rwork */ | |||
| 5317 | rwork_Dims[0]=2 * n; | |||
| 5318 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 5319 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 5320 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 5321 | if (!PyErr_Occurred()) | |||
| 5322 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgesvx to C/Fortran array" ); | |||
| 5323 | } else { | |||
| 5324 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 5325 | ||||
| 5326 | /* Processing variable trans */ | |||
| 5327 | slen(trans)capi_trans_len = 1; | |||
| 5328 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.cgesvx to C string"); | |||
| 5329 | if (f2py_success) { | |||
| 5330 | /* Processing variable nrhs */ | |||
| 5331 | nrhs = shape(b,1)b_Dims[1]; | |||
| 5332 | /* Processing variable equed */ | |||
| 5333 | slen(equed)capi_equed_len = 1; | |||
| 5334 | f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"B",equed_capi,"string_from_pyobj failed in converting 5th keyword `equed' of _flapack.cgesvx to C string"); | |||
| 5335 | if (f2py_success) { | |||
| 5336 | /* Processing variable x */ | |||
| 5337 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 5338 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 5339 | capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 5340 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 5341 | if (!PyErr_Occurred()) | |||
| 5342 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.cgesvx to C/Fortran array" ); | |||
| 5343 | } else { | |||
| 5344 | x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 5345 | ||||
| 5346 | /* Processing variable ferr */ | |||
| 5347 | ferr_Dims[0]=nrhs; | |||
| 5348 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 5349 | capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 5350 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 5351 | if (!PyErr_Occurred()) | |||
| 5352 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.cgesvx to C/Fortran array" ); | |||
| 5353 | } else { | |||
| 5354 | ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 5355 | ||||
| 5356 | /* Processing variable berr */ | |||
| 5357 | berr_Dims[0]=nrhs; | |||
| 5358 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 5359 | capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 5360 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 5361 | if (!PyErr_Occurred()) | |||
| 5362 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.cgesvx to C/Fortran array" ); | |||
| 5363 | } else { | |||
| 5364 | berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 5365 | ||||
| 5366 | /*end of frompyobj*/ | |||
| 5367 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5368 | f2py_start_call_clock(); | |||
| 5369 | #endif | |||
| 5370 | /*callfortranroutine*/ | |||
| 5371 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 5372 | {F_INTint i;(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info);for(i=0;i<n;--ipiv[i++]);} ; | |||
| 5373 | /*(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info,slen(fact),slen(trans),slen(equed));*/ | |||
| 5374 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 5375 | if (PyErr_Occurred()) | |||
| 5376 | f2py_success = 0; | |||
| 5377 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5378 | f2py_stop_call_clock(); | |||
| 5379 | #endif | |||
| 5380 | /*end of callfortranroutine*/ | |||
| 5381 | if (f2py_success) { | |||
| 5382 | /*pyobjfrom*/ | |||
| 5383 | /*end of pyobjfrom*/ | |||
| 5384 | CFUNCSMESS("Building return value.\n"); | |||
| 5385 | capi_buildvalue = Py_BuildValue("NNNyNNNNfNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,equed,capi_r_tmp,capi_c_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 5386 | /*closepyobjfrom*/ | |||
| 5387 | /*end of closepyobjfrom*/ | |||
| 5388 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 5389 | /*cleanupfrompyobj*/ | |||
| 5390 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 5391 | /* End of cleaning variable berr */ | |||
| 5392 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 5393 | /* End of cleaning variable ferr */ | |||
| 5394 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 5395 | /* End of cleaning variable x */ | |||
| 5396 | STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0); | |||
| 5397 | } /*if (f2py_success) of equed*/ | |||
| 5398 | /* End of cleaning variable equed */ | |||
| 5399 | /* End of cleaning variable nrhs */ | |||
| 5400 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 5401 | } /*if (f2py_success) of trans*/ | |||
| 5402 | /* End of cleaning variable trans */ | |||
| 5403 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 5404 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 5405 | /* End of cleaning variable rwork */ | |||
| 5406 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 5407 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 5408 | /* End of cleaning variable work */ | |||
| 5409 | /* End of cleaning variable ldx */ | |||
| 5410 | /* End of cleaning variable ldb */ | |||
| 5411 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 5412 | /* End of cleaning variable b */ | |||
| 5413 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 5414 | /* End of cleaning variable c */ | |||
| 5415 | } /*if (capi_r_tmp == NULL) ... else of r*/ | |||
| 5416 | /* End of cleaning variable r */ | |||
| 5417 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 5418 | /* End of cleaning variable ipiv */ | |||
| 5419 | /* End of cleaning variable ldaf */ | |||
| 5420 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 5421 | /* End of cleaning variable af */ | |||
| 5422 | /* End of cleaning variable lda */ | |||
| 5423 | /* End of cleaning variable n */ | |||
| 5424 | /* End of cleaning variable info */ | |||
| 5425 | /* End of cleaning variable rcond */ | |||
| 5426 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 5427 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 5428 | /* End of cleaning variable a */ | |||
| 5429 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 5430 | } /*if (f2py_success) of fact*/ | |||
| 5431 | /* End of cleaning variable fact */ | |||
| 5432 | /*end of cleanupfrompyobj*/ | |||
| 5433 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 5434 | /*routdebugfailure*/ | |||
| 5435 | } else { | |||
| 5436 | /*routdebugleave*/ | |||
| 5437 | } | |||
| 5438 | CFUNCSMESS("Freeing memory.\n"); | |||
| 5439 | /*freemem*/ | |||
| 5440 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5441 | f2py_stop_clock(); | |||
| 5442 | #endif | |||
| 5443 | return capi_buildvalue; | |||
| 5444 | } | |||
| 5445 | /******************************* end of cgesvx *******************************/ | |||
| 5446 | ||||
| 5447 | /*********************************** zgesvx ***********************************/ | |||
| 5448 | static char doc_f2py_rout__flapack_zgesvx[] = "\ | |||
| 5449 | as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = zgesvx(a,b,[fact,trans,af,ipiv,equed,r,c,overwrite_a,overwrite_b])\n\nWrapper for ``zgesvx``.\ | |||
| 5450 | \n\nParameters\n----------\n" | |||
| 5451 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 5452 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 5453 | "\nOther Parameters\n----------------\n" | |||
| 5454 | "fact : input string(len=1), optional\n Default: 'E'\n" | |||
| 5455 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 5456 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 5457 | "af : input rank-2 array('D') with bounds (n,n)\n" | |||
| 5458 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 5459 | "equed : input string(len=1), optional\n Default: 'B'\n" | |||
| 5460 | "r : input rank-1 array('d') with bounds (n)\n" | |||
| 5461 | "c : input rank-1 array('d') with bounds (n)\n" | |||
| 5462 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 5463 | "\nReturns\n-------\n" | |||
| 5464 | "as : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 5465 | "lu : rank-2 array('D') with bounds (n,n) and af storage\n" | |||
| 5466 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 5467 | "equed : string(len=1)\n" | |||
| 5468 | "rs : rank-1 array('d') with bounds (n) and r storage\n" | |||
| 5469 | "cs : rank-1 array('d') with bounds (n) and c storage\n" | |||
| 5470 | "bs : rank-2 array('D') with bounds (n,nrhs) and b storage\n" | |||
| 5471 | "x : rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 5472 | "rcond : float\n" | |||
| 5473 | "ferr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 5474 | "berr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 5475 | "info : int"; | |||
| 5476 | /* extern void F_FUNC(zgesvx,ZGESVX)(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,char*,double*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,double*,F_INT* ); */ | |||
| 5477 | static PyObject *f2py_rout__flapack_zgesvx(const PyObject *capi_self, | |||
| 5478 | PyObject *capi_args, | |||
| 5479 | PyObject *capi_keywds, | |||
| 5480 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,char*,double*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,double*,F_INTint* )) { | |||
| 5481 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 5482 | volatile int f2py_success = 1; | |||
| 5483 | /*decl*/ | |||
| 5484 | ||||
| 5485 | string fact = NULL((void*)0); | |||
| 5486 | int slen(fact)capi_fact_len; | |||
| 5487 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 5488 | string trans = NULL((void*)0); | |||
| 5489 | int slen(trans)capi_trans_len; | |||
| 5490 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 5491 | int n = 0; | |||
| 5492 | int nrhs = 0; | |||
| 5493 | complex_double *a = NULL((void*)0); | |||
| 5494 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 5495 | const int a_Rank = 2; | |||
| 5496 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 5497 | int capi_a_intent = 0; | |||
| 5498 | int capi_overwrite_a = 0; | |||
| 5499 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 5500 | int lda = 0; | |||
| 5501 | complex_double *af = NULL((void*)0); | |||
| 5502 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 5503 | const int af_Rank = 2; | |||
| 5504 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 5505 | int capi_af_intent = 0; | |||
| 5506 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 5507 | int ldaf = 0; | |||
| 5508 | int *ipiv = NULL((void*)0); | |||
| 5509 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 5510 | const int ipiv_Rank = 1; | |||
| 5511 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 5512 | int capi_ipiv_intent = 0; | |||
| 5513 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 5514 | string equed = NULL((void*)0); | |||
| 5515 | int slen(equed)capi_equed_len; | |||
| 5516 | PyObject *equed_capi = Py_None(&_Py_NoneStruct); | |||
| 5517 | double *r = NULL((void*)0); | |||
| 5518 | npy_intp r_Dims[1] = {-1}; | |||
| 5519 | const int r_Rank = 1; | |||
| 5520 | PyArrayObject *capi_r_tmp = NULL((void*)0); | |||
| 5521 | int capi_r_intent = 0; | |||
| 5522 | PyObject *r_capi = Py_None(&_Py_NoneStruct); | |||
| 5523 | double *c = NULL((void*)0); | |||
| 5524 | npy_intp c_Dims[1] = {-1}; | |||
| 5525 | const int c_Rank = 1; | |||
| 5526 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 5527 | int capi_c_intent = 0; | |||
| 5528 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 5529 | complex_double *b = NULL((void*)0); | |||
| 5530 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 5531 | const int b_Rank = 2; | |||
| 5532 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 5533 | int capi_b_intent = 0; | |||
| 5534 | int capi_overwrite_b = 0; | |||
| 5535 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 5536 | int ldb = 0; | |||
| 5537 | complex_double *x = NULL((void*)0); | |||
| 5538 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 5539 | const int x_Rank = 2; | |||
| 5540 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 5541 | int capi_x_intent = 0; | |||
| 5542 | int ldx = 0; | |||
| 5543 | double rcond = 0; | |||
| 5544 | double *ferr = NULL((void*)0); | |||
| 5545 | npy_intp ferr_Dims[1] = {-1}; | |||
| 5546 | const int ferr_Rank = 1; | |||
| 5547 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 5548 | int capi_ferr_intent = 0; | |||
| 5549 | double *berr = NULL((void*)0); | |||
| 5550 | npy_intp berr_Dims[1] = {-1}; | |||
| 5551 | const int berr_Rank = 1; | |||
| 5552 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 5553 | int capi_berr_intent = 0; | |||
| 5554 | complex_double *work = NULL((void*)0); | |||
| 5555 | npy_intp work_Dims[1] = {-1}; | |||
| 5556 | const int work_Rank = 1; | |||
| 5557 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 5558 | int capi_work_intent = 0; | |||
| 5559 | double *rwork = NULL((void*)0); | |||
| 5560 | npy_intp rwork_Dims[1] = {-1}; | |||
| 5561 | const int rwork_Rank = 1; | |||
| 5562 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 5563 | int capi_rwork_intent = 0; | |||
| 5564 | int info = 0; | |||
| 5565 | static char *capi_kwlist[] = {"a","b","fact","trans","af","ipiv","equed","r","c","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 5566 | ||||
| 5567 | /*routdebugenter*/ | |||
| 5568 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5569 | f2py_start_clock(); | |||
| 5570 | #endif | |||
| 5571 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 5572 | "OO|OOOOOOOii:_flapack.zgesvx",\ | |||
| 5573 | capi_kwlist,&a_capi,&b_capi,&fact_capi,&trans_capi,&af_capi,&ipiv_capi,&equed_capi,&r_capi,&c_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 5574 | return NULL((void*)0); | |||
| 5575 | /*frompyobj*/ | |||
| 5576 | /* Processing variable fact */ | |||
| 5577 | slen(fact)capi_fact_len = 1; | |||
| 5578 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.zgesvx to C string"); | |||
| 5579 | if (f2py_success) { | |||
| 5580 | /* Processing variable a */ | |||
| 5581 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 5582 | ; | |||
| 5583 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 5584 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 5585 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 5586 | if (!PyErr_Occurred()) | |||
| 5587 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgesvx to C/Fortran array" ); | |||
| 5588 | } else { | |||
| 5589 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 5590 | ||||
| 5591 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 5592 | /* Processing variable rcond */ | |||
| 5593 | /* Processing variable info */ | |||
| 5594 | /* Processing variable n */ | |||
| 5595 | n = shape(a,0)a_Dims[0]; | |||
| 5596 | /* Processing variable lda */ | |||
| 5597 | lda = shape(a,0)a_Dims[0]; | |||
| 5598 | /* Processing variable af */ | |||
| 5599 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 5600 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 5601 | capi_af_tmp = array_from_pyobj(NPY_CDOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 5602 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 5603 | if (!PyErr_Occurred()) | |||
| 5604 | PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `af' of _flapack.zgesvx to C/Fortran array" ); | |||
| 5605 | } else { | |||
| 5606 | af = (complex_double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 5607 | ||||
| 5608 | /* Processing variable ldaf */ | |||
| 5609 | ldaf = shape(af,0)af_Dims[0]; | |||
| 5610 | /* Processing variable ipiv */ | |||
| 5611 | ipiv_Dims[0]=n; | |||
| 5612 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 5613 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 5614 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 5615 | if (!PyErr_Occurred()) | |||
| 5616 | PyErr_SetString(_flapack_error,"failed in converting 4th keyword `ipiv' of _flapack.zgesvx to C/Fortran array" ); | |||
| 5617 | } else { | |||
| 5618 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 5619 | ||||
| 5620 | /* Processing variable r */ | |||
| 5621 | r_Dims[0]=n; | |||
| 5622 | capi_r_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 5623 | capi_r_tmp = array_from_pyobj(NPY_DOUBLE,r_Dims,r_Rank,capi_r_intent,r_capi); | |||
| 5624 | if (capi_r_tmp == NULL((void*)0)) { | |||
| 5625 | if (!PyErr_Occurred()) | |||
| 5626 | PyErr_SetString(_flapack_error,"failed in converting 6th keyword `r' of _flapack.zgesvx to C/Fortran array" ); | |||
| 5627 | } else { | |||
| 5628 | r = (double *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data)); | |||
| 5629 | ||||
| 5630 | /* Processing variable c */ | |||
| 5631 | c_Dims[0]=n; | |||
| 5632 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 5633 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 5634 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 5635 | if (!PyErr_Occurred()) | |||
| 5636 | PyErr_SetString(_flapack_error,"failed in converting 7th keyword `c' of _flapack.zgesvx to C/Fortran array" ); | |||
| 5637 | } else { | |||
| 5638 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 5639 | ||||
| 5640 | /* Processing variable b */ | |||
| 5641 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 5642 | b_Dims[0]=n; | |||
| 5643 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 5644 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 5645 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 5646 | if (!PyErr_Occurred()) | |||
| 5647 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgesvx to C/Fortran array" ); | |||
| 5648 | } else { | |||
| 5649 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 5650 | ||||
| 5651 | /* Processing variable ldb */ | |||
| 5652 | ldb = shape(b,0)b_Dims[0]; | |||
| 5653 | /* Processing variable ldx */ | |||
| 5654 | ldx = n; | |||
| 5655 | /* Processing variable work */ | |||
| 5656 | work_Dims[0]=2 * n; | |||
| 5657 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 5658 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 5659 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 5660 | if (!PyErr_Occurred()) | |||
| 5661 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgesvx to C/Fortran array" ); | |||
| 5662 | } else { | |||
| 5663 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 5664 | ||||
| 5665 | /* Processing variable rwork */ | |||
| 5666 | rwork_Dims[0]=2 * n; | |||
| 5667 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 5668 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 5669 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 5670 | if (!PyErr_Occurred()) | |||
| 5671 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgesvx to C/Fortran array" ); | |||
| 5672 | } else { | |||
| 5673 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 5674 | ||||
| 5675 | /* Processing variable trans */ | |||
| 5676 | slen(trans)capi_trans_len = 1; | |||
| 5677 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.zgesvx to C string"); | |||
| 5678 | if (f2py_success) { | |||
| 5679 | /* Processing variable nrhs */ | |||
| 5680 | nrhs = shape(b,1)b_Dims[1]; | |||
| 5681 | /* Processing variable equed */ | |||
| 5682 | slen(equed)capi_equed_len = 1; | |||
| 5683 | f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"B",equed_capi,"string_from_pyobj failed in converting 5th keyword `equed' of _flapack.zgesvx to C string"); | |||
| 5684 | if (f2py_success) { | |||
| 5685 | /* Processing variable x */ | |||
| 5686 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 5687 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 5688 | capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 5689 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 5690 | if (!PyErr_Occurred()) | |||
| 5691 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zgesvx to C/Fortran array" ); | |||
| 5692 | } else { | |||
| 5693 | x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 5694 | ||||
| 5695 | /* Processing variable ferr */ | |||
| 5696 | ferr_Dims[0]=nrhs; | |||
| 5697 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 5698 | capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 5699 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 5700 | if (!PyErr_Occurred()) | |||
| 5701 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.zgesvx to C/Fortran array" ); | |||
| 5702 | } else { | |||
| 5703 | ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 5704 | ||||
| 5705 | /* Processing variable berr */ | |||
| 5706 | berr_Dims[0]=nrhs; | |||
| 5707 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 5708 | capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 5709 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 5710 | if (!PyErr_Occurred()) | |||
| 5711 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.zgesvx to C/Fortran array" ); | |||
| 5712 | } else { | |||
| 5713 | berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 5714 | ||||
| 5715 | /*end of frompyobj*/ | |||
| 5716 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5717 | f2py_start_call_clock(); | |||
| 5718 | #endif | |||
| 5719 | /*callfortranroutine*/ | |||
| 5720 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 5721 | {F_INTint i;(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info);for(i=0;i<n;--ipiv[i++]);} ; | |||
| 5722 | /*(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info,slen(fact),slen(trans),slen(equed));*/ | |||
| 5723 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 5724 | if (PyErr_Occurred()) | |||
| 5725 | f2py_success = 0; | |||
| 5726 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5727 | f2py_stop_call_clock(); | |||
| 5728 | #endif | |||
| 5729 | /*end of callfortranroutine*/ | |||
| 5730 | if (f2py_success) { | |||
| 5731 | /*pyobjfrom*/ | |||
| 5732 | /*end of pyobjfrom*/ | |||
| 5733 | CFUNCSMESS("Building return value.\n"); | |||
| 5734 | capi_buildvalue = Py_BuildValue("NNNyNNNNdNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,equed,capi_r_tmp,capi_c_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 5735 | /*closepyobjfrom*/ | |||
| 5736 | /*end of closepyobjfrom*/ | |||
| 5737 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 5738 | /*cleanupfrompyobj*/ | |||
| 5739 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 5740 | /* End of cleaning variable berr */ | |||
| 5741 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 5742 | /* End of cleaning variable ferr */ | |||
| 5743 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 5744 | /* End of cleaning variable x */ | |||
| 5745 | STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0); | |||
| 5746 | } /*if (f2py_success) of equed*/ | |||
| 5747 | /* End of cleaning variable equed */ | |||
| 5748 | /* End of cleaning variable nrhs */ | |||
| 5749 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 5750 | } /*if (f2py_success) of trans*/ | |||
| 5751 | /* End of cleaning variable trans */ | |||
| 5752 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 5753 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 5754 | /* End of cleaning variable rwork */ | |||
| 5755 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 5756 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 5757 | /* End of cleaning variable work */ | |||
| 5758 | /* End of cleaning variable ldx */ | |||
| 5759 | /* End of cleaning variable ldb */ | |||
| 5760 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 5761 | /* End of cleaning variable b */ | |||
| 5762 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 5763 | /* End of cleaning variable c */ | |||
| 5764 | } /*if (capi_r_tmp == NULL) ... else of r*/ | |||
| 5765 | /* End of cleaning variable r */ | |||
| 5766 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 5767 | /* End of cleaning variable ipiv */ | |||
| 5768 | /* End of cleaning variable ldaf */ | |||
| 5769 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 5770 | /* End of cleaning variable af */ | |||
| 5771 | /* End of cleaning variable lda */ | |||
| 5772 | /* End of cleaning variable n */ | |||
| 5773 | /* End of cleaning variable info */ | |||
| 5774 | /* End of cleaning variable rcond */ | |||
| 5775 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 5776 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 5777 | /* End of cleaning variable a */ | |||
| 5778 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 5779 | } /*if (f2py_success) of fact*/ | |||
| 5780 | /* End of cleaning variable fact */ | |||
| 5781 | /*end of cleanupfrompyobj*/ | |||
| 5782 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 5783 | /*routdebugfailure*/ | |||
| 5784 | } else { | |||
| 5785 | /*routdebugleave*/ | |||
| 5786 | } | |||
| 5787 | CFUNCSMESS("Freeing memory.\n"); | |||
| 5788 | /*freemem*/ | |||
| 5789 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5790 | f2py_stop_clock(); | |||
| 5791 | #endif | |||
| 5792 | return capi_buildvalue; | |||
| 5793 | } | |||
| 5794 | /******************************* end of zgesvx *******************************/ | |||
| 5795 | ||||
| 5796 | /*********************************** sgecon ***********************************/ | |||
| 5797 | static char doc_f2py_rout__flapack_sgecon[] = "\ | |||
| 5798 | rcond,info = sgecon(a,anorm,[norm])\n\nWrapper for ``sgecon``.\ | |||
| 5799 | \n\nParameters\n----------\n" | |||
| 5800 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 5801 | "anorm : input float\n" | |||
| 5802 | "\nOther Parameters\n----------------\n" | |||
| 5803 | "norm : input string(len=1), optional\n Default: '1'\n" | |||
| 5804 | "\nReturns\n-------\n" | |||
| 5805 | "rcond : float\n" | |||
| 5806 | "info : int"; | |||
| 5807 | /* extern void F_FUNC(sgecon,SGECON)(char*,F_INT*,float*,F_INT*,float*,float*,float*,F_INT*,F_INT* ); */ | |||
| 5808 | static PyObject *f2py_rout__flapack_sgecon(const PyObject *capi_self, | |||
| 5809 | PyObject *capi_args, | |||
| 5810 | PyObject *capi_keywds, | |||
| 5811 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 5812 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 5813 | volatile int f2py_success = 1; | |||
| 5814 | /*decl*/ | |||
| 5815 | ||||
| 5816 | string norm = NULL((void*)0); | |||
| 5817 | int slen(norm)capi_norm_len; | |||
| 5818 | PyObject *norm_capi = Py_None(&_Py_NoneStruct); | |||
| 5819 | int n = 0; | |||
| 5820 | float *a = NULL((void*)0); | |||
| 5821 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 5822 | const int a_Rank = 2; | |||
| 5823 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 5824 | int capi_a_intent = 0; | |||
| 5825 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 5826 | int lda = 0; | |||
| 5827 | float anorm = 0; | |||
| 5828 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 5829 | float rcond = 0; | |||
| 5830 | float *work = NULL((void*)0); | |||
| 5831 | npy_intp work_Dims[1] = {-1}; | |||
| 5832 | const int work_Rank = 1; | |||
| 5833 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 5834 | int capi_work_intent = 0; | |||
| 5835 | int *irwork = NULL((void*)0); | |||
| 5836 | npy_intp irwork_Dims[1] = {-1}; | |||
| 5837 | const int irwork_Rank = 1; | |||
| 5838 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 5839 | int capi_irwork_intent = 0; | |||
| 5840 | int info = 0; | |||
| 5841 | static char *capi_kwlist[] = {"a","anorm","norm",NULL((void*)0)}; | |||
| 5842 | ||||
| 5843 | /*routdebugenter*/ | |||
| 5844 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5845 | f2py_start_clock(); | |||
| 5846 | #endif | |||
| 5847 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 5848 | "OO|O:_flapack.sgecon",\ | |||
| 5849 | capi_kwlist,&a_capi,&anorm_capi,&norm_capi)) | |||
| 5850 | return NULL((void*)0); | |||
| 5851 | /*frompyobj*/ | |||
| 5852 | /* Processing variable norm */ | |||
| 5853 | slen(norm)capi_norm_len = 1; | |||
| 5854 | f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"1",norm_capi,"string_from_pyobj failed in converting 1st keyword `norm' of _flapack.sgecon to C string"); | |||
| 5855 | if (f2py_success) { | |||
| 5856 | /* Processing variable a */ | |||
| 5857 | ; | |||
| 5858 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 5859 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 5860 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 5861 | if (!PyErr_Occurred()) | |||
| 5862 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgecon to C/Fortran array" ); | |||
| 5863 | } else { | |||
| 5864 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 5865 | ||||
| 5866 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 5867 | /* Processing variable anorm */ | |||
| 5868 | f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.sgecon() 2nd argument (anorm) can't be converted to float"); | |||
| 5869 | if (f2py_success) { | |||
| 5870 | /* Processing variable rcond */ | |||
| 5871 | /* Processing variable info */ | |||
| 5872 | /* Processing variable n */ | |||
| 5873 | n = shape(a,0)a_Dims[0]; | |||
| 5874 | /* Processing variable lda */ | |||
| 5875 | lda = shape(a,0)a_Dims[0]; | |||
| 5876 | /* Processing variable work */ | |||
| 5877 | work_Dims[0]=4 * n; | |||
| 5878 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 5879 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 5880 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 5881 | if (!PyErr_Occurred()) | |||
| 5882 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgecon to C/Fortran array" ); | |||
| 5883 | } else { | |||
| 5884 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 5885 | ||||
| 5886 | /* Processing variable irwork */ | |||
| 5887 | irwork_Dims[0]=n; | |||
| 5888 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 5889 | capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 5890 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 5891 | if (!PyErr_Occurred()) | |||
| 5892 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.sgecon to C/Fortran array" ); | |||
| 5893 | } else { | |||
| 5894 | irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 5895 | ||||
| 5896 | /*end of frompyobj*/ | |||
| 5897 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5898 | f2py_start_call_clock(); | |||
| 5899 | #endif | |||
| 5900 | /*callfortranroutine*/ | |||
| 5901 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 5902 | (*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ; | |||
| 5903 | /*(*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(norm));*/ | |||
| 5904 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 5905 | if (PyErr_Occurred()) | |||
| 5906 | f2py_success = 0; | |||
| 5907 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5908 | f2py_stop_call_clock(); | |||
| 5909 | #endif | |||
| 5910 | /*end of callfortranroutine*/ | |||
| 5911 | if (f2py_success) { | |||
| 5912 | /*pyobjfrom*/ | |||
| 5913 | /*end of pyobjfrom*/ | |||
| 5914 | CFUNCSMESS("Building return value.\n"); | |||
| 5915 | capi_buildvalue = Py_BuildValue("fi",rcond,info); | |||
| 5916 | /*closepyobjfrom*/ | |||
| 5917 | /*end of closepyobjfrom*/ | |||
| 5918 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 5919 | /*cleanupfrompyobj*/ | |||
| 5920 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 5921 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 5922 | /* End of cleaning variable irwork */ | |||
| 5923 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 5924 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 5925 | /* End of cleaning variable work */ | |||
| 5926 | /* End of cleaning variable lda */ | |||
| 5927 | /* End of cleaning variable n */ | |||
| 5928 | /* End of cleaning variable info */ | |||
| 5929 | /* End of cleaning variable rcond */ | |||
| 5930 | } /*if (f2py_success) of anorm*/ | |||
| 5931 | /* End of cleaning variable anorm */ | |||
| 5932 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 5933 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 5934 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 5935 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 5936 | /* End of cleaning variable a */ | |||
| 5937 | STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0); | |||
| 5938 | } /*if (f2py_success) of norm*/ | |||
| 5939 | /* End of cleaning variable norm */ | |||
| 5940 | /*end of cleanupfrompyobj*/ | |||
| 5941 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 5942 | /*routdebugfailure*/ | |||
| 5943 | } else { | |||
| 5944 | /*routdebugleave*/ | |||
| 5945 | } | |||
| 5946 | CFUNCSMESS("Freeing memory.\n"); | |||
| 5947 | /*freemem*/ | |||
| 5948 | #ifdef F2PY_REPORT_ATEXIT | |||
| 5949 | f2py_stop_clock(); | |||
| 5950 | #endif | |||
| 5951 | return capi_buildvalue; | |||
| 5952 | } | |||
| 5953 | /******************************* end of sgecon *******************************/ | |||
| 5954 | ||||
| 5955 | /*********************************** dgecon ***********************************/ | |||
| 5956 | static char doc_f2py_rout__flapack_dgecon[] = "\ | |||
| 5957 | rcond,info = dgecon(a,anorm,[norm])\n\nWrapper for ``dgecon``.\ | |||
| 5958 | \n\nParameters\n----------\n" | |||
| 5959 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 5960 | "anorm : input float\n" | |||
| 5961 | "\nOther Parameters\n----------------\n" | |||
| 5962 | "norm : input string(len=1), optional\n Default: '1'\n" | |||
| 5963 | "\nReturns\n-------\n" | |||
| 5964 | "rcond : float\n" | |||
| 5965 | "info : int"; | |||
| 5966 | /* extern void F_FUNC(dgecon,DGECON)(char*,F_INT*,double*,F_INT*,double*,double*,double*,F_INT*,F_INT* ); */ | |||
| 5967 | static PyObject *f2py_rout__flapack_dgecon(const PyObject *capi_self, | |||
| 5968 | PyObject *capi_args, | |||
| 5969 | PyObject *capi_keywds, | |||
| 5970 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 5971 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 5972 | volatile int f2py_success = 1; | |||
| 5973 | /*decl*/ | |||
| 5974 | ||||
| 5975 | string norm = NULL((void*)0); | |||
| 5976 | int slen(norm)capi_norm_len; | |||
| 5977 | PyObject *norm_capi = Py_None(&_Py_NoneStruct); | |||
| 5978 | int n = 0; | |||
| 5979 | double *a = NULL((void*)0); | |||
| 5980 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 5981 | const int a_Rank = 2; | |||
| 5982 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 5983 | int capi_a_intent = 0; | |||
| 5984 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 5985 | int lda = 0; | |||
| 5986 | double anorm = 0; | |||
| 5987 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 5988 | double rcond = 0; | |||
| 5989 | double *work = NULL((void*)0); | |||
| 5990 | npy_intp work_Dims[1] = {-1}; | |||
| 5991 | const int work_Rank = 1; | |||
| 5992 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 5993 | int capi_work_intent = 0; | |||
| 5994 | int *irwork = NULL((void*)0); | |||
| 5995 | npy_intp irwork_Dims[1] = {-1}; | |||
| 5996 | const int irwork_Rank = 1; | |||
| 5997 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 5998 | int capi_irwork_intent = 0; | |||
| 5999 | int info = 0; | |||
| 6000 | static char *capi_kwlist[] = {"a","anorm","norm",NULL((void*)0)}; | |||
| 6001 | ||||
| 6002 | /*routdebugenter*/ | |||
| 6003 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6004 | f2py_start_clock(); | |||
| 6005 | #endif | |||
| 6006 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 6007 | "OO|O:_flapack.dgecon",\ | |||
| 6008 | capi_kwlist,&a_capi,&anorm_capi,&norm_capi)) | |||
| 6009 | return NULL((void*)0); | |||
| 6010 | /*frompyobj*/ | |||
| 6011 | /* Processing variable norm */ | |||
| 6012 | slen(norm)capi_norm_len = 1; | |||
| 6013 | f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"1",norm_capi,"string_from_pyobj failed in converting 1st keyword `norm' of _flapack.dgecon to C string"); | |||
| 6014 | if (f2py_success) { | |||
| 6015 | /* Processing variable a */ | |||
| 6016 | ; | |||
| 6017 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 6018 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 6019 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 6020 | if (!PyErr_Occurred()) | |||
| 6021 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgecon to C/Fortran array" ); | |||
| 6022 | } else { | |||
| 6023 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 6024 | ||||
| 6025 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 6026 | /* Processing variable anorm */ | |||
| 6027 | f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.dgecon() 2nd argument (anorm) can't be converted to double"); | |||
| 6028 | if (f2py_success) { | |||
| 6029 | /* Processing variable rcond */ | |||
| 6030 | /* Processing variable info */ | |||
| 6031 | /* Processing variable n */ | |||
| 6032 | n = shape(a,0)a_Dims[0]; | |||
| 6033 | /* Processing variable lda */ | |||
| 6034 | lda = shape(a,0)a_Dims[0]; | |||
| 6035 | /* Processing variable work */ | |||
| 6036 | work_Dims[0]=4 * n; | |||
| 6037 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 6038 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 6039 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 6040 | if (!PyErr_Occurred()) | |||
| 6041 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgecon to C/Fortran array" ); | |||
| 6042 | } else { | |||
| 6043 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 6044 | ||||
| 6045 | /* Processing variable irwork */ | |||
| 6046 | irwork_Dims[0]=n; | |||
| 6047 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 6048 | capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 6049 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 6050 | if (!PyErr_Occurred()) | |||
| 6051 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.dgecon to C/Fortran array" ); | |||
| 6052 | } else { | |||
| 6053 | irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 6054 | ||||
| 6055 | /*end of frompyobj*/ | |||
| 6056 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6057 | f2py_start_call_clock(); | |||
| 6058 | #endif | |||
| 6059 | /*callfortranroutine*/ | |||
| 6060 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 6061 | (*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ; | |||
| 6062 | /*(*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(norm));*/ | |||
| 6063 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 6064 | if (PyErr_Occurred()) | |||
| 6065 | f2py_success = 0; | |||
| 6066 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6067 | f2py_stop_call_clock(); | |||
| 6068 | #endif | |||
| 6069 | /*end of callfortranroutine*/ | |||
| 6070 | if (f2py_success) { | |||
| 6071 | /*pyobjfrom*/ | |||
| 6072 | /*end of pyobjfrom*/ | |||
| 6073 | CFUNCSMESS("Building return value.\n"); | |||
| 6074 | capi_buildvalue = Py_BuildValue("di",rcond,info); | |||
| 6075 | /*closepyobjfrom*/ | |||
| 6076 | /*end of closepyobjfrom*/ | |||
| 6077 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 6078 | /*cleanupfrompyobj*/ | |||
| 6079 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 6080 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 6081 | /* End of cleaning variable irwork */ | |||
| 6082 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 6083 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 6084 | /* End of cleaning variable work */ | |||
| 6085 | /* End of cleaning variable lda */ | |||
| 6086 | /* End of cleaning variable n */ | |||
| 6087 | /* End of cleaning variable info */ | |||
| 6088 | /* End of cleaning variable rcond */ | |||
| 6089 | } /*if (f2py_success) of anorm*/ | |||
| 6090 | /* End of cleaning variable anorm */ | |||
| 6091 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 6092 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 6093 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 6094 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 6095 | /* End of cleaning variable a */ | |||
| 6096 | STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0); | |||
| 6097 | } /*if (f2py_success) of norm*/ | |||
| 6098 | /* End of cleaning variable norm */ | |||
| 6099 | /*end of cleanupfrompyobj*/ | |||
| 6100 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 6101 | /*routdebugfailure*/ | |||
| 6102 | } else { | |||
| 6103 | /*routdebugleave*/ | |||
| 6104 | } | |||
| 6105 | CFUNCSMESS("Freeing memory.\n"); | |||
| 6106 | /*freemem*/ | |||
| 6107 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6108 | f2py_stop_clock(); | |||
| 6109 | #endif | |||
| 6110 | return capi_buildvalue; | |||
| 6111 | } | |||
| 6112 | /******************************* end of dgecon *******************************/ | |||
| 6113 | ||||
| 6114 | /*********************************** cgecon ***********************************/ | |||
| 6115 | static char doc_f2py_rout__flapack_cgecon[] = "\ | |||
| 6116 | rcond,info = cgecon(a,anorm,[norm])\n\nWrapper for ``cgecon``.\ | |||
| 6117 | \n\nParameters\n----------\n" | |||
| 6118 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 6119 | "anorm : input float\n" | |||
| 6120 | "\nOther Parameters\n----------------\n" | |||
| 6121 | "norm : input string(len=1), optional\n Default: '1'\n" | |||
| 6122 | "\nReturns\n-------\n" | |||
| 6123 | "rcond : float\n" | |||
| 6124 | "info : int"; | |||
| 6125 | /* extern void F_FUNC(cgecon,CGECON)(char*,F_INT*,complex_float*,F_INT*,float*,float*,complex_float*,float*,F_INT* ); */ | |||
| 6126 | static PyObject *f2py_rout__flapack_cgecon(const PyObject *capi_self, | |||
| 6127 | PyObject *capi_args, | |||
| 6128 | PyObject *capi_keywds, | |||
| 6129 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,float*,F_INTint* )) { | |||
| 6130 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 6131 | volatile int f2py_success = 1; | |||
| 6132 | /*decl*/ | |||
| 6133 | ||||
| 6134 | string norm = NULL((void*)0); | |||
| 6135 | int slen(norm)capi_norm_len; | |||
| 6136 | PyObject *norm_capi = Py_None(&_Py_NoneStruct); | |||
| 6137 | int n = 0; | |||
| 6138 | complex_float *a = NULL((void*)0); | |||
| 6139 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 6140 | const int a_Rank = 2; | |||
| 6141 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 6142 | int capi_a_intent = 0; | |||
| 6143 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 6144 | int lda = 0; | |||
| 6145 | float anorm = 0; | |||
| 6146 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 6147 | float rcond = 0; | |||
| 6148 | complex_float *work = NULL((void*)0); | |||
| 6149 | npy_intp work_Dims[1] = {-1}; | |||
| 6150 | const int work_Rank = 1; | |||
| 6151 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 6152 | int capi_work_intent = 0; | |||
| 6153 | float *irwork = NULL((void*)0); | |||
| 6154 | npy_intp irwork_Dims[1] = {-1}; | |||
| 6155 | const int irwork_Rank = 1; | |||
| 6156 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 6157 | int capi_irwork_intent = 0; | |||
| 6158 | int info = 0; | |||
| 6159 | static char *capi_kwlist[] = {"a","anorm","norm",NULL((void*)0)}; | |||
| 6160 | ||||
| 6161 | /*routdebugenter*/ | |||
| 6162 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6163 | f2py_start_clock(); | |||
| 6164 | #endif | |||
| 6165 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 6166 | "OO|O:_flapack.cgecon",\ | |||
| 6167 | capi_kwlist,&a_capi,&anorm_capi,&norm_capi)) | |||
| 6168 | return NULL((void*)0); | |||
| 6169 | /*frompyobj*/ | |||
| 6170 | /* Processing variable norm */ | |||
| 6171 | slen(norm)capi_norm_len = 1; | |||
| 6172 | f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"1",norm_capi,"string_from_pyobj failed in converting 1st keyword `norm' of _flapack.cgecon to C string"); | |||
| 6173 | if (f2py_success) { | |||
| 6174 | /* Processing variable a */ | |||
| 6175 | ; | |||
| 6176 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 6177 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 6178 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 6179 | if (!PyErr_Occurred()) | |||
| 6180 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgecon to C/Fortran array" ); | |||
| 6181 | } else { | |||
| 6182 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 6183 | ||||
| 6184 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 6185 | /* Processing variable anorm */ | |||
| 6186 | f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.cgecon() 2nd argument (anorm) can't be converted to float"); | |||
| 6187 | if (f2py_success) { | |||
| 6188 | /* Processing variable rcond */ | |||
| 6189 | /* Processing variable info */ | |||
| 6190 | /* Processing variable n */ | |||
| 6191 | n = shape(a,0)a_Dims[0]; | |||
| 6192 | /* Processing variable lda */ | |||
| 6193 | lda = shape(a,0)a_Dims[0]; | |||
| 6194 | /* Processing variable work */ | |||
| 6195 | work_Dims[0]=2 * n; | |||
| 6196 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 6197 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 6198 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 6199 | if (!PyErr_Occurred()) | |||
| 6200 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgecon to C/Fortran array" ); | |||
| 6201 | } else { | |||
| 6202 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 6203 | ||||
| 6204 | /* Processing variable irwork */ | |||
| 6205 | irwork_Dims[0]=2 * n; | |||
| 6206 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 6207 | capi_irwork_tmp = array_from_pyobj(NPY_FLOAT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 6208 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 6209 | if (!PyErr_Occurred()) | |||
| 6210 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.cgecon to C/Fortran array" ); | |||
| 6211 | } else { | |||
| 6212 | irwork = (float *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 6213 | ||||
| 6214 | /*end of frompyobj*/ | |||
| 6215 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6216 | f2py_start_call_clock(); | |||
| 6217 | #endif | |||
| 6218 | /*callfortranroutine*/ | |||
| 6219 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 6220 | (*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ; | |||
| 6221 | /*(*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(norm));*/ | |||
| 6222 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 6223 | if (PyErr_Occurred()) | |||
| 6224 | f2py_success = 0; | |||
| 6225 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6226 | f2py_stop_call_clock(); | |||
| 6227 | #endif | |||
| 6228 | /*end of callfortranroutine*/ | |||
| 6229 | if (f2py_success) { | |||
| 6230 | /*pyobjfrom*/ | |||
| 6231 | /*end of pyobjfrom*/ | |||
| 6232 | CFUNCSMESS("Building return value.\n"); | |||
| 6233 | capi_buildvalue = Py_BuildValue("fi",rcond,info); | |||
| 6234 | /*closepyobjfrom*/ | |||
| 6235 | /*end of closepyobjfrom*/ | |||
| 6236 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 6237 | /*cleanupfrompyobj*/ | |||
| 6238 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 6239 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 6240 | /* End of cleaning variable irwork */ | |||
| 6241 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 6242 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 6243 | /* End of cleaning variable work */ | |||
| 6244 | /* End of cleaning variable lda */ | |||
| 6245 | /* End of cleaning variable n */ | |||
| 6246 | /* End of cleaning variable info */ | |||
| 6247 | /* End of cleaning variable rcond */ | |||
| 6248 | } /*if (f2py_success) of anorm*/ | |||
| 6249 | /* End of cleaning variable anorm */ | |||
| 6250 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 6251 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 6252 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 6253 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 6254 | /* End of cleaning variable a */ | |||
| 6255 | STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0); | |||
| 6256 | } /*if (f2py_success) of norm*/ | |||
| 6257 | /* End of cleaning variable norm */ | |||
| 6258 | /*end of cleanupfrompyobj*/ | |||
| 6259 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 6260 | /*routdebugfailure*/ | |||
| 6261 | } else { | |||
| 6262 | /*routdebugleave*/ | |||
| 6263 | } | |||
| 6264 | CFUNCSMESS("Freeing memory.\n"); | |||
| 6265 | /*freemem*/ | |||
| 6266 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6267 | f2py_stop_clock(); | |||
| 6268 | #endif | |||
| 6269 | return capi_buildvalue; | |||
| 6270 | } | |||
| 6271 | /******************************* end of cgecon *******************************/ | |||
| 6272 | ||||
| 6273 | /*********************************** zgecon ***********************************/ | |||
| 6274 | static char doc_f2py_rout__flapack_zgecon[] = "\ | |||
| 6275 | rcond,info = zgecon(a,anorm,[norm])\n\nWrapper for ``zgecon``.\ | |||
| 6276 | \n\nParameters\n----------\n" | |||
| 6277 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 6278 | "anorm : input float\n" | |||
| 6279 | "\nOther Parameters\n----------------\n" | |||
| 6280 | "norm : input string(len=1), optional\n Default: '1'\n" | |||
| 6281 | "\nReturns\n-------\n" | |||
| 6282 | "rcond : float\n" | |||
| 6283 | "info : int"; | |||
| 6284 | /* extern void F_FUNC(zgecon,ZGECON)(char*,F_INT*,complex_double*,F_INT*,double*,double*,complex_double*,double*,F_INT* ); */ | |||
| 6285 | static PyObject *f2py_rout__flapack_zgecon(const PyObject *capi_self, | |||
| 6286 | PyObject *capi_args, | |||
| 6287 | PyObject *capi_keywds, | |||
| 6288 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,double*,F_INTint* )) { | |||
| 6289 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 6290 | volatile int f2py_success = 1; | |||
| 6291 | /*decl*/ | |||
| 6292 | ||||
| 6293 | string norm = NULL((void*)0); | |||
| 6294 | int slen(norm)capi_norm_len; | |||
| 6295 | PyObject *norm_capi = Py_None(&_Py_NoneStruct); | |||
| 6296 | int n = 0; | |||
| 6297 | complex_double *a = NULL((void*)0); | |||
| 6298 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 6299 | const int a_Rank = 2; | |||
| 6300 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 6301 | int capi_a_intent = 0; | |||
| 6302 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 6303 | int lda = 0; | |||
| 6304 | double anorm = 0; | |||
| 6305 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 6306 | double rcond = 0; | |||
| 6307 | complex_double *work = NULL((void*)0); | |||
| 6308 | npy_intp work_Dims[1] = {-1}; | |||
| 6309 | const int work_Rank = 1; | |||
| 6310 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 6311 | int capi_work_intent = 0; | |||
| 6312 | double *irwork = NULL((void*)0); | |||
| 6313 | npy_intp irwork_Dims[1] = {-1}; | |||
| 6314 | const int irwork_Rank = 1; | |||
| 6315 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 6316 | int capi_irwork_intent = 0; | |||
| 6317 | int info = 0; | |||
| 6318 | static char *capi_kwlist[] = {"a","anorm","norm",NULL((void*)0)}; | |||
| 6319 | ||||
| 6320 | /*routdebugenter*/ | |||
| 6321 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6322 | f2py_start_clock(); | |||
| 6323 | #endif | |||
| 6324 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 6325 | "OO|O:_flapack.zgecon",\ | |||
| 6326 | capi_kwlist,&a_capi,&anorm_capi,&norm_capi)) | |||
| 6327 | return NULL((void*)0); | |||
| 6328 | /*frompyobj*/ | |||
| 6329 | /* Processing variable norm */ | |||
| 6330 | slen(norm)capi_norm_len = 1; | |||
| 6331 | f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"1",norm_capi,"string_from_pyobj failed in converting 1st keyword `norm' of _flapack.zgecon to C string"); | |||
| 6332 | if (f2py_success) { | |||
| 6333 | /* Processing variable a */ | |||
| 6334 | ; | |||
| 6335 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 6336 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 6337 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 6338 | if (!PyErr_Occurred()) | |||
| 6339 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgecon to C/Fortran array" ); | |||
| 6340 | } else { | |||
| 6341 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 6342 | ||||
| 6343 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 6344 | /* Processing variable anorm */ | |||
| 6345 | f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.zgecon() 2nd argument (anorm) can't be converted to double"); | |||
| 6346 | if (f2py_success) { | |||
| 6347 | /* Processing variable rcond */ | |||
| 6348 | /* Processing variable info */ | |||
| 6349 | /* Processing variable n */ | |||
| 6350 | n = shape(a,0)a_Dims[0]; | |||
| 6351 | /* Processing variable lda */ | |||
| 6352 | lda = shape(a,0)a_Dims[0]; | |||
| 6353 | /* Processing variable work */ | |||
| 6354 | work_Dims[0]=2 * n; | |||
| 6355 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 6356 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 6357 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 6358 | if (!PyErr_Occurred()) | |||
| 6359 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgecon to C/Fortran array" ); | |||
| 6360 | } else { | |||
| 6361 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 6362 | ||||
| 6363 | /* Processing variable irwork */ | |||
| 6364 | irwork_Dims[0]=2 * n; | |||
| 6365 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 6366 | capi_irwork_tmp = array_from_pyobj(NPY_DOUBLE,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 6367 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 6368 | if (!PyErr_Occurred()) | |||
| 6369 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.zgecon to C/Fortran array" ); | |||
| 6370 | } else { | |||
| 6371 | irwork = (double *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 6372 | ||||
| 6373 | /*end of frompyobj*/ | |||
| 6374 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6375 | f2py_start_call_clock(); | |||
| 6376 | #endif | |||
| 6377 | /*callfortranroutine*/ | |||
| 6378 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 6379 | (*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ; | |||
| 6380 | /*(*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(norm));*/ | |||
| 6381 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 6382 | if (PyErr_Occurred()) | |||
| 6383 | f2py_success = 0; | |||
| 6384 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6385 | f2py_stop_call_clock(); | |||
| 6386 | #endif | |||
| 6387 | /*end of callfortranroutine*/ | |||
| 6388 | if (f2py_success) { | |||
| 6389 | /*pyobjfrom*/ | |||
| 6390 | /*end of pyobjfrom*/ | |||
| 6391 | CFUNCSMESS("Building return value.\n"); | |||
| 6392 | capi_buildvalue = Py_BuildValue("di",rcond,info); | |||
| 6393 | /*closepyobjfrom*/ | |||
| 6394 | /*end of closepyobjfrom*/ | |||
| 6395 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 6396 | /*cleanupfrompyobj*/ | |||
| 6397 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 6398 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 6399 | /* End of cleaning variable irwork */ | |||
| 6400 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 6401 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 6402 | /* End of cleaning variable work */ | |||
| 6403 | /* End of cleaning variable lda */ | |||
| 6404 | /* End of cleaning variable n */ | |||
| 6405 | /* End of cleaning variable info */ | |||
| 6406 | /* End of cleaning variable rcond */ | |||
| 6407 | } /*if (f2py_success) of anorm*/ | |||
| 6408 | /* End of cleaning variable anorm */ | |||
| 6409 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 6410 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 6411 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 6412 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 6413 | /* End of cleaning variable a */ | |||
| 6414 | STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0); | |||
| 6415 | } /*if (f2py_success) of norm*/ | |||
| 6416 | /* End of cleaning variable norm */ | |||
| 6417 | /*end of cleanupfrompyobj*/ | |||
| 6418 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 6419 | /*routdebugfailure*/ | |||
| 6420 | } else { | |||
| 6421 | /*routdebugleave*/ | |||
| 6422 | } | |||
| 6423 | CFUNCSMESS("Freeing memory.\n"); | |||
| 6424 | /*freemem*/ | |||
| 6425 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6426 | f2py_stop_clock(); | |||
| 6427 | #endif | |||
| 6428 | return capi_buildvalue; | |||
| 6429 | } | |||
| 6430 | /******************************* end of zgecon *******************************/ | |||
| 6431 | ||||
| 6432 | /*********************************** sgetrf ***********************************/ | |||
| 6433 | static char doc_f2py_rout__flapack_sgetrf[] = "\ | |||
| 6434 | lu,piv,info = sgetrf(a,[overwrite_a])\n\nWrapper for ``sgetrf``.\ | |||
| 6435 | \n\nParameters\n----------\n" | |||
| 6436 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 6437 | "\nOther Parameters\n----------------\n" | |||
| 6438 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 6439 | "\nReturns\n-------\n" | |||
| 6440 | "lu : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 6441 | "piv : rank-1 array('i') with bounds (MIN(m,n))\n" | |||
| 6442 | "info : int"; | |||
| 6443 | /* extern void F_FUNC(sgetrf,SGETRF)(F_INT*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 6444 | static PyObject *f2py_rout__flapack_sgetrf(const PyObject *capi_self, | |||
| 6445 | PyObject *capi_args, | |||
| 6446 | PyObject *capi_keywds, | |||
| 6447 | void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 6448 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 6449 | volatile int f2py_success = 1; | |||
| 6450 | /*decl*/ | |||
| 6451 | ||||
| 6452 | int m = 0; | |||
| 6453 | int n = 0; | |||
| 6454 | float *a = NULL((void*)0); | |||
| 6455 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 6456 | const int a_Rank = 2; | |||
| 6457 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 6458 | int capi_a_intent = 0; | |||
| 6459 | int capi_overwrite_a = 0; | |||
| 6460 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 6461 | int *piv = NULL((void*)0); | |||
| 6462 | npy_intp piv_Dims[1] = {-1}; | |||
| 6463 | const int piv_Rank = 1; | |||
| 6464 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 6465 | int capi_piv_intent = 0; | |||
| 6466 | int info = 0; | |||
| 6467 | static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)}; | |||
| 6468 | ||||
| 6469 | /*routdebugenter*/ | |||
| 6470 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6471 | f2py_start_clock(); | |||
| 6472 | #endif | |||
| 6473 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 6474 | "O|i:_flapack.sgetrf",\ | |||
| 6475 | capi_kwlist,&a_capi,&capi_overwrite_a)) | |||
| 6476 | return NULL((void*)0); | |||
| 6477 | /*frompyobj*/ | |||
| 6478 | /* Processing variable a */ | |||
| 6479 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 6480 | ; | |||
| 6481 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 6482 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 6483 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 6484 | if (!PyErr_Occurred()) | |||
| 6485 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgetrf to C/Fortran array" ); | |||
| 6486 | } else { | |||
| 6487 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 6488 | ||||
| 6489 | /* Processing variable info */ | |||
| 6490 | /* Processing variable m */ | |||
| 6491 | m = shape(a,0)a_Dims[0]; | |||
| 6492 | /* Processing variable n */ | |||
| 6493 | n = shape(a,1)a_Dims[1]; | |||
| 6494 | /* Processing variable piv */ | |||
| 6495 | piv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 6496 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 6497 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 6498 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 6499 | if (!PyErr_Occurred()) | |||
| 6500 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.sgetrf to C/Fortran array" ); | |||
| 6501 | } else { | |||
| 6502 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 6503 | ||||
| 6504 | /*end of frompyobj*/ | |||
| 6505 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6506 | f2py_start_call_clock(); | |||
| 6507 | #endif | |||
| 6508 | /*callfortranroutine*/ | |||
| 6509 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 6510 | {F_INTint i;(*f2py_func)(&m,&n,a,&m,piv,&info);for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--piv[i++]);} ; | |||
| 6511 | /*(*f2py_func)(&m,&n,a,piv,&info);*/ | |||
| 6512 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 6513 | if (PyErr_Occurred()) | |||
| 6514 | f2py_success = 0; | |||
| 6515 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6516 | f2py_stop_call_clock(); | |||
| 6517 | #endif | |||
| 6518 | /*end of callfortranroutine*/ | |||
| 6519 | if (f2py_success) { | |||
| 6520 | /*pyobjfrom*/ | |||
| 6521 | /*end of pyobjfrom*/ | |||
| 6522 | CFUNCSMESS("Building return value.\n"); | |||
| 6523 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_piv_tmp,info); | |||
| 6524 | /*closepyobjfrom*/ | |||
| 6525 | /*end of closepyobjfrom*/ | |||
| 6526 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 6527 | /*cleanupfrompyobj*/ | |||
| 6528 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 6529 | /* End of cleaning variable piv */ | |||
| 6530 | /* End of cleaning variable n */ | |||
| 6531 | /* End of cleaning variable m */ | |||
| 6532 | /* End of cleaning variable info */ | |||
| 6533 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 6534 | /* End of cleaning variable a */ | |||
| 6535 | /*end of cleanupfrompyobj*/ | |||
| 6536 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 6537 | /*routdebugfailure*/ | |||
| 6538 | } else { | |||
| 6539 | /*routdebugleave*/ | |||
| 6540 | } | |||
| 6541 | CFUNCSMESS("Freeing memory.\n"); | |||
| 6542 | /*freemem*/ | |||
| 6543 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6544 | f2py_stop_clock(); | |||
| 6545 | #endif | |||
| 6546 | return capi_buildvalue; | |||
| 6547 | } | |||
| 6548 | /******************************* end of sgetrf *******************************/ | |||
| 6549 | ||||
| 6550 | /*********************************** dgetrf ***********************************/ | |||
| 6551 | static char doc_f2py_rout__flapack_dgetrf[] = "\ | |||
| 6552 | lu,piv,info = dgetrf(a,[overwrite_a])\n\nWrapper for ``dgetrf``.\ | |||
| 6553 | \n\nParameters\n----------\n" | |||
| 6554 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 6555 | "\nOther Parameters\n----------------\n" | |||
| 6556 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 6557 | "\nReturns\n-------\n" | |||
| 6558 | "lu : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 6559 | "piv : rank-1 array('i') with bounds (MIN(m,n))\n" | |||
| 6560 | "info : int"; | |||
| 6561 | /* extern void F_FUNC(dgetrf,DGETRF)(F_INT*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 6562 | static PyObject *f2py_rout__flapack_dgetrf(const PyObject *capi_self, | |||
| 6563 | PyObject *capi_args, | |||
| 6564 | PyObject *capi_keywds, | |||
| 6565 | void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 6566 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 6567 | volatile int f2py_success = 1; | |||
| 6568 | /*decl*/ | |||
| 6569 | ||||
| 6570 | int m = 0; | |||
| 6571 | int n = 0; | |||
| 6572 | double *a = NULL((void*)0); | |||
| 6573 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 6574 | const int a_Rank = 2; | |||
| 6575 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 6576 | int capi_a_intent = 0; | |||
| 6577 | int capi_overwrite_a = 0; | |||
| 6578 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 6579 | int *piv = NULL((void*)0); | |||
| 6580 | npy_intp piv_Dims[1] = {-1}; | |||
| 6581 | const int piv_Rank = 1; | |||
| 6582 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 6583 | int capi_piv_intent = 0; | |||
| 6584 | int info = 0; | |||
| 6585 | static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)}; | |||
| 6586 | ||||
| 6587 | /*routdebugenter*/ | |||
| 6588 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6589 | f2py_start_clock(); | |||
| 6590 | #endif | |||
| 6591 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 6592 | "O|i:_flapack.dgetrf",\ | |||
| 6593 | capi_kwlist,&a_capi,&capi_overwrite_a)) | |||
| 6594 | return NULL((void*)0); | |||
| 6595 | /*frompyobj*/ | |||
| 6596 | /* Processing variable a */ | |||
| 6597 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 6598 | ; | |||
| 6599 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 6600 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 6601 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 6602 | if (!PyErr_Occurred()) | |||
| 6603 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgetrf to C/Fortran array" ); | |||
| 6604 | } else { | |||
| 6605 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 6606 | ||||
| 6607 | /* Processing variable info */ | |||
| 6608 | /* Processing variable m */ | |||
| 6609 | m = shape(a,0)a_Dims[0]; | |||
| 6610 | /* Processing variable n */ | |||
| 6611 | n = shape(a,1)a_Dims[1]; | |||
| 6612 | /* Processing variable piv */ | |||
| 6613 | piv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 6614 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 6615 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 6616 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 6617 | if (!PyErr_Occurred()) | |||
| 6618 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.dgetrf to C/Fortran array" ); | |||
| 6619 | } else { | |||
| 6620 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 6621 | ||||
| 6622 | /*end of frompyobj*/ | |||
| 6623 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6624 | f2py_start_call_clock(); | |||
| 6625 | #endif | |||
| 6626 | /*callfortranroutine*/ | |||
| 6627 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 6628 | {F_INTint i;(*f2py_func)(&m,&n,a,&m,piv,&info);for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--piv[i++]);} ; | |||
| 6629 | /*(*f2py_func)(&m,&n,a,piv,&info);*/ | |||
| 6630 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 6631 | if (PyErr_Occurred()) | |||
| 6632 | f2py_success = 0; | |||
| 6633 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6634 | f2py_stop_call_clock(); | |||
| 6635 | #endif | |||
| 6636 | /*end of callfortranroutine*/ | |||
| 6637 | if (f2py_success) { | |||
| 6638 | /*pyobjfrom*/ | |||
| 6639 | /*end of pyobjfrom*/ | |||
| 6640 | CFUNCSMESS("Building return value.\n"); | |||
| 6641 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_piv_tmp,info); | |||
| 6642 | /*closepyobjfrom*/ | |||
| 6643 | /*end of closepyobjfrom*/ | |||
| 6644 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 6645 | /*cleanupfrompyobj*/ | |||
| 6646 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 6647 | /* End of cleaning variable piv */ | |||
| 6648 | /* End of cleaning variable n */ | |||
| 6649 | /* End of cleaning variable m */ | |||
| 6650 | /* End of cleaning variable info */ | |||
| 6651 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 6652 | /* End of cleaning variable a */ | |||
| 6653 | /*end of cleanupfrompyobj*/ | |||
| 6654 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 6655 | /*routdebugfailure*/ | |||
| 6656 | } else { | |||
| 6657 | /*routdebugleave*/ | |||
| 6658 | } | |||
| 6659 | CFUNCSMESS("Freeing memory.\n"); | |||
| 6660 | /*freemem*/ | |||
| 6661 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6662 | f2py_stop_clock(); | |||
| 6663 | #endif | |||
| 6664 | return capi_buildvalue; | |||
| 6665 | } | |||
| 6666 | /******************************* end of dgetrf *******************************/ | |||
| 6667 | ||||
| 6668 | /*********************************** cgetrf ***********************************/ | |||
| 6669 | static char doc_f2py_rout__flapack_cgetrf[] = "\ | |||
| 6670 | lu,piv,info = cgetrf(a,[overwrite_a])\n\nWrapper for ``cgetrf``.\ | |||
| 6671 | \n\nParameters\n----------\n" | |||
| 6672 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 6673 | "\nOther Parameters\n----------------\n" | |||
| 6674 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 6675 | "\nReturns\n-------\n" | |||
| 6676 | "lu : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 6677 | "piv : rank-1 array('i') with bounds (MIN(m,n))\n" | |||
| 6678 | "info : int"; | |||
| 6679 | /* extern void F_FUNC(cgetrf,CGETRF)(F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 6680 | static PyObject *f2py_rout__flapack_cgetrf(const PyObject *capi_self, | |||
| 6681 | PyObject *capi_args, | |||
| 6682 | PyObject *capi_keywds, | |||
| 6683 | void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 6684 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 6685 | volatile int f2py_success = 1; | |||
| 6686 | /*decl*/ | |||
| 6687 | ||||
| 6688 | int m = 0; | |||
| 6689 | int n = 0; | |||
| 6690 | complex_float *a = NULL((void*)0); | |||
| 6691 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 6692 | const int a_Rank = 2; | |||
| 6693 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 6694 | int capi_a_intent = 0; | |||
| 6695 | int capi_overwrite_a = 0; | |||
| 6696 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 6697 | int *piv = NULL((void*)0); | |||
| 6698 | npy_intp piv_Dims[1] = {-1}; | |||
| 6699 | const int piv_Rank = 1; | |||
| 6700 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 6701 | int capi_piv_intent = 0; | |||
| 6702 | int info = 0; | |||
| 6703 | static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)}; | |||
| 6704 | ||||
| 6705 | /*routdebugenter*/ | |||
| 6706 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6707 | f2py_start_clock(); | |||
| 6708 | #endif | |||
| 6709 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 6710 | "O|i:_flapack.cgetrf",\ | |||
| 6711 | capi_kwlist,&a_capi,&capi_overwrite_a)) | |||
| 6712 | return NULL((void*)0); | |||
| 6713 | /*frompyobj*/ | |||
| 6714 | /* Processing variable a */ | |||
| 6715 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 6716 | ; | |||
| 6717 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 6718 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 6719 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 6720 | if (!PyErr_Occurred()) | |||
| 6721 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgetrf to C/Fortran array" ); | |||
| 6722 | } else { | |||
| 6723 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 6724 | ||||
| 6725 | /* Processing variable info */ | |||
| 6726 | /* Processing variable m */ | |||
| 6727 | m = shape(a,0)a_Dims[0]; | |||
| 6728 | /* Processing variable n */ | |||
| 6729 | n = shape(a,1)a_Dims[1]; | |||
| 6730 | /* Processing variable piv */ | |||
| 6731 | piv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 6732 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 6733 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 6734 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 6735 | if (!PyErr_Occurred()) | |||
| 6736 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.cgetrf to C/Fortran array" ); | |||
| 6737 | } else { | |||
| 6738 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 6739 | ||||
| 6740 | /*end of frompyobj*/ | |||
| 6741 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6742 | f2py_start_call_clock(); | |||
| 6743 | #endif | |||
| 6744 | /*callfortranroutine*/ | |||
| 6745 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 6746 | {F_INTint i;(*f2py_func)(&m,&n,a,&m,piv,&info);for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--piv[i++]);} ; | |||
| 6747 | /*(*f2py_func)(&m,&n,a,piv,&info);*/ | |||
| 6748 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 6749 | if (PyErr_Occurred()) | |||
| 6750 | f2py_success = 0; | |||
| 6751 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6752 | f2py_stop_call_clock(); | |||
| 6753 | #endif | |||
| 6754 | /*end of callfortranroutine*/ | |||
| 6755 | if (f2py_success) { | |||
| 6756 | /*pyobjfrom*/ | |||
| 6757 | /*end of pyobjfrom*/ | |||
| 6758 | CFUNCSMESS("Building return value.\n"); | |||
| 6759 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_piv_tmp,info); | |||
| 6760 | /*closepyobjfrom*/ | |||
| 6761 | /*end of closepyobjfrom*/ | |||
| 6762 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 6763 | /*cleanupfrompyobj*/ | |||
| 6764 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 6765 | /* End of cleaning variable piv */ | |||
| 6766 | /* End of cleaning variable n */ | |||
| 6767 | /* End of cleaning variable m */ | |||
| 6768 | /* End of cleaning variable info */ | |||
| 6769 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 6770 | /* End of cleaning variable a */ | |||
| 6771 | /*end of cleanupfrompyobj*/ | |||
| 6772 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 6773 | /*routdebugfailure*/ | |||
| 6774 | } else { | |||
| 6775 | /*routdebugleave*/ | |||
| 6776 | } | |||
| 6777 | CFUNCSMESS("Freeing memory.\n"); | |||
| 6778 | /*freemem*/ | |||
| 6779 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6780 | f2py_stop_clock(); | |||
| 6781 | #endif | |||
| 6782 | return capi_buildvalue; | |||
| 6783 | } | |||
| 6784 | /******************************* end of cgetrf *******************************/ | |||
| 6785 | ||||
| 6786 | /*********************************** zgetrf ***********************************/ | |||
| 6787 | static char doc_f2py_rout__flapack_zgetrf[] = "\ | |||
| 6788 | lu,piv,info = zgetrf(a,[overwrite_a])\n\nWrapper for ``zgetrf``.\ | |||
| 6789 | \n\nParameters\n----------\n" | |||
| 6790 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 6791 | "\nOther Parameters\n----------------\n" | |||
| 6792 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 6793 | "\nReturns\n-------\n" | |||
| 6794 | "lu : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 6795 | "piv : rank-1 array('i') with bounds (MIN(m,n))\n" | |||
| 6796 | "info : int"; | |||
| 6797 | /* extern void F_FUNC(zgetrf,ZGETRF)(F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 6798 | static PyObject *f2py_rout__flapack_zgetrf(const PyObject *capi_self, | |||
| 6799 | PyObject *capi_args, | |||
| 6800 | PyObject *capi_keywds, | |||
| 6801 | void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 6802 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 6803 | volatile int f2py_success = 1; | |||
| 6804 | /*decl*/ | |||
| 6805 | ||||
| 6806 | int m = 0; | |||
| 6807 | int n = 0; | |||
| 6808 | complex_double *a = NULL((void*)0); | |||
| 6809 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 6810 | const int a_Rank = 2; | |||
| 6811 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 6812 | int capi_a_intent = 0; | |||
| 6813 | int capi_overwrite_a = 0; | |||
| 6814 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 6815 | int *piv = NULL((void*)0); | |||
| 6816 | npy_intp piv_Dims[1] = {-1}; | |||
| 6817 | const int piv_Rank = 1; | |||
| 6818 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 6819 | int capi_piv_intent = 0; | |||
| 6820 | int info = 0; | |||
| 6821 | static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)}; | |||
| 6822 | ||||
| 6823 | /*routdebugenter*/ | |||
| 6824 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6825 | f2py_start_clock(); | |||
| 6826 | #endif | |||
| 6827 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 6828 | "O|i:_flapack.zgetrf",\ | |||
| 6829 | capi_kwlist,&a_capi,&capi_overwrite_a)) | |||
| 6830 | return NULL((void*)0); | |||
| 6831 | /*frompyobj*/ | |||
| 6832 | /* Processing variable a */ | |||
| 6833 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 6834 | ; | |||
| 6835 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 6836 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 6837 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 6838 | if (!PyErr_Occurred()) | |||
| 6839 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgetrf to C/Fortran array" ); | |||
| 6840 | } else { | |||
| 6841 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 6842 | ||||
| 6843 | /* Processing variable info */ | |||
| 6844 | /* Processing variable m */ | |||
| 6845 | m = shape(a,0)a_Dims[0]; | |||
| 6846 | /* Processing variable n */ | |||
| 6847 | n = shape(a,1)a_Dims[1]; | |||
| 6848 | /* Processing variable piv */ | |||
| 6849 | piv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 6850 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 6851 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 6852 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 6853 | if (!PyErr_Occurred()) | |||
| 6854 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.zgetrf to C/Fortran array" ); | |||
| 6855 | } else { | |||
| 6856 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 6857 | ||||
| 6858 | /*end of frompyobj*/ | |||
| 6859 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6860 | f2py_start_call_clock(); | |||
| 6861 | #endif | |||
| 6862 | /*callfortranroutine*/ | |||
| 6863 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 6864 | {F_INTint i;(*f2py_func)(&m,&n,a,&m,piv,&info);for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--piv[i++]);} ; | |||
| 6865 | /*(*f2py_func)(&m,&n,a,piv,&info);*/ | |||
| 6866 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 6867 | if (PyErr_Occurred()) | |||
| 6868 | f2py_success = 0; | |||
| 6869 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6870 | f2py_stop_call_clock(); | |||
| 6871 | #endif | |||
| 6872 | /*end of callfortranroutine*/ | |||
| 6873 | if (f2py_success) { | |||
| 6874 | /*pyobjfrom*/ | |||
| 6875 | /*end of pyobjfrom*/ | |||
| 6876 | CFUNCSMESS("Building return value.\n"); | |||
| 6877 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_piv_tmp,info); | |||
| 6878 | /*closepyobjfrom*/ | |||
| 6879 | /*end of closepyobjfrom*/ | |||
| 6880 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 6881 | /*cleanupfrompyobj*/ | |||
| 6882 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 6883 | /* End of cleaning variable piv */ | |||
| 6884 | /* End of cleaning variable n */ | |||
| 6885 | /* End of cleaning variable m */ | |||
| 6886 | /* End of cleaning variable info */ | |||
| 6887 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 6888 | /* End of cleaning variable a */ | |||
| 6889 | /*end of cleanupfrompyobj*/ | |||
| 6890 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 6891 | /*routdebugfailure*/ | |||
| 6892 | } else { | |||
| 6893 | /*routdebugleave*/ | |||
| 6894 | } | |||
| 6895 | CFUNCSMESS("Freeing memory.\n"); | |||
| 6896 | /*freemem*/ | |||
| 6897 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6898 | f2py_stop_clock(); | |||
| 6899 | #endif | |||
| 6900 | return capi_buildvalue; | |||
| 6901 | } | |||
| 6902 | /******************************* end of zgetrf *******************************/ | |||
| 6903 | ||||
| 6904 | /*********************************** sgetrs ***********************************/ | |||
| 6905 | static char doc_f2py_rout__flapack_sgetrs[] = "\ | |||
| 6906 | x,info = sgetrs(lu,piv,b,[trans,overwrite_b])\n\nWrapper for ``sgetrs``.\ | |||
| 6907 | \n\nParameters\n----------\n" | |||
| 6908 | "lu : input rank-2 array('f') with bounds (n,n)\n" | |||
| 6909 | "piv : input rank-1 array('i') with bounds (n)\n" | |||
| 6910 | "b : input rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 6911 | "\nOther Parameters\n----------------\n" | |||
| 6912 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 6913 | "trans : input int, optional\n Default: 0\n" | |||
| 6914 | "\nReturns\n-------\n" | |||
| 6915 | "x : rank-2 array('f') with bounds (n,nrhs) and b storage\n" | |||
| 6916 | "info : int"; | |||
| 6917 | /* extern void F_FUNC(sgetrs,SGETRS)(char*,F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 6918 | static PyObject *f2py_rout__flapack_sgetrs(const PyObject *capi_self, | |||
| 6919 | PyObject *capi_args, | |||
| 6920 | PyObject *capi_keywds, | |||
| 6921 | void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 6922 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 6923 | volatile int f2py_success = 1; | |||
| 6924 | /*decl*/ | |||
| 6925 | ||||
| 6926 | int n = 0; | |||
| 6927 | int nrhs = 0; | |||
| 6928 | float *lu = NULL((void*)0); | |||
| 6929 | npy_intp lu_Dims[2] = {-1, -1}; | |||
| 6930 | const int lu_Rank = 2; | |||
| 6931 | PyArrayObject *capi_lu_tmp = NULL((void*)0); | |||
| 6932 | int capi_lu_intent = 0; | |||
| 6933 | PyObject *lu_capi = Py_None(&_Py_NoneStruct); | |||
| 6934 | int *piv = NULL((void*)0); | |||
| 6935 | npy_intp piv_Dims[1] = {-1}; | |||
| 6936 | const int piv_Rank = 1; | |||
| 6937 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 6938 | int capi_piv_intent = 0; | |||
| 6939 | PyObject *piv_capi = Py_None(&_Py_NoneStruct); | |||
| 6940 | float *b = NULL((void*)0); | |||
| 6941 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 6942 | const int b_Rank = 2; | |||
| 6943 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 6944 | int capi_b_intent = 0; | |||
| 6945 | int capi_overwrite_b = 0; | |||
| 6946 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 6947 | int info = 0; | |||
| 6948 | int trans = 0; | |||
| 6949 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 6950 | static char *capi_kwlist[] = {"lu","piv","b","trans","overwrite_b",NULL((void*)0)}; | |||
| 6951 | ||||
| 6952 | /*routdebugenter*/ | |||
| 6953 | #ifdef F2PY_REPORT_ATEXIT | |||
| 6954 | f2py_start_clock(); | |||
| 6955 | #endif | |||
| 6956 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 6957 | "OOO|Oi:_flapack.sgetrs",\ | |||
| 6958 | capi_kwlist,&lu_capi,&piv_capi,&b_capi,&trans_capi,&capi_overwrite_b)) | |||
| 6959 | return NULL((void*)0); | |||
| 6960 | /*frompyobj*/ | |||
| 6961 | /* Processing variable trans */ | |||
| 6962 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 6963 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.sgetrs() 1st keyword (trans) can't be converted to int"); | |||
| 6964 | if (f2py_success) { | |||
| 6965 | CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","1st keyword trans","sgetrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[ 256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgetrs:trans=%d", "(""trans>=0 && trans <=2" ") failed for ""1st keyword trans", trans); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 6966 | /* Processing variable lu */ | |||
| 6967 | ; | |||
| 6968 | capi_lu_intent |= F2PY_INTENT_IN1; | |||
| 6969 | capi_lu_tmp = array_from_pyobj(NPY_FLOAT,lu_Dims,lu_Rank,capi_lu_intent,lu_capi); | |||
| 6970 | if (capi_lu_tmp == NULL((void*)0)) { | |||
| 6971 | if (!PyErr_Occurred()) | |||
| 6972 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.sgetrs to C/Fortran array" ); | |||
| 6973 | } else { | |||
| 6974 | lu = (float *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data)); | |||
| 6975 | ||||
| 6976 | CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu" ); } else { | |||
| 6977 | /* Processing variable info */ | |||
| 6978 | /* Processing variable n */ | |||
| 6979 | n = shape(lu,0)lu_Dims[0]; | |||
| 6980 | /* Processing variable piv */ | |||
| 6981 | piv_Dims[0]=n; | |||
| 6982 | capi_piv_intent |= F2PY_INTENT_IN1; | |||
| 6983 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi); | |||
| 6984 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 6985 | if (!PyErr_Occurred()) | |||
| 6986 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.sgetrs to C/Fortran array" ); | |||
| 6987 | } else { | |||
| 6988 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 6989 | ||||
| 6990 | /* Processing variable b */ | |||
| 6991 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 6992 | b_Dims[0]=n; | |||
| 6993 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 6994 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 6995 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 6996 | if (!PyErr_Occurred()) | |||
| 6997 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.sgetrs to C/Fortran array" ); | |||
| 6998 | } else { | |||
| 6999 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 7000 | ||||
| 7001 | CHECKARRAY(shape(lu,0)==shape(b,0),"shape(lu,0)==shape(b,0)","3rd argument b")if (!(lu_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(b,0)"") failed for ""3rd argument b") ; } else { | |||
| 7002 | /* Processing variable nrhs */ | |||
| 7003 | nrhs = shape(b,1)b_Dims[1]; | |||
| 7004 | /*end of frompyobj*/ | |||
| 7005 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7006 | f2py_start_call_clock(); | |||
| 7007 | #endif | |||
| 7008 | /*callfortranroutine*/ | |||
| 7009 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 7010 | {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)((trans?(trans==2?"C":"T"):"N"),&n,&nrhs,lu,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 7011 | /*(*f2py_func)(&n,&nrhs,lu,piv,b,&info,&trans);*/ | |||
| 7012 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 7013 | if (PyErr_Occurred()) | |||
| 7014 | f2py_success = 0; | |||
| 7015 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7016 | f2py_stop_call_clock(); | |||
| 7017 | #endif | |||
| 7018 | /*end of callfortranroutine*/ | |||
| 7019 | if (f2py_success) { | |||
| 7020 | /*pyobjfrom*/ | |||
| 7021 | /*end of pyobjfrom*/ | |||
| 7022 | CFUNCSMESS("Building return value.\n"); | |||
| 7023 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 7024 | /*closepyobjfrom*/ | |||
| 7025 | /*end of closepyobjfrom*/ | |||
| 7026 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 7027 | /*cleanupfrompyobj*/ | |||
| 7028 | /* End of cleaning variable nrhs */ | |||
| 7029 | } /*CHECKARRAY(shape(lu,0)==shape(b,0))*/ | |||
| 7030 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 7031 | /* End of cleaning variable b */ | |||
| 7032 | if((PyObject *)capi_piv_tmp!=piv_capi) { | |||
| 7033 | Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); } | |||
| 7034 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 7035 | /* End of cleaning variable piv */ | |||
| 7036 | /* End of cleaning variable n */ | |||
| 7037 | /* End of cleaning variable info */ | |||
| 7038 | } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/ | |||
| 7039 | if((PyObject *)capi_lu_tmp!=lu_capi) { | |||
| 7040 | Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); } | |||
| 7041 | } /*if (capi_lu_tmp == NULL) ... else of lu*/ | |||
| 7042 | /* End of cleaning variable lu */ | |||
| 7043 | } /*CHECKSCALAR(trans>=0 && trans <=2)*/ | |||
| 7044 | } /*if (f2py_success) of trans*/ | |||
| 7045 | /* End of cleaning variable trans */ | |||
| 7046 | /*end of cleanupfrompyobj*/ | |||
| 7047 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 7048 | /*routdebugfailure*/ | |||
| 7049 | } else { | |||
| 7050 | /*routdebugleave*/ | |||
| 7051 | } | |||
| 7052 | CFUNCSMESS("Freeing memory.\n"); | |||
| 7053 | /*freemem*/ | |||
| 7054 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7055 | f2py_stop_clock(); | |||
| 7056 | #endif | |||
| 7057 | return capi_buildvalue; | |||
| 7058 | } | |||
| 7059 | /******************************* end of sgetrs *******************************/ | |||
| 7060 | ||||
| 7061 | /*********************************** dgetrs ***********************************/ | |||
| 7062 | static char doc_f2py_rout__flapack_dgetrs[] = "\ | |||
| 7063 | x,info = dgetrs(lu,piv,b,[trans,overwrite_b])\n\nWrapper for ``dgetrs``.\ | |||
| 7064 | \n\nParameters\n----------\n" | |||
| 7065 | "lu : input rank-2 array('d') with bounds (n,n)\n" | |||
| 7066 | "piv : input rank-1 array('i') with bounds (n)\n" | |||
| 7067 | "b : input rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 7068 | "\nOther Parameters\n----------------\n" | |||
| 7069 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 7070 | "trans : input int, optional\n Default: 0\n" | |||
| 7071 | "\nReturns\n-------\n" | |||
| 7072 | "x : rank-2 array('d') with bounds (n,nrhs) and b storage\n" | |||
| 7073 | "info : int"; | |||
| 7074 | /* extern void F_FUNC(dgetrs,DGETRS)(char*,F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 7075 | static PyObject *f2py_rout__flapack_dgetrs(const PyObject *capi_self, | |||
| 7076 | PyObject *capi_args, | |||
| 7077 | PyObject *capi_keywds, | |||
| 7078 | void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 7079 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 7080 | volatile int f2py_success = 1; | |||
| 7081 | /*decl*/ | |||
| 7082 | ||||
| 7083 | int n = 0; | |||
| 7084 | int nrhs = 0; | |||
| 7085 | double *lu = NULL((void*)0); | |||
| 7086 | npy_intp lu_Dims[2] = {-1, -1}; | |||
| 7087 | const int lu_Rank = 2; | |||
| 7088 | PyArrayObject *capi_lu_tmp = NULL((void*)0); | |||
| 7089 | int capi_lu_intent = 0; | |||
| 7090 | PyObject *lu_capi = Py_None(&_Py_NoneStruct); | |||
| 7091 | int *piv = NULL((void*)0); | |||
| 7092 | npy_intp piv_Dims[1] = {-1}; | |||
| 7093 | const int piv_Rank = 1; | |||
| 7094 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 7095 | int capi_piv_intent = 0; | |||
| 7096 | PyObject *piv_capi = Py_None(&_Py_NoneStruct); | |||
| 7097 | double *b = NULL((void*)0); | |||
| 7098 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 7099 | const int b_Rank = 2; | |||
| 7100 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 7101 | int capi_b_intent = 0; | |||
| 7102 | int capi_overwrite_b = 0; | |||
| 7103 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 7104 | int info = 0; | |||
| 7105 | int trans = 0; | |||
| 7106 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 7107 | static char *capi_kwlist[] = {"lu","piv","b","trans","overwrite_b",NULL((void*)0)}; | |||
| 7108 | ||||
| 7109 | /*routdebugenter*/ | |||
| 7110 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7111 | f2py_start_clock(); | |||
| 7112 | #endif | |||
| 7113 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 7114 | "OOO|Oi:_flapack.dgetrs",\ | |||
| 7115 | capi_kwlist,&lu_capi,&piv_capi,&b_capi,&trans_capi,&capi_overwrite_b)) | |||
| 7116 | return NULL((void*)0); | |||
| 7117 | /*frompyobj*/ | |||
| 7118 | /* Processing variable trans */ | |||
| 7119 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 7120 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.dgetrs() 1st keyword (trans) can't be converted to int"); | |||
| 7121 | if (f2py_success) { | |||
| 7122 | CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","1st keyword trans","dgetrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[ 256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgetrs:trans=%d", "(""trans>=0 && trans <=2" ") failed for ""1st keyword trans", trans); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 7123 | /* Processing variable lu */ | |||
| 7124 | ; | |||
| 7125 | capi_lu_intent |= F2PY_INTENT_IN1; | |||
| 7126 | capi_lu_tmp = array_from_pyobj(NPY_DOUBLE,lu_Dims,lu_Rank,capi_lu_intent,lu_capi); | |||
| 7127 | if (capi_lu_tmp == NULL((void*)0)) { | |||
| 7128 | if (!PyErr_Occurred()) | |||
| 7129 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.dgetrs to C/Fortran array" ); | |||
| 7130 | } else { | |||
| 7131 | lu = (double *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data)); | |||
| 7132 | ||||
| 7133 | CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu" ); } else { | |||
| 7134 | /* Processing variable info */ | |||
| 7135 | /* Processing variable n */ | |||
| 7136 | n = shape(lu,0)lu_Dims[0]; | |||
| 7137 | /* Processing variable piv */ | |||
| 7138 | piv_Dims[0]=n; | |||
| 7139 | capi_piv_intent |= F2PY_INTENT_IN1; | |||
| 7140 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi); | |||
| 7141 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 7142 | if (!PyErr_Occurred()) | |||
| 7143 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.dgetrs to C/Fortran array" ); | |||
| 7144 | } else { | |||
| 7145 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 7146 | ||||
| 7147 | /* Processing variable b */ | |||
| 7148 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 7149 | b_Dims[0]=n; | |||
| 7150 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 7151 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 7152 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 7153 | if (!PyErr_Occurred()) | |||
| 7154 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dgetrs to C/Fortran array" ); | |||
| 7155 | } else { | |||
| 7156 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 7157 | ||||
| 7158 | CHECKARRAY(shape(lu,0)==shape(b,0),"shape(lu,0)==shape(b,0)","3rd argument b")if (!(lu_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(b,0)"") failed for ""3rd argument b") ; } else { | |||
| 7159 | /* Processing variable nrhs */ | |||
| 7160 | nrhs = shape(b,1)b_Dims[1]; | |||
| 7161 | /*end of frompyobj*/ | |||
| 7162 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7163 | f2py_start_call_clock(); | |||
| 7164 | #endif | |||
| 7165 | /*callfortranroutine*/ | |||
| 7166 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 7167 | {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)((trans?(trans==2?"C":"T"):"N"),&n,&nrhs,lu,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 7168 | /*(*f2py_func)(&n,&nrhs,lu,piv,b,&info,&trans);*/ | |||
| 7169 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 7170 | if (PyErr_Occurred()) | |||
| 7171 | f2py_success = 0; | |||
| 7172 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7173 | f2py_stop_call_clock(); | |||
| 7174 | #endif | |||
| 7175 | /*end of callfortranroutine*/ | |||
| 7176 | if (f2py_success) { | |||
| 7177 | /*pyobjfrom*/ | |||
| 7178 | /*end of pyobjfrom*/ | |||
| 7179 | CFUNCSMESS("Building return value.\n"); | |||
| 7180 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 7181 | /*closepyobjfrom*/ | |||
| 7182 | /*end of closepyobjfrom*/ | |||
| 7183 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 7184 | /*cleanupfrompyobj*/ | |||
| 7185 | /* End of cleaning variable nrhs */ | |||
| 7186 | } /*CHECKARRAY(shape(lu,0)==shape(b,0))*/ | |||
| 7187 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 7188 | /* End of cleaning variable b */ | |||
| 7189 | if((PyObject *)capi_piv_tmp!=piv_capi) { | |||
| 7190 | Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); } | |||
| 7191 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 7192 | /* End of cleaning variable piv */ | |||
| 7193 | /* End of cleaning variable n */ | |||
| 7194 | /* End of cleaning variable info */ | |||
| 7195 | } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/ | |||
| 7196 | if((PyObject *)capi_lu_tmp!=lu_capi) { | |||
| 7197 | Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); } | |||
| 7198 | } /*if (capi_lu_tmp == NULL) ... else of lu*/ | |||
| 7199 | /* End of cleaning variable lu */ | |||
| 7200 | } /*CHECKSCALAR(trans>=0 && trans <=2)*/ | |||
| 7201 | } /*if (f2py_success) of trans*/ | |||
| 7202 | /* End of cleaning variable trans */ | |||
| 7203 | /*end of cleanupfrompyobj*/ | |||
| 7204 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 7205 | /*routdebugfailure*/ | |||
| 7206 | } else { | |||
| 7207 | /*routdebugleave*/ | |||
| 7208 | } | |||
| 7209 | CFUNCSMESS("Freeing memory.\n"); | |||
| 7210 | /*freemem*/ | |||
| 7211 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7212 | f2py_stop_clock(); | |||
| 7213 | #endif | |||
| 7214 | return capi_buildvalue; | |||
| 7215 | } | |||
| 7216 | /******************************* end of dgetrs *******************************/ | |||
| 7217 | ||||
| 7218 | /*********************************** cgetrs ***********************************/ | |||
| 7219 | static char doc_f2py_rout__flapack_cgetrs[] = "\ | |||
| 7220 | x,info = cgetrs(lu,piv,b,[trans,overwrite_b])\n\nWrapper for ``cgetrs``.\ | |||
| 7221 | \n\nParameters\n----------\n" | |||
| 7222 | "lu : input rank-2 array('F') with bounds (n,n)\n" | |||
| 7223 | "piv : input rank-1 array('i') with bounds (n)\n" | |||
| 7224 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 7225 | "\nOther Parameters\n----------------\n" | |||
| 7226 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 7227 | "trans : input int, optional\n Default: 0\n" | |||
| 7228 | "\nReturns\n-------\n" | |||
| 7229 | "x : rank-2 array('F') with bounds (n,nrhs) and b storage\n" | |||
| 7230 | "info : int"; | |||
| 7231 | /* extern void F_FUNC(cgetrs,CGETRS)(char*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 7232 | static PyObject *f2py_rout__flapack_cgetrs(const PyObject *capi_self, | |||
| 7233 | PyObject *capi_args, | |||
| 7234 | PyObject *capi_keywds, | |||
| 7235 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 7236 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 7237 | volatile int f2py_success = 1; | |||
| 7238 | /*decl*/ | |||
| 7239 | ||||
| 7240 | int n = 0; | |||
| 7241 | int nrhs = 0; | |||
| 7242 | complex_float *lu = NULL((void*)0); | |||
| 7243 | npy_intp lu_Dims[2] = {-1, -1}; | |||
| 7244 | const int lu_Rank = 2; | |||
| 7245 | PyArrayObject *capi_lu_tmp = NULL((void*)0); | |||
| 7246 | int capi_lu_intent = 0; | |||
| 7247 | PyObject *lu_capi = Py_None(&_Py_NoneStruct); | |||
| 7248 | int *piv = NULL((void*)0); | |||
| 7249 | npy_intp piv_Dims[1] = {-1}; | |||
| 7250 | const int piv_Rank = 1; | |||
| 7251 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 7252 | int capi_piv_intent = 0; | |||
| 7253 | PyObject *piv_capi = Py_None(&_Py_NoneStruct); | |||
| 7254 | complex_float *b = NULL((void*)0); | |||
| 7255 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 7256 | const int b_Rank = 2; | |||
| 7257 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 7258 | int capi_b_intent = 0; | |||
| 7259 | int capi_overwrite_b = 0; | |||
| 7260 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 7261 | int info = 0; | |||
| 7262 | int trans = 0; | |||
| 7263 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 7264 | static char *capi_kwlist[] = {"lu","piv","b","trans","overwrite_b",NULL((void*)0)}; | |||
| 7265 | ||||
| 7266 | /*routdebugenter*/ | |||
| 7267 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7268 | f2py_start_clock(); | |||
| 7269 | #endif | |||
| 7270 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 7271 | "OOO|Oi:_flapack.cgetrs",\ | |||
| 7272 | capi_kwlist,&lu_capi,&piv_capi,&b_capi,&trans_capi,&capi_overwrite_b)) | |||
| 7273 | return NULL((void*)0); | |||
| 7274 | /*frompyobj*/ | |||
| 7275 | /* Processing variable trans */ | |||
| 7276 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 7277 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.cgetrs() 1st keyword (trans) can't be converted to int"); | |||
| 7278 | if (f2py_success) { | |||
| 7279 | CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","1st keyword trans","cgetrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[ 256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgetrs:trans=%d", "(""trans>=0 && trans <=2" ") failed for ""1st keyword trans", trans); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 7280 | /* Processing variable lu */ | |||
| 7281 | ; | |||
| 7282 | capi_lu_intent |= F2PY_INTENT_IN1; | |||
| 7283 | capi_lu_tmp = array_from_pyobj(NPY_CFLOAT,lu_Dims,lu_Rank,capi_lu_intent,lu_capi); | |||
| 7284 | if (capi_lu_tmp == NULL((void*)0)) { | |||
| 7285 | if (!PyErr_Occurred()) | |||
| 7286 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.cgetrs to C/Fortran array" ); | |||
| 7287 | } else { | |||
| 7288 | lu = (complex_float *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data)); | |||
| 7289 | ||||
| 7290 | CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu" ); } else { | |||
| 7291 | /* Processing variable info */ | |||
| 7292 | /* Processing variable n */ | |||
| 7293 | n = shape(lu,0)lu_Dims[0]; | |||
| 7294 | /* Processing variable piv */ | |||
| 7295 | piv_Dims[0]=n; | |||
| 7296 | capi_piv_intent |= F2PY_INTENT_IN1; | |||
| 7297 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi); | |||
| 7298 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 7299 | if (!PyErr_Occurred()) | |||
| 7300 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.cgetrs to C/Fortran array" ); | |||
| 7301 | } else { | |||
| 7302 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 7303 | ||||
| 7304 | /* Processing variable b */ | |||
| 7305 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 7306 | b_Dims[0]=n; | |||
| 7307 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 7308 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 7309 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 7310 | if (!PyErr_Occurred()) | |||
| 7311 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cgetrs to C/Fortran array" ); | |||
| 7312 | } else { | |||
| 7313 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 7314 | ||||
| 7315 | CHECKARRAY(shape(lu,0)==shape(b,0),"shape(lu,0)==shape(b,0)","3rd argument b")if (!(lu_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(b,0)"") failed for ""3rd argument b") ; } else { | |||
| 7316 | /* Processing variable nrhs */ | |||
| 7317 | nrhs = shape(b,1)b_Dims[1]; | |||
| 7318 | /*end of frompyobj*/ | |||
| 7319 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7320 | f2py_start_call_clock(); | |||
| 7321 | #endif | |||
| 7322 | /*callfortranroutine*/ | |||
| 7323 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 7324 | {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)((trans?(trans==2?"C":"T"):"N"),&n,&nrhs,lu,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 7325 | /*(*f2py_func)(&n,&nrhs,lu,piv,b,&info,&trans);*/ | |||
| 7326 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 7327 | if (PyErr_Occurred()) | |||
| 7328 | f2py_success = 0; | |||
| 7329 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7330 | f2py_stop_call_clock(); | |||
| 7331 | #endif | |||
| 7332 | /*end of callfortranroutine*/ | |||
| 7333 | if (f2py_success) { | |||
| 7334 | /*pyobjfrom*/ | |||
| 7335 | /*end of pyobjfrom*/ | |||
| 7336 | CFUNCSMESS("Building return value.\n"); | |||
| 7337 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 7338 | /*closepyobjfrom*/ | |||
| 7339 | /*end of closepyobjfrom*/ | |||
| 7340 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 7341 | /*cleanupfrompyobj*/ | |||
| 7342 | /* End of cleaning variable nrhs */ | |||
| 7343 | } /*CHECKARRAY(shape(lu,0)==shape(b,0))*/ | |||
| 7344 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 7345 | /* End of cleaning variable b */ | |||
| 7346 | if((PyObject *)capi_piv_tmp!=piv_capi) { | |||
| 7347 | Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); } | |||
| 7348 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 7349 | /* End of cleaning variable piv */ | |||
| 7350 | /* End of cleaning variable n */ | |||
| 7351 | /* End of cleaning variable info */ | |||
| 7352 | } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/ | |||
| 7353 | if((PyObject *)capi_lu_tmp!=lu_capi) { | |||
| 7354 | Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); } | |||
| 7355 | } /*if (capi_lu_tmp == NULL) ... else of lu*/ | |||
| 7356 | /* End of cleaning variable lu */ | |||
| 7357 | } /*CHECKSCALAR(trans>=0 && trans <=2)*/ | |||
| 7358 | } /*if (f2py_success) of trans*/ | |||
| 7359 | /* End of cleaning variable trans */ | |||
| 7360 | /*end of cleanupfrompyobj*/ | |||
| 7361 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 7362 | /*routdebugfailure*/ | |||
| 7363 | } else { | |||
| 7364 | /*routdebugleave*/ | |||
| 7365 | } | |||
| 7366 | CFUNCSMESS("Freeing memory.\n"); | |||
| 7367 | /*freemem*/ | |||
| 7368 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7369 | f2py_stop_clock(); | |||
| 7370 | #endif | |||
| 7371 | return capi_buildvalue; | |||
| 7372 | } | |||
| 7373 | /******************************* end of cgetrs *******************************/ | |||
| 7374 | ||||
| 7375 | /*********************************** zgetrs ***********************************/ | |||
| 7376 | static char doc_f2py_rout__flapack_zgetrs[] = "\ | |||
| 7377 | x,info = zgetrs(lu,piv,b,[trans,overwrite_b])\n\nWrapper for ``zgetrs``.\ | |||
| 7378 | \n\nParameters\n----------\n" | |||
| 7379 | "lu : input rank-2 array('D') with bounds (n,n)\n" | |||
| 7380 | "piv : input rank-1 array('i') with bounds (n)\n" | |||
| 7381 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 7382 | "\nOther Parameters\n----------------\n" | |||
| 7383 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 7384 | "trans : input int, optional\n Default: 0\n" | |||
| 7385 | "\nReturns\n-------\n" | |||
| 7386 | "x : rank-2 array('D') with bounds (n,nrhs) and b storage\n" | |||
| 7387 | "info : int"; | |||
| 7388 | /* extern void F_FUNC(zgetrs,ZGETRS)(char*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 7389 | static PyObject *f2py_rout__flapack_zgetrs(const PyObject *capi_self, | |||
| 7390 | PyObject *capi_args, | |||
| 7391 | PyObject *capi_keywds, | |||
| 7392 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 7393 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 7394 | volatile int f2py_success = 1; | |||
| 7395 | /*decl*/ | |||
| 7396 | ||||
| 7397 | int n = 0; | |||
| 7398 | int nrhs = 0; | |||
| 7399 | complex_double *lu = NULL((void*)0); | |||
| 7400 | npy_intp lu_Dims[2] = {-1, -1}; | |||
| 7401 | const int lu_Rank = 2; | |||
| 7402 | PyArrayObject *capi_lu_tmp = NULL((void*)0); | |||
| 7403 | int capi_lu_intent = 0; | |||
| 7404 | PyObject *lu_capi = Py_None(&_Py_NoneStruct); | |||
| 7405 | int *piv = NULL((void*)0); | |||
| 7406 | npy_intp piv_Dims[1] = {-1}; | |||
| 7407 | const int piv_Rank = 1; | |||
| 7408 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 7409 | int capi_piv_intent = 0; | |||
| 7410 | PyObject *piv_capi = Py_None(&_Py_NoneStruct); | |||
| 7411 | complex_double *b = NULL((void*)0); | |||
| 7412 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 7413 | const int b_Rank = 2; | |||
| 7414 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 7415 | int capi_b_intent = 0; | |||
| 7416 | int capi_overwrite_b = 0; | |||
| 7417 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 7418 | int info = 0; | |||
| 7419 | int trans = 0; | |||
| 7420 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 7421 | static char *capi_kwlist[] = {"lu","piv","b","trans","overwrite_b",NULL((void*)0)}; | |||
| 7422 | ||||
| 7423 | /*routdebugenter*/ | |||
| 7424 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7425 | f2py_start_clock(); | |||
| 7426 | #endif | |||
| 7427 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 7428 | "OOO|Oi:_flapack.zgetrs",\ | |||
| 7429 | capi_kwlist,&lu_capi,&piv_capi,&b_capi,&trans_capi,&capi_overwrite_b)) | |||
| 7430 | return NULL((void*)0); | |||
| 7431 | /*frompyobj*/ | |||
| 7432 | /* Processing variable trans */ | |||
| 7433 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 7434 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.zgetrs() 1st keyword (trans) can't be converted to int"); | |||
| 7435 | if (f2py_success) { | |||
| 7436 | CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","1st keyword trans","zgetrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[ 256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgetrs:trans=%d", "(""trans>=0 && trans <=2" ") failed for ""1st keyword trans", trans); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 7437 | /* Processing variable lu */ | |||
| 7438 | ; | |||
| 7439 | capi_lu_intent |= F2PY_INTENT_IN1; | |||
| 7440 | capi_lu_tmp = array_from_pyobj(NPY_CDOUBLE,lu_Dims,lu_Rank,capi_lu_intent,lu_capi); | |||
| 7441 | if (capi_lu_tmp == NULL((void*)0)) { | |||
| 7442 | if (!PyErr_Occurred()) | |||
| 7443 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.zgetrs to C/Fortran array" ); | |||
| 7444 | } else { | |||
| 7445 | lu = (complex_double *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data)); | |||
| 7446 | ||||
| 7447 | CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu" ); } else { | |||
| 7448 | /* Processing variable info */ | |||
| 7449 | /* Processing variable n */ | |||
| 7450 | n = shape(lu,0)lu_Dims[0]; | |||
| 7451 | /* Processing variable piv */ | |||
| 7452 | piv_Dims[0]=n; | |||
| 7453 | capi_piv_intent |= F2PY_INTENT_IN1; | |||
| 7454 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi); | |||
| 7455 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 7456 | if (!PyErr_Occurred()) | |||
| 7457 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.zgetrs to C/Fortran array" ); | |||
| 7458 | } else { | |||
| 7459 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 7460 | ||||
| 7461 | /* Processing variable b */ | |||
| 7462 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 7463 | b_Dims[0]=n; | |||
| 7464 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 7465 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 7466 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 7467 | if (!PyErr_Occurred()) | |||
| 7468 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zgetrs to C/Fortran array" ); | |||
| 7469 | } else { | |||
| 7470 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 7471 | ||||
| 7472 | CHECKARRAY(shape(lu,0)==shape(b,0),"shape(lu,0)==shape(b,0)","3rd argument b")if (!(lu_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(b,0)"") failed for ""3rd argument b") ; } else { | |||
| 7473 | /* Processing variable nrhs */ | |||
| 7474 | nrhs = shape(b,1)b_Dims[1]; | |||
| 7475 | /*end of frompyobj*/ | |||
| 7476 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7477 | f2py_start_call_clock(); | |||
| 7478 | #endif | |||
| 7479 | /*callfortranroutine*/ | |||
| 7480 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 7481 | {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)((trans?(trans==2?"C":"T"):"N"),&n,&nrhs,lu,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 7482 | /*(*f2py_func)(&n,&nrhs,lu,piv,b,&info,&trans);*/ | |||
| 7483 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 7484 | if (PyErr_Occurred()) | |||
| 7485 | f2py_success = 0; | |||
| 7486 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7487 | f2py_stop_call_clock(); | |||
| 7488 | #endif | |||
| 7489 | /*end of callfortranroutine*/ | |||
| 7490 | if (f2py_success) { | |||
| 7491 | /*pyobjfrom*/ | |||
| 7492 | /*end of pyobjfrom*/ | |||
| 7493 | CFUNCSMESS("Building return value.\n"); | |||
| 7494 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 7495 | /*closepyobjfrom*/ | |||
| 7496 | /*end of closepyobjfrom*/ | |||
| 7497 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 7498 | /*cleanupfrompyobj*/ | |||
| 7499 | /* End of cleaning variable nrhs */ | |||
| 7500 | } /*CHECKARRAY(shape(lu,0)==shape(b,0))*/ | |||
| 7501 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 7502 | /* End of cleaning variable b */ | |||
| 7503 | if((PyObject *)capi_piv_tmp!=piv_capi) { | |||
| 7504 | Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); } | |||
| 7505 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 7506 | /* End of cleaning variable piv */ | |||
| 7507 | /* End of cleaning variable n */ | |||
| 7508 | /* End of cleaning variable info */ | |||
| 7509 | } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/ | |||
| 7510 | if((PyObject *)capi_lu_tmp!=lu_capi) { | |||
| 7511 | Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); } | |||
| 7512 | } /*if (capi_lu_tmp == NULL) ... else of lu*/ | |||
| 7513 | /* End of cleaning variable lu */ | |||
| 7514 | } /*CHECKSCALAR(trans>=0 && trans <=2)*/ | |||
| 7515 | } /*if (f2py_success) of trans*/ | |||
| 7516 | /* End of cleaning variable trans */ | |||
| 7517 | /*end of cleanupfrompyobj*/ | |||
| 7518 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 7519 | /*routdebugfailure*/ | |||
| 7520 | } else { | |||
| 7521 | /*routdebugleave*/ | |||
| 7522 | } | |||
| 7523 | CFUNCSMESS("Freeing memory.\n"); | |||
| 7524 | /*freemem*/ | |||
| 7525 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7526 | f2py_stop_clock(); | |||
| 7527 | #endif | |||
| 7528 | return capi_buildvalue; | |||
| 7529 | } | |||
| 7530 | /******************************* end of zgetrs *******************************/ | |||
| 7531 | ||||
| 7532 | /*********************************** sgetc2 ***********************************/ | |||
| 7533 | static char doc_f2py_rout__flapack_sgetc2[] = "\ | |||
| 7534 | lu,ipiv,jpiv,info = sgetc2(a,[overwrite_a])\n\nWrapper for ``sgetc2``.\ | |||
| 7535 | \n\nParameters\n----------\n" | |||
| 7536 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 7537 | "\nOther Parameters\n----------------\n" | |||
| 7538 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 7539 | "\nReturns\n-------\n" | |||
| 7540 | "lu : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 7541 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 7542 | "jpiv : rank-1 array('i') with bounds (n)\n" | |||
| 7543 | "info : int"; | |||
| 7544 | /* extern void F_FUNC(sgetc2,SGETC2)(F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 7545 | static PyObject *f2py_rout__flapack_sgetc2(const PyObject *capi_self, | |||
| 7546 | PyObject *capi_args, | |||
| 7547 | PyObject *capi_keywds, | |||
| 7548 | void (*f2py_func)(F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 7549 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 7550 | volatile int f2py_success = 1; | |||
| 7551 | /*decl*/ | |||
| 7552 | ||||
| 7553 | int n = 0; | |||
| 7554 | float *a = NULL((void*)0); | |||
| 7555 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 7556 | const int a_Rank = 2; | |||
| 7557 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 7558 | int capi_a_intent = 0; | |||
| 7559 | int capi_overwrite_a = 0; | |||
| 7560 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 7561 | int lda = 0; | |||
| 7562 | int *ipiv = NULL((void*)0); | |||
| 7563 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 7564 | const int ipiv_Rank = 1; | |||
| 7565 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 7566 | int capi_ipiv_intent = 0; | |||
| 7567 | int *jpiv = NULL((void*)0); | |||
| 7568 | npy_intp jpiv_Dims[1] = {-1}; | |||
| 7569 | const int jpiv_Rank = 1; | |||
| 7570 | PyArrayObject *capi_jpiv_tmp = NULL((void*)0); | |||
| 7571 | int capi_jpiv_intent = 0; | |||
| 7572 | int info = 0; | |||
| 7573 | static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)}; | |||
| 7574 | ||||
| 7575 | /*routdebugenter*/ | |||
| 7576 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7577 | f2py_start_clock(); | |||
| 7578 | #endif | |||
| 7579 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 7580 | "O|i:_flapack.sgetc2",\ | |||
| 7581 | capi_kwlist,&a_capi,&capi_overwrite_a)) | |||
| 7582 | return NULL((void*)0); | |||
| 7583 | /*frompyobj*/ | |||
| 7584 | /* Processing variable a */ | |||
| 7585 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 7586 | ; | |||
| 7587 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 7588 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 7589 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 7590 | if (!PyErr_Occurred()) | |||
| 7591 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgetc2 to C/Fortran array" ); | |||
| 7592 | } else { | |||
| 7593 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 7594 | ||||
| 7595 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 7596 | /* Processing variable info */ | |||
| 7597 | /* Processing variable n */ | |||
| 7598 | n = shape(a,0)a_Dims[0]; | |||
| 7599 | /* Processing variable lda */ | |||
| 7600 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 7601 | /* Processing variable ipiv */ | |||
| 7602 | ipiv_Dims[0]=n; | |||
| 7603 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 7604 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 7605 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 7606 | if (!PyErr_Occurred()) | |||
| 7607 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.sgetc2 to C/Fortran array" ); | |||
| 7608 | } else { | |||
| 7609 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 7610 | ||||
| 7611 | /* Processing variable jpiv */ | |||
| 7612 | jpiv_Dims[0]=n; | |||
| 7613 | capi_jpiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 7614 | capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 7615 | if (capi_jpiv_tmp == NULL((void*)0)) { | |||
| 7616 | if (!PyErr_Occurred()) | |||
| 7617 | PyErr_SetString(_flapack_error,"failed in converting hidden `jpiv' of _flapack.sgetc2 to C/Fortran array" ); | |||
| 7618 | } else { | |||
| 7619 | jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data)); | |||
| 7620 | ||||
| 7621 | /*end of frompyobj*/ | |||
| 7622 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7623 | f2py_start_call_clock(); | |||
| 7624 | #endif | |||
| 7625 | /*callfortranroutine*/ | |||
| 7626 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 7627 | {F_INTint i;(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ; | |||
| 7628 | /*(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);*/ | |||
| 7629 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 7630 | if (PyErr_Occurred()) | |||
| 7631 | f2py_success = 0; | |||
| 7632 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7633 | f2py_stop_call_clock(); | |||
| 7634 | #endif | |||
| 7635 | /*end of callfortranroutine*/ | |||
| 7636 | if (f2py_success) { | |||
| 7637 | /*pyobjfrom*/ | |||
| 7638 | /*end of pyobjfrom*/ | |||
| 7639 | CFUNCSMESS("Building return value.\n"); | |||
| 7640 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_jpiv_tmp,info); | |||
| 7641 | /*closepyobjfrom*/ | |||
| 7642 | /*end of closepyobjfrom*/ | |||
| 7643 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 7644 | /*cleanupfrompyobj*/ | |||
| 7645 | } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/ | |||
| 7646 | /* End of cleaning variable jpiv */ | |||
| 7647 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 7648 | /* End of cleaning variable ipiv */ | |||
| 7649 | /* End of cleaning variable lda */ | |||
| 7650 | /* End of cleaning variable n */ | |||
| 7651 | /* End of cleaning variable info */ | |||
| 7652 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 7653 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 7654 | /* End of cleaning variable a */ | |||
| 7655 | /*end of cleanupfrompyobj*/ | |||
| 7656 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 7657 | /*routdebugfailure*/ | |||
| 7658 | } else { | |||
| 7659 | /*routdebugleave*/ | |||
| 7660 | } | |||
| 7661 | CFUNCSMESS("Freeing memory.\n"); | |||
| 7662 | /*freemem*/ | |||
| 7663 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7664 | f2py_stop_clock(); | |||
| 7665 | #endif | |||
| 7666 | return capi_buildvalue; | |||
| 7667 | } | |||
| 7668 | /******************************* end of sgetc2 *******************************/ | |||
| 7669 | ||||
| 7670 | /*********************************** dgetc2 ***********************************/ | |||
| 7671 | static char doc_f2py_rout__flapack_dgetc2[] = "\ | |||
| 7672 | lu,ipiv,jpiv,info = dgetc2(a,[overwrite_a])\n\nWrapper for ``dgetc2``.\ | |||
| 7673 | \n\nParameters\n----------\n" | |||
| 7674 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 7675 | "\nOther Parameters\n----------------\n" | |||
| 7676 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 7677 | "\nReturns\n-------\n" | |||
| 7678 | "lu : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 7679 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 7680 | "jpiv : rank-1 array('i') with bounds (n)\n" | |||
| 7681 | "info : int"; | |||
| 7682 | /* extern void F_FUNC(dgetc2,DGETC2)(F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 7683 | static PyObject *f2py_rout__flapack_dgetc2(const PyObject *capi_self, | |||
| 7684 | PyObject *capi_args, | |||
| 7685 | PyObject *capi_keywds, | |||
| 7686 | void (*f2py_func)(F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 7687 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 7688 | volatile int f2py_success = 1; | |||
| 7689 | /*decl*/ | |||
| 7690 | ||||
| 7691 | int n = 0; | |||
| 7692 | double *a = NULL((void*)0); | |||
| 7693 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 7694 | const int a_Rank = 2; | |||
| 7695 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 7696 | int capi_a_intent = 0; | |||
| 7697 | int capi_overwrite_a = 0; | |||
| 7698 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 7699 | int lda = 0; | |||
| 7700 | int *ipiv = NULL((void*)0); | |||
| 7701 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 7702 | const int ipiv_Rank = 1; | |||
| 7703 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 7704 | int capi_ipiv_intent = 0; | |||
| 7705 | int *jpiv = NULL((void*)0); | |||
| 7706 | npy_intp jpiv_Dims[1] = {-1}; | |||
| 7707 | const int jpiv_Rank = 1; | |||
| 7708 | PyArrayObject *capi_jpiv_tmp = NULL((void*)0); | |||
| 7709 | int capi_jpiv_intent = 0; | |||
| 7710 | int info = 0; | |||
| 7711 | static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)}; | |||
| 7712 | ||||
| 7713 | /*routdebugenter*/ | |||
| 7714 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7715 | f2py_start_clock(); | |||
| 7716 | #endif | |||
| 7717 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 7718 | "O|i:_flapack.dgetc2",\ | |||
| 7719 | capi_kwlist,&a_capi,&capi_overwrite_a)) | |||
| 7720 | return NULL((void*)0); | |||
| 7721 | /*frompyobj*/ | |||
| 7722 | /* Processing variable a */ | |||
| 7723 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 7724 | ; | |||
| 7725 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 7726 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 7727 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 7728 | if (!PyErr_Occurred()) | |||
| 7729 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgetc2 to C/Fortran array" ); | |||
| 7730 | } else { | |||
| 7731 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 7732 | ||||
| 7733 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 7734 | /* Processing variable info */ | |||
| 7735 | /* Processing variable n */ | |||
| 7736 | n = shape(a,0)a_Dims[0]; | |||
| 7737 | /* Processing variable lda */ | |||
| 7738 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 7739 | /* Processing variable ipiv */ | |||
| 7740 | ipiv_Dims[0]=n; | |||
| 7741 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 7742 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 7743 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 7744 | if (!PyErr_Occurred()) | |||
| 7745 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.dgetc2 to C/Fortran array" ); | |||
| 7746 | } else { | |||
| 7747 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 7748 | ||||
| 7749 | /* Processing variable jpiv */ | |||
| 7750 | jpiv_Dims[0]=n; | |||
| 7751 | capi_jpiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 7752 | capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 7753 | if (capi_jpiv_tmp == NULL((void*)0)) { | |||
| 7754 | if (!PyErr_Occurred()) | |||
| 7755 | PyErr_SetString(_flapack_error,"failed in converting hidden `jpiv' of _flapack.dgetc2 to C/Fortran array" ); | |||
| 7756 | } else { | |||
| 7757 | jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data)); | |||
| 7758 | ||||
| 7759 | /*end of frompyobj*/ | |||
| 7760 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7761 | f2py_start_call_clock(); | |||
| 7762 | #endif | |||
| 7763 | /*callfortranroutine*/ | |||
| 7764 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 7765 | {F_INTint i;(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ; | |||
| 7766 | /*(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);*/ | |||
| 7767 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 7768 | if (PyErr_Occurred()) | |||
| 7769 | f2py_success = 0; | |||
| 7770 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7771 | f2py_stop_call_clock(); | |||
| 7772 | #endif | |||
| 7773 | /*end of callfortranroutine*/ | |||
| 7774 | if (f2py_success) { | |||
| 7775 | /*pyobjfrom*/ | |||
| 7776 | /*end of pyobjfrom*/ | |||
| 7777 | CFUNCSMESS("Building return value.\n"); | |||
| 7778 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_jpiv_tmp,info); | |||
| 7779 | /*closepyobjfrom*/ | |||
| 7780 | /*end of closepyobjfrom*/ | |||
| 7781 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 7782 | /*cleanupfrompyobj*/ | |||
| 7783 | } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/ | |||
| 7784 | /* End of cleaning variable jpiv */ | |||
| 7785 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 7786 | /* End of cleaning variable ipiv */ | |||
| 7787 | /* End of cleaning variable lda */ | |||
| 7788 | /* End of cleaning variable n */ | |||
| 7789 | /* End of cleaning variable info */ | |||
| 7790 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 7791 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 7792 | /* End of cleaning variable a */ | |||
| 7793 | /*end of cleanupfrompyobj*/ | |||
| 7794 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 7795 | /*routdebugfailure*/ | |||
| 7796 | } else { | |||
| 7797 | /*routdebugleave*/ | |||
| 7798 | } | |||
| 7799 | CFUNCSMESS("Freeing memory.\n"); | |||
| 7800 | /*freemem*/ | |||
| 7801 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7802 | f2py_stop_clock(); | |||
| 7803 | #endif | |||
| 7804 | return capi_buildvalue; | |||
| 7805 | } | |||
| 7806 | /******************************* end of dgetc2 *******************************/ | |||
| 7807 | ||||
| 7808 | /*********************************** cgetc2 ***********************************/ | |||
| 7809 | static char doc_f2py_rout__flapack_cgetc2[] = "\ | |||
| 7810 | lu,ipiv,jpiv,info = cgetc2(a,[overwrite_a])\n\nWrapper for ``cgetc2``.\ | |||
| 7811 | \n\nParameters\n----------\n" | |||
| 7812 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 7813 | "\nOther Parameters\n----------------\n" | |||
| 7814 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 7815 | "\nReturns\n-------\n" | |||
| 7816 | "lu : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 7817 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 7818 | "jpiv : rank-1 array('i') with bounds (n)\n" | |||
| 7819 | "info : int"; | |||
| 7820 | /* extern void F_FUNC(cgetc2,CGETC2)(F_INT*,complex_float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 7821 | static PyObject *f2py_rout__flapack_cgetc2(const PyObject *capi_self, | |||
| 7822 | PyObject *capi_args, | |||
| 7823 | PyObject *capi_keywds, | |||
| 7824 | void (*f2py_func)(F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 7825 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 7826 | volatile int f2py_success = 1; | |||
| 7827 | /*decl*/ | |||
| 7828 | ||||
| 7829 | int n = 0; | |||
| 7830 | complex_float *a = NULL((void*)0); | |||
| 7831 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 7832 | const int a_Rank = 2; | |||
| 7833 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 7834 | int capi_a_intent = 0; | |||
| 7835 | int capi_overwrite_a = 0; | |||
| 7836 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 7837 | int lda = 0; | |||
| 7838 | int *ipiv = NULL((void*)0); | |||
| 7839 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 7840 | const int ipiv_Rank = 1; | |||
| 7841 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 7842 | int capi_ipiv_intent = 0; | |||
| 7843 | int *jpiv = NULL((void*)0); | |||
| 7844 | npy_intp jpiv_Dims[1] = {-1}; | |||
| 7845 | const int jpiv_Rank = 1; | |||
| 7846 | PyArrayObject *capi_jpiv_tmp = NULL((void*)0); | |||
| 7847 | int capi_jpiv_intent = 0; | |||
| 7848 | int info = 0; | |||
| 7849 | static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)}; | |||
| 7850 | ||||
| 7851 | /*routdebugenter*/ | |||
| 7852 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7853 | f2py_start_clock(); | |||
| 7854 | #endif | |||
| 7855 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 7856 | "O|i:_flapack.cgetc2",\ | |||
| 7857 | capi_kwlist,&a_capi,&capi_overwrite_a)) | |||
| 7858 | return NULL((void*)0); | |||
| 7859 | /*frompyobj*/ | |||
| 7860 | /* Processing variable a */ | |||
| 7861 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 7862 | ; | |||
| 7863 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 7864 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 7865 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 7866 | if (!PyErr_Occurred()) | |||
| 7867 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgetc2 to C/Fortran array" ); | |||
| 7868 | } else { | |||
| 7869 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 7870 | ||||
| 7871 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 7872 | /* Processing variable info */ | |||
| 7873 | /* Processing variable n */ | |||
| 7874 | n = shape(a,0)a_Dims[0]; | |||
| 7875 | /* Processing variable lda */ | |||
| 7876 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 7877 | /* Processing variable ipiv */ | |||
| 7878 | ipiv_Dims[0]=n; | |||
| 7879 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 7880 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 7881 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 7882 | if (!PyErr_Occurred()) | |||
| 7883 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.cgetc2 to C/Fortran array" ); | |||
| 7884 | } else { | |||
| 7885 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 7886 | ||||
| 7887 | /* Processing variable jpiv */ | |||
| 7888 | jpiv_Dims[0]=n; | |||
| 7889 | capi_jpiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 7890 | capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 7891 | if (capi_jpiv_tmp == NULL((void*)0)) { | |||
| 7892 | if (!PyErr_Occurred()) | |||
| 7893 | PyErr_SetString(_flapack_error,"failed in converting hidden `jpiv' of _flapack.cgetc2 to C/Fortran array" ); | |||
| 7894 | } else { | |||
| 7895 | jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data)); | |||
| 7896 | ||||
| 7897 | /*end of frompyobj*/ | |||
| 7898 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7899 | f2py_start_call_clock(); | |||
| 7900 | #endif | |||
| 7901 | /*callfortranroutine*/ | |||
| 7902 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 7903 | {F_INTint i;(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ; | |||
| 7904 | /*(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);*/ | |||
| 7905 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 7906 | if (PyErr_Occurred()) | |||
| 7907 | f2py_success = 0; | |||
| 7908 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7909 | f2py_stop_call_clock(); | |||
| 7910 | #endif | |||
| 7911 | /*end of callfortranroutine*/ | |||
| 7912 | if (f2py_success) { | |||
| 7913 | /*pyobjfrom*/ | |||
| 7914 | /*end of pyobjfrom*/ | |||
| 7915 | CFUNCSMESS("Building return value.\n"); | |||
| 7916 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_jpiv_tmp,info); | |||
| 7917 | /*closepyobjfrom*/ | |||
| 7918 | /*end of closepyobjfrom*/ | |||
| 7919 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 7920 | /*cleanupfrompyobj*/ | |||
| 7921 | } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/ | |||
| 7922 | /* End of cleaning variable jpiv */ | |||
| 7923 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 7924 | /* End of cleaning variable ipiv */ | |||
| 7925 | /* End of cleaning variable lda */ | |||
| 7926 | /* End of cleaning variable n */ | |||
| 7927 | /* End of cleaning variable info */ | |||
| 7928 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 7929 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 7930 | /* End of cleaning variable a */ | |||
| 7931 | /*end of cleanupfrompyobj*/ | |||
| 7932 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 7933 | /*routdebugfailure*/ | |||
| 7934 | } else { | |||
| 7935 | /*routdebugleave*/ | |||
| 7936 | } | |||
| 7937 | CFUNCSMESS("Freeing memory.\n"); | |||
| 7938 | /*freemem*/ | |||
| 7939 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7940 | f2py_stop_clock(); | |||
| 7941 | #endif | |||
| 7942 | return capi_buildvalue; | |||
| 7943 | } | |||
| 7944 | /******************************* end of cgetc2 *******************************/ | |||
| 7945 | ||||
| 7946 | /*********************************** zgetc2 ***********************************/ | |||
| 7947 | static char doc_f2py_rout__flapack_zgetc2[] = "\ | |||
| 7948 | lu,ipiv,jpiv,info = zgetc2(a,[overwrite_a])\n\nWrapper for ``zgetc2``.\ | |||
| 7949 | \n\nParameters\n----------\n" | |||
| 7950 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 7951 | "\nOther Parameters\n----------------\n" | |||
| 7952 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 7953 | "\nReturns\n-------\n" | |||
| 7954 | "lu : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 7955 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 7956 | "jpiv : rank-1 array('i') with bounds (n)\n" | |||
| 7957 | "info : int"; | |||
| 7958 | /* extern void F_FUNC(zgetc2,ZGETC2)(F_INT*,complex_double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 7959 | static PyObject *f2py_rout__flapack_zgetc2(const PyObject *capi_self, | |||
| 7960 | PyObject *capi_args, | |||
| 7961 | PyObject *capi_keywds, | |||
| 7962 | void (*f2py_func)(F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 7963 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 7964 | volatile int f2py_success = 1; | |||
| 7965 | /*decl*/ | |||
| 7966 | ||||
| 7967 | int n = 0; | |||
| 7968 | complex_double *a = NULL((void*)0); | |||
| 7969 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 7970 | const int a_Rank = 2; | |||
| 7971 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 7972 | int capi_a_intent = 0; | |||
| 7973 | int capi_overwrite_a = 0; | |||
| 7974 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 7975 | int lda = 0; | |||
| 7976 | int *ipiv = NULL((void*)0); | |||
| 7977 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 7978 | const int ipiv_Rank = 1; | |||
| 7979 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 7980 | int capi_ipiv_intent = 0; | |||
| 7981 | int *jpiv = NULL((void*)0); | |||
| 7982 | npy_intp jpiv_Dims[1] = {-1}; | |||
| 7983 | const int jpiv_Rank = 1; | |||
| 7984 | PyArrayObject *capi_jpiv_tmp = NULL((void*)0); | |||
| 7985 | int capi_jpiv_intent = 0; | |||
| 7986 | int info = 0; | |||
| 7987 | static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)}; | |||
| 7988 | ||||
| 7989 | /*routdebugenter*/ | |||
| 7990 | #ifdef F2PY_REPORT_ATEXIT | |||
| 7991 | f2py_start_clock(); | |||
| 7992 | #endif | |||
| 7993 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 7994 | "O|i:_flapack.zgetc2",\ | |||
| 7995 | capi_kwlist,&a_capi,&capi_overwrite_a)) | |||
| 7996 | return NULL((void*)0); | |||
| 7997 | /*frompyobj*/ | |||
| 7998 | /* Processing variable a */ | |||
| 7999 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 8000 | ; | |||
| 8001 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 8002 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 8003 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 8004 | if (!PyErr_Occurred()) | |||
| 8005 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgetc2 to C/Fortran array" ); | |||
| 8006 | } else { | |||
| 8007 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 8008 | ||||
| 8009 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 8010 | /* Processing variable info */ | |||
| 8011 | /* Processing variable n */ | |||
| 8012 | n = shape(a,0)a_Dims[0]; | |||
| 8013 | /* Processing variable lda */ | |||
| 8014 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 8015 | /* Processing variable ipiv */ | |||
| 8016 | ipiv_Dims[0]=n; | |||
| 8017 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 8018 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 8019 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 8020 | if (!PyErr_Occurred()) | |||
| 8021 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zgetc2 to C/Fortran array" ); | |||
| 8022 | } else { | |||
| 8023 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 8024 | ||||
| 8025 | /* Processing variable jpiv */ | |||
| 8026 | jpiv_Dims[0]=n; | |||
| 8027 | capi_jpiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 8028 | capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 8029 | if (capi_jpiv_tmp == NULL((void*)0)) { | |||
| 8030 | if (!PyErr_Occurred()) | |||
| 8031 | PyErr_SetString(_flapack_error,"failed in converting hidden `jpiv' of _flapack.zgetc2 to C/Fortran array" ); | |||
| 8032 | } else { | |||
| 8033 | jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data)); | |||
| 8034 | ||||
| 8035 | /*end of frompyobj*/ | |||
| 8036 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8037 | f2py_start_call_clock(); | |||
| 8038 | #endif | |||
| 8039 | /*callfortranroutine*/ | |||
| 8040 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 8041 | {F_INTint i;(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ; | |||
| 8042 | /*(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);*/ | |||
| 8043 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 8044 | if (PyErr_Occurred()) | |||
| 8045 | f2py_success = 0; | |||
| 8046 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8047 | f2py_stop_call_clock(); | |||
| 8048 | #endif | |||
| 8049 | /*end of callfortranroutine*/ | |||
| 8050 | if (f2py_success) { | |||
| 8051 | /*pyobjfrom*/ | |||
| 8052 | /*end of pyobjfrom*/ | |||
| 8053 | CFUNCSMESS("Building return value.\n"); | |||
| 8054 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_jpiv_tmp,info); | |||
| 8055 | /*closepyobjfrom*/ | |||
| 8056 | /*end of closepyobjfrom*/ | |||
| 8057 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 8058 | /*cleanupfrompyobj*/ | |||
| 8059 | } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/ | |||
| 8060 | /* End of cleaning variable jpiv */ | |||
| 8061 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 8062 | /* End of cleaning variable ipiv */ | |||
| 8063 | /* End of cleaning variable lda */ | |||
| 8064 | /* End of cleaning variable n */ | |||
| 8065 | /* End of cleaning variable info */ | |||
| 8066 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 8067 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 8068 | /* End of cleaning variable a */ | |||
| 8069 | /*end of cleanupfrompyobj*/ | |||
| 8070 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 8071 | /*routdebugfailure*/ | |||
| 8072 | } else { | |||
| 8073 | /*routdebugleave*/ | |||
| 8074 | } | |||
| 8075 | CFUNCSMESS("Freeing memory.\n"); | |||
| 8076 | /*freemem*/ | |||
| 8077 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8078 | f2py_stop_clock(); | |||
| 8079 | #endif | |||
| 8080 | return capi_buildvalue; | |||
| 8081 | } | |||
| 8082 | /******************************* end of zgetc2 *******************************/ | |||
| 8083 | ||||
| 8084 | /*********************************** sgesc2 ***********************************/ | |||
| 8085 | static char doc_f2py_rout__flapack_sgesc2[] = "\ | |||
| 8086 | x,scale = sgesc2(lu,rhs,ipiv,jpiv,[overwrite_rhs])\n\nWrapper for ``sgesc2``.\ | |||
| 8087 | \n\nParameters\n----------\n" | |||
| 8088 | "lu : input rank-2 array('f') with bounds (n,n)\n" | |||
| 8089 | "rhs : input rank-1 array('f') with bounds (n)\n" | |||
| 8090 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 8091 | "jpiv : input rank-1 array('i') with bounds (n)\n" | |||
| 8092 | "\nOther Parameters\n----------------\n" | |||
| 8093 | "overwrite_rhs : input int, optional\n Default: 0\n" | |||
| 8094 | "\nReturns\n-------\n" | |||
| 8095 | "x : rank-1 array('f') with bounds (n) and rhs storage\n" | |||
| 8096 | "scale : float"; | |||
| 8097 | /* extern void F_FUNC(sgesc2,SGESC2)(F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,float* ); */ | |||
| 8098 | static PyObject *f2py_rout__flapack_sgesc2(const PyObject *capi_self, | |||
| 8099 | PyObject *capi_args, | |||
| 8100 | PyObject *capi_keywds, | |||
| 8101 | void (*f2py_func)(F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float* )) { | |||
| 8102 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 8103 | volatile int f2py_success = 1; | |||
| 8104 | /*decl*/ | |||
| 8105 | ||||
| 8106 | int n = 0; | |||
| 8107 | float *lu = NULL((void*)0); | |||
| 8108 | npy_intp lu_Dims[2] = {-1, -1}; | |||
| 8109 | const int lu_Rank = 2; | |||
| 8110 | PyArrayObject *capi_lu_tmp = NULL((void*)0); | |||
| 8111 | int capi_lu_intent = 0; | |||
| 8112 | PyObject *lu_capi = Py_None(&_Py_NoneStruct); | |||
| 8113 | int lda = 0; | |||
| 8114 | float *rhs = NULL((void*)0); | |||
| 8115 | npy_intp rhs_Dims[1] = {-1}; | |||
| 8116 | const int rhs_Rank = 1; | |||
| 8117 | PyArrayObject *capi_rhs_tmp = NULL((void*)0); | |||
| 8118 | int capi_rhs_intent = 0; | |||
| 8119 | int capi_overwrite_rhs = 0; | |||
| 8120 | PyObject *rhs_capi = Py_None(&_Py_NoneStruct); | |||
| 8121 | int *ipiv = NULL((void*)0); | |||
| 8122 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 8123 | const int ipiv_Rank = 1; | |||
| 8124 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 8125 | int capi_ipiv_intent = 0; | |||
| 8126 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 8127 | int *jpiv = NULL((void*)0); | |||
| 8128 | npy_intp jpiv_Dims[1] = {-1}; | |||
| 8129 | const int jpiv_Rank = 1; | |||
| 8130 | PyArrayObject *capi_jpiv_tmp = NULL((void*)0); | |||
| 8131 | int capi_jpiv_intent = 0; | |||
| 8132 | PyObject *jpiv_capi = Py_None(&_Py_NoneStruct); | |||
| 8133 | float scale = 0; | |||
| 8134 | static char *capi_kwlist[] = {"lu","rhs","ipiv","jpiv","overwrite_rhs",NULL((void*)0)}; | |||
| 8135 | ||||
| 8136 | /*routdebugenter*/ | |||
| 8137 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8138 | f2py_start_clock(); | |||
| 8139 | #endif | |||
| 8140 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 8141 | "OOOO|i:_flapack.sgesc2",\ | |||
| 8142 | capi_kwlist,&lu_capi,&rhs_capi,&ipiv_capi,&jpiv_capi,&capi_overwrite_rhs)) | |||
| 8143 | return NULL((void*)0); | |||
| 8144 | /*frompyobj*/ | |||
| 8145 | /* Processing variable lu */ | |||
| 8146 | ; | |||
| 8147 | capi_lu_intent |= F2PY_INTENT_IN1; | |||
| 8148 | capi_lu_tmp = array_from_pyobj(NPY_FLOAT,lu_Dims,lu_Rank,capi_lu_intent,lu_capi); | |||
| 8149 | if (capi_lu_tmp == NULL((void*)0)) { | |||
| 8150 | if (!PyErr_Occurred()) | |||
| 8151 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.sgesc2 to C/Fortran array" ); | |||
| 8152 | } else { | |||
| 8153 | lu = (float *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data)); | |||
| 8154 | ||||
| 8155 | CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu" ); } else { | |||
| 8156 | /* Processing variable scale */ | |||
| 8157 | /* Processing variable n */ | |||
| 8158 | n = shape(lu,0)lu_Dims[0]; | |||
| 8159 | /* Processing variable lda */ | |||
| 8160 | lda = MAX(1,shape(lu,0))((1 > lu_Dims[0]) ? (1) : (lu_Dims[0])); | |||
| 8161 | /* Processing variable rhs */ | |||
| 8162 | capi_rhs_intent |= (capi_overwrite_rhs?0:F2PY_INTENT_COPY32); | |||
| 8163 | rhs_Dims[0]=n; | |||
| 8164 | capi_rhs_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 8165 | capi_rhs_tmp = array_from_pyobj(NPY_FLOAT,rhs_Dims,rhs_Rank,capi_rhs_intent,rhs_capi); | |||
| 8166 | if (capi_rhs_tmp == NULL((void*)0)) { | |||
| 8167 | if (!PyErr_Occurred()) | |||
| 8168 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `rhs' of _flapack.sgesc2 to C/Fortran array" ); | |||
| 8169 | } else { | |||
| 8170 | rhs = (float *)(PyArray_DATA(capi_rhs_tmp)((void *)((PyArrayObject_fields *)(capi_rhs_tmp))->data)); | |||
| 8171 | ||||
| 8172 | CHECKARRAY(shape(lu,0)==len(rhs),"shape(lu,0)==len(rhs)","2nd argument rhs")if (!(lu_Dims[0]==rhs_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==len(rhs)"") failed for ""2nd argument rhs") ; } else { | |||
| 8173 | /* Processing variable ipiv */ | |||
| 8174 | ipiv_Dims[0]=n; | |||
| 8175 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 8176 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 8177 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 8178 | if (!PyErr_Occurred()) | |||
| 8179 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ipiv' of _flapack.sgesc2 to C/Fortran array" ); | |||
| 8180 | } else { | |||
| 8181 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 8182 | ||||
| 8183 | /* Processing variable jpiv */ | |||
| 8184 | jpiv_Dims[0]=n; | |||
| 8185 | capi_jpiv_intent |= F2PY_INTENT_IN1; | |||
| 8186 | capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,jpiv_capi); | |||
| 8187 | if (capi_jpiv_tmp == NULL((void*)0)) { | |||
| 8188 | if (!PyErr_Occurred()) | |||
| 8189 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `jpiv' of _flapack.sgesc2 to C/Fortran array" ); | |||
| 8190 | } else { | |||
| 8191 | jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data)); | |||
| 8192 | ||||
| 8193 | /*end of frompyobj*/ | |||
| 8194 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8195 | f2py_start_call_clock(); | |||
| 8196 | #endif | |||
| 8197 | /*callfortranroutine*/ | |||
| 8198 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 8199 | {F_INTint i;for(i=0;i<n;++ipiv[i],++jpiv[i++]);(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ; | |||
| 8200 | /*(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);*/ | |||
| 8201 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 8202 | if (PyErr_Occurred()) | |||
| 8203 | f2py_success = 0; | |||
| 8204 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8205 | f2py_stop_call_clock(); | |||
| 8206 | #endif | |||
| 8207 | /*end of callfortranroutine*/ | |||
| 8208 | if (f2py_success) { | |||
| 8209 | /*pyobjfrom*/ | |||
| 8210 | /*end of pyobjfrom*/ | |||
| 8211 | CFUNCSMESS("Building return value.\n"); | |||
| 8212 | capi_buildvalue = Py_BuildValue("Nf",capi_rhs_tmp,scale); | |||
| 8213 | /*closepyobjfrom*/ | |||
| 8214 | /*end of closepyobjfrom*/ | |||
| 8215 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 8216 | /*cleanupfrompyobj*/ | |||
| 8217 | if((PyObject *)capi_jpiv_tmp!=jpiv_capi) { | |||
| 8218 | Py_XDECREF(capi_jpiv_tmp)_Py_XDECREF(((PyObject*)(capi_jpiv_tmp))); } | |||
| 8219 | } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/ | |||
| 8220 | /* End of cleaning variable jpiv */ | |||
| 8221 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 8222 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 8223 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 8224 | /* End of cleaning variable ipiv */ | |||
| 8225 | } /*CHECKARRAY(shape(lu,0)==len(rhs))*/ | |||
| 8226 | } /*if (capi_rhs_tmp == NULL) ... else of rhs*/ | |||
| 8227 | /* End of cleaning variable rhs */ | |||
| 8228 | /* End of cleaning variable lda */ | |||
| 8229 | /* End of cleaning variable n */ | |||
| 8230 | /* End of cleaning variable scale */ | |||
| 8231 | } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/ | |||
| 8232 | if((PyObject *)capi_lu_tmp!=lu_capi) { | |||
| 8233 | Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); } | |||
| 8234 | } /*if (capi_lu_tmp == NULL) ... else of lu*/ | |||
| 8235 | /* End of cleaning variable lu */ | |||
| 8236 | /*end of cleanupfrompyobj*/ | |||
| 8237 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 8238 | /*routdebugfailure*/ | |||
| 8239 | } else { | |||
| 8240 | /*routdebugleave*/ | |||
| 8241 | } | |||
| 8242 | CFUNCSMESS("Freeing memory.\n"); | |||
| 8243 | /*freemem*/ | |||
| 8244 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8245 | f2py_stop_clock(); | |||
| 8246 | #endif | |||
| 8247 | return capi_buildvalue; | |||
| 8248 | } | |||
| 8249 | /******************************* end of sgesc2 *******************************/ | |||
| 8250 | ||||
| 8251 | /*********************************** dgesc2 ***********************************/ | |||
| 8252 | static char doc_f2py_rout__flapack_dgesc2[] = "\ | |||
| 8253 | x,scale = dgesc2(lu,rhs,ipiv,jpiv,[overwrite_rhs])\n\nWrapper for ``dgesc2``.\ | |||
| 8254 | \n\nParameters\n----------\n" | |||
| 8255 | "lu : input rank-2 array('d') with bounds (n,n)\n" | |||
| 8256 | "rhs : input rank-1 array('d') with bounds (n)\n" | |||
| 8257 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 8258 | "jpiv : input rank-1 array('i') with bounds (n)\n" | |||
| 8259 | "\nOther Parameters\n----------------\n" | |||
| 8260 | "overwrite_rhs : input int, optional\n Default: 0\n" | |||
| 8261 | "\nReturns\n-------\n" | |||
| 8262 | "x : rank-1 array('d') with bounds (n) and rhs storage\n" | |||
| 8263 | "scale : float"; | |||
| 8264 | /* extern void F_FUNC(dgesc2,DGESC2)(F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,double* ); */ | |||
| 8265 | static PyObject *f2py_rout__flapack_dgesc2(const PyObject *capi_self, | |||
| 8266 | PyObject *capi_args, | |||
| 8267 | PyObject *capi_keywds, | |||
| 8268 | void (*f2py_func)(F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double* )) { | |||
| 8269 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 8270 | volatile int f2py_success = 1; | |||
| 8271 | /*decl*/ | |||
| 8272 | ||||
| 8273 | int n = 0; | |||
| 8274 | double *lu = NULL((void*)0); | |||
| 8275 | npy_intp lu_Dims[2] = {-1, -1}; | |||
| 8276 | const int lu_Rank = 2; | |||
| 8277 | PyArrayObject *capi_lu_tmp = NULL((void*)0); | |||
| 8278 | int capi_lu_intent = 0; | |||
| 8279 | PyObject *lu_capi = Py_None(&_Py_NoneStruct); | |||
| 8280 | int lda = 0; | |||
| 8281 | double *rhs = NULL((void*)0); | |||
| 8282 | npy_intp rhs_Dims[1] = {-1}; | |||
| 8283 | const int rhs_Rank = 1; | |||
| 8284 | PyArrayObject *capi_rhs_tmp = NULL((void*)0); | |||
| 8285 | int capi_rhs_intent = 0; | |||
| 8286 | int capi_overwrite_rhs = 0; | |||
| 8287 | PyObject *rhs_capi = Py_None(&_Py_NoneStruct); | |||
| 8288 | int *ipiv = NULL((void*)0); | |||
| 8289 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 8290 | const int ipiv_Rank = 1; | |||
| 8291 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 8292 | int capi_ipiv_intent = 0; | |||
| 8293 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 8294 | int *jpiv = NULL((void*)0); | |||
| 8295 | npy_intp jpiv_Dims[1] = {-1}; | |||
| 8296 | const int jpiv_Rank = 1; | |||
| 8297 | PyArrayObject *capi_jpiv_tmp = NULL((void*)0); | |||
| 8298 | int capi_jpiv_intent = 0; | |||
| 8299 | PyObject *jpiv_capi = Py_None(&_Py_NoneStruct); | |||
| 8300 | double scale = 0; | |||
| 8301 | static char *capi_kwlist[] = {"lu","rhs","ipiv","jpiv","overwrite_rhs",NULL((void*)0)}; | |||
| 8302 | ||||
| 8303 | /*routdebugenter*/ | |||
| 8304 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8305 | f2py_start_clock(); | |||
| 8306 | #endif | |||
| 8307 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 8308 | "OOOO|i:_flapack.dgesc2",\ | |||
| 8309 | capi_kwlist,&lu_capi,&rhs_capi,&ipiv_capi,&jpiv_capi,&capi_overwrite_rhs)) | |||
| 8310 | return NULL((void*)0); | |||
| 8311 | /*frompyobj*/ | |||
| 8312 | /* Processing variable lu */ | |||
| 8313 | ; | |||
| 8314 | capi_lu_intent |= F2PY_INTENT_IN1; | |||
| 8315 | capi_lu_tmp = array_from_pyobj(NPY_DOUBLE,lu_Dims,lu_Rank,capi_lu_intent,lu_capi); | |||
| 8316 | if (capi_lu_tmp == NULL((void*)0)) { | |||
| 8317 | if (!PyErr_Occurred()) | |||
| 8318 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.dgesc2 to C/Fortran array" ); | |||
| 8319 | } else { | |||
| 8320 | lu = (double *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data)); | |||
| 8321 | ||||
| 8322 | CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu" ); } else { | |||
| 8323 | /* Processing variable scale */ | |||
| 8324 | /* Processing variable n */ | |||
| 8325 | n = shape(lu,0)lu_Dims[0]; | |||
| 8326 | /* Processing variable lda */ | |||
| 8327 | lda = MAX(1,shape(lu,0))((1 > lu_Dims[0]) ? (1) : (lu_Dims[0])); | |||
| 8328 | /* Processing variable rhs */ | |||
| 8329 | capi_rhs_intent |= (capi_overwrite_rhs?0:F2PY_INTENT_COPY32); | |||
| 8330 | rhs_Dims[0]=n; | |||
| 8331 | capi_rhs_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 8332 | capi_rhs_tmp = array_from_pyobj(NPY_DOUBLE,rhs_Dims,rhs_Rank,capi_rhs_intent,rhs_capi); | |||
| 8333 | if (capi_rhs_tmp == NULL((void*)0)) { | |||
| 8334 | if (!PyErr_Occurred()) | |||
| 8335 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `rhs' of _flapack.dgesc2 to C/Fortran array" ); | |||
| 8336 | } else { | |||
| 8337 | rhs = (double *)(PyArray_DATA(capi_rhs_tmp)((void *)((PyArrayObject_fields *)(capi_rhs_tmp))->data)); | |||
| 8338 | ||||
| 8339 | CHECKARRAY(shape(lu,0)==len(rhs),"shape(lu,0)==len(rhs)","2nd argument rhs")if (!(lu_Dims[0]==rhs_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==len(rhs)"") failed for ""2nd argument rhs") ; } else { | |||
| 8340 | /* Processing variable ipiv */ | |||
| 8341 | ipiv_Dims[0]=n; | |||
| 8342 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 8343 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 8344 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 8345 | if (!PyErr_Occurred()) | |||
| 8346 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ipiv' of _flapack.dgesc2 to C/Fortran array" ); | |||
| 8347 | } else { | |||
| 8348 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 8349 | ||||
| 8350 | /* Processing variable jpiv */ | |||
| 8351 | jpiv_Dims[0]=n; | |||
| 8352 | capi_jpiv_intent |= F2PY_INTENT_IN1; | |||
| 8353 | capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,jpiv_capi); | |||
| 8354 | if (capi_jpiv_tmp == NULL((void*)0)) { | |||
| 8355 | if (!PyErr_Occurred()) | |||
| 8356 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `jpiv' of _flapack.dgesc2 to C/Fortran array" ); | |||
| 8357 | } else { | |||
| 8358 | jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data)); | |||
| 8359 | ||||
| 8360 | /*end of frompyobj*/ | |||
| 8361 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8362 | f2py_start_call_clock(); | |||
| 8363 | #endif | |||
| 8364 | /*callfortranroutine*/ | |||
| 8365 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 8366 | {F_INTint i;for(i=0;i<n;++ipiv[i],++jpiv[i++]);(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ; | |||
| 8367 | /*(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);*/ | |||
| 8368 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 8369 | if (PyErr_Occurred()) | |||
| 8370 | f2py_success = 0; | |||
| 8371 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8372 | f2py_stop_call_clock(); | |||
| 8373 | #endif | |||
| 8374 | /*end of callfortranroutine*/ | |||
| 8375 | if (f2py_success) { | |||
| 8376 | /*pyobjfrom*/ | |||
| 8377 | /*end of pyobjfrom*/ | |||
| 8378 | CFUNCSMESS("Building return value.\n"); | |||
| 8379 | capi_buildvalue = Py_BuildValue("Nd",capi_rhs_tmp,scale); | |||
| 8380 | /*closepyobjfrom*/ | |||
| 8381 | /*end of closepyobjfrom*/ | |||
| 8382 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 8383 | /*cleanupfrompyobj*/ | |||
| 8384 | if((PyObject *)capi_jpiv_tmp!=jpiv_capi) { | |||
| 8385 | Py_XDECREF(capi_jpiv_tmp)_Py_XDECREF(((PyObject*)(capi_jpiv_tmp))); } | |||
| 8386 | } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/ | |||
| 8387 | /* End of cleaning variable jpiv */ | |||
| 8388 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 8389 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 8390 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 8391 | /* End of cleaning variable ipiv */ | |||
| 8392 | } /*CHECKARRAY(shape(lu,0)==len(rhs))*/ | |||
| 8393 | } /*if (capi_rhs_tmp == NULL) ... else of rhs*/ | |||
| 8394 | /* End of cleaning variable rhs */ | |||
| 8395 | /* End of cleaning variable lda */ | |||
| 8396 | /* End of cleaning variable n */ | |||
| 8397 | /* End of cleaning variable scale */ | |||
| 8398 | } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/ | |||
| 8399 | if((PyObject *)capi_lu_tmp!=lu_capi) { | |||
| 8400 | Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); } | |||
| 8401 | } /*if (capi_lu_tmp == NULL) ... else of lu*/ | |||
| 8402 | /* End of cleaning variable lu */ | |||
| 8403 | /*end of cleanupfrompyobj*/ | |||
| 8404 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 8405 | /*routdebugfailure*/ | |||
| 8406 | } else { | |||
| 8407 | /*routdebugleave*/ | |||
| 8408 | } | |||
| 8409 | CFUNCSMESS("Freeing memory.\n"); | |||
| 8410 | /*freemem*/ | |||
| 8411 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8412 | f2py_stop_clock(); | |||
| 8413 | #endif | |||
| 8414 | return capi_buildvalue; | |||
| 8415 | } | |||
| 8416 | /******************************* end of dgesc2 *******************************/ | |||
| 8417 | ||||
| 8418 | /*********************************** cgesc2 ***********************************/ | |||
| 8419 | static char doc_f2py_rout__flapack_cgesc2[] = "\ | |||
| 8420 | x,scale = cgesc2(lu,rhs,ipiv,jpiv,[overwrite_rhs])\n\nWrapper for ``cgesc2``.\ | |||
| 8421 | \n\nParameters\n----------\n" | |||
| 8422 | "lu : input rank-2 array('F') with bounds (n,n)\n" | |||
| 8423 | "rhs : input rank-1 array('F') with bounds (n)\n" | |||
| 8424 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 8425 | "jpiv : input rank-1 array('i') with bounds (n)\n" | |||
| 8426 | "\nOther Parameters\n----------------\n" | |||
| 8427 | "overwrite_rhs : input int, optional\n Default: 0\n" | |||
| 8428 | "\nReturns\n-------\n" | |||
| 8429 | "x : rank-1 array('F') with bounds (n) and rhs storage\n" | |||
| 8430 | "scale : float"; | |||
| 8431 | /* extern void F_FUNC(cgesc2,CGESC2)(F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,float* ); */ | |||
| 8432 | static PyObject *f2py_rout__flapack_cgesc2(const PyObject *capi_self, | |||
| 8433 | PyObject *capi_args, | |||
| 8434 | PyObject *capi_keywds, | |||
| 8435 | void (*f2py_func)(F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float* )) { | |||
| 8436 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 8437 | volatile int f2py_success = 1; | |||
| 8438 | /*decl*/ | |||
| 8439 | ||||
| 8440 | int n = 0; | |||
| 8441 | complex_float *lu = NULL((void*)0); | |||
| 8442 | npy_intp lu_Dims[2] = {-1, -1}; | |||
| 8443 | const int lu_Rank = 2; | |||
| 8444 | PyArrayObject *capi_lu_tmp = NULL((void*)0); | |||
| 8445 | int capi_lu_intent = 0; | |||
| 8446 | PyObject *lu_capi = Py_None(&_Py_NoneStruct); | |||
| 8447 | int lda = 0; | |||
| 8448 | complex_float *rhs = NULL((void*)0); | |||
| 8449 | npy_intp rhs_Dims[1] = {-1}; | |||
| 8450 | const int rhs_Rank = 1; | |||
| 8451 | PyArrayObject *capi_rhs_tmp = NULL((void*)0); | |||
| 8452 | int capi_rhs_intent = 0; | |||
| 8453 | int capi_overwrite_rhs = 0; | |||
| 8454 | PyObject *rhs_capi = Py_None(&_Py_NoneStruct); | |||
| 8455 | int *ipiv = NULL((void*)0); | |||
| 8456 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 8457 | const int ipiv_Rank = 1; | |||
| 8458 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 8459 | int capi_ipiv_intent = 0; | |||
| 8460 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 8461 | int *jpiv = NULL((void*)0); | |||
| 8462 | npy_intp jpiv_Dims[1] = {-1}; | |||
| 8463 | const int jpiv_Rank = 1; | |||
| 8464 | PyArrayObject *capi_jpiv_tmp = NULL((void*)0); | |||
| 8465 | int capi_jpiv_intent = 0; | |||
| 8466 | PyObject *jpiv_capi = Py_None(&_Py_NoneStruct); | |||
| 8467 | float scale = 0; | |||
| 8468 | static char *capi_kwlist[] = {"lu","rhs","ipiv","jpiv","overwrite_rhs",NULL((void*)0)}; | |||
| 8469 | ||||
| 8470 | /*routdebugenter*/ | |||
| 8471 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8472 | f2py_start_clock(); | |||
| 8473 | #endif | |||
| 8474 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 8475 | "OOOO|i:_flapack.cgesc2",\ | |||
| 8476 | capi_kwlist,&lu_capi,&rhs_capi,&ipiv_capi,&jpiv_capi,&capi_overwrite_rhs)) | |||
| 8477 | return NULL((void*)0); | |||
| 8478 | /*frompyobj*/ | |||
| 8479 | /* Processing variable lu */ | |||
| 8480 | ; | |||
| 8481 | capi_lu_intent |= F2PY_INTENT_IN1; | |||
| 8482 | capi_lu_tmp = array_from_pyobj(NPY_CFLOAT,lu_Dims,lu_Rank,capi_lu_intent,lu_capi); | |||
| 8483 | if (capi_lu_tmp == NULL((void*)0)) { | |||
| 8484 | if (!PyErr_Occurred()) | |||
| 8485 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.cgesc2 to C/Fortran array" ); | |||
| 8486 | } else { | |||
| 8487 | lu = (complex_float *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data)); | |||
| 8488 | ||||
| 8489 | CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu" ); } else { | |||
| 8490 | /* Processing variable scale */ | |||
| 8491 | /* Processing variable n */ | |||
| 8492 | n = shape(lu,0)lu_Dims[0]; | |||
| 8493 | /* Processing variable lda */ | |||
| 8494 | lda = MAX(1,shape(lu,0))((1 > lu_Dims[0]) ? (1) : (lu_Dims[0])); | |||
| 8495 | /* Processing variable rhs */ | |||
| 8496 | capi_rhs_intent |= (capi_overwrite_rhs?0:F2PY_INTENT_COPY32); | |||
| 8497 | rhs_Dims[0]=n; | |||
| 8498 | capi_rhs_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 8499 | capi_rhs_tmp = array_from_pyobj(NPY_CFLOAT,rhs_Dims,rhs_Rank,capi_rhs_intent,rhs_capi); | |||
| 8500 | if (capi_rhs_tmp == NULL((void*)0)) { | |||
| 8501 | if (!PyErr_Occurred()) | |||
| 8502 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `rhs' of _flapack.cgesc2 to C/Fortran array" ); | |||
| 8503 | } else { | |||
| 8504 | rhs = (complex_float *)(PyArray_DATA(capi_rhs_tmp)((void *)((PyArrayObject_fields *)(capi_rhs_tmp))->data)); | |||
| 8505 | ||||
| 8506 | CHECKARRAY(shape(lu,0)==len(rhs),"shape(lu,0)==len(rhs)","2nd argument rhs")if (!(lu_Dims[0]==rhs_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==len(rhs)"") failed for ""2nd argument rhs") ; } else { | |||
| 8507 | /* Processing variable ipiv */ | |||
| 8508 | ipiv_Dims[0]=n; | |||
| 8509 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 8510 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 8511 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 8512 | if (!PyErr_Occurred()) | |||
| 8513 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ipiv' of _flapack.cgesc2 to C/Fortran array" ); | |||
| 8514 | } else { | |||
| 8515 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 8516 | ||||
| 8517 | /* Processing variable jpiv */ | |||
| 8518 | jpiv_Dims[0]=n; | |||
| 8519 | capi_jpiv_intent |= F2PY_INTENT_IN1; | |||
| 8520 | capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,jpiv_capi); | |||
| 8521 | if (capi_jpiv_tmp == NULL((void*)0)) { | |||
| 8522 | if (!PyErr_Occurred()) | |||
| 8523 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `jpiv' of _flapack.cgesc2 to C/Fortran array" ); | |||
| 8524 | } else { | |||
| 8525 | jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data)); | |||
| 8526 | ||||
| 8527 | /*end of frompyobj*/ | |||
| 8528 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8529 | f2py_start_call_clock(); | |||
| 8530 | #endif | |||
| 8531 | /*callfortranroutine*/ | |||
| 8532 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 8533 | {F_INTint i;for(i=0;i<n;++ipiv[i],++jpiv[i++]);(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ; | |||
| 8534 | /*(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);*/ | |||
| 8535 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 8536 | if (PyErr_Occurred()) | |||
| 8537 | f2py_success = 0; | |||
| 8538 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8539 | f2py_stop_call_clock(); | |||
| 8540 | #endif | |||
| 8541 | /*end of callfortranroutine*/ | |||
| 8542 | if (f2py_success) { | |||
| 8543 | /*pyobjfrom*/ | |||
| 8544 | /*end of pyobjfrom*/ | |||
| 8545 | CFUNCSMESS("Building return value.\n"); | |||
| 8546 | capi_buildvalue = Py_BuildValue("Nf",capi_rhs_tmp,scale); | |||
| 8547 | /*closepyobjfrom*/ | |||
| 8548 | /*end of closepyobjfrom*/ | |||
| 8549 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 8550 | /*cleanupfrompyobj*/ | |||
| 8551 | if((PyObject *)capi_jpiv_tmp!=jpiv_capi) { | |||
| 8552 | Py_XDECREF(capi_jpiv_tmp)_Py_XDECREF(((PyObject*)(capi_jpiv_tmp))); } | |||
| 8553 | } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/ | |||
| 8554 | /* End of cleaning variable jpiv */ | |||
| 8555 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 8556 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 8557 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 8558 | /* End of cleaning variable ipiv */ | |||
| 8559 | } /*CHECKARRAY(shape(lu,0)==len(rhs))*/ | |||
| 8560 | } /*if (capi_rhs_tmp == NULL) ... else of rhs*/ | |||
| 8561 | /* End of cleaning variable rhs */ | |||
| 8562 | /* End of cleaning variable lda */ | |||
| 8563 | /* End of cleaning variable n */ | |||
| 8564 | /* End of cleaning variable scale */ | |||
| 8565 | } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/ | |||
| 8566 | if((PyObject *)capi_lu_tmp!=lu_capi) { | |||
| 8567 | Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); } | |||
| 8568 | } /*if (capi_lu_tmp == NULL) ... else of lu*/ | |||
| 8569 | /* End of cleaning variable lu */ | |||
| 8570 | /*end of cleanupfrompyobj*/ | |||
| 8571 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 8572 | /*routdebugfailure*/ | |||
| 8573 | } else { | |||
| 8574 | /*routdebugleave*/ | |||
| 8575 | } | |||
| 8576 | CFUNCSMESS("Freeing memory.\n"); | |||
| 8577 | /*freemem*/ | |||
| 8578 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8579 | f2py_stop_clock(); | |||
| 8580 | #endif | |||
| 8581 | return capi_buildvalue; | |||
| 8582 | } | |||
| 8583 | /******************************* end of cgesc2 *******************************/ | |||
| 8584 | ||||
| 8585 | /*********************************** zgesc2 ***********************************/ | |||
| 8586 | static char doc_f2py_rout__flapack_zgesc2[] = "\ | |||
| 8587 | x,scale = zgesc2(lu,rhs,ipiv,jpiv,[overwrite_rhs])\n\nWrapper for ``zgesc2``.\ | |||
| 8588 | \n\nParameters\n----------\n" | |||
| 8589 | "lu : input rank-2 array('D') with bounds (n,n)\n" | |||
| 8590 | "rhs : input rank-1 array('D') with bounds (n)\n" | |||
| 8591 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 8592 | "jpiv : input rank-1 array('i') with bounds (n)\n" | |||
| 8593 | "\nOther Parameters\n----------------\n" | |||
| 8594 | "overwrite_rhs : input int, optional\n Default: 0\n" | |||
| 8595 | "\nReturns\n-------\n" | |||
| 8596 | "x : rank-1 array('D') with bounds (n) and rhs storage\n" | |||
| 8597 | "scale : float"; | |||
| 8598 | /* extern void F_FUNC(zgesc2,ZGESC2)(F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,double* ); */ | |||
| 8599 | static PyObject *f2py_rout__flapack_zgesc2(const PyObject *capi_self, | |||
| 8600 | PyObject *capi_args, | |||
| 8601 | PyObject *capi_keywds, | |||
| 8602 | void (*f2py_func)(F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double* )) { | |||
| 8603 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 8604 | volatile int f2py_success = 1; | |||
| 8605 | /*decl*/ | |||
| 8606 | ||||
| 8607 | int n = 0; | |||
| 8608 | complex_double *lu = NULL((void*)0); | |||
| 8609 | npy_intp lu_Dims[2] = {-1, -1}; | |||
| 8610 | const int lu_Rank = 2; | |||
| 8611 | PyArrayObject *capi_lu_tmp = NULL((void*)0); | |||
| 8612 | int capi_lu_intent = 0; | |||
| 8613 | PyObject *lu_capi = Py_None(&_Py_NoneStruct); | |||
| 8614 | int lda = 0; | |||
| 8615 | complex_double *rhs = NULL((void*)0); | |||
| 8616 | npy_intp rhs_Dims[1] = {-1}; | |||
| 8617 | const int rhs_Rank = 1; | |||
| 8618 | PyArrayObject *capi_rhs_tmp = NULL((void*)0); | |||
| 8619 | int capi_rhs_intent = 0; | |||
| 8620 | int capi_overwrite_rhs = 0; | |||
| 8621 | PyObject *rhs_capi = Py_None(&_Py_NoneStruct); | |||
| 8622 | int *ipiv = NULL((void*)0); | |||
| 8623 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 8624 | const int ipiv_Rank = 1; | |||
| 8625 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 8626 | int capi_ipiv_intent = 0; | |||
| 8627 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 8628 | int *jpiv = NULL((void*)0); | |||
| 8629 | npy_intp jpiv_Dims[1] = {-1}; | |||
| 8630 | const int jpiv_Rank = 1; | |||
| 8631 | PyArrayObject *capi_jpiv_tmp = NULL((void*)0); | |||
| 8632 | int capi_jpiv_intent = 0; | |||
| 8633 | PyObject *jpiv_capi = Py_None(&_Py_NoneStruct); | |||
| 8634 | double scale = 0; | |||
| 8635 | static char *capi_kwlist[] = {"lu","rhs","ipiv","jpiv","overwrite_rhs",NULL((void*)0)}; | |||
| 8636 | ||||
| 8637 | /*routdebugenter*/ | |||
| 8638 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8639 | f2py_start_clock(); | |||
| 8640 | #endif | |||
| 8641 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 8642 | "OOOO|i:_flapack.zgesc2",\ | |||
| 8643 | capi_kwlist,&lu_capi,&rhs_capi,&ipiv_capi,&jpiv_capi,&capi_overwrite_rhs)) | |||
| 8644 | return NULL((void*)0); | |||
| 8645 | /*frompyobj*/ | |||
| 8646 | /* Processing variable lu */ | |||
| 8647 | ; | |||
| 8648 | capi_lu_intent |= F2PY_INTENT_IN1; | |||
| 8649 | capi_lu_tmp = array_from_pyobj(NPY_CDOUBLE,lu_Dims,lu_Rank,capi_lu_intent,lu_capi); | |||
| 8650 | if (capi_lu_tmp == NULL((void*)0)) { | |||
| 8651 | if (!PyErr_Occurred()) | |||
| 8652 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.zgesc2 to C/Fortran array" ); | |||
| 8653 | } else { | |||
| 8654 | lu = (complex_double *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data)); | |||
| 8655 | ||||
| 8656 | CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu" ); } else { | |||
| 8657 | /* Processing variable scale */ | |||
| 8658 | /* Processing variable n */ | |||
| 8659 | n = shape(lu,0)lu_Dims[0]; | |||
| 8660 | /* Processing variable lda */ | |||
| 8661 | lda = MAX(1,shape(lu,0))((1 > lu_Dims[0]) ? (1) : (lu_Dims[0])); | |||
| 8662 | /* Processing variable rhs */ | |||
| 8663 | capi_rhs_intent |= (capi_overwrite_rhs?0:F2PY_INTENT_COPY32); | |||
| 8664 | rhs_Dims[0]=n; | |||
| 8665 | capi_rhs_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 8666 | capi_rhs_tmp = array_from_pyobj(NPY_CDOUBLE,rhs_Dims,rhs_Rank,capi_rhs_intent,rhs_capi); | |||
| 8667 | if (capi_rhs_tmp == NULL((void*)0)) { | |||
| 8668 | if (!PyErr_Occurred()) | |||
| 8669 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `rhs' of _flapack.zgesc2 to C/Fortran array" ); | |||
| 8670 | } else { | |||
| 8671 | rhs = (complex_double *)(PyArray_DATA(capi_rhs_tmp)((void *)((PyArrayObject_fields *)(capi_rhs_tmp))->data)); | |||
| 8672 | ||||
| 8673 | CHECKARRAY(shape(lu,0)==len(rhs),"shape(lu,0)==len(rhs)","2nd argument rhs")if (!(lu_Dims[0]==rhs_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==len(rhs)"") failed for ""2nd argument rhs") ; } else { | |||
| 8674 | /* Processing variable ipiv */ | |||
| 8675 | ipiv_Dims[0]=n; | |||
| 8676 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 8677 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 8678 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 8679 | if (!PyErr_Occurred()) | |||
| 8680 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ipiv' of _flapack.zgesc2 to C/Fortran array" ); | |||
| 8681 | } else { | |||
| 8682 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 8683 | ||||
| 8684 | /* Processing variable jpiv */ | |||
| 8685 | jpiv_Dims[0]=n; | |||
| 8686 | capi_jpiv_intent |= F2PY_INTENT_IN1; | |||
| 8687 | capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,jpiv_capi); | |||
| 8688 | if (capi_jpiv_tmp == NULL((void*)0)) { | |||
| 8689 | if (!PyErr_Occurred()) | |||
| 8690 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `jpiv' of _flapack.zgesc2 to C/Fortran array" ); | |||
| 8691 | } else { | |||
| 8692 | jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data)); | |||
| 8693 | ||||
| 8694 | /*end of frompyobj*/ | |||
| 8695 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8696 | f2py_start_call_clock(); | |||
| 8697 | #endif | |||
| 8698 | /*callfortranroutine*/ | |||
| 8699 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 8700 | {F_INTint i;for(i=0;i<n;++ipiv[i],++jpiv[i++]);(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ; | |||
| 8701 | /*(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);*/ | |||
| 8702 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 8703 | if (PyErr_Occurred()) | |||
| 8704 | f2py_success = 0; | |||
| 8705 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8706 | f2py_stop_call_clock(); | |||
| 8707 | #endif | |||
| 8708 | /*end of callfortranroutine*/ | |||
| 8709 | if (f2py_success) { | |||
| 8710 | /*pyobjfrom*/ | |||
| 8711 | /*end of pyobjfrom*/ | |||
| 8712 | CFUNCSMESS("Building return value.\n"); | |||
| 8713 | capi_buildvalue = Py_BuildValue("Nd",capi_rhs_tmp,scale); | |||
| 8714 | /*closepyobjfrom*/ | |||
| 8715 | /*end of closepyobjfrom*/ | |||
| 8716 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 8717 | /*cleanupfrompyobj*/ | |||
| 8718 | if((PyObject *)capi_jpiv_tmp!=jpiv_capi) { | |||
| 8719 | Py_XDECREF(capi_jpiv_tmp)_Py_XDECREF(((PyObject*)(capi_jpiv_tmp))); } | |||
| 8720 | } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/ | |||
| 8721 | /* End of cleaning variable jpiv */ | |||
| 8722 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 8723 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 8724 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 8725 | /* End of cleaning variable ipiv */ | |||
| 8726 | } /*CHECKARRAY(shape(lu,0)==len(rhs))*/ | |||
| 8727 | } /*if (capi_rhs_tmp == NULL) ... else of rhs*/ | |||
| 8728 | /* End of cleaning variable rhs */ | |||
| 8729 | /* End of cleaning variable lda */ | |||
| 8730 | /* End of cleaning variable n */ | |||
| 8731 | /* End of cleaning variable scale */ | |||
| 8732 | } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/ | |||
| 8733 | if((PyObject *)capi_lu_tmp!=lu_capi) { | |||
| 8734 | Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); } | |||
| 8735 | } /*if (capi_lu_tmp == NULL) ... else of lu*/ | |||
| 8736 | /* End of cleaning variable lu */ | |||
| 8737 | /*end of cleanupfrompyobj*/ | |||
| 8738 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 8739 | /*routdebugfailure*/ | |||
| 8740 | } else { | |||
| 8741 | /*routdebugleave*/ | |||
| 8742 | } | |||
| 8743 | CFUNCSMESS("Freeing memory.\n"); | |||
| 8744 | /*freemem*/ | |||
| 8745 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8746 | f2py_stop_clock(); | |||
| 8747 | #endif | |||
| 8748 | return capi_buildvalue; | |||
| 8749 | } | |||
| 8750 | /******************************* end of zgesc2 *******************************/ | |||
| 8751 | ||||
| 8752 | /*********************************** sgetri ***********************************/ | |||
| 8753 | static char doc_f2py_rout__flapack_sgetri[] = "\ | |||
| 8754 | inv_a,info = sgetri(lu,piv,[lwork,overwrite_lu])\n\nWrapper for ``sgetri``.\ | |||
| 8755 | \n\nParameters\n----------\n" | |||
| 8756 | "lu : input rank-2 array('f') with bounds (n,n)\n" | |||
| 8757 | "piv : input rank-1 array('i') with bounds (n)\n" | |||
| 8758 | "\nOther Parameters\n----------------\n" | |||
| 8759 | "overwrite_lu : input int, optional\n Default: 0\n" | |||
| 8760 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 8761 | "\nReturns\n-------\n" | |||
| 8762 | "inv_a : rank-2 array('f') with bounds (n,n) and lu storage\n" | |||
| 8763 | "info : int"; | |||
| 8764 | /* extern void F_FUNC(sgetri,SGETRI)(F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 8765 | static PyObject *f2py_rout__flapack_sgetri(const PyObject *capi_self, | |||
| 8766 | PyObject *capi_args, | |||
| 8767 | PyObject *capi_keywds, | |||
| 8768 | void (*f2py_func)(F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 8769 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 8770 | volatile int f2py_success = 1; | |||
| 8771 | /*decl*/ | |||
| 8772 | ||||
| 8773 | int n = 0; | |||
| 8774 | float *lu = NULL((void*)0); | |||
| 8775 | npy_intp lu_Dims[2] = {-1, -1}; | |||
| 8776 | const int lu_Rank = 2; | |||
| 8777 | PyArrayObject *capi_lu_tmp = NULL((void*)0); | |||
| 8778 | int capi_lu_intent = 0; | |||
| 8779 | int capi_overwrite_lu = 0; | |||
| 8780 | PyObject *lu_capi = Py_None(&_Py_NoneStruct); | |||
| 8781 | int *piv = NULL((void*)0); | |||
| 8782 | npy_intp piv_Dims[1] = {-1}; | |||
| 8783 | const int piv_Rank = 1; | |||
| 8784 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 8785 | int capi_piv_intent = 0; | |||
| 8786 | PyObject *piv_capi = Py_None(&_Py_NoneStruct); | |||
| 8787 | float *work = NULL((void*)0); | |||
| 8788 | npy_intp work_Dims[1] = {-1}; | |||
| 8789 | const int work_Rank = 1; | |||
| 8790 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 8791 | int capi_work_intent = 0; | |||
| 8792 | int lwork = 0; | |||
| 8793 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 8794 | int info = 0; | |||
| 8795 | static char *capi_kwlist[] = {"lu","piv","lwork","overwrite_lu",NULL((void*)0)}; | |||
| 8796 | ||||
| 8797 | /*routdebugenter*/ | |||
| 8798 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8799 | f2py_start_clock(); | |||
| 8800 | #endif | |||
| 8801 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 8802 | "OO|Oi:_flapack.sgetri",\ | |||
| 8803 | capi_kwlist,&lu_capi,&piv_capi,&lwork_capi,&capi_overwrite_lu)) | |||
| 8804 | return NULL((void*)0); | |||
| 8805 | /*frompyobj*/ | |||
| 8806 | /* Processing variable lu */ | |||
| 8807 | capi_lu_intent |= (capi_overwrite_lu?0:F2PY_INTENT_COPY32); | |||
| 8808 | ; | |||
| 8809 | capi_lu_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 8810 | capi_lu_tmp = array_from_pyobj(NPY_FLOAT,lu_Dims,lu_Rank,capi_lu_intent,lu_capi); | |||
| 8811 | if (capi_lu_tmp == NULL((void*)0)) { | |||
| 8812 | if (!PyErr_Occurred()) | |||
| 8813 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.sgetri to C/Fortran array" ); | |||
| 8814 | } else { | |||
| 8815 | lu = (float *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data)); | |||
| 8816 | ||||
| 8817 | CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu" ); } else { | |||
| 8818 | /* Processing variable info */ | |||
| 8819 | /* Processing variable n */ | |||
| 8820 | n = shape(lu,0)lu_Dims[0]; | |||
| 8821 | /* Processing variable piv */ | |||
| 8822 | piv_Dims[0]=n; | |||
| 8823 | capi_piv_intent |= F2PY_INTENT_IN1; | |||
| 8824 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi); | |||
| 8825 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 8826 | if (!PyErr_Occurred()) | |||
| 8827 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.sgetri to C/Fortran array" ); | |||
| 8828 | } else { | |||
| 8829 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 8830 | ||||
| 8831 | /* Processing variable lwork */ | |||
| 8832 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 8833 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgetri() 1st keyword (lwork) can't be converted to int"); | |||
| 8834 | if (f2py_success) { | |||
| 8835 | CHECKSCALAR(lwork>=n,"lwork>=n","1st keyword lwork","sgetri:lwork=%d",lwork)if (!(lwork>=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgetri:lwork=%d", "(""lwork>=n"") failed for ""1st keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 8836 | /* Processing variable work */ | |||
| 8837 | work_Dims[0]=lwork; | |||
| 8838 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 8839 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 8840 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 8841 | if (!PyErr_Occurred()) | |||
| 8842 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgetri to C/Fortran array" ); | |||
| 8843 | } else { | |||
| 8844 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 8845 | ||||
| 8846 | /*end of frompyobj*/ | |||
| 8847 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8848 | f2py_start_call_clock(); | |||
| 8849 | #endif | |||
| 8850 | /*callfortranroutine*/ | |||
| 8851 | {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)(&n,lu,&n,piv,work,&lwork,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 8852 | /*(*f2py_func)(&n,lu,piv,work,&lwork,&info);*/ | |||
| 8853 | if (PyErr_Occurred()) | |||
| 8854 | f2py_success = 0; | |||
| 8855 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8856 | f2py_stop_call_clock(); | |||
| 8857 | #endif | |||
| 8858 | /*end of callfortranroutine*/ | |||
| 8859 | if (f2py_success) { | |||
| 8860 | /*pyobjfrom*/ | |||
| 8861 | /*end of pyobjfrom*/ | |||
| 8862 | CFUNCSMESS("Building return value.\n"); | |||
| 8863 | capi_buildvalue = Py_BuildValue("Ni",capi_lu_tmp,info); | |||
| 8864 | /*closepyobjfrom*/ | |||
| 8865 | /*end of closepyobjfrom*/ | |||
| 8866 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 8867 | /*cleanupfrompyobj*/ | |||
| 8868 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 8869 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 8870 | /* End of cleaning variable work */ | |||
| 8871 | } /*CHECKSCALAR(lwork>=n)*/ | |||
| 8872 | } /*if (f2py_success) of lwork*/ | |||
| 8873 | /* End of cleaning variable lwork */ | |||
| 8874 | if((PyObject *)capi_piv_tmp!=piv_capi) { | |||
| 8875 | Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); } | |||
| 8876 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 8877 | /* End of cleaning variable piv */ | |||
| 8878 | /* End of cleaning variable n */ | |||
| 8879 | /* End of cleaning variable info */ | |||
| 8880 | } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/ | |||
| 8881 | } /*if (capi_lu_tmp == NULL) ... else of lu*/ | |||
| 8882 | /* End of cleaning variable lu */ | |||
| 8883 | /*end of cleanupfrompyobj*/ | |||
| 8884 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 8885 | /*routdebugfailure*/ | |||
| 8886 | } else { | |||
| 8887 | /*routdebugleave*/ | |||
| 8888 | } | |||
| 8889 | CFUNCSMESS("Freeing memory.\n"); | |||
| 8890 | /*freemem*/ | |||
| 8891 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8892 | f2py_stop_clock(); | |||
| 8893 | #endif | |||
| 8894 | return capi_buildvalue; | |||
| 8895 | } | |||
| 8896 | /******************************* end of sgetri *******************************/ | |||
| 8897 | ||||
| 8898 | /*********************************** dgetri ***********************************/ | |||
| 8899 | static char doc_f2py_rout__flapack_dgetri[] = "\ | |||
| 8900 | inv_a,info = dgetri(lu,piv,[lwork,overwrite_lu])\n\nWrapper for ``dgetri``.\ | |||
| 8901 | \n\nParameters\n----------\n" | |||
| 8902 | "lu : input rank-2 array('d') with bounds (n,n)\n" | |||
| 8903 | "piv : input rank-1 array('i') with bounds (n)\n" | |||
| 8904 | "\nOther Parameters\n----------------\n" | |||
| 8905 | "overwrite_lu : input int, optional\n Default: 0\n" | |||
| 8906 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 8907 | "\nReturns\n-------\n" | |||
| 8908 | "inv_a : rank-2 array('d') with bounds (n,n) and lu storage\n" | |||
| 8909 | "info : int"; | |||
| 8910 | /* extern void F_FUNC(dgetri,DGETRI)(F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 8911 | static PyObject *f2py_rout__flapack_dgetri(const PyObject *capi_self, | |||
| 8912 | PyObject *capi_args, | |||
| 8913 | PyObject *capi_keywds, | |||
| 8914 | void (*f2py_func)(F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 8915 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 8916 | volatile int f2py_success = 1; | |||
| 8917 | /*decl*/ | |||
| 8918 | ||||
| 8919 | int n = 0; | |||
| 8920 | double *lu = NULL((void*)0); | |||
| 8921 | npy_intp lu_Dims[2] = {-1, -1}; | |||
| 8922 | const int lu_Rank = 2; | |||
| 8923 | PyArrayObject *capi_lu_tmp = NULL((void*)0); | |||
| 8924 | int capi_lu_intent = 0; | |||
| 8925 | int capi_overwrite_lu = 0; | |||
| 8926 | PyObject *lu_capi = Py_None(&_Py_NoneStruct); | |||
| 8927 | int *piv = NULL((void*)0); | |||
| 8928 | npy_intp piv_Dims[1] = {-1}; | |||
| 8929 | const int piv_Rank = 1; | |||
| 8930 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 8931 | int capi_piv_intent = 0; | |||
| 8932 | PyObject *piv_capi = Py_None(&_Py_NoneStruct); | |||
| 8933 | double *work = NULL((void*)0); | |||
| 8934 | npy_intp work_Dims[1] = {-1}; | |||
| 8935 | const int work_Rank = 1; | |||
| 8936 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 8937 | int capi_work_intent = 0; | |||
| 8938 | int lwork = 0; | |||
| 8939 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 8940 | int info = 0; | |||
| 8941 | static char *capi_kwlist[] = {"lu","piv","lwork","overwrite_lu",NULL((void*)0)}; | |||
| 8942 | ||||
| 8943 | /*routdebugenter*/ | |||
| 8944 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8945 | f2py_start_clock(); | |||
| 8946 | #endif | |||
| 8947 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 8948 | "OO|Oi:_flapack.dgetri",\ | |||
| 8949 | capi_kwlist,&lu_capi,&piv_capi,&lwork_capi,&capi_overwrite_lu)) | |||
| 8950 | return NULL((void*)0); | |||
| 8951 | /*frompyobj*/ | |||
| 8952 | /* Processing variable lu */ | |||
| 8953 | capi_lu_intent |= (capi_overwrite_lu?0:F2PY_INTENT_COPY32); | |||
| 8954 | ; | |||
| 8955 | capi_lu_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 8956 | capi_lu_tmp = array_from_pyobj(NPY_DOUBLE,lu_Dims,lu_Rank,capi_lu_intent,lu_capi); | |||
| 8957 | if (capi_lu_tmp == NULL((void*)0)) { | |||
| 8958 | if (!PyErr_Occurred()) | |||
| 8959 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.dgetri to C/Fortran array" ); | |||
| 8960 | } else { | |||
| 8961 | lu = (double *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data)); | |||
| 8962 | ||||
| 8963 | CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu" ); } else { | |||
| 8964 | /* Processing variable info */ | |||
| 8965 | /* Processing variable n */ | |||
| 8966 | n = shape(lu,0)lu_Dims[0]; | |||
| 8967 | /* Processing variable piv */ | |||
| 8968 | piv_Dims[0]=n; | |||
| 8969 | capi_piv_intent |= F2PY_INTENT_IN1; | |||
| 8970 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi); | |||
| 8971 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 8972 | if (!PyErr_Occurred()) | |||
| 8973 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.dgetri to C/Fortran array" ); | |||
| 8974 | } else { | |||
| 8975 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 8976 | ||||
| 8977 | /* Processing variable lwork */ | |||
| 8978 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 8979 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgetri() 1st keyword (lwork) can't be converted to int"); | |||
| 8980 | if (f2py_success) { | |||
| 8981 | CHECKSCALAR(lwork>=n,"lwork>=n","1st keyword lwork","dgetri:lwork=%d",lwork)if (!(lwork>=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgetri:lwork=%d", "(""lwork>=n"") failed for ""1st keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 8982 | /* Processing variable work */ | |||
| 8983 | work_Dims[0]=lwork; | |||
| 8984 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 8985 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 8986 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 8987 | if (!PyErr_Occurred()) | |||
| 8988 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgetri to C/Fortran array" ); | |||
| 8989 | } else { | |||
| 8990 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 8991 | ||||
| 8992 | /*end of frompyobj*/ | |||
| 8993 | #ifdef F2PY_REPORT_ATEXIT | |||
| 8994 | f2py_start_call_clock(); | |||
| 8995 | #endif | |||
| 8996 | /*callfortranroutine*/ | |||
| 8997 | {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)(&n,lu,&n,piv,work,&lwork,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 8998 | /*(*f2py_func)(&n,lu,piv,work,&lwork,&info);*/ | |||
| 8999 | if (PyErr_Occurred()) | |||
| 9000 | f2py_success = 0; | |||
| 9001 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9002 | f2py_stop_call_clock(); | |||
| 9003 | #endif | |||
| 9004 | /*end of callfortranroutine*/ | |||
| 9005 | if (f2py_success) { | |||
| 9006 | /*pyobjfrom*/ | |||
| 9007 | /*end of pyobjfrom*/ | |||
| 9008 | CFUNCSMESS("Building return value.\n"); | |||
| 9009 | capi_buildvalue = Py_BuildValue("Ni",capi_lu_tmp,info); | |||
| 9010 | /*closepyobjfrom*/ | |||
| 9011 | /*end of closepyobjfrom*/ | |||
| 9012 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 9013 | /*cleanupfrompyobj*/ | |||
| 9014 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 9015 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 9016 | /* End of cleaning variable work */ | |||
| 9017 | } /*CHECKSCALAR(lwork>=n)*/ | |||
| 9018 | } /*if (f2py_success) of lwork*/ | |||
| 9019 | /* End of cleaning variable lwork */ | |||
| 9020 | if((PyObject *)capi_piv_tmp!=piv_capi) { | |||
| 9021 | Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); } | |||
| 9022 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 9023 | /* End of cleaning variable piv */ | |||
| 9024 | /* End of cleaning variable n */ | |||
| 9025 | /* End of cleaning variable info */ | |||
| 9026 | } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/ | |||
| 9027 | } /*if (capi_lu_tmp == NULL) ... else of lu*/ | |||
| 9028 | /* End of cleaning variable lu */ | |||
| 9029 | /*end of cleanupfrompyobj*/ | |||
| 9030 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 9031 | /*routdebugfailure*/ | |||
| 9032 | } else { | |||
| 9033 | /*routdebugleave*/ | |||
| 9034 | } | |||
| 9035 | CFUNCSMESS("Freeing memory.\n"); | |||
| 9036 | /*freemem*/ | |||
| 9037 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9038 | f2py_stop_clock(); | |||
| 9039 | #endif | |||
| 9040 | return capi_buildvalue; | |||
| 9041 | } | |||
| 9042 | /******************************* end of dgetri *******************************/ | |||
| 9043 | ||||
| 9044 | /*********************************** cgetri ***********************************/ | |||
| 9045 | static char doc_f2py_rout__flapack_cgetri[] = "\ | |||
| 9046 | inv_a,info = cgetri(lu,piv,[lwork,overwrite_lu])\n\nWrapper for ``cgetri``.\ | |||
| 9047 | \n\nParameters\n----------\n" | |||
| 9048 | "lu : input rank-2 array('F') with bounds (n,n)\n" | |||
| 9049 | "piv : input rank-1 array('i') with bounds (n)\n" | |||
| 9050 | "\nOther Parameters\n----------------\n" | |||
| 9051 | "overwrite_lu : input int, optional\n Default: 0\n" | |||
| 9052 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 9053 | "\nReturns\n-------\n" | |||
| 9054 | "inv_a : rank-2 array('F') with bounds (n,n) and lu storage\n" | |||
| 9055 | "info : int"; | |||
| 9056 | /* extern void F_FUNC(cgetri,CGETRI)(F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 9057 | static PyObject *f2py_rout__flapack_cgetri(const PyObject *capi_self, | |||
| 9058 | PyObject *capi_args, | |||
| 9059 | PyObject *capi_keywds, | |||
| 9060 | void (*f2py_func)(F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 9061 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 9062 | volatile int f2py_success = 1; | |||
| 9063 | /*decl*/ | |||
| 9064 | ||||
| 9065 | int n = 0; | |||
| 9066 | complex_float *lu = NULL((void*)0); | |||
| 9067 | npy_intp lu_Dims[2] = {-1, -1}; | |||
| 9068 | const int lu_Rank = 2; | |||
| 9069 | PyArrayObject *capi_lu_tmp = NULL((void*)0); | |||
| 9070 | int capi_lu_intent = 0; | |||
| 9071 | int capi_overwrite_lu = 0; | |||
| 9072 | PyObject *lu_capi = Py_None(&_Py_NoneStruct); | |||
| 9073 | int *piv = NULL((void*)0); | |||
| 9074 | npy_intp piv_Dims[1] = {-1}; | |||
| 9075 | const int piv_Rank = 1; | |||
| 9076 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 9077 | int capi_piv_intent = 0; | |||
| 9078 | PyObject *piv_capi = Py_None(&_Py_NoneStruct); | |||
| 9079 | complex_float *work = NULL((void*)0); | |||
| 9080 | npy_intp work_Dims[1] = {-1}; | |||
| 9081 | const int work_Rank = 1; | |||
| 9082 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 9083 | int capi_work_intent = 0; | |||
| 9084 | int lwork = 0; | |||
| 9085 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 9086 | int info = 0; | |||
| 9087 | static char *capi_kwlist[] = {"lu","piv","lwork","overwrite_lu",NULL((void*)0)}; | |||
| 9088 | ||||
| 9089 | /*routdebugenter*/ | |||
| 9090 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9091 | f2py_start_clock(); | |||
| 9092 | #endif | |||
| 9093 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 9094 | "OO|Oi:_flapack.cgetri",\ | |||
| 9095 | capi_kwlist,&lu_capi,&piv_capi,&lwork_capi,&capi_overwrite_lu)) | |||
| 9096 | return NULL((void*)0); | |||
| 9097 | /*frompyobj*/ | |||
| 9098 | /* Processing variable lu */ | |||
| 9099 | capi_lu_intent |= (capi_overwrite_lu?0:F2PY_INTENT_COPY32); | |||
| 9100 | ; | |||
| 9101 | capi_lu_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 9102 | capi_lu_tmp = array_from_pyobj(NPY_CFLOAT,lu_Dims,lu_Rank,capi_lu_intent,lu_capi); | |||
| 9103 | if (capi_lu_tmp == NULL((void*)0)) { | |||
| 9104 | if (!PyErr_Occurred()) | |||
| 9105 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.cgetri to C/Fortran array" ); | |||
| 9106 | } else { | |||
| 9107 | lu = (complex_float *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data)); | |||
| 9108 | ||||
| 9109 | CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu" ); } else { | |||
| 9110 | /* Processing variable info */ | |||
| 9111 | /* Processing variable n */ | |||
| 9112 | n = shape(lu,0)lu_Dims[0]; | |||
| 9113 | /* Processing variable piv */ | |||
| 9114 | piv_Dims[0]=n; | |||
| 9115 | capi_piv_intent |= F2PY_INTENT_IN1; | |||
| 9116 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi); | |||
| 9117 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 9118 | if (!PyErr_Occurred()) | |||
| 9119 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.cgetri to C/Fortran array" ); | |||
| 9120 | } else { | |||
| 9121 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 9122 | ||||
| 9123 | /* Processing variable lwork */ | |||
| 9124 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 9125 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgetri() 1st keyword (lwork) can't be converted to int"); | |||
| 9126 | if (f2py_success) { | |||
| 9127 | CHECKSCALAR(lwork>=n,"lwork>=n","1st keyword lwork","cgetri:lwork=%d",lwork)if (!(lwork>=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgetri:lwork=%d", "(""lwork>=n"") failed for ""1st keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 9128 | /* Processing variable work */ | |||
| 9129 | work_Dims[0]=lwork; | |||
| 9130 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 9131 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 9132 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 9133 | if (!PyErr_Occurred()) | |||
| 9134 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgetri to C/Fortran array" ); | |||
| 9135 | } else { | |||
| 9136 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 9137 | ||||
| 9138 | /*end of frompyobj*/ | |||
| 9139 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9140 | f2py_start_call_clock(); | |||
| 9141 | #endif | |||
| 9142 | /*callfortranroutine*/ | |||
| 9143 | {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)(&n,lu,&n,piv,work,&lwork,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 9144 | /*(*f2py_func)(&n,lu,piv,work,&lwork,&info);*/ | |||
| 9145 | if (PyErr_Occurred()) | |||
| 9146 | f2py_success = 0; | |||
| 9147 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9148 | f2py_stop_call_clock(); | |||
| 9149 | #endif | |||
| 9150 | /*end of callfortranroutine*/ | |||
| 9151 | if (f2py_success) { | |||
| 9152 | /*pyobjfrom*/ | |||
| 9153 | /*end of pyobjfrom*/ | |||
| 9154 | CFUNCSMESS("Building return value.\n"); | |||
| 9155 | capi_buildvalue = Py_BuildValue("Ni",capi_lu_tmp,info); | |||
| 9156 | /*closepyobjfrom*/ | |||
| 9157 | /*end of closepyobjfrom*/ | |||
| 9158 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 9159 | /*cleanupfrompyobj*/ | |||
| 9160 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 9161 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 9162 | /* End of cleaning variable work */ | |||
| 9163 | } /*CHECKSCALAR(lwork>=n)*/ | |||
| 9164 | } /*if (f2py_success) of lwork*/ | |||
| 9165 | /* End of cleaning variable lwork */ | |||
| 9166 | if((PyObject *)capi_piv_tmp!=piv_capi) { | |||
| 9167 | Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); } | |||
| 9168 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 9169 | /* End of cleaning variable piv */ | |||
| 9170 | /* End of cleaning variable n */ | |||
| 9171 | /* End of cleaning variable info */ | |||
| 9172 | } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/ | |||
| 9173 | } /*if (capi_lu_tmp == NULL) ... else of lu*/ | |||
| 9174 | /* End of cleaning variable lu */ | |||
| 9175 | /*end of cleanupfrompyobj*/ | |||
| 9176 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 9177 | /*routdebugfailure*/ | |||
| 9178 | } else { | |||
| 9179 | /*routdebugleave*/ | |||
| 9180 | } | |||
| 9181 | CFUNCSMESS("Freeing memory.\n"); | |||
| 9182 | /*freemem*/ | |||
| 9183 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9184 | f2py_stop_clock(); | |||
| 9185 | #endif | |||
| 9186 | return capi_buildvalue; | |||
| 9187 | } | |||
| 9188 | /******************************* end of cgetri *******************************/ | |||
| 9189 | ||||
| 9190 | /*********************************** zgetri ***********************************/ | |||
| 9191 | static char doc_f2py_rout__flapack_zgetri[] = "\ | |||
| 9192 | inv_a,info = zgetri(lu,piv,[lwork,overwrite_lu])\n\nWrapper for ``zgetri``.\ | |||
| 9193 | \n\nParameters\n----------\n" | |||
| 9194 | "lu : input rank-2 array('D') with bounds (n,n)\n" | |||
| 9195 | "piv : input rank-1 array('i') with bounds (n)\n" | |||
| 9196 | "\nOther Parameters\n----------------\n" | |||
| 9197 | "overwrite_lu : input int, optional\n Default: 0\n" | |||
| 9198 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 9199 | "\nReturns\n-------\n" | |||
| 9200 | "inv_a : rank-2 array('D') with bounds (n,n) and lu storage\n" | |||
| 9201 | "info : int"; | |||
| 9202 | /* extern void F_FUNC(zgetri,ZGETRI)(F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 9203 | static PyObject *f2py_rout__flapack_zgetri(const PyObject *capi_self, | |||
| 9204 | PyObject *capi_args, | |||
| 9205 | PyObject *capi_keywds, | |||
| 9206 | void (*f2py_func)(F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 9207 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 9208 | volatile int f2py_success = 1; | |||
| 9209 | /*decl*/ | |||
| 9210 | ||||
| 9211 | int n = 0; | |||
| 9212 | complex_double *lu = NULL((void*)0); | |||
| 9213 | npy_intp lu_Dims[2] = {-1, -1}; | |||
| 9214 | const int lu_Rank = 2; | |||
| 9215 | PyArrayObject *capi_lu_tmp = NULL((void*)0); | |||
| 9216 | int capi_lu_intent = 0; | |||
| 9217 | int capi_overwrite_lu = 0; | |||
| 9218 | PyObject *lu_capi = Py_None(&_Py_NoneStruct); | |||
| 9219 | int *piv = NULL((void*)0); | |||
| 9220 | npy_intp piv_Dims[1] = {-1}; | |||
| 9221 | const int piv_Rank = 1; | |||
| 9222 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 9223 | int capi_piv_intent = 0; | |||
| 9224 | PyObject *piv_capi = Py_None(&_Py_NoneStruct); | |||
| 9225 | complex_double *work = NULL((void*)0); | |||
| 9226 | npy_intp work_Dims[1] = {-1}; | |||
| 9227 | const int work_Rank = 1; | |||
| 9228 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 9229 | int capi_work_intent = 0; | |||
| 9230 | int lwork = 0; | |||
| 9231 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 9232 | int info = 0; | |||
| 9233 | static char *capi_kwlist[] = {"lu","piv","lwork","overwrite_lu",NULL((void*)0)}; | |||
| 9234 | ||||
| 9235 | /*routdebugenter*/ | |||
| 9236 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9237 | f2py_start_clock(); | |||
| 9238 | #endif | |||
| 9239 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 9240 | "OO|Oi:_flapack.zgetri",\ | |||
| 9241 | capi_kwlist,&lu_capi,&piv_capi,&lwork_capi,&capi_overwrite_lu)) | |||
| 9242 | return NULL((void*)0); | |||
| 9243 | /*frompyobj*/ | |||
| 9244 | /* Processing variable lu */ | |||
| 9245 | capi_lu_intent |= (capi_overwrite_lu?0:F2PY_INTENT_COPY32); | |||
| 9246 | ; | |||
| 9247 | capi_lu_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 9248 | capi_lu_tmp = array_from_pyobj(NPY_CDOUBLE,lu_Dims,lu_Rank,capi_lu_intent,lu_capi); | |||
| 9249 | if (capi_lu_tmp == NULL((void*)0)) { | |||
| 9250 | if (!PyErr_Occurred()) | |||
| 9251 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.zgetri to C/Fortran array" ); | |||
| 9252 | } else { | |||
| 9253 | lu = (complex_double *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data)); | |||
| 9254 | ||||
| 9255 | CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu" ); } else { | |||
| 9256 | /* Processing variable info */ | |||
| 9257 | /* Processing variable n */ | |||
| 9258 | n = shape(lu,0)lu_Dims[0]; | |||
| 9259 | /* Processing variable piv */ | |||
| 9260 | piv_Dims[0]=n; | |||
| 9261 | capi_piv_intent |= F2PY_INTENT_IN1; | |||
| 9262 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi); | |||
| 9263 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 9264 | if (!PyErr_Occurred()) | |||
| 9265 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.zgetri to C/Fortran array" ); | |||
| 9266 | } else { | |||
| 9267 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 9268 | ||||
| 9269 | /* Processing variable lwork */ | |||
| 9270 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 9271 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgetri() 1st keyword (lwork) can't be converted to int"); | |||
| 9272 | if (f2py_success) { | |||
| 9273 | CHECKSCALAR(lwork>=n,"lwork>=n","1st keyword lwork","zgetri:lwork=%d",lwork)if (!(lwork>=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgetri:lwork=%d", "(""lwork>=n"") failed for ""1st keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 9274 | /* Processing variable work */ | |||
| 9275 | work_Dims[0]=lwork; | |||
| 9276 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 9277 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 9278 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 9279 | if (!PyErr_Occurred()) | |||
| 9280 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgetri to C/Fortran array" ); | |||
| 9281 | } else { | |||
| 9282 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 9283 | ||||
| 9284 | /*end of frompyobj*/ | |||
| 9285 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9286 | f2py_start_call_clock(); | |||
| 9287 | #endif | |||
| 9288 | /*callfortranroutine*/ | |||
| 9289 | {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)(&n,lu,&n,piv,work,&lwork,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 9290 | /*(*f2py_func)(&n,lu,piv,work,&lwork,&info);*/ | |||
| 9291 | if (PyErr_Occurred()) | |||
| 9292 | f2py_success = 0; | |||
| 9293 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9294 | f2py_stop_call_clock(); | |||
| 9295 | #endif | |||
| 9296 | /*end of callfortranroutine*/ | |||
| 9297 | if (f2py_success) { | |||
| 9298 | /*pyobjfrom*/ | |||
| 9299 | /*end of pyobjfrom*/ | |||
| 9300 | CFUNCSMESS("Building return value.\n"); | |||
| 9301 | capi_buildvalue = Py_BuildValue("Ni",capi_lu_tmp,info); | |||
| 9302 | /*closepyobjfrom*/ | |||
| 9303 | /*end of closepyobjfrom*/ | |||
| 9304 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 9305 | /*cleanupfrompyobj*/ | |||
| 9306 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 9307 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 9308 | /* End of cleaning variable work */ | |||
| 9309 | } /*CHECKSCALAR(lwork>=n)*/ | |||
| 9310 | } /*if (f2py_success) of lwork*/ | |||
| 9311 | /* End of cleaning variable lwork */ | |||
| 9312 | if((PyObject *)capi_piv_tmp!=piv_capi) { | |||
| 9313 | Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); } | |||
| 9314 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 9315 | /* End of cleaning variable piv */ | |||
| 9316 | /* End of cleaning variable n */ | |||
| 9317 | /* End of cleaning variable info */ | |||
| 9318 | } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/ | |||
| 9319 | } /*if (capi_lu_tmp == NULL) ... else of lu*/ | |||
| 9320 | /* End of cleaning variable lu */ | |||
| 9321 | /*end of cleanupfrompyobj*/ | |||
| 9322 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 9323 | /*routdebugfailure*/ | |||
| 9324 | } else { | |||
| 9325 | /*routdebugleave*/ | |||
| 9326 | } | |||
| 9327 | CFUNCSMESS("Freeing memory.\n"); | |||
| 9328 | /*freemem*/ | |||
| 9329 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9330 | f2py_stop_clock(); | |||
| 9331 | #endif | |||
| 9332 | return capi_buildvalue; | |||
| 9333 | } | |||
| 9334 | /******************************* end of zgetri *******************************/ | |||
| 9335 | ||||
| 9336 | /******************************** sgetri_lwork ********************************/ | |||
| 9337 | static char doc_f2py_rout__flapack_sgetri_lwork[] = "\ | |||
| 9338 | work,info = sgetri_lwork(n)\n\nWrapper for ``sgetri_lwork``.\ | |||
| 9339 | \n\nParameters\n----------\n" | |||
| 9340 | "n : input int\n" | |||
| 9341 | "\nReturns\n-------\n" | |||
| 9342 | "work : float\n" | |||
| 9343 | "info : int"; | |||
| 9344 | /* extern void F_FUNC(sgetri ,SGETRI )(F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 9345 | static PyObject *f2py_rout__flapack_sgetri_lwork(const PyObject *capi_self, | |||
| 9346 | PyObject *capi_args, | |||
| 9347 | PyObject *capi_keywds, | |||
| 9348 | void (*f2py_func)(F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 9349 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 9350 | volatile int f2py_success = 1; | |||
| 9351 | /*decl*/ | |||
| 9352 | ||||
| 9353 | int n = 0; | |||
| 9354 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 9355 | float lu = 0; | |||
| 9356 | int piv = 0; | |||
| 9357 | float work = 0; | |||
| 9358 | int lwork = 0; | |||
| 9359 | int info = 0; | |||
| 9360 | static char *capi_kwlist[] = {"n",NULL((void*)0)}; | |||
| 9361 | ||||
| 9362 | /*routdebugenter*/ | |||
| 9363 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9364 | f2py_start_clock(); | |||
| 9365 | #endif | |||
| 9366 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 9367 | "O:_flapack.sgetri_lwork",\ | |||
| 9368 | capi_kwlist,&n_capi)) | |||
| 9369 | return NULL((void*)0); | |||
| 9370 | /*frompyobj*/ | |||
| 9371 | /* Processing variable n */ | |||
| 9372 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgetri_lwork() 1st argument (n) can't be converted to int"); | |||
| 9373 | if (f2py_success) { | |||
| 9374 | /* Processing variable lu */ | |||
| 9375 | /* Processing variable piv */ | |||
| 9376 | /* Processing variable info */ | |||
| 9377 | /* Processing variable lwork */ | |||
| 9378 | lwork = -1; | |||
| 9379 | /* Processing variable work */ | |||
| 9380 | /*end of frompyobj*/ | |||
| 9381 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9382 | f2py_start_call_clock(); | |||
| 9383 | #endif | |||
| 9384 | /*callfortranroutine*/ | |||
| 9385 | (*f2py_func)(&n,&lu,&n,&piv,&work,&lwork,&info) ; | |||
| 9386 | /*(*f2py_func)(&n,&lu,&piv,&work,&lwork,&info);*/ | |||
| 9387 | if (PyErr_Occurred()) | |||
| 9388 | f2py_success = 0; | |||
| 9389 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9390 | f2py_stop_call_clock(); | |||
| 9391 | #endif | |||
| 9392 | /*end of callfortranroutine*/ | |||
| 9393 | if (f2py_success) { | |||
| 9394 | /*pyobjfrom*/ | |||
| 9395 | /*end of pyobjfrom*/ | |||
| 9396 | CFUNCSMESS("Building return value.\n"); | |||
| 9397 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 9398 | /*closepyobjfrom*/ | |||
| 9399 | /*end of closepyobjfrom*/ | |||
| 9400 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 9401 | /*cleanupfrompyobj*/ | |||
| 9402 | /* End of cleaning variable work */ | |||
| 9403 | /* End of cleaning variable lwork */ | |||
| 9404 | /* End of cleaning variable info */ | |||
| 9405 | /* End of cleaning variable piv */ | |||
| 9406 | /* End of cleaning variable lu */ | |||
| 9407 | } /*if (f2py_success) of n*/ | |||
| 9408 | /* End of cleaning variable n */ | |||
| 9409 | /*end of cleanupfrompyobj*/ | |||
| 9410 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 9411 | /*routdebugfailure*/ | |||
| 9412 | } else { | |||
| 9413 | /*routdebugleave*/ | |||
| 9414 | } | |||
| 9415 | CFUNCSMESS("Freeing memory.\n"); | |||
| 9416 | /*freemem*/ | |||
| 9417 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9418 | f2py_stop_clock(); | |||
| 9419 | #endif | |||
| 9420 | return capi_buildvalue; | |||
| 9421 | } | |||
| 9422 | /**************************** end of sgetri_lwork ****************************/ | |||
| 9423 | ||||
| 9424 | /******************************** dgetri_lwork ********************************/ | |||
| 9425 | static char doc_f2py_rout__flapack_dgetri_lwork[] = "\ | |||
| 9426 | work,info = dgetri_lwork(n)\n\nWrapper for ``dgetri_lwork``.\ | |||
| 9427 | \n\nParameters\n----------\n" | |||
| 9428 | "n : input int\n" | |||
| 9429 | "\nReturns\n-------\n" | |||
| 9430 | "work : float\n" | |||
| 9431 | "info : int"; | |||
| 9432 | /* extern void F_FUNC(dgetri ,DGETRI )(F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 9433 | static PyObject *f2py_rout__flapack_dgetri_lwork(const PyObject *capi_self, | |||
| 9434 | PyObject *capi_args, | |||
| 9435 | PyObject *capi_keywds, | |||
| 9436 | void (*f2py_func)(F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 9437 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 9438 | volatile int f2py_success = 1; | |||
| 9439 | /*decl*/ | |||
| 9440 | ||||
| 9441 | int n = 0; | |||
| 9442 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 9443 | double lu = 0; | |||
| 9444 | int piv = 0; | |||
| 9445 | double work = 0; | |||
| 9446 | int lwork = 0; | |||
| 9447 | int info = 0; | |||
| 9448 | static char *capi_kwlist[] = {"n",NULL((void*)0)}; | |||
| 9449 | ||||
| 9450 | /*routdebugenter*/ | |||
| 9451 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9452 | f2py_start_clock(); | |||
| 9453 | #endif | |||
| 9454 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 9455 | "O:_flapack.dgetri_lwork",\ | |||
| 9456 | capi_kwlist,&n_capi)) | |||
| 9457 | return NULL((void*)0); | |||
| 9458 | /*frompyobj*/ | |||
| 9459 | /* Processing variable n */ | |||
| 9460 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgetri_lwork() 1st argument (n) can't be converted to int"); | |||
| 9461 | if (f2py_success) { | |||
| 9462 | /* Processing variable lu */ | |||
| 9463 | /* Processing variable piv */ | |||
| 9464 | /* Processing variable info */ | |||
| 9465 | /* Processing variable lwork */ | |||
| 9466 | lwork = -1; | |||
| 9467 | /* Processing variable work */ | |||
| 9468 | /*end of frompyobj*/ | |||
| 9469 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9470 | f2py_start_call_clock(); | |||
| 9471 | #endif | |||
| 9472 | /*callfortranroutine*/ | |||
| 9473 | (*f2py_func)(&n,&lu,&n,&piv,&work,&lwork,&info) ; | |||
| 9474 | /*(*f2py_func)(&n,&lu,&piv,&work,&lwork,&info);*/ | |||
| 9475 | if (PyErr_Occurred()) | |||
| 9476 | f2py_success = 0; | |||
| 9477 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9478 | f2py_stop_call_clock(); | |||
| 9479 | #endif | |||
| 9480 | /*end of callfortranroutine*/ | |||
| 9481 | if (f2py_success) { | |||
| 9482 | /*pyobjfrom*/ | |||
| 9483 | /*end of pyobjfrom*/ | |||
| 9484 | CFUNCSMESS("Building return value.\n"); | |||
| 9485 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 9486 | /*closepyobjfrom*/ | |||
| 9487 | /*end of closepyobjfrom*/ | |||
| 9488 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 9489 | /*cleanupfrompyobj*/ | |||
| 9490 | /* End of cleaning variable work */ | |||
| 9491 | /* End of cleaning variable lwork */ | |||
| 9492 | /* End of cleaning variable info */ | |||
| 9493 | /* End of cleaning variable piv */ | |||
| 9494 | /* End of cleaning variable lu */ | |||
| 9495 | } /*if (f2py_success) of n*/ | |||
| 9496 | /* End of cleaning variable n */ | |||
| 9497 | /*end of cleanupfrompyobj*/ | |||
| 9498 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 9499 | /*routdebugfailure*/ | |||
| 9500 | } else { | |||
| 9501 | /*routdebugleave*/ | |||
| 9502 | } | |||
| 9503 | CFUNCSMESS("Freeing memory.\n"); | |||
| 9504 | /*freemem*/ | |||
| 9505 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9506 | f2py_stop_clock(); | |||
| 9507 | #endif | |||
| 9508 | return capi_buildvalue; | |||
| 9509 | } | |||
| 9510 | /**************************** end of dgetri_lwork ****************************/ | |||
| 9511 | ||||
| 9512 | /******************************** cgetri_lwork ********************************/ | |||
| 9513 | static char doc_f2py_rout__flapack_cgetri_lwork[] = "\ | |||
| 9514 | work,info = cgetri_lwork(n)\n\nWrapper for ``cgetri_lwork``.\ | |||
| 9515 | \n\nParameters\n----------\n" | |||
| 9516 | "n : input int\n" | |||
| 9517 | "\nReturns\n-------\n" | |||
| 9518 | "work : complex\n" | |||
| 9519 | "info : int"; | |||
| 9520 | /* extern void F_FUNC(cgetri ,CGETRI )(F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 9521 | static PyObject *f2py_rout__flapack_cgetri_lwork(const PyObject *capi_self, | |||
| 9522 | PyObject *capi_args, | |||
| 9523 | PyObject *capi_keywds, | |||
| 9524 | void (*f2py_func)(F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 9525 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 9526 | volatile int f2py_success = 1; | |||
| 9527 | /*decl*/ | |||
| 9528 | ||||
| 9529 | int n = 0; | |||
| 9530 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 9531 | complex_float lu; | |||
| 9532 | int piv = 0; | |||
| 9533 | complex_float work; | |||
| 9534 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 9535 | int lwork = 0; | |||
| 9536 | int info = 0; | |||
| 9537 | static char *capi_kwlist[] = {"n",NULL((void*)0)}; | |||
| 9538 | ||||
| 9539 | /*routdebugenter*/ | |||
| 9540 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9541 | f2py_start_clock(); | |||
| 9542 | #endif | |||
| 9543 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 9544 | "O:_flapack.cgetri_lwork",\ | |||
| 9545 | capi_kwlist,&n_capi)) | |||
| 9546 | return NULL((void*)0); | |||
| 9547 | /*frompyobj*/ | |||
| 9548 | /* Processing variable n */ | |||
| 9549 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgetri_lwork() 1st argument (n) can't be converted to int"); | |||
| 9550 | if (f2py_success) { | |||
| 9551 | /* Processing variable lu */ | |||
| 9552 | /* Processing variable piv */ | |||
| 9553 | /* Processing variable info */ | |||
| 9554 | /* Processing variable lwork */ | |||
| 9555 | lwork = -1; | |||
| 9556 | /* Processing variable work */ | |||
| 9557 | /*end of frompyobj*/ | |||
| 9558 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9559 | f2py_start_call_clock(); | |||
| 9560 | #endif | |||
| 9561 | /*callfortranroutine*/ | |||
| 9562 | (*f2py_func)(&n,&lu,&n,&piv,&work,&lwork,&info) ; | |||
| 9563 | /*(*f2py_func)(&n,&lu,&piv,&work,&lwork,&info);*/ | |||
| 9564 | if (PyErr_Occurred()) | |||
| 9565 | f2py_success = 0; | |||
| 9566 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9567 | f2py_stop_call_clock(); | |||
| 9568 | #endif | |||
| 9569 | /*end of callfortranroutine*/ | |||
| 9570 | if (f2py_success) { | |||
| 9571 | /*pyobjfrom*/ | |||
| 9572 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 9573 | /*end of pyobjfrom*/ | |||
| 9574 | CFUNCSMESS("Building return value.\n"); | |||
| 9575 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 9576 | /*closepyobjfrom*/ | |||
| 9577 | /*end of closepyobjfrom*/ | |||
| 9578 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 9579 | /*cleanupfrompyobj*/ | |||
| 9580 | /* End of cleaning variable work */ | |||
| 9581 | /* End of cleaning variable lwork */ | |||
| 9582 | /* End of cleaning variable info */ | |||
| 9583 | /* End of cleaning variable piv */ | |||
| 9584 | /* End of cleaning variable lu */ | |||
| 9585 | } /*if (f2py_success) of n*/ | |||
| 9586 | /* End of cleaning variable n */ | |||
| 9587 | /*end of cleanupfrompyobj*/ | |||
| 9588 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 9589 | /*routdebugfailure*/ | |||
| 9590 | } else { | |||
| 9591 | /*routdebugleave*/ | |||
| 9592 | } | |||
| 9593 | CFUNCSMESS("Freeing memory.\n"); | |||
| 9594 | /*freemem*/ | |||
| 9595 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9596 | f2py_stop_clock(); | |||
| 9597 | #endif | |||
| 9598 | return capi_buildvalue; | |||
| 9599 | } | |||
| 9600 | /**************************** end of cgetri_lwork ****************************/ | |||
| 9601 | ||||
| 9602 | /******************************** zgetri_lwork ********************************/ | |||
| 9603 | static char doc_f2py_rout__flapack_zgetri_lwork[] = "\ | |||
| 9604 | work,info = zgetri_lwork(n)\n\nWrapper for ``zgetri_lwork``.\ | |||
| 9605 | \n\nParameters\n----------\n" | |||
| 9606 | "n : input int\n" | |||
| 9607 | "\nReturns\n-------\n" | |||
| 9608 | "work : complex\n" | |||
| 9609 | "info : int"; | |||
| 9610 | /* extern void F_FUNC(zgetri ,ZGETRI )(F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 9611 | static PyObject *f2py_rout__flapack_zgetri_lwork(const PyObject *capi_self, | |||
| 9612 | PyObject *capi_args, | |||
| 9613 | PyObject *capi_keywds, | |||
| 9614 | void (*f2py_func)(F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 9615 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 9616 | volatile int f2py_success = 1; | |||
| 9617 | /*decl*/ | |||
| 9618 | ||||
| 9619 | int n = 0; | |||
| 9620 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 9621 | complex_double lu; | |||
| 9622 | int piv = 0; | |||
| 9623 | complex_double work; | |||
| 9624 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 9625 | int lwork = 0; | |||
| 9626 | int info = 0; | |||
| 9627 | static char *capi_kwlist[] = {"n",NULL((void*)0)}; | |||
| 9628 | ||||
| 9629 | /*routdebugenter*/ | |||
| 9630 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9631 | f2py_start_clock(); | |||
| 9632 | #endif | |||
| 9633 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 9634 | "O:_flapack.zgetri_lwork",\ | |||
| 9635 | capi_kwlist,&n_capi)) | |||
| 9636 | return NULL((void*)0); | |||
| 9637 | /*frompyobj*/ | |||
| 9638 | /* Processing variable n */ | |||
| 9639 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgetri_lwork() 1st argument (n) can't be converted to int"); | |||
| 9640 | if (f2py_success) { | |||
| 9641 | /* Processing variable lu */ | |||
| 9642 | /* Processing variable piv */ | |||
| 9643 | /* Processing variable info */ | |||
| 9644 | /* Processing variable lwork */ | |||
| 9645 | lwork = -1; | |||
| 9646 | /* Processing variable work */ | |||
| 9647 | /*end of frompyobj*/ | |||
| 9648 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9649 | f2py_start_call_clock(); | |||
| 9650 | #endif | |||
| 9651 | /*callfortranroutine*/ | |||
| 9652 | (*f2py_func)(&n,&lu,&n,&piv,&work,&lwork,&info) ; | |||
| 9653 | /*(*f2py_func)(&n,&lu,&piv,&work,&lwork,&info);*/ | |||
| 9654 | if (PyErr_Occurred()) | |||
| 9655 | f2py_success = 0; | |||
| 9656 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9657 | f2py_stop_call_clock(); | |||
| 9658 | #endif | |||
| 9659 | /*end of callfortranroutine*/ | |||
| 9660 | if (f2py_success) { | |||
| 9661 | /*pyobjfrom*/ | |||
| 9662 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 9663 | /*end of pyobjfrom*/ | |||
| 9664 | CFUNCSMESS("Building return value.\n"); | |||
| 9665 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 9666 | /*closepyobjfrom*/ | |||
| 9667 | /*end of closepyobjfrom*/ | |||
| 9668 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 9669 | /*cleanupfrompyobj*/ | |||
| 9670 | /* End of cleaning variable work */ | |||
| 9671 | /* End of cleaning variable lwork */ | |||
| 9672 | /* End of cleaning variable info */ | |||
| 9673 | /* End of cleaning variable piv */ | |||
| 9674 | /* End of cleaning variable lu */ | |||
| 9675 | } /*if (f2py_success) of n*/ | |||
| 9676 | /* End of cleaning variable n */ | |||
| 9677 | /*end of cleanupfrompyobj*/ | |||
| 9678 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 9679 | /*routdebugfailure*/ | |||
| 9680 | } else { | |||
| 9681 | /*routdebugleave*/ | |||
| 9682 | } | |||
| 9683 | CFUNCSMESS("Freeing memory.\n"); | |||
| 9684 | /*freemem*/ | |||
| 9685 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9686 | f2py_stop_clock(); | |||
| 9687 | #endif | |||
| 9688 | return capi_buildvalue; | |||
| 9689 | } | |||
| 9690 | /**************************** end of zgetri_lwork ****************************/ | |||
| 9691 | ||||
| 9692 | /*********************************** sgesdd ***********************************/ | |||
| 9693 | static char doc_f2py_rout__flapack_sgesdd[] = "\ | |||
| 9694 | u,s,vt,info = sgesdd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``sgesdd``.\ | |||
| 9695 | \n\nParameters\n----------\n" | |||
| 9696 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 9697 | "\nOther Parameters\n----------------\n" | |||
| 9698 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 9699 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 9700 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 9701 | "lwork : input int, optional\n Default: max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1)\n" | |||
| 9702 | "\nReturns\n-------\n" | |||
| 9703 | "u : rank-2 array('f') with bounds (u0,u1)\n" | |||
| 9704 | "s : rank-1 array('f') with bounds (minmn)\n" | |||
| 9705 | "vt : rank-2 array('f') with bounds (vt0,vt1)\n" | |||
| 9706 | "info : int"; | |||
| 9707 | /* extern void F_FUNC(sgesdd,SGESDD)(char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 9708 | static PyObject *f2py_rout__flapack_sgesdd(const PyObject *capi_self, | |||
| 9709 | PyObject *capi_args, | |||
| 9710 | PyObject *capi_keywds, | |||
| 9711 | void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 9712 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 9713 | volatile int f2py_success = 1; | |||
| 9714 | /*decl*/ | |||
| 9715 | ||||
| 9716 | int m = 0; | |||
| 9717 | int n = 0; | |||
| 9718 | int minmn = 0; | |||
| 9719 | int u0 = 0; | |||
| 9720 | int u1 = 0; | |||
| 9721 | int vt0 = 0; | |||
| 9722 | int vt1 = 0; | |||
| 9723 | float *a = NULL((void*)0); | |||
| 9724 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 9725 | const int a_Rank = 2; | |||
| 9726 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 9727 | int capi_a_intent = 0; | |||
| 9728 | int capi_overwrite_a = 0; | |||
| 9729 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 9730 | int compute_uv = 0; | |||
| 9731 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 9732 | int full_matrices = 0; | |||
| 9733 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 9734 | float *u = NULL((void*)0); | |||
| 9735 | npy_intp u_Dims[2] = {-1, -1}; | |||
| 9736 | const int u_Rank = 2; | |||
| 9737 | PyArrayObject *capi_u_tmp = NULL((void*)0); | |||
| 9738 | int capi_u_intent = 0; | |||
| 9739 | float *s = NULL((void*)0); | |||
| 9740 | npy_intp s_Dims[1] = {-1}; | |||
| 9741 | const int s_Rank = 1; | |||
| 9742 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 9743 | int capi_s_intent = 0; | |||
| 9744 | float *vt = NULL((void*)0); | |||
| 9745 | npy_intp vt_Dims[2] = {-1, -1}; | |||
| 9746 | const int vt_Rank = 2; | |||
| 9747 | PyArrayObject *capi_vt_tmp = NULL((void*)0); | |||
| 9748 | int capi_vt_intent = 0; | |||
| 9749 | float *work = NULL((void*)0); | |||
| 9750 | npy_intp work_Dims[1] = {-1}; | |||
| 9751 | const int work_Rank = 1; | |||
| 9752 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 9753 | int capi_work_intent = 0; | |||
| 9754 | int lwork = 0; | |||
| 9755 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 9756 | int *iwork = NULL((void*)0); | |||
| 9757 | npy_intp iwork_Dims[1] = {-1}; | |||
| 9758 | const int iwork_Rank = 1; | |||
| 9759 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 9760 | int capi_iwork_intent = 0; | |||
| 9761 | int info = 0; | |||
| 9762 | static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)}; | |||
| 9763 | ||||
| 9764 | /*routdebugenter*/ | |||
| 9765 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9766 | f2py_start_clock(); | |||
| 9767 | #endif | |||
| 9768 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 9769 | "O|OOOi:_flapack.sgesdd",\ | |||
| 9770 | capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 9771 | return NULL((void*)0); | |||
| 9772 | /*frompyobj*/ | |||
| 9773 | /* Processing variable compute_uv */ | |||
| 9774 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 9775 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.sgesdd() 1st keyword (compute_uv) can't be converted to int"); | |||
| 9776 | if (f2py_success) { | |||
| 9777 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","sgesdd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgesdd:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 9778 | /* Processing variable full_matrices */ | |||
| 9779 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 9780 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.sgesdd() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 9781 | if (f2py_success) { | |||
| 9782 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","sgesdd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgesdd:full_matrices=%d", "(""full_matrices==0||full_matrices==1" ") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 9783 | /* Processing variable a */ | |||
| 9784 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 9785 | ; | |||
| 9786 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 9787 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 9788 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 9789 | if (!PyErr_Occurred()) | |||
| 9790 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgesdd to C/Fortran array" ); | |||
| 9791 | } else { | |||
| 9792 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 9793 | ||||
| 9794 | /* Processing variable info */ | |||
| 9795 | /* Processing variable m */ | |||
| 9796 | m = shape(a,0)a_Dims[0]; | |||
| 9797 | /* Processing variable n */ | |||
| 9798 | n = shape(a,1)a_Dims[1]; | |||
| 9799 | /* Processing variable minmn */ | |||
| 9800 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 9801 | /* Processing variable u0 */ | |||
| 9802 | u0 = (compute_uv?m:1); | |||
| 9803 | /* Processing variable u1 */ | |||
| 9804 | u1 = (compute_uv?(full_matrices?m:minmn):1); | |||
| 9805 | /* Processing variable vt0 */ | |||
| 9806 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 9807 | /* Processing variable vt1 */ | |||
| 9808 | vt1 = (compute_uv?n:1); | |||
| 9809 | /* Processing variable s */ | |||
| 9810 | s_Dims[0]=minmn; | |||
| 9811 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 9812 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 9813 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 9814 | if (!PyErr_Occurred()) | |||
| 9815 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.sgesdd to C/Fortran array" ); | |||
| 9816 | } else { | |||
| 9817 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 9818 | ||||
| 9819 | /* Processing variable u */ | |||
| 9820 | u_Dims[0]=u0,u_Dims[1]=u1; | |||
| 9821 | capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 9822 | capi_u_tmp = array_from_pyobj(NPY_FLOAT,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct)); | |||
| 9823 | if (capi_u_tmp == NULL((void*)0)) { | |||
| 9824 | if (!PyErr_Occurred()) | |||
| 9825 | PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.sgesdd to C/Fortran array" ); | |||
| 9826 | } else { | |||
| 9827 | u = (float *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data)); | |||
| 9828 | ||||
| 9829 | /* Processing variable vt */ | |||
| 9830 | vt_Dims[0]=vt0,vt_Dims[1]=vt1; | |||
| 9831 | capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 9832 | capi_vt_tmp = array_from_pyobj(NPY_FLOAT,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct)); | |||
| 9833 | if (capi_vt_tmp == NULL((void*)0)) { | |||
| 9834 | if (!PyErr_Occurred()) | |||
| 9835 | PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.sgesdd to C/Fortran array" ); | |||
| 9836 | } else { | |||
| 9837 | vt = (float *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data)); | |||
| 9838 | ||||
| 9839 | /* Processing variable lwork */ | |||
| 9840 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1)(((compute_uv?4*minmn*minmn+((m > n) ? (m) : (n))+9*minmn: ((14*minmn+4 > 10*minmn+2+25*(25+8)) ? (14*minmn+4) : (10* minmn+2+25*(25+8)))+((m > n) ? (m) : (n))) > 1) ? ((compute_uv ?4*minmn*minmn+((m > n) ? (m) : (n))+9*minmn:((14*minmn+4 > 10*minmn+2+25*(25+8)) ? (14*minmn+4) : (10*minmn+2+25*(25+8) ))+((m > n) ? (m) : (n)))) : (1)); else | |||
| 9841 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgesdd() 3rd keyword (lwork) can't be converted to int"); | |||
| 9842 | if (f2py_success) { | |||
| 9843 | /* Processing variable iwork */ | |||
| 9844 | iwork_Dims[0]=8 * minmn; | |||
| 9845 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 9846 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 9847 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 9848 | if (!PyErr_Occurred()) | |||
| 9849 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sgesdd to C/Fortran array" ); | |||
| 9850 | } else { | |||
| 9851 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 9852 | ||||
| 9853 | /* Processing variable work */ | |||
| 9854 | work_Dims[0]=lwork; | |||
| 9855 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 9856 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 9857 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 9858 | if (!PyErr_Occurred()) | |||
| 9859 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgesdd to C/Fortran array" ); | |||
| 9860 | } else { | |||
| 9861 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 9862 | ||||
| 9863 | /*end of frompyobj*/ | |||
| 9864 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9865 | f2py_start_call_clock(); | |||
| 9866 | #endif | |||
| 9867 | /*callfortranroutine*/ | |||
| 9868 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,iwork,&info) ; | |||
| 9869 | /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,&lwork,iwork,&info);*/ | |||
| 9870 | if (PyErr_Occurred()) | |||
| 9871 | f2py_success = 0; | |||
| 9872 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9873 | f2py_stop_call_clock(); | |||
| 9874 | #endif | |||
| 9875 | /*end of callfortranroutine*/ | |||
| 9876 | if (f2py_success) { | |||
| 9877 | /*pyobjfrom*/ | |||
| 9878 | /*end of pyobjfrom*/ | |||
| 9879 | CFUNCSMESS("Building return value.\n"); | |||
| 9880 | capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info); | |||
| 9881 | /*closepyobjfrom*/ | |||
| 9882 | /*end of closepyobjfrom*/ | |||
| 9883 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 9884 | /*cleanupfrompyobj*/ | |||
| 9885 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 9886 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 9887 | /* End of cleaning variable work */ | |||
| 9888 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 9889 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 9890 | /* End of cleaning variable iwork */ | |||
| 9891 | } /*if (f2py_success) of lwork*/ | |||
| 9892 | /* End of cleaning variable lwork */ | |||
| 9893 | } /*if (capi_vt_tmp == NULL) ... else of vt*/ | |||
| 9894 | /* End of cleaning variable vt */ | |||
| 9895 | } /*if (capi_u_tmp == NULL) ... else of u*/ | |||
| 9896 | /* End of cleaning variable u */ | |||
| 9897 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 9898 | /* End of cleaning variable s */ | |||
| 9899 | /* End of cleaning variable vt1 */ | |||
| 9900 | /* End of cleaning variable vt0 */ | |||
| 9901 | /* End of cleaning variable u1 */ | |||
| 9902 | /* End of cleaning variable u0 */ | |||
| 9903 | /* End of cleaning variable minmn */ | |||
| 9904 | /* End of cleaning variable n */ | |||
| 9905 | /* End of cleaning variable m */ | |||
| 9906 | /* End of cleaning variable info */ | |||
| 9907 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 9908 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 9909 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 9910 | /* End of cleaning variable a */ | |||
| 9911 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 9912 | } /*if (f2py_success) of full_matrices*/ | |||
| 9913 | /* End of cleaning variable full_matrices */ | |||
| 9914 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 9915 | } /*if (f2py_success) of compute_uv*/ | |||
| 9916 | /* End of cleaning variable compute_uv */ | |||
| 9917 | /*end of cleanupfrompyobj*/ | |||
| 9918 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 9919 | /*routdebugfailure*/ | |||
| 9920 | } else { | |||
| 9921 | /*routdebugleave*/ | |||
| 9922 | } | |||
| 9923 | CFUNCSMESS("Freeing memory.\n"); | |||
| 9924 | /*freemem*/ | |||
| 9925 | #ifdef F2PY_REPORT_ATEXIT | |||
| 9926 | f2py_stop_clock(); | |||
| 9927 | #endif | |||
| 9928 | return capi_buildvalue; | |||
| 9929 | } | |||
| 9930 | /******************************* end of sgesdd *******************************/ | |||
| 9931 | ||||
| 9932 | /*********************************** dgesdd ***********************************/ | |||
| 9933 | static char doc_f2py_rout__flapack_dgesdd[] = "\ | |||
| 9934 | u,s,vt,info = dgesdd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``dgesdd``.\ | |||
| 9935 | \n\nParameters\n----------\n" | |||
| 9936 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 9937 | "\nOther Parameters\n----------------\n" | |||
| 9938 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 9939 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 9940 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 9941 | "lwork : input int, optional\n Default: max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1)\n" | |||
| 9942 | "\nReturns\n-------\n" | |||
| 9943 | "u : rank-2 array('d') with bounds (u0,u1)\n" | |||
| 9944 | "s : rank-1 array('d') with bounds (minmn)\n" | |||
| 9945 | "vt : rank-2 array('d') with bounds (vt0,vt1)\n" | |||
| 9946 | "info : int"; | |||
| 9947 | /* extern void F_FUNC(dgesdd,DGESDD)(char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 9948 | static PyObject *f2py_rout__flapack_dgesdd(const PyObject *capi_self, | |||
| 9949 | PyObject *capi_args, | |||
| 9950 | PyObject *capi_keywds, | |||
| 9951 | void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 9952 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 9953 | volatile int f2py_success = 1; | |||
| 9954 | /*decl*/ | |||
| 9955 | ||||
| 9956 | int m = 0; | |||
| 9957 | int n = 0; | |||
| 9958 | int minmn = 0; | |||
| 9959 | int u0 = 0; | |||
| 9960 | int u1 = 0; | |||
| 9961 | int vt0 = 0; | |||
| 9962 | int vt1 = 0; | |||
| 9963 | double *a = NULL((void*)0); | |||
| 9964 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 9965 | const int a_Rank = 2; | |||
| 9966 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 9967 | int capi_a_intent = 0; | |||
| 9968 | int capi_overwrite_a = 0; | |||
| 9969 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 9970 | int compute_uv = 0; | |||
| 9971 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 9972 | int full_matrices = 0; | |||
| 9973 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 9974 | double *u = NULL((void*)0); | |||
| 9975 | npy_intp u_Dims[2] = {-1, -1}; | |||
| 9976 | const int u_Rank = 2; | |||
| 9977 | PyArrayObject *capi_u_tmp = NULL((void*)0); | |||
| 9978 | int capi_u_intent = 0; | |||
| 9979 | double *s = NULL((void*)0); | |||
| 9980 | npy_intp s_Dims[1] = {-1}; | |||
| 9981 | const int s_Rank = 1; | |||
| 9982 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 9983 | int capi_s_intent = 0; | |||
| 9984 | double *vt = NULL((void*)0); | |||
| 9985 | npy_intp vt_Dims[2] = {-1, -1}; | |||
| 9986 | const int vt_Rank = 2; | |||
| 9987 | PyArrayObject *capi_vt_tmp = NULL((void*)0); | |||
| 9988 | int capi_vt_intent = 0; | |||
| 9989 | double *work = NULL((void*)0); | |||
| 9990 | npy_intp work_Dims[1] = {-1}; | |||
| 9991 | const int work_Rank = 1; | |||
| 9992 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 9993 | int capi_work_intent = 0; | |||
| 9994 | int lwork = 0; | |||
| 9995 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 9996 | int *iwork = NULL((void*)0); | |||
| 9997 | npy_intp iwork_Dims[1] = {-1}; | |||
| 9998 | const int iwork_Rank = 1; | |||
| 9999 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 10000 | int capi_iwork_intent = 0; | |||
| 10001 | int info = 0; | |||
| 10002 | static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)}; | |||
| 10003 | ||||
| 10004 | /*routdebugenter*/ | |||
| 10005 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10006 | f2py_start_clock(); | |||
| 10007 | #endif | |||
| 10008 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 10009 | "O|OOOi:_flapack.dgesdd",\ | |||
| 10010 | capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 10011 | return NULL((void*)0); | |||
| 10012 | /*frompyobj*/ | |||
| 10013 | /* Processing variable compute_uv */ | |||
| 10014 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 10015 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.dgesdd() 1st keyword (compute_uv) can't be converted to int"); | |||
| 10016 | if (f2py_success) { | |||
| 10017 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","dgesdd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgesdd:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 10018 | /* Processing variable full_matrices */ | |||
| 10019 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 10020 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.dgesdd() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 10021 | if (f2py_success) { | |||
| 10022 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","dgesdd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgesdd:full_matrices=%d", "(""full_matrices==0||full_matrices==1" ") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 10023 | /* Processing variable a */ | |||
| 10024 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 10025 | ; | |||
| 10026 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 10027 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 10028 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 10029 | if (!PyErr_Occurred()) | |||
| 10030 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgesdd to C/Fortran array" ); | |||
| 10031 | } else { | |||
| 10032 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 10033 | ||||
| 10034 | /* Processing variable info */ | |||
| 10035 | /* Processing variable m */ | |||
| 10036 | m = shape(a,0)a_Dims[0]; | |||
| 10037 | /* Processing variable n */ | |||
| 10038 | n = shape(a,1)a_Dims[1]; | |||
| 10039 | /* Processing variable minmn */ | |||
| 10040 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 10041 | /* Processing variable u0 */ | |||
| 10042 | u0 = (compute_uv?m:1); | |||
| 10043 | /* Processing variable u1 */ | |||
| 10044 | u1 = (compute_uv?(full_matrices?m:minmn):1); | |||
| 10045 | /* Processing variable vt0 */ | |||
| 10046 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 10047 | /* Processing variable vt1 */ | |||
| 10048 | vt1 = (compute_uv?n:1); | |||
| 10049 | /* Processing variable s */ | |||
| 10050 | s_Dims[0]=minmn; | |||
| 10051 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 10052 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 10053 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 10054 | if (!PyErr_Occurred()) | |||
| 10055 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.dgesdd to C/Fortran array" ); | |||
| 10056 | } else { | |||
| 10057 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 10058 | ||||
| 10059 | /* Processing variable u */ | |||
| 10060 | u_Dims[0]=u0,u_Dims[1]=u1; | |||
| 10061 | capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 10062 | capi_u_tmp = array_from_pyobj(NPY_DOUBLE,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct)); | |||
| 10063 | if (capi_u_tmp == NULL((void*)0)) { | |||
| 10064 | if (!PyErr_Occurred()) | |||
| 10065 | PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.dgesdd to C/Fortran array" ); | |||
| 10066 | } else { | |||
| 10067 | u = (double *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data)); | |||
| 10068 | ||||
| 10069 | /* Processing variable vt */ | |||
| 10070 | vt_Dims[0]=vt0,vt_Dims[1]=vt1; | |||
| 10071 | capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 10072 | capi_vt_tmp = array_from_pyobj(NPY_DOUBLE,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct)); | |||
| 10073 | if (capi_vt_tmp == NULL((void*)0)) { | |||
| 10074 | if (!PyErr_Occurred()) | |||
| 10075 | PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.dgesdd to C/Fortran array" ); | |||
| 10076 | } else { | |||
| 10077 | vt = (double *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data)); | |||
| 10078 | ||||
| 10079 | /* Processing variable lwork */ | |||
| 10080 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1)(((compute_uv?4*minmn*minmn+((m > n) ? (m) : (n))+9*minmn: ((14*minmn+4 > 10*minmn+2+25*(25+8)) ? (14*minmn+4) : (10* minmn+2+25*(25+8)))+((m > n) ? (m) : (n))) > 1) ? ((compute_uv ?4*minmn*minmn+((m > n) ? (m) : (n))+9*minmn:((14*minmn+4 > 10*minmn+2+25*(25+8)) ? (14*minmn+4) : (10*minmn+2+25*(25+8) ))+((m > n) ? (m) : (n)))) : (1)); else | |||
| 10081 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgesdd() 3rd keyword (lwork) can't be converted to int"); | |||
| 10082 | if (f2py_success) { | |||
| 10083 | /* Processing variable iwork */ | |||
| 10084 | iwork_Dims[0]=8 * minmn; | |||
| 10085 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 10086 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 10087 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 10088 | if (!PyErr_Occurred()) | |||
| 10089 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dgesdd to C/Fortran array" ); | |||
| 10090 | } else { | |||
| 10091 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 10092 | ||||
| 10093 | /* Processing variable work */ | |||
| 10094 | work_Dims[0]=lwork; | |||
| 10095 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 10096 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 10097 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 10098 | if (!PyErr_Occurred()) | |||
| 10099 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgesdd to C/Fortran array" ); | |||
| 10100 | } else { | |||
| 10101 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 10102 | ||||
| 10103 | /*end of frompyobj*/ | |||
| 10104 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10105 | f2py_start_call_clock(); | |||
| 10106 | #endif | |||
| 10107 | /*callfortranroutine*/ | |||
| 10108 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,iwork,&info) ; | |||
| 10109 | /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,&lwork,iwork,&info);*/ | |||
| 10110 | if (PyErr_Occurred()) | |||
| 10111 | f2py_success = 0; | |||
| 10112 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10113 | f2py_stop_call_clock(); | |||
| 10114 | #endif | |||
| 10115 | /*end of callfortranroutine*/ | |||
| 10116 | if (f2py_success) { | |||
| 10117 | /*pyobjfrom*/ | |||
| 10118 | /*end of pyobjfrom*/ | |||
| 10119 | CFUNCSMESS("Building return value.\n"); | |||
| 10120 | capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info); | |||
| 10121 | /*closepyobjfrom*/ | |||
| 10122 | /*end of closepyobjfrom*/ | |||
| 10123 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 10124 | /*cleanupfrompyobj*/ | |||
| 10125 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 10126 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 10127 | /* End of cleaning variable work */ | |||
| 10128 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 10129 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 10130 | /* End of cleaning variable iwork */ | |||
| 10131 | } /*if (f2py_success) of lwork*/ | |||
| 10132 | /* End of cleaning variable lwork */ | |||
| 10133 | } /*if (capi_vt_tmp == NULL) ... else of vt*/ | |||
| 10134 | /* End of cleaning variable vt */ | |||
| 10135 | } /*if (capi_u_tmp == NULL) ... else of u*/ | |||
| 10136 | /* End of cleaning variable u */ | |||
| 10137 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 10138 | /* End of cleaning variable s */ | |||
| 10139 | /* End of cleaning variable vt1 */ | |||
| 10140 | /* End of cleaning variable vt0 */ | |||
| 10141 | /* End of cleaning variable u1 */ | |||
| 10142 | /* End of cleaning variable u0 */ | |||
| 10143 | /* End of cleaning variable minmn */ | |||
| 10144 | /* End of cleaning variable n */ | |||
| 10145 | /* End of cleaning variable m */ | |||
| 10146 | /* End of cleaning variable info */ | |||
| 10147 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 10148 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 10149 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 10150 | /* End of cleaning variable a */ | |||
| 10151 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 10152 | } /*if (f2py_success) of full_matrices*/ | |||
| 10153 | /* End of cleaning variable full_matrices */ | |||
| 10154 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 10155 | } /*if (f2py_success) of compute_uv*/ | |||
| 10156 | /* End of cleaning variable compute_uv */ | |||
| 10157 | /*end of cleanupfrompyobj*/ | |||
| 10158 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 10159 | /*routdebugfailure*/ | |||
| 10160 | } else { | |||
| 10161 | /*routdebugleave*/ | |||
| 10162 | } | |||
| 10163 | CFUNCSMESS("Freeing memory.\n"); | |||
| 10164 | /*freemem*/ | |||
| 10165 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10166 | f2py_stop_clock(); | |||
| 10167 | #endif | |||
| 10168 | return capi_buildvalue; | |||
| 10169 | } | |||
| 10170 | /******************************* end of dgesdd *******************************/ | |||
| 10171 | ||||
| 10172 | /******************************** sgesdd_lwork ********************************/ | |||
| 10173 | static char doc_f2py_rout__flapack_sgesdd_lwork[] = "\ | |||
| 10174 | work,info = sgesdd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``sgesdd_lwork``.\ | |||
| 10175 | \n\nParameters\n----------\n" | |||
| 10176 | "m : input int\n" | |||
| 10177 | "n : input int\n" | |||
| 10178 | "\nOther Parameters\n----------------\n" | |||
| 10179 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 10180 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 10181 | "\nReturns\n-------\n" | |||
| 10182 | "work : float\n" | |||
| 10183 | "info : int"; | |||
| 10184 | /* extern void F_FUNC(sgesdd ,SGESDD )(char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 10185 | static PyObject *f2py_rout__flapack_sgesdd_lwork(const PyObject *capi_self, | |||
| 10186 | PyObject *capi_args, | |||
| 10187 | PyObject *capi_keywds, | |||
| 10188 | void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 10189 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 10190 | volatile int f2py_success = 1; | |||
| 10191 | /*decl*/ | |||
| 10192 | ||||
| 10193 | int m = 0; | |||
| 10194 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 10195 | int n = 0; | |||
| 10196 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 10197 | int minmn = 0; | |||
| 10198 | int u0 = 0; | |||
| 10199 | int vt0 = 0; | |||
| 10200 | float a = 0; | |||
| 10201 | int compute_uv = 0; | |||
| 10202 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 10203 | int full_matrices = 0; | |||
| 10204 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 10205 | float u = 0; | |||
| 10206 | float s = 0; | |||
| 10207 | float vt = 0; | |||
| 10208 | float work = 0; | |||
| 10209 | int lwork = 0; | |||
| 10210 | int iwork = 0; | |||
| 10211 | int info = 0; | |||
| 10212 | static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)}; | |||
| 10213 | ||||
| 10214 | /*routdebugenter*/ | |||
| 10215 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10216 | f2py_start_clock(); | |||
| 10217 | #endif | |||
| 10218 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 10219 | "OO|OO:_flapack.sgesdd_lwork",\ | |||
| 10220 | capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi)) | |||
| 10221 | return NULL((void*)0); | |||
| 10222 | /*frompyobj*/ | |||
| 10223 | /* Processing variable compute_uv */ | |||
| 10224 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 10225 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.sgesdd_lwork() 1st keyword (compute_uv) can't be converted to int"); | |||
| 10226 | if (f2py_success) { | |||
| 10227 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","sgesdd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgesdd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 10228 | /* Processing variable full_matrices */ | |||
| 10229 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 10230 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.sgesdd_lwork() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 10231 | if (f2py_success) { | |||
| 10232 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","sgesdd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgesdd_lwork:full_matrices=%d" , "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices" , full_matrices); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 10233 | /* Processing variable m */ | |||
| 10234 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgesdd_lwork() 1st argument (m) can't be converted to int"); | |||
| 10235 | if (f2py_success) { | |||
| 10236 | /* Processing variable n */ | |||
| 10237 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgesdd_lwork() 2nd argument (n) can't be converted to int"); | |||
| 10238 | if (f2py_success) { | |||
| 10239 | /* Processing variable a */ | |||
| 10240 | /* Processing variable s */ | |||
| 10241 | /* Processing variable u */ | |||
| 10242 | /* Processing variable vt */ | |||
| 10243 | /* Processing variable work */ | |||
| 10244 | /* Processing variable lwork */ | |||
| 10245 | lwork = -1; | |||
| 10246 | /* Processing variable iwork */ | |||
| 10247 | /* Processing variable info */ | |||
| 10248 | /* Processing variable minmn */ | |||
| 10249 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 10250 | /* Processing variable u0 */ | |||
| 10251 | u0 = (compute_uv?m:1); | |||
| 10252 | /* Processing variable vt0 */ | |||
| 10253 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 10254 | /*end of frompyobj*/ | |||
| 10255 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10256 | f2py_start_call_clock(); | |||
| 10257 | #endif | |||
| 10258 | /*callfortranroutine*/ | |||
| 10259 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&iwork,&info) ; | |||
| 10260 | /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&lwork,&iwork,&info);*/ | |||
| 10261 | if (PyErr_Occurred()) | |||
| 10262 | f2py_success = 0; | |||
| 10263 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10264 | f2py_stop_call_clock(); | |||
| 10265 | #endif | |||
| 10266 | /*end of callfortranroutine*/ | |||
| 10267 | if (f2py_success) { | |||
| 10268 | /*pyobjfrom*/ | |||
| 10269 | /*end of pyobjfrom*/ | |||
| 10270 | CFUNCSMESS("Building return value.\n"); | |||
| 10271 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 10272 | /*closepyobjfrom*/ | |||
| 10273 | /*end of closepyobjfrom*/ | |||
| 10274 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 10275 | /*cleanupfrompyobj*/ | |||
| 10276 | /* End of cleaning variable vt0 */ | |||
| 10277 | /* End of cleaning variable u0 */ | |||
| 10278 | /* End of cleaning variable minmn */ | |||
| 10279 | /* End of cleaning variable info */ | |||
| 10280 | /* End of cleaning variable iwork */ | |||
| 10281 | /* End of cleaning variable lwork */ | |||
| 10282 | /* End of cleaning variable work */ | |||
| 10283 | /* End of cleaning variable vt */ | |||
| 10284 | /* End of cleaning variable u */ | |||
| 10285 | /* End of cleaning variable s */ | |||
| 10286 | /* End of cleaning variable a */ | |||
| 10287 | } /*if (f2py_success) of n*/ | |||
| 10288 | /* End of cleaning variable n */ | |||
| 10289 | } /*if (f2py_success) of m*/ | |||
| 10290 | /* End of cleaning variable m */ | |||
| 10291 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 10292 | } /*if (f2py_success) of full_matrices*/ | |||
| 10293 | /* End of cleaning variable full_matrices */ | |||
| 10294 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 10295 | } /*if (f2py_success) of compute_uv*/ | |||
| 10296 | /* End of cleaning variable compute_uv */ | |||
| 10297 | /*end of cleanupfrompyobj*/ | |||
| 10298 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 10299 | /*routdebugfailure*/ | |||
| 10300 | } else { | |||
| 10301 | /*routdebugleave*/ | |||
| 10302 | } | |||
| 10303 | CFUNCSMESS("Freeing memory.\n"); | |||
| 10304 | /*freemem*/ | |||
| 10305 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10306 | f2py_stop_clock(); | |||
| 10307 | #endif | |||
| 10308 | return capi_buildvalue; | |||
| 10309 | } | |||
| 10310 | /**************************** end of sgesdd_lwork ****************************/ | |||
| 10311 | ||||
| 10312 | /******************************** dgesdd_lwork ********************************/ | |||
| 10313 | static char doc_f2py_rout__flapack_dgesdd_lwork[] = "\ | |||
| 10314 | work,info = dgesdd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``dgesdd_lwork``.\ | |||
| 10315 | \n\nParameters\n----------\n" | |||
| 10316 | "m : input int\n" | |||
| 10317 | "n : input int\n" | |||
| 10318 | "\nOther Parameters\n----------------\n" | |||
| 10319 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 10320 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 10321 | "\nReturns\n-------\n" | |||
| 10322 | "work : float\n" | |||
| 10323 | "info : int"; | |||
| 10324 | /* extern void F_FUNC(dgesdd ,DGESDD )(char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 10325 | static PyObject *f2py_rout__flapack_dgesdd_lwork(const PyObject *capi_self, | |||
| 10326 | PyObject *capi_args, | |||
| 10327 | PyObject *capi_keywds, | |||
| 10328 | void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 10329 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 10330 | volatile int f2py_success = 1; | |||
| 10331 | /*decl*/ | |||
| 10332 | ||||
| 10333 | int m = 0; | |||
| 10334 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 10335 | int n = 0; | |||
| 10336 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 10337 | int minmn = 0; | |||
| 10338 | int u0 = 0; | |||
| 10339 | int vt0 = 0; | |||
| 10340 | double a = 0; | |||
| 10341 | int compute_uv = 0; | |||
| 10342 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 10343 | int full_matrices = 0; | |||
| 10344 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 10345 | double u = 0; | |||
| 10346 | double s = 0; | |||
| 10347 | double vt = 0; | |||
| 10348 | double work = 0; | |||
| 10349 | int lwork = 0; | |||
| 10350 | int iwork = 0; | |||
| 10351 | int info = 0; | |||
| 10352 | static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)}; | |||
| 10353 | ||||
| 10354 | /*routdebugenter*/ | |||
| 10355 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10356 | f2py_start_clock(); | |||
| 10357 | #endif | |||
| 10358 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 10359 | "OO|OO:_flapack.dgesdd_lwork",\ | |||
| 10360 | capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi)) | |||
| 10361 | return NULL((void*)0); | |||
| 10362 | /*frompyobj*/ | |||
| 10363 | /* Processing variable compute_uv */ | |||
| 10364 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 10365 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.dgesdd_lwork() 1st keyword (compute_uv) can't be converted to int"); | |||
| 10366 | if (f2py_success) { | |||
| 10367 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","dgesdd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgesdd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 10368 | /* Processing variable full_matrices */ | |||
| 10369 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 10370 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.dgesdd_lwork() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 10371 | if (f2py_success) { | |||
| 10372 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","dgesdd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgesdd_lwork:full_matrices=%d" , "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices" , full_matrices); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 10373 | /* Processing variable m */ | |||
| 10374 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgesdd_lwork() 1st argument (m) can't be converted to int"); | |||
| 10375 | if (f2py_success) { | |||
| 10376 | /* Processing variable n */ | |||
| 10377 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgesdd_lwork() 2nd argument (n) can't be converted to int"); | |||
| 10378 | if (f2py_success) { | |||
| 10379 | /* Processing variable a */ | |||
| 10380 | /* Processing variable s */ | |||
| 10381 | /* Processing variable u */ | |||
| 10382 | /* Processing variable vt */ | |||
| 10383 | /* Processing variable work */ | |||
| 10384 | /* Processing variable lwork */ | |||
| 10385 | lwork = -1; | |||
| 10386 | /* Processing variable iwork */ | |||
| 10387 | /* Processing variable info */ | |||
| 10388 | /* Processing variable minmn */ | |||
| 10389 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 10390 | /* Processing variable u0 */ | |||
| 10391 | u0 = (compute_uv?m:1); | |||
| 10392 | /* Processing variable vt0 */ | |||
| 10393 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 10394 | /*end of frompyobj*/ | |||
| 10395 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10396 | f2py_start_call_clock(); | |||
| 10397 | #endif | |||
| 10398 | /*callfortranroutine*/ | |||
| 10399 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&iwork,&info) ; | |||
| 10400 | /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&lwork,&iwork,&info);*/ | |||
| 10401 | if (PyErr_Occurred()) | |||
| 10402 | f2py_success = 0; | |||
| 10403 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10404 | f2py_stop_call_clock(); | |||
| 10405 | #endif | |||
| 10406 | /*end of callfortranroutine*/ | |||
| 10407 | if (f2py_success) { | |||
| 10408 | /*pyobjfrom*/ | |||
| 10409 | /*end of pyobjfrom*/ | |||
| 10410 | CFUNCSMESS("Building return value.\n"); | |||
| 10411 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 10412 | /*closepyobjfrom*/ | |||
| 10413 | /*end of closepyobjfrom*/ | |||
| 10414 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 10415 | /*cleanupfrompyobj*/ | |||
| 10416 | /* End of cleaning variable vt0 */ | |||
| 10417 | /* End of cleaning variable u0 */ | |||
| 10418 | /* End of cleaning variable minmn */ | |||
| 10419 | /* End of cleaning variable info */ | |||
| 10420 | /* End of cleaning variable iwork */ | |||
| 10421 | /* End of cleaning variable lwork */ | |||
| 10422 | /* End of cleaning variable work */ | |||
| 10423 | /* End of cleaning variable vt */ | |||
| 10424 | /* End of cleaning variable u */ | |||
| 10425 | /* End of cleaning variable s */ | |||
| 10426 | /* End of cleaning variable a */ | |||
| 10427 | } /*if (f2py_success) of n*/ | |||
| 10428 | /* End of cleaning variable n */ | |||
| 10429 | } /*if (f2py_success) of m*/ | |||
| 10430 | /* End of cleaning variable m */ | |||
| 10431 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 10432 | } /*if (f2py_success) of full_matrices*/ | |||
| 10433 | /* End of cleaning variable full_matrices */ | |||
| 10434 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 10435 | } /*if (f2py_success) of compute_uv*/ | |||
| 10436 | /* End of cleaning variable compute_uv */ | |||
| 10437 | /*end of cleanupfrompyobj*/ | |||
| 10438 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 10439 | /*routdebugfailure*/ | |||
| 10440 | } else { | |||
| 10441 | /*routdebugleave*/ | |||
| 10442 | } | |||
| 10443 | CFUNCSMESS("Freeing memory.\n"); | |||
| 10444 | /*freemem*/ | |||
| 10445 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10446 | f2py_stop_clock(); | |||
| 10447 | #endif | |||
| 10448 | return capi_buildvalue; | |||
| 10449 | } | |||
| 10450 | /**************************** end of dgesdd_lwork ****************************/ | |||
| 10451 | ||||
| 10452 | /*********************************** cgesdd ***********************************/ | |||
| 10453 | static char doc_f2py_rout__flapack_cgesdd[] = "\ | |||
| 10454 | u,s,vt,info = cgesdd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``cgesdd``.\ | |||
| 10455 | \n\nParameters\n----------\n" | |||
| 10456 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 10457 | "\nOther Parameters\n----------------\n" | |||
| 10458 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 10459 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 10460 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 10461 | "lwork : input int, optional\n Default: max((compute_uv?2*minmn*minmn+MAX(m,n)+2*minmn:2*minmn+MAX(m,n)),1)\n" | |||
| 10462 | "\nReturns\n-------\n" | |||
| 10463 | "u : rank-2 array('F') with bounds (u0,u1)\n" | |||
| 10464 | "s : rank-1 array('f') with bounds (minmn)\n" | |||
| 10465 | "vt : rank-2 array('F') with bounds (vt0,vt1)\n" | |||
| 10466 | "info : int"; | |||
| 10467 | /* extern void F_FUNC(cgesdd,CGESDD)(char*,F_INT*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 10468 | static PyObject *f2py_rout__flapack_cgesdd(const PyObject *capi_self, | |||
| 10469 | PyObject *capi_args, | |||
| 10470 | PyObject *capi_keywds, | |||
| 10471 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 10472 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 10473 | volatile int f2py_success = 1; | |||
| 10474 | /*decl*/ | |||
| 10475 | ||||
| 10476 | int m = 0; | |||
| 10477 | int n = 0; | |||
| 10478 | int minmn = 0; | |||
| 10479 | int u0 = 0; | |||
| 10480 | int u1 = 0; | |||
| 10481 | int vt0 = 0; | |||
| 10482 | int vt1 = 0; | |||
| 10483 | complex_float *a = NULL((void*)0); | |||
| 10484 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 10485 | const int a_Rank = 2; | |||
| 10486 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 10487 | int capi_a_intent = 0; | |||
| 10488 | int capi_overwrite_a = 0; | |||
| 10489 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 10490 | int compute_uv = 0; | |||
| 10491 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 10492 | int full_matrices = 0; | |||
| 10493 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 10494 | complex_float *u = NULL((void*)0); | |||
| 10495 | npy_intp u_Dims[2] = {-1, -1}; | |||
| 10496 | const int u_Rank = 2; | |||
| 10497 | PyArrayObject *capi_u_tmp = NULL((void*)0); | |||
| 10498 | int capi_u_intent = 0; | |||
| 10499 | float *s = NULL((void*)0); | |||
| 10500 | npy_intp s_Dims[1] = {-1}; | |||
| 10501 | const int s_Rank = 1; | |||
| 10502 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 10503 | int capi_s_intent = 0; | |||
| 10504 | complex_float *vt = NULL((void*)0); | |||
| 10505 | npy_intp vt_Dims[2] = {-1, -1}; | |||
| 10506 | const int vt_Rank = 2; | |||
| 10507 | PyArrayObject *capi_vt_tmp = NULL((void*)0); | |||
| 10508 | int capi_vt_intent = 0; | |||
| 10509 | complex_float *work = NULL((void*)0); | |||
| 10510 | npy_intp work_Dims[1] = {-1}; | |||
| 10511 | const int work_Rank = 1; | |||
| 10512 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 10513 | int capi_work_intent = 0; | |||
| 10514 | float *rwork = NULL((void*)0); | |||
| 10515 | npy_intp rwork_Dims[1] = {-1}; | |||
| 10516 | const int rwork_Rank = 1; | |||
| 10517 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 10518 | int capi_rwork_intent = 0; | |||
| 10519 | int lwork = 0; | |||
| 10520 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 10521 | int *iwork = NULL((void*)0); | |||
| 10522 | npy_intp iwork_Dims[1] = {-1}; | |||
| 10523 | const int iwork_Rank = 1; | |||
| 10524 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 10525 | int capi_iwork_intent = 0; | |||
| 10526 | int info = 0; | |||
| 10527 | static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)}; | |||
| 10528 | ||||
| 10529 | /*routdebugenter*/ | |||
| 10530 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10531 | f2py_start_clock(); | |||
| 10532 | #endif | |||
| 10533 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 10534 | "O|OOOi:_flapack.cgesdd",\ | |||
| 10535 | capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 10536 | return NULL((void*)0); | |||
| 10537 | /*frompyobj*/ | |||
| 10538 | /* Processing variable compute_uv */ | |||
| 10539 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 10540 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.cgesdd() 1st keyword (compute_uv) can't be converted to int"); | |||
| 10541 | if (f2py_success) { | |||
| 10542 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","cgesdd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgesdd:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 10543 | /* Processing variable full_matrices */ | |||
| 10544 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 10545 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.cgesdd() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 10546 | if (f2py_success) { | |||
| 10547 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","cgesdd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgesdd:full_matrices=%d", "(""full_matrices==0||full_matrices==1" ") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 10548 | /* Processing variable a */ | |||
| 10549 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 10550 | ; | |||
| 10551 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 10552 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 10553 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 10554 | if (!PyErr_Occurred()) | |||
| 10555 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgesdd to C/Fortran array" ); | |||
| 10556 | } else { | |||
| 10557 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 10558 | ||||
| 10559 | /* Processing variable info */ | |||
| 10560 | /* Processing variable m */ | |||
| 10561 | m = shape(a,0)a_Dims[0]; | |||
| 10562 | /* Processing variable n */ | |||
| 10563 | n = shape(a,1)a_Dims[1]; | |||
| 10564 | /* Processing variable minmn */ | |||
| 10565 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 10566 | /* Processing variable u0 */ | |||
| 10567 | u0 = (compute_uv?m:1); | |||
| 10568 | /* Processing variable u1 */ | |||
| 10569 | u1 = (compute_uv?(full_matrices?m:minmn):1); | |||
| 10570 | /* Processing variable vt0 */ | |||
| 10571 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 10572 | /* Processing variable vt1 */ | |||
| 10573 | vt1 = (compute_uv?n:1); | |||
| 10574 | /* Processing variable s */ | |||
| 10575 | s_Dims[0]=minmn; | |||
| 10576 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 10577 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 10578 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 10579 | if (!PyErr_Occurred()) | |||
| 10580 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.cgesdd to C/Fortran array" ); | |||
| 10581 | } else { | |||
| 10582 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 10583 | ||||
| 10584 | /* Processing variable u */ | |||
| 10585 | u_Dims[0]=u0,u_Dims[1]=u1; | |||
| 10586 | capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 10587 | capi_u_tmp = array_from_pyobj(NPY_CFLOAT,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct)); | |||
| 10588 | if (capi_u_tmp == NULL((void*)0)) { | |||
| 10589 | if (!PyErr_Occurred()) | |||
| 10590 | PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.cgesdd to C/Fortran array" ); | |||
| 10591 | } else { | |||
| 10592 | u = (complex_float *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data)); | |||
| 10593 | ||||
| 10594 | /* Processing variable vt */ | |||
| 10595 | vt_Dims[0]=vt0,vt_Dims[1]=vt1; | |||
| 10596 | capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 10597 | capi_vt_tmp = array_from_pyobj(NPY_CFLOAT,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct)); | |||
| 10598 | if (capi_vt_tmp == NULL((void*)0)) { | |||
| 10599 | if (!PyErr_Occurred()) | |||
| 10600 | PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.cgesdd to C/Fortran array" ); | |||
| 10601 | } else { | |||
| 10602 | vt = (complex_float *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data)); | |||
| 10603 | ||||
| 10604 | /* Processing variable rwork */ | |||
| 10605 | rwork_Dims[0]=(compute_uv?minmn*MAX(5*minmn+7, 2*MAX(m,n)+2*minmn+1)((5*minmn+7 > 2*((m > n) ? (m) : (n))+2*minmn+1) ? (5*minmn +7) : (2*((m > n) ? (m) : (n))+2*minmn+1)):7*minmn); | |||
| 10606 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 10607 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 10608 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 10609 | if (!PyErr_Occurred()) | |||
| 10610 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgesdd to C/Fortran array" ); | |||
| 10611 | } else { | |||
| 10612 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 10613 | ||||
| 10614 | /* Processing variable lwork */ | |||
| 10615 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_uv?2*minmn*minmn+MAX(m,n)+2*minmn:2*minmn+MAX(m,n)),1)(((compute_uv?2*minmn*minmn+((m > n) ? (m) : (n))+2*minmn: 2*minmn+((m > n) ? (m) : (n))) > 1) ? ((compute_uv?2*minmn *minmn+((m > n) ? (m) : (n))+2*minmn:2*minmn+((m > n) ? (m) : (n)))) : (1)); else | |||
| 10616 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgesdd() 3rd keyword (lwork) can't be converted to int"); | |||
| 10617 | if (f2py_success) { | |||
| 10618 | /* Processing variable iwork */ | |||
| 10619 | iwork_Dims[0]=8 * minmn; | |||
| 10620 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 10621 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 10622 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 10623 | if (!PyErr_Occurred()) | |||
| 10624 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.cgesdd to C/Fortran array" ); | |||
| 10625 | } else { | |||
| 10626 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 10627 | ||||
| 10628 | /* Processing variable work */ | |||
| 10629 | work_Dims[0]=lwork; | |||
| 10630 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 10631 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 10632 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 10633 | if (!PyErr_Occurred()) | |||
| 10634 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgesdd to C/Fortran array" ); | |||
| 10635 | } else { | |||
| 10636 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 10637 | ||||
| 10638 | /*end of frompyobj*/ | |||
| 10639 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10640 | f2py_start_call_clock(); | |||
| 10641 | #endif | |||
| 10642 | /*callfortranroutine*/ | |||
| 10643 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,rwork,iwork,&info) ; | |||
| 10644 | /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,rwork,&lwork,iwork,&info);*/ | |||
| 10645 | if (PyErr_Occurred()) | |||
| 10646 | f2py_success = 0; | |||
| 10647 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10648 | f2py_stop_call_clock(); | |||
| 10649 | #endif | |||
| 10650 | /*end of callfortranroutine*/ | |||
| 10651 | if (f2py_success) { | |||
| 10652 | /*pyobjfrom*/ | |||
| 10653 | /*end of pyobjfrom*/ | |||
| 10654 | CFUNCSMESS("Building return value.\n"); | |||
| 10655 | capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info); | |||
| 10656 | /*closepyobjfrom*/ | |||
| 10657 | /*end of closepyobjfrom*/ | |||
| 10658 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 10659 | /*cleanupfrompyobj*/ | |||
| 10660 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 10661 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 10662 | /* End of cleaning variable work */ | |||
| 10663 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 10664 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 10665 | /* End of cleaning variable iwork */ | |||
| 10666 | } /*if (f2py_success) of lwork*/ | |||
| 10667 | /* End of cleaning variable lwork */ | |||
| 10668 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 10669 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 10670 | /* End of cleaning variable rwork */ | |||
| 10671 | } /*if (capi_vt_tmp == NULL) ... else of vt*/ | |||
| 10672 | /* End of cleaning variable vt */ | |||
| 10673 | } /*if (capi_u_tmp == NULL) ... else of u*/ | |||
| 10674 | /* End of cleaning variable u */ | |||
| 10675 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 10676 | /* End of cleaning variable s */ | |||
| 10677 | /* End of cleaning variable vt1 */ | |||
| 10678 | /* End of cleaning variable vt0 */ | |||
| 10679 | /* End of cleaning variable u1 */ | |||
| 10680 | /* End of cleaning variable u0 */ | |||
| 10681 | /* End of cleaning variable minmn */ | |||
| 10682 | /* End of cleaning variable n */ | |||
| 10683 | /* End of cleaning variable m */ | |||
| 10684 | /* End of cleaning variable info */ | |||
| 10685 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 10686 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 10687 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 10688 | /* End of cleaning variable a */ | |||
| 10689 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 10690 | } /*if (f2py_success) of full_matrices*/ | |||
| 10691 | /* End of cleaning variable full_matrices */ | |||
| 10692 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 10693 | } /*if (f2py_success) of compute_uv*/ | |||
| 10694 | /* End of cleaning variable compute_uv */ | |||
| 10695 | /*end of cleanupfrompyobj*/ | |||
| 10696 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 10697 | /*routdebugfailure*/ | |||
| 10698 | } else { | |||
| 10699 | /*routdebugleave*/ | |||
| 10700 | } | |||
| 10701 | CFUNCSMESS("Freeing memory.\n"); | |||
| 10702 | /*freemem*/ | |||
| 10703 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10704 | f2py_stop_clock(); | |||
| 10705 | #endif | |||
| 10706 | return capi_buildvalue; | |||
| 10707 | } | |||
| 10708 | /******************************* end of cgesdd *******************************/ | |||
| 10709 | ||||
| 10710 | /*********************************** zgesdd ***********************************/ | |||
| 10711 | static char doc_f2py_rout__flapack_zgesdd[] = "\ | |||
| 10712 | u,s,vt,info = zgesdd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``zgesdd``.\ | |||
| 10713 | \n\nParameters\n----------\n" | |||
| 10714 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 10715 | "\nOther Parameters\n----------------\n" | |||
| 10716 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 10717 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 10718 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 10719 | "lwork : input int, optional\n Default: max((compute_uv?2*minmn*minmn+MAX(m,n)+2*minmn:2*minmn+MAX(m,n)),1)\n" | |||
| 10720 | "\nReturns\n-------\n" | |||
| 10721 | "u : rank-2 array('D') with bounds (u0,u1)\n" | |||
| 10722 | "s : rank-1 array('d') with bounds (minmn)\n" | |||
| 10723 | "vt : rank-2 array('D') with bounds (vt0,vt1)\n" | |||
| 10724 | "info : int"; | |||
| 10725 | /* extern void F_FUNC(zgesdd,ZGESDD)(char*,F_INT*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 10726 | static PyObject *f2py_rout__flapack_zgesdd(const PyObject *capi_self, | |||
| 10727 | PyObject *capi_args, | |||
| 10728 | PyObject *capi_keywds, | |||
| 10729 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 10730 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 10731 | volatile int f2py_success = 1; | |||
| 10732 | /*decl*/ | |||
| 10733 | ||||
| 10734 | int m = 0; | |||
| 10735 | int n = 0; | |||
| 10736 | int minmn = 0; | |||
| 10737 | int u0 = 0; | |||
| 10738 | int u1 = 0; | |||
| 10739 | int vt0 = 0; | |||
| 10740 | int vt1 = 0; | |||
| 10741 | complex_double *a = NULL((void*)0); | |||
| 10742 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 10743 | const int a_Rank = 2; | |||
| 10744 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 10745 | int capi_a_intent = 0; | |||
| 10746 | int capi_overwrite_a = 0; | |||
| 10747 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 10748 | int compute_uv = 0; | |||
| 10749 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 10750 | int full_matrices = 0; | |||
| 10751 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 10752 | complex_double *u = NULL((void*)0); | |||
| 10753 | npy_intp u_Dims[2] = {-1, -1}; | |||
| 10754 | const int u_Rank = 2; | |||
| 10755 | PyArrayObject *capi_u_tmp = NULL((void*)0); | |||
| 10756 | int capi_u_intent = 0; | |||
| 10757 | double *s = NULL((void*)0); | |||
| 10758 | npy_intp s_Dims[1] = {-1}; | |||
| 10759 | const int s_Rank = 1; | |||
| 10760 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 10761 | int capi_s_intent = 0; | |||
| 10762 | complex_double *vt = NULL((void*)0); | |||
| 10763 | npy_intp vt_Dims[2] = {-1, -1}; | |||
| 10764 | const int vt_Rank = 2; | |||
| 10765 | PyArrayObject *capi_vt_tmp = NULL((void*)0); | |||
| 10766 | int capi_vt_intent = 0; | |||
| 10767 | complex_double *work = NULL((void*)0); | |||
| 10768 | npy_intp work_Dims[1] = {-1}; | |||
| 10769 | const int work_Rank = 1; | |||
| 10770 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 10771 | int capi_work_intent = 0; | |||
| 10772 | double *rwork = NULL((void*)0); | |||
| 10773 | npy_intp rwork_Dims[1] = {-1}; | |||
| 10774 | const int rwork_Rank = 1; | |||
| 10775 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 10776 | int capi_rwork_intent = 0; | |||
| 10777 | int lwork = 0; | |||
| 10778 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 10779 | int *iwork = NULL((void*)0); | |||
| 10780 | npy_intp iwork_Dims[1] = {-1}; | |||
| 10781 | const int iwork_Rank = 1; | |||
| 10782 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 10783 | int capi_iwork_intent = 0; | |||
| 10784 | int info = 0; | |||
| 10785 | static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)}; | |||
| 10786 | ||||
| 10787 | /*routdebugenter*/ | |||
| 10788 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10789 | f2py_start_clock(); | |||
| 10790 | #endif | |||
| 10791 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 10792 | "O|OOOi:_flapack.zgesdd",\ | |||
| 10793 | capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 10794 | return NULL((void*)0); | |||
| 10795 | /*frompyobj*/ | |||
| 10796 | /* Processing variable compute_uv */ | |||
| 10797 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 10798 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.zgesdd() 1st keyword (compute_uv) can't be converted to int"); | |||
| 10799 | if (f2py_success) { | |||
| 10800 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","zgesdd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgesdd:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 10801 | /* Processing variable full_matrices */ | |||
| 10802 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 10803 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.zgesdd() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 10804 | if (f2py_success) { | |||
| 10805 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","zgesdd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgesdd:full_matrices=%d", "(""full_matrices==0||full_matrices==1" ") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 10806 | /* Processing variable a */ | |||
| 10807 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 10808 | ; | |||
| 10809 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 10810 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 10811 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 10812 | if (!PyErr_Occurred()) | |||
| 10813 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgesdd to C/Fortran array" ); | |||
| 10814 | } else { | |||
| 10815 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 10816 | ||||
| 10817 | /* Processing variable info */ | |||
| 10818 | /* Processing variable m */ | |||
| 10819 | m = shape(a,0)a_Dims[0]; | |||
| 10820 | /* Processing variable n */ | |||
| 10821 | n = shape(a,1)a_Dims[1]; | |||
| 10822 | /* Processing variable minmn */ | |||
| 10823 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 10824 | /* Processing variable u0 */ | |||
| 10825 | u0 = (compute_uv?m:1); | |||
| 10826 | /* Processing variable u1 */ | |||
| 10827 | u1 = (compute_uv?(full_matrices?m:minmn):1); | |||
| 10828 | /* Processing variable vt0 */ | |||
| 10829 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 10830 | /* Processing variable vt1 */ | |||
| 10831 | vt1 = (compute_uv?n:1); | |||
| 10832 | /* Processing variable s */ | |||
| 10833 | s_Dims[0]=minmn; | |||
| 10834 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 10835 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 10836 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 10837 | if (!PyErr_Occurred()) | |||
| 10838 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.zgesdd to C/Fortran array" ); | |||
| 10839 | } else { | |||
| 10840 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 10841 | ||||
| 10842 | /* Processing variable u */ | |||
| 10843 | u_Dims[0]=u0,u_Dims[1]=u1; | |||
| 10844 | capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 10845 | capi_u_tmp = array_from_pyobj(NPY_CDOUBLE,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct)); | |||
| 10846 | if (capi_u_tmp == NULL((void*)0)) { | |||
| 10847 | if (!PyErr_Occurred()) | |||
| 10848 | PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.zgesdd to C/Fortran array" ); | |||
| 10849 | } else { | |||
| 10850 | u = (complex_double *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data)); | |||
| 10851 | ||||
| 10852 | /* Processing variable vt */ | |||
| 10853 | vt_Dims[0]=vt0,vt_Dims[1]=vt1; | |||
| 10854 | capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 10855 | capi_vt_tmp = array_from_pyobj(NPY_CDOUBLE,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct)); | |||
| 10856 | if (capi_vt_tmp == NULL((void*)0)) { | |||
| 10857 | if (!PyErr_Occurred()) | |||
| 10858 | PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.zgesdd to C/Fortran array" ); | |||
| 10859 | } else { | |||
| 10860 | vt = (complex_double *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data)); | |||
| 10861 | ||||
| 10862 | /* Processing variable rwork */ | |||
| 10863 | rwork_Dims[0]=(compute_uv?minmn*MAX(5*minmn+7, 2*MAX(m,n)+2*minmn+1)((5*minmn+7 > 2*((m > n) ? (m) : (n))+2*minmn+1) ? (5*minmn +7) : (2*((m > n) ? (m) : (n))+2*minmn+1)):7*minmn); | |||
| 10864 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 10865 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 10866 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 10867 | if (!PyErr_Occurred()) | |||
| 10868 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgesdd to C/Fortran array" ); | |||
| 10869 | } else { | |||
| 10870 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 10871 | ||||
| 10872 | /* Processing variable lwork */ | |||
| 10873 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_uv?2*minmn*minmn+MAX(m,n)+2*minmn:2*minmn+MAX(m,n)),1)(((compute_uv?2*minmn*minmn+((m > n) ? (m) : (n))+2*minmn: 2*minmn+((m > n) ? (m) : (n))) > 1) ? ((compute_uv?2*minmn *minmn+((m > n) ? (m) : (n))+2*minmn:2*minmn+((m > n) ? (m) : (n)))) : (1)); else | |||
| 10874 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgesdd() 3rd keyword (lwork) can't be converted to int"); | |||
| 10875 | if (f2py_success) { | |||
| 10876 | /* Processing variable iwork */ | |||
| 10877 | iwork_Dims[0]=8 * minmn; | |||
| 10878 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 10879 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 10880 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 10881 | if (!PyErr_Occurred()) | |||
| 10882 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zgesdd to C/Fortran array" ); | |||
| 10883 | } else { | |||
| 10884 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 10885 | ||||
| 10886 | /* Processing variable work */ | |||
| 10887 | work_Dims[0]=lwork; | |||
| 10888 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 10889 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 10890 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 10891 | if (!PyErr_Occurred()) | |||
| 10892 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgesdd to C/Fortran array" ); | |||
| 10893 | } else { | |||
| 10894 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 10895 | ||||
| 10896 | /*end of frompyobj*/ | |||
| 10897 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10898 | f2py_start_call_clock(); | |||
| 10899 | #endif | |||
| 10900 | /*callfortranroutine*/ | |||
| 10901 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,rwork,iwork,&info) ; | |||
| 10902 | /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,rwork,&lwork,iwork,&info);*/ | |||
| 10903 | if (PyErr_Occurred()) | |||
| 10904 | f2py_success = 0; | |||
| 10905 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10906 | f2py_stop_call_clock(); | |||
| 10907 | #endif | |||
| 10908 | /*end of callfortranroutine*/ | |||
| 10909 | if (f2py_success) { | |||
| 10910 | /*pyobjfrom*/ | |||
| 10911 | /*end of pyobjfrom*/ | |||
| 10912 | CFUNCSMESS("Building return value.\n"); | |||
| 10913 | capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info); | |||
| 10914 | /*closepyobjfrom*/ | |||
| 10915 | /*end of closepyobjfrom*/ | |||
| 10916 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 10917 | /*cleanupfrompyobj*/ | |||
| 10918 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 10919 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 10920 | /* End of cleaning variable work */ | |||
| 10921 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 10922 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 10923 | /* End of cleaning variable iwork */ | |||
| 10924 | } /*if (f2py_success) of lwork*/ | |||
| 10925 | /* End of cleaning variable lwork */ | |||
| 10926 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 10927 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 10928 | /* End of cleaning variable rwork */ | |||
| 10929 | } /*if (capi_vt_tmp == NULL) ... else of vt*/ | |||
| 10930 | /* End of cleaning variable vt */ | |||
| 10931 | } /*if (capi_u_tmp == NULL) ... else of u*/ | |||
| 10932 | /* End of cleaning variable u */ | |||
| 10933 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 10934 | /* End of cleaning variable s */ | |||
| 10935 | /* End of cleaning variable vt1 */ | |||
| 10936 | /* End of cleaning variable vt0 */ | |||
| 10937 | /* End of cleaning variable u1 */ | |||
| 10938 | /* End of cleaning variable u0 */ | |||
| 10939 | /* End of cleaning variable minmn */ | |||
| 10940 | /* End of cleaning variable n */ | |||
| 10941 | /* End of cleaning variable m */ | |||
| 10942 | /* End of cleaning variable info */ | |||
| 10943 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 10944 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 10945 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 10946 | /* End of cleaning variable a */ | |||
| 10947 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 10948 | } /*if (f2py_success) of full_matrices*/ | |||
| 10949 | /* End of cleaning variable full_matrices */ | |||
| 10950 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 10951 | } /*if (f2py_success) of compute_uv*/ | |||
| 10952 | /* End of cleaning variable compute_uv */ | |||
| 10953 | /*end of cleanupfrompyobj*/ | |||
| 10954 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 10955 | /*routdebugfailure*/ | |||
| 10956 | } else { | |||
| 10957 | /*routdebugleave*/ | |||
| 10958 | } | |||
| 10959 | CFUNCSMESS("Freeing memory.\n"); | |||
| 10960 | /*freemem*/ | |||
| 10961 | #ifdef F2PY_REPORT_ATEXIT | |||
| 10962 | f2py_stop_clock(); | |||
| 10963 | #endif | |||
| 10964 | return capi_buildvalue; | |||
| 10965 | } | |||
| 10966 | /******************************* end of zgesdd *******************************/ | |||
| 10967 | ||||
| 10968 | /******************************** cgesdd_lwork ********************************/ | |||
| 10969 | static char doc_f2py_rout__flapack_cgesdd_lwork[] = "\ | |||
| 10970 | work,info = cgesdd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``cgesdd_lwork``.\ | |||
| 10971 | \n\nParameters\n----------\n" | |||
| 10972 | "m : input int\n" | |||
| 10973 | "n : input int\n" | |||
| 10974 | "\nOther Parameters\n----------------\n" | |||
| 10975 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 10976 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 10977 | "\nReturns\n-------\n" | |||
| 10978 | "work : complex\n" | |||
| 10979 | "info : int"; | |||
| 10980 | /* extern void F_FUNC(cgesdd ,CGESDD )(char*,F_INT*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 10981 | static PyObject *f2py_rout__flapack_cgesdd_lwork(const PyObject *capi_self, | |||
| 10982 | PyObject *capi_args, | |||
| 10983 | PyObject *capi_keywds, | |||
| 10984 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 10985 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 10986 | volatile int f2py_success = 1; | |||
| 10987 | /*decl*/ | |||
| 10988 | ||||
| 10989 | int m = 0; | |||
| 10990 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 10991 | int n = 0; | |||
| 10992 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 10993 | int minmn = 0; | |||
| 10994 | int u0 = 0; | |||
| 10995 | int vt0 = 0; | |||
| 10996 | complex_float a; | |||
| 10997 | int compute_uv = 0; | |||
| 10998 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 10999 | int full_matrices = 0; | |||
| 11000 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 11001 | complex_float u; | |||
| 11002 | float s = 0; | |||
| 11003 | complex_float vt; | |||
| 11004 | complex_float work; | |||
| 11005 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 11006 | float rwork = 0; | |||
| 11007 | int lwork = 0; | |||
| 11008 | int iwork = 0; | |||
| 11009 | int info = 0; | |||
| 11010 | static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)}; | |||
| 11011 | ||||
| 11012 | /*routdebugenter*/ | |||
| 11013 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11014 | f2py_start_clock(); | |||
| 11015 | #endif | |||
| 11016 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 11017 | "OO|OO:_flapack.cgesdd_lwork",\ | |||
| 11018 | capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi)) | |||
| 11019 | return NULL((void*)0); | |||
| 11020 | /*frompyobj*/ | |||
| 11021 | /* Processing variable compute_uv */ | |||
| 11022 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 11023 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.cgesdd_lwork() 1st keyword (compute_uv) can't be converted to int"); | |||
| 11024 | if (f2py_success) { | |||
| 11025 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","cgesdd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgesdd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 11026 | /* Processing variable full_matrices */ | |||
| 11027 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 11028 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.cgesdd_lwork() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 11029 | if (f2py_success) { | |||
| 11030 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","cgesdd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgesdd_lwork:full_matrices=%d" , "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices" , full_matrices); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 11031 | /* Processing variable a */ | |||
| 11032 | /* Processing variable s */ | |||
| 11033 | /* Processing variable u */ | |||
| 11034 | /* Processing variable vt */ | |||
| 11035 | /* Processing variable work */ | |||
| 11036 | /* Processing variable rwork */ | |||
| 11037 | /* Processing variable lwork */ | |||
| 11038 | lwork = -1; | |||
| 11039 | /* Processing variable iwork */ | |||
| 11040 | /* Processing variable info */ | |||
| 11041 | /* Processing variable m */ | |||
| 11042 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgesdd_lwork() 1st argument (m) can't be converted to int"); | |||
| 11043 | if (f2py_success) { | |||
| 11044 | /* Processing variable n */ | |||
| 11045 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgesdd_lwork() 2nd argument (n) can't be converted to int"); | |||
| 11046 | if (f2py_success) { | |||
| 11047 | /* Processing variable minmn */ | |||
| 11048 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 11049 | /* Processing variable u0 */ | |||
| 11050 | u0 = (compute_uv?m:1); | |||
| 11051 | /* Processing variable vt0 */ | |||
| 11052 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 11053 | /*end of frompyobj*/ | |||
| 11054 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11055 | f2py_start_call_clock(); | |||
| 11056 | #endif | |||
| 11057 | /*callfortranroutine*/ | |||
| 11058 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&rwork,&iwork,&info) ; | |||
| 11059 | /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&rwork,&lwork,&iwork,&info);*/ | |||
| 11060 | if (PyErr_Occurred()) | |||
| 11061 | f2py_success = 0; | |||
| 11062 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11063 | f2py_stop_call_clock(); | |||
| 11064 | #endif | |||
| 11065 | /*end of callfortranroutine*/ | |||
| 11066 | if (f2py_success) { | |||
| 11067 | /*pyobjfrom*/ | |||
| 11068 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 11069 | /*end of pyobjfrom*/ | |||
| 11070 | CFUNCSMESS("Building return value.\n"); | |||
| 11071 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 11072 | /*closepyobjfrom*/ | |||
| 11073 | /*end of closepyobjfrom*/ | |||
| 11074 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 11075 | /*cleanupfrompyobj*/ | |||
| 11076 | /* End of cleaning variable vt0 */ | |||
| 11077 | /* End of cleaning variable u0 */ | |||
| 11078 | /* End of cleaning variable minmn */ | |||
| 11079 | } /*if (f2py_success) of n*/ | |||
| 11080 | /* End of cleaning variable n */ | |||
| 11081 | } /*if (f2py_success) of m*/ | |||
| 11082 | /* End of cleaning variable m */ | |||
| 11083 | /* End of cleaning variable info */ | |||
| 11084 | /* End of cleaning variable iwork */ | |||
| 11085 | /* End of cleaning variable lwork */ | |||
| 11086 | /* End of cleaning variable rwork */ | |||
| 11087 | /* End of cleaning variable work */ | |||
| 11088 | /* End of cleaning variable vt */ | |||
| 11089 | /* End of cleaning variable u */ | |||
| 11090 | /* End of cleaning variable s */ | |||
| 11091 | /* End of cleaning variable a */ | |||
| 11092 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 11093 | } /*if (f2py_success) of full_matrices*/ | |||
| 11094 | /* End of cleaning variable full_matrices */ | |||
| 11095 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 11096 | } /*if (f2py_success) of compute_uv*/ | |||
| 11097 | /* End of cleaning variable compute_uv */ | |||
| 11098 | /*end of cleanupfrompyobj*/ | |||
| 11099 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 11100 | /*routdebugfailure*/ | |||
| 11101 | } else { | |||
| 11102 | /*routdebugleave*/ | |||
| 11103 | } | |||
| 11104 | CFUNCSMESS("Freeing memory.\n"); | |||
| 11105 | /*freemem*/ | |||
| 11106 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11107 | f2py_stop_clock(); | |||
| 11108 | #endif | |||
| 11109 | return capi_buildvalue; | |||
| 11110 | } | |||
| 11111 | /**************************** end of cgesdd_lwork ****************************/ | |||
| 11112 | ||||
| 11113 | /******************************** zgesdd_lwork ********************************/ | |||
| 11114 | static char doc_f2py_rout__flapack_zgesdd_lwork[] = "\ | |||
| 11115 | work,info = zgesdd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``zgesdd_lwork``.\ | |||
| 11116 | \n\nParameters\n----------\n" | |||
| 11117 | "m : input int\n" | |||
| 11118 | "n : input int\n" | |||
| 11119 | "\nOther Parameters\n----------------\n" | |||
| 11120 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 11121 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 11122 | "\nReturns\n-------\n" | |||
| 11123 | "work : complex\n" | |||
| 11124 | "info : int"; | |||
| 11125 | /* extern void F_FUNC(zgesdd ,ZGESDD )(char*,F_INT*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 11126 | static PyObject *f2py_rout__flapack_zgesdd_lwork(const PyObject *capi_self, | |||
| 11127 | PyObject *capi_args, | |||
| 11128 | PyObject *capi_keywds, | |||
| 11129 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 11130 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 11131 | volatile int f2py_success = 1; | |||
| 11132 | /*decl*/ | |||
| 11133 | ||||
| 11134 | int m = 0; | |||
| 11135 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 11136 | int n = 0; | |||
| 11137 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 11138 | int minmn = 0; | |||
| 11139 | int u0 = 0; | |||
| 11140 | int vt0 = 0; | |||
| 11141 | complex_double a; | |||
| 11142 | int compute_uv = 0; | |||
| 11143 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 11144 | int full_matrices = 0; | |||
| 11145 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 11146 | complex_double u; | |||
| 11147 | double s = 0; | |||
| 11148 | complex_double vt; | |||
| 11149 | complex_double work; | |||
| 11150 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 11151 | double rwork = 0; | |||
| 11152 | int lwork = 0; | |||
| 11153 | int iwork = 0; | |||
| 11154 | int info = 0; | |||
| 11155 | static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)}; | |||
| 11156 | ||||
| 11157 | /*routdebugenter*/ | |||
| 11158 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11159 | f2py_start_clock(); | |||
| 11160 | #endif | |||
| 11161 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 11162 | "OO|OO:_flapack.zgesdd_lwork",\ | |||
| 11163 | capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi)) | |||
| 11164 | return NULL((void*)0); | |||
| 11165 | /*frompyobj*/ | |||
| 11166 | /* Processing variable compute_uv */ | |||
| 11167 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 11168 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.zgesdd_lwork() 1st keyword (compute_uv) can't be converted to int"); | |||
| 11169 | if (f2py_success) { | |||
| 11170 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","zgesdd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgesdd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 11171 | /* Processing variable full_matrices */ | |||
| 11172 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 11173 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.zgesdd_lwork() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 11174 | if (f2py_success) { | |||
| 11175 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","zgesdd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgesdd_lwork:full_matrices=%d" , "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices" , full_matrices); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 11176 | /* Processing variable a */ | |||
| 11177 | /* Processing variable s */ | |||
| 11178 | /* Processing variable u */ | |||
| 11179 | /* Processing variable vt */ | |||
| 11180 | /* Processing variable work */ | |||
| 11181 | /* Processing variable rwork */ | |||
| 11182 | /* Processing variable lwork */ | |||
| 11183 | lwork = -1; | |||
| 11184 | /* Processing variable iwork */ | |||
| 11185 | /* Processing variable info */ | |||
| 11186 | /* Processing variable m */ | |||
| 11187 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgesdd_lwork() 1st argument (m) can't be converted to int"); | |||
| 11188 | if (f2py_success) { | |||
| 11189 | /* Processing variable n */ | |||
| 11190 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgesdd_lwork() 2nd argument (n) can't be converted to int"); | |||
| 11191 | if (f2py_success) { | |||
| 11192 | /* Processing variable minmn */ | |||
| 11193 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 11194 | /* Processing variable u0 */ | |||
| 11195 | u0 = (compute_uv?m:1); | |||
| 11196 | /* Processing variable vt0 */ | |||
| 11197 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 11198 | /*end of frompyobj*/ | |||
| 11199 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11200 | f2py_start_call_clock(); | |||
| 11201 | #endif | |||
| 11202 | /*callfortranroutine*/ | |||
| 11203 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&rwork,&iwork,&info) ; | |||
| 11204 | /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&rwork,&lwork,&iwork,&info);*/ | |||
| 11205 | if (PyErr_Occurred()) | |||
| 11206 | f2py_success = 0; | |||
| 11207 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11208 | f2py_stop_call_clock(); | |||
| 11209 | #endif | |||
| 11210 | /*end of callfortranroutine*/ | |||
| 11211 | if (f2py_success) { | |||
| 11212 | /*pyobjfrom*/ | |||
| 11213 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 11214 | /*end of pyobjfrom*/ | |||
| 11215 | CFUNCSMESS("Building return value.\n"); | |||
| 11216 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 11217 | /*closepyobjfrom*/ | |||
| 11218 | /*end of closepyobjfrom*/ | |||
| 11219 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 11220 | /*cleanupfrompyobj*/ | |||
| 11221 | /* End of cleaning variable vt0 */ | |||
| 11222 | /* End of cleaning variable u0 */ | |||
| 11223 | /* End of cleaning variable minmn */ | |||
| 11224 | } /*if (f2py_success) of n*/ | |||
| 11225 | /* End of cleaning variable n */ | |||
| 11226 | } /*if (f2py_success) of m*/ | |||
| 11227 | /* End of cleaning variable m */ | |||
| 11228 | /* End of cleaning variable info */ | |||
| 11229 | /* End of cleaning variable iwork */ | |||
| 11230 | /* End of cleaning variable lwork */ | |||
| 11231 | /* End of cleaning variable rwork */ | |||
| 11232 | /* End of cleaning variable work */ | |||
| 11233 | /* End of cleaning variable vt */ | |||
| 11234 | /* End of cleaning variable u */ | |||
| 11235 | /* End of cleaning variable s */ | |||
| 11236 | /* End of cleaning variable a */ | |||
| 11237 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 11238 | } /*if (f2py_success) of full_matrices*/ | |||
| 11239 | /* End of cleaning variable full_matrices */ | |||
| 11240 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 11241 | } /*if (f2py_success) of compute_uv*/ | |||
| 11242 | /* End of cleaning variable compute_uv */ | |||
| 11243 | /*end of cleanupfrompyobj*/ | |||
| 11244 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 11245 | /*routdebugfailure*/ | |||
| 11246 | } else { | |||
| 11247 | /*routdebugleave*/ | |||
| 11248 | } | |||
| 11249 | CFUNCSMESS("Freeing memory.\n"); | |||
| 11250 | /*freemem*/ | |||
| 11251 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11252 | f2py_stop_clock(); | |||
| 11253 | #endif | |||
| 11254 | return capi_buildvalue; | |||
| 11255 | } | |||
| 11256 | /**************************** end of zgesdd_lwork ****************************/ | |||
| 11257 | ||||
| 11258 | /*********************************** sgesvd ***********************************/ | |||
| 11259 | static char doc_f2py_rout__flapack_sgesvd[] = "\ | |||
| 11260 | u,s,vt,info = sgesvd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``sgesvd``.\ | |||
| 11261 | \n\nParameters\n----------\n" | |||
| 11262 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 11263 | "\nOther Parameters\n----------------\n" | |||
| 11264 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 11265 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 11266 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 11267 | "lwork : input int, optional\n Default: max(MAX(3*minmn+MAX(m,n),5*minmn),1)\n" | |||
| 11268 | "\nReturns\n-------\n" | |||
| 11269 | "u : rank-2 array('f') with bounds (u0,u1)\n" | |||
| 11270 | "s : rank-1 array('f') with bounds (minmn)\n" | |||
| 11271 | "vt : rank-2 array('f') with bounds (vt0,vt1)\n" | |||
| 11272 | "info : int"; | |||
| 11273 | /* extern void F_FUNC(sgesvd,SGESVD)(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 11274 | static PyObject *f2py_rout__flapack_sgesvd(const PyObject *capi_self, | |||
| 11275 | PyObject *capi_args, | |||
| 11276 | PyObject *capi_keywds, | |||
| 11277 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 11278 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 11279 | volatile int f2py_success = 1; | |||
| 11280 | /*decl*/ | |||
| 11281 | ||||
| 11282 | int m = 0; | |||
| 11283 | int n = 0; | |||
| 11284 | int minmn = 0; | |||
| 11285 | int u0 = 0; | |||
| 11286 | int u1 = 0; | |||
| 11287 | int vt0 = 0; | |||
| 11288 | int vt1 = 0; | |||
| 11289 | float *a = NULL((void*)0); | |||
| 11290 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 11291 | const int a_Rank = 2; | |||
| 11292 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 11293 | int capi_a_intent = 0; | |||
| 11294 | int capi_overwrite_a = 0; | |||
| 11295 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 11296 | int compute_uv = 0; | |||
| 11297 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 11298 | int full_matrices = 0; | |||
| 11299 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 11300 | float *u = NULL((void*)0); | |||
| 11301 | npy_intp u_Dims[2] = {-1, -1}; | |||
| 11302 | const int u_Rank = 2; | |||
| 11303 | PyArrayObject *capi_u_tmp = NULL((void*)0); | |||
| 11304 | int capi_u_intent = 0; | |||
| 11305 | float *s = NULL((void*)0); | |||
| 11306 | npy_intp s_Dims[1] = {-1}; | |||
| 11307 | const int s_Rank = 1; | |||
| 11308 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 11309 | int capi_s_intent = 0; | |||
| 11310 | float *vt = NULL((void*)0); | |||
| 11311 | npy_intp vt_Dims[2] = {-1, -1}; | |||
| 11312 | const int vt_Rank = 2; | |||
| 11313 | PyArrayObject *capi_vt_tmp = NULL((void*)0); | |||
| 11314 | int capi_vt_intent = 0; | |||
| 11315 | float *work = NULL((void*)0); | |||
| 11316 | npy_intp work_Dims[1] = {-1}; | |||
| 11317 | const int work_Rank = 1; | |||
| 11318 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 11319 | int capi_work_intent = 0; | |||
| 11320 | int lwork = 0; | |||
| 11321 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 11322 | int info = 0; | |||
| 11323 | static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)}; | |||
| 11324 | ||||
| 11325 | /*routdebugenter*/ | |||
| 11326 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11327 | f2py_start_clock(); | |||
| 11328 | #endif | |||
| 11329 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 11330 | "O|OOOi:_flapack.sgesvd",\ | |||
| 11331 | capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 11332 | return NULL((void*)0); | |||
| 11333 | /*frompyobj*/ | |||
| 11334 | /* Processing variable compute_uv */ | |||
| 11335 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 11336 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.sgesvd() 1st keyword (compute_uv) can't be converted to int"); | |||
| 11337 | if (f2py_success) { | |||
| 11338 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","sgesvd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgesvd:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 11339 | /* Processing variable full_matrices */ | |||
| 11340 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 11341 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.sgesvd() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 11342 | if (f2py_success) { | |||
| 11343 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","sgesvd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgesvd:full_matrices=%d", "(""full_matrices==0||full_matrices==1" ") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 11344 | /* Processing variable a */ | |||
| 11345 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 11346 | ; | |||
| 11347 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 11348 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 11349 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 11350 | if (!PyErr_Occurred()) | |||
| 11351 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgesvd to C/Fortran array" ); | |||
| 11352 | } else { | |||
| 11353 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 11354 | ||||
| 11355 | /* Processing variable info */ | |||
| 11356 | /* Processing variable m */ | |||
| 11357 | m = shape(a,0)a_Dims[0]; | |||
| 11358 | /* Processing variable n */ | |||
| 11359 | n = shape(a,1)a_Dims[1]; | |||
| 11360 | /* Processing variable minmn */ | |||
| 11361 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 11362 | /* Processing variable u0 */ | |||
| 11363 | u0 = (compute_uv?m:1); | |||
| 11364 | /* Processing variable u1 */ | |||
| 11365 | u1 = (compute_uv?(full_matrices?m:minmn):1); | |||
| 11366 | /* Processing variable vt0 */ | |||
| 11367 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 11368 | /* Processing variable vt1 */ | |||
| 11369 | vt1 = (compute_uv?n:1); | |||
| 11370 | /* Processing variable s */ | |||
| 11371 | s_Dims[0]=minmn; | |||
| 11372 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 11373 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 11374 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 11375 | if (!PyErr_Occurred()) | |||
| 11376 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.sgesvd to C/Fortran array" ); | |||
| 11377 | } else { | |||
| 11378 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 11379 | ||||
| 11380 | /* Processing variable u */ | |||
| 11381 | u_Dims[0]=u0,u_Dims[1]=u1; | |||
| 11382 | capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 11383 | capi_u_tmp = array_from_pyobj(NPY_FLOAT,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct)); | |||
| 11384 | if (capi_u_tmp == NULL((void*)0)) { | |||
| 11385 | if (!PyErr_Occurred()) | |||
| 11386 | PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.sgesvd to C/Fortran array" ); | |||
| 11387 | } else { | |||
| 11388 | u = (float *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data)); | |||
| 11389 | ||||
| 11390 | /* Processing variable vt */ | |||
| 11391 | vt_Dims[0]=vt0,vt_Dims[1]=vt1; | |||
| 11392 | capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 11393 | capi_vt_tmp = array_from_pyobj(NPY_FLOAT,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct)); | |||
| 11394 | if (capi_vt_tmp == NULL((void*)0)) { | |||
| 11395 | if (!PyErr_Occurred()) | |||
| 11396 | PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.sgesvd to C/Fortran array" ); | |||
| 11397 | } else { | |||
| 11398 | vt = (float *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data)); | |||
| 11399 | ||||
| 11400 | /* Processing variable lwork */ | |||
| 11401 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(MAX(3*minmn+MAX(m,n),5*minmn),1)((((3*minmn+((m > n) ? (m) : (n)) > 5*minmn) ? (3*minmn +((m > n) ? (m) : (n))) : (5*minmn)) > 1) ? (((3*minmn+ ((m > n) ? (m) : (n)) > 5*minmn) ? (3*minmn+((m > n) ? (m) : (n))) : (5*minmn))) : (1)); else | |||
| 11402 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgesvd() 3rd keyword (lwork) can't be converted to int"); | |||
| 11403 | if (f2py_success) { | |||
| 11404 | /* Processing variable work */ | |||
| 11405 | work_Dims[0]=lwork; | |||
| 11406 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 11407 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 11408 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 11409 | if (!PyErr_Occurred()) | |||
| 11410 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgesvd to C/Fortran array" ); | |||
| 11411 | } else { | |||
| 11412 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 11413 | ||||
| 11414 | /*end of frompyobj*/ | |||
| 11415 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11416 | f2py_start_call_clock(); | |||
| 11417 | #endif | |||
| 11418 | /*callfortranroutine*/ | |||
| 11419 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,&info) ; | |||
| 11420 | /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,&lwork,&info);*/ | |||
| 11421 | if (PyErr_Occurred()) | |||
| 11422 | f2py_success = 0; | |||
| 11423 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11424 | f2py_stop_call_clock(); | |||
| 11425 | #endif | |||
| 11426 | /*end of callfortranroutine*/ | |||
| 11427 | if (f2py_success) { | |||
| 11428 | /*pyobjfrom*/ | |||
| 11429 | /*end of pyobjfrom*/ | |||
| 11430 | CFUNCSMESS("Building return value.\n"); | |||
| 11431 | capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info); | |||
| 11432 | /*closepyobjfrom*/ | |||
| 11433 | /*end of closepyobjfrom*/ | |||
| 11434 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 11435 | /*cleanupfrompyobj*/ | |||
| 11436 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 11437 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 11438 | /* End of cleaning variable work */ | |||
| 11439 | } /*if (f2py_success) of lwork*/ | |||
| 11440 | /* End of cleaning variable lwork */ | |||
| 11441 | } /*if (capi_vt_tmp == NULL) ... else of vt*/ | |||
| 11442 | /* End of cleaning variable vt */ | |||
| 11443 | } /*if (capi_u_tmp == NULL) ... else of u*/ | |||
| 11444 | /* End of cleaning variable u */ | |||
| 11445 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 11446 | /* End of cleaning variable s */ | |||
| 11447 | /* End of cleaning variable vt1 */ | |||
| 11448 | /* End of cleaning variable vt0 */ | |||
| 11449 | /* End of cleaning variable u1 */ | |||
| 11450 | /* End of cleaning variable u0 */ | |||
| 11451 | /* End of cleaning variable minmn */ | |||
| 11452 | /* End of cleaning variable n */ | |||
| 11453 | /* End of cleaning variable m */ | |||
| 11454 | /* End of cleaning variable info */ | |||
| 11455 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 11456 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 11457 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 11458 | /* End of cleaning variable a */ | |||
| 11459 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 11460 | } /*if (f2py_success) of full_matrices*/ | |||
| 11461 | /* End of cleaning variable full_matrices */ | |||
| 11462 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 11463 | } /*if (f2py_success) of compute_uv*/ | |||
| 11464 | /* End of cleaning variable compute_uv */ | |||
| 11465 | /*end of cleanupfrompyobj*/ | |||
| 11466 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 11467 | /*routdebugfailure*/ | |||
| 11468 | } else { | |||
| 11469 | /*routdebugleave*/ | |||
| 11470 | } | |||
| 11471 | CFUNCSMESS("Freeing memory.\n"); | |||
| 11472 | /*freemem*/ | |||
| 11473 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11474 | f2py_stop_clock(); | |||
| 11475 | #endif | |||
| 11476 | return capi_buildvalue; | |||
| 11477 | } | |||
| 11478 | /******************************* end of sgesvd *******************************/ | |||
| 11479 | ||||
| 11480 | /*********************************** dgesvd ***********************************/ | |||
| 11481 | static char doc_f2py_rout__flapack_dgesvd[] = "\ | |||
| 11482 | u,s,vt,info = dgesvd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``dgesvd``.\ | |||
| 11483 | \n\nParameters\n----------\n" | |||
| 11484 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 11485 | "\nOther Parameters\n----------------\n" | |||
| 11486 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 11487 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 11488 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 11489 | "lwork : input int, optional\n Default: max(MAX(3*minmn+MAX(m,n),5*minmn),1)\n" | |||
| 11490 | "\nReturns\n-------\n" | |||
| 11491 | "u : rank-2 array('d') with bounds (u0,u1)\n" | |||
| 11492 | "s : rank-1 array('d') with bounds (minmn)\n" | |||
| 11493 | "vt : rank-2 array('d') with bounds (vt0,vt1)\n" | |||
| 11494 | "info : int"; | |||
| 11495 | /* extern void F_FUNC(dgesvd,DGESVD)(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 11496 | static PyObject *f2py_rout__flapack_dgesvd(const PyObject *capi_self, | |||
| 11497 | PyObject *capi_args, | |||
| 11498 | PyObject *capi_keywds, | |||
| 11499 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 11500 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 11501 | volatile int f2py_success = 1; | |||
| 11502 | /*decl*/ | |||
| 11503 | ||||
| 11504 | int m = 0; | |||
| 11505 | int n = 0; | |||
| 11506 | int minmn = 0; | |||
| 11507 | int u0 = 0; | |||
| 11508 | int u1 = 0; | |||
| 11509 | int vt0 = 0; | |||
| 11510 | int vt1 = 0; | |||
| 11511 | double *a = NULL((void*)0); | |||
| 11512 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 11513 | const int a_Rank = 2; | |||
| 11514 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 11515 | int capi_a_intent = 0; | |||
| 11516 | int capi_overwrite_a = 0; | |||
| 11517 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 11518 | int compute_uv = 0; | |||
| 11519 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 11520 | int full_matrices = 0; | |||
| 11521 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 11522 | double *u = NULL((void*)0); | |||
| 11523 | npy_intp u_Dims[2] = {-1, -1}; | |||
| 11524 | const int u_Rank = 2; | |||
| 11525 | PyArrayObject *capi_u_tmp = NULL((void*)0); | |||
| 11526 | int capi_u_intent = 0; | |||
| 11527 | double *s = NULL((void*)0); | |||
| 11528 | npy_intp s_Dims[1] = {-1}; | |||
| 11529 | const int s_Rank = 1; | |||
| 11530 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 11531 | int capi_s_intent = 0; | |||
| 11532 | double *vt = NULL((void*)0); | |||
| 11533 | npy_intp vt_Dims[2] = {-1, -1}; | |||
| 11534 | const int vt_Rank = 2; | |||
| 11535 | PyArrayObject *capi_vt_tmp = NULL((void*)0); | |||
| 11536 | int capi_vt_intent = 0; | |||
| 11537 | double *work = NULL((void*)0); | |||
| 11538 | npy_intp work_Dims[1] = {-1}; | |||
| 11539 | const int work_Rank = 1; | |||
| 11540 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 11541 | int capi_work_intent = 0; | |||
| 11542 | int lwork = 0; | |||
| 11543 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 11544 | int info = 0; | |||
| 11545 | static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)}; | |||
| 11546 | ||||
| 11547 | /*routdebugenter*/ | |||
| 11548 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11549 | f2py_start_clock(); | |||
| 11550 | #endif | |||
| 11551 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 11552 | "O|OOOi:_flapack.dgesvd",\ | |||
| 11553 | capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 11554 | return NULL((void*)0); | |||
| 11555 | /*frompyobj*/ | |||
| 11556 | /* Processing variable compute_uv */ | |||
| 11557 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 11558 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.dgesvd() 1st keyword (compute_uv) can't be converted to int"); | |||
| 11559 | if (f2py_success) { | |||
| 11560 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","dgesvd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgesvd:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 11561 | /* Processing variable full_matrices */ | |||
| 11562 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 11563 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.dgesvd() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 11564 | if (f2py_success) { | |||
| 11565 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","dgesvd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgesvd:full_matrices=%d", "(""full_matrices==0||full_matrices==1" ") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 11566 | /* Processing variable a */ | |||
| 11567 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 11568 | ; | |||
| 11569 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 11570 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 11571 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 11572 | if (!PyErr_Occurred()) | |||
| 11573 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgesvd to C/Fortran array" ); | |||
| 11574 | } else { | |||
| 11575 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 11576 | ||||
| 11577 | /* Processing variable info */ | |||
| 11578 | /* Processing variable m */ | |||
| 11579 | m = shape(a,0)a_Dims[0]; | |||
| 11580 | /* Processing variable n */ | |||
| 11581 | n = shape(a,1)a_Dims[1]; | |||
| 11582 | /* Processing variable minmn */ | |||
| 11583 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 11584 | /* Processing variable u0 */ | |||
| 11585 | u0 = (compute_uv?m:1); | |||
| 11586 | /* Processing variable u1 */ | |||
| 11587 | u1 = (compute_uv?(full_matrices?m:minmn):1); | |||
| 11588 | /* Processing variable vt0 */ | |||
| 11589 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 11590 | /* Processing variable vt1 */ | |||
| 11591 | vt1 = (compute_uv?n:1); | |||
| 11592 | /* Processing variable s */ | |||
| 11593 | s_Dims[0]=minmn; | |||
| 11594 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 11595 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 11596 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 11597 | if (!PyErr_Occurred()) | |||
| 11598 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.dgesvd to C/Fortran array" ); | |||
| 11599 | } else { | |||
| 11600 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 11601 | ||||
| 11602 | /* Processing variable u */ | |||
| 11603 | u_Dims[0]=u0,u_Dims[1]=u1; | |||
| 11604 | capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 11605 | capi_u_tmp = array_from_pyobj(NPY_DOUBLE,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct)); | |||
| 11606 | if (capi_u_tmp == NULL((void*)0)) { | |||
| 11607 | if (!PyErr_Occurred()) | |||
| 11608 | PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.dgesvd to C/Fortran array" ); | |||
| 11609 | } else { | |||
| 11610 | u = (double *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data)); | |||
| 11611 | ||||
| 11612 | /* Processing variable vt */ | |||
| 11613 | vt_Dims[0]=vt0,vt_Dims[1]=vt1; | |||
| 11614 | capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 11615 | capi_vt_tmp = array_from_pyobj(NPY_DOUBLE,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct)); | |||
| 11616 | if (capi_vt_tmp == NULL((void*)0)) { | |||
| 11617 | if (!PyErr_Occurred()) | |||
| 11618 | PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.dgesvd to C/Fortran array" ); | |||
| 11619 | } else { | |||
| 11620 | vt = (double *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data)); | |||
| 11621 | ||||
| 11622 | /* Processing variable lwork */ | |||
| 11623 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(MAX(3*minmn+MAX(m,n),5*minmn),1)((((3*minmn+((m > n) ? (m) : (n)) > 5*minmn) ? (3*minmn +((m > n) ? (m) : (n))) : (5*minmn)) > 1) ? (((3*minmn+ ((m > n) ? (m) : (n)) > 5*minmn) ? (3*minmn+((m > n) ? (m) : (n))) : (5*minmn))) : (1)); else | |||
| 11624 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgesvd() 3rd keyword (lwork) can't be converted to int"); | |||
| 11625 | if (f2py_success) { | |||
| 11626 | /* Processing variable work */ | |||
| 11627 | work_Dims[0]=lwork; | |||
| 11628 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 11629 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 11630 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 11631 | if (!PyErr_Occurred()) | |||
| 11632 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgesvd to C/Fortran array" ); | |||
| 11633 | } else { | |||
| 11634 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 11635 | ||||
| 11636 | /*end of frompyobj*/ | |||
| 11637 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11638 | f2py_start_call_clock(); | |||
| 11639 | #endif | |||
| 11640 | /*callfortranroutine*/ | |||
| 11641 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,&info) ; | |||
| 11642 | /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,&lwork,&info);*/ | |||
| 11643 | if (PyErr_Occurred()) | |||
| 11644 | f2py_success = 0; | |||
| 11645 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11646 | f2py_stop_call_clock(); | |||
| 11647 | #endif | |||
| 11648 | /*end of callfortranroutine*/ | |||
| 11649 | if (f2py_success) { | |||
| 11650 | /*pyobjfrom*/ | |||
| 11651 | /*end of pyobjfrom*/ | |||
| 11652 | CFUNCSMESS("Building return value.\n"); | |||
| 11653 | capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info); | |||
| 11654 | /*closepyobjfrom*/ | |||
| 11655 | /*end of closepyobjfrom*/ | |||
| 11656 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 11657 | /*cleanupfrompyobj*/ | |||
| 11658 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 11659 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 11660 | /* End of cleaning variable work */ | |||
| 11661 | } /*if (f2py_success) of lwork*/ | |||
| 11662 | /* End of cleaning variable lwork */ | |||
| 11663 | } /*if (capi_vt_tmp == NULL) ... else of vt*/ | |||
| 11664 | /* End of cleaning variable vt */ | |||
| 11665 | } /*if (capi_u_tmp == NULL) ... else of u*/ | |||
| 11666 | /* End of cleaning variable u */ | |||
| 11667 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 11668 | /* End of cleaning variable s */ | |||
| 11669 | /* End of cleaning variable vt1 */ | |||
| 11670 | /* End of cleaning variable vt0 */ | |||
| 11671 | /* End of cleaning variable u1 */ | |||
| 11672 | /* End of cleaning variable u0 */ | |||
| 11673 | /* End of cleaning variable minmn */ | |||
| 11674 | /* End of cleaning variable n */ | |||
| 11675 | /* End of cleaning variable m */ | |||
| 11676 | /* End of cleaning variable info */ | |||
| 11677 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 11678 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 11679 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 11680 | /* End of cleaning variable a */ | |||
| 11681 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 11682 | } /*if (f2py_success) of full_matrices*/ | |||
| 11683 | /* End of cleaning variable full_matrices */ | |||
| 11684 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 11685 | } /*if (f2py_success) of compute_uv*/ | |||
| 11686 | /* End of cleaning variable compute_uv */ | |||
| 11687 | /*end of cleanupfrompyobj*/ | |||
| 11688 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 11689 | /*routdebugfailure*/ | |||
| 11690 | } else { | |||
| 11691 | /*routdebugleave*/ | |||
| 11692 | } | |||
| 11693 | CFUNCSMESS("Freeing memory.\n"); | |||
| 11694 | /*freemem*/ | |||
| 11695 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11696 | f2py_stop_clock(); | |||
| 11697 | #endif | |||
| 11698 | return capi_buildvalue; | |||
| 11699 | } | |||
| 11700 | /******************************* end of dgesvd *******************************/ | |||
| 11701 | ||||
| 11702 | /******************************** sgesvd_lwork ********************************/ | |||
| 11703 | static char doc_f2py_rout__flapack_sgesvd_lwork[] = "\ | |||
| 11704 | work,info = sgesvd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``sgesvd_lwork``.\ | |||
| 11705 | \n\nParameters\n----------\n" | |||
| 11706 | "m : input int\n" | |||
| 11707 | "n : input int\n" | |||
| 11708 | "\nOther Parameters\n----------------\n" | |||
| 11709 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 11710 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 11711 | "\nReturns\n-------\n" | |||
| 11712 | "work : float\n" | |||
| 11713 | "info : int"; | |||
| 11714 | /* extern void F_FUNC(sgesvd ,SGESVD )(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 11715 | static PyObject *f2py_rout__flapack_sgesvd_lwork(const PyObject *capi_self, | |||
| 11716 | PyObject *capi_args, | |||
| 11717 | PyObject *capi_keywds, | |||
| 11718 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 11719 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 11720 | volatile int f2py_success = 1; | |||
| 11721 | /*decl*/ | |||
| 11722 | ||||
| 11723 | int m = 0; | |||
| 11724 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 11725 | int n = 0; | |||
| 11726 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 11727 | int minmn = 0; | |||
| 11728 | int u0 = 0; | |||
| 11729 | int vt0 = 0; | |||
| 11730 | float a = 0; | |||
| 11731 | int compute_uv = 0; | |||
| 11732 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 11733 | int full_matrices = 0; | |||
| 11734 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 11735 | float u = 0; | |||
| 11736 | float s = 0; | |||
| 11737 | float vt = 0; | |||
| 11738 | float work = 0; | |||
| 11739 | int lwork = 0; | |||
| 11740 | int info = 0; | |||
| 11741 | static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)}; | |||
| 11742 | ||||
| 11743 | /*routdebugenter*/ | |||
| 11744 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11745 | f2py_start_clock(); | |||
| 11746 | #endif | |||
| 11747 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 11748 | "OO|OO:_flapack.sgesvd_lwork",\ | |||
| 11749 | capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi)) | |||
| 11750 | return NULL((void*)0); | |||
| 11751 | /*frompyobj*/ | |||
| 11752 | /* Processing variable compute_uv */ | |||
| 11753 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 11754 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.sgesvd_lwork() 1st keyword (compute_uv) can't be converted to int"); | |||
| 11755 | if (f2py_success) { | |||
| 11756 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","sgesvd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgesvd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 11757 | /* Processing variable full_matrices */ | |||
| 11758 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 11759 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.sgesvd_lwork() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 11760 | if (f2py_success) { | |||
| 11761 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","sgesvd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgesvd_lwork:full_matrices=%d" , "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices" , full_matrices); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 11762 | /* Processing variable m */ | |||
| 11763 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgesvd_lwork() 1st argument (m) can't be converted to int"); | |||
| 11764 | if (f2py_success) { | |||
| 11765 | /* Processing variable n */ | |||
| 11766 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgesvd_lwork() 2nd argument (n) can't be converted to int"); | |||
| 11767 | if (f2py_success) { | |||
| 11768 | /* Processing variable a */ | |||
| 11769 | /* Processing variable s */ | |||
| 11770 | /* Processing variable u */ | |||
| 11771 | /* Processing variable vt */ | |||
| 11772 | /* Processing variable lwork */ | |||
| 11773 | lwork = -1; | |||
| 11774 | /* Processing variable work */ | |||
| 11775 | /* Processing variable info */ | |||
| 11776 | /* Processing variable minmn */ | |||
| 11777 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 11778 | /* Processing variable u0 */ | |||
| 11779 | u0 = (compute_uv?m:1); | |||
| 11780 | /* Processing variable vt0 */ | |||
| 11781 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 11782 | /*end of frompyobj*/ | |||
| 11783 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11784 | f2py_start_call_clock(); | |||
| 11785 | #endif | |||
| 11786 | /*callfortranroutine*/ | |||
| 11787 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&info) ; | |||
| 11788 | /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&lwork,&info);*/ | |||
| 11789 | if (PyErr_Occurred()) | |||
| 11790 | f2py_success = 0; | |||
| 11791 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11792 | f2py_stop_call_clock(); | |||
| 11793 | #endif | |||
| 11794 | /*end of callfortranroutine*/ | |||
| 11795 | if (f2py_success) { | |||
| 11796 | /*pyobjfrom*/ | |||
| 11797 | /*end of pyobjfrom*/ | |||
| 11798 | CFUNCSMESS("Building return value.\n"); | |||
| 11799 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 11800 | /*closepyobjfrom*/ | |||
| 11801 | /*end of closepyobjfrom*/ | |||
| 11802 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 11803 | /*cleanupfrompyobj*/ | |||
| 11804 | /* End of cleaning variable vt0 */ | |||
| 11805 | /* End of cleaning variable u0 */ | |||
| 11806 | /* End of cleaning variable minmn */ | |||
| 11807 | /* End of cleaning variable info */ | |||
| 11808 | /* End of cleaning variable work */ | |||
| 11809 | /* End of cleaning variable lwork */ | |||
| 11810 | /* End of cleaning variable vt */ | |||
| 11811 | /* End of cleaning variable u */ | |||
| 11812 | /* End of cleaning variable s */ | |||
| 11813 | /* End of cleaning variable a */ | |||
| 11814 | } /*if (f2py_success) of n*/ | |||
| 11815 | /* End of cleaning variable n */ | |||
| 11816 | } /*if (f2py_success) of m*/ | |||
| 11817 | /* End of cleaning variable m */ | |||
| 11818 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 11819 | } /*if (f2py_success) of full_matrices*/ | |||
| 11820 | /* End of cleaning variable full_matrices */ | |||
| 11821 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 11822 | } /*if (f2py_success) of compute_uv*/ | |||
| 11823 | /* End of cleaning variable compute_uv */ | |||
| 11824 | /*end of cleanupfrompyobj*/ | |||
| 11825 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 11826 | /*routdebugfailure*/ | |||
| 11827 | } else { | |||
| 11828 | /*routdebugleave*/ | |||
| 11829 | } | |||
| 11830 | CFUNCSMESS("Freeing memory.\n"); | |||
| 11831 | /*freemem*/ | |||
| 11832 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11833 | f2py_stop_clock(); | |||
| 11834 | #endif | |||
| 11835 | return capi_buildvalue; | |||
| 11836 | } | |||
| 11837 | /**************************** end of sgesvd_lwork ****************************/ | |||
| 11838 | ||||
| 11839 | /******************************** dgesvd_lwork ********************************/ | |||
| 11840 | static char doc_f2py_rout__flapack_dgesvd_lwork[] = "\ | |||
| 11841 | work,info = dgesvd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``dgesvd_lwork``.\ | |||
| 11842 | \n\nParameters\n----------\n" | |||
| 11843 | "m : input int\n" | |||
| 11844 | "n : input int\n" | |||
| 11845 | "\nOther Parameters\n----------------\n" | |||
| 11846 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 11847 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 11848 | "\nReturns\n-------\n" | |||
| 11849 | "work : float\n" | |||
| 11850 | "info : int"; | |||
| 11851 | /* extern void F_FUNC(dgesvd ,DGESVD )(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 11852 | static PyObject *f2py_rout__flapack_dgesvd_lwork(const PyObject *capi_self, | |||
| 11853 | PyObject *capi_args, | |||
| 11854 | PyObject *capi_keywds, | |||
| 11855 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 11856 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 11857 | volatile int f2py_success = 1; | |||
| 11858 | /*decl*/ | |||
| 11859 | ||||
| 11860 | int m = 0; | |||
| 11861 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 11862 | int n = 0; | |||
| 11863 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 11864 | int minmn = 0; | |||
| 11865 | int u0 = 0; | |||
| 11866 | int vt0 = 0; | |||
| 11867 | double a = 0; | |||
| 11868 | int compute_uv = 0; | |||
| 11869 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 11870 | int full_matrices = 0; | |||
| 11871 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 11872 | double u = 0; | |||
| 11873 | double s = 0; | |||
| 11874 | double vt = 0; | |||
| 11875 | double work = 0; | |||
| 11876 | int lwork = 0; | |||
| 11877 | int info = 0; | |||
| 11878 | static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)}; | |||
| 11879 | ||||
| 11880 | /*routdebugenter*/ | |||
| 11881 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11882 | f2py_start_clock(); | |||
| 11883 | #endif | |||
| 11884 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 11885 | "OO|OO:_flapack.dgesvd_lwork",\ | |||
| 11886 | capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi)) | |||
| 11887 | return NULL((void*)0); | |||
| 11888 | /*frompyobj*/ | |||
| 11889 | /* Processing variable compute_uv */ | |||
| 11890 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 11891 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.dgesvd_lwork() 1st keyword (compute_uv) can't be converted to int"); | |||
| 11892 | if (f2py_success) { | |||
| 11893 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","dgesvd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgesvd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 11894 | /* Processing variable full_matrices */ | |||
| 11895 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 11896 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.dgesvd_lwork() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 11897 | if (f2py_success) { | |||
| 11898 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","dgesvd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgesvd_lwork:full_matrices=%d" , "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices" , full_matrices); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 11899 | /* Processing variable m */ | |||
| 11900 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgesvd_lwork() 1st argument (m) can't be converted to int"); | |||
| 11901 | if (f2py_success) { | |||
| 11902 | /* Processing variable n */ | |||
| 11903 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgesvd_lwork() 2nd argument (n) can't be converted to int"); | |||
| 11904 | if (f2py_success) { | |||
| 11905 | /* Processing variable a */ | |||
| 11906 | /* Processing variable s */ | |||
| 11907 | /* Processing variable u */ | |||
| 11908 | /* Processing variable vt */ | |||
| 11909 | /* Processing variable lwork */ | |||
| 11910 | lwork = -1; | |||
| 11911 | /* Processing variable work */ | |||
| 11912 | /* Processing variable info */ | |||
| 11913 | /* Processing variable minmn */ | |||
| 11914 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 11915 | /* Processing variable u0 */ | |||
| 11916 | u0 = (compute_uv?m:1); | |||
| 11917 | /* Processing variable vt0 */ | |||
| 11918 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 11919 | /*end of frompyobj*/ | |||
| 11920 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11921 | f2py_start_call_clock(); | |||
| 11922 | #endif | |||
| 11923 | /*callfortranroutine*/ | |||
| 11924 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&info) ; | |||
| 11925 | /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&lwork,&info);*/ | |||
| 11926 | if (PyErr_Occurred()) | |||
| 11927 | f2py_success = 0; | |||
| 11928 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11929 | f2py_stop_call_clock(); | |||
| 11930 | #endif | |||
| 11931 | /*end of callfortranroutine*/ | |||
| 11932 | if (f2py_success) { | |||
| 11933 | /*pyobjfrom*/ | |||
| 11934 | /*end of pyobjfrom*/ | |||
| 11935 | CFUNCSMESS("Building return value.\n"); | |||
| 11936 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 11937 | /*closepyobjfrom*/ | |||
| 11938 | /*end of closepyobjfrom*/ | |||
| 11939 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 11940 | /*cleanupfrompyobj*/ | |||
| 11941 | /* End of cleaning variable vt0 */ | |||
| 11942 | /* End of cleaning variable u0 */ | |||
| 11943 | /* End of cleaning variable minmn */ | |||
| 11944 | /* End of cleaning variable info */ | |||
| 11945 | /* End of cleaning variable work */ | |||
| 11946 | /* End of cleaning variable lwork */ | |||
| 11947 | /* End of cleaning variable vt */ | |||
| 11948 | /* End of cleaning variable u */ | |||
| 11949 | /* End of cleaning variable s */ | |||
| 11950 | /* End of cleaning variable a */ | |||
| 11951 | } /*if (f2py_success) of n*/ | |||
| 11952 | /* End of cleaning variable n */ | |||
| 11953 | } /*if (f2py_success) of m*/ | |||
| 11954 | /* End of cleaning variable m */ | |||
| 11955 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 11956 | } /*if (f2py_success) of full_matrices*/ | |||
| 11957 | /* End of cleaning variable full_matrices */ | |||
| 11958 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 11959 | } /*if (f2py_success) of compute_uv*/ | |||
| 11960 | /* End of cleaning variable compute_uv */ | |||
| 11961 | /*end of cleanupfrompyobj*/ | |||
| 11962 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 11963 | /*routdebugfailure*/ | |||
| 11964 | } else { | |||
| 11965 | /*routdebugleave*/ | |||
| 11966 | } | |||
| 11967 | CFUNCSMESS("Freeing memory.\n"); | |||
| 11968 | /*freemem*/ | |||
| 11969 | #ifdef F2PY_REPORT_ATEXIT | |||
| 11970 | f2py_stop_clock(); | |||
| 11971 | #endif | |||
| 11972 | return capi_buildvalue; | |||
| 11973 | } | |||
| 11974 | /**************************** end of dgesvd_lwork ****************************/ | |||
| 11975 | ||||
| 11976 | /*********************************** cgesvd ***********************************/ | |||
| 11977 | static char doc_f2py_rout__flapack_cgesvd[] = "\ | |||
| 11978 | u,s,vt,info = cgesvd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``cgesvd``.\ | |||
| 11979 | \n\nParameters\n----------\n" | |||
| 11980 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 11981 | "\nOther Parameters\n----------------\n" | |||
| 11982 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 11983 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 11984 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 11985 | "lwork : input int, optional\n Default: MAX(2*minmn+MAX(m,n),1)\n" | |||
| 11986 | "\nReturns\n-------\n" | |||
| 11987 | "u : rank-2 array('F') with bounds (u0,u1)\n" | |||
| 11988 | "s : rank-1 array('f') with bounds (minmn)\n" | |||
| 11989 | "vt : rank-2 array('F') with bounds (vt0,vt1)\n" | |||
| 11990 | "info : int"; | |||
| 11991 | /* extern void F_FUNC(cgesvd,CGESVD)(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 11992 | static PyObject *f2py_rout__flapack_cgesvd(const PyObject *capi_self, | |||
| 11993 | PyObject *capi_args, | |||
| 11994 | PyObject *capi_keywds, | |||
| 11995 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 11996 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 11997 | volatile int f2py_success = 1; | |||
| 11998 | /*decl*/ | |||
| 11999 | ||||
| 12000 | int m = 0; | |||
| 12001 | int n = 0; | |||
| 12002 | int minmn = 0; | |||
| 12003 | int u0 = 0; | |||
| 12004 | int u1 = 0; | |||
| 12005 | int vt0 = 0; | |||
| 12006 | int vt1 = 0; | |||
| 12007 | complex_float *a = NULL((void*)0); | |||
| 12008 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 12009 | const int a_Rank = 2; | |||
| 12010 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 12011 | int capi_a_intent = 0; | |||
| 12012 | int capi_overwrite_a = 0; | |||
| 12013 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 12014 | int compute_uv = 0; | |||
| 12015 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 12016 | int full_matrices = 0; | |||
| 12017 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 12018 | complex_float *u = NULL((void*)0); | |||
| 12019 | npy_intp u_Dims[2] = {-1, -1}; | |||
| 12020 | const int u_Rank = 2; | |||
| 12021 | PyArrayObject *capi_u_tmp = NULL((void*)0); | |||
| 12022 | int capi_u_intent = 0; | |||
| 12023 | float *s = NULL((void*)0); | |||
| 12024 | npy_intp s_Dims[1] = {-1}; | |||
| 12025 | const int s_Rank = 1; | |||
| 12026 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 12027 | int capi_s_intent = 0; | |||
| 12028 | complex_float *vt = NULL((void*)0); | |||
| 12029 | npy_intp vt_Dims[2] = {-1, -1}; | |||
| 12030 | const int vt_Rank = 2; | |||
| 12031 | PyArrayObject *capi_vt_tmp = NULL((void*)0); | |||
| 12032 | int capi_vt_intent = 0; | |||
| 12033 | complex_float *work = NULL((void*)0); | |||
| 12034 | npy_intp work_Dims[1] = {-1}; | |||
| 12035 | const int work_Rank = 1; | |||
| 12036 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 12037 | int capi_work_intent = 0; | |||
| 12038 | float *rwork = NULL((void*)0); | |||
| 12039 | npy_intp rwork_Dims[1] = {-1}; | |||
| 12040 | const int rwork_Rank = 1; | |||
| 12041 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 12042 | int capi_rwork_intent = 0; | |||
| 12043 | int lwork = 0; | |||
| 12044 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 12045 | int info = 0; | |||
| 12046 | static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)}; | |||
| 12047 | ||||
| 12048 | /*routdebugenter*/ | |||
| 12049 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12050 | f2py_start_clock(); | |||
| 12051 | #endif | |||
| 12052 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 12053 | "O|OOOi:_flapack.cgesvd",\ | |||
| 12054 | capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 12055 | return NULL((void*)0); | |||
| 12056 | /*frompyobj*/ | |||
| 12057 | /* Processing variable compute_uv */ | |||
| 12058 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 12059 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.cgesvd() 1st keyword (compute_uv) can't be converted to int"); | |||
| 12060 | if (f2py_success) { | |||
| 12061 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","cgesvd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgesvd:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 12062 | /* Processing variable full_matrices */ | |||
| 12063 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 12064 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.cgesvd() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 12065 | if (f2py_success) { | |||
| 12066 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","cgesvd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgesvd:full_matrices=%d", "(""full_matrices==0||full_matrices==1" ") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 12067 | /* Processing variable a */ | |||
| 12068 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 12069 | ; | |||
| 12070 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 12071 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 12072 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 12073 | if (!PyErr_Occurred()) | |||
| 12074 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgesvd to C/Fortran array" ); | |||
| 12075 | } else { | |||
| 12076 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 12077 | ||||
| 12078 | /* Processing variable info */ | |||
| 12079 | /* Processing variable m */ | |||
| 12080 | m = shape(a,0)a_Dims[0]; | |||
| 12081 | /* Processing variable n */ | |||
| 12082 | n = shape(a,1)a_Dims[1]; | |||
| 12083 | /* Processing variable minmn */ | |||
| 12084 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 12085 | /* Processing variable u0 */ | |||
| 12086 | u0 = (compute_uv?m:1); | |||
| 12087 | /* Processing variable u1 */ | |||
| 12088 | u1 = (compute_uv?(full_matrices?m:minmn):1); | |||
| 12089 | /* Processing variable vt0 */ | |||
| 12090 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 12091 | /* Processing variable vt1 */ | |||
| 12092 | vt1 = (compute_uv?n:1); | |||
| 12093 | /* Processing variable s */ | |||
| 12094 | s_Dims[0]=minmn; | |||
| 12095 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 12096 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 12097 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 12098 | if (!PyErr_Occurred()) | |||
| 12099 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.cgesvd to C/Fortran array" ); | |||
| 12100 | } else { | |||
| 12101 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 12102 | ||||
| 12103 | /* Processing variable u */ | |||
| 12104 | u_Dims[0]=u0,u_Dims[1]=u1; | |||
| 12105 | capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 12106 | capi_u_tmp = array_from_pyobj(NPY_CFLOAT,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct)); | |||
| 12107 | if (capi_u_tmp == NULL((void*)0)) { | |||
| 12108 | if (!PyErr_Occurred()) | |||
| 12109 | PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.cgesvd to C/Fortran array" ); | |||
| 12110 | } else { | |||
| 12111 | u = (complex_float *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data)); | |||
| 12112 | ||||
| 12113 | /* Processing variable vt */ | |||
| 12114 | vt_Dims[0]=vt0,vt_Dims[1]=vt1; | |||
| 12115 | capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 12116 | capi_vt_tmp = array_from_pyobj(NPY_CFLOAT,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct)); | |||
| 12117 | if (capi_vt_tmp == NULL((void*)0)) { | |||
| 12118 | if (!PyErr_Occurred()) | |||
| 12119 | PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.cgesvd to C/Fortran array" ); | |||
| 12120 | } else { | |||
| 12121 | vt = (complex_float *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data)); | |||
| 12122 | ||||
| 12123 | /* Processing variable rwork */ | |||
| 12124 | rwork_Dims[0]=(MAX(1,5*minmn)((1 > 5*minmn) ? (1) : (5*minmn))); | |||
| 12125 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 12126 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 12127 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 12128 | if (!PyErr_Occurred()) | |||
| 12129 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgesvd to C/Fortran array" ); | |||
| 12130 | } else { | |||
| 12131 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 12132 | ||||
| 12133 | /* Processing variable lwork */ | |||
| 12134 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(2*minmn+MAX(m,n),1)((2*minmn+((m > n) ? (m) : (n)) > 1) ? (2*minmn+((m > n) ? (m) : (n))) : (1)); else | |||
| 12135 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgesvd() 3rd keyword (lwork) can't be converted to int"); | |||
| 12136 | if (f2py_success) { | |||
| 12137 | /* Processing variable work */ | |||
| 12138 | work_Dims[0]=lwork; | |||
| 12139 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 12140 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 12141 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 12142 | if (!PyErr_Occurred()) | |||
| 12143 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgesvd to C/Fortran array" ); | |||
| 12144 | } else { | |||
| 12145 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 12146 | ||||
| 12147 | /*end of frompyobj*/ | |||
| 12148 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12149 | f2py_start_call_clock(); | |||
| 12150 | #endif | |||
| 12151 | /*callfortranroutine*/ | |||
| 12152 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,rwork,&info) ; | |||
| 12153 | /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,rwork,&lwork,&info);*/ | |||
| 12154 | if (PyErr_Occurred()) | |||
| 12155 | f2py_success = 0; | |||
| 12156 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12157 | f2py_stop_call_clock(); | |||
| 12158 | #endif | |||
| 12159 | /*end of callfortranroutine*/ | |||
| 12160 | if (f2py_success) { | |||
| 12161 | /*pyobjfrom*/ | |||
| 12162 | /*end of pyobjfrom*/ | |||
| 12163 | CFUNCSMESS("Building return value.\n"); | |||
| 12164 | capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info); | |||
| 12165 | /*closepyobjfrom*/ | |||
| 12166 | /*end of closepyobjfrom*/ | |||
| 12167 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 12168 | /*cleanupfrompyobj*/ | |||
| 12169 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 12170 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 12171 | /* End of cleaning variable work */ | |||
| 12172 | } /*if (f2py_success) of lwork*/ | |||
| 12173 | /* End of cleaning variable lwork */ | |||
| 12174 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 12175 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 12176 | /* End of cleaning variable rwork */ | |||
| 12177 | } /*if (capi_vt_tmp == NULL) ... else of vt*/ | |||
| 12178 | /* End of cleaning variable vt */ | |||
| 12179 | } /*if (capi_u_tmp == NULL) ... else of u*/ | |||
| 12180 | /* End of cleaning variable u */ | |||
| 12181 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 12182 | /* End of cleaning variable s */ | |||
| 12183 | /* End of cleaning variable vt1 */ | |||
| 12184 | /* End of cleaning variable vt0 */ | |||
| 12185 | /* End of cleaning variable u1 */ | |||
| 12186 | /* End of cleaning variable u0 */ | |||
| 12187 | /* End of cleaning variable minmn */ | |||
| 12188 | /* End of cleaning variable n */ | |||
| 12189 | /* End of cleaning variable m */ | |||
| 12190 | /* End of cleaning variable info */ | |||
| 12191 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 12192 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 12193 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 12194 | /* End of cleaning variable a */ | |||
| 12195 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 12196 | } /*if (f2py_success) of full_matrices*/ | |||
| 12197 | /* End of cleaning variable full_matrices */ | |||
| 12198 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 12199 | } /*if (f2py_success) of compute_uv*/ | |||
| 12200 | /* End of cleaning variable compute_uv */ | |||
| 12201 | /*end of cleanupfrompyobj*/ | |||
| 12202 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 12203 | /*routdebugfailure*/ | |||
| 12204 | } else { | |||
| 12205 | /*routdebugleave*/ | |||
| 12206 | } | |||
| 12207 | CFUNCSMESS("Freeing memory.\n"); | |||
| 12208 | /*freemem*/ | |||
| 12209 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12210 | f2py_stop_clock(); | |||
| 12211 | #endif | |||
| 12212 | return capi_buildvalue; | |||
| 12213 | } | |||
| 12214 | /******************************* end of cgesvd *******************************/ | |||
| 12215 | ||||
| 12216 | /*********************************** zgesvd ***********************************/ | |||
| 12217 | static char doc_f2py_rout__flapack_zgesvd[] = "\ | |||
| 12218 | u,s,vt,info = zgesvd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``zgesvd``.\ | |||
| 12219 | \n\nParameters\n----------\n" | |||
| 12220 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 12221 | "\nOther Parameters\n----------------\n" | |||
| 12222 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 12223 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 12224 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 12225 | "lwork : input int, optional\n Default: MAX(2*minmn+MAX(m,n),1)\n" | |||
| 12226 | "\nReturns\n-------\n" | |||
| 12227 | "u : rank-2 array('D') with bounds (u0,u1)\n" | |||
| 12228 | "s : rank-1 array('d') with bounds (minmn)\n" | |||
| 12229 | "vt : rank-2 array('D') with bounds (vt0,vt1)\n" | |||
| 12230 | "info : int"; | |||
| 12231 | /* extern void F_FUNC(zgesvd,ZGESVD)(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 12232 | static PyObject *f2py_rout__flapack_zgesvd(const PyObject *capi_self, | |||
| 12233 | PyObject *capi_args, | |||
| 12234 | PyObject *capi_keywds, | |||
| 12235 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 12236 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 12237 | volatile int f2py_success = 1; | |||
| 12238 | /*decl*/ | |||
| 12239 | ||||
| 12240 | int m = 0; | |||
| 12241 | int n = 0; | |||
| 12242 | int minmn = 0; | |||
| 12243 | int u0 = 0; | |||
| 12244 | int u1 = 0; | |||
| 12245 | int vt0 = 0; | |||
| 12246 | int vt1 = 0; | |||
| 12247 | complex_double *a = NULL((void*)0); | |||
| 12248 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 12249 | const int a_Rank = 2; | |||
| 12250 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 12251 | int capi_a_intent = 0; | |||
| 12252 | int capi_overwrite_a = 0; | |||
| 12253 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 12254 | int compute_uv = 0; | |||
| 12255 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 12256 | int full_matrices = 0; | |||
| 12257 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 12258 | complex_double *u = NULL((void*)0); | |||
| 12259 | npy_intp u_Dims[2] = {-1, -1}; | |||
| 12260 | const int u_Rank = 2; | |||
| 12261 | PyArrayObject *capi_u_tmp = NULL((void*)0); | |||
| 12262 | int capi_u_intent = 0; | |||
| 12263 | double *s = NULL((void*)0); | |||
| 12264 | npy_intp s_Dims[1] = {-1}; | |||
| 12265 | const int s_Rank = 1; | |||
| 12266 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 12267 | int capi_s_intent = 0; | |||
| 12268 | complex_double *vt = NULL((void*)0); | |||
| 12269 | npy_intp vt_Dims[2] = {-1, -1}; | |||
| 12270 | const int vt_Rank = 2; | |||
| 12271 | PyArrayObject *capi_vt_tmp = NULL((void*)0); | |||
| 12272 | int capi_vt_intent = 0; | |||
| 12273 | complex_double *work = NULL((void*)0); | |||
| 12274 | npy_intp work_Dims[1] = {-1}; | |||
| 12275 | const int work_Rank = 1; | |||
| 12276 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 12277 | int capi_work_intent = 0; | |||
| 12278 | double *rwork = NULL((void*)0); | |||
| 12279 | npy_intp rwork_Dims[1] = {-1}; | |||
| 12280 | const int rwork_Rank = 1; | |||
| 12281 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 12282 | int capi_rwork_intent = 0; | |||
| 12283 | int lwork = 0; | |||
| 12284 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 12285 | int info = 0; | |||
| 12286 | static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)}; | |||
| 12287 | ||||
| 12288 | /*routdebugenter*/ | |||
| 12289 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12290 | f2py_start_clock(); | |||
| 12291 | #endif | |||
| 12292 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 12293 | "O|OOOi:_flapack.zgesvd",\ | |||
| 12294 | capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 12295 | return NULL((void*)0); | |||
| 12296 | /*frompyobj*/ | |||
| 12297 | /* Processing variable compute_uv */ | |||
| 12298 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 12299 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.zgesvd() 1st keyword (compute_uv) can't be converted to int"); | |||
| 12300 | if (f2py_success) { | |||
| 12301 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","zgesvd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgesvd:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 12302 | /* Processing variable full_matrices */ | |||
| 12303 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 12304 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.zgesvd() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 12305 | if (f2py_success) { | |||
| 12306 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","zgesvd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgesvd:full_matrices=%d", "(""full_matrices==0||full_matrices==1" ") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 12307 | /* Processing variable a */ | |||
| 12308 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 12309 | ; | |||
| 12310 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 12311 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 12312 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 12313 | if (!PyErr_Occurred()) | |||
| 12314 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgesvd to C/Fortran array" ); | |||
| 12315 | } else { | |||
| 12316 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 12317 | ||||
| 12318 | /* Processing variable info */ | |||
| 12319 | /* Processing variable m */ | |||
| 12320 | m = shape(a,0)a_Dims[0]; | |||
| 12321 | /* Processing variable n */ | |||
| 12322 | n = shape(a,1)a_Dims[1]; | |||
| 12323 | /* Processing variable minmn */ | |||
| 12324 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 12325 | /* Processing variable u0 */ | |||
| 12326 | u0 = (compute_uv?m:1); | |||
| 12327 | /* Processing variable u1 */ | |||
| 12328 | u1 = (compute_uv?(full_matrices?m:minmn):1); | |||
| 12329 | /* Processing variable vt0 */ | |||
| 12330 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 12331 | /* Processing variable vt1 */ | |||
| 12332 | vt1 = (compute_uv?n:1); | |||
| 12333 | /* Processing variable s */ | |||
| 12334 | s_Dims[0]=minmn; | |||
| 12335 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 12336 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 12337 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 12338 | if (!PyErr_Occurred()) | |||
| 12339 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.zgesvd to C/Fortran array" ); | |||
| 12340 | } else { | |||
| 12341 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 12342 | ||||
| 12343 | /* Processing variable u */ | |||
| 12344 | u_Dims[0]=u0,u_Dims[1]=u1; | |||
| 12345 | capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 12346 | capi_u_tmp = array_from_pyobj(NPY_CDOUBLE,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct)); | |||
| 12347 | if (capi_u_tmp == NULL((void*)0)) { | |||
| 12348 | if (!PyErr_Occurred()) | |||
| 12349 | PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.zgesvd to C/Fortran array" ); | |||
| 12350 | } else { | |||
| 12351 | u = (complex_double *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data)); | |||
| 12352 | ||||
| 12353 | /* Processing variable vt */ | |||
| 12354 | vt_Dims[0]=vt0,vt_Dims[1]=vt1; | |||
| 12355 | capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 12356 | capi_vt_tmp = array_from_pyobj(NPY_CDOUBLE,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct)); | |||
| 12357 | if (capi_vt_tmp == NULL((void*)0)) { | |||
| 12358 | if (!PyErr_Occurred()) | |||
| 12359 | PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.zgesvd to C/Fortran array" ); | |||
| 12360 | } else { | |||
| 12361 | vt = (complex_double *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data)); | |||
| 12362 | ||||
| 12363 | /* Processing variable rwork */ | |||
| 12364 | rwork_Dims[0]=(MAX(1,5*minmn)((1 > 5*minmn) ? (1) : (5*minmn))); | |||
| 12365 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 12366 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 12367 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 12368 | if (!PyErr_Occurred()) | |||
| 12369 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgesvd to C/Fortran array" ); | |||
| 12370 | } else { | |||
| 12371 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 12372 | ||||
| 12373 | /* Processing variable lwork */ | |||
| 12374 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(2*minmn+MAX(m,n),1)((2*minmn+((m > n) ? (m) : (n)) > 1) ? (2*minmn+((m > n) ? (m) : (n))) : (1)); else | |||
| 12375 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgesvd() 3rd keyword (lwork) can't be converted to int"); | |||
| 12376 | if (f2py_success) { | |||
| 12377 | /* Processing variable work */ | |||
| 12378 | work_Dims[0]=lwork; | |||
| 12379 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 12380 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 12381 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 12382 | if (!PyErr_Occurred()) | |||
| 12383 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgesvd to C/Fortran array" ); | |||
| 12384 | } else { | |||
| 12385 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 12386 | ||||
| 12387 | /*end of frompyobj*/ | |||
| 12388 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12389 | f2py_start_call_clock(); | |||
| 12390 | #endif | |||
| 12391 | /*callfortranroutine*/ | |||
| 12392 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,rwork,&info) ; | |||
| 12393 | /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,rwork,&lwork,&info);*/ | |||
| 12394 | if (PyErr_Occurred()) | |||
| 12395 | f2py_success = 0; | |||
| 12396 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12397 | f2py_stop_call_clock(); | |||
| 12398 | #endif | |||
| 12399 | /*end of callfortranroutine*/ | |||
| 12400 | if (f2py_success) { | |||
| 12401 | /*pyobjfrom*/ | |||
| 12402 | /*end of pyobjfrom*/ | |||
| 12403 | CFUNCSMESS("Building return value.\n"); | |||
| 12404 | capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info); | |||
| 12405 | /*closepyobjfrom*/ | |||
| 12406 | /*end of closepyobjfrom*/ | |||
| 12407 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 12408 | /*cleanupfrompyobj*/ | |||
| 12409 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 12410 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 12411 | /* End of cleaning variable work */ | |||
| 12412 | } /*if (f2py_success) of lwork*/ | |||
| 12413 | /* End of cleaning variable lwork */ | |||
| 12414 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 12415 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 12416 | /* End of cleaning variable rwork */ | |||
| 12417 | } /*if (capi_vt_tmp == NULL) ... else of vt*/ | |||
| 12418 | /* End of cleaning variable vt */ | |||
| 12419 | } /*if (capi_u_tmp == NULL) ... else of u*/ | |||
| 12420 | /* End of cleaning variable u */ | |||
| 12421 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 12422 | /* End of cleaning variable s */ | |||
| 12423 | /* End of cleaning variable vt1 */ | |||
| 12424 | /* End of cleaning variable vt0 */ | |||
| 12425 | /* End of cleaning variable u1 */ | |||
| 12426 | /* End of cleaning variable u0 */ | |||
| 12427 | /* End of cleaning variable minmn */ | |||
| 12428 | /* End of cleaning variable n */ | |||
| 12429 | /* End of cleaning variable m */ | |||
| 12430 | /* End of cleaning variable info */ | |||
| 12431 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 12432 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 12433 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 12434 | /* End of cleaning variable a */ | |||
| 12435 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 12436 | } /*if (f2py_success) of full_matrices*/ | |||
| 12437 | /* End of cleaning variable full_matrices */ | |||
| 12438 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 12439 | } /*if (f2py_success) of compute_uv*/ | |||
| 12440 | /* End of cleaning variable compute_uv */ | |||
| 12441 | /*end of cleanupfrompyobj*/ | |||
| 12442 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 12443 | /*routdebugfailure*/ | |||
| 12444 | } else { | |||
| 12445 | /*routdebugleave*/ | |||
| 12446 | } | |||
| 12447 | CFUNCSMESS("Freeing memory.\n"); | |||
| 12448 | /*freemem*/ | |||
| 12449 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12450 | f2py_stop_clock(); | |||
| 12451 | #endif | |||
| 12452 | return capi_buildvalue; | |||
| 12453 | } | |||
| 12454 | /******************************* end of zgesvd *******************************/ | |||
| 12455 | ||||
| 12456 | /******************************** cgesvd_lwork ********************************/ | |||
| 12457 | static char doc_f2py_rout__flapack_cgesvd_lwork[] = "\ | |||
| 12458 | work,info = cgesvd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``cgesvd_lwork``.\ | |||
| 12459 | \n\nParameters\n----------\n" | |||
| 12460 | "m : input int\n" | |||
| 12461 | "n : input int\n" | |||
| 12462 | "\nOther Parameters\n----------------\n" | |||
| 12463 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 12464 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 12465 | "\nReturns\n-------\n" | |||
| 12466 | "work : complex\n" | |||
| 12467 | "info : int"; | |||
| 12468 | /* extern void F_FUNC(cgesvd ,CGESVD )(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 12469 | static PyObject *f2py_rout__flapack_cgesvd_lwork(const PyObject *capi_self, | |||
| 12470 | PyObject *capi_args, | |||
| 12471 | PyObject *capi_keywds, | |||
| 12472 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 12473 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 12474 | volatile int f2py_success = 1; | |||
| 12475 | /*decl*/ | |||
| 12476 | ||||
| 12477 | int m = 0; | |||
| 12478 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 12479 | int n = 0; | |||
| 12480 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 12481 | int minmn = 0; | |||
| 12482 | int u0 = 0; | |||
| 12483 | int vt0 = 0; | |||
| 12484 | complex_float a; | |||
| 12485 | int compute_uv = 0; | |||
| 12486 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 12487 | int full_matrices = 0; | |||
| 12488 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 12489 | complex_float u; | |||
| 12490 | float s = 0; | |||
| 12491 | complex_float vt; | |||
| 12492 | complex_float work; | |||
| 12493 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 12494 | float rwork = 0; | |||
| 12495 | int lwork = 0; | |||
| 12496 | int info = 0; | |||
| 12497 | static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)}; | |||
| 12498 | ||||
| 12499 | /*routdebugenter*/ | |||
| 12500 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12501 | f2py_start_clock(); | |||
| 12502 | #endif | |||
| 12503 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 12504 | "OO|OO:_flapack.cgesvd_lwork",\ | |||
| 12505 | capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi)) | |||
| 12506 | return NULL((void*)0); | |||
| 12507 | /*frompyobj*/ | |||
| 12508 | /* Processing variable compute_uv */ | |||
| 12509 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 12510 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.cgesvd_lwork() 1st keyword (compute_uv) can't be converted to int"); | |||
| 12511 | if (f2py_success) { | |||
| 12512 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","cgesvd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgesvd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 12513 | /* Processing variable full_matrices */ | |||
| 12514 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 12515 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.cgesvd_lwork() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 12516 | if (f2py_success) { | |||
| 12517 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","cgesvd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgesvd_lwork:full_matrices=%d" , "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices" , full_matrices); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 12518 | /* Processing variable lwork */ | |||
| 12519 | lwork = -1; | |||
| 12520 | /* Processing variable a */ | |||
| 12521 | /* Processing variable s */ | |||
| 12522 | /* Processing variable u */ | |||
| 12523 | /* Processing variable vt */ | |||
| 12524 | /* Processing variable work */ | |||
| 12525 | /* Processing variable rwork */ | |||
| 12526 | /* Processing variable info */ | |||
| 12527 | /* Processing variable m */ | |||
| 12528 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgesvd_lwork() 1st argument (m) can't be converted to int"); | |||
| 12529 | if (f2py_success) { | |||
| 12530 | /* Processing variable n */ | |||
| 12531 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgesvd_lwork() 2nd argument (n) can't be converted to int"); | |||
| 12532 | if (f2py_success) { | |||
| 12533 | /* Processing variable minmn */ | |||
| 12534 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 12535 | /* Processing variable u0 */ | |||
| 12536 | u0 = (compute_uv?m:1); | |||
| 12537 | /* Processing variable vt0 */ | |||
| 12538 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 12539 | /*end of frompyobj*/ | |||
| 12540 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12541 | f2py_start_call_clock(); | |||
| 12542 | #endif | |||
| 12543 | /*callfortranroutine*/ | |||
| 12544 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&rwork,&info) ; | |||
| 12545 | /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&rwork,&lwork,&info);*/ | |||
| 12546 | if (PyErr_Occurred()) | |||
| 12547 | f2py_success = 0; | |||
| 12548 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12549 | f2py_stop_call_clock(); | |||
| 12550 | #endif | |||
| 12551 | /*end of callfortranroutine*/ | |||
| 12552 | if (f2py_success) { | |||
| 12553 | /*pyobjfrom*/ | |||
| 12554 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 12555 | /*end of pyobjfrom*/ | |||
| 12556 | CFUNCSMESS("Building return value.\n"); | |||
| 12557 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 12558 | /*closepyobjfrom*/ | |||
| 12559 | /*end of closepyobjfrom*/ | |||
| 12560 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 12561 | /*cleanupfrompyobj*/ | |||
| 12562 | /* End of cleaning variable vt0 */ | |||
| 12563 | /* End of cleaning variable u0 */ | |||
| 12564 | /* End of cleaning variable minmn */ | |||
| 12565 | } /*if (f2py_success) of n*/ | |||
| 12566 | /* End of cleaning variable n */ | |||
| 12567 | } /*if (f2py_success) of m*/ | |||
| 12568 | /* End of cleaning variable m */ | |||
| 12569 | /* End of cleaning variable info */ | |||
| 12570 | /* End of cleaning variable rwork */ | |||
| 12571 | /* End of cleaning variable work */ | |||
| 12572 | /* End of cleaning variable vt */ | |||
| 12573 | /* End of cleaning variable u */ | |||
| 12574 | /* End of cleaning variable s */ | |||
| 12575 | /* End of cleaning variable a */ | |||
| 12576 | /* End of cleaning variable lwork */ | |||
| 12577 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 12578 | } /*if (f2py_success) of full_matrices*/ | |||
| 12579 | /* End of cleaning variable full_matrices */ | |||
| 12580 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 12581 | } /*if (f2py_success) of compute_uv*/ | |||
| 12582 | /* End of cleaning variable compute_uv */ | |||
| 12583 | /*end of cleanupfrompyobj*/ | |||
| 12584 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 12585 | /*routdebugfailure*/ | |||
| 12586 | } else { | |||
| 12587 | /*routdebugleave*/ | |||
| 12588 | } | |||
| 12589 | CFUNCSMESS("Freeing memory.\n"); | |||
| 12590 | /*freemem*/ | |||
| 12591 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12592 | f2py_stop_clock(); | |||
| 12593 | #endif | |||
| 12594 | return capi_buildvalue; | |||
| 12595 | } | |||
| 12596 | /**************************** end of cgesvd_lwork ****************************/ | |||
| 12597 | ||||
| 12598 | /******************************** zgesvd_lwork ********************************/ | |||
| 12599 | static char doc_f2py_rout__flapack_zgesvd_lwork[] = "\ | |||
| 12600 | work,info = zgesvd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``zgesvd_lwork``.\ | |||
| 12601 | \n\nParameters\n----------\n" | |||
| 12602 | "m : input int\n" | |||
| 12603 | "n : input int\n" | |||
| 12604 | "\nOther Parameters\n----------------\n" | |||
| 12605 | "compute_uv : input int, optional\n Default: 1\n" | |||
| 12606 | "full_matrices : input int, optional\n Default: 1\n" | |||
| 12607 | "\nReturns\n-------\n" | |||
| 12608 | "work : complex\n" | |||
| 12609 | "info : int"; | |||
| 12610 | /* extern void F_FUNC(zgesvd ,ZGESVD )(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 12611 | static PyObject *f2py_rout__flapack_zgesvd_lwork(const PyObject *capi_self, | |||
| 12612 | PyObject *capi_args, | |||
| 12613 | PyObject *capi_keywds, | |||
| 12614 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 12615 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 12616 | volatile int f2py_success = 1; | |||
| 12617 | /*decl*/ | |||
| 12618 | ||||
| 12619 | int m = 0; | |||
| 12620 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 12621 | int n = 0; | |||
| 12622 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 12623 | int minmn = 0; | |||
| 12624 | int u0 = 0; | |||
| 12625 | int vt0 = 0; | |||
| 12626 | complex_double a; | |||
| 12627 | int compute_uv = 0; | |||
| 12628 | PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct); | |||
| 12629 | int full_matrices = 0; | |||
| 12630 | PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct); | |||
| 12631 | complex_double u; | |||
| 12632 | double s = 0; | |||
| 12633 | complex_double vt; | |||
| 12634 | complex_double work; | |||
| 12635 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 12636 | double rwork = 0; | |||
| 12637 | int lwork = 0; | |||
| 12638 | int info = 0; | |||
| 12639 | static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)}; | |||
| 12640 | ||||
| 12641 | /*routdebugenter*/ | |||
| 12642 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12643 | f2py_start_clock(); | |||
| 12644 | #endif | |||
| 12645 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 12646 | "OO|OO:_flapack.zgesvd_lwork",\ | |||
| 12647 | capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi)) | |||
| 12648 | return NULL((void*)0); | |||
| 12649 | /*frompyobj*/ | |||
| 12650 | /* Processing variable compute_uv */ | |||
| 12651 | if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else | |||
| 12652 | f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.zgesvd_lwork() 1st keyword (compute_uv) can't be converted to int"); | |||
| 12653 | if (f2py_success) { | |||
| 12654 | CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","zgesvd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgesvd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1" ") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 12655 | /* Processing variable full_matrices */ | |||
| 12656 | if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else | |||
| 12657 | f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.zgesvd_lwork() 2nd keyword (full_matrices) can't be converted to int"); | |||
| 12658 | if (f2py_success) { | |||
| 12659 | CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","zgesvd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgesvd_lwork:full_matrices=%d" , "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices" , full_matrices); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 12660 | /* Processing variable lwork */ | |||
| 12661 | lwork = -1; | |||
| 12662 | /* Processing variable a */ | |||
| 12663 | /* Processing variable s */ | |||
| 12664 | /* Processing variable u */ | |||
| 12665 | /* Processing variable vt */ | |||
| 12666 | /* Processing variable work */ | |||
| 12667 | /* Processing variable rwork */ | |||
| 12668 | /* Processing variable info */ | |||
| 12669 | /* Processing variable m */ | |||
| 12670 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgesvd_lwork() 1st argument (m) can't be converted to int"); | |||
| 12671 | if (f2py_success) { | |||
| 12672 | /* Processing variable n */ | |||
| 12673 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgesvd_lwork() 2nd argument (n) can't be converted to int"); | |||
| 12674 | if (f2py_success) { | |||
| 12675 | /* Processing variable minmn */ | |||
| 12676 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 12677 | /* Processing variable u0 */ | |||
| 12678 | u0 = (compute_uv?m:1); | |||
| 12679 | /* Processing variable vt0 */ | |||
| 12680 | vt0 = (compute_uv?(full_matrices?n:minmn):1); | |||
| 12681 | /*end of frompyobj*/ | |||
| 12682 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12683 | f2py_start_call_clock(); | |||
| 12684 | #endif | |||
| 12685 | /*callfortranroutine*/ | |||
| 12686 | (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&rwork,&info) ; | |||
| 12687 | /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&rwork,&lwork,&info);*/ | |||
| 12688 | if (PyErr_Occurred()) | |||
| 12689 | f2py_success = 0; | |||
| 12690 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12691 | f2py_stop_call_clock(); | |||
| 12692 | #endif | |||
| 12693 | /*end of callfortranroutine*/ | |||
| 12694 | if (f2py_success) { | |||
| 12695 | /*pyobjfrom*/ | |||
| 12696 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 12697 | /*end of pyobjfrom*/ | |||
| 12698 | CFUNCSMESS("Building return value.\n"); | |||
| 12699 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 12700 | /*closepyobjfrom*/ | |||
| 12701 | /*end of closepyobjfrom*/ | |||
| 12702 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 12703 | /*cleanupfrompyobj*/ | |||
| 12704 | /* End of cleaning variable vt0 */ | |||
| 12705 | /* End of cleaning variable u0 */ | |||
| 12706 | /* End of cleaning variable minmn */ | |||
| 12707 | } /*if (f2py_success) of n*/ | |||
| 12708 | /* End of cleaning variable n */ | |||
| 12709 | } /*if (f2py_success) of m*/ | |||
| 12710 | /* End of cleaning variable m */ | |||
| 12711 | /* End of cleaning variable info */ | |||
| 12712 | /* End of cleaning variable rwork */ | |||
| 12713 | /* End of cleaning variable work */ | |||
| 12714 | /* End of cleaning variable vt */ | |||
| 12715 | /* End of cleaning variable u */ | |||
| 12716 | /* End of cleaning variable s */ | |||
| 12717 | /* End of cleaning variable a */ | |||
| 12718 | /* End of cleaning variable lwork */ | |||
| 12719 | } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/ | |||
| 12720 | } /*if (f2py_success) of full_matrices*/ | |||
| 12721 | /* End of cleaning variable full_matrices */ | |||
| 12722 | } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/ | |||
| 12723 | } /*if (f2py_success) of compute_uv*/ | |||
| 12724 | /* End of cleaning variable compute_uv */ | |||
| 12725 | /*end of cleanupfrompyobj*/ | |||
| 12726 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 12727 | /*routdebugfailure*/ | |||
| 12728 | } else { | |||
| 12729 | /*routdebugleave*/ | |||
| 12730 | } | |||
| 12731 | CFUNCSMESS("Freeing memory.\n"); | |||
| 12732 | /*freemem*/ | |||
| 12733 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12734 | f2py_stop_clock(); | |||
| 12735 | #endif | |||
| 12736 | return capi_buildvalue; | |||
| 12737 | } | |||
| 12738 | /**************************** end of zgesvd_lwork ****************************/ | |||
| 12739 | ||||
| 12740 | /*********************************** sgels ***********************************/ | |||
| 12741 | static char doc_f2py_rout__flapack_sgels[] = "\ | |||
| 12742 | lqr,x,info = sgels(a,b,[trans,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``sgels``.\ | |||
| 12743 | \n\nParameters\n----------\n" | |||
| 12744 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 12745 | "b : input rank-2 array('f') with bounds (MAX(m,n),nrhs)\n" | |||
| 12746 | "\nOther Parameters\n----------------\n" | |||
| 12747 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 12748 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 12749 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 12750 | "lwork : input int, optional\n Default: MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)\n" | |||
| 12751 | "\nReturns\n-------\n" | |||
| 12752 | "lqr : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 12753 | "x : rank-2 array('f') with bounds (MAX(m,n),nrhs) and b storage\n" | |||
| 12754 | "info : int"; | |||
| 12755 | /* extern void F_FUNC(sgels,SGELS)(char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 12756 | static PyObject *f2py_rout__flapack_sgels(const PyObject *capi_self, | |||
| 12757 | PyObject *capi_args, | |||
| 12758 | PyObject *capi_keywds, | |||
| 12759 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 12760 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 12761 | volatile int f2py_success = 1; | |||
| 12762 | /*decl*/ | |||
| 12763 | ||||
| 12764 | string trans = NULL((void*)0); | |||
| 12765 | int slen(trans)capi_trans_len; | |||
| 12766 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 12767 | int m = 0; | |||
| 12768 | int n = 0; | |||
| 12769 | int nrhs = 0; | |||
| 12770 | float *a = NULL((void*)0); | |||
| 12771 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 12772 | const int a_Rank = 2; | |||
| 12773 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 12774 | int capi_a_intent = 0; | |||
| 12775 | int capi_overwrite_a = 0; | |||
| 12776 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 12777 | int lda = 0; | |||
| 12778 | float *b = NULL((void*)0); | |||
| 12779 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 12780 | const int b_Rank = 2; | |||
| 12781 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 12782 | int capi_b_intent = 0; | |||
| 12783 | int capi_overwrite_b = 0; | |||
| 12784 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 12785 | int ldb = 0; | |||
| 12786 | float *work = NULL((void*)0); | |||
| 12787 | npy_intp work_Dims[1] = {-1}; | |||
| 12788 | const int work_Rank = 1; | |||
| 12789 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 12790 | int capi_work_intent = 0; | |||
| 12791 | int lwork = 0; | |||
| 12792 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 12793 | int info = 0; | |||
| 12794 | static char *capi_kwlist[] = {"a","b","trans","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 12795 | ||||
| 12796 | /*routdebugenter*/ | |||
| 12797 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12798 | f2py_start_clock(); | |||
| 12799 | #endif | |||
| 12800 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 12801 | "OO|OOii:_flapack.sgels",\ | |||
| 12802 | capi_kwlist,&a_capi,&b_capi,&trans_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 12803 | return NULL((void*)0); | |||
| 12804 | /*frompyobj*/ | |||
| 12805 | /* Processing variable a */ | |||
| 12806 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 12807 | ; | |||
| 12808 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 12809 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 12810 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 12811 | if (!PyErr_Occurred()) | |||
| 12812 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgels to C/Fortran array" ); | |||
| 12813 | } else { | |||
| 12814 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 12815 | ||||
| 12816 | /* Processing variable info */ | |||
| 12817 | /* Processing variable m */ | |||
| 12818 | m = shape(a,0)a_Dims[0]; | |||
| 12819 | /* Processing variable n */ | |||
| 12820 | n = shape(a,1)a_Dims[1]; | |||
| 12821 | /* Processing variable lda */ | |||
| 12822 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 12823 | /* Processing variable trans */ | |||
| 12824 | slen(trans)capi_trans_len = 1; | |||
| 12825 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.sgels to C string"); | |||
| 12826 | if (f2py_success) { | |||
| 12827 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","1st keyword trans","sgels:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgels:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 12828 | /* Processing variable b */ | |||
| 12829 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 12830 | b_Dims[0]=MAX(m,n)((m > n) ? (m) : (n)); | |||
| 12831 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 12832 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 12833 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 12834 | if (!PyErr_Occurred()) | |||
| 12835 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgels to C/Fortran array" ); | |||
| 12836 | } else { | |||
| 12837 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 12838 | ||||
| 12839 | CHECKARRAY(shape(b,0)==MAX(m,n),"shape(b,0)==MAX(m,n)","2nd argument b")if (!(b_Dims[0]==((m > n) ? (m) : (n)))) { PyErr_SetString (_flapack_error,"(""shape(b,0)==MAX(m,n)"") failed for ""2nd argument b" ); } else { | |||
| 12840 | /* Processing variable ldb */ | |||
| 12841 | ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m) : (n)))); | |||
| 12842 | /* Processing variable nrhs */ | |||
| 12843 | nrhs = shape(b,1)b_Dims[1]; | |||
| 12844 | /* Processing variable lwork */ | |||
| 12845 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)((((m < n) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs ) ? (((m < n) ? (m) : (n))) : (nrhs)) > 1) ? (((m < n ) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs) ? (((m < n) ? (m) : (n))) : (nrhs))) : (1)); else | |||
| 12846 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgels() 2nd keyword (lwork) can't be converted to int"); | |||
| 12847 | if (f2py_success) { | |||
| 12848 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","sgels:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgels:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 12849 | /* Processing variable work */ | |||
| 12850 | work_Dims[0]=MAX(1,lwork)((1 > lwork) ? (1) : (lwork)); | |||
| 12851 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 12852 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 12853 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 12854 | if (!PyErr_Occurred()) | |||
| 12855 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgels to C/Fortran array" ); | |||
| 12856 | } else { | |||
| 12857 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 12858 | ||||
| 12859 | /*end of frompyobj*/ | |||
| 12860 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12861 | f2py_start_call_clock(); | |||
| 12862 | #endif | |||
| 12863 | /*callfortranroutine*/ | |||
| 12864 | (*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info) ; | |||
| 12865 | /*(*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info,slen(trans));*/ | |||
| 12866 | if (PyErr_Occurred()) | |||
| 12867 | f2py_success = 0; | |||
| 12868 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12869 | f2py_stop_call_clock(); | |||
| 12870 | #endif | |||
| 12871 | /*end of callfortranroutine*/ | |||
| 12872 | if (f2py_success) { | |||
| 12873 | /*pyobjfrom*/ | |||
| 12874 | /*end of pyobjfrom*/ | |||
| 12875 | CFUNCSMESS("Building return value.\n"); | |||
| 12876 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info); | |||
| 12877 | /*closepyobjfrom*/ | |||
| 12878 | /*end of closepyobjfrom*/ | |||
| 12879 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 12880 | /*cleanupfrompyobj*/ | |||
| 12881 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 12882 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 12883 | /* End of cleaning variable work */ | |||
| 12884 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 12885 | } /*if (f2py_success) of lwork*/ | |||
| 12886 | /* End of cleaning variable lwork */ | |||
| 12887 | /* End of cleaning variable nrhs */ | |||
| 12888 | /* End of cleaning variable ldb */ | |||
| 12889 | } /*CHECKARRAY(shape(b,0)==MAX(m,n))*/ | |||
| 12890 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 12891 | /* End of cleaning variable b */ | |||
| 12892 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 12893 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 12894 | } /*if (f2py_success) of trans*/ | |||
| 12895 | /* End of cleaning variable trans */ | |||
| 12896 | /* End of cleaning variable lda */ | |||
| 12897 | /* End of cleaning variable n */ | |||
| 12898 | /* End of cleaning variable m */ | |||
| 12899 | /* End of cleaning variable info */ | |||
| 12900 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 12901 | /* End of cleaning variable a */ | |||
| 12902 | /*end of cleanupfrompyobj*/ | |||
| 12903 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 12904 | /*routdebugfailure*/ | |||
| 12905 | } else { | |||
| 12906 | /*routdebugleave*/ | |||
| 12907 | } | |||
| 12908 | CFUNCSMESS("Freeing memory.\n"); | |||
| 12909 | /*freemem*/ | |||
| 12910 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12911 | f2py_stop_clock(); | |||
| 12912 | #endif | |||
| 12913 | return capi_buildvalue; | |||
| 12914 | } | |||
| 12915 | /******************************** end of sgels ********************************/ | |||
| 12916 | ||||
| 12917 | /*********************************** dgels ***********************************/ | |||
| 12918 | static char doc_f2py_rout__flapack_dgels[] = "\ | |||
| 12919 | lqr,x,info = dgels(a,b,[trans,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``dgels``.\ | |||
| 12920 | \n\nParameters\n----------\n" | |||
| 12921 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 12922 | "b : input rank-2 array('d') with bounds (MAX(m,n),nrhs)\n" | |||
| 12923 | "\nOther Parameters\n----------------\n" | |||
| 12924 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 12925 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 12926 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 12927 | "lwork : input int, optional\n Default: MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)\n" | |||
| 12928 | "\nReturns\n-------\n" | |||
| 12929 | "lqr : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 12930 | "x : rank-2 array('d') with bounds (MAX(m,n),nrhs) and b storage\n" | |||
| 12931 | "info : int"; | |||
| 12932 | /* extern void F_FUNC(dgels,DGELS)(char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 12933 | static PyObject *f2py_rout__flapack_dgels(const PyObject *capi_self, | |||
| 12934 | PyObject *capi_args, | |||
| 12935 | PyObject *capi_keywds, | |||
| 12936 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 12937 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 12938 | volatile int f2py_success = 1; | |||
| 12939 | /*decl*/ | |||
| 12940 | ||||
| 12941 | string trans = NULL((void*)0); | |||
| 12942 | int slen(trans)capi_trans_len; | |||
| 12943 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 12944 | int m = 0; | |||
| 12945 | int n = 0; | |||
| 12946 | int nrhs = 0; | |||
| 12947 | double *a = NULL((void*)0); | |||
| 12948 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 12949 | const int a_Rank = 2; | |||
| 12950 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 12951 | int capi_a_intent = 0; | |||
| 12952 | int capi_overwrite_a = 0; | |||
| 12953 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 12954 | int lda = 0; | |||
| 12955 | double *b = NULL((void*)0); | |||
| 12956 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 12957 | const int b_Rank = 2; | |||
| 12958 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 12959 | int capi_b_intent = 0; | |||
| 12960 | int capi_overwrite_b = 0; | |||
| 12961 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 12962 | int ldb = 0; | |||
| 12963 | double *work = NULL((void*)0); | |||
| 12964 | npy_intp work_Dims[1] = {-1}; | |||
| 12965 | const int work_Rank = 1; | |||
| 12966 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 12967 | int capi_work_intent = 0; | |||
| 12968 | int lwork = 0; | |||
| 12969 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 12970 | int info = 0; | |||
| 12971 | static char *capi_kwlist[] = {"a","b","trans","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 12972 | ||||
| 12973 | /*routdebugenter*/ | |||
| 12974 | #ifdef F2PY_REPORT_ATEXIT | |||
| 12975 | f2py_start_clock(); | |||
| 12976 | #endif | |||
| 12977 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 12978 | "OO|OOii:_flapack.dgels",\ | |||
| 12979 | capi_kwlist,&a_capi,&b_capi,&trans_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 12980 | return NULL((void*)0); | |||
| 12981 | /*frompyobj*/ | |||
| 12982 | /* Processing variable a */ | |||
| 12983 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 12984 | ; | |||
| 12985 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 12986 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 12987 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 12988 | if (!PyErr_Occurred()) | |||
| 12989 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgels to C/Fortran array" ); | |||
| 12990 | } else { | |||
| 12991 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 12992 | ||||
| 12993 | /* Processing variable info */ | |||
| 12994 | /* Processing variable m */ | |||
| 12995 | m = shape(a,0)a_Dims[0]; | |||
| 12996 | /* Processing variable n */ | |||
| 12997 | n = shape(a,1)a_Dims[1]; | |||
| 12998 | /* Processing variable lda */ | |||
| 12999 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 13000 | /* Processing variable trans */ | |||
| 13001 | slen(trans)capi_trans_len = 1; | |||
| 13002 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.dgels to C string"); | |||
| 13003 | if (f2py_success) { | |||
| 13004 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","1st keyword trans","dgels:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgels:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 13005 | /* Processing variable b */ | |||
| 13006 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 13007 | b_Dims[0]=MAX(m,n)((m > n) ? (m) : (n)); | |||
| 13008 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 13009 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 13010 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 13011 | if (!PyErr_Occurred()) | |||
| 13012 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgels to C/Fortran array" ); | |||
| 13013 | } else { | |||
| 13014 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 13015 | ||||
| 13016 | CHECKARRAY(shape(b,0)==MAX(m,n),"shape(b,0)==MAX(m,n)","2nd argument b")if (!(b_Dims[0]==((m > n) ? (m) : (n)))) { PyErr_SetString (_flapack_error,"(""shape(b,0)==MAX(m,n)"") failed for ""2nd argument b" ); } else { | |||
| 13017 | /* Processing variable ldb */ | |||
| 13018 | ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m) : (n)))); | |||
| 13019 | /* Processing variable nrhs */ | |||
| 13020 | nrhs = shape(b,1)b_Dims[1]; | |||
| 13021 | /* Processing variable lwork */ | |||
| 13022 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)((((m < n) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs ) ? (((m < n) ? (m) : (n))) : (nrhs)) > 1) ? (((m < n ) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs) ? (((m < n) ? (m) : (n))) : (nrhs))) : (1)); else | |||
| 13023 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgels() 2nd keyword (lwork) can't be converted to int"); | |||
| 13024 | if (f2py_success) { | |||
| 13025 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","dgels:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgels:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 13026 | /* Processing variable work */ | |||
| 13027 | work_Dims[0]=MAX(1,lwork)((1 > lwork) ? (1) : (lwork)); | |||
| 13028 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 13029 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 13030 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 13031 | if (!PyErr_Occurred()) | |||
| 13032 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgels to C/Fortran array" ); | |||
| 13033 | } else { | |||
| 13034 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 13035 | ||||
| 13036 | /*end of frompyobj*/ | |||
| 13037 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13038 | f2py_start_call_clock(); | |||
| 13039 | #endif | |||
| 13040 | /*callfortranroutine*/ | |||
| 13041 | (*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info) ; | |||
| 13042 | /*(*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info,slen(trans));*/ | |||
| 13043 | if (PyErr_Occurred()) | |||
| 13044 | f2py_success = 0; | |||
| 13045 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13046 | f2py_stop_call_clock(); | |||
| 13047 | #endif | |||
| 13048 | /*end of callfortranroutine*/ | |||
| 13049 | if (f2py_success) { | |||
| 13050 | /*pyobjfrom*/ | |||
| 13051 | /*end of pyobjfrom*/ | |||
| 13052 | CFUNCSMESS("Building return value.\n"); | |||
| 13053 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info); | |||
| 13054 | /*closepyobjfrom*/ | |||
| 13055 | /*end of closepyobjfrom*/ | |||
| 13056 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 13057 | /*cleanupfrompyobj*/ | |||
| 13058 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 13059 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 13060 | /* End of cleaning variable work */ | |||
| 13061 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 13062 | } /*if (f2py_success) of lwork*/ | |||
| 13063 | /* End of cleaning variable lwork */ | |||
| 13064 | /* End of cleaning variable nrhs */ | |||
| 13065 | /* End of cleaning variable ldb */ | |||
| 13066 | } /*CHECKARRAY(shape(b,0)==MAX(m,n))*/ | |||
| 13067 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 13068 | /* End of cleaning variable b */ | |||
| 13069 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 13070 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 13071 | } /*if (f2py_success) of trans*/ | |||
| 13072 | /* End of cleaning variable trans */ | |||
| 13073 | /* End of cleaning variable lda */ | |||
| 13074 | /* End of cleaning variable n */ | |||
| 13075 | /* End of cleaning variable m */ | |||
| 13076 | /* End of cleaning variable info */ | |||
| 13077 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 13078 | /* End of cleaning variable a */ | |||
| 13079 | /*end of cleanupfrompyobj*/ | |||
| 13080 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 13081 | /*routdebugfailure*/ | |||
| 13082 | } else { | |||
| 13083 | /*routdebugleave*/ | |||
| 13084 | } | |||
| 13085 | CFUNCSMESS("Freeing memory.\n"); | |||
| 13086 | /*freemem*/ | |||
| 13087 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13088 | f2py_stop_clock(); | |||
| 13089 | #endif | |||
| 13090 | return capi_buildvalue; | |||
| 13091 | } | |||
| 13092 | /******************************** end of dgels ********************************/ | |||
| 13093 | ||||
| 13094 | /*********************************** cgels ***********************************/ | |||
| 13095 | static char doc_f2py_rout__flapack_cgels[] = "\ | |||
| 13096 | lqr,x,info = cgels(a,b,[trans,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``cgels``.\ | |||
| 13097 | \n\nParameters\n----------\n" | |||
| 13098 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 13099 | "b : input rank-2 array('F') with bounds (MAX(m,n),nrhs)\n" | |||
| 13100 | "\nOther Parameters\n----------------\n" | |||
| 13101 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 13102 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 13103 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 13104 | "lwork : input int, optional\n Default: MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)\n" | |||
| 13105 | "\nReturns\n-------\n" | |||
| 13106 | "lqr : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 13107 | "x : rank-2 array('F') with bounds (MAX(m,n),nrhs) and b storage\n" | |||
| 13108 | "info : int"; | |||
| 13109 | /* extern void F_FUNC(cgels,CGELS)(char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 13110 | static PyObject *f2py_rout__flapack_cgels(const PyObject *capi_self, | |||
| 13111 | PyObject *capi_args, | |||
| 13112 | PyObject *capi_keywds, | |||
| 13113 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 13114 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 13115 | volatile int f2py_success = 1; | |||
| 13116 | /*decl*/ | |||
| 13117 | ||||
| 13118 | string trans = NULL((void*)0); | |||
| 13119 | int slen(trans)capi_trans_len; | |||
| 13120 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 13121 | int m = 0; | |||
| 13122 | int n = 0; | |||
| 13123 | int nrhs = 0; | |||
| 13124 | complex_float *a = NULL((void*)0); | |||
| 13125 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 13126 | const int a_Rank = 2; | |||
| 13127 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 13128 | int capi_a_intent = 0; | |||
| 13129 | int capi_overwrite_a = 0; | |||
| 13130 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 13131 | int lda = 0; | |||
| 13132 | complex_float *b = NULL((void*)0); | |||
| 13133 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 13134 | const int b_Rank = 2; | |||
| 13135 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 13136 | int capi_b_intent = 0; | |||
| 13137 | int capi_overwrite_b = 0; | |||
| 13138 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 13139 | int ldb = 0; | |||
| 13140 | complex_float *work = NULL((void*)0); | |||
| 13141 | npy_intp work_Dims[1] = {-1}; | |||
| 13142 | const int work_Rank = 1; | |||
| 13143 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 13144 | int capi_work_intent = 0; | |||
| 13145 | int lwork = 0; | |||
| 13146 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 13147 | int info = 0; | |||
| 13148 | static char *capi_kwlist[] = {"a","b","trans","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 13149 | ||||
| 13150 | /*routdebugenter*/ | |||
| 13151 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13152 | f2py_start_clock(); | |||
| 13153 | #endif | |||
| 13154 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 13155 | "OO|OOii:_flapack.cgels",\ | |||
| 13156 | capi_kwlist,&a_capi,&b_capi,&trans_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 13157 | return NULL((void*)0); | |||
| 13158 | /*frompyobj*/ | |||
| 13159 | /* Processing variable a */ | |||
| 13160 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 13161 | ; | |||
| 13162 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 13163 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 13164 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 13165 | if (!PyErr_Occurred()) | |||
| 13166 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgels to C/Fortran array" ); | |||
| 13167 | } else { | |||
| 13168 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 13169 | ||||
| 13170 | /* Processing variable info */ | |||
| 13171 | /* Processing variable m */ | |||
| 13172 | m = shape(a,0)a_Dims[0]; | |||
| 13173 | /* Processing variable n */ | |||
| 13174 | n = shape(a,1)a_Dims[1]; | |||
| 13175 | /* Processing variable lda */ | |||
| 13176 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 13177 | /* Processing variable trans */ | |||
| 13178 | slen(trans)capi_trans_len = 1; | |||
| 13179 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.cgels to C string"); | |||
| 13180 | if (f2py_success) { | |||
| 13181 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","1st keyword trans","cgels:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgels:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 13182 | /* Processing variable b */ | |||
| 13183 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 13184 | b_Dims[0]=MAX(m,n)((m > n) ? (m) : (n)); | |||
| 13185 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 13186 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 13187 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 13188 | if (!PyErr_Occurred()) | |||
| 13189 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgels to C/Fortran array" ); | |||
| 13190 | } else { | |||
| 13191 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 13192 | ||||
| 13193 | CHECKARRAY(shape(b,0)==MAX(m,n),"shape(b,0)==MAX(m,n)","2nd argument b")if (!(b_Dims[0]==((m > n) ? (m) : (n)))) { PyErr_SetString (_flapack_error,"(""shape(b,0)==MAX(m,n)"") failed for ""2nd argument b" ); } else { | |||
| 13194 | /* Processing variable ldb */ | |||
| 13195 | ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m) : (n)))); | |||
| 13196 | /* Processing variable nrhs */ | |||
| 13197 | nrhs = shape(b,1)b_Dims[1]; | |||
| 13198 | /* Processing variable lwork */ | |||
| 13199 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)((((m < n) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs ) ? (((m < n) ? (m) : (n))) : (nrhs)) > 1) ? (((m < n ) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs) ? (((m < n) ? (m) : (n))) : (nrhs))) : (1)); else | |||
| 13200 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgels() 2nd keyword (lwork) can't be converted to int"); | |||
| 13201 | if (f2py_success) { | |||
| 13202 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","cgels:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgels:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 13203 | /* Processing variable work */ | |||
| 13204 | work_Dims[0]=MAX(1,lwork)((1 > lwork) ? (1) : (lwork)); | |||
| 13205 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 13206 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 13207 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 13208 | if (!PyErr_Occurred()) | |||
| 13209 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgels to C/Fortran array" ); | |||
| 13210 | } else { | |||
| 13211 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 13212 | ||||
| 13213 | /*end of frompyobj*/ | |||
| 13214 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13215 | f2py_start_call_clock(); | |||
| 13216 | #endif | |||
| 13217 | /*callfortranroutine*/ | |||
| 13218 | (*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info) ; | |||
| 13219 | /*(*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info,slen(trans));*/ | |||
| 13220 | if (PyErr_Occurred()) | |||
| 13221 | f2py_success = 0; | |||
| 13222 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13223 | f2py_stop_call_clock(); | |||
| 13224 | #endif | |||
| 13225 | /*end of callfortranroutine*/ | |||
| 13226 | if (f2py_success) { | |||
| 13227 | /*pyobjfrom*/ | |||
| 13228 | /*end of pyobjfrom*/ | |||
| 13229 | CFUNCSMESS("Building return value.\n"); | |||
| 13230 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info); | |||
| 13231 | /*closepyobjfrom*/ | |||
| 13232 | /*end of closepyobjfrom*/ | |||
| 13233 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 13234 | /*cleanupfrompyobj*/ | |||
| 13235 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 13236 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 13237 | /* End of cleaning variable work */ | |||
| 13238 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 13239 | } /*if (f2py_success) of lwork*/ | |||
| 13240 | /* End of cleaning variable lwork */ | |||
| 13241 | /* End of cleaning variable nrhs */ | |||
| 13242 | /* End of cleaning variable ldb */ | |||
| 13243 | } /*CHECKARRAY(shape(b,0)==MAX(m,n))*/ | |||
| 13244 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 13245 | /* End of cleaning variable b */ | |||
| 13246 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 13247 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 13248 | } /*if (f2py_success) of trans*/ | |||
| 13249 | /* End of cleaning variable trans */ | |||
| 13250 | /* End of cleaning variable lda */ | |||
| 13251 | /* End of cleaning variable n */ | |||
| 13252 | /* End of cleaning variable m */ | |||
| 13253 | /* End of cleaning variable info */ | |||
| 13254 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 13255 | /* End of cleaning variable a */ | |||
| 13256 | /*end of cleanupfrompyobj*/ | |||
| 13257 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 13258 | /*routdebugfailure*/ | |||
| 13259 | } else { | |||
| 13260 | /*routdebugleave*/ | |||
| 13261 | } | |||
| 13262 | CFUNCSMESS("Freeing memory.\n"); | |||
| 13263 | /*freemem*/ | |||
| 13264 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13265 | f2py_stop_clock(); | |||
| 13266 | #endif | |||
| 13267 | return capi_buildvalue; | |||
| 13268 | } | |||
| 13269 | /******************************** end of cgels ********************************/ | |||
| 13270 | ||||
| 13271 | /*********************************** zgels ***********************************/ | |||
| 13272 | static char doc_f2py_rout__flapack_zgels[] = "\ | |||
| 13273 | lqr,x,info = zgels(a,b,[trans,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``zgels``.\ | |||
| 13274 | \n\nParameters\n----------\n" | |||
| 13275 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 13276 | "b : input rank-2 array('D') with bounds (MAX(m,n),nrhs)\n" | |||
| 13277 | "\nOther Parameters\n----------------\n" | |||
| 13278 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 13279 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 13280 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 13281 | "lwork : input int, optional\n Default: MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)\n" | |||
| 13282 | "\nReturns\n-------\n" | |||
| 13283 | "lqr : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 13284 | "x : rank-2 array('D') with bounds (MAX(m,n),nrhs) and b storage\n" | |||
| 13285 | "info : int"; | |||
| 13286 | /* extern void F_FUNC(zgels,ZGELS)(char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 13287 | static PyObject *f2py_rout__flapack_zgels(const PyObject *capi_self, | |||
| 13288 | PyObject *capi_args, | |||
| 13289 | PyObject *capi_keywds, | |||
| 13290 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 13291 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 13292 | volatile int f2py_success = 1; | |||
| 13293 | /*decl*/ | |||
| 13294 | ||||
| 13295 | string trans = NULL((void*)0); | |||
| 13296 | int slen(trans)capi_trans_len; | |||
| 13297 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 13298 | int m = 0; | |||
| 13299 | int n = 0; | |||
| 13300 | int nrhs = 0; | |||
| 13301 | complex_double *a = NULL((void*)0); | |||
| 13302 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 13303 | const int a_Rank = 2; | |||
| 13304 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 13305 | int capi_a_intent = 0; | |||
| 13306 | int capi_overwrite_a = 0; | |||
| 13307 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 13308 | int lda = 0; | |||
| 13309 | complex_double *b = NULL((void*)0); | |||
| 13310 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 13311 | const int b_Rank = 2; | |||
| 13312 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 13313 | int capi_b_intent = 0; | |||
| 13314 | int capi_overwrite_b = 0; | |||
| 13315 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 13316 | int ldb = 0; | |||
| 13317 | complex_double *work = NULL((void*)0); | |||
| 13318 | npy_intp work_Dims[1] = {-1}; | |||
| 13319 | const int work_Rank = 1; | |||
| 13320 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 13321 | int capi_work_intent = 0; | |||
| 13322 | int lwork = 0; | |||
| 13323 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 13324 | int info = 0; | |||
| 13325 | static char *capi_kwlist[] = {"a","b","trans","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 13326 | ||||
| 13327 | /*routdebugenter*/ | |||
| 13328 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13329 | f2py_start_clock(); | |||
| 13330 | #endif | |||
| 13331 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 13332 | "OO|OOii:_flapack.zgels",\ | |||
| 13333 | capi_kwlist,&a_capi,&b_capi,&trans_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 13334 | return NULL((void*)0); | |||
| 13335 | /*frompyobj*/ | |||
| 13336 | /* Processing variable a */ | |||
| 13337 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 13338 | ; | |||
| 13339 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 13340 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 13341 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 13342 | if (!PyErr_Occurred()) | |||
| 13343 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgels to C/Fortran array" ); | |||
| 13344 | } else { | |||
| 13345 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 13346 | ||||
| 13347 | /* Processing variable info */ | |||
| 13348 | /* Processing variable m */ | |||
| 13349 | m = shape(a,0)a_Dims[0]; | |||
| 13350 | /* Processing variable n */ | |||
| 13351 | n = shape(a,1)a_Dims[1]; | |||
| 13352 | /* Processing variable lda */ | |||
| 13353 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 13354 | /* Processing variable trans */ | |||
| 13355 | slen(trans)capi_trans_len = 1; | |||
| 13356 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.zgels to C string"); | |||
| 13357 | if (f2py_success) { | |||
| 13358 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","1st keyword trans","zgels:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgels:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 13359 | /* Processing variable b */ | |||
| 13360 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 13361 | b_Dims[0]=MAX(m,n)((m > n) ? (m) : (n)); | |||
| 13362 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 13363 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 13364 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 13365 | if (!PyErr_Occurred()) | |||
| 13366 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgels to C/Fortran array" ); | |||
| 13367 | } else { | |||
| 13368 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 13369 | ||||
| 13370 | CHECKARRAY(shape(b,0)==MAX(m,n),"shape(b,0)==MAX(m,n)","2nd argument b")if (!(b_Dims[0]==((m > n) ? (m) : (n)))) { PyErr_SetString (_flapack_error,"(""shape(b,0)==MAX(m,n)"") failed for ""2nd argument b" ); } else { | |||
| 13371 | /* Processing variable ldb */ | |||
| 13372 | ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m) : (n)))); | |||
| 13373 | /* Processing variable nrhs */ | |||
| 13374 | nrhs = shape(b,1)b_Dims[1]; | |||
| 13375 | /* Processing variable lwork */ | |||
| 13376 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)((((m < n) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs ) ? (((m < n) ? (m) : (n))) : (nrhs)) > 1) ? (((m < n ) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs) ? (((m < n) ? (m) : (n))) : (nrhs))) : (1)); else | |||
| 13377 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgels() 2nd keyword (lwork) can't be converted to int"); | |||
| 13378 | if (f2py_success) { | |||
| 13379 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","zgels:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgels:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 13380 | /* Processing variable work */ | |||
| 13381 | work_Dims[0]=MAX(1,lwork)((1 > lwork) ? (1) : (lwork)); | |||
| 13382 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 13383 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 13384 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 13385 | if (!PyErr_Occurred()) | |||
| 13386 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgels to C/Fortran array" ); | |||
| 13387 | } else { | |||
| 13388 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 13389 | ||||
| 13390 | /*end of frompyobj*/ | |||
| 13391 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13392 | f2py_start_call_clock(); | |||
| 13393 | #endif | |||
| 13394 | /*callfortranroutine*/ | |||
| 13395 | (*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info) ; | |||
| 13396 | /*(*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info,slen(trans));*/ | |||
| 13397 | if (PyErr_Occurred()) | |||
| 13398 | f2py_success = 0; | |||
| 13399 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13400 | f2py_stop_call_clock(); | |||
| 13401 | #endif | |||
| 13402 | /*end of callfortranroutine*/ | |||
| 13403 | if (f2py_success) { | |||
| 13404 | /*pyobjfrom*/ | |||
| 13405 | /*end of pyobjfrom*/ | |||
| 13406 | CFUNCSMESS("Building return value.\n"); | |||
| 13407 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info); | |||
| 13408 | /*closepyobjfrom*/ | |||
| 13409 | /*end of closepyobjfrom*/ | |||
| 13410 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 13411 | /*cleanupfrompyobj*/ | |||
| 13412 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 13413 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 13414 | /* End of cleaning variable work */ | |||
| 13415 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 13416 | } /*if (f2py_success) of lwork*/ | |||
| 13417 | /* End of cleaning variable lwork */ | |||
| 13418 | /* End of cleaning variable nrhs */ | |||
| 13419 | /* End of cleaning variable ldb */ | |||
| 13420 | } /*CHECKARRAY(shape(b,0)==MAX(m,n))*/ | |||
| 13421 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 13422 | /* End of cleaning variable b */ | |||
| 13423 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 13424 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 13425 | } /*if (f2py_success) of trans*/ | |||
| 13426 | /* End of cleaning variable trans */ | |||
| 13427 | /* End of cleaning variable lda */ | |||
| 13428 | /* End of cleaning variable n */ | |||
| 13429 | /* End of cleaning variable m */ | |||
| 13430 | /* End of cleaning variable info */ | |||
| 13431 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 13432 | /* End of cleaning variable a */ | |||
| 13433 | /*end of cleanupfrompyobj*/ | |||
| 13434 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 13435 | /*routdebugfailure*/ | |||
| 13436 | } else { | |||
| 13437 | /*routdebugleave*/ | |||
| 13438 | } | |||
| 13439 | CFUNCSMESS("Freeing memory.\n"); | |||
| 13440 | /*freemem*/ | |||
| 13441 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13442 | f2py_stop_clock(); | |||
| 13443 | #endif | |||
| 13444 | return capi_buildvalue; | |||
| 13445 | } | |||
| 13446 | /******************************** end of zgels ********************************/ | |||
| 13447 | ||||
| 13448 | /******************************** sgels_lwork ********************************/ | |||
| 13449 | static char doc_f2py_rout__flapack_sgels_lwork[] = "\ | |||
| 13450 | work,info = sgels_lwork(m,n,nrhs,[trans])\n\nWrapper for ``sgels_lwork``.\ | |||
| 13451 | \n\nParameters\n----------\n" | |||
| 13452 | "m : input int\n" | |||
| 13453 | "n : input int\n" | |||
| 13454 | "nrhs : input int\n" | |||
| 13455 | "\nOther Parameters\n----------------\n" | |||
| 13456 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 13457 | "\nReturns\n-------\n" | |||
| 13458 | "work : float\n" | |||
| 13459 | "info : int"; | |||
| 13460 | /* extern void F_FUNC(sgels ,SGELS )(char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 13461 | static PyObject *f2py_rout__flapack_sgels_lwork(const PyObject *capi_self, | |||
| 13462 | PyObject *capi_args, | |||
| 13463 | PyObject *capi_keywds, | |||
| 13464 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 13465 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 13466 | volatile int f2py_success = 1; | |||
| 13467 | /*decl*/ | |||
| 13468 | ||||
| 13469 | string trans = NULL((void*)0); | |||
| 13470 | int slen(trans)capi_trans_len; | |||
| 13471 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 13472 | int m = 0; | |||
| 13473 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 13474 | int n = 0; | |||
| 13475 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 13476 | int nrhs = 0; | |||
| 13477 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 13478 | float a = 0; | |||
| 13479 | int lda = 0; | |||
| 13480 | float b = 0; | |||
| 13481 | int ldb = 0; | |||
| 13482 | float work = 0; | |||
| 13483 | int lwork = 0; | |||
| 13484 | int info = 0; | |||
| 13485 | static char *capi_kwlist[] = {"m","n","nrhs","trans",NULL((void*)0)}; | |||
| 13486 | ||||
| 13487 | /*routdebugenter*/ | |||
| 13488 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13489 | f2py_start_clock(); | |||
| 13490 | #endif | |||
| 13491 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 13492 | "OOO|O:_flapack.sgels_lwork",\ | |||
| 13493 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&trans_capi)) | |||
| 13494 | return NULL((void*)0); | |||
| 13495 | /*frompyobj*/ | |||
| 13496 | /* Processing variable m */ | |||
| 13497 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgels_lwork() 1st argument (m) can't be converted to int"); | |||
| 13498 | if (f2py_success) { | |||
| 13499 | CHECKSCALAR(m>=0,"m>=0","1st argument m","sgels_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgels_lwork:m=%d", "(""m>=0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 13500 | /* Processing variable n */ | |||
| 13501 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgels_lwork() 2nd argument (n) can't be converted to int"); | |||
| 13502 | if (f2py_success) { | |||
| 13503 | CHECKSCALAR(n>=0,"n>=0","2nd argument n","sgels_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgels_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 13504 | /* Processing variable nrhs */ | |||
| 13505 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.sgels_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 13506 | if (f2py_success) { | |||
| 13507 | CHECKSCALAR(nrhs>=0,"nrhs>=0","3rd argument nrhs","sgels_lwork:nrhs=%d",nrhs)if (!(nrhs>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgels_lwork:nrhs=%d", "(""nrhs>=0"") failed for " "3rd argument nrhs", nrhs); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 13508 | /* Processing variable a */ | |||
| 13509 | /* Processing variable b */ | |||
| 13510 | /* Processing variable lwork */ | |||
| 13511 | lwork = -1; | |||
| 13512 | /* Processing variable work */ | |||
| 13513 | /* Processing variable info */ | |||
| 13514 | /* Processing variable trans */ | |||
| 13515 | slen(trans)capi_trans_len = 1; | |||
| 13516 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.sgels_lwork to C string"); | |||
| 13517 | if (f2py_success) { | |||
| 13518 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","1st keyword trans","sgels_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgels_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 13519 | /* Processing variable lda */ | |||
| 13520 | lda = MAX(1,m)((1 > m) ? (1) : (m)); | |||
| 13521 | /* Processing variable ldb */ | |||
| 13522 | ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m) : (n)))); | |||
| 13523 | /*end of frompyobj*/ | |||
| 13524 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13525 | f2py_start_call_clock(); | |||
| 13526 | #endif | |||
| 13527 | /*callfortranroutine*/ | |||
| 13528 | (*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info) ; | |||
| 13529 | /*(*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info,slen(trans));*/ | |||
| 13530 | if (PyErr_Occurred()) | |||
| 13531 | f2py_success = 0; | |||
| 13532 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13533 | f2py_stop_call_clock(); | |||
| 13534 | #endif | |||
| 13535 | /*end of callfortranroutine*/ | |||
| 13536 | if (f2py_success) { | |||
| 13537 | /*pyobjfrom*/ | |||
| 13538 | /*end of pyobjfrom*/ | |||
| 13539 | CFUNCSMESS("Building return value.\n"); | |||
| 13540 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 13541 | /*closepyobjfrom*/ | |||
| 13542 | /*end of closepyobjfrom*/ | |||
| 13543 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 13544 | /*cleanupfrompyobj*/ | |||
| 13545 | /* End of cleaning variable ldb */ | |||
| 13546 | /* End of cleaning variable lda */ | |||
| 13547 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 13548 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 13549 | } /*if (f2py_success) of trans*/ | |||
| 13550 | /* End of cleaning variable trans */ | |||
| 13551 | /* End of cleaning variable info */ | |||
| 13552 | /* End of cleaning variable work */ | |||
| 13553 | /* End of cleaning variable lwork */ | |||
| 13554 | /* End of cleaning variable b */ | |||
| 13555 | /* End of cleaning variable a */ | |||
| 13556 | } /*CHECKSCALAR(nrhs>=0)*/ | |||
| 13557 | } /*if (f2py_success) of nrhs*/ | |||
| 13558 | /* End of cleaning variable nrhs */ | |||
| 13559 | } /*CHECKSCALAR(n>=0)*/ | |||
| 13560 | } /*if (f2py_success) of n*/ | |||
| 13561 | /* End of cleaning variable n */ | |||
| 13562 | } /*CHECKSCALAR(m>=0)*/ | |||
| 13563 | } /*if (f2py_success) of m*/ | |||
| 13564 | /* End of cleaning variable m */ | |||
| 13565 | /*end of cleanupfrompyobj*/ | |||
| 13566 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 13567 | /*routdebugfailure*/ | |||
| 13568 | } else { | |||
| 13569 | /*routdebugleave*/ | |||
| 13570 | } | |||
| 13571 | CFUNCSMESS("Freeing memory.\n"); | |||
| 13572 | /*freemem*/ | |||
| 13573 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13574 | f2py_stop_clock(); | |||
| 13575 | #endif | |||
| 13576 | return capi_buildvalue; | |||
| 13577 | } | |||
| 13578 | /***************************** end of sgels_lwork *****************************/ | |||
| 13579 | ||||
| 13580 | /******************************** dgels_lwork ********************************/ | |||
| 13581 | static char doc_f2py_rout__flapack_dgels_lwork[] = "\ | |||
| 13582 | work,info = dgels_lwork(m,n,nrhs,[trans])\n\nWrapper for ``dgels_lwork``.\ | |||
| 13583 | \n\nParameters\n----------\n" | |||
| 13584 | "m : input int\n" | |||
| 13585 | "n : input int\n" | |||
| 13586 | "nrhs : input int\n" | |||
| 13587 | "\nOther Parameters\n----------------\n" | |||
| 13588 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 13589 | "\nReturns\n-------\n" | |||
| 13590 | "work : float\n" | |||
| 13591 | "info : int"; | |||
| 13592 | /* extern void F_FUNC(dgels ,DGELS )(char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 13593 | static PyObject *f2py_rout__flapack_dgels_lwork(const PyObject *capi_self, | |||
| 13594 | PyObject *capi_args, | |||
| 13595 | PyObject *capi_keywds, | |||
| 13596 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 13597 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 13598 | volatile int f2py_success = 1; | |||
| 13599 | /*decl*/ | |||
| 13600 | ||||
| 13601 | string trans = NULL((void*)0); | |||
| 13602 | int slen(trans)capi_trans_len; | |||
| 13603 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 13604 | int m = 0; | |||
| 13605 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 13606 | int n = 0; | |||
| 13607 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 13608 | int nrhs = 0; | |||
| 13609 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 13610 | double a = 0; | |||
| 13611 | int lda = 0; | |||
| 13612 | double b = 0; | |||
| 13613 | int ldb = 0; | |||
| 13614 | double work = 0; | |||
| 13615 | int lwork = 0; | |||
| 13616 | int info = 0; | |||
| 13617 | static char *capi_kwlist[] = {"m","n","nrhs","trans",NULL((void*)0)}; | |||
| 13618 | ||||
| 13619 | /*routdebugenter*/ | |||
| 13620 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13621 | f2py_start_clock(); | |||
| 13622 | #endif | |||
| 13623 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 13624 | "OOO|O:_flapack.dgels_lwork",\ | |||
| 13625 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&trans_capi)) | |||
| 13626 | return NULL((void*)0); | |||
| 13627 | /*frompyobj*/ | |||
| 13628 | /* Processing variable m */ | |||
| 13629 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgels_lwork() 1st argument (m) can't be converted to int"); | |||
| 13630 | if (f2py_success) { | |||
| 13631 | CHECKSCALAR(m>=0,"m>=0","1st argument m","dgels_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgels_lwork:m=%d", "(""m>=0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 13632 | /* Processing variable n */ | |||
| 13633 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgels_lwork() 2nd argument (n) can't be converted to int"); | |||
| 13634 | if (f2py_success) { | |||
| 13635 | CHECKSCALAR(n>=0,"n>=0","2nd argument n","dgels_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgels_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 13636 | /* Processing variable nrhs */ | |||
| 13637 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.dgels_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 13638 | if (f2py_success) { | |||
| 13639 | CHECKSCALAR(nrhs>=0,"nrhs>=0","3rd argument nrhs","dgels_lwork:nrhs=%d",nrhs)if (!(nrhs>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgels_lwork:nrhs=%d", "(""nrhs>=0"") failed for " "3rd argument nrhs", nrhs); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 13640 | /* Processing variable a */ | |||
| 13641 | /* Processing variable b */ | |||
| 13642 | /* Processing variable lwork */ | |||
| 13643 | lwork = -1; | |||
| 13644 | /* Processing variable work */ | |||
| 13645 | /* Processing variable info */ | |||
| 13646 | /* Processing variable trans */ | |||
| 13647 | slen(trans)capi_trans_len = 1; | |||
| 13648 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.dgels_lwork to C string"); | |||
| 13649 | if (f2py_success) { | |||
| 13650 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","1st keyword trans","dgels_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgels_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 13651 | /* Processing variable lda */ | |||
| 13652 | lda = MAX(1,m)((1 > m) ? (1) : (m)); | |||
| 13653 | /* Processing variable ldb */ | |||
| 13654 | ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m) : (n)))); | |||
| 13655 | /*end of frompyobj*/ | |||
| 13656 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13657 | f2py_start_call_clock(); | |||
| 13658 | #endif | |||
| 13659 | /*callfortranroutine*/ | |||
| 13660 | (*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info) ; | |||
| 13661 | /*(*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info,slen(trans));*/ | |||
| 13662 | if (PyErr_Occurred()) | |||
| 13663 | f2py_success = 0; | |||
| 13664 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13665 | f2py_stop_call_clock(); | |||
| 13666 | #endif | |||
| 13667 | /*end of callfortranroutine*/ | |||
| 13668 | if (f2py_success) { | |||
| 13669 | /*pyobjfrom*/ | |||
| 13670 | /*end of pyobjfrom*/ | |||
| 13671 | CFUNCSMESS("Building return value.\n"); | |||
| 13672 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 13673 | /*closepyobjfrom*/ | |||
| 13674 | /*end of closepyobjfrom*/ | |||
| 13675 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 13676 | /*cleanupfrompyobj*/ | |||
| 13677 | /* End of cleaning variable ldb */ | |||
| 13678 | /* End of cleaning variable lda */ | |||
| 13679 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 13680 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 13681 | } /*if (f2py_success) of trans*/ | |||
| 13682 | /* End of cleaning variable trans */ | |||
| 13683 | /* End of cleaning variable info */ | |||
| 13684 | /* End of cleaning variable work */ | |||
| 13685 | /* End of cleaning variable lwork */ | |||
| 13686 | /* End of cleaning variable b */ | |||
| 13687 | /* End of cleaning variable a */ | |||
| 13688 | } /*CHECKSCALAR(nrhs>=0)*/ | |||
| 13689 | } /*if (f2py_success) of nrhs*/ | |||
| 13690 | /* End of cleaning variable nrhs */ | |||
| 13691 | } /*CHECKSCALAR(n>=0)*/ | |||
| 13692 | } /*if (f2py_success) of n*/ | |||
| 13693 | /* End of cleaning variable n */ | |||
| 13694 | } /*CHECKSCALAR(m>=0)*/ | |||
| 13695 | } /*if (f2py_success) of m*/ | |||
| 13696 | /* End of cleaning variable m */ | |||
| 13697 | /*end of cleanupfrompyobj*/ | |||
| 13698 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 13699 | /*routdebugfailure*/ | |||
| 13700 | } else { | |||
| 13701 | /*routdebugleave*/ | |||
| 13702 | } | |||
| 13703 | CFUNCSMESS("Freeing memory.\n"); | |||
| 13704 | /*freemem*/ | |||
| 13705 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13706 | f2py_stop_clock(); | |||
| 13707 | #endif | |||
| 13708 | return capi_buildvalue; | |||
| 13709 | } | |||
| 13710 | /***************************** end of dgels_lwork *****************************/ | |||
| 13711 | ||||
| 13712 | /******************************** cgels_lwork ********************************/ | |||
| 13713 | static char doc_f2py_rout__flapack_cgels_lwork[] = "\ | |||
| 13714 | work,info = cgels_lwork(m,n,nrhs,[trans])\n\nWrapper for ``cgels_lwork``.\ | |||
| 13715 | \n\nParameters\n----------\n" | |||
| 13716 | "m : input int\n" | |||
| 13717 | "n : input int\n" | |||
| 13718 | "nrhs : input int\n" | |||
| 13719 | "\nOther Parameters\n----------------\n" | |||
| 13720 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 13721 | "\nReturns\n-------\n" | |||
| 13722 | "work : complex\n" | |||
| 13723 | "info : int"; | |||
| 13724 | /* extern void F_FUNC(cgels ,CGELS )(char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 13725 | static PyObject *f2py_rout__flapack_cgels_lwork(const PyObject *capi_self, | |||
| 13726 | PyObject *capi_args, | |||
| 13727 | PyObject *capi_keywds, | |||
| 13728 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 13729 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 13730 | volatile int f2py_success = 1; | |||
| 13731 | /*decl*/ | |||
| 13732 | ||||
| 13733 | string trans = NULL((void*)0); | |||
| 13734 | int slen(trans)capi_trans_len; | |||
| 13735 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 13736 | int m = 0; | |||
| 13737 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 13738 | int n = 0; | |||
| 13739 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 13740 | int nrhs = 0; | |||
| 13741 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 13742 | complex_float a; | |||
| 13743 | int lda = 0; | |||
| 13744 | complex_float b; | |||
| 13745 | int ldb = 0; | |||
| 13746 | complex_float work; | |||
| 13747 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 13748 | int lwork = 0; | |||
| 13749 | int info = 0; | |||
| 13750 | static char *capi_kwlist[] = {"m","n","nrhs","trans",NULL((void*)0)}; | |||
| 13751 | ||||
| 13752 | /*routdebugenter*/ | |||
| 13753 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13754 | f2py_start_clock(); | |||
| 13755 | #endif | |||
| 13756 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 13757 | "OOO|O:_flapack.cgels_lwork",\ | |||
| 13758 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&trans_capi)) | |||
| 13759 | return NULL((void*)0); | |||
| 13760 | /*frompyobj*/ | |||
| 13761 | /* Processing variable m */ | |||
| 13762 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgels_lwork() 1st argument (m) can't be converted to int"); | |||
| 13763 | if (f2py_success) { | |||
| 13764 | CHECKSCALAR(m>=0,"m>=0","1st argument m","cgels_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgels_lwork:m=%d", "(""m>=0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 13765 | /* Processing variable n */ | |||
| 13766 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgels_lwork() 2nd argument (n) can't be converted to int"); | |||
| 13767 | if (f2py_success) { | |||
| 13768 | CHECKSCALAR(n>=0,"n>=0","2nd argument n","cgels_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgels_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 13769 | /* Processing variable nrhs */ | |||
| 13770 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.cgels_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 13771 | if (f2py_success) { | |||
| 13772 | CHECKSCALAR(nrhs>=0,"nrhs>=0","3rd argument nrhs","cgels_lwork:nrhs=%d",nrhs)if (!(nrhs>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgels_lwork:nrhs=%d", "(""nrhs>=0"") failed for " "3rd argument nrhs", nrhs); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 13773 | /* Processing variable a */ | |||
| 13774 | /* Processing variable b */ | |||
| 13775 | /* Processing variable lwork */ | |||
| 13776 | lwork = -1; | |||
| 13777 | /* Processing variable work */ | |||
| 13778 | /* Processing variable info */ | |||
| 13779 | /* Processing variable trans */ | |||
| 13780 | slen(trans)capi_trans_len = 1; | |||
| 13781 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.cgels_lwork to C string"); | |||
| 13782 | if (f2py_success) { | |||
| 13783 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","1st keyword trans","cgels_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgels_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 13784 | /* Processing variable lda */ | |||
| 13785 | lda = MAX(1,m)((1 > m) ? (1) : (m)); | |||
| 13786 | /* Processing variable ldb */ | |||
| 13787 | ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m) : (n)))); | |||
| 13788 | /*end of frompyobj*/ | |||
| 13789 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13790 | f2py_start_call_clock(); | |||
| 13791 | #endif | |||
| 13792 | /*callfortranroutine*/ | |||
| 13793 | (*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info) ; | |||
| 13794 | /*(*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info,slen(trans));*/ | |||
| 13795 | if (PyErr_Occurred()) | |||
| 13796 | f2py_success = 0; | |||
| 13797 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13798 | f2py_stop_call_clock(); | |||
| 13799 | #endif | |||
| 13800 | /*end of callfortranroutine*/ | |||
| 13801 | if (f2py_success) { | |||
| 13802 | /*pyobjfrom*/ | |||
| 13803 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 13804 | /*end of pyobjfrom*/ | |||
| 13805 | CFUNCSMESS("Building return value.\n"); | |||
| 13806 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 13807 | /*closepyobjfrom*/ | |||
| 13808 | /*end of closepyobjfrom*/ | |||
| 13809 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 13810 | /*cleanupfrompyobj*/ | |||
| 13811 | /* End of cleaning variable ldb */ | |||
| 13812 | /* End of cleaning variable lda */ | |||
| 13813 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 13814 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 13815 | } /*if (f2py_success) of trans*/ | |||
| 13816 | /* End of cleaning variable trans */ | |||
| 13817 | /* End of cleaning variable info */ | |||
| 13818 | /* End of cleaning variable work */ | |||
| 13819 | /* End of cleaning variable lwork */ | |||
| 13820 | /* End of cleaning variable b */ | |||
| 13821 | /* End of cleaning variable a */ | |||
| 13822 | } /*CHECKSCALAR(nrhs>=0)*/ | |||
| 13823 | } /*if (f2py_success) of nrhs*/ | |||
| 13824 | /* End of cleaning variable nrhs */ | |||
| 13825 | } /*CHECKSCALAR(n>=0)*/ | |||
| 13826 | } /*if (f2py_success) of n*/ | |||
| 13827 | /* End of cleaning variable n */ | |||
| 13828 | } /*CHECKSCALAR(m>=0)*/ | |||
| 13829 | } /*if (f2py_success) of m*/ | |||
| 13830 | /* End of cleaning variable m */ | |||
| 13831 | /*end of cleanupfrompyobj*/ | |||
| 13832 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 13833 | /*routdebugfailure*/ | |||
| 13834 | } else { | |||
| 13835 | /*routdebugleave*/ | |||
| 13836 | } | |||
| 13837 | CFUNCSMESS("Freeing memory.\n"); | |||
| 13838 | /*freemem*/ | |||
| 13839 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13840 | f2py_stop_clock(); | |||
| 13841 | #endif | |||
| 13842 | return capi_buildvalue; | |||
| 13843 | } | |||
| 13844 | /***************************** end of cgels_lwork *****************************/ | |||
| 13845 | ||||
| 13846 | /******************************** zgels_lwork ********************************/ | |||
| 13847 | static char doc_f2py_rout__flapack_zgels_lwork[] = "\ | |||
| 13848 | work,info = zgels_lwork(m,n,nrhs,[trans])\n\nWrapper for ``zgels_lwork``.\ | |||
| 13849 | \n\nParameters\n----------\n" | |||
| 13850 | "m : input int\n" | |||
| 13851 | "n : input int\n" | |||
| 13852 | "nrhs : input int\n" | |||
| 13853 | "\nOther Parameters\n----------------\n" | |||
| 13854 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 13855 | "\nReturns\n-------\n" | |||
| 13856 | "work : complex\n" | |||
| 13857 | "info : int"; | |||
| 13858 | /* extern void F_FUNC(zgels ,ZGELS )(char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 13859 | static PyObject *f2py_rout__flapack_zgels_lwork(const PyObject *capi_self, | |||
| 13860 | PyObject *capi_args, | |||
| 13861 | PyObject *capi_keywds, | |||
| 13862 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 13863 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 13864 | volatile int f2py_success = 1; | |||
| 13865 | /*decl*/ | |||
| 13866 | ||||
| 13867 | string trans = NULL((void*)0); | |||
| 13868 | int slen(trans)capi_trans_len; | |||
| 13869 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 13870 | int m = 0; | |||
| 13871 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 13872 | int n = 0; | |||
| 13873 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 13874 | int nrhs = 0; | |||
| 13875 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 13876 | complex_double a; | |||
| 13877 | int lda = 0; | |||
| 13878 | complex_double b; | |||
| 13879 | int ldb = 0; | |||
| 13880 | complex_double work; | |||
| 13881 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 13882 | int lwork = 0; | |||
| 13883 | int info = 0; | |||
| 13884 | static char *capi_kwlist[] = {"m","n","nrhs","trans",NULL((void*)0)}; | |||
| 13885 | ||||
| 13886 | /*routdebugenter*/ | |||
| 13887 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13888 | f2py_start_clock(); | |||
| 13889 | #endif | |||
| 13890 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 13891 | "OOO|O:_flapack.zgels_lwork",\ | |||
| 13892 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&trans_capi)) | |||
| 13893 | return NULL((void*)0); | |||
| 13894 | /*frompyobj*/ | |||
| 13895 | /* Processing variable m */ | |||
| 13896 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgels_lwork() 1st argument (m) can't be converted to int"); | |||
| 13897 | if (f2py_success) { | |||
| 13898 | CHECKSCALAR(m>=0,"m>=0","1st argument m","zgels_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgels_lwork:m=%d", "(""m>=0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 13899 | /* Processing variable n */ | |||
| 13900 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgels_lwork() 2nd argument (n) can't be converted to int"); | |||
| 13901 | if (f2py_success) { | |||
| 13902 | CHECKSCALAR(n>=0,"n>=0","2nd argument n","zgels_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgels_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 13903 | /* Processing variable nrhs */ | |||
| 13904 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.zgels_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 13905 | if (f2py_success) { | |||
| 13906 | CHECKSCALAR(nrhs>=0,"nrhs>=0","3rd argument nrhs","zgels_lwork:nrhs=%d",nrhs)if (!(nrhs>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgels_lwork:nrhs=%d", "(""nrhs>=0"") failed for " "3rd argument nrhs", nrhs); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 13907 | /* Processing variable a */ | |||
| 13908 | /* Processing variable b */ | |||
| 13909 | /* Processing variable lwork */ | |||
| 13910 | lwork = -1; | |||
| 13911 | /* Processing variable work */ | |||
| 13912 | /* Processing variable info */ | |||
| 13913 | /* Processing variable trans */ | |||
| 13914 | slen(trans)capi_trans_len = 1; | |||
| 13915 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.zgels_lwork to C string"); | |||
| 13916 | if (f2py_success) { | |||
| 13917 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","1st keyword trans","zgels_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgels_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 13918 | /* Processing variable lda */ | |||
| 13919 | lda = MAX(1,m)((1 > m) ? (1) : (m)); | |||
| 13920 | /* Processing variable ldb */ | |||
| 13921 | ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m) : (n)))); | |||
| 13922 | /*end of frompyobj*/ | |||
| 13923 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13924 | f2py_start_call_clock(); | |||
| 13925 | #endif | |||
| 13926 | /*callfortranroutine*/ | |||
| 13927 | (*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info) ; | |||
| 13928 | /*(*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info,slen(trans));*/ | |||
| 13929 | if (PyErr_Occurred()) | |||
| 13930 | f2py_success = 0; | |||
| 13931 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13932 | f2py_stop_call_clock(); | |||
| 13933 | #endif | |||
| 13934 | /*end of callfortranroutine*/ | |||
| 13935 | if (f2py_success) { | |||
| 13936 | /*pyobjfrom*/ | |||
| 13937 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 13938 | /*end of pyobjfrom*/ | |||
| 13939 | CFUNCSMESS("Building return value.\n"); | |||
| 13940 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 13941 | /*closepyobjfrom*/ | |||
| 13942 | /*end of closepyobjfrom*/ | |||
| 13943 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 13944 | /*cleanupfrompyobj*/ | |||
| 13945 | /* End of cleaning variable ldb */ | |||
| 13946 | /* End of cleaning variable lda */ | |||
| 13947 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 13948 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 13949 | } /*if (f2py_success) of trans*/ | |||
| 13950 | /* End of cleaning variable trans */ | |||
| 13951 | /* End of cleaning variable info */ | |||
| 13952 | /* End of cleaning variable work */ | |||
| 13953 | /* End of cleaning variable lwork */ | |||
| 13954 | /* End of cleaning variable b */ | |||
| 13955 | /* End of cleaning variable a */ | |||
| 13956 | } /*CHECKSCALAR(nrhs>=0)*/ | |||
| 13957 | } /*if (f2py_success) of nrhs*/ | |||
| 13958 | /* End of cleaning variable nrhs */ | |||
| 13959 | } /*CHECKSCALAR(n>=0)*/ | |||
| 13960 | } /*if (f2py_success) of n*/ | |||
| 13961 | /* End of cleaning variable n */ | |||
| 13962 | } /*CHECKSCALAR(m>=0)*/ | |||
| 13963 | } /*if (f2py_success) of m*/ | |||
| 13964 | /* End of cleaning variable m */ | |||
| 13965 | /*end of cleanupfrompyobj*/ | |||
| 13966 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 13967 | /*routdebugfailure*/ | |||
| 13968 | } else { | |||
| 13969 | /*routdebugleave*/ | |||
| 13970 | } | |||
| 13971 | CFUNCSMESS("Freeing memory.\n"); | |||
| 13972 | /*freemem*/ | |||
| 13973 | #ifdef F2PY_REPORT_ATEXIT | |||
| 13974 | f2py_stop_clock(); | |||
| 13975 | #endif | |||
| 13976 | return capi_buildvalue; | |||
| 13977 | } | |||
| 13978 | /***************************** end of zgels_lwork *****************************/ | |||
| 13979 | ||||
| 13980 | /*********************************** sgelss ***********************************/ | |||
| 13981 | static char doc_f2py_rout__flapack_sgelss[] = "\ | |||
| 13982 | v,x,s,rank,work,info = sgelss(a,b,[cond,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``sgelss``.\ | |||
| 13983 | \n\nParameters\n----------\n" | |||
| 13984 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 13985 | "b : input rank-2 array('f') with bounds (maxmn,nrhs)\n" | |||
| 13986 | "\nOther Parameters\n----------------\n" | |||
| 13987 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 13988 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 13989 | "cond : input float, optional\n Default: -1.0\n" | |||
| 13990 | "lwork : input int, optional\n Default: max(3*minmn+MAX(2*minmn,MAX(maxmn,nrhs)),1)\n" | |||
| 13991 | "\nReturns\n-------\n" | |||
| 13992 | "v : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 13993 | "x : rank-2 array('f') with bounds (maxmn,nrhs) and b storage\n" | |||
| 13994 | "s : rank-1 array('f') with bounds (minmn)\n" | |||
| 13995 | "rank : int\n" | |||
| 13996 | "work : rank-1 array('f') with bounds (MAX(lwork,1))\n" | |||
| 13997 | "info : int"; | |||
| 13998 | /* extern void F_FUNC(sgelss,SGELSS)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 13999 | static PyObject *f2py_rout__flapack_sgelss(const PyObject *capi_self, | |||
| 14000 | PyObject *capi_args, | |||
| 14001 | PyObject *capi_keywds, | |||
| 14002 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 14003 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 14004 | volatile int f2py_success = 1; | |||
| 14005 | /*decl*/ | |||
| 14006 | ||||
| 14007 | int m = 0; | |||
| 14008 | int n = 0; | |||
| 14009 | int minmn = 0; | |||
| 14010 | int maxmn = 0; | |||
| 14011 | int nrhs = 0; | |||
| 14012 | float *a = NULL((void*)0); | |||
| 14013 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 14014 | const int a_Rank = 2; | |||
| 14015 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 14016 | int capi_a_intent = 0; | |||
| 14017 | int capi_overwrite_a = 0; | |||
| 14018 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 14019 | float *b = NULL((void*)0); | |||
| 14020 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 14021 | const int b_Rank = 2; | |||
| 14022 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 14023 | int capi_b_intent = 0; | |||
| 14024 | int capi_overwrite_b = 0; | |||
| 14025 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 14026 | float *s = NULL((void*)0); | |||
| 14027 | npy_intp s_Dims[1] = {-1}; | |||
| 14028 | const int s_Rank = 1; | |||
| 14029 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 14030 | int capi_s_intent = 0; | |||
| 14031 | float cond = 0; | |||
| 14032 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 14033 | int r = 0; | |||
| 14034 | float *work = NULL((void*)0); | |||
| 14035 | npy_intp work_Dims[1] = {-1}; | |||
| 14036 | const int work_Rank = 1; | |||
| 14037 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 14038 | int capi_work_intent = 0; | |||
| 14039 | int lwork = 0; | |||
| 14040 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 14041 | int info = 0; | |||
| 14042 | static char *capi_kwlist[] = {"a","b","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 14043 | ||||
| 14044 | /*routdebugenter*/ | |||
| 14045 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14046 | f2py_start_clock(); | |||
| 14047 | #endif | |||
| 14048 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 14049 | "OO|OOii:_flapack.sgelss",\ | |||
| 14050 | capi_kwlist,&a_capi,&b_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 14051 | return NULL((void*)0); | |||
| 14052 | /*frompyobj*/ | |||
| 14053 | /* Processing variable a */ | |||
| 14054 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 14055 | ; | |||
| 14056 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 14057 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 14058 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 14059 | if (!PyErr_Occurred()) | |||
| 14060 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgelss to C/Fortran array" ); | |||
| 14061 | } else { | |||
| 14062 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 14063 | ||||
| 14064 | /* Processing variable cond */ | |||
| 14065 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 14066 | f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.sgelss() 1st keyword (cond) can't be converted to float"); | |||
| 14067 | if (f2py_success) { | |||
| 14068 | /* Processing variable r */ | |||
| 14069 | /* Processing variable info */ | |||
| 14070 | /* Processing variable m */ | |||
| 14071 | m = shape(a,0)a_Dims[0]; | |||
| 14072 | /* Processing variable n */ | |||
| 14073 | n = shape(a,1)a_Dims[1]; | |||
| 14074 | /* Processing variable minmn */ | |||
| 14075 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 14076 | /* Processing variable maxmn */ | |||
| 14077 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 14078 | /* Processing variable b */ | |||
| 14079 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 14080 | b_Dims[0]=maxmn; | |||
| 14081 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 14082 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 14083 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 14084 | if (!PyErr_Occurred()) | |||
| 14085 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgelss to C/Fortran array" ); | |||
| 14086 | } else { | |||
| 14087 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 14088 | ||||
| 14089 | CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"(" "maxmn==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 14090 | /* Processing variable s */ | |||
| 14091 | s_Dims[0]=minmn; | |||
| 14092 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 14093 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 14094 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 14095 | if (!PyErr_Occurred()) | |||
| 14096 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.sgelss to C/Fortran array" ); | |||
| 14097 | } else { | |||
| 14098 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 14099 | ||||
| 14100 | /* Processing variable nrhs */ | |||
| 14101 | nrhs = shape(b,1)b_Dims[1]; | |||
| 14102 | /* Processing variable lwork */ | |||
| 14103 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*minmn+MAX(2*minmn,MAX(maxmn,nrhs)),1)((3*minmn+((2*minmn > ((maxmn > nrhs) ? (maxmn) : (nrhs ))) ? (2*minmn) : (((maxmn > nrhs) ? (maxmn) : (nrhs)))) > 1) ? (3*minmn+((2*minmn > ((maxmn > nrhs) ? (maxmn) : ( nrhs))) ? (2*minmn) : (((maxmn > nrhs) ? (maxmn) : (nrhs)) ))) : (1)); else | |||
| 14104 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgelss() 2nd keyword (lwork) can't be converted to int"); | |||
| 14105 | if (f2py_success) { | |||
| 14106 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","sgelss:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgelss:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 14107 | /* Processing variable work */ | |||
| 14108 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 14109 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 14110 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 14111 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 14112 | if (!PyErr_Occurred()) | |||
| 14113 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgelss to C/Fortran array" ); | |||
| 14114 | } else { | |||
| 14115 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 14116 | ||||
| 14117 | /*end of frompyobj*/ | |||
| 14118 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14119 | f2py_start_call_clock(); | |||
| 14120 | #endif | |||
| 14121 | /*callfortranroutine*/ | |||
| 14122 | (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork,&info) ; | |||
| 14123 | /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,&lwork,&info);*/ | |||
| 14124 | if (PyErr_Occurred()) | |||
| 14125 | f2py_success = 0; | |||
| 14126 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14127 | f2py_stop_call_clock(); | |||
| 14128 | #endif | |||
| 14129 | /*end of callfortranroutine*/ | |||
| 14130 | if (f2py_success) { | |||
| 14131 | /*pyobjfrom*/ | |||
| 14132 | /*end of pyobjfrom*/ | |||
| 14133 | CFUNCSMESS("Building return value.\n"); | |||
| 14134 | capi_buildvalue = Py_BuildValue("NNNiNi",capi_a_tmp,capi_b_tmp,capi_s_tmp,r,capi_work_tmp,info); | |||
| 14135 | /*closepyobjfrom*/ | |||
| 14136 | /*end of closepyobjfrom*/ | |||
| 14137 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 14138 | /*cleanupfrompyobj*/ | |||
| 14139 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 14140 | /* End of cleaning variable work */ | |||
| 14141 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 14142 | } /*if (f2py_success) of lwork*/ | |||
| 14143 | /* End of cleaning variable lwork */ | |||
| 14144 | /* End of cleaning variable nrhs */ | |||
| 14145 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 14146 | /* End of cleaning variable s */ | |||
| 14147 | } /*CHECKARRAY(maxmn==shape(b,0))*/ | |||
| 14148 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 14149 | /* End of cleaning variable b */ | |||
| 14150 | /* End of cleaning variable maxmn */ | |||
| 14151 | /* End of cleaning variable minmn */ | |||
| 14152 | /* End of cleaning variable n */ | |||
| 14153 | /* End of cleaning variable m */ | |||
| 14154 | /* End of cleaning variable info */ | |||
| 14155 | /* End of cleaning variable r */ | |||
| 14156 | } /*if (f2py_success) of cond*/ | |||
| 14157 | /* End of cleaning variable cond */ | |||
| 14158 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 14159 | /* End of cleaning variable a */ | |||
| 14160 | /*end of cleanupfrompyobj*/ | |||
| 14161 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 14162 | /*routdebugfailure*/ | |||
| 14163 | } else { | |||
| 14164 | /*routdebugleave*/ | |||
| 14165 | } | |||
| 14166 | CFUNCSMESS("Freeing memory.\n"); | |||
| 14167 | /*freemem*/ | |||
| 14168 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14169 | f2py_stop_clock(); | |||
| 14170 | #endif | |||
| 14171 | return capi_buildvalue; | |||
| 14172 | } | |||
| 14173 | /******************************* end of sgelss *******************************/ | |||
| 14174 | ||||
| 14175 | /*********************************** dgelss ***********************************/ | |||
| 14176 | static char doc_f2py_rout__flapack_dgelss[] = "\ | |||
| 14177 | v,x,s,rank,work,info = dgelss(a,b,[cond,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``dgelss``.\ | |||
| 14178 | \n\nParameters\n----------\n" | |||
| 14179 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 14180 | "b : input rank-2 array('d') with bounds (maxmn,nrhs)\n" | |||
| 14181 | "\nOther Parameters\n----------------\n" | |||
| 14182 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 14183 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 14184 | "cond : input float, optional\n Default: -1.0\n" | |||
| 14185 | "lwork : input int, optional\n Default: max(3*minmn+MAX(2*minmn,MAX(maxmn,nrhs)),1)\n" | |||
| 14186 | "\nReturns\n-------\n" | |||
| 14187 | "v : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 14188 | "x : rank-2 array('d') with bounds (maxmn,nrhs) and b storage\n" | |||
| 14189 | "s : rank-1 array('d') with bounds (minmn)\n" | |||
| 14190 | "rank : int\n" | |||
| 14191 | "work : rank-1 array('d') with bounds (MAX(lwork,1))\n" | |||
| 14192 | "info : int"; | |||
| 14193 | /* extern void F_FUNC(dgelss,DGELSS)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 14194 | static PyObject *f2py_rout__flapack_dgelss(const PyObject *capi_self, | |||
| 14195 | PyObject *capi_args, | |||
| 14196 | PyObject *capi_keywds, | |||
| 14197 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 14198 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 14199 | volatile int f2py_success = 1; | |||
| 14200 | /*decl*/ | |||
| 14201 | ||||
| 14202 | int m = 0; | |||
| 14203 | int n = 0; | |||
| 14204 | int minmn = 0; | |||
| 14205 | int maxmn = 0; | |||
| 14206 | int nrhs = 0; | |||
| 14207 | double *a = NULL((void*)0); | |||
| 14208 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 14209 | const int a_Rank = 2; | |||
| 14210 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 14211 | int capi_a_intent = 0; | |||
| 14212 | int capi_overwrite_a = 0; | |||
| 14213 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 14214 | double *b = NULL((void*)0); | |||
| 14215 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 14216 | const int b_Rank = 2; | |||
| 14217 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 14218 | int capi_b_intent = 0; | |||
| 14219 | int capi_overwrite_b = 0; | |||
| 14220 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 14221 | double *s = NULL((void*)0); | |||
| 14222 | npy_intp s_Dims[1] = {-1}; | |||
| 14223 | const int s_Rank = 1; | |||
| 14224 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 14225 | int capi_s_intent = 0; | |||
| 14226 | double cond = 0; | |||
| 14227 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 14228 | int r = 0; | |||
| 14229 | double *work = NULL((void*)0); | |||
| 14230 | npy_intp work_Dims[1] = {-1}; | |||
| 14231 | const int work_Rank = 1; | |||
| 14232 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 14233 | int capi_work_intent = 0; | |||
| 14234 | int lwork = 0; | |||
| 14235 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 14236 | int info = 0; | |||
| 14237 | static char *capi_kwlist[] = {"a","b","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 14238 | ||||
| 14239 | /*routdebugenter*/ | |||
| 14240 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14241 | f2py_start_clock(); | |||
| 14242 | #endif | |||
| 14243 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 14244 | "OO|OOii:_flapack.dgelss",\ | |||
| 14245 | capi_kwlist,&a_capi,&b_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 14246 | return NULL((void*)0); | |||
| 14247 | /*frompyobj*/ | |||
| 14248 | /* Processing variable a */ | |||
| 14249 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 14250 | ; | |||
| 14251 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 14252 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 14253 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 14254 | if (!PyErr_Occurred()) | |||
| 14255 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgelss to C/Fortran array" ); | |||
| 14256 | } else { | |||
| 14257 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 14258 | ||||
| 14259 | /* Processing variable cond */ | |||
| 14260 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 14261 | f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.dgelss() 1st keyword (cond) can't be converted to double"); | |||
| 14262 | if (f2py_success) { | |||
| 14263 | /* Processing variable r */ | |||
| 14264 | /* Processing variable info */ | |||
| 14265 | /* Processing variable m */ | |||
| 14266 | m = shape(a,0)a_Dims[0]; | |||
| 14267 | /* Processing variable n */ | |||
| 14268 | n = shape(a,1)a_Dims[1]; | |||
| 14269 | /* Processing variable minmn */ | |||
| 14270 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 14271 | /* Processing variable maxmn */ | |||
| 14272 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 14273 | /* Processing variable b */ | |||
| 14274 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 14275 | b_Dims[0]=maxmn; | |||
| 14276 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 14277 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 14278 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 14279 | if (!PyErr_Occurred()) | |||
| 14280 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgelss to C/Fortran array" ); | |||
| 14281 | } else { | |||
| 14282 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 14283 | ||||
| 14284 | CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"(" "maxmn==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 14285 | /* Processing variable s */ | |||
| 14286 | s_Dims[0]=minmn; | |||
| 14287 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 14288 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 14289 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 14290 | if (!PyErr_Occurred()) | |||
| 14291 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.dgelss to C/Fortran array" ); | |||
| 14292 | } else { | |||
| 14293 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 14294 | ||||
| 14295 | /* Processing variable nrhs */ | |||
| 14296 | nrhs = shape(b,1)b_Dims[1]; | |||
| 14297 | /* Processing variable lwork */ | |||
| 14298 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*minmn+MAX(2*minmn,MAX(maxmn,nrhs)),1)((3*minmn+((2*minmn > ((maxmn > nrhs) ? (maxmn) : (nrhs ))) ? (2*minmn) : (((maxmn > nrhs) ? (maxmn) : (nrhs)))) > 1) ? (3*minmn+((2*minmn > ((maxmn > nrhs) ? (maxmn) : ( nrhs))) ? (2*minmn) : (((maxmn > nrhs) ? (maxmn) : (nrhs)) ))) : (1)); else | |||
| 14299 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgelss() 2nd keyword (lwork) can't be converted to int"); | |||
| 14300 | if (f2py_success) { | |||
| 14301 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","dgelss:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgelss:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 14302 | /* Processing variable work */ | |||
| 14303 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 14304 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 14305 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 14306 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 14307 | if (!PyErr_Occurred()) | |||
| 14308 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgelss to C/Fortran array" ); | |||
| 14309 | } else { | |||
| 14310 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 14311 | ||||
| 14312 | /*end of frompyobj*/ | |||
| 14313 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14314 | f2py_start_call_clock(); | |||
| 14315 | #endif | |||
| 14316 | /*callfortranroutine*/ | |||
| 14317 | (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork,&info) ; | |||
| 14318 | /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,&lwork,&info);*/ | |||
| 14319 | if (PyErr_Occurred()) | |||
| 14320 | f2py_success = 0; | |||
| 14321 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14322 | f2py_stop_call_clock(); | |||
| 14323 | #endif | |||
| 14324 | /*end of callfortranroutine*/ | |||
| 14325 | if (f2py_success) { | |||
| 14326 | /*pyobjfrom*/ | |||
| 14327 | /*end of pyobjfrom*/ | |||
| 14328 | CFUNCSMESS("Building return value.\n"); | |||
| 14329 | capi_buildvalue = Py_BuildValue("NNNiNi",capi_a_tmp,capi_b_tmp,capi_s_tmp,r,capi_work_tmp,info); | |||
| 14330 | /*closepyobjfrom*/ | |||
| 14331 | /*end of closepyobjfrom*/ | |||
| 14332 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 14333 | /*cleanupfrompyobj*/ | |||
| 14334 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 14335 | /* End of cleaning variable work */ | |||
| 14336 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 14337 | } /*if (f2py_success) of lwork*/ | |||
| 14338 | /* End of cleaning variable lwork */ | |||
| 14339 | /* End of cleaning variable nrhs */ | |||
| 14340 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 14341 | /* End of cleaning variable s */ | |||
| 14342 | } /*CHECKARRAY(maxmn==shape(b,0))*/ | |||
| 14343 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 14344 | /* End of cleaning variable b */ | |||
| 14345 | /* End of cleaning variable maxmn */ | |||
| 14346 | /* End of cleaning variable minmn */ | |||
| 14347 | /* End of cleaning variable n */ | |||
| 14348 | /* End of cleaning variable m */ | |||
| 14349 | /* End of cleaning variable info */ | |||
| 14350 | /* End of cleaning variable r */ | |||
| 14351 | } /*if (f2py_success) of cond*/ | |||
| 14352 | /* End of cleaning variable cond */ | |||
| 14353 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 14354 | /* End of cleaning variable a */ | |||
| 14355 | /*end of cleanupfrompyobj*/ | |||
| 14356 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 14357 | /*routdebugfailure*/ | |||
| 14358 | } else { | |||
| 14359 | /*routdebugleave*/ | |||
| 14360 | } | |||
| 14361 | CFUNCSMESS("Freeing memory.\n"); | |||
| 14362 | /*freemem*/ | |||
| 14363 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14364 | f2py_stop_clock(); | |||
| 14365 | #endif | |||
| 14366 | return capi_buildvalue; | |||
| 14367 | } | |||
| 14368 | /******************************* end of dgelss *******************************/ | |||
| 14369 | ||||
| 14370 | /******************************** sgelss_lwork ********************************/ | |||
| 14371 | static char doc_f2py_rout__flapack_sgelss_lwork[] = "\ | |||
| 14372 | work,info = sgelss_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``sgelss_lwork``.\ | |||
| 14373 | \n\nParameters\n----------\n" | |||
| 14374 | "m : input int\n" | |||
| 14375 | "n : input int\n" | |||
| 14376 | "nrhs : input int\n" | |||
| 14377 | "\nOther Parameters\n----------------\n" | |||
| 14378 | "cond : input float, optional\n Default: -1.0\n" | |||
| 14379 | "lwork : input int, optional\n Default: -1\n" | |||
| 14380 | "\nReturns\n-------\n" | |||
| 14381 | "work : float\n" | |||
| 14382 | "info : int"; | |||
| 14383 | /* extern void F_FUNC(sgelss ,SGELSS )(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 14384 | static PyObject *f2py_rout__flapack_sgelss_lwork(const PyObject *capi_self, | |||
| 14385 | PyObject *capi_args, | |||
| 14386 | PyObject *capi_keywds, | |||
| 14387 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 14388 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 14389 | volatile int f2py_success = 1; | |||
| 14390 | /*decl*/ | |||
| 14391 | ||||
| 14392 | int m = 0; | |||
| 14393 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 14394 | int n = 0; | |||
| 14395 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 14396 | int maxmn = 0; | |||
| 14397 | int nrhs = 0; | |||
| 14398 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 14399 | float a = 0; | |||
| 14400 | float b = 0; | |||
| 14401 | float s = 0; | |||
| 14402 | float cond = 0; | |||
| 14403 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 14404 | int r = 0; | |||
| 14405 | float work = 0; | |||
| 14406 | int lwork = 0; | |||
| 14407 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 14408 | int info = 0; | |||
| 14409 | static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)}; | |||
| 14410 | ||||
| 14411 | /*routdebugenter*/ | |||
| 14412 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14413 | f2py_start_clock(); | |||
| 14414 | #endif | |||
| 14415 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 14416 | "OOO|OO:_flapack.sgelss_lwork",\ | |||
| 14417 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi)) | |||
| 14418 | return NULL((void*)0); | |||
| 14419 | /*frompyobj*/ | |||
| 14420 | /* Processing variable m */ | |||
| 14421 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgelss_lwork() 1st argument (m) can't be converted to int"); | |||
| 14422 | if (f2py_success) { | |||
| 14423 | /* Processing variable n */ | |||
| 14424 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgelss_lwork() 2nd argument (n) can't be converted to int"); | |||
| 14425 | if (f2py_success) { | |||
| 14426 | /* Processing variable a */ | |||
| 14427 | /* Processing variable nrhs */ | |||
| 14428 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.sgelss_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 14429 | if (f2py_success) { | |||
| 14430 | /* Processing variable b */ | |||
| 14431 | /* Processing variable cond */ | |||
| 14432 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 14433 | f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.sgelss_lwork() 1st keyword (cond) can't be converted to float"); | |||
| 14434 | if (f2py_success) { | |||
| 14435 | /* Processing variable r */ | |||
| 14436 | /* Processing variable s */ | |||
| 14437 | /* Processing variable lwork */ | |||
| 14438 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else | |||
| 14439 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgelss_lwork() 2nd keyword (lwork) can't be converted to int"); | |||
| 14440 | if (f2py_success) { | |||
| 14441 | /* Processing variable work */ | |||
| 14442 | /* Processing variable info */ | |||
| 14443 | /* Processing variable maxmn */ | |||
| 14444 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 14445 | /*end of frompyobj*/ | |||
| 14446 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14447 | f2py_start_call_clock(); | |||
| 14448 | #endif | |||
| 14449 | /*callfortranroutine*/ | |||
| 14450 | (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork,&info) ; | |||
| 14451 | /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&lwork,&info);*/ | |||
| 14452 | if (PyErr_Occurred()) | |||
| 14453 | f2py_success = 0; | |||
| 14454 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14455 | f2py_stop_call_clock(); | |||
| 14456 | #endif | |||
| 14457 | /*end of callfortranroutine*/ | |||
| 14458 | if (f2py_success) { | |||
| 14459 | /*pyobjfrom*/ | |||
| 14460 | /*end of pyobjfrom*/ | |||
| 14461 | CFUNCSMESS("Building return value.\n"); | |||
| 14462 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 14463 | /*closepyobjfrom*/ | |||
| 14464 | /*end of closepyobjfrom*/ | |||
| 14465 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 14466 | /*cleanupfrompyobj*/ | |||
| 14467 | /* End of cleaning variable maxmn */ | |||
| 14468 | /* End of cleaning variable info */ | |||
| 14469 | /* End of cleaning variable work */ | |||
| 14470 | } /*if (f2py_success) of lwork*/ | |||
| 14471 | /* End of cleaning variable lwork */ | |||
| 14472 | /* End of cleaning variable s */ | |||
| 14473 | /* End of cleaning variable r */ | |||
| 14474 | } /*if (f2py_success) of cond*/ | |||
| 14475 | /* End of cleaning variable cond */ | |||
| 14476 | /* End of cleaning variable b */ | |||
| 14477 | } /*if (f2py_success) of nrhs*/ | |||
| 14478 | /* End of cleaning variable nrhs */ | |||
| 14479 | /* End of cleaning variable a */ | |||
| 14480 | } /*if (f2py_success) of n*/ | |||
| 14481 | /* End of cleaning variable n */ | |||
| 14482 | } /*if (f2py_success) of m*/ | |||
| 14483 | /* End of cleaning variable m */ | |||
| 14484 | /*end of cleanupfrompyobj*/ | |||
| 14485 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 14486 | /*routdebugfailure*/ | |||
| 14487 | } else { | |||
| 14488 | /*routdebugleave*/ | |||
| 14489 | } | |||
| 14490 | CFUNCSMESS("Freeing memory.\n"); | |||
| 14491 | /*freemem*/ | |||
| 14492 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14493 | f2py_stop_clock(); | |||
| 14494 | #endif | |||
| 14495 | return capi_buildvalue; | |||
| 14496 | } | |||
| 14497 | /**************************** end of sgelss_lwork ****************************/ | |||
| 14498 | ||||
| 14499 | /******************************** dgelss_lwork ********************************/ | |||
| 14500 | static char doc_f2py_rout__flapack_dgelss_lwork[] = "\ | |||
| 14501 | work,info = dgelss_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``dgelss_lwork``.\ | |||
| 14502 | \n\nParameters\n----------\n" | |||
| 14503 | "m : input int\n" | |||
| 14504 | "n : input int\n" | |||
| 14505 | "nrhs : input int\n" | |||
| 14506 | "\nOther Parameters\n----------------\n" | |||
| 14507 | "cond : input float, optional\n Default: -1.0\n" | |||
| 14508 | "lwork : input int, optional\n Default: -1\n" | |||
| 14509 | "\nReturns\n-------\n" | |||
| 14510 | "work : float\n" | |||
| 14511 | "info : int"; | |||
| 14512 | /* extern void F_FUNC(dgelss ,DGELSS )(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 14513 | static PyObject *f2py_rout__flapack_dgelss_lwork(const PyObject *capi_self, | |||
| 14514 | PyObject *capi_args, | |||
| 14515 | PyObject *capi_keywds, | |||
| 14516 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 14517 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 14518 | volatile int f2py_success = 1; | |||
| 14519 | /*decl*/ | |||
| 14520 | ||||
| 14521 | int m = 0; | |||
| 14522 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 14523 | int n = 0; | |||
| 14524 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 14525 | int maxmn = 0; | |||
| 14526 | int nrhs = 0; | |||
| 14527 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 14528 | double a = 0; | |||
| 14529 | double b = 0; | |||
| 14530 | double s = 0; | |||
| 14531 | double cond = 0; | |||
| 14532 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 14533 | int r = 0; | |||
| 14534 | double work = 0; | |||
| 14535 | int lwork = 0; | |||
| 14536 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 14537 | int info = 0; | |||
| 14538 | static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)}; | |||
| 14539 | ||||
| 14540 | /*routdebugenter*/ | |||
| 14541 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14542 | f2py_start_clock(); | |||
| 14543 | #endif | |||
| 14544 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 14545 | "OOO|OO:_flapack.dgelss_lwork",\ | |||
| 14546 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi)) | |||
| 14547 | return NULL((void*)0); | |||
| 14548 | /*frompyobj*/ | |||
| 14549 | /* Processing variable m */ | |||
| 14550 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgelss_lwork() 1st argument (m) can't be converted to int"); | |||
| 14551 | if (f2py_success) { | |||
| 14552 | /* Processing variable n */ | |||
| 14553 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgelss_lwork() 2nd argument (n) can't be converted to int"); | |||
| 14554 | if (f2py_success) { | |||
| 14555 | /* Processing variable a */ | |||
| 14556 | /* Processing variable nrhs */ | |||
| 14557 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.dgelss_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 14558 | if (f2py_success) { | |||
| 14559 | /* Processing variable b */ | |||
| 14560 | /* Processing variable cond */ | |||
| 14561 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 14562 | f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.dgelss_lwork() 1st keyword (cond) can't be converted to double"); | |||
| 14563 | if (f2py_success) { | |||
| 14564 | /* Processing variable r */ | |||
| 14565 | /* Processing variable s */ | |||
| 14566 | /* Processing variable lwork */ | |||
| 14567 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else | |||
| 14568 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgelss_lwork() 2nd keyword (lwork) can't be converted to int"); | |||
| 14569 | if (f2py_success) { | |||
| 14570 | /* Processing variable work */ | |||
| 14571 | /* Processing variable info */ | |||
| 14572 | /* Processing variable maxmn */ | |||
| 14573 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 14574 | /*end of frompyobj*/ | |||
| 14575 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14576 | f2py_start_call_clock(); | |||
| 14577 | #endif | |||
| 14578 | /*callfortranroutine*/ | |||
| 14579 | (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork,&info) ; | |||
| 14580 | /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&lwork,&info);*/ | |||
| 14581 | if (PyErr_Occurred()) | |||
| 14582 | f2py_success = 0; | |||
| 14583 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14584 | f2py_stop_call_clock(); | |||
| 14585 | #endif | |||
| 14586 | /*end of callfortranroutine*/ | |||
| 14587 | if (f2py_success) { | |||
| 14588 | /*pyobjfrom*/ | |||
| 14589 | /*end of pyobjfrom*/ | |||
| 14590 | CFUNCSMESS("Building return value.\n"); | |||
| 14591 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 14592 | /*closepyobjfrom*/ | |||
| 14593 | /*end of closepyobjfrom*/ | |||
| 14594 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 14595 | /*cleanupfrompyobj*/ | |||
| 14596 | /* End of cleaning variable maxmn */ | |||
| 14597 | /* End of cleaning variable info */ | |||
| 14598 | /* End of cleaning variable work */ | |||
| 14599 | } /*if (f2py_success) of lwork*/ | |||
| 14600 | /* End of cleaning variable lwork */ | |||
| 14601 | /* End of cleaning variable s */ | |||
| 14602 | /* End of cleaning variable r */ | |||
| 14603 | } /*if (f2py_success) of cond*/ | |||
| 14604 | /* End of cleaning variable cond */ | |||
| 14605 | /* End of cleaning variable b */ | |||
| 14606 | } /*if (f2py_success) of nrhs*/ | |||
| 14607 | /* End of cleaning variable nrhs */ | |||
| 14608 | /* End of cleaning variable a */ | |||
| 14609 | } /*if (f2py_success) of n*/ | |||
| 14610 | /* End of cleaning variable n */ | |||
| 14611 | } /*if (f2py_success) of m*/ | |||
| 14612 | /* End of cleaning variable m */ | |||
| 14613 | /*end of cleanupfrompyobj*/ | |||
| 14614 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 14615 | /*routdebugfailure*/ | |||
| 14616 | } else { | |||
| 14617 | /*routdebugleave*/ | |||
| 14618 | } | |||
| 14619 | CFUNCSMESS("Freeing memory.\n"); | |||
| 14620 | /*freemem*/ | |||
| 14621 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14622 | f2py_stop_clock(); | |||
| 14623 | #endif | |||
| 14624 | return capi_buildvalue; | |||
| 14625 | } | |||
| 14626 | /**************************** end of dgelss_lwork ****************************/ | |||
| 14627 | ||||
| 14628 | /*********************************** cgelss ***********************************/ | |||
| 14629 | static char doc_f2py_rout__flapack_cgelss[] = "\ | |||
| 14630 | v,x,s,rank,work,info = cgelss(a,b,[cond,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``cgelss``.\ | |||
| 14631 | \n\nParameters\n----------\n" | |||
| 14632 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 14633 | "b : input rank-2 array('F') with bounds (maxmn,nrhs)\n" | |||
| 14634 | "\nOther Parameters\n----------------\n" | |||
| 14635 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 14636 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 14637 | "cond : input float, optional\n Default: -1.0\n" | |||
| 14638 | "lwork : input int, optional\n Default: max(2*minmn+MAX(maxmn,nrhs),1)\n" | |||
| 14639 | "\nReturns\n-------\n" | |||
| 14640 | "v : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 14641 | "x : rank-2 array('F') with bounds (maxmn,nrhs) and b storage\n" | |||
| 14642 | "s : rank-1 array('f') with bounds (minmn)\n" | |||
| 14643 | "rank : int\n" | |||
| 14644 | "work : rank-1 array('F') with bounds (MAX(lwork,1))\n" | |||
| 14645 | "info : int"; | |||
| 14646 | /* extern void F_FUNC(cgelss,CGELSS)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 14647 | static PyObject *f2py_rout__flapack_cgelss(const PyObject *capi_self, | |||
| 14648 | PyObject *capi_args, | |||
| 14649 | PyObject *capi_keywds, | |||
| 14650 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 14651 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 14652 | volatile int f2py_success = 1; | |||
| 14653 | /*decl*/ | |||
| 14654 | ||||
| 14655 | int m = 0; | |||
| 14656 | int n = 0; | |||
| 14657 | int minmn = 0; | |||
| 14658 | int maxmn = 0; | |||
| 14659 | int nrhs = 0; | |||
| 14660 | complex_float *a = NULL((void*)0); | |||
| 14661 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 14662 | const int a_Rank = 2; | |||
| 14663 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 14664 | int capi_a_intent = 0; | |||
| 14665 | int capi_overwrite_a = 0; | |||
| 14666 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 14667 | complex_float *b = NULL((void*)0); | |||
| 14668 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 14669 | const int b_Rank = 2; | |||
| 14670 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 14671 | int capi_b_intent = 0; | |||
| 14672 | int capi_overwrite_b = 0; | |||
| 14673 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 14674 | float *s = NULL((void*)0); | |||
| 14675 | npy_intp s_Dims[1] = {-1}; | |||
| 14676 | const int s_Rank = 1; | |||
| 14677 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 14678 | int capi_s_intent = 0; | |||
| 14679 | float cond = 0; | |||
| 14680 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 14681 | int r = 0; | |||
| 14682 | complex_float *work = NULL((void*)0); | |||
| 14683 | npy_intp work_Dims[1] = {-1}; | |||
| 14684 | const int work_Rank = 1; | |||
| 14685 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 14686 | int capi_work_intent = 0; | |||
| 14687 | float *rwork = NULL((void*)0); | |||
| 14688 | npy_intp rwork_Dims[1] = {-1}; | |||
| 14689 | const int rwork_Rank = 1; | |||
| 14690 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 14691 | int capi_rwork_intent = 0; | |||
| 14692 | int lwork = 0; | |||
| 14693 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 14694 | int info = 0; | |||
| 14695 | static char *capi_kwlist[] = {"a","b","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 14696 | ||||
| 14697 | /*routdebugenter*/ | |||
| 14698 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14699 | f2py_start_clock(); | |||
| 14700 | #endif | |||
| 14701 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 14702 | "OO|OOii:_flapack.cgelss",\ | |||
| 14703 | capi_kwlist,&a_capi,&b_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 14704 | return NULL((void*)0); | |||
| 14705 | /*frompyobj*/ | |||
| 14706 | /* Processing variable a */ | |||
| 14707 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 14708 | ; | |||
| 14709 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 14710 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 14711 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 14712 | if (!PyErr_Occurred()) | |||
| 14713 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgelss to C/Fortran array" ); | |||
| 14714 | } else { | |||
| 14715 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 14716 | ||||
| 14717 | /* Processing variable cond */ | |||
| 14718 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 14719 | f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.cgelss() 1st keyword (cond) can't be converted to float"); | |||
| 14720 | if (f2py_success) { | |||
| 14721 | /* Processing variable r */ | |||
| 14722 | /* Processing variable info */ | |||
| 14723 | /* Processing variable m */ | |||
| 14724 | m = shape(a,0)a_Dims[0]; | |||
| 14725 | /* Processing variable n */ | |||
| 14726 | n = shape(a,1)a_Dims[1]; | |||
| 14727 | /* Processing variable minmn */ | |||
| 14728 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 14729 | /* Processing variable maxmn */ | |||
| 14730 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 14731 | /* Processing variable b */ | |||
| 14732 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 14733 | b_Dims[0]=maxmn; | |||
| 14734 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 14735 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 14736 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 14737 | if (!PyErr_Occurred()) | |||
| 14738 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgelss to C/Fortran array" ); | |||
| 14739 | } else { | |||
| 14740 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 14741 | ||||
| 14742 | CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"(" "maxmn==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 14743 | /* Processing variable s */ | |||
| 14744 | s_Dims[0]=minmn; | |||
| 14745 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 14746 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 14747 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 14748 | if (!PyErr_Occurred()) | |||
| 14749 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.cgelss to C/Fortran array" ); | |||
| 14750 | } else { | |||
| 14751 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 14752 | ||||
| 14753 | /* Processing variable nrhs */ | |||
| 14754 | nrhs = shape(b,1)b_Dims[1]; | |||
| 14755 | /* Processing variable lwork */ | |||
| 14756 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*minmn+MAX(maxmn,nrhs),1)((2*minmn+((maxmn > nrhs) ? (maxmn) : (nrhs)) > 1) ? (2 *minmn+((maxmn > nrhs) ? (maxmn) : (nrhs))) : (1)); else | |||
| 14757 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgelss() 2nd keyword (lwork) can't be converted to int"); | |||
| 14758 | if (f2py_success) { | |||
| 14759 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","cgelss:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgelss:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 14760 | /* Processing variable work */ | |||
| 14761 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 14762 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 14763 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 14764 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 14765 | if (!PyErr_Occurred()) | |||
| 14766 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgelss to C/Fortran array" ); | |||
| 14767 | } else { | |||
| 14768 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 14769 | ||||
| 14770 | /* Processing variable rwork */ | |||
| 14771 | rwork_Dims[0]=5 * minmn; | |||
| 14772 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 14773 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 14774 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 14775 | if (!PyErr_Occurred()) | |||
| 14776 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgelss to C/Fortran array" ); | |||
| 14777 | } else { | |||
| 14778 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 14779 | ||||
| 14780 | /*end of frompyobj*/ | |||
| 14781 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14782 | f2py_start_call_clock(); | |||
| 14783 | #endif | |||
| 14784 | /*callfortranroutine*/ | |||
| 14785 | (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork,rwork,&info) ; | |||
| 14786 | /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,rwork,&lwork,&info);*/ | |||
| 14787 | if (PyErr_Occurred()) | |||
| 14788 | f2py_success = 0; | |||
| 14789 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14790 | f2py_stop_call_clock(); | |||
| 14791 | #endif | |||
| 14792 | /*end of callfortranroutine*/ | |||
| 14793 | if (f2py_success) { | |||
| 14794 | /*pyobjfrom*/ | |||
| 14795 | /*end of pyobjfrom*/ | |||
| 14796 | CFUNCSMESS("Building return value.\n"); | |||
| 14797 | capi_buildvalue = Py_BuildValue("NNNiNi",capi_a_tmp,capi_b_tmp,capi_s_tmp,r,capi_work_tmp,info); | |||
| 14798 | /*closepyobjfrom*/ | |||
| 14799 | /*end of closepyobjfrom*/ | |||
| 14800 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 14801 | /*cleanupfrompyobj*/ | |||
| 14802 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 14803 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 14804 | /* End of cleaning variable rwork */ | |||
| 14805 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 14806 | /* End of cleaning variable work */ | |||
| 14807 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 14808 | } /*if (f2py_success) of lwork*/ | |||
| 14809 | /* End of cleaning variable lwork */ | |||
| 14810 | /* End of cleaning variable nrhs */ | |||
| 14811 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 14812 | /* End of cleaning variable s */ | |||
| 14813 | } /*CHECKARRAY(maxmn==shape(b,0))*/ | |||
| 14814 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 14815 | /* End of cleaning variable b */ | |||
| 14816 | /* End of cleaning variable maxmn */ | |||
| 14817 | /* End of cleaning variable minmn */ | |||
| 14818 | /* End of cleaning variable n */ | |||
| 14819 | /* End of cleaning variable m */ | |||
| 14820 | /* End of cleaning variable info */ | |||
| 14821 | /* End of cleaning variable r */ | |||
| 14822 | } /*if (f2py_success) of cond*/ | |||
| 14823 | /* End of cleaning variable cond */ | |||
| 14824 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 14825 | /* End of cleaning variable a */ | |||
| 14826 | /*end of cleanupfrompyobj*/ | |||
| 14827 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 14828 | /*routdebugfailure*/ | |||
| 14829 | } else { | |||
| 14830 | /*routdebugleave*/ | |||
| 14831 | } | |||
| 14832 | CFUNCSMESS("Freeing memory.\n"); | |||
| 14833 | /*freemem*/ | |||
| 14834 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14835 | f2py_stop_clock(); | |||
| 14836 | #endif | |||
| 14837 | return capi_buildvalue; | |||
| 14838 | } | |||
| 14839 | /******************************* end of cgelss *******************************/ | |||
| 14840 | ||||
| 14841 | /*********************************** zgelss ***********************************/ | |||
| 14842 | static char doc_f2py_rout__flapack_zgelss[] = "\ | |||
| 14843 | v,x,s,rank,work,info = zgelss(a,b,[cond,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``zgelss``.\ | |||
| 14844 | \n\nParameters\n----------\n" | |||
| 14845 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 14846 | "b : input rank-2 array('D') with bounds (maxmn,nrhs)\n" | |||
| 14847 | "\nOther Parameters\n----------------\n" | |||
| 14848 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 14849 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 14850 | "cond : input float, optional\n Default: -1.0\n" | |||
| 14851 | "lwork : input int, optional\n Default: max(2*minmn+MAX(maxmn,nrhs),1)\n" | |||
| 14852 | "\nReturns\n-------\n" | |||
| 14853 | "v : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 14854 | "x : rank-2 array('D') with bounds (maxmn,nrhs) and b storage\n" | |||
| 14855 | "s : rank-1 array('d') with bounds (minmn)\n" | |||
| 14856 | "rank : int\n" | |||
| 14857 | "work : rank-1 array('D') with bounds (MAX(lwork,1))\n" | |||
| 14858 | "info : int"; | |||
| 14859 | /* extern void F_FUNC(zgelss,ZGELSS)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 14860 | static PyObject *f2py_rout__flapack_zgelss(const PyObject *capi_self, | |||
| 14861 | PyObject *capi_args, | |||
| 14862 | PyObject *capi_keywds, | |||
| 14863 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 14864 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 14865 | volatile int f2py_success = 1; | |||
| 14866 | /*decl*/ | |||
| 14867 | ||||
| 14868 | int m = 0; | |||
| 14869 | int n = 0; | |||
| 14870 | int minmn = 0; | |||
| 14871 | int maxmn = 0; | |||
| 14872 | int nrhs = 0; | |||
| 14873 | complex_double *a = NULL((void*)0); | |||
| 14874 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 14875 | const int a_Rank = 2; | |||
| 14876 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 14877 | int capi_a_intent = 0; | |||
| 14878 | int capi_overwrite_a = 0; | |||
| 14879 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 14880 | complex_double *b = NULL((void*)0); | |||
| 14881 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 14882 | const int b_Rank = 2; | |||
| 14883 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 14884 | int capi_b_intent = 0; | |||
| 14885 | int capi_overwrite_b = 0; | |||
| 14886 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 14887 | double *s = NULL((void*)0); | |||
| 14888 | npy_intp s_Dims[1] = {-1}; | |||
| 14889 | const int s_Rank = 1; | |||
| 14890 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 14891 | int capi_s_intent = 0; | |||
| 14892 | double cond = 0; | |||
| 14893 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 14894 | int r = 0; | |||
| 14895 | complex_double *work = NULL((void*)0); | |||
| 14896 | npy_intp work_Dims[1] = {-1}; | |||
| 14897 | const int work_Rank = 1; | |||
| 14898 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 14899 | int capi_work_intent = 0; | |||
| 14900 | double *rwork = NULL((void*)0); | |||
| 14901 | npy_intp rwork_Dims[1] = {-1}; | |||
| 14902 | const int rwork_Rank = 1; | |||
| 14903 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 14904 | int capi_rwork_intent = 0; | |||
| 14905 | int lwork = 0; | |||
| 14906 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 14907 | int info = 0; | |||
| 14908 | static char *capi_kwlist[] = {"a","b","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 14909 | ||||
| 14910 | /*routdebugenter*/ | |||
| 14911 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14912 | f2py_start_clock(); | |||
| 14913 | #endif | |||
| 14914 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 14915 | "OO|OOii:_flapack.zgelss",\ | |||
| 14916 | capi_kwlist,&a_capi,&b_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 14917 | return NULL((void*)0); | |||
| 14918 | /*frompyobj*/ | |||
| 14919 | /* Processing variable a */ | |||
| 14920 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 14921 | ; | |||
| 14922 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 14923 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 14924 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 14925 | if (!PyErr_Occurred()) | |||
| 14926 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgelss to C/Fortran array" ); | |||
| 14927 | } else { | |||
| 14928 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 14929 | ||||
| 14930 | /* Processing variable cond */ | |||
| 14931 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 14932 | f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.zgelss() 1st keyword (cond) can't be converted to double"); | |||
| 14933 | if (f2py_success) { | |||
| 14934 | /* Processing variable r */ | |||
| 14935 | /* Processing variable info */ | |||
| 14936 | /* Processing variable m */ | |||
| 14937 | m = shape(a,0)a_Dims[0]; | |||
| 14938 | /* Processing variable n */ | |||
| 14939 | n = shape(a,1)a_Dims[1]; | |||
| 14940 | /* Processing variable minmn */ | |||
| 14941 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 14942 | /* Processing variable maxmn */ | |||
| 14943 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 14944 | /* Processing variable b */ | |||
| 14945 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 14946 | b_Dims[0]=maxmn; | |||
| 14947 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 14948 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 14949 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 14950 | if (!PyErr_Occurred()) | |||
| 14951 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgelss to C/Fortran array" ); | |||
| 14952 | } else { | |||
| 14953 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 14954 | ||||
| 14955 | CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"(" "maxmn==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 14956 | /* Processing variable s */ | |||
| 14957 | s_Dims[0]=minmn; | |||
| 14958 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 14959 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 14960 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 14961 | if (!PyErr_Occurred()) | |||
| 14962 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.zgelss to C/Fortran array" ); | |||
| 14963 | } else { | |||
| 14964 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 14965 | ||||
| 14966 | /* Processing variable nrhs */ | |||
| 14967 | nrhs = shape(b,1)b_Dims[1]; | |||
| 14968 | /* Processing variable lwork */ | |||
| 14969 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*minmn+MAX(maxmn,nrhs),1)((2*minmn+((maxmn > nrhs) ? (maxmn) : (nrhs)) > 1) ? (2 *minmn+((maxmn > nrhs) ? (maxmn) : (nrhs))) : (1)); else | |||
| 14970 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgelss() 2nd keyword (lwork) can't be converted to int"); | |||
| 14971 | if (f2py_success) { | |||
| 14972 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","zgelss:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgelss:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 14973 | /* Processing variable work */ | |||
| 14974 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 14975 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 14976 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 14977 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 14978 | if (!PyErr_Occurred()) | |||
| 14979 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgelss to C/Fortran array" ); | |||
| 14980 | } else { | |||
| 14981 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 14982 | ||||
| 14983 | /* Processing variable rwork */ | |||
| 14984 | rwork_Dims[0]=5 * minmn; | |||
| 14985 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 14986 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 14987 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 14988 | if (!PyErr_Occurred()) | |||
| 14989 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgelss to C/Fortran array" ); | |||
| 14990 | } else { | |||
| 14991 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 14992 | ||||
| 14993 | /*end of frompyobj*/ | |||
| 14994 | #ifdef F2PY_REPORT_ATEXIT | |||
| 14995 | f2py_start_call_clock(); | |||
| 14996 | #endif | |||
| 14997 | /*callfortranroutine*/ | |||
| 14998 | (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork,rwork,&info) ; | |||
| 14999 | /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,rwork,&lwork,&info);*/ | |||
| 15000 | if (PyErr_Occurred()) | |||
| 15001 | f2py_success = 0; | |||
| 15002 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15003 | f2py_stop_call_clock(); | |||
| 15004 | #endif | |||
| 15005 | /*end of callfortranroutine*/ | |||
| 15006 | if (f2py_success) { | |||
| 15007 | /*pyobjfrom*/ | |||
| 15008 | /*end of pyobjfrom*/ | |||
| 15009 | CFUNCSMESS("Building return value.\n"); | |||
| 15010 | capi_buildvalue = Py_BuildValue("NNNiNi",capi_a_tmp,capi_b_tmp,capi_s_tmp,r,capi_work_tmp,info); | |||
| 15011 | /*closepyobjfrom*/ | |||
| 15012 | /*end of closepyobjfrom*/ | |||
| 15013 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 15014 | /*cleanupfrompyobj*/ | |||
| 15015 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 15016 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 15017 | /* End of cleaning variable rwork */ | |||
| 15018 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 15019 | /* End of cleaning variable work */ | |||
| 15020 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 15021 | } /*if (f2py_success) of lwork*/ | |||
| 15022 | /* End of cleaning variable lwork */ | |||
| 15023 | /* End of cleaning variable nrhs */ | |||
| 15024 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 15025 | /* End of cleaning variable s */ | |||
| 15026 | } /*CHECKARRAY(maxmn==shape(b,0))*/ | |||
| 15027 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 15028 | /* End of cleaning variable b */ | |||
| 15029 | /* End of cleaning variable maxmn */ | |||
| 15030 | /* End of cleaning variable minmn */ | |||
| 15031 | /* End of cleaning variable n */ | |||
| 15032 | /* End of cleaning variable m */ | |||
| 15033 | /* End of cleaning variable info */ | |||
| 15034 | /* End of cleaning variable r */ | |||
| 15035 | } /*if (f2py_success) of cond*/ | |||
| 15036 | /* End of cleaning variable cond */ | |||
| 15037 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 15038 | /* End of cleaning variable a */ | |||
| 15039 | /*end of cleanupfrompyobj*/ | |||
| 15040 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 15041 | /*routdebugfailure*/ | |||
| 15042 | } else { | |||
| 15043 | /*routdebugleave*/ | |||
| 15044 | } | |||
| 15045 | CFUNCSMESS("Freeing memory.\n"); | |||
| 15046 | /*freemem*/ | |||
| 15047 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15048 | f2py_stop_clock(); | |||
| 15049 | #endif | |||
| 15050 | return capi_buildvalue; | |||
| 15051 | } | |||
| 15052 | /******************************* end of zgelss *******************************/ | |||
| 15053 | ||||
| 15054 | /******************************** cgelss_lwork ********************************/ | |||
| 15055 | static char doc_f2py_rout__flapack_cgelss_lwork[] = "\ | |||
| 15056 | work,info = cgelss_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``cgelss_lwork``.\ | |||
| 15057 | \n\nParameters\n----------\n" | |||
| 15058 | "m : input int\n" | |||
| 15059 | "n : input int\n" | |||
| 15060 | "nrhs : input int\n" | |||
| 15061 | "\nOther Parameters\n----------------\n" | |||
| 15062 | "cond : input float, optional\n Default: -1.0\n" | |||
| 15063 | "lwork : input int, optional\n Default: -1\n" | |||
| 15064 | "\nReturns\n-------\n" | |||
| 15065 | "work : complex\n" | |||
| 15066 | "info : int"; | |||
| 15067 | /* extern void F_FUNC(cgelss ,CGELSS )(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 15068 | static PyObject *f2py_rout__flapack_cgelss_lwork(const PyObject *capi_self, | |||
| 15069 | PyObject *capi_args, | |||
| 15070 | PyObject *capi_keywds, | |||
| 15071 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 15072 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 15073 | volatile int f2py_success = 1; | |||
| 15074 | /*decl*/ | |||
| 15075 | ||||
| 15076 | int m = 0; | |||
| 15077 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 15078 | int n = 0; | |||
| 15079 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 15080 | int maxmn = 0; | |||
| 15081 | int nrhs = 0; | |||
| 15082 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 15083 | complex_float a; | |||
| 15084 | complex_float b; | |||
| 15085 | float s = 0; | |||
| 15086 | float cond = 0; | |||
| 15087 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 15088 | int r = 0; | |||
| 15089 | complex_float work; | |||
| 15090 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 15091 | float rwork = 0; | |||
| 15092 | int lwork = 0; | |||
| 15093 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 15094 | int info = 0; | |||
| 15095 | static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)}; | |||
| 15096 | ||||
| 15097 | /*routdebugenter*/ | |||
| 15098 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15099 | f2py_start_clock(); | |||
| 15100 | #endif | |||
| 15101 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 15102 | "OOO|OO:_flapack.cgelss_lwork",\ | |||
| 15103 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi)) | |||
| 15104 | return NULL((void*)0); | |||
| 15105 | /*frompyobj*/ | |||
| 15106 | /* Processing variable m */ | |||
| 15107 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgelss_lwork() 1st argument (m) can't be converted to int"); | |||
| 15108 | if (f2py_success) { | |||
| 15109 | /* Processing variable n */ | |||
| 15110 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgelss_lwork() 2nd argument (n) can't be converted to int"); | |||
| 15111 | if (f2py_success) { | |||
| 15112 | /* Processing variable a */ | |||
| 15113 | /* Processing variable nrhs */ | |||
| 15114 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.cgelss_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 15115 | if (f2py_success) { | |||
| 15116 | /* Processing variable b */ | |||
| 15117 | /* Processing variable cond */ | |||
| 15118 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 15119 | f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.cgelss_lwork() 1st keyword (cond) can't be converted to float"); | |||
| 15120 | if (f2py_success) { | |||
| 15121 | /* Processing variable r */ | |||
| 15122 | /* Processing variable s */ | |||
| 15123 | /* Processing variable lwork */ | |||
| 15124 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else | |||
| 15125 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgelss_lwork() 2nd keyword (lwork) can't be converted to int"); | |||
| 15126 | if (f2py_success) { | |||
| 15127 | /* Processing variable work */ | |||
| 15128 | /* Processing variable rwork */ | |||
| 15129 | /* Processing variable info */ | |||
| 15130 | /* Processing variable maxmn */ | |||
| 15131 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 15132 | /*end of frompyobj*/ | |||
| 15133 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15134 | f2py_start_call_clock(); | |||
| 15135 | #endif | |||
| 15136 | /*callfortranroutine*/ | |||
| 15137 | (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork,&rwork,&info) ; | |||
| 15138 | /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&rwork,&lwork,&info);*/ | |||
| 15139 | if (PyErr_Occurred()) | |||
| 15140 | f2py_success = 0; | |||
| 15141 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15142 | f2py_stop_call_clock(); | |||
| 15143 | #endif | |||
| 15144 | /*end of callfortranroutine*/ | |||
| 15145 | if (f2py_success) { | |||
| 15146 | /*pyobjfrom*/ | |||
| 15147 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 15148 | /*end of pyobjfrom*/ | |||
| 15149 | CFUNCSMESS("Building return value.\n"); | |||
| 15150 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 15151 | /*closepyobjfrom*/ | |||
| 15152 | /*end of closepyobjfrom*/ | |||
| 15153 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 15154 | /*cleanupfrompyobj*/ | |||
| 15155 | /* End of cleaning variable maxmn */ | |||
| 15156 | /* End of cleaning variable info */ | |||
| 15157 | /* End of cleaning variable rwork */ | |||
| 15158 | /* End of cleaning variable work */ | |||
| 15159 | } /*if (f2py_success) of lwork*/ | |||
| 15160 | /* End of cleaning variable lwork */ | |||
| 15161 | /* End of cleaning variable s */ | |||
| 15162 | /* End of cleaning variable r */ | |||
| 15163 | } /*if (f2py_success) of cond*/ | |||
| 15164 | /* End of cleaning variable cond */ | |||
| 15165 | /* End of cleaning variable b */ | |||
| 15166 | } /*if (f2py_success) of nrhs*/ | |||
| 15167 | /* End of cleaning variable nrhs */ | |||
| 15168 | /* End of cleaning variable a */ | |||
| 15169 | } /*if (f2py_success) of n*/ | |||
| 15170 | /* End of cleaning variable n */ | |||
| 15171 | } /*if (f2py_success) of m*/ | |||
| 15172 | /* End of cleaning variable m */ | |||
| 15173 | /*end of cleanupfrompyobj*/ | |||
| 15174 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 15175 | /*routdebugfailure*/ | |||
| 15176 | } else { | |||
| 15177 | /*routdebugleave*/ | |||
| 15178 | } | |||
| 15179 | CFUNCSMESS("Freeing memory.\n"); | |||
| 15180 | /*freemem*/ | |||
| 15181 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15182 | f2py_stop_clock(); | |||
| 15183 | #endif | |||
| 15184 | return capi_buildvalue; | |||
| 15185 | } | |||
| 15186 | /**************************** end of cgelss_lwork ****************************/ | |||
| 15187 | ||||
| 15188 | /******************************** zgelss_lwork ********************************/ | |||
| 15189 | static char doc_f2py_rout__flapack_zgelss_lwork[] = "\ | |||
| 15190 | work,info = zgelss_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``zgelss_lwork``.\ | |||
| 15191 | \n\nParameters\n----------\n" | |||
| 15192 | "m : input int\n" | |||
| 15193 | "n : input int\n" | |||
| 15194 | "nrhs : input int\n" | |||
| 15195 | "\nOther Parameters\n----------------\n" | |||
| 15196 | "cond : input float, optional\n Default: -1.0\n" | |||
| 15197 | "lwork : input int, optional\n Default: -1\n" | |||
| 15198 | "\nReturns\n-------\n" | |||
| 15199 | "work : complex\n" | |||
| 15200 | "info : int"; | |||
| 15201 | /* extern void F_FUNC(zgelss ,ZGELSS )(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 15202 | static PyObject *f2py_rout__flapack_zgelss_lwork(const PyObject *capi_self, | |||
| 15203 | PyObject *capi_args, | |||
| 15204 | PyObject *capi_keywds, | |||
| 15205 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 15206 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 15207 | volatile int f2py_success = 1; | |||
| 15208 | /*decl*/ | |||
| 15209 | ||||
| 15210 | int m = 0; | |||
| 15211 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 15212 | int n = 0; | |||
| 15213 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 15214 | int maxmn = 0; | |||
| 15215 | int nrhs = 0; | |||
| 15216 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 15217 | complex_double a; | |||
| 15218 | complex_double b; | |||
| 15219 | double s = 0; | |||
| 15220 | double cond = 0; | |||
| 15221 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 15222 | int r = 0; | |||
| 15223 | complex_double work; | |||
| 15224 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 15225 | double rwork = 0; | |||
| 15226 | int lwork = 0; | |||
| 15227 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 15228 | int info = 0; | |||
| 15229 | static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)}; | |||
| 15230 | ||||
| 15231 | /*routdebugenter*/ | |||
| 15232 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15233 | f2py_start_clock(); | |||
| 15234 | #endif | |||
| 15235 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 15236 | "OOO|OO:_flapack.zgelss_lwork",\ | |||
| 15237 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi)) | |||
| 15238 | return NULL((void*)0); | |||
| 15239 | /*frompyobj*/ | |||
| 15240 | /* Processing variable m */ | |||
| 15241 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgelss_lwork() 1st argument (m) can't be converted to int"); | |||
| 15242 | if (f2py_success) { | |||
| 15243 | /* Processing variable n */ | |||
| 15244 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgelss_lwork() 2nd argument (n) can't be converted to int"); | |||
| 15245 | if (f2py_success) { | |||
| 15246 | /* Processing variable a */ | |||
| 15247 | /* Processing variable nrhs */ | |||
| 15248 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.zgelss_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 15249 | if (f2py_success) { | |||
| 15250 | /* Processing variable b */ | |||
| 15251 | /* Processing variable cond */ | |||
| 15252 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 15253 | f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.zgelss_lwork() 1st keyword (cond) can't be converted to double"); | |||
| 15254 | if (f2py_success) { | |||
| 15255 | /* Processing variable r */ | |||
| 15256 | /* Processing variable s */ | |||
| 15257 | /* Processing variable lwork */ | |||
| 15258 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else | |||
| 15259 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgelss_lwork() 2nd keyword (lwork) can't be converted to int"); | |||
| 15260 | if (f2py_success) { | |||
| 15261 | /* Processing variable work */ | |||
| 15262 | /* Processing variable rwork */ | |||
| 15263 | /* Processing variable info */ | |||
| 15264 | /* Processing variable maxmn */ | |||
| 15265 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 15266 | /*end of frompyobj*/ | |||
| 15267 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15268 | f2py_start_call_clock(); | |||
| 15269 | #endif | |||
| 15270 | /*callfortranroutine*/ | |||
| 15271 | (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork,&rwork,&info) ; | |||
| 15272 | /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&rwork,&lwork,&info);*/ | |||
| 15273 | if (PyErr_Occurred()) | |||
| 15274 | f2py_success = 0; | |||
| 15275 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15276 | f2py_stop_call_clock(); | |||
| 15277 | #endif | |||
| 15278 | /*end of callfortranroutine*/ | |||
| 15279 | if (f2py_success) { | |||
| 15280 | /*pyobjfrom*/ | |||
| 15281 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 15282 | /*end of pyobjfrom*/ | |||
| 15283 | CFUNCSMESS("Building return value.\n"); | |||
| 15284 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 15285 | /*closepyobjfrom*/ | |||
| 15286 | /*end of closepyobjfrom*/ | |||
| 15287 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 15288 | /*cleanupfrompyobj*/ | |||
| 15289 | /* End of cleaning variable maxmn */ | |||
| 15290 | /* End of cleaning variable info */ | |||
| 15291 | /* End of cleaning variable rwork */ | |||
| 15292 | /* End of cleaning variable work */ | |||
| 15293 | } /*if (f2py_success) of lwork*/ | |||
| 15294 | /* End of cleaning variable lwork */ | |||
| 15295 | /* End of cleaning variable s */ | |||
| 15296 | /* End of cleaning variable r */ | |||
| 15297 | } /*if (f2py_success) of cond*/ | |||
| 15298 | /* End of cleaning variable cond */ | |||
| 15299 | /* End of cleaning variable b */ | |||
| 15300 | } /*if (f2py_success) of nrhs*/ | |||
| 15301 | /* End of cleaning variable nrhs */ | |||
| 15302 | /* End of cleaning variable a */ | |||
| 15303 | } /*if (f2py_success) of n*/ | |||
| 15304 | /* End of cleaning variable n */ | |||
| 15305 | } /*if (f2py_success) of m*/ | |||
| 15306 | /* End of cleaning variable m */ | |||
| 15307 | /*end of cleanupfrompyobj*/ | |||
| 15308 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 15309 | /*routdebugfailure*/ | |||
| 15310 | } else { | |||
| 15311 | /*routdebugleave*/ | |||
| 15312 | } | |||
| 15313 | CFUNCSMESS("Freeing memory.\n"); | |||
| 15314 | /*freemem*/ | |||
| 15315 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15316 | f2py_stop_clock(); | |||
| 15317 | #endif | |||
| 15318 | return capi_buildvalue; | |||
| 15319 | } | |||
| 15320 | /**************************** end of zgelss_lwork ****************************/ | |||
| 15321 | ||||
| 15322 | /*********************************** sgelsy ***********************************/ | |||
| 15323 | static char doc_f2py_rout__flapack_sgelsy[] = "\ | |||
| 15324 | v,x,j,rank,info = sgelsy(a,b,jptv,cond,lwork,[overwrite_a,overwrite_b])\n\nWrapper for ``sgelsy``.\ | |||
| 15325 | \n\nParameters\n----------\n" | |||
| 15326 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 15327 | "b : input rank-2 array('f') with bounds (maxmn,nrhs)\n" | |||
| 15328 | "jptv : input rank-1 array('i') with bounds (n)\n" | |||
| 15329 | "cond : input float\n" | |||
| 15330 | "lwork : input int\n" | |||
| 15331 | "\nOther Parameters\n----------------\n" | |||
| 15332 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 15333 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 15334 | "\nReturns\n-------\n" | |||
| 15335 | "v : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 15336 | "x : rank-2 array('f') with bounds (maxmn,nrhs) and b storage\n" | |||
| 15337 | "j : rank-1 array('i') with bounds (n) and jptv storage\n" | |||
| 15338 | "rank : int\n" | |||
| 15339 | "info : int"; | |||
| 15340 | /* extern void F_FUNC(sgelsy,SGELSY)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 15341 | static PyObject *f2py_rout__flapack_sgelsy(const PyObject *capi_self, | |||
| 15342 | PyObject *capi_args, | |||
| 15343 | PyObject *capi_keywds, | |||
| 15344 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 15345 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 15346 | volatile int f2py_success = 1; | |||
| 15347 | /*decl*/ | |||
| 15348 | ||||
| 15349 | int m = 0; | |||
| 15350 | int n = 0; | |||
| 15351 | int maxmn = 0; | |||
| 15352 | int minmn = 0; | |||
| 15353 | int nrhs = 0; | |||
| 15354 | float *a = NULL((void*)0); | |||
| 15355 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 15356 | const int a_Rank = 2; | |||
| 15357 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 15358 | int capi_a_intent = 0; | |||
| 15359 | int capi_overwrite_a = 0; | |||
| 15360 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 15361 | float *b = NULL((void*)0); | |||
| 15362 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 15363 | const int b_Rank = 2; | |||
| 15364 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 15365 | int capi_b_intent = 0; | |||
| 15366 | int capi_overwrite_b = 0; | |||
| 15367 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 15368 | int *jptv = NULL((void*)0); | |||
| 15369 | npy_intp jptv_Dims[1] = {-1}; | |||
| 15370 | const int jptv_Rank = 1; | |||
| 15371 | PyArrayObject *capi_jptv_tmp = NULL((void*)0); | |||
| 15372 | int capi_jptv_intent = 0; | |||
| 15373 | PyObject *jptv_capi = Py_None(&_Py_NoneStruct); | |||
| 15374 | float cond = 0; | |||
| 15375 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 15376 | int r = 0; | |||
| 15377 | float *work = NULL((void*)0); | |||
| 15378 | npy_intp work_Dims[1] = {-1}; | |||
| 15379 | const int work_Rank = 1; | |||
| 15380 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 15381 | int capi_work_intent = 0; | |||
| 15382 | int lwork = 0; | |||
| 15383 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 15384 | int info = 0; | |||
| 15385 | static char *capi_kwlist[] = {"a","b","jptv","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 15386 | ||||
| 15387 | /*routdebugenter*/ | |||
| 15388 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15389 | f2py_start_clock(); | |||
| 15390 | #endif | |||
| 15391 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 15392 | "OOOOO|ii:_flapack.sgelsy",\ | |||
| 15393 | capi_kwlist,&a_capi,&b_capi,&jptv_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 15394 | return NULL((void*)0); | |||
| 15395 | /*frompyobj*/ | |||
| 15396 | /* Processing variable a */ | |||
| 15397 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 15398 | ; | |||
| 15399 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 15400 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 15401 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 15402 | if (!PyErr_Occurred()) | |||
| 15403 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgelsy to C/Fortran array" ); | |||
| 15404 | } else { | |||
| 15405 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 15406 | ||||
| 15407 | /* Processing variable cond */ | |||
| 15408 | f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.sgelsy() 4th argument (cond) can't be converted to float"); | |||
| 15409 | if (f2py_success) { | |||
| 15410 | /* Processing variable r */ | |||
| 15411 | /* Processing variable info */ | |||
| 15412 | /* Processing variable m */ | |||
| 15413 | m = shape(a,0)a_Dims[0]; | |||
| 15414 | /* Processing variable n */ | |||
| 15415 | n = shape(a,1)a_Dims[1]; | |||
| 15416 | /* Processing variable maxmn */ | |||
| 15417 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 15418 | /* Processing variable minmn */ | |||
| 15419 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 15420 | /* Processing variable b */ | |||
| 15421 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 15422 | b_Dims[0]=maxmn; | |||
| 15423 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 15424 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 15425 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 15426 | if (!PyErr_Occurred()) | |||
| 15427 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgelsy to C/Fortran array" ); | |||
| 15428 | } else { | |||
| 15429 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 15430 | ||||
| 15431 | CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"(" "maxmn==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 15432 | /* Processing variable jptv */ | |||
| 15433 | jptv_Dims[0]=n; | |||
| 15434 | capi_jptv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 15435 | capi_jptv_tmp = array_from_pyobj(NPY_INT,jptv_Dims,jptv_Rank,capi_jptv_intent,jptv_capi); | |||
| 15436 | if (capi_jptv_tmp == NULL((void*)0)) { | |||
| 15437 | if (!PyErr_Occurred()) | |||
| 15438 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `jptv' of _flapack.sgelsy to C/Fortran array" ); | |||
| 15439 | } else { | |||
| 15440 | jptv = (int *)(PyArray_DATA(capi_jptv_tmp)((void *)((PyArrayObject_fields *)(capi_jptv_tmp))->data)); | |||
| 15441 | ||||
| 15442 | /* Processing variable nrhs */ | |||
| 15443 | nrhs = shape(b,1)b_Dims[1]; | |||
| 15444 | /* Processing variable lwork */ | |||
| 15445 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgelsy() 5th argument (lwork) can't be converted to int"); | |||
| 15446 | if (f2py_success) { | |||
| 15447 | CHECKSCALAR(lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs),"lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs)","5th argument lwork","sgelsy:lwork=%d",lwork)if (!(lwork>=((minmn+3*n+1 > 2*minmn+nrhs) ? (minmn+3*n +1) : (2*minmn+nrhs)))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgelsy:lwork=%d", "(""lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs)" ") failed for ""5th argument lwork", lwork); PyErr_SetString( _flapack_error,errstring); } else { | |||
| 15448 | /* Processing variable work */ | |||
| 15449 | work_Dims[0]=lwork; | |||
| 15450 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 15451 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 15452 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 15453 | if (!PyErr_Occurred()) | |||
| 15454 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgelsy to C/Fortran array" ); | |||
| 15455 | } else { | |||
| 15456 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 15457 | ||||
| 15458 | /*end of frompyobj*/ | |||
| 15459 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15460 | f2py_start_call_clock(); | |||
| 15461 | #endif | |||
| 15462 | /*callfortranroutine*/ | |||
| 15463 | (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,jptv,&cond,&r,work,&lwork,&info) ; | |||
| 15464 | /*(*f2py_func)(&m,&n,&maxmn,&minmn,&nrhs,a,b,jptv,&cond,&r,work,&lwork,&info);*/ | |||
| 15465 | if (PyErr_Occurred()) | |||
| 15466 | f2py_success = 0; | |||
| 15467 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15468 | f2py_stop_call_clock(); | |||
| 15469 | #endif | |||
| 15470 | /*end of callfortranroutine*/ | |||
| 15471 | if (f2py_success) { | |||
| 15472 | /*pyobjfrom*/ | |||
| 15473 | /*end of pyobjfrom*/ | |||
| 15474 | CFUNCSMESS("Building return value.\n"); | |||
| 15475 | capi_buildvalue = Py_BuildValue("NNNii",capi_a_tmp,capi_b_tmp,capi_jptv_tmp,r,info); | |||
| 15476 | /*closepyobjfrom*/ | |||
| 15477 | /*end of closepyobjfrom*/ | |||
| 15478 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 15479 | /*cleanupfrompyobj*/ | |||
| 15480 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 15481 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 15482 | /* End of cleaning variable work */ | |||
| 15483 | } /*CHECKSCALAR(lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs))*/ | |||
| 15484 | } /*if (f2py_success) of lwork*/ | |||
| 15485 | /* End of cleaning variable lwork */ | |||
| 15486 | /* End of cleaning variable nrhs */ | |||
| 15487 | } /*if (capi_jptv_tmp == NULL) ... else of jptv*/ | |||
| 15488 | /* End of cleaning variable jptv */ | |||
| 15489 | } /*CHECKARRAY(maxmn==shape(b,0))*/ | |||
| 15490 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 15491 | /* End of cleaning variable b */ | |||
| 15492 | /* End of cleaning variable minmn */ | |||
| 15493 | /* End of cleaning variable maxmn */ | |||
| 15494 | /* End of cleaning variable n */ | |||
| 15495 | /* End of cleaning variable m */ | |||
| 15496 | /* End of cleaning variable info */ | |||
| 15497 | /* End of cleaning variable r */ | |||
| 15498 | } /*if (f2py_success) of cond*/ | |||
| 15499 | /* End of cleaning variable cond */ | |||
| 15500 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 15501 | /* End of cleaning variable a */ | |||
| 15502 | /*end of cleanupfrompyobj*/ | |||
| 15503 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 15504 | /*routdebugfailure*/ | |||
| 15505 | } else { | |||
| 15506 | /*routdebugleave*/ | |||
| 15507 | } | |||
| 15508 | CFUNCSMESS("Freeing memory.\n"); | |||
| 15509 | /*freemem*/ | |||
| 15510 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15511 | f2py_stop_clock(); | |||
| 15512 | #endif | |||
| 15513 | return capi_buildvalue; | |||
| 15514 | } | |||
| 15515 | /******************************* end of sgelsy *******************************/ | |||
| 15516 | ||||
| 15517 | /*********************************** dgelsy ***********************************/ | |||
| 15518 | static char doc_f2py_rout__flapack_dgelsy[] = "\ | |||
| 15519 | v,x,j,rank,info = dgelsy(a,b,jptv,cond,lwork,[overwrite_a,overwrite_b])\n\nWrapper for ``dgelsy``.\ | |||
| 15520 | \n\nParameters\n----------\n" | |||
| 15521 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 15522 | "b : input rank-2 array('d') with bounds (maxmn,nrhs)\n" | |||
| 15523 | "jptv : input rank-1 array('i') with bounds (n)\n" | |||
| 15524 | "cond : input float\n" | |||
| 15525 | "lwork : input int\n" | |||
| 15526 | "\nOther Parameters\n----------------\n" | |||
| 15527 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 15528 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 15529 | "\nReturns\n-------\n" | |||
| 15530 | "v : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 15531 | "x : rank-2 array('d') with bounds (maxmn,nrhs) and b storage\n" | |||
| 15532 | "j : rank-1 array('i') with bounds (n) and jptv storage\n" | |||
| 15533 | "rank : int\n" | |||
| 15534 | "info : int"; | |||
| 15535 | /* extern void F_FUNC(dgelsy,DGELSY)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 15536 | static PyObject *f2py_rout__flapack_dgelsy(const PyObject *capi_self, | |||
| 15537 | PyObject *capi_args, | |||
| 15538 | PyObject *capi_keywds, | |||
| 15539 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 15540 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 15541 | volatile int f2py_success = 1; | |||
| 15542 | /*decl*/ | |||
| 15543 | ||||
| 15544 | int m = 0; | |||
| 15545 | int n = 0; | |||
| 15546 | int maxmn = 0; | |||
| 15547 | int minmn = 0; | |||
| 15548 | int nrhs = 0; | |||
| 15549 | double *a = NULL((void*)0); | |||
| 15550 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 15551 | const int a_Rank = 2; | |||
| 15552 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 15553 | int capi_a_intent = 0; | |||
| 15554 | int capi_overwrite_a = 0; | |||
| 15555 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 15556 | double *b = NULL((void*)0); | |||
| 15557 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 15558 | const int b_Rank = 2; | |||
| 15559 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 15560 | int capi_b_intent = 0; | |||
| 15561 | int capi_overwrite_b = 0; | |||
| 15562 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 15563 | int *jptv = NULL((void*)0); | |||
| 15564 | npy_intp jptv_Dims[1] = {-1}; | |||
| 15565 | const int jptv_Rank = 1; | |||
| 15566 | PyArrayObject *capi_jptv_tmp = NULL((void*)0); | |||
| 15567 | int capi_jptv_intent = 0; | |||
| 15568 | PyObject *jptv_capi = Py_None(&_Py_NoneStruct); | |||
| 15569 | double cond = 0; | |||
| 15570 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 15571 | int r = 0; | |||
| 15572 | double *work = NULL((void*)0); | |||
| 15573 | npy_intp work_Dims[1] = {-1}; | |||
| 15574 | const int work_Rank = 1; | |||
| 15575 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 15576 | int capi_work_intent = 0; | |||
| 15577 | int lwork = 0; | |||
| 15578 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 15579 | int info = 0; | |||
| 15580 | static char *capi_kwlist[] = {"a","b","jptv","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 15581 | ||||
| 15582 | /*routdebugenter*/ | |||
| 15583 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15584 | f2py_start_clock(); | |||
| 15585 | #endif | |||
| 15586 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 15587 | "OOOOO|ii:_flapack.dgelsy",\ | |||
| 15588 | capi_kwlist,&a_capi,&b_capi,&jptv_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 15589 | return NULL((void*)0); | |||
| 15590 | /*frompyobj*/ | |||
| 15591 | /* Processing variable a */ | |||
| 15592 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 15593 | ; | |||
| 15594 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 15595 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 15596 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 15597 | if (!PyErr_Occurred()) | |||
| 15598 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgelsy to C/Fortran array" ); | |||
| 15599 | } else { | |||
| 15600 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 15601 | ||||
| 15602 | /* Processing variable cond */ | |||
| 15603 | f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.dgelsy() 4th argument (cond) can't be converted to double"); | |||
| 15604 | if (f2py_success) { | |||
| 15605 | /* Processing variable r */ | |||
| 15606 | /* Processing variable info */ | |||
| 15607 | /* Processing variable m */ | |||
| 15608 | m = shape(a,0)a_Dims[0]; | |||
| 15609 | /* Processing variable n */ | |||
| 15610 | n = shape(a,1)a_Dims[1]; | |||
| 15611 | /* Processing variable maxmn */ | |||
| 15612 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 15613 | /* Processing variable minmn */ | |||
| 15614 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 15615 | /* Processing variable b */ | |||
| 15616 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 15617 | b_Dims[0]=maxmn; | |||
| 15618 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 15619 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 15620 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 15621 | if (!PyErr_Occurred()) | |||
| 15622 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgelsy to C/Fortran array" ); | |||
| 15623 | } else { | |||
| 15624 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 15625 | ||||
| 15626 | CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"(" "maxmn==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 15627 | /* Processing variable jptv */ | |||
| 15628 | jptv_Dims[0]=n; | |||
| 15629 | capi_jptv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 15630 | capi_jptv_tmp = array_from_pyobj(NPY_INT,jptv_Dims,jptv_Rank,capi_jptv_intent,jptv_capi); | |||
| 15631 | if (capi_jptv_tmp == NULL((void*)0)) { | |||
| 15632 | if (!PyErr_Occurred()) | |||
| 15633 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `jptv' of _flapack.dgelsy to C/Fortran array" ); | |||
| 15634 | } else { | |||
| 15635 | jptv = (int *)(PyArray_DATA(capi_jptv_tmp)((void *)((PyArrayObject_fields *)(capi_jptv_tmp))->data)); | |||
| 15636 | ||||
| 15637 | /* Processing variable nrhs */ | |||
| 15638 | nrhs = shape(b,1)b_Dims[1]; | |||
| 15639 | /* Processing variable lwork */ | |||
| 15640 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgelsy() 5th argument (lwork) can't be converted to int"); | |||
| 15641 | if (f2py_success) { | |||
| 15642 | CHECKSCALAR(lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs),"lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs)","5th argument lwork","dgelsy:lwork=%d",lwork)if (!(lwork>=((minmn+3*n+1 > 2*minmn+nrhs) ? (minmn+3*n +1) : (2*minmn+nrhs)))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgelsy:lwork=%d", "(""lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs)" ") failed for ""5th argument lwork", lwork); PyErr_SetString( _flapack_error,errstring); } else { | |||
| 15643 | /* Processing variable work */ | |||
| 15644 | work_Dims[0]=lwork; | |||
| 15645 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 15646 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 15647 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 15648 | if (!PyErr_Occurred()) | |||
| 15649 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgelsy to C/Fortran array" ); | |||
| 15650 | } else { | |||
| 15651 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 15652 | ||||
| 15653 | /*end of frompyobj*/ | |||
| 15654 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15655 | f2py_start_call_clock(); | |||
| 15656 | #endif | |||
| 15657 | /*callfortranroutine*/ | |||
| 15658 | (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,jptv,&cond,&r,work,&lwork,&info) ; | |||
| 15659 | /*(*f2py_func)(&m,&n,&maxmn,&minmn,&nrhs,a,b,jptv,&cond,&r,work,&lwork,&info);*/ | |||
| 15660 | if (PyErr_Occurred()) | |||
| 15661 | f2py_success = 0; | |||
| 15662 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15663 | f2py_stop_call_clock(); | |||
| 15664 | #endif | |||
| 15665 | /*end of callfortranroutine*/ | |||
| 15666 | if (f2py_success) { | |||
| 15667 | /*pyobjfrom*/ | |||
| 15668 | /*end of pyobjfrom*/ | |||
| 15669 | CFUNCSMESS("Building return value.\n"); | |||
| 15670 | capi_buildvalue = Py_BuildValue("NNNii",capi_a_tmp,capi_b_tmp,capi_jptv_tmp,r,info); | |||
| 15671 | /*closepyobjfrom*/ | |||
| 15672 | /*end of closepyobjfrom*/ | |||
| 15673 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 15674 | /*cleanupfrompyobj*/ | |||
| 15675 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 15676 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 15677 | /* End of cleaning variable work */ | |||
| 15678 | } /*CHECKSCALAR(lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs))*/ | |||
| 15679 | } /*if (f2py_success) of lwork*/ | |||
| 15680 | /* End of cleaning variable lwork */ | |||
| 15681 | /* End of cleaning variable nrhs */ | |||
| 15682 | } /*if (capi_jptv_tmp == NULL) ... else of jptv*/ | |||
| 15683 | /* End of cleaning variable jptv */ | |||
| 15684 | } /*CHECKARRAY(maxmn==shape(b,0))*/ | |||
| 15685 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 15686 | /* End of cleaning variable b */ | |||
| 15687 | /* End of cleaning variable minmn */ | |||
| 15688 | /* End of cleaning variable maxmn */ | |||
| 15689 | /* End of cleaning variable n */ | |||
| 15690 | /* End of cleaning variable m */ | |||
| 15691 | /* End of cleaning variable info */ | |||
| 15692 | /* End of cleaning variable r */ | |||
| 15693 | } /*if (f2py_success) of cond*/ | |||
| 15694 | /* End of cleaning variable cond */ | |||
| 15695 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 15696 | /* End of cleaning variable a */ | |||
| 15697 | /*end of cleanupfrompyobj*/ | |||
| 15698 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 15699 | /*routdebugfailure*/ | |||
| 15700 | } else { | |||
| 15701 | /*routdebugleave*/ | |||
| 15702 | } | |||
| 15703 | CFUNCSMESS("Freeing memory.\n"); | |||
| 15704 | /*freemem*/ | |||
| 15705 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15706 | f2py_stop_clock(); | |||
| 15707 | #endif | |||
| 15708 | return capi_buildvalue; | |||
| 15709 | } | |||
| 15710 | /******************************* end of dgelsy *******************************/ | |||
| 15711 | ||||
| 15712 | /******************************** sgelsy_lwork ********************************/ | |||
| 15713 | static char doc_f2py_rout__flapack_sgelsy_lwork[] = "\ | |||
| 15714 | work,info = sgelsy_lwork(m,n,nrhs,cond,[lwork])\n\nWrapper for ``sgelsy_lwork``.\ | |||
| 15715 | \n\nParameters\n----------\n" | |||
| 15716 | "m : input int\n" | |||
| 15717 | "n : input int\n" | |||
| 15718 | "nrhs : input int\n" | |||
| 15719 | "cond : input float\n" | |||
| 15720 | "\nOther Parameters\n----------------\n" | |||
| 15721 | "lwork : input int, optional\n Default: -1\n" | |||
| 15722 | "\nReturns\n-------\n" | |||
| 15723 | "work : float\n" | |||
| 15724 | "info : int"; | |||
| 15725 | /* extern void F_FUNC(sgelsy ,SGELSY )(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 15726 | static PyObject *f2py_rout__flapack_sgelsy_lwork(const PyObject *capi_self, | |||
| 15727 | PyObject *capi_args, | |||
| 15728 | PyObject *capi_keywds, | |||
| 15729 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 15730 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 15731 | volatile int f2py_success = 1; | |||
| 15732 | /*decl*/ | |||
| 15733 | ||||
| 15734 | int m = 0; | |||
| 15735 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 15736 | int n = 0; | |||
| 15737 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 15738 | int maxmn = 0; | |||
| 15739 | int nrhs = 0; | |||
| 15740 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 15741 | float a = 0; | |||
| 15742 | float b = 0; | |||
| 15743 | int jptv = 0; | |||
| 15744 | float cond = 0; | |||
| 15745 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 15746 | int r = 0; | |||
| 15747 | float work = 0; | |||
| 15748 | int lwork = 0; | |||
| 15749 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 15750 | int info = 0; | |||
| 15751 | static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)}; | |||
| 15752 | ||||
| 15753 | /*routdebugenter*/ | |||
| 15754 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15755 | f2py_start_clock(); | |||
| 15756 | #endif | |||
| 15757 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 15758 | "OOOO|O:_flapack.sgelsy_lwork",\ | |||
| 15759 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi)) | |||
| 15760 | return NULL((void*)0); | |||
| 15761 | /*frompyobj*/ | |||
| 15762 | /* Processing variable m */ | |||
| 15763 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgelsy_lwork() 1st argument (m) can't be converted to int"); | |||
| 15764 | if (f2py_success) { | |||
| 15765 | /* Processing variable n */ | |||
| 15766 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgelsy_lwork() 2nd argument (n) can't be converted to int"); | |||
| 15767 | if (f2py_success) { | |||
| 15768 | /* Processing variable a */ | |||
| 15769 | /* Processing variable nrhs */ | |||
| 15770 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.sgelsy_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 15771 | if (f2py_success) { | |||
| 15772 | /* Processing variable b */ | |||
| 15773 | /* Processing variable cond */ | |||
| 15774 | f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.sgelsy_lwork() 4th argument (cond) can't be converted to float"); | |||
| 15775 | if (f2py_success) { | |||
| 15776 | /* Processing variable r */ | |||
| 15777 | /* Processing variable jptv */ | |||
| 15778 | /* Processing variable lwork */ | |||
| 15779 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else | |||
| 15780 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgelsy_lwork() 1st keyword (lwork) can't be converted to int"); | |||
| 15781 | if (f2py_success) { | |||
| 15782 | /* Processing variable work */ | |||
| 15783 | /* Processing variable info */ | |||
| 15784 | /* Processing variable maxmn */ | |||
| 15785 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 15786 | /*end of frompyobj*/ | |||
| 15787 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15788 | f2py_start_call_clock(); | |||
| 15789 | #endif | |||
| 15790 | /*callfortranroutine*/ | |||
| 15791 | (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&jptv,&cond,&r,&work,&lwork,&info) ; | |||
| 15792 | /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&jptv,&cond,&r,&work,&lwork,&info);*/ | |||
| 15793 | if (PyErr_Occurred()) | |||
| 15794 | f2py_success = 0; | |||
| 15795 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15796 | f2py_stop_call_clock(); | |||
| 15797 | #endif | |||
| 15798 | /*end of callfortranroutine*/ | |||
| 15799 | if (f2py_success) { | |||
| 15800 | /*pyobjfrom*/ | |||
| 15801 | /*end of pyobjfrom*/ | |||
| 15802 | CFUNCSMESS("Building return value.\n"); | |||
| 15803 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 15804 | /*closepyobjfrom*/ | |||
| 15805 | /*end of closepyobjfrom*/ | |||
| 15806 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 15807 | /*cleanupfrompyobj*/ | |||
| 15808 | /* End of cleaning variable maxmn */ | |||
| 15809 | /* End of cleaning variable info */ | |||
| 15810 | /* End of cleaning variable work */ | |||
| 15811 | } /*if (f2py_success) of lwork*/ | |||
| 15812 | /* End of cleaning variable lwork */ | |||
| 15813 | /* End of cleaning variable jptv */ | |||
| 15814 | /* End of cleaning variable r */ | |||
| 15815 | } /*if (f2py_success) of cond*/ | |||
| 15816 | /* End of cleaning variable cond */ | |||
| 15817 | /* End of cleaning variable b */ | |||
| 15818 | } /*if (f2py_success) of nrhs*/ | |||
| 15819 | /* End of cleaning variable nrhs */ | |||
| 15820 | /* End of cleaning variable a */ | |||
| 15821 | } /*if (f2py_success) of n*/ | |||
| 15822 | /* End of cleaning variable n */ | |||
| 15823 | } /*if (f2py_success) of m*/ | |||
| 15824 | /* End of cleaning variable m */ | |||
| 15825 | /*end of cleanupfrompyobj*/ | |||
| 15826 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 15827 | /*routdebugfailure*/ | |||
| 15828 | } else { | |||
| 15829 | /*routdebugleave*/ | |||
| 15830 | } | |||
| 15831 | CFUNCSMESS("Freeing memory.\n"); | |||
| 15832 | /*freemem*/ | |||
| 15833 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15834 | f2py_stop_clock(); | |||
| 15835 | #endif | |||
| 15836 | return capi_buildvalue; | |||
| 15837 | } | |||
| 15838 | /**************************** end of sgelsy_lwork ****************************/ | |||
| 15839 | ||||
| 15840 | /******************************** dgelsy_lwork ********************************/ | |||
| 15841 | static char doc_f2py_rout__flapack_dgelsy_lwork[] = "\ | |||
| 15842 | work,info = dgelsy_lwork(m,n,nrhs,cond,[lwork])\n\nWrapper for ``dgelsy_lwork``.\ | |||
| 15843 | \n\nParameters\n----------\n" | |||
| 15844 | "m : input int\n" | |||
| 15845 | "n : input int\n" | |||
| 15846 | "nrhs : input int\n" | |||
| 15847 | "cond : input float\n" | |||
| 15848 | "\nOther Parameters\n----------------\n" | |||
| 15849 | "lwork : input int, optional\n Default: -1\n" | |||
| 15850 | "\nReturns\n-------\n" | |||
| 15851 | "work : float\n" | |||
| 15852 | "info : int"; | |||
| 15853 | /* extern void F_FUNC(dgelsy ,DGELSY )(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 15854 | static PyObject *f2py_rout__flapack_dgelsy_lwork(const PyObject *capi_self, | |||
| 15855 | PyObject *capi_args, | |||
| 15856 | PyObject *capi_keywds, | |||
| 15857 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 15858 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 15859 | volatile int f2py_success = 1; | |||
| 15860 | /*decl*/ | |||
| 15861 | ||||
| 15862 | int m = 0; | |||
| 15863 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 15864 | int n = 0; | |||
| 15865 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 15866 | int maxmn = 0; | |||
| 15867 | int nrhs = 0; | |||
| 15868 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 15869 | double a = 0; | |||
| 15870 | double b = 0; | |||
| 15871 | int jptv = 0; | |||
| 15872 | double cond = 0; | |||
| 15873 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 15874 | int r = 0; | |||
| 15875 | double work = 0; | |||
| 15876 | int lwork = 0; | |||
| 15877 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 15878 | int info = 0; | |||
| 15879 | static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)}; | |||
| 15880 | ||||
| 15881 | /*routdebugenter*/ | |||
| 15882 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15883 | f2py_start_clock(); | |||
| 15884 | #endif | |||
| 15885 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 15886 | "OOOO|O:_flapack.dgelsy_lwork",\ | |||
| 15887 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi)) | |||
| 15888 | return NULL((void*)0); | |||
| 15889 | /*frompyobj*/ | |||
| 15890 | /* Processing variable m */ | |||
| 15891 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgelsy_lwork() 1st argument (m) can't be converted to int"); | |||
| 15892 | if (f2py_success) { | |||
| 15893 | /* Processing variable n */ | |||
| 15894 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgelsy_lwork() 2nd argument (n) can't be converted to int"); | |||
| 15895 | if (f2py_success) { | |||
| 15896 | /* Processing variable a */ | |||
| 15897 | /* Processing variable nrhs */ | |||
| 15898 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.dgelsy_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 15899 | if (f2py_success) { | |||
| 15900 | /* Processing variable b */ | |||
| 15901 | /* Processing variable cond */ | |||
| 15902 | f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.dgelsy_lwork() 4th argument (cond) can't be converted to double"); | |||
| 15903 | if (f2py_success) { | |||
| 15904 | /* Processing variable r */ | |||
| 15905 | /* Processing variable jptv */ | |||
| 15906 | /* Processing variable lwork */ | |||
| 15907 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else | |||
| 15908 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgelsy_lwork() 1st keyword (lwork) can't be converted to int"); | |||
| 15909 | if (f2py_success) { | |||
| 15910 | /* Processing variable work */ | |||
| 15911 | /* Processing variable info */ | |||
| 15912 | /* Processing variable maxmn */ | |||
| 15913 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 15914 | /*end of frompyobj*/ | |||
| 15915 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15916 | f2py_start_call_clock(); | |||
| 15917 | #endif | |||
| 15918 | /*callfortranroutine*/ | |||
| 15919 | (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&jptv,&cond,&r,&work,&lwork,&info) ; | |||
| 15920 | /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&jptv,&cond,&r,&work,&lwork,&info);*/ | |||
| 15921 | if (PyErr_Occurred()) | |||
| 15922 | f2py_success = 0; | |||
| 15923 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15924 | f2py_stop_call_clock(); | |||
| 15925 | #endif | |||
| 15926 | /*end of callfortranroutine*/ | |||
| 15927 | if (f2py_success) { | |||
| 15928 | /*pyobjfrom*/ | |||
| 15929 | /*end of pyobjfrom*/ | |||
| 15930 | CFUNCSMESS("Building return value.\n"); | |||
| 15931 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 15932 | /*closepyobjfrom*/ | |||
| 15933 | /*end of closepyobjfrom*/ | |||
| 15934 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 15935 | /*cleanupfrompyobj*/ | |||
| 15936 | /* End of cleaning variable maxmn */ | |||
| 15937 | /* End of cleaning variable info */ | |||
| 15938 | /* End of cleaning variable work */ | |||
| 15939 | } /*if (f2py_success) of lwork*/ | |||
| 15940 | /* End of cleaning variable lwork */ | |||
| 15941 | /* End of cleaning variable jptv */ | |||
| 15942 | /* End of cleaning variable r */ | |||
| 15943 | } /*if (f2py_success) of cond*/ | |||
| 15944 | /* End of cleaning variable cond */ | |||
| 15945 | /* End of cleaning variable b */ | |||
| 15946 | } /*if (f2py_success) of nrhs*/ | |||
| 15947 | /* End of cleaning variable nrhs */ | |||
| 15948 | /* End of cleaning variable a */ | |||
| 15949 | } /*if (f2py_success) of n*/ | |||
| 15950 | /* End of cleaning variable n */ | |||
| 15951 | } /*if (f2py_success) of m*/ | |||
| 15952 | /* End of cleaning variable m */ | |||
| 15953 | /*end of cleanupfrompyobj*/ | |||
| 15954 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 15955 | /*routdebugfailure*/ | |||
| 15956 | } else { | |||
| 15957 | /*routdebugleave*/ | |||
| 15958 | } | |||
| 15959 | CFUNCSMESS("Freeing memory.\n"); | |||
| 15960 | /*freemem*/ | |||
| 15961 | #ifdef F2PY_REPORT_ATEXIT | |||
| 15962 | f2py_stop_clock(); | |||
| 15963 | #endif | |||
| 15964 | return capi_buildvalue; | |||
| 15965 | } | |||
| 15966 | /**************************** end of dgelsy_lwork ****************************/ | |||
| 15967 | ||||
| 15968 | /*********************************** cgelsy ***********************************/ | |||
| 15969 | static char doc_f2py_rout__flapack_cgelsy[] = "\ | |||
| 15970 | v,x,j,rank,info = cgelsy(a,b,jptv,cond,lwork,[overwrite_a,overwrite_b])\n\nWrapper for ``cgelsy``.\ | |||
| 15971 | \n\nParameters\n----------\n" | |||
| 15972 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 15973 | "b : input rank-2 array('F') with bounds (maxmn,nrhs)\n" | |||
| 15974 | "jptv : input rank-1 array('i') with bounds (n)\n" | |||
| 15975 | "cond : input float\n" | |||
| 15976 | "lwork : input int\n" | |||
| 15977 | "\nOther Parameters\n----------------\n" | |||
| 15978 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 15979 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 15980 | "\nReturns\n-------\n" | |||
| 15981 | "v : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 15982 | "x : rank-2 array('F') with bounds (maxmn,nrhs) and b storage\n" | |||
| 15983 | "j : rank-1 array('i') with bounds (n) and jptv storage\n" | |||
| 15984 | "rank : int\n" | |||
| 15985 | "info : int"; | |||
| 15986 | /* extern void F_FUNC(cgelsy,CGELSY)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 15987 | static PyObject *f2py_rout__flapack_cgelsy(const PyObject *capi_self, | |||
| 15988 | PyObject *capi_args, | |||
| 15989 | PyObject *capi_keywds, | |||
| 15990 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 15991 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 15992 | volatile int f2py_success = 1; | |||
| 15993 | /*decl*/ | |||
| 15994 | ||||
| 15995 | int m = 0; | |||
| 15996 | int n = 0; | |||
| 15997 | int maxmn = 0; | |||
| 15998 | int minmn = 0; | |||
| 15999 | int nrhs = 0; | |||
| 16000 | complex_float *a = NULL((void*)0); | |||
| 16001 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 16002 | const int a_Rank = 2; | |||
| 16003 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 16004 | int capi_a_intent = 0; | |||
| 16005 | int capi_overwrite_a = 0; | |||
| 16006 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 16007 | complex_float *b = NULL((void*)0); | |||
| 16008 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 16009 | const int b_Rank = 2; | |||
| 16010 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 16011 | int capi_b_intent = 0; | |||
| 16012 | int capi_overwrite_b = 0; | |||
| 16013 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 16014 | int *jptv = NULL((void*)0); | |||
| 16015 | npy_intp jptv_Dims[1] = {-1}; | |||
| 16016 | const int jptv_Rank = 1; | |||
| 16017 | PyArrayObject *capi_jptv_tmp = NULL((void*)0); | |||
| 16018 | int capi_jptv_intent = 0; | |||
| 16019 | PyObject *jptv_capi = Py_None(&_Py_NoneStruct); | |||
| 16020 | float cond = 0; | |||
| 16021 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 16022 | int r = 0; | |||
| 16023 | complex_float *work = NULL((void*)0); | |||
| 16024 | npy_intp work_Dims[1] = {-1}; | |||
| 16025 | const int work_Rank = 1; | |||
| 16026 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 16027 | int capi_work_intent = 0; | |||
| 16028 | int lwork = 0; | |||
| 16029 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 16030 | float *rwork = NULL((void*)0); | |||
| 16031 | npy_intp rwork_Dims[1] = {-1}; | |||
| 16032 | const int rwork_Rank = 1; | |||
| 16033 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 16034 | int capi_rwork_intent = 0; | |||
| 16035 | int info = 0; | |||
| 16036 | static char *capi_kwlist[] = {"a","b","jptv","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 16037 | ||||
| 16038 | /*routdebugenter*/ | |||
| 16039 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16040 | f2py_start_clock(); | |||
| 16041 | #endif | |||
| 16042 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 16043 | "OOOOO|ii:_flapack.cgelsy",\ | |||
| 16044 | capi_kwlist,&a_capi,&b_capi,&jptv_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 16045 | return NULL((void*)0); | |||
| 16046 | /*frompyobj*/ | |||
| 16047 | /* Processing variable a */ | |||
| 16048 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 16049 | ; | |||
| 16050 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 16051 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 16052 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 16053 | if (!PyErr_Occurred()) | |||
| 16054 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgelsy to C/Fortran array" ); | |||
| 16055 | } else { | |||
| 16056 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 16057 | ||||
| 16058 | /* Processing variable cond */ | |||
| 16059 | f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.cgelsy() 4th argument (cond) can't be converted to float"); | |||
| 16060 | if (f2py_success) { | |||
| 16061 | /* Processing variable r */ | |||
| 16062 | /* Processing variable info */ | |||
| 16063 | /* Processing variable m */ | |||
| 16064 | m = shape(a,0)a_Dims[0]; | |||
| 16065 | /* Processing variable n */ | |||
| 16066 | n = shape(a,1)a_Dims[1]; | |||
| 16067 | /* Processing variable maxmn */ | |||
| 16068 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 16069 | /* Processing variable minmn */ | |||
| 16070 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 16071 | /* Processing variable b */ | |||
| 16072 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 16073 | b_Dims[0]=maxmn; | |||
| 16074 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 16075 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 16076 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 16077 | if (!PyErr_Occurred()) | |||
| 16078 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgelsy to C/Fortran array" ); | |||
| 16079 | } else { | |||
| 16080 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 16081 | ||||
| 16082 | CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"(" "maxmn==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 16083 | /* Processing variable jptv */ | |||
| 16084 | jptv_Dims[0]=n; | |||
| 16085 | capi_jptv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 16086 | capi_jptv_tmp = array_from_pyobj(NPY_INT,jptv_Dims,jptv_Rank,capi_jptv_intent,jptv_capi); | |||
| 16087 | if (capi_jptv_tmp == NULL((void*)0)) { | |||
| 16088 | if (!PyErr_Occurred()) | |||
| 16089 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `jptv' of _flapack.cgelsy to C/Fortran array" ); | |||
| 16090 | } else { | |||
| 16091 | jptv = (int *)(PyArray_DATA(capi_jptv_tmp)((void *)((PyArrayObject_fields *)(capi_jptv_tmp))->data)); | |||
| 16092 | ||||
| 16093 | /* Processing variable rwork */ | |||
| 16094 | rwork_Dims[0]=2 * n; | |||
| 16095 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 16096 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 16097 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 16098 | if (!PyErr_Occurred()) | |||
| 16099 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgelsy to C/Fortran array" ); | |||
| 16100 | } else { | |||
| 16101 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 16102 | ||||
| 16103 | /* Processing variable nrhs */ | |||
| 16104 | nrhs = shape(b,1)b_Dims[1]; | |||
| 16105 | /* Processing variable lwork */ | |||
| 16106 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgelsy() 5th argument (lwork) can't be converted to int"); | |||
| 16107 | if (f2py_success) { | |||
| 16108 | CHECKSCALAR(lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs),"lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs)","5th argument lwork","cgelsy:lwork=%d",lwork)if (!(lwork>=minmn+((((2*minmn > n+1) ? (2*minmn) : (n+ 1)) > minmn+nrhs) ? (((2*minmn > n+1) ? (2*minmn) : (n+ 1))) : (minmn+nrhs)))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgelsy:lwork=%d", "(""lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs)" ") failed for ""5th argument lwork", lwork); PyErr_SetString( _flapack_error,errstring); } else { | |||
| 16109 | /* Processing variable work */ | |||
| 16110 | work_Dims[0]=lwork; | |||
| 16111 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 16112 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 16113 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 16114 | if (!PyErr_Occurred()) | |||
| 16115 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgelsy to C/Fortran array" ); | |||
| 16116 | } else { | |||
| 16117 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 16118 | ||||
| 16119 | /*end of frompyobj*/ | |||
| 16120 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16121 | f2py_start_call_clock(); | |||
| 16122 | #endif | |||
| 16123 | /*callfortranroutine*/ | |||
| 16124 | (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,jptv,&cond,&r,work,&lwork,rwork,&info) ; | |||
| 16125 | /*(*f2py_func)(&m,&n,&maxmn,&minmn,&nrhs,a,b,jptv,&cond,&r,work,&lwork,rwork,&info);*/ | |||
| 16126 | if (PyErr_Occurred()) | |||
| 16127 | f2py_success = 0; | |||
| 16128 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16129 | f2py_stop_call_clock(); | |||
| 16130 | #endif | |||
| 16131 | /*end of callfortranroutine*/ | |||
| 16132 | if (f2py_success) { | |||
| 16133 | /*pyobjfrom*/ | |||
| 16134 | /*end of pyobjfrom*/ | |||
| 16135 | CFUNCSMESS("Building return value.\n"); | |||
| 16136 | capi_buildvalue = Py_BuildValue("NNNii",capi_a_tmp,capi_b_tmp,capi_jptv_tmp,r,info); | |||
| 16137 | /*closepyobjfrom*/ | |||
| 16138 | /*end of closepyobjfrom*/ | |||
| 16139 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 16140 | /*cleanupfrompyobj*/ | |||
| 16141 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 16142 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 16143 | /* End of cleaning variable work */ | |||
| 16144 | } /*CHECKSCALAR(lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs))*/ | |||
| 16145 | } /*if (f2py_success) of lwork*/ | |||
| 16146 | /* End of cleaning variable lwork */ | |||
| 16147 | /* End of cleaning variable nrhs */ | |||
| 16148 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 16149 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 16150 | /* End of cleaning variable rwork */ | |||
| 16151 | } /*if (capi_jptv_tmp == NULL) ... else of jptv*/ | |||
| 16152 | /* End of cleaning variable jptv */ | |||
| 16153 | } /*CHECKARRAY(maxmn==shape(b,0))*/ | |||
| 16154 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 16155 | /* End of cleaning variable b */ | |||
| 16156 | /* End of cleaning variable minmn */ | |||
| 16157 | /* End of cleaning variable maxmn */ | |||
| 16158 | /* End of cleaning variable n */ | |||
| 16159 | /* End of cleaning variable m */ | |||
| 16160 | /* End of cleaning variable info */ | |||
| 16161 | /* End of cleaning variable r */ | |||
| 16162 | } /*if (f2py_success) of cond*/ | |||
| 16163 | /* End of cleaning variable cond */ | |||
| 16164 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 16165 | /* End of cleaning variable a */ | |||
| 16166 | /*end of cleanupfrompyobj*/ | |||
| 16167 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 16168 | /*routdebugfailure*/ | |||
| 16169 | } else { | |||
| 16170 | /*routdebugleave*/ | |||
| 16171 | } | |||
| 16172 | CFUNCSMESS("Freeing memory.\n"); | |||
| 16173 | /*freemem*/ | |||
| 16174 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16175 | f2py_stop_clock(); | |||
| 16176 | #endif | |||
| 16177 | return capi_buildvalue; | |||
| 16178 | } | |||
| 16179 | /******************************* end of cgelsy *******************************/ | |||
| 16180 | ||||
| 16181 | /*********************************** zgelsy ***********************************/ | |||
| 16182 | static char doc_f2py_rout__flapack_zgelsy[] = "\ | |||
| 16183 | v,x,j,rank,info = zgelsy(a,b,jptv,cond,lwork,[overwrite_a,overwrite_b])\n\nWrapper for ``zgelsy``.\ | |||
| 16184 | \n\nParameters\n----------\n" | |||
| 16185 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 16186 | "b : input rank-2 array('D') with bounds (maxmn,nrhs)\n" | |||
| 16187 | "jptv : input rank-1 array('i') with bounds (n)\n" | |||
| 16188 | "cond : input float\n" | |||
| 16189 | "lwork : input int\n" | |||
| 16190 | "\nOther Parameters\n----------------\n" | |||
| 16191 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 16192 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 16193 | "\nReturns\n-------\n" | |||
| 16194 | "v : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 16195 | "x : rank-2 array('D') with bounds (maxmn,nrhs) and b storage\n" | |||
| 16196 | "j : rank-1 array('i') with bounds (n) and jptv storage\n" | |||
| 16197 | "rank : int\n" | |||
| 16198 | "info : int"; | |||
| 16199 | /* extern void F_FUNC(zgelsy,ZGELSY)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 16200 | static PyObject *f2py_rout__flapack_zgelsy(const PyObject *capi_self, | |||
| 16201 | PyObject *capi_args, | |||
| 16202 | PyObject *capi_keywds, | |||
| 16203 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 16204 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 16205 | volatile int f2py_success = 1; | |||
| 16206 | /*decl*/ | |||
| 16207 | ||||
| 16208 | int m = 0; | |||
| 16209 | int n = 0; | |||
| 16210 | int maxmn = 0; | |||
| 16211 | int minmn = 0; | |||
| 16212 | int nrhs = 0; | |||
| 16213 | complex_double *a = NULL((void*)0); | |||
| 16214 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 16215 | const int a_Rank = 2; | |||
| 16216 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 16217 | int capi_a_intent = 0; | |||
| 16218 | int capi_overwrite_a = 0; | |||
| 16219 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 16220 | complex_double *b = NULL((void*)0); | |||
| 16221 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 16222 | const int b_Rank = 2; | |||
| 16223 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 16224 | int capi_b_intent = 0; | |||
| 16225 | int capi_overwrite_b = 0; | |||
| 16226 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 16227 | int *jptv = NULL((void*)0); | |||
| 16228 | npy_intp jptv_Dims[1] = {-1}; | |||
| 16229 | const int jptv_Rank = 1; | |||
| 16230 | PyArrayObject *capi_jptv_tmp = NULL((void*)0); | |||
| 16231 | int capi_jptv_intent = 0; | |||
| 16232 | PyObject *jptv_capi = Py_None(&_Py_NoneStruct); | |||
| 16233 | double cond = 0; | |||
| 16234 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 16235 | int r = 0; | |||
| 16236 | complex_double *work = NULL((void*)0); | |||
| 16237 | npy_intp work_Dims[1] = {-1}; | |||
| 16238 | const int work_Rank = 1; | |||
| 16239 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 16240 | int capi_work_intent = 0; | |||
| 16241 | int lwork = 0; | |||
| 16242 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 16243 | double *rwork = NULL((void*)0); | |||
| 16244 | npy_intp rwork_Dims[1] = {-1}; | |||
| 16245 | const int rwork_Rank = 1; | |||
| 16246 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 16247 | int capi_rwork_intent = 0; | |||
| 16248 | int info = 0; | |||
| 16249 | static char *capi_kwlist[] = {"a","b","jptv","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 16250 | ||||
| 16251 | /*routdebugenter*/ | |||
| 16252 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16253 | f2py_start_clock(); | |||
| 16254 | #endif | |||
| 16255 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 16256 | "OOOOO|ii:_flapack.zgelsy",\ | |||
| 16257 | capi_kwlist,&a_capi,&b_capi,&jptv_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 16258 | return NULL((void*)0); | |||
| 16259 | /*frompyobj*/ | |||
| 16260 | /* Processing variable a */ | |||
| 16261 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 16262 | ; | |||
| 16263 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 16264 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 16265 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 16266 | if (!PyErr_Occurred()) | |||
| 16267 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgelsy to C/Fortran array" ); | |||
| 16268 | } else { | |||
| 16269 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 16270 | ||||
| 16271 | /* Processing variable cond */ | |||
| 16272 | f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.zgelsy() 4th argument (cond) can't be converted to double"); | |||
| 16273 | if (f2py_success) { | |||
| 16274 | /* Processing variable r */ | |||
| 16275 | /* Processing variable info */ | |||
| 16276 | /* Processing variable m */ | |||
| 16277 | m = shape(a,0)a_Dims[0]; | |||
| 16278 | /* Processing variable n */ | |||
| 16279 | n = shape(a,1)a_Dims[1]; | |||
| 16280 | /* Processing variable maxmn */ | |||
| 16281 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 16282 | /* Processing variable minmn */ | |||
| 16283 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 16284 | /* Processing variable b */ | |||
| 16285 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 16286 | b_Dims[0]=maxmn; | |||
| 16287 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 16288 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 16289 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 16290 | if (!PyErr_Occurred()) | |||
| 16291 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgelsy to C/Fortran array" ); | |||
| 16292 | } else { | |||
| 16293 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 16294 | ||||
| 16295 | CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"(" "maxmn==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 16296 | /* Processing variable jptv */ | |||
| 16297 | jptv_Dims[0]=n; | |||
| 16298 | capi_jptv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 16299 | capi_jptv_tmp = array_from_pyobj(NPY_INT,jptv_Dims,jptv_Rank,capi_jptv_intent,jptv_capi); | |||
| 16300 | if (capi_jptv_tmp == NULL((void*)0)) { | |||
| 16301 | if (!PyErr_Occurred()) | |||
| 16302 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `jptv' of _flapack.zgelsy to C/Fortran array" ); | |||
| 16303 | } else { | |||
| 16304 | jptv = (int *)(PyArray_DATA(capi_jptv_tmp)((void *)((PyArrayObject_fields *)(capi_jptv_tmp))->data)); | |||
| 16305 | ||||
| 16306 | /* Processing variable rwork */ | |||
| 16307 | rwork_Dims[0]=2 * n; | |||
| 16308 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 16309 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 16310 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 16311 | if (!PyErr_Occurred()) | |||
| 16312 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgelsy to C/Fortran array" ); | |||
| 16313 | } else { | |||
| 16314 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 16315 | ||||
| 16316 | /* Processing variable nrhs */ | |||
| 16317 | nrhs = shape(b,1)b_Dims[1]; | |||
| 16318 | /* Processing variable lwork */ | |||
| 16319 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgelsy() 5th argument (lwork) can't be converted to int"); | |||
| 16320 | if (f2py_success) { | |||
| 16321 | CHECKSCALAR(lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs),"lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs)","5th argument lwork","zgelsy:lwork=%d",lwork)if (!(lwork>=minmn+((((2*minmn > n+1) ? (2*minmn) : (n+ 1)) > minmn+nrhs) ? (((2*minmn > n+1) ? (2*minmn) : (n+ 1))) : (minmn+nrhs)))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgelsy:lwork=%d", "(""lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs)" ") failed for ""5th argument lwork", lwork); PyErr_SetString( _flapack_error,errstring); } else { | |||
| 16322 | /* Processing variable work */ | |||
| 16323 | work_Dims[0]=lwork; | |||
| 16324 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 16325 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 16326 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 16327 | if (!PyErr_Occurred()) | |||
| 16328 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgelsy to C/Fortran array" ); | |||
| 16329 | } else { | |||
| 16330 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 16331 | ||||
| 16332 | /*end of frompyobj*/ | |||
| 16333 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16334 | f2py_start_call_clock(); | |||
| 16335 | #endif | |||
| 16336 | /*callfortranroutine*/ | |||
| 16337 | (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,jptv,&cond,&r,work,&lwork,rwork,&info) ; | |||
| 16338 | /*(*f2py_func)(&m,&n,&maxmn,&minmn,&nrhs,a,b,jptv,&cond,&r,work,&lwork,rwork,&info);*/ | |||
| 16339 | if (PyErr_Occurred()) | |||
| 16340 | f2py_success = 0; | |||
| 16341 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16342 | f2py_stop_call_clock(); | |||
| 16343 | #endif | |||
| 16344 | /*end of callfortranroutine*/ | |||
| 16345 | if (f2py_success) { | |||
| 16346 | /*pyobjfrom*/ | |||
| 16347 | /*end of pyobjfrom*/ | |||
| 16348 | CFUNCSMESS("Building return value.\n"); | |||
| 16349 | capi_buildvalue = Py_BuildValue("NNNii",capi_a_tmp,capi_b_tmp,capi_jptv_tmp,r,info); | |||
| 16350 | /*closepyobjfrom*/ | |||
| 16351 | /*end of closepyobjfrom*/ | |||
| 16352 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 16353 | /*cleanupfrompyobj*/ | |||
| 16354 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 16355 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 16356 | /* End of cleaning variable work */ | |||
| 16357 | } /*CHECKSCALAR(lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs))*/ | |||
| 16358 | } /*if (f2py_success) of lwork*/ | |||
| 16359 | /* End of cleaning variable lwork */ | |||
| 16360 | /* End of cleaning variable nrhs */ | |||
| 16361 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 16362 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 16363 | /* End of cleaning variable rwork */ | |||
| 16364 | } /*if (capi_jptv_tmp == NULL) ... else of jptv*/ | |||
| 16365 | /* End of cleaning variable jptv */ | |||
| 16366 | } /*CHECKARRAY(maxmn==shape(b,0))*/ | |||
| 16367 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 16368 | /* End of cleaning variable b */ | |||
| 16369 | /* End of cleaning variable minmn */ | |||
| 16370 | /* End of cleaning variable maxmn */ | |||
| 16371 | /* End of cleaning variable n */ | |||
| 16372 | /* End of cleaning variable m */ | |||
| 16373 | /* End of cleaning variable info */ | |||
| 16374 | /* End of cleaning variable r */ | |||
| 16375 | } /*if (f2py_success) of cond*/ | |||
| 16376 | /* End of cleaning variable cond */ | |||
| 16377 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 16378 | /* End of cleaning variable a */ | |||
| 16379 | /*end of cleanupfrompyobj*/ | |||
| 16380 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 16381 | /*routdebugfailure*/ | |||
| 16382 | } else { | |||
| 16383 | /*routdebugleave*/ | |||
| 16384 | } | |||
| 16385 | CFUNCSMESS("Freeing memory.\n"); | |||
| 16386 | /*freemem*/ | |||
| 16387 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16388 | f2py_stop_clock(); | |||
| 16389 | #endif | |||
| 16390 | return capi_buildvalue; | |||
| 16391 | } | |||
| 16392 | /******************************* end of zgelsy *******************************/ | |||
| 16393 | ||||
| 16394 | /******************************** cgelsy_lwork ********************************/ | |||
| 16395 | static char doc_f2py_rout__flapack_cgelsy_lwork[] = "\ | |||
| 16396 | work,info = cgelsy_lwork(m,n,nrhs,cond,[lwork])\n\nWrapper for ``cgelsy_lwork``.\ | |||
| 16397 | \n\nParameters\n----------\n" | |||
| 16398 | "m : input int\n" | |||
| 16399 | "n : input int\n" | |||
| 16400 | "nrhs : input int\n" | |||
| 16401 | "cond : input float\n" | |||
| 16402 | "\nOther Parameters\n----------------\n" | |||
| 16403 | "lwork : input int, optional\n Default: -1\n" | |||
| 16404 | "\nReturns\n-------\n" | |||
| 16405 | "work : complex\n" | |||
| 16406 | "info : int"; | |||
| 16407 | /* extern void F_FUNC(cgelsy ,CGELSY )(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 16408 | static PyObject *f2py_rout__flapack_cgelsy_lwork(const PyObject *capi_self, | |||
| 16409 | PyObject *capi_args, | |||
| 16410 | PyObject *capi_keywds, | |||
| 16411 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 16412 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 16413 | volatile int f2py_success = 1; | |||
| 16414 | /*decl*/ | |||
| 16415 | ||||
| 16416 | int m = 0; | |||
| 16417 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 16418 | int n = 0; | |||
| 16419 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 16420 | int maxmn = 0; | |||
| 16421 | int nrhs = 0; | |||
| 16422 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 16423 | complex_float a; | |||
| 16424 | complex_float b; | |||
| 16425 | int jptv = 0; | |||
| 16426 | float cond = 0; | |||
| 16427 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 16428 | int r = 0; | |||
| 16429 | complex_float work; | |||
| 16430 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 16431 | int lwork = 0; | |||
| 16432 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 16433 | float rwork = 0; | |||
| 16434 | int info = 0; | |||
| 16435 | static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)}; | |||
| 16436 | ||||
| 16437 | /*routdebugenter*/ | |||
| 16438 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16439 | f2py_start_clock(); | |||
| 16440 | #endif | |||
| 16441 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 16442 | "OOOO|O:_flapack.cgelsy_lwork",\ | |||
| 16443 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi)) | |||
| 16444 | return NULL((void*)0); | |||
| 16445 | /*frompyobj*/ | |||
| 16446 | /* Processing variable m */ | |||
| 16447 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgelsy_lwork() 1st argument (m) can't be converted to int"); | |||
| 16448 | if (f2py_success) { | |||
| 16449 | /* Processing variable n */ | |||
| 16450 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgelsy_lwork() 2nd argument (n) can't be converted to int"); | |||
| 16451 | if (f2py_success) { | |||
| 16452 | /* Processing variable a */ | |||
| 16453 | /* Processing variable nrhs */ | |||
| 16454 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.cgelsy_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 16455 | if (f2py_success) { | |||
| 16456 | /* Processing variable b */ | |||
| 16457 | /* Processing variable cond */ | |||
| 16458 | f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.cgelsy_lwork() 4th argument (cond) can't be converted to float"); | |||
| 16459 | if (f2py_success) { | |||
| 16460 | /* Processing variable r */ | |||
| 16461 | /* Processing variable jptv */ | |||
| 16462 | /* Processing variable lwork */ | |||
| 16463 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else | |||
| 16464 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgelsy_lwork() 1st keyword (lwork) can't be converted to int"); | |||
| 16465 | if (f2py_success) { | |||
| 16466 | /* Processing variable work */ | |||
| 16467 | /* Processing variable rwork */ | |||
| 16468 | /* Processing variable info */ | |||
| 16469 | /* Processing variable maxmn */ | |||
| 16470 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 16471 | /*end of frompyobj*/ | |||
| 16472 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16473 | f2py_start_call_clock(); | |||
| 16474 | #endif | |||
| 16475 | /*callfortranroutine*/ | |||
| 16476 | (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&jptv,&cond,&r,&work,&lwork,&rwork,&info) ; | |||
| 16477 | /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&jptv,&cond,&r,&work,&lwork,&rwork,&info);*/ | |||
| 16478 | if (PyErr_Occurred()) | |||
| 16479 | f2py_success = 0; | |||
| 16480 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16481 | f2py_stop_call_clock(); | |||
| 16482 | #endif | |||
| 16483 | /*end of callfortranroutine*/ | |||
| 16484 | if (f2py_success) { | |||
| 16485 | /*pyobjfrom*/ | |||
| 16486 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 16487 | /*end of pyobjfrom*/ | |||
| 16488 | CFUNCSMESS("Building return value.\n"); | |||
| 16489 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 16490 | /*closepyobjfrom*/ | |||
| 16491 | /*end of closepyobjfrom*/ | |||
| 16492 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 16493 | /*cleanupfrompyobj*/ | |||
| 16494 | /* End of cleaning variable maxmn */ | |||
| 16495 | /* End of cleaning variable info */ | |||
| 16496 | /* End of cleaning variable rwork */ | |||
| 16497 | /* End of cleaning variable work */ | |||
| 16498 | } /*if (f2py_success) of lwork*/ | |||
| 16499 | /* End of cleaning variable lwork */ | |||
| 16500 | /* End of cleaning variable jptv */ | |||
| 16501 | /* End of cleaning variable r */ | |||
| 16502 | } /*if (f2py_success) of cond*/ | |||
| 16503 | /* End of cleaning variable cond */ | |||
| 16504 | /* End of cleaning variable b */ | |||
| 16505 | } /*if (f2py_success) of nrhs*/ | |||
| 16506 | /* End of cleaning variable nrhs */ | |||
| 16507 | /* End of cleaning variable a */ | |||
| 16508 | } /*if (f2py_success) of n*/ | |||
| 16509 | /* End of cleaning variable n */ | |||
| 16510 | } /*if (f2py_success) of m*/ | |||
| 16511 | /* End of cleaning variable m */ | |||
| 16512 | /*end of cleanupfrompyobj*/ | |||
| 16513 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 16514 | /*routdebugfailure*/ | |||
| 16515 | } else { | |||
| 16516 | /*routdebugleave*/ | |||
| 16517 | } | |||
| 16518 | CFUNCSMESS("Freeing memory.\n"); | |||
| 16519 | /*freemem*/ | |||
| 16520 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16521 | f2py_stop_clock(); | |||
| 16522 | #endif | |||
| 16523 | return capi_buildvalue; | |||
| 16524 | } | |||
| 16525 | /**************************** end of cgelsy_lwork ****************************/ | |||
| 16526 | ||||
| 16527 | /******************************** zgelsy_lwork ********************************/ | |||
| 16528 | static char doc_f2py_rout__flapack_zgelsy_lwork[] = "\ | |||
| 16529 | work,info = zgelsy_lwork(m,n,nrhs,cond,[lwork])\n\nWrapper for ``zgelsy_lwork``.\ | |||
| 16530 | \n\nParameters\n----------\n" | |||
| 16531 | "m : input int\n" | |||
| 16532 | "n : input int\n" | |||
| 16533 | "nrhs : input int\n" | |||
| 16534 | "cond : input float\n" | |||
| 16535 | "\nOther Parameters\n----------------\n" | |||
| 16536 | "lwork : input int, optional\n Default: -1\n" | |||
| 16537 | "\nReturns\n-------\n" | |||
| 16538 | "work : complex\n" | |||
| 16539 | "info : int"; | |||
| 16540 | /* extern void F_FUNC(zgelsy ,ZGELSY )(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 16541 | static PyObject *f2py_rout__flapack_zgelsy_lwork(const PyObject *capi_self, | |||
| 16542 | PyObject *capi_args, | |||
| 16543 | PyObject *capi_keywds, | |||
| 16544 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 16545 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 16546 | volatile int f2py_success = 1; | |||
| 16547 | /*decl*/ | |||
| 16548 | ||||
| 16549 | int m = 0; | |||
| 16550 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 16551 | int n = 0; | |||
| 16552 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 16553 | int maxmn = 0; | |||
| 16554 | int nrhs = 0; | |||
| 16555 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 16556 | complex_double a; | |||
| 16557 | complex_double b; | |||
| 16558 | int jptv = 0; | |||
| 16559 | double cond = 0; | |||
| 16560 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 16561 | int r = 0; | |||
| 16562 | complex_double work; | |||
| 16563 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 16564 | int lwork = 0; | |||
| 16565 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 16566 | double rwork = 0; | |||
| 16567 | int info = 0; | |||
| 16568 | static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)}; | |||
| 16569 | ||||
| 16570 | /*routdebugenter*/ | |||
| 16571 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16572 | f2py_start_clock(); | |||
| 16573 | #endif | |||
| 16574 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 16575 | "OOOO|O:_flapack.zgelsy_lwork",\ | |||
| 16576 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi)) | |||
| 16577 | return NULL((void*)0); | |||
| 16578 | /*frompyobj*/ | |||
| 16579 | /* Processing variable m */ | |||
| 16580 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgelsy_lwork() 1st argument (m) can't be converted to int"); | |||
| 16581 | if (f2py_success) { | |||
| 16582 | /* Processing variable n */ | |||
| 16583 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgelsy_lwork() 2nd argument (n) can't be converted to int"); | |||
| 16584 | if (f2py_success) { | |||
| 16585 | /* Processing variable a */ | |||
| 16586 | /* Processing variable nrhs */ | |||
| 16587 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.zgelsy_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 16588 | if (f2py_success) { | |||
| 16589 | /* Processing variable b */ | |||
| 16590 | /* Processing variable cond */ | |||
| 16591 | f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.zgelsy_lwork() 4th argument (cond) can't be converted to double"); | |||
| 16592 | if (f2py_success) { | |||
| 16593 | /* Processing variable r */ | |||
| 16594 | /* Processing variable jptv */ | |||
| 16595 | /* Processing variable lwork */ | |||
| 16596 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else | |||
| 16597 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgelsy_lwork() 1st keyword (lwork) can't be converted to int"); | |||
| 16598 | if (f2py_success) { | |||
| 16599 | /* Processing variable work */ | |||
| 16600 | /* Processing variable rwork */ | |||
| 16601 | /* Processing variable info */ | |||
| 16602 | /* Processing variable maxmn */ | |||
| 16603 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 16604 | /*end of frompyobj*/ | |||
| 16605 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16606 | f2py_start_call_clock(); | |||
| 16607 | #endif | |||
| 16608 | /*callfortranroutine*/ | |||
| 16609 | (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&jptv,&cond,&r,&work,&lwork,&rwork,&info) ; | |||
| 16610 | /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&jptv,&cond,&r,&work,&lwork,&rwork,&info);*/ | |||
| 16611 | if (PyErr_Occurred()) | |||
| 16612 | f2py_success = 0; | |||
| 16613 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16614 | f2py_stop_call_clock(); | |||
| 16615 | #endif | |||
| 16616 | /*end of callfortranroutine*/ | |||
| 16617 | if (f2py_success) { | |||
| 16618 | /*pyobjfrom*/ | |||
| 16619 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 16620 | /*end of pyobjfrom*/ | |||
| 16621 | CFUNCSMESS("Building return value.\n"); | |||
| 16622 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 16623 | /*closepyobjfrom*/ | |||
| 16624 | /*end of closepyobjfrom*/ | |||
| 16625 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 16626 | /*cleanupfrompyobj*/ | |||
| 16627 | /* End of cleaning variable maxmn */ | |||
| 16628 | /* End of cleaning variable info */ | |||
| 16629 | /* End of cleaning variable rwork */ | |||
| 16630 | /* End of cleaning variable work */ | |||
| 16631 | } /*if (f2py_success) of lwork*/ | |||
| 16632 | /* End of cleaning variable lwork */ | |||
| 16633 | /* End of cleaning variable jptv */ | |||
| 16634 | /* End of cleaning variable r */ | |||
| 16635 | } /*if (f2py_success) of cond*/ | |||
| 16636 | /* End of cleaning variable cond */ | |||
| 16637 | /* End of cleaning variable b */ | |||
| 16638 | } /*if (f2py_success) of nrhs*/ | |||
| 16639 | /* End of cleaning variable nrhs */ | |||
| 16640 | /* End of cleaning variable a */ | |||
| 16641 | } /*if (f2py_success) of n*/ | |||
| 16642 | /* End of cleaning variable n */ | |||
| 16643 | } /*if (f2py_success) of m*/ | |||
| 16644 | /* End of cleaning variable m */ | |||
| 16645 | /*end of cleanupfrompyobj*/ | |||
| 16646 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 16647 | /*routdebugfailure*/ | |||
| 16648 | } else { | |||
| 16649 | /*routdebugleave*/ | |||
| 16650 | } | |||
| 16651 | CFUNCSMESS("Freeing memory.\n"); | |||
| 16652 | /*freemem*/ | |||
| 16653 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16654 | f2py_stop_clock(); | |||
| 16655 | #endif | |||
| 16656 | return capi_buildvalue; | |||
| 16657 | } | |||
| 16658 | /**************************** end of zgelsy_lwork ****************************/ | |||
| 16659 | ||||
| 16660 | /*********************************** sgelsd ***********************************/ | |||
| 16661 | static char doc_f2py_rout__flapack_sgelsd[] = "\ | |||
| 16662 | x,s,rank,info = sgelsd(a,b,lwork,size_iwork,[cond,overwrite_a,overwrite_b])\n\nWrapper for ``sgelsd``.\ | |||
| 16663 | \n\nParameters\n----------\n" | |||
| 16664 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 16665 | "b : input rank-2 array('f') with bounds (maxmn,nrhs)\n" | |||
| 16666 | "lwork : input int\n" | |||
| 16667 | "size_iwork : input int\n" | |||
| 16668 | "\nOther Parameters\n----------------\n" | |||
| 16669 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 16670 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 16671 | "cond : input float, optional\n Default: -1.0\n" | |||
| 16672 | "\nReturns\n-------\n" | |||
| 16673 | "x : rank-2 array('f') with bounds (maxmn,nrhs) and b storage\n" | |||
| 16674 | "s : rank-1 array('f') with bounds (minmn)\n" | |||
| 16675 | "rank : int\n" | |||
| 16676 | "info : int"; | |||
| 16677 | /* extern void F_FUNC(sgelsd,SGELSD)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 16678 | static PyObject *f2py_rout__flapack_sgelsd(const PyObject *capi_self, | |||
| 16679 | PyObject *capi_args, | |||
| 16680 | PyObject *capi_keywds, | |||
| 16681 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 16682 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 16683 | volatile int f2py_success = 1; | |||
| 16684 | /*decl*/ | |||
| 16685 | ||||
| 16686 | int m = 0; | |||
| 16687 | int n = 0; | |||
| 16688 | int minmn = 0; | |||
| 16689 | int maxmn = 0; | |||
| 16690 | int nrhs = 0; | |||
| 16691 | float *a = NULL((void*)0); | |||
| 16692 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 16693 | const int a_Rank = 2; | |||
| 16694 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 16695 | int capi_a_intent = 0; | |||
| 16696 | int capi_overwrite_a = 0; | |||
| 16697 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 16698 | float *b = NULL((void*)0); | |||
| 16699 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 16700 | const int b_Rank = 2; | |||
| 16701 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 16702 | int capi_b_intent = 0; | |||
| 16703 | int capi_overwrite_b = 0; | |||
| 16704 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 16705 | float *s = NULL((void*)0); | |||
| 16706 | npy_intp s_Dims[1] = {-1}; | |||
| 16707 | const int s_Rank = 1; | |||
| 16708 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 16709 | int capi_s_intent = 0; | |||
| 16710 | float cond = 0; | |||
| 16711 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 16712 | int r = 0; | |||
| 16713 | float *work = NULL((void*)0); | |||
| 16714 | npy_intp work_Dims[1] = {-1}; | |||
| 16715 | const int work_Rank = 1; | |||
| 16716 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 16717 | int capi_work_intent = 0; | |||
| 16718 | int lwork = 0; | |||
| 16719 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 16720 | int size_iwork = 0; | |||
| 16721 | PyObject *size_iwork_capi = Py_None(&_Py_NoneStruct); | |||
| 16722 | int *iwork = NULL((void*)0); | |||
| 16723 | npy_intp iwork_Dims[1] = {-1}; | |||
| 16724 | const int iwork_Rank = 1; | |||
| 16725 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 16726 | int capi_iwork_intent = 0; | |||
| 16727 | int info = 0; | |||
| 16728 | static char *capi_kwlist[] = {"a","b","lwork","size_iwork","cond","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 16729 | ||||
| 16730 | /*routdebugenter*/ | |||
| 16731 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16732 | f2py_start_clock(); | |||
| 16733 | #endif | |||
| 16734 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 16735 | "OOOO|Oii:_flapack.sgelsd",\ | |||
| 16736 | capi_kwlist,&a_capi,&b_capi,&lwork_capi,&size_iwork_capi,&cond_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 16737 | return NULL((void*)0); | |||
| 16738 | /*frompyobj*/ | |||
| 16739 | /* Processing variable a */ | |||
| 16740 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 16741 | ; | |||
| 16742 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 16743 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 16744 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 16745 | if (!PyErr_Occurred()) | |||
| 16746 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgelsd to C/Fortran array" ); | |||
| 16747 | } else { | |||
| 16748 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 16749 | ||||
| 16750 | /* Processing variable cond */ | |||
| 16751 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 16752 | f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.sgelsd() 1st keyword (cond) can't be converted to float"); | |||
| 16753 | if (f2py_success) { | |||
| 16754 | /* Processing variable r */ | |||
| 16755 | /* Processing variable lwork */ | |||
| 16756 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgelsd() 3rd argument (lwork) can't be converted to int"); | |||
| 16757 | if (f2py_success) { | |||
| 16758 | CHECKSCALAR(lwork>=1,"lwork>=1","3rd argument lwork","sgelsd:lwork=%d",lwork)if (!(lwork>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgelsd:lwork=%d", "(""lwork>=1"") failed for ""3rd argument lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 16759 | /* Processing variable size_iwork */ | |||
| 16760 | f2py_success = int_from_pyobj(&size_iwork,size_iwork_capi,"_flapack.sgelsd() 4th argument (size_iwork) can't be converted to int"); | |||
| 16761 | if (f2py_success) { | |||
| 16762 | /* Processing variable info */ | |||
| 16763 | /* Processing variable m */ | |||
| 16764 | m = shape(a,0)a_Dims[0]; | |||
| 16765 | /* Processing variable n */ | |||
| 16766 | n = shape(a,1)a_Dims[1]; | |||
| 16767 | /* Processing variable minmn */ | |||
| 16768 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 16769 | /* Processing variable maxmn */ | |||
| 16770 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 16771 | /* Processing variable b */ | |||
| 16772 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 16773 | b_Dims[0]=maxmn; | |||
| 16774 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 16775 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 16776 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 16777 | if (!PyErr_Occurred()) | |||
| 16778 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgelsd to C/Fortran array" ); | |||
| 16779 | } else { | |||
| 16780 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 16781 | ||||
| 16782 | CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"(" "maxmn==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 16783 | /* Processing variable s */ | |||
| 16784 | s_Dims[0]=minmn; | |||
| 16785 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 16786 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 16787 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 16788 | if (!PyErr_Occurred()) | |||
| 16789 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.sgelsd to C/Fortran array" ); | |||
| 16790 | } else { | |||
| 16791 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 16792 | ||||
| 16793 | /* Processing variable work */ | |||
| 16794 | work_Dims[0]=lwork; | |||
| 16795 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 16796 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 16797 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 16798 | if (!PyErr_Occurred()) | |||
| 16799 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgelsd to C/Fortran array" ); | |||
| 16800 | } else { | |||
| 16801 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 16802 | ||||
| 16803 | /* Processing variable iwork */ | |||
| 16804 | iwork_Dims[0]=MAX(1,size_iwork)((1 > size_iwork) ? (1) : (size_iwork)); | |||
| 16805 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 16806 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 16807 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 16808 | if (!PyErr_Occurred()) | |||
| 16809 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sgelsd to C/Fortran array" ); | |||
| 16810 | } else { | |||
| 16811 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 16812 | ||||
| 16813 | /* Processing variable nrhs */ | |||
| 16814 | nrhs = shape(b,1)b_Dims[1]; | |||
| 16815 | /*end of frompyobj*/ | |||
| 16816 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16817 | f2py_start_call_clock(); | |||
| 16818 | #endif | |||
| 16819 | /*callfortranroutine*/ | |||
| 16820 | (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork,iwork,&info) ; | |||
| 16821 | /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,&lwork,&size_iwork,iwork,&info);*/ | |||
| 16822 | if (PyErr_Occurred()) | |||
| 16823 | f2py_success = 0; | |||
| 16824 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16825 | f2py_stop_call_clock(); | |||
| 16826 | #endif | |||
| 16827 | /*end of callfortranroutine*/ | |||
| 16828 | if (f2py_success) { | |||
| 16829 | /*pyobjfrom*/ | |||
| 16830 | /*end of pyobjfrom*/ | |||
| 16831 | CFUNCSMESS("Building return value.\n"); | |||
| 16832 | capi_buildvalue = Py_BuildValue("NNii",capi_b_tmp,capi_s_tmp,r,info); | |||
| 16833 | /*closepyobjfrom*/ | |||
| 16834 | /*end of closepyobjfrom*/ | |||
| 16835 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 16836 | /*cleanupfrompyobj*/ | |||
| 16837 | /* End of cleaning variable nrhs */ | |||
| 16838 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 16839 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 16840 | /* End of cleaning variable iwork */ | |||
| 16841 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 16842 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 16843 | /* End of cleaning variable work */ | |||
| 16844 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 16845 | /* End of cleaning variable s */ | |||
| 16846 | } /*CHECKARRAY(maxmn==shape(b,0))*/ | |||
| 16847 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 16848 | /* End of cleaning variable b */ | |||
| 16849 | /* End of cleaning variable maxmn */ | |||
| 16850 | /* End of cleaning variable minmn */ | |||
| 16851 | /* End of cleaning variable n */ | |||
| 16852 | /* End of cleaning variable m */ | |||
| 16853 | /* End of cleaning variable info */ | |||
| 16854 | } /*if (f2py_success) of size_iwork*/ | |||
| 16855 | /* End of cleaning variable size_iwork */ | |||
| 16856 | } /*CHECKSCALAR(lwork>=1)*/ | |||
| 16857 | } /*if (f2py_success) of lwork*/ | |||
| 16858 | /* End of cleaning variable lwork */ | |||
| 16859 | /* End of cleaning variable r */ | |||
| 16860 | } /*if (f2py_success) of cond*/ | |||
| 16861 | /* End of cleaning variable cond */ | |||
| 16862 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 16863 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 16864 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 16865 | /* End of cleaning variable a */ | |||
| 16866 | /*end of cleanupfrompyobj*/ | |||
| 16867 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 16868 | /*routdebugfailure*/ | |||
| 16869 | } else { | |||
| 16870 | /*routdebugleave*/ | |||
| 16871 | } | |||
| 16872 | CFUNCSMESS("Freeing memory.\n"); | |||
| 16873 | /*freemem*/ | |||
| 16874 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16875 | f2py_stop_clock(); | |||
| 16876 | #endif | |||
| 16877 | return capi_buildvalue; | |||
| 16878 | } | |||
| 16879 | /******************************* end of sgelsd *******************************/ | |||
| 16880 | ||||
| 16881 | /*********************************** dgelsd ***********************************/ | |||
| 16882 | static char doc_f2py_rout__flapack_dgelsd[] = "\ | |||
| 16883 | x,s,rank,info = dgelsd(a,b,lwork,size_iwork,[cond,overwrite_a,overwrite_b])\n\nWrapper for ``dgelsd``.\ | |||
| 16884 | \n\nParameters\n----------\n" | |||
| 16885 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 16886 | "b : input rank-2 array('d') with bounds (maxmn,nrhs)\n" | |||
| 16887 | "lwork : input int\n" | |||
| 16888 | "size_iwork : input int\n" | |||
| 16889 | "\nOther Parameters\n----------------\n" | |||
| 16890 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 16891 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 16892 | "cond : input float, optional\n Default: -1.0\n" | |||
| 16893 | "\nReturns\n-------\n" | |||
| 16894 | "x : rank-2 array('d') with bounds (maxmn,nrhs) and b storage\n" | |||
| 16895 | "s : rank-1 array('d') with bounds (minmn)\n" | |||
| 16896 | "rank : int\n" | |||
| 16897 | "info : int"; | |||
| 16898 | /* extern void F_FUNC(dgelsd,DGELSD)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 16899 | static PyObject *f2py_rout__flapack_dgelsd(const PyObject *capi_self, | |||
| 16900 | PyObject *capi_args, | |||
| 16901 | PyObject *capi_keywds, | |||
| 16902 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 16903 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 16904 | volatile int f2py_success = 1; | |||
| 16905 | /*decl*/ | |||
| 16906 | ||||
| 16907 | int m = 0; | |||
| 16908 | int n = 0; | |||
| 16909 | int minmn = 0; | |||
| 16910 | int maxmn = 0; | |||
| 16911 | int nrhs = 0; | |||
| 16912 | double *a = NULL((void*)0); | |||
| 16913 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 16914 | const int a_Rank = 2; | |||
| 16915 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 16916 | int capi_a_intent = 0; | |||
| 16917 | int capi_overwrite_a = 0; | |||
| 16918 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 16919 | double *b = NULL((void*)0); | |||
| 16920 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 16921 | const int b_Rank = 2; | |||
| 16922 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 16923 | int capi_b_intent = 0; | |||
| 16924 | int capi_overwrite_b = 0; | |||
| 16925 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 16926 | double *s = NULL((void*)0); | |||
| 16927 | npy_intp s_Dims[1] = {-1}; | |||
| 16928 | const int s_Rank = 1; | |||
| 16929 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 16930 | int capi_s_intent = 0; | |||
| 16931 | double cond = 0; | |||
| 16932 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 16933 | int r = 0; | |||
| 16934 | double *work = NULL((void*)0); | |||
| 16935 | npy_intp work_Dims[1] = {-1}; | |||
| 16936 | const int work_Rank = 1; | |||
| 16937 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 16938 | int capi_work_intent = 0; | |||
| 16939 | int lwork = 0; | |||
| 16940 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 16941 | int size_iwork = 0; | |||
| 16942 | PyObject *size_iwork_capi = Py_None(&_Py_NoneStruct); | |||
| 16943 | int *iwork = NULL((void*)0); | |||
| 16944 | npy_intp iwork_Dims[1] = {-1}; | |||
| 16945 | const int iwork_Rank = 1; | |||
| 16946 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 16947 | int capi_iwork_intent = 0; | |||
| 16948 | int info = 0; | |||
| 16949 | static char *capi_kwlist[] = {"a","b","lwork","size_iwork","cond","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 16950 | ||||
| 16951 | /*routdebugenter*/ | |||
| 16952 | #ifdef F2PY_REPORT_ATEXIT | |||
| 16953 | f2py_start_clock(); | |||
| 16954 | #endif | |||
| 16955 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 16956 | "OOOO|Oii:_flapack.dgelsd",\ | |||
| 16957 | capi_kwlist,&a_capi,&b_capi,&lwork_capi,&size_iwork_capi,&cond_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 16958 | return NULL((void*)0); | |||
| 16959 | /*frompyobj*/ | |||
| 16960 | /* Processing variable a */ | |||
| 16961 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 16962 | ; | |||
| 16963 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 16964 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 16965 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 16966 | if (!PyErr_Occurred()) | |||
| 16967 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgelsd to C/Fortran array" ); | |||
| 16968 | } else { | |||
| 16969 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 16970 | ||||
| 16971 | /* Processing variable cond */ | |||
| 16972 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 16973 | f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.dgelsd() 1st keyword (cond) can't be converted to double"); | |||
| 16974 | if (f2py_success) { | |||
| 16975 | /* Processing variable r */ | |||
| 16976 | /* Processing variable lwork */ | |||
| 16977 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgelsd() 3rd argument (lwork) can't be converted to int"); | |||
| 16978 | if (f2py_success) { | |||
| 16979 | CHECKSCALAR(lwork>=1,"lwork>=1","3rd argument lwork","dgelsd:lwork=%d",lwork)if (!(lwork>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgelsd:lwork=%d", "(""lwork>=1"") failed for ""3rd argument lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 16980 | /* Processing variable size_iwork */ | |||
| 16981 | f2py_success = int_from_pyobj(&size_iwork,size_iwork_capi,"_flapack.dgelsd() 4th argument (size_iwork) can't be converted to int"); | |||
| 16982 | if (f2py_success) { | |||
| 16983 | /* Processing variable info */ | |||
| 16984 | /* Processing variable m */ | |||
| 16985 | m = shape(a,0)a_Dims[0]; | |||
| 16986 | /* Processing variable n */ | |||
| 16987 | n = shape(a,1)a_Dims[1]; | |||
| 16988 | /* Processing variable minmn */ | |||
| 16989 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 16990 | /* Processing variable maxmn */ | |||
| 16991 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 16992 | /* Processing variable b */ | |||
| 16993 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 16994 | b_Dims[0]=maxmn; | |||
| 16995 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 16996 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 16997 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 16998 | if (!PyErr_Occurred()) | |||
| 16999 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgelsd to C/Fortran array" ); | |||
| 17000 | } else { | |||
| 17001 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 17002 | ||||
| 17003 | CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"(" "maxmn==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 17004 | /* Processing variable s */ | |||
| 17005 | s_Dims[0]=minmn; | |||
| 17006 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 17007 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 17008 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 17009 | if (!PyErr_Occurred()) | |||
| 17010 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.dgelsd to C/Fortran array" ); | |||
| 17011 | } else { | |||
| 17012 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 17013 | ||||
| 17014 | /* Processing variable work */ | |||
| 17015 | work_Dims[0]=lwork; | |||
| 17016 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 17017 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 17018 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 17019 | if (!PyErr_Occurred()) | |||
| 17020 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgelsd to C/Fortran array" ); | |||
| 17021 | } else { | |||
| 17022 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 17023 | ||||
| 17024 | /* Processing variable iwork */ | |||
| 17025 | iwork_Dims[0]=MAX(1,size_iwork)((1 > size_iwork) ? (1) : (size_iwork)); | |||
| 17026 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 17027 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 17028 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 17029 | if (!PyErr_Occurred()) | |||
| 17030 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dgelsd to C/Fortran array" ); | |||
| 17031 | } else { | |||
| 17032 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 17033 | ||||
| 17034 | /* Processing variable nrhs */ | |||
| 17035 | nrhs = shape(b,1)b_Dims[1]; | |||
| 17036 | /*end of frompyobj*/ | |||
| 17037 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17038 | f2py_start_call_clock(); | |||
| 17039 | #endif | |||
| 17040 | /*callfortranroutine*/ | |||
| 17041 | (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork,iwork,&info) ; | |||
| 17042 | /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,&lwork,&size_iwork,iwork,&info);*/ | |||
| 17043 | if (PyErr_Occurred()) | |||
| 17044 | f2py_success = 0; | |||
| 17045 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17046 | f2py_stop_call_clock(); | |||
| 17047 | #endif | |||
| 17048 | /*end of callfortranroutine*/ | |||
| 17049 | if (f2py_success) { | |||
| 17050 | /*pyobjfrom*/ | |||
| 17051 | /*end of pyobjfrom*/ | |||
| 17052 | CFUNCSMESS("Building return value.\n"); | |||
| 17053 | capi_buildvalue = Py_BuildValue("NNii",capi_b_tmp,capi_s_tmp,r,info); | |||
| 17054 | /*closepyobjfrom*/ | |||
| 17055 | /*end of closepyobjfrom*/ | |||
| 17056 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 17057 | /*cleanupfrompyobj*/ | |||
| 17058 | /* End of cleaning variable nrhs */ | |||
| 17059 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 17060 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 17061 | /* End of cleaning variable iwork */ | |||
| 17062 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 17063 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 17064 | /* End of cleaning variable work */ | |||
| 17065 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 17066 | /* End of cleaning variable s */ | |||
| 17067 | } /*CHECKARRAY(maxmn==shape(b,0))*/ | |||
| 17068 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 17069 | /* End of cleaning variable b */ | |||
| 17070 | /* End of cleaning variable maxmn */ | |||
| 17071 | /* End of cleaning variable minmn */ | |||
| 17072 | /* End of cleaning variable n */ | |||
| 17073 | /* End of cleaning variable m */ | |||
| 17074 | /* End of cleaning variable info */ | |||
| 17075 | } /*if (f2py_success) of size_iwork*/ | |||
| 17076 | /* End of cleaning variable size_iwork */ | |||
| 17077 | } /*CHECKSCALAR(lwork>=1)*/ | |||
| 17078 | } /*if (f2py_success) of lwork*/ | |||
| 17079 | /* End of cleaning variable lwork */ | |||
| 17080 | /* End of cleaning variable r */ | |||
| 17081 | } /*if (f2py_success) of cond*/ | |||
| 17082 | /* End of cleaning variable cond */ | |||
| 17083 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 17084 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 17085 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 17086 | /* End of cleaning variable a */ | |||
| 17087 | /*end of cleanupfrompyobj*/ | |||
| 17088 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 17089 | /*routdebugfailure*/ | |||
| 17090 | } else { | |||
| 17091 | /*routdebugleave*/ | |||
| 17092 | } | |||
| 17093 | CFUNCSMESS("Freeing memory.\n"); | |||
| 17094 | /*freemem*/ | |||
| 17095 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17096 | f2py_stop_clock(); | |||
| 17097 | #endif | |||
| 17098 | return capi_buildvalue; | |||
| 17099 | } | |||
| 17100 | /******************************* end of dgelsd *******************************/ | |||
| 17101 | ||||
| 17102 | /******************************** sgelsd_lwork ********************************/ | |||
| 17103 | static char doc_f2py_rout__flapack_sgelsd_lwork[] = "\ | |||
| 17104 | work,iwork,info = sgelsd_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``sgelsd_lwork``.\ | |||
| 17105 | \n\nParameters\n----------\n" | |||
| 17106 | "m : input int\n" | |||
| 17107 | "n : input int\n" | |||
| 17108 | "nrhs : input int\n" | |||
| 17109 | "\nOther Parameters\n----------------\n" | |||
| 17110 | "cond : input float, optional\n Default: -1.0\n" | |||
| 17111 | "lwork : input int, optional\n Default: -1\n" | |||
| 17112 | "\nReturns\n-------\n" | |||
| 17113 | "work : float\n" | |||
| 17114 | "iwork : int\n" | |||
| 17115 | "info : int"; | |||
| 17116 | /* extern void F_FUNC(sgelsd ,SGELSD )(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 17117 | static PyObject *f2py_rout__flapack_sgelsd_lwork(const PyObject *capi_self, | |||
| 17118 | PyObject *capi_args, | |||
| 17119 | PyObject *capi_keywds, | |||
| 17120 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 17121 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 17122 | volatile int f2py_success = 1; | |||
| 17123 | /*decl*/ | |||
| 17124 | ||||
| 17125 | int m = 0; | |||
| 17126 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 17127 | int n = 0; | |||
| 17128 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 17129 | int maxmn = 0; | |||
| 17130 | int nrhs = 0; | |||
| 17131 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 17132 | float a = 0; | |||
| 17133 | float b = 0; | |||
| 17134 | float s = 0; | |||
| 17135 | float cond = 0; | |||
| 17136 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 17137 | int r = 0; | |||
| 17138 | float work = 0; | |||
| 17139 | int lwork = 0; | |||
| 17140 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 17141 | int iwork = 0; | |||
| 17142 | int info = 0; | |||
| 17143 | static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)}; | |||
| 17144 | ||||
| 17145 | /*routdebugenter*/ | |||
| 17146 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17147 | f2py_start_clock(); | |||
| 17148 | #endif | |||
| 17149 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 17150 | "OOO|OO:_flapack.sgelsd_lwork",\ | |||
| 17151 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi)) | |||
| 17152 | return NULL((void*)0); | |||
| 17153 | /*frompyobj*/ | |||
| 17154 | /* Processing variable m */ | |||
| 17155 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgelsd_lwork() 1st argument (m) can't be converted to int"); | |||
| 17156 | if (f2py_success) { | |||
| 17157 | /* Processing variable n */ | |||
| 17158 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgelsd_lwork() 2nd argument (n) can't be converted to int"); | |||
| 17159 | if (f2py_success) { | |||
| 17160 | /* Processing variable a */ | |||
| 17161 | /* Processing variable nrhs */ | |||
| 17162 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.sgelsd_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 17163 | if (f2py_success) { | |||
| 17164 | /* Processing variable b */ | |||
| 17165 | /* Processing variable cond */ | |||
| 17166 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 17167 | f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.sgelsd_lwork() 1st keyword (cond) can't be converted to float"); | |||
| 17168 | if (f2py_success) { | |||
| 17169 | /* Processing variable r */ | |||
| 17170 | /* Processing variable s */ | |||
| 17171 | /* Processing variable lwork */ | |||
| 17172 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else | |||
| 17173 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgelsd_lwork() 2nd keyword (lwork) can't be converted to int"); | |||
| 17174 | if (f2py_success) { | |||
| 17175 | /* Processing variable work */ | |||
| 17176 | /* Processing variable iwork */ | |||
| 17177 | /* Processing variable info */ | |||
| 17178 | /* Processing variable maxmn */ | |||
| 17179 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 17180 | /*end of frompyobj*/ | |||
| 17181 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17182 | f2py_start_call_clock(); | |||
| 17183 | #endif | |||
| 17184 | /*callfortranroutine*/ | |||
| 17185 | (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork,&iwork,&info) ; | |||
| 17186 | /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&lwork,&iwork,&info);*/ | |||
| 17187 | if (PyErr_Occurred()) | |||
| 17188 | f2py_success = 0; | |||
| 17189 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17190 | f2py_stop_call_clock(); | |||
| 17191 | #endif | |||
| 17192 | /*end of callfortranroutine*/ | |||
| 17193 | if (f2py_success) { | |||
| 17194 | /*pyobjfrom*/ | |||
| 17195 | /*end of pyobjfrom*/ | |||
| 17196 | CFUNCSMESS("Building return value.\n"); | |||
| 17197 | capi_buildvalue = Py_BuildValue("fii",work,iwork,info); | |||
| 17198 | /*closepyobjfrom*/ | |||
| 17199 | /*end of closepyobjfrom*/ | |||
| 17200 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 17201 | /*cleanupfrompyobj*/ | |||
| 17202 | /* End of cleaning variable maxmn */ | |||
| 17203 | /* End of cleaning variable info */ | |||
| 17204 | /* End of cleaning variable iwork */ | |||
| 17205 | /* End of cleaning variable work */ | |||
| 17206 | } /*if (f2py_success) of lwork*/ | |||
| 17207 | /* End of cleaning variable lwork */ | |||
| 17208 | /* End of cleaning variable s */ | |||
| 17209 | /* End of cleaning variable r */ | |||
| 17210 | } /*if (f2py_success) of cond*/ | |||
| 17211 | /* End of cleaning variable cond */ | |||
| 17212 | /* End of cleaning variable b */ | |||
| 17213 | } /*if (f2py_success) of nrhs*/ | |||
| 17214 | /* End of cleaning variable nrhs */ | |||
| 17215 | /* End of cleaning variable a */ | |||
| 17216 | } /*if (f2py_success) of n*/ | |||
| 17217 | /* End of cleaning variable n */ | |||
| 17218 | } /*if (f2py_success) of m*/ | |||
| 17219 | /* End of cleaning variable m */ | |||
| 17220 | /*end of cleanupfrompyobj*/ | |||
| 17221 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 17222 | /*routdebugfailure*/ | |||
| 17223 | } else { | |||
| 17224 | /*routdebugleave*/ | |||
| 17225 | } | |||
| 17226 | CFUNCSMESS("Freeing memory.\n"); | |||
| 17227 | /*freemem*/ | |||
| 17228 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17229 | f2py_stop_clock(); | |||
| 17230 | #endif | |||
| 17231 | return capi_buildvalue; | |||
| 17232 | } | |||
| 17233 | /**************************** end of sgelsd_lwork ****************************/ | |||
| 17234 | ||||
| 17235 | /******************************** dgelsd_lwork ********************************/ | |||
| 17236 | static char doc_f2py_rout__flapack_dgelsd_lwork[] = "\ | |||
| 17237 | work,iwork,info = dgelsd_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``dgelsd_lwork``.\ | |||
| 17238 | \n\nParameters\n----------\n" | |||
| 17239 | "m : input int\n" | |||
| 17240 | "n : input int\n" | |||
| 17241 | "nrhs : input int\n" | |||
| 17242 | "\nOther Parameters\n----------------\n" | |||
| 17243 | "cond : input float, optional\n Default: -1.0\n" | |||
| 17244 | "lwork : input int, optional\n Default: -1\n" | |||
| 17245 | "\nReturns\n-------\n" | |||
| 17246 | "work : float\n" | |||
| 17247 | "iwork : int\n" | |||
| 17248 | "info : int"; | |||
| 17249 | /* extern void F_FUNC(dgelsd ,DGELSD )(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 17250 | static PyObject *f2py_rout__flapack_dgelsd_lwork(const PyObject *capi_self, | |||
| 17251 | PyObject *capi_args, | |||
| 17252 | PyObject *capi_keywds, | |||
| 17253 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 17254 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 17255 | volatile int f2py_success = 1; | |||
| 17256 | /*decl*/ | |||
| 17257 | ||||
| 17258 | int m = 0; | |||
| 17259 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 17260 | int n = 0; | |||
| 17261 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 17262 | int maxmn = 0; | |||
| 17263 | int nrhs = 0; | |||
| 17264 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 17265 | double a = 0; | |||
| 17266 | double b = 0; | |||
| 17267 | double s = 0; | |||
| 17268 | double cond = 0; | |||
| 17269 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 17270 | int r = 0; | |||
| 17271 | double work = 0; | |||
| 17272 | int lwork = 0; | |||
| 17273 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 17274 | int iwork = 0; | |||
| 17275 | int info = 0; | |||
| 17276 | static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)}; | |||
| 17277 | ||||
| 17278 | /*routdebugenter*/ | |||
| 17279 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17280 | f2py_start_clock(); | |||
| 17281 | #endif | |||
| 17282 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 17283 | "OOO|OO:_flapack.dgelsd_lwork",\ | |||
| 17284 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi)) | |||
| 17285 | return NULL((void*)0); | |||
| 17286 | /*frompyobj*/ | |||
| 17287 | /* Processing variable m */ | |||
| 17288 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgelsd_lwork() 1st argument (m) can't be converted to int"); | |||
| 17289 | if (f2py_success) { | |||
| 17290 | /* Processing variable n */ | |||
| 17291 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgelsd_lwork() 2nd argument (n) can't be converted to int"); | |||
| 17292 | if (f2py_success) { | |||
| 17293 | /* Processing variable a */ | |||
| 17294 | /* Processing variable nrhs */ | |||
| 17295 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.dgelsd_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 17296 | if (f2py_success) { | |||
| 17297 | /* Processing variable b */ | |||
| 17298 | /* Processing variable cond */ | |||
| 17299 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 17300 | f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.dgelsd_lwork() 1st keyword (cond) can't be converted to double"); | |||
| 17301 | if (f2py_success) { | |||
| 17302 | /* Processing variable r */ | |||
| 17303 | /* Processing variable s */ | |||
| 17304 | /* Processing variable lwork */ | |||
| 17305 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else | |||
| 17306 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgelsd_lwork() 2nd keyword (lwork) can't be converted to int"); | |||
| 17307 | if (f2py_success) { | |||
| 17308 | /* Processing variable work */ | |||
| 17309 | /* Processing variable iwork */ | |||
| 17310 | /* Processing variable info */ | |||
| 17311 | /* Processing variable maxmn */ | |||
| 17312 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 17313 | /*end of frompyobj*/ | |||
| 17314 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17315 | f2py_start_call_clock(); | |||
| 17316 | #endif | |||
| 17317 | /*callfortranroutine*/ | |||
| 17318 | (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork,&iwork,&info) ; | |||
| 17319 | /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&lwork,&iwork,&info);*/ | |||
| 17320 | if (PyErr_Occurred()) | |||
| 17321 | f2py_success = 0; | |||
| 17322 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17323 | f2py_stop_call_clock(); | |||
| 17324 | #endif | |||
| 17325 | /*end of callfortranroutine*/ | |||
| 17326 | if (f2py_success) { | |||
| 17327 | /*pyobjfrom*/ | |||
| 17328 | /*end of pyobjfrom*/ | |||
| 17329 | CFUNCSMESS("Building return value.\n"); | |||
| 17330 | capi_buildvalue = Py_BuildValue("dii",work,iwork,info); | |||
| 17331 | /*closepyobjfrom*/ | |||
| 17332 | /*end of closepyobjfrom*/ | |||
| 17333 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 17334 | /*cleanupfrompyobj*/ | |||
| 17335 | /* End of cleaning variable maxmn */ | |||
| 17336 | /* End of cleaning variable info */ | |||
| 17337 | /* End of cleaning variable iwork */ | |||
| 17338 | /* End of cleaning variable work */ | |||
| 17339 | } /*if (f2py_success) of lwork*/ | |||
| 17340 | /* End of cleaning variable lwork */ | |||
| 17341 | /* End of cleaning variable s */ | |||
| 17342 | /* End of cleaning variable r */ | |||
| 17343 | } /*if (f2py_success) of cond*/ | |||
| 17344 | /* End of cleaning variable cond */ | |||
| 17345 | /* End of cleaning variable b */ | |||
| 17346 | } /*if (f2py_success) of nrhs*/ | |||
| 17347 | /* End of cleaning variable nrhs */ | |||
| 17348 | /* End of cleaning variable a */ | |||
| 17349 | } /*if (f2py_success) of n*/ | |||
| 17350 | /* End of cleaning variable n */ | |||
| 17351 | } /*if (f2py_success) of m*/ | |||
| 17352 | /* End of cleaning variable m */ | |||
| 17353 | /*end of cleanupfrompyobj*/ | |||
| 17354 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 17355 | /*routdebugfailure*/ | |||
| 17356 | } else { | |||
| 17357 | /*routdebugleave*/ | |||
| 17358 | } | |||
| 17359 | CFUNCSMESS("Freeing memory.\n"); | |||
| 17360 | /*freemem*/ | |||
| 17361 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17362 | f2py_stop_clock(); | |||
| 17363 | #endif | |||
| 17364 | return capi_buildvalue; | |||
| 17365 | } | |||
| 17366 | /**************************** end of dgelsd_lwork ****************************/ | |||
| 17367 | ||||
| 17368 | /*********************************** cgelsd ***********************************/ | |||
| 17369 | static char doc_f2py_rout__flapack_cgelsd[] = "\ | |||
| 17370 | x,s,rank,info = cgelsd(a,b,lwork,size_rwork,size_iwork,[cond,overwrite_a,overwrite_b])\n\nWrapper for ``cgelsd``.\ | |||
| 17371 | \n\nParameters\n----------\n" | |||
| 17372 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 17373 | "b : input rank-2 array('F') with bounds (maxmn,nrhs)\n" | |||
| 17374 | "lwork : input int\n" | |||
| 17375 | "size_rwork : input int\n" | |||
| 17376 | "size_iwork : input int\n" | |||
| 17377 | "\nOther Parameters\n----------------\n" | |||
| 17378 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 17379 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 17380 | "cond : input float, optional\n Default: -1.0\n" | |||
| 17381 | "\nReturns\n-------\n" | |||
| 17382 | "x : rank-2 array('F') with bounds (maxmn,nrhs) and b storage\n" | |||
| 17383 | "s : rank-1 array('f') with bounds (minmn)\n" | |||
| 17384 | "rank : int\n" | |||
| 17385 | "info : int"; | |||
| 17386 | /* extern void F_FUNC(cgelsd,CGELSD)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*, complex_float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 17387 | static PyObject *f2py_rout__flapack_cgelsd(const PyObject *capi_self, | |||
| 17388 | PyObject *capi_args, | |||
| 17389 | PyObject *capi_keywds, | |||
| 17390 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*, complex_float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 17391 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 17392 | volatile int f2py_success = 1; | |||
| 17393 | /*decl*/ | |||
| 17394 | ||||
| 17395 | int m = 0; | |||
| 17396 | int n = 0; | |||
| 17397 | int minmn = 0; | |||
| 17398 | int maxmn = 0; | |||
| 17399 | int nrhs = 0; | |||
| 17400 | complex_float *a = NULL((void*)0); | |||
| 17401 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 17402 | const int a_Rank = 2; | |||
| 17403 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 17404 | int capi_a_intent = 0; | |||
| 17405 | int capi_overwrite_a = 0; | |||
| 17406 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 17407 | complex_float *b = NULL((void*)0); | |||
| 17408 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 17409 | const int b_Rank = 2; | |||
| 17410 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 17411 | int capi_b_intent = 0; | |||
| 17412 | int capi_overwrite_b = 0; | |||
| 17413 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 17414 | float *s = NULL((void*)0); | |||
| 17415 | npy_intp s_Dims[1] = {-1}; | |||
| 17416 | const int s_Rank = 1; | |||
| 17417 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 17418 | int capi_s_intent = 0; | |||
| 17419 | float cond = 0; | |||
| 17420 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 17421 | int r = 0; | |||
| 17422 | complex_float *work = NULL((void*)0); | |||
| 17423 | npy_intp work_Dims[1] = {-1}; | |||
| 17424 | const int work_Rank = 1; | |||
| 17425 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 17426 | int capi_work_intent = 0; | |||
| 17427 | int lwork = 0; | |||
| 17428 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 17429 | int size_rwork = 0; | |||
| 17430 | PyObject *size_rwork_capi = Py_None(&_Py_NoneStruct); | |||
| 17431 | float *rwork = NULL((void*)0); | |||
| 17432 | npy_intp rwork_Dims[1] = {-1}; | |||
| 17433 | const int rwork_Rank = 1; | |||
| 17434 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 17435 | int capi_rwork_intent = 0; | |||
| 17436 | int size_iwork = 0; | |||
| 17437 | PyObject *size_iwork_capi = Py_None(&_Py_NoneStruct); | |||
| 17438 | int *iwork = NULL((void*)0); | |||
| 17439 | npy_intp iwork_Dims[1] = {-1}; | |||
| 17440 | const int iwork_Rank = 1; | |||
| 17441 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 17442 | int capi_iwork_intent = 0; | |||
| 17443 | int info = 0; | |||
| 17444 | static char *capi_kwlist[] = {"a","b","lwork","size_rwork","size_iwork","cond","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 17445 | ||||
| 17446 | /*routdebugenter*/ | |||
| 17447 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17448 | f2py_start_clock(); | |||
| 17449 | #endif | |||
| 17450 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 17451 | "OOOOO|Oii:_flapack.cgelsd",\ | |||
| 17452 | capi_kwlist,&a_capi,&b_capi,&lwork_capi,&size_rwork_capi,&size_iwork_capi,&cond_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 17453 | return NULL((void*)0); | |||
| 17454 | /*frompyobj*/ | |||
| 17455 | /* Processing variable a */ | |||
| 17456 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 17457 | ; | |||
| 17458 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 17459 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 17460 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 17461 | if (!PyErr_Occurred()) | |||
| 17462 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgelsd to C/Fortran array" ); | |||
| 17463 | } else { | |||
| 17464 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 17465 | ||||
| 17466 | /* Processing variable cond */ | |||
| 17467 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 17468 | f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.cgelsd() 1st keyword (cond) can't be converted to float"); | |||
| 17469 | if (f2py_success) { | |||
| 17470 | /* Processing variable r */ | |||
| 17471 | /* Processing variable lwork */ | |||
| 17472 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgelsd() 3rd argument (lwork) can't be converted to int"); | |||
| 17473 | if (f2py_success) { | |||
| 17474 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","3rd argument lwork","cgelsd:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgelsd:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "3rd argument lwork", lwork); PyErr_SetString(_flapack_error, errstring); } else { | |||
| 17475 | /* Processing variable size_rwork */ | |||
| 17476 | f2py_success = int_from_pyobj(&size_rwork,size_rwork_capi,"_flapack.cgelsd() 4th argument (size_rwork) can't be converted to int"); | |||
| 17477 | if (f2py_success) { | |||
| 17478 | /* Processing variable size_iwork */ | |||
| 17479 | f2py_success = int_from_pyobj(&size_iwork,size_iwork_capi,"_flapack.cgelsd() 5th argument (size_iwork) can't be converted to int"); | |||
| 17480 | if (f2py_success) { | |||
| 17481 | /* Processing variable info */ | |||
| 17482 | /* Processing variable m */ | |||
| 17483 | m = shape(a,0)a_Dims[0]; | |||
| 17484 | /* Processing variable n */ | |||
| 17485 | n = shape(a,1)a_Dims[1]; | |||
| 17486 | /* Processing variable minmn */ | |||
| 17487 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 17488 | /* Processing variable maxmn */ | |||
| 17489 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 17490 | /* Processing variable b */ | |||
| 17491 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 17492 | b_Dims[0]=maxmn; | |||
| 17493 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 17494 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 17495 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 17496 | if (!PyErr_Occurred()) | |||
| 17497 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgelsd to C/Fortran array" ); | |||
| 17498 | } else { | |||
| 17499 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 17500 | ||||
| 17501 | CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"(" "maxmn==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 17502 | /* Processing variable s */ | |||
| 17503 | s_Dims[0]=minmn; | |||
| 17504 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 17505 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 17506 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 17507 | if (!PyErr_Occurred()) | |||
| 17508 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.cgelsd to C/Fortran array" ); | |||
| 17509 | } else { | |||
| 17510 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 17511 | ||||
| 17512 | /* Processing variable work */ | |||
| 17513 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 17514 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 17515 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 17516 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 17517 | if (!PyErr_Occurred()) | |||
| 17518 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgelsd to C/Fortran array" ); | |||
| 17519 | } else { | |||
| 17520 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 17521 | ||||
| 17522 | /* Processing variable rwork */ | |||
| 17523 | rwork_Dims[0]=MAX(1,size_rwork)((1 > size_rwork) ? (1) : (size_rwork)); | |||
| 17524 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 17525 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 17526 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 17527 | if (!PyErr_Occurred()) | |||
| 17528 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgelsd to C/Fortran array" ); | |||
| 17529 | } else { | |||
| 17530 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 17531 | ||||
| 17532 | /* Processing variable iwork */ | |||
| 17533 | iwork_Dims[0]=MAX(1,size_iwork)((1 > size_iwork) ? (1) : (size_iwork)); | |||
| 17534 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 17535 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 17536 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 17537 | if (!PyErr_Occurred()) | |||
| 17538 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.cgelsd to C/Fortran array" ); | |||
| 17539 | } else { | |||
| 17540 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 17541 | ||||
| 17542 | /* Processing variable nrhs */ | |||
| 17543 | nrhs = shape(b,1)b_Dims[1]; | |||
| 17544 | /*end of frompyobj*/ | |||
| 17545 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17546 | f2py_start_call_clock(); | |||
| 17547 | #endif | |||
| 17548 | /*callfortranroutine*/ | |||
| 17549 | (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork, rwork, iwork,&info) ; | |||
| 17550 | /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,&lwork,&size_rwork,rwork,&size_iwork,iwork,&info);*/ | |||
| 17551 | if (PyErr_Occurred()) | |||
| 17552 | f2py_success = 0; | |||
| 17553 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17554 | f2py_stop_call_clock(); | |||
| 17555 | #endif | |||
| 17556 | /*end of callfortranroutine*/ | |||
| 17557 | if (f2py_success) { | |||
| 17558 | /*pyobjfrom*/ | |||
| 17559 | /*end of pyobjfrom*/ | |||
| 17560 | CFUNCSMESS("Building return value.\n"); | |||
| 17561 | capi_buildvalue = Py_BuildValue("NNii",capi_b_tmp,capi_s_tmp,r,info); | |||
| 17562 | /*closepyobjfrom*/ | |||
| 17563 | /*end of closepyobjfrom*/ | |||
| 17564 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 17565 | /*cleanupfrompyobj*/ | |||
| 17566 | /* End of cleaning variable nrhs */ | |||
| 17567 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 17568 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 17569 | /* End of cleaning variable iwork */ | |||
| 17570 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 17571 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 17572 | /* End of cleaning variable rwork */ | |||
| 17573 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 17574 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 17575 | /* End of cleaning variable work */ | |||
| 17576 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 17577 | /* End of cleaning variable s */ | |||
| 17578 | } /*CHECKARRAY(maxmn==shape(b,0))*/ | |||
| 17579 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 17580 | /* End of cleaning variable b */ | |||
| 17581 | /* End of cleaning variable maxmn */ | |||
| 17582 | /* End of cleaning variable minmn */ | |||
| 17583 | /* End of cleaning variable n */ | |||
| 17584 | /* End of cleaning variable m */ | |||
| 17585 | /* End of cleaning variable info */ | |||
| 17586 | } /*if (f2py_success) of size_iwork*/ | |||
| 17587 | /* End of cleaning variable size_iwork */ | |||
| 17588 | } /*if (f2py_success) of size_rwork*/ | |||
| 17589 | /* End of cleaning variable size_rwork */ | |||
| 17590 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 17591 | } /*if (f2py_success) of lwork*/ | |||
| 17592 | /* End of cleaning variable lwork */ | |||
| 17593 | /* End of cleaning variable r */ | |||
| 17594 | } /*if (f2py_success) of cond*/ | |||
| 17595 | /* End of cleaning variable cond */ | |||
| 17596 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 17597 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 17598 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 17599 | /* End of cleaning variable a */ | |||
| 17600 | /*end of cleanupfrompyobj*/ | |||
| 17601 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 17602 | /*routdebugfailure*/ | |||
| 17603 | } else { | |||
| 17604 | /*routdebugleave*/ | |||
| 17605 | } | |||
| 17606 | CFUNCSMESS("Freeing memory.\n"); | |||
| 17607 | /*freemem*/ | |||
| 17608 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17609 | f2py_stop_clock(); | |||
| 17610 | #endif | |||
| 17611 | return capi_buildvalue; | |||
| 17612 | } | |||
| 17613 | /******************************* end of cgelsd *******************************/ | |||
| 17614 | ||||
| 17615 | /*********************************** zgelsd ***********************************/ | |||
| 17616 | static char doc_f2py_rout__flapack_zgelsd[] = "\ | |||
| 17617 | x,s,rank,info = zgelsd(a,b,lwork,size_rwork,size_iwork,[cond,overwrite_a,overwrite_b])\n\nWrapper for ``zgelsd``.\ | |||
| 17618 | \n\nParameters\n----------\n" | |||
| 17619 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 17620 | "b : input rank-2 array('D') with bounds (maxmn,nrhs)\n" | |||
| 17621 | "lwork : input int\n" | |||
| 17622 | "size_rwork : input int\n" | |||
| 17623 | "size_iwork : input int\n" | |||
| 17624 | "\nOther Parameters\n----------------\n" | |||
| 17625 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 17626 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 17627 | "cond : input float, optional\n Default: -1.0\n" | |||
| 17628 | "\nReturns\n-------\n" | |||
| 17629 | "x : rank-2 array('D') with bounds (maxmn,nrhs) and b storage\n" | |||
| 17630 | "s : rank-1 array('d') with bounds (minmn)\n" | |||
| 17631 | "rank : int\n" | |||
| 17632 | "info : int"; | |||
| 17633 | /* extern void F_FUNC(zgelsd,ZGELSD)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*, complex_double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 17634 | static PyObject *f2py_rout__flapack_zgelsd(const PyObject *capi_self, | |||
| 17635 | PyObject *capi_args, | |||
| 17636 | PyObject *capi_keywds, | |||
| 17637 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*, complex_double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 17638 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 17639 | volatile int f2py_success = 1; | |||
| 17640 | /*decl*/ | |||
| 17641 | ||||
| 17642 | int m = 0; | |||
| 17643 | int n = 0; | |||
| 17644 | int minmn = 0; | |||
| 17645 | int maxmn = 0; | |||
| 17646 | int nrhs = 0; | |||
| 17647 | complex_double *a = NULL((void*)0); | |||
| 17648 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 17649 | const int a_Rank = 2; | |||
| 17650 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 17651 | int capi_a_intent = 0; | |||
| 17652 | int capi_overwrite_a = 0; | |||
| 17653 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 17654 | complex_double *b = NULL((void*)0); | |||
| 17655 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 17656 | const int b_Rank = 2; | |||
| 17657 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 17658 | int capi_b_intent = 0; | |||
| 17659 | int capi_overwrite_b = 0; | |||
| 17660 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 17661 | double *s = NULL((void*)0); | |||
| 17662 | npy_intp s_Dims[1] = {-1}; | |||
| 17663 | const int s_Rank = 1; | |||
| 17664 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 17665 | int capi_s_intent = 0; | |||
| 17666 | double cond = 0; | |||
| 17667 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 17668 | int r = 0; | |||
| 17669 | complex_double *work = NULL((void*)0); | |||
| 17670 | npy_intp work_Dims[1] = {-1}; | |||
| 17671 | const int work_Rank = 1; | |||
| 17672 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 17673 | int capi_work_intent = 0; | |||
| 17674 | int lwork = 0; | |||
| 17675 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 17676 | int size_rwork = 0; | |||
| 17677 | PyObject *size_rwork_capi = Py_None(&_Py_NoneStruct); | |||
| 17678 | double *rwork = NULL((void*)0); | |||
| 17679 | npy_intp rwork_Dims[1] = {-1}; | |||
| 17680 | const int rwork_Rank = 1; | |||
| 17681 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 17682 | int capi_rwork_intent = 0; | |||
| 17683 | int size_iwork = 0; | |||
| 17684 | PyObject *size_iwork_capi = Py_None(&_Py_NoneStruct); | |||
| 17685 | int *iwork = NULL((void*)0); | |||
| 17686 | npy_intp iwork_Dims[1] = {-1}; | |||
| 17687 | const int iwork_Rank = 1; | |||
| 17688 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 17689 | int capi_iwork_intent = 0; | |||
| 17690 | int info = 0; | |||
| 17691 | static char *capi_kwlist[] = {"a","b","lwork","size_rwork","size_iwork","cond","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 17692 | ||||
| 17693 | /*routdebugenter*/ | |||
| 17694 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17695 | f2py_start_clock(); | |||
| 17696 | #endif | |||
| 17697 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 17698 | "OOOOO|Oii:_flapack.zgelsd",\ | |||
| 17699 | capi_kwlist,&a_capi,&b_capi,&lwork_capi,&size_rwork_capi,&size_iwork_capi,&cond_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 17700 | return NULL((void*)0); | |||
| 17701 | /*frompyobj*/ | |||
| 17702 | /* Processing variable a */ | |||
| 17703 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 17704 | ; | |||
| 17705 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 17706 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 17707 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 17708 | if (!PyErr_Occurred()) | |||
| 17709 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgelsd to C/Fortran array" ); | |||
| 17710 | } else { | |||
| 17711 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 17712 | ||||
| 17713 | /* Processing variable cond */ | |||
| 17714 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 17715 | f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.zgelsd() 1st keyword (cond) can't be converted to double"); | |||
| 17716 | if (f2py_success) { | |||
| 17717 | /* Processing variable r */ | |||
| 17718 | /* Processing variable lwork */ | |||
| 17719 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgelsd() 3rd argument (lwork) can't be converted to int"); | |||
| 17720 | if (f2py_success) { | |||
| 17721 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","3rd argument lwork","zgelsd:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgelsd:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "3rd argument lwork", lwork); PyErr_SetString(_flapack_error, errstring); } else { | |||
| 17722 | /* Processing variable size_rwork */ | |||
| 17723 | f2py_success = int_from_pyobj(&size_rwork,size_rwork_capi,"_flapack.zgelsd() 4th argument (size_rwork) can't be converted to int"); | |||
| 17724 | if (f2py_success) { | |||
| 17725 | /* Processing variable size_iwork */ | |||
| 17726 | f2py_success = int_from_pyobj(&size_iwork,size_iwork_capi,"_flapack.zgelsd() 5th argument (size_iwork) can't be converted to int"); | |||
| 17727 | if (f2py_success) { | |||
| 17728 | /* Processing variable info */ | |||
| 17729 | /* Processing variable m */ | |||
| 17730 | m = shape(a,0)a_Dims[0]; | |||
| 17731 | /* Processing variable n */ | |||
| 17732 | n = shape(a,1)a_Dims[1]; | |||
| 17733 | /* Processing variable minmn */ | |||
| 17734 | minmn = MIN(m,n)((m < n) ? (m) : (n)); | |||
| 17735 | /* Processing variable maxmn */ | |||
| 17736 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 17737 | /* Processing variable b */ | |||
| 17738 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 17739 | b_Dims[0]=maxmn; | |||
| 17740 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 17741 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 17742 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 17743 | if (!PyErr_Occurred()) | |||
| 17744 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgelsd to C/Fortran array" ); | |||
| 17745 | } else { | |||
| 17746 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 17747 | ||||
| 17748 | CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"(" "maxmn==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 17749 | /* Processing variable s */ | |||
| 17750 | s_Dims[0]=minmn; | |||
| 17751 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 17752 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 17753 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 17754 | if (!PyErr_Occurred()) | |||
| 17755 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.zgelsd to C/Fortran array" ); | |||
| 17756 | } else { | |||
| 17757 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 17758 | ||||
| 17759 | /* Processing variable work */ | |||
| 17760 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 17761 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 17762 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 17763 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 17764 | if (!PyErr_Occurred()) | |||
| 17765 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgelsd to C/Fortran array" ); | |||
| 17766 | } else { | |||
| 17767 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 17768 | ||||
| 17769 | /* Processing variable rwork */ | |||
| 17770 | rwork_Dims[0]=MAX(1,size_rwork)((1 > size_rwork) ? (1) : (size_rwork)); | |||
| 17771 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 17772 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 17773 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 17774 | if (!PyErr_Occurred()) | |||
| 17775 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgelsd to C/Fortran array" ); | |||
| 17776 | } else { | |||
| 17777 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 17778 | ||||
| 17779 | /* Processing variable iwork */ | |||
| 17780 | iwork_Dims[0]=MAX(1,size_iwork)((1 > size_iwork) ? (1) : (size_iwork)); | |||
| 17781 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 17782 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 17783 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 17784 | if (!PyErr_Occurred()) | |||
| 17785 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zgelsd to C/Fortran array" ); | |||
| 17786 | } else { | |||
| 17787 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 17788 | ||||
| 17789 | /* Processing variable nrhs */ | |||
| 17790 | nrhs = shape(b,1)b_Dims[1]; | |||
| 17791 | /*end of frompyobj*/ | |||
| 17792 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17793 | f2py_start_call_clock(); | |||
| 17794 | #endif | |||
| 17795 | /*callfortranroutine*/ | |||
| 17796 | (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork, rwork, iwork,&info) ; | |||
| 17797 | /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,&lwork,&size_rwork,rwork,&size_iwork,iwork,&info);*/ | |||
| 17798 | if (PyErr_Occurred()) | |||
| 17799 | f2py_success = 0; | |||
| 17800 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17801 | f2py_stop_call_clock(); | |||
| 17802 | #endif | |||
| 17803 | /*end of callfortranroutine*/ | |||
| 17804 | if (f2py_success) { | |||
| 17805 | /*pyobjfrom*/ | |||
| 17806 | /*end of pyobjfrom*/ | |||
| 17807 | CFUNCSMESS("Building return value.\n"); | |||
| 17808 | capi_buildvalue = Py_BuildValue("NNii",capi_b_tmp,capi_s_tmp,r,info); | |||
| 17809 | /*closepyobjfrom*/ | |||
| 17810 | /*end of closepyobjfrom*/ | |||
| 17811 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 17812 | /*cleanupfrompyobj*/ | |||
| 17813 | /* End of cleaning variable nrhs */ | |||
| 17814 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 17815 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 17816 | /* End of cleaning variable iwork */ | |||
| 17817 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 17818 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 17819 | /* End of cleaning variable rwork */ | |||
| 17820 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 17821 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 17822 | /* End of cleaning variable work */ | |||
| 17823 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 17824 | /* End of cleaning variable s */ | |||
| 17825 | } /*CHECKARRAY(maxmn==shape(b,0))*/ | |||
| 17826 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 17827 | /* End of cleaning variable b */ | |||
| 17828 | /* End of cleaning variable maxmn */ | |||
| 17829 | /* End of cleaning variable minmn */ | |||
| 17830 | /* End of cleaning variable n */ | |||
| 17831 | /* End of cleaning variable m */ | |||
| 17832 | /* End of cleaning variable info */ | |||
| 17833 | } /*if (f2py_success) of size_iwork*/ | |||
| 17834 | /* End of cleaning variable size_iwork */ | |||
| 17835 | } /*if (f2py_success) of size_rwork*/ | |||
| 17836 | /* End of cleaning variable size_rwork */ | |||
| 17837 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 17838 | } /*if (f2py_success) of lwork*/ | |||
| 17839 | /* End of cleaning variable lwork */ | |||
| 17840 | /* End of cleaning variable r */ | |||
| 17841 | } /*if (f2py_success) of cond*/ | |||
| 17842 | /* End of cleaning variable cond */ | |||
| 17843 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 17844 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 17845 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 17846 | /* End of cleaning variable a */ | |||
| 17847 | /*end of cleanupfrompyobj*/ | |||
| 17848 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 17849 | /*routdebugfailure*/ | |||
| 17850 | } else { | |||
| 17851 | /*routdebugleave*/ | |||
| 17852 | } | |||
| 17853 | CFUNCSMESS("Freeing memory.\n"); | |||
| 17854 | /*freemem*/ | |||
| 17855 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17856 | f2py_stop_clock(); | |||
| 17857 | #endif | |||
| 17858 | return capi_buildvalue; | |||
| 17859 | } | |||
| 17860 | /******************************* end of zgelsd *******************************/ | |||
| 17861 | ||||
| 17862 | /******************************** cgelsd_lwork ********************************/ | |||
| 17863 | static char doc_f2py_rout__flapack_cgelsd_lwork[] = "\ | |||
| 17864 | work,rwork,iwork,info = cgelsd_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``cgelsd_lwork``.\ | |||
| 17865 | \n\nParameters\n----------\n" | |||
| 17866 | "m : input int\n" | |||
| 17867 | "n : input int\n" | |||
| 17868 | "nrhs : input int\n" | |||
| 17869 | "\nOther Parameters\n----------------\n" | |||
| 17870 | "cond : input float, optional\n Default: -1.0\n" | |||
| 17871 | "lwork : input int, optional\n Default: -1\n" | |||
| 17872 | "\nReturns\n-------\n" | |||
| 17873 | "work : complex\n" | |||
| 17874 | "rwork : float\n" | |||
| 17875 | "iwork : int\n" | |||
| 17876 | "info : int"; | |||
| 17877 | /* extern void F_FUNC(cgelsd ,CGELSD )(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*, complex_float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 17878 | static PyObject *f2py_rout__flapack_cgelsd_lwork(const PyObject *capi_self, | |||
| 17879 | PyObject *capi_args, | |||
| 17880 | PyObject *capi_keywds, | |||
| 17881 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*, complex_float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 17882 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 17883 | volatile int f2py_success = 1; | |||
| 17884 | /*decl*/ | |||
| 17885 | ||||
| 17886 | int m = 0; | |||
| 17887 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 17888 | int n = 0; | |||
| 17889 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 17890 | int maxmn = 0; | |||
| 17891 | int nrhs = 0; | |||
| 17892 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 17893 | complex_float a; | |||
| 17894 | complex_float b; | |||
| 17895 | float s = 0; | |||
| 17896 | float cond = 0; | |||
| 17897 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 17898 | int r = 0; | |||
| 17899 | complex_float work; | |||
| 17900 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 17901 | int lwork = 0; | |||
| 17902 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 17903 | float rwork = 0; | |||
| 17904 | int iwork = 0; | |||
| 17905 | int info = 0; | |||
| 17906 | static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)}; | |||
| 17907 | ||||
| 17908 | /*routdebugenter*/ | |||
| 17909 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17910 | f2py_start_clock(); | |||
| 17911 | #endif | |||
| 17912 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 17913 | "OOO|OO:_flapack.cgelsd_lwork",\ | |||
| 17914 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi)) | |||
| 17915 | return NULL((void*)0); | |||
| 17916 | /*frompyobj*/ | |||
| 17917 | /* Processing variable m */ | |||
| 17918 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgelsd_lwork() 1st argument (m) can't be converted to int"); | |||
| 17919 | if (f2py_success) { | |||
| 17920 | /* Processing variable n */ | |||
| 17921 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgelsd_lwork() 2nd argument (n) can't be converted to int"); | |||
| 17922 | if (f2py_success) { | |||
| 17923 | /* Processing variable a */ | |||
| 17924 | /* Processing variable nrhs */ | |||
| 17925 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.cgelsd_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 17926 | if (f2py_success) { | |||
| 17927 | /* Processing variable b */ | |||
| 17928 | /* Processing variable cond */ | |||
| 17929 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 17930 | f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.cgelsd_lwork() 1st keyword (cond) can't be converted to float"); | |||
| 17931 | if (f2py_success) { | |||
| 17932 | /* Processing variable r */ | |||
| 17933 | /* Processing variable s */ | |||
| 17934 | /* Processing variable lwork */ | |||
| 17935 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else | |||
| 17936 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgelsd_lwork() 2nd keyword (lwork) can't be converted to int"); | |||
| 17937 | if (f2py_success) { | |||
| 17938 | /* Processing variable work */ | |||
| 17939 | /* Processing variable rwork */ | |||
| 17940 | /* Processing variable iwork */ | |||
| 17941 | /* Processing variable info */ | |||
| 17942 | /* Processing variable maxmn */ | |||
| 17943 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 17944 | /*end of frompyobj*/ | |||
| 17945 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17946 | f2py_start_call_clock(); | |||
| 17947 | #endif | |||
| 17948 | /*callfortranroutine*/ | |||
| 17949 | (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork, &rwork, &iwork,&info) ; | |||
| 17950 | /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&lwork,&rwork,&iwork,&info);*/ | |||
| 17951 | if (PyErr_Occurred()) | |||
| 17952 | f2py_success = 0; | |||
| 17953 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17954 | f2py_stop_call_clock(); | |||
| 17955 | #endif | |||
| 17956 | /*end of callfortranroutine*/ | |||
| 17957 | if (f2py_success) { | |||
| 17958 | /*pyobjfrom*/ | |||
| 17959 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 17960 | /*end of pyobjfrom*/ | |||
| 17961 | CFUNCSMESS("Building return value.\n"); | |||
| 17962 | capi_buildvalue = Py_BuildValue("Nfii",work_capi,rwork,iwork,info); | |||
| 17963 | /*closepyobjfrom*/ | |||
| 17964 | /*end of closepyobjfrom*/ | |||
| 17965 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 17966 | /*cleanupfrompyobj*/ | |||
| 17967 | /* End of cleaning variable maxmn */ | |||
| 17968 | /* End of cleaning variable info */ | |||
| 17969 | /* End of cleaning variable iwork */ | |||
| 17970 | /* End of cleaning variable rwork */ | |||
| 17971 | /* End of cleaning variable work */ | |||
| 17972 | } /*if (f2py_success) of lwork*/ | |||
| 17973 | /* End of cleaning variable lwork */ | |||
| 17974 | /* End of cleaning variable s */ | |||
| 17975 | /* End of cleaning variable r */ | |||
| 17976 | } /*if (f2py_success) of cond*/ | |||
| 17977 | /* End of cleaning variable cond */ | |||
| 17978 | /* End of cleaning variable b */ | |||
| 17979 | } /*if (f2py_success) of nrhs*/ | |||
| 17980 | /* End of cleaning variable nrhs */ | |||
| 17981 | /* End of cleaning variable a */ | |||
| 17982 | } /*if (f2py_success) of n*/ | |||
| 17983 | /* End of cleaning variable n */ | |||
| 17984 | } /*if (f2py_success) of m*/ | |||
| 17985 | /* End of cleaning variable m */ | |||
| 17986 | /*end of cleanupfrompyobj*/ | |||
| 17987 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 17988 | /*routdebugfailure*/ | |||
| 17989 | } else { | |||
| 17990 | /*routdebugleave*/ | |||
| 17991 | } | |||
| 17992 | CFUNCSMESS("Freeing memory.\n"); | |||
| 17993 | /*freemem*/ | |||
| 17994 | #ifdef F2PY_REPORT_ATEXIT | |||
| 17995 | f2py_stop_clock(); | |||
| 17996 | #endif | |||
| 17997 | return capi_buildvalue; | |||
| 17998 | } | |||
| 17999 | /**************************** end of cgelsd_lwork ****************************/ | |||
| 18000 | ||||
| 18001 | /******************************** zgelsd_lwork ********************************/ | |||
| 18002 | static char doc_f2py_rout__flapack_zgelsd_lwork[] = "\ | |||
| 18003 | work,rwork,iwork,info = zgelsd_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``zgelsd_lwork``.\ | |||
| 18004 | \n\nParameters\n----------\n" | |||
| 18005 | "m : input int\n" | |||
| 18006 | "n : input int\n" | |||
| 18007 | "nrhs : input int\n" | |||
| 18008 | "\nOther Parameters\n----------------\n" | |||
| 18009 | "cond : input float, optional\n Default: -1.0\n" | |||
| 18010 | "lwork : input int, optional\n Default: -1\n" | |||
| 18011 | "\nReturns\n-------\n" | |||
| 18012 | "work : complex\n" | |||
| 18013 | "rwork : float\n" | |||
| 18014 | "iwork : int\n" | |||
| 18015 | "info : int"; | |||
| 18016 | /* extern void F_FUNC(zgelsd ,ZGELSD )(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*, complex_double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 18017 | static PyObject *f2py_rout__flapack_zgelsd_lwork(const PyObject *capi_self, | |||
| 18018 | PyObject *capi_args, | |||
| 18019 | PyObject *capi_keywds, | |||
| 18020 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*, complex_double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 18021 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 18022 | volatile int f2py_success = 1; | |||
| 18023 | /*decl*/ | |||
| 18024 | ||||
| 18025 | int m = 0; | |||
| 18026 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 18027 | int n = 0; | |||
| 18028 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 18029 | int maxmn = 0; | |||
| 18030 | int nrhs = 0; | |||
| 18031 | PyObject *nrhs_capi = Py_None(&_Py_NoneStruct); | |||
| 18032 | complex_double a; | |||
| 18033 | complex_double b; | |||
| 18034 | double s = 0; | |||
| 18035 | double cond = 0; | |||
| 18036 | PyObject *cond_capi = Py_None(&_Py_NoneStruct); | |||
| 18037 | int r = 0; | |||
| 18038 | complex_double work; | |||
| 18039 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 18040 | int lwork = 0; | |||
| 18041 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 18042 | double rwork = 0; | |||
| 18043 | int iwork = 0; | |||
| 18044 | int info = 0; | |||
| 18045 | static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)}; | |||
| 18046 | ||||
| 18047 | /*routdebugenter*/ | |||
| 18048 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18049 | f2py_start_clock(); | |||
| 18050 | #endif | |||
| 18051 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 18052 | "OOO|OO:_flapack.zgelsd_lwork",\ | |||
| 18053 | capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi)) | |||
| 18054 | return NULL((void*)0); | |||
| 18055 | /*frompyobj*/ | |||
| 18056 | /* Processing variable m */ | |||
| 18057 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgelsd_lwork() 1st argument (m) can't be converted to int"); | |||
| 18058 | if (f2py_success) { | |||
| 18059 | /* Processing variable n */ | |||
| 18060 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgelsd_lwork() 2nd argument (n) can't be converted to int"); | |||
| 18061 | if (f2py_success) { | |||
| 18062 | /* Processing variable a */ | |||
| 18063 | /* Processing variable nrhs */ | |||
| 18064 | f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.zgelsd_lwork() 3rd argument (nrhs) can't be converted to int"); | |||
| 18065 | if (f2py_success) { | |||
| 18066 | /* Processing variable b */ | |||
| 18067 | /* Processing variable cond */ | |||
| 18068 | if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else | |||
| 18069 | f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.zgelsd_lwork() 1st keyword (cond) can't be converted to double"); | |||
| 18070 | if (f2py_success) { | |||
| 18071 | /* Processing variable r */ | |||
| 18072 | /* Processing variable s */ | |||
| 18073 | /* Processing variable lwork */ | |||
| 18074 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else | |||
| 18075 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgelsd_lwork() 2nd keyword (lwork) can't be converted to int"); | |||
| 18076 | if (f2py_success) { | |||
| 18077 | /* Processing variable work */ | |||
| 18078 | /* Processing variable rwork */ | |||
| 18079 | /* Processing variable iwork */ | |||
| 18080 | /* Processing variable info */ | |||
| 18081 | /* Processing variable maxmn */ | |||
| 18082 | maxmn = MAX(m,n)((m > n) ? (m) : (n)); | |||
| 18083 | /*end of frompyobj*/ | |||
| 18084 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18085 | f2py_start_call_clock(); | |||
| 18086 | #endif | |||
| 18087 | /*callfortranroutine*/ | |||
| 18088 | (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork, &rwork, &iwork,&info) ; | |||
| 18089 | /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&lwork,&rwork,&iwork,&info);*/ | |||
| 18090 | if (PyErr_Occurred()) | |||
| 18091 | f2py_success = 0; | |||
| 18092 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18093 | f2py_stop_call_clock(); | |||
| 18094 | #endif | |||
| 18095 | /*end of callfortranroutine*/ | |||
| 18096 | if (f2py_success) { | |||
| 18097 | /*pyobjfrom*/ | |||
| 18098 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 18099 | /*end of pyobjfrom*/ | |||
| 18100 | CFUNCSMESS("Building return value.\n"); | |||
| 18101 | capi_buildvalue = Py_BuildValue("Ndii",work_capi,rwork,iwork,info); | |||
| 18102 | /*closepyobjfrom*/ | |||
| 18103 | /*end of closepyobjfrom*/ | |||
| 18104 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 18105 | /*cleanupfrompyobj*/ | |||
| 18106 | /* End of cleaning variable maxmn */ | |||
| 18107 | /* End of cleaning variable info */ | |||
| 18108 | /* End of cleaning variable iwork */ | |||
| 18109 | /* End of cleaning variable rwork */ | |||
| 18110 | /* End of cleaning variable work */ | |||
| 18111 | } /*if (f2py_success) of lwork*/ | |||
| 18112 | /* End of cleaning variable lwork */ | |||
| 18113 | /* End of cleaning variable s */ | |||
| 18114 | /* End of cleaning variable r */ | |||
| 18115 | } /*if (f2py_success) of cond*/ | |||
| 18116 | /* End of cleaning variable cond */ | |||
| 18117 | /* End of cleaning variable b */ | |||
| 18118 | } /*if (f2py_success) of nrhs*/ | |||
| 18119 | /* End of cleaning variable nrhs */ | |||
| 18120 | /* End of cleaning variable a */ | |||
| 18121 | } /*if (f2py_success) of n*/ | |||
| 18122 | /* End of cleaning variable n */ | |||
| 18123 | } /*if (f2py_success) of m*/ | |||
| 18124 | /* End of cleaning variable m */ | |||
| 18125 | /*end of cleanupfrompyobj*/ | |||
| 18126 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 18127 | /*routdebugfailure*/ | |||
| 18128 | } else { | |||
| 18129 | /*routdebugleave*/ | |||
| 18130 | } | |||
| 18131 | CFUNCSMESS("Freeing memory.\n"); | |||
| 18132 | /*freemem*/ | |||
| 18133 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18134 | f2py_stop_clock(); | |||
| 18135 | #endif | |||
| 18136 | return capi_buildvalue; | |||
| 18137 | } | |||
| 18138 | /**************************** end of zgelsd_lwork ****************************/ | |||
| 18139 | ||||
| 18140 | /*********************************** sgeqp3 ***********************************/ | |||
| 18141 | static char doc_f2py_rout__flapack_sgeqp3[] = "\ | |||
| 18142 | qr,jpvt,tau,work,info = sgeqp3(a,[lwork,overwrite_a])\n\nWrapper for ``sgeqp3``.\ | |||
| 18143 | \n\nParameters\n----------\n" | |||
| 18144 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 18145 | "\nOther Parameters\n----------------\n" | |||
| 18146 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 18147 | "lwork : input int, optional\n Default: max(3*(n+1),1)\n" | |||
| 18148 | "\nReturns\n-------\n" | |||
| 18149 | "qr : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 18150 | "jpvt : rank-1 array('i') with bounds (n)\n" | |||
| 18151 | "tau : rank-1 array('f') with bounds (MIN(m,n))\n" | |||
| 18152 | "work : rank-1 array('f') with bounds (MAX(lwork,1))\n" | |||
| 18153 | "info : int"; | |||
| 18154 | /* extern void F_FUNC(sgeqp3,SGEQP3)(F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 18155 | static PyObject *f2py_rout__flapack_sgeqp3(const PyObject *capi_self, | |||
| 18156 | PyObject *capi_args, | |||
| 18157 | PyObject *capi_keywds, | |||
| 18158 | void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 18159 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 18160 | volatile int f2py_success = 1; | |||
| 18161 | /*decl*/ | |||
| 18162 | ||||
| 18163 | int m = 0; | |||
| 18164 | int n = 0; | |||
| 18165 | float *a = NULL((void*)0); | |||
| 18166 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 18167 | const int a_Rank = 2; | |||
| 18168 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 18169 | int capi_a_intent = 0; | |||
| 18170 | int capi_overwrite_a = 0; | |||
| 18171 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 18172 | int *jpvt = NULL((void*)0); | |||
| 18173 | npy_intp jpvt_Dims[1] = {-1}; | |||
| 18174 | const int jpvt_Rank = 1; | |||
| 18175 | PyArrayObject *capi_jpvt_tmp = NULL((void*)0); | |||
| 18176 | int capi_jpvt_intent = 0; | |||
| 18177 | float *tau = NULL((void*)0); | |||
| 18178 | npy_intp tau_Dims[1] = {-1}; | |||
| 18179 | const int tau_Rank = 1; | |||
| 18180 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 18181 | int capi_tau_intent = 0; | |||
| 18182 | float *work = NULL((void*)0); | |||
| 18183 | npy_intp work_Dims[1] = {-1}; | |||
| 18184 | const int work_Rank = 1; | |||
| 18185 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 18186 | int capi_work_intent = 0; | |||
| 18187 | int lwork = 0; | |||
| 18188 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 18189 | int info = 0; | |||
| 18190 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 18191 | ||||
| 18192 | /*routdebugenter*/ | |||
| 18193 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18194 | f2py_start_clock(); | |||
| 18195 | #endif | |||
| 18196 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 18197 | "O|Oi:_flapack.sgeqp3",\ | |||
| 18198 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 18199 | return NULL((void*)0); | |||
| 18200 | /*frompyobj*/ | |||
| 18201 | /* Processing variable a */ | |||
| 18202 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 18203 | ; | |||
| 18204 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 18205 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 18206 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 18207 | if (!PyErr_Occurred()) | |||
| 18208 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgeqp3 to C/Fortran array" ); | |||
| 18209 | } else { | |||
| 18210 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 18211 | ||||
| 18212 | /* Processing variable info */ | |||
| 18213 | /* Processing variable m */ | |||
| 18214 | m = shape(a,0)a_Dims[0]; | |||
| 18215 | /* Processing variable n */ | |||
| 18216 | n = shape(a,1)a_Dims[1]; | |||
| 18217 | /* Processing variable jpvt */ | |||
| 18218 | jpvt_Dims[0]=n; | |||
| 18219 | capi_jpvt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18220 | capi_jpvt_tmp = array_from_pyobj(NPY_INT,jpvt_Dims,jpvt_Rank,capi_jpvt_intent,Py_None(&_Py_NoneStruct)); | |||
| 18221 | if (capi_jpvt_tmp == NULL((void*)0)) { | |||
| 18222 | if (!PyErr_Occurred()) | |||
| 18223 | PyErr_SetString(_flapack_error,"failed in converting hidden `jpvt' of _flapack.sgeqp3 to C/Fortran array" ); | |||
| 18224 | } else { | |||
| 18225 | jpvt = (int *)(PyArray_DATA(capi_jpvt_tmp)((void *)((PyArrayObject_fields *)(capi_jpvt_tmp))->data)); | |||
| 18226 | ||||
| 18227 | /* Processing variable tau */ | |||
| 18228 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 18229 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18230 | capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 18231 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 18232 | if (!PyErr_Occurred()) | |||
| 18233 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.sgeqp3 to C/Fortran array" ); | |||
| 18234 | } else { | |||
| 18235 | tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 18236 | ||||
| 18237 | /* Processing variable lwork */ | |||
| 18238 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*(n+1),1)((3*(n+1) > 1) ? (3*(n+1)) : (1)); else | |||
| 18239 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgeqp3() 1st keyword (lwork) can't be converted to int"); | |||
| 18240 | if (f2py_success) { | |||
| 18241 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","sgeqp3:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeqp3:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 18242 | /* Processing variable work */ | |||
| 18243 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 18244 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18245 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 18246 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 18247 | if (!PyErr_Occurred()) | |||
| 18248 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgeqp3 to C/Fortran array" ); | |||
| 18249 | } else { | |||
| 18250 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 18251 | ||||
| 18252 | /*end of frompyobj*/ | |||
| 18253 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18254 | f2py_start_call_clock(); | |||
| 18255 | #endif | |||
| 18256 | /*callfortranroutine*/ | |||
| 18257 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 18258 | (*f2py_func)(&m,&n,a,&m,jpvt,tau,work,&lwork,&info) ; | |||
| 18259 | /*(*f2py_func)(&m,&n,a,jpvt,tau,work,&lwork,&info);*/ | |||
| 18260 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 18261 | if (PyErr_Occurred()) | |||
| 18262 | f2py_success = 0; | |||
| 18263 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18264 | f2py_stop_call_clock(); | |||
| 18265 | #endif | |||
| 18266 | /*end of callfortranroutine*/ | |||
| 18267 | if (f2py_success) { | |||
| 18268 | /*pyobjfrom*/ | |||
| 18269 | /*end of pyobjfrom*/ | |||
| 18270 | CFUNCSMESS("Building return value.\n"); | |||
| 18271 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_jpvt_tmp,capi_tau_tmp,capi_work_tmp,info); | |||
| 18272 | /*closepyobjfrom*/ | |||
| 18273 | /*end of closepyobjfrom*/ | |||
| 18274 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 18275 | /*cleanupfrompyobj*/ | |||
| 18276 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 18277 | /* End of cleaning variable work */ | |||
| 18278 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 18279 | } /*if (f2py_success) of lwork*/ | |||
| 18280 | /* End of cleaning variable lwork */ | |||
| 18281 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 18282 | /* End of cleaning variable tau */ | |||
| 18283 | } /*if (capi_jpvt_tmp == NULL) ... else of jpvt*/ | |||
| 18284 | /* End of cleaning variable jpvt */ | |||
| 18285 | /* End of cleaning variable n */ | |||
| 18286 | /* End of cleaning variable m */ | |||
| 18287 | /* End of cleaning variable info */ | |||
| 18288 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 18289 | /* End of cleaning variable a */ | |||
| 18290 | /*end of cleanupfrompyobj*/ | |||
| 18291 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 18292 | /*routdebugfailure*/ | |||
| 18293 | } else { | |||
| 18294 | /*routdebugleave*/ | |||
| 18295 | } | |||
| 18296 | CFUNCSMESS("Freeing memory.\n"); | |||
| 18297 | /*freemem*/ | |||
| 18298 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18299 | f2py_stop_clock(); | |||
| 18300 | #endif | |||
| 18301 | return capi_buildvalue; | |||
| 18302 | } | |||
| 18303 | /******************************* end of sgeqp3 *******************************/ | |||
| 18304 | ||||
| 18305 | /*********************************** dgeqp3 ***********************************/ | |||
| 18306 | static char doc_f2py_rout__flapack_dgeqp3[] = "\ | |||
| 18307 | qr,jpvt,tau,work,info = dgeqp3(a,[lwork,overwrite_a])\n\nWrapper for ``dgeqp3``.\ | |||
| 18308 | \n\nParameters\n----------\n" | |||
| 18309 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 18310 | "\nOther Parameters\n----------------\n" | |||
| 18311 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 18312 | "lwork : input int, optional\n Default: max(3*(n+1),1)\n" | |||
| 18313 | "\nReturns\n-------\n" | |||
| 18314 | "qr : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 18315 | "jpvt : rank-1 array('i') with bounds (n)\n" | |||
| 18316 | "tau : rank-1 array('d') with bounds (MIN(m,n))\n" | |||
| 18317 | "work : rank-1 array('d') with bounds (MAX(lwork,1))\n" | |||
| 18318 | "info : int"; | |||
| 18319 | /* extern void F_FUNC(dgeqp3,DGEQP3)(F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 18320 | static PyObject *f2py_rout__flapack_dgeqp3(const PyObject *capi_self, | |||
| 18321 | PyObject *capi_args, | |||
| 18322 | PyObject *capi_keywds, | |||
| 18323 | void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 18324 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 18325 | volatile int f2py_success = 1; | |||
| 18326 | /*decl*/ | |||
| 18327 | ||||
| 18328 | int m = 0; | |||
| 18329 | int n = 0; | |||
| 18330 | double *a = NULL((void*)0); | |||
| 18331 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 18332 | const int a_Rank = 2; | |||
| 18333 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 18334 | int capi_a_intent = 0; | |||
| 18335 | int capi_overwrite_a = 0; | |||
| 18336 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 18337 | int *jpvt = NULL((void*)0); | |||
| 18338 | npy_intp jpvt_Dims[1] = {-1}; | |||
| 18339 | const int jpvt_Rank = 1; | |||
| 18340 | PyArrayObject *capi_jpvt_tmp = NULL((void*)0); | |||
| 18341 | int capi_jpvt_intent = 0; | |||
| 18342 | double *tau = NULL((void*)0); | |||
| 18343 | npy_intp tau_Dims[1] = {-1}; | |||
| 18344 | const int tau_Rank = 1; | |||
| 18345 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 18346 | int capi_tau_intent = 0; | |||
| 18347 | double *work = NULL((void*)0); | |||
| 18348 | npy_intp work_Dims[1] = {-1}; | |||
| 18349 | const int work_Rank = 1; | |||
| 18350 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 18351 | int capi_work_intent = 0; | |||
| 18352 | int lwork = 0; | |||
| 18353 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 18354 | int info = 0; | |||
| 18355 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 18356 | ||||
| 18357 | /*routdebugenter*/ | |||
| 18358 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18359 | f2py_start_clock(); | |||
| 18360 | #endif | |||
| 18361 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 18362 | "O|Oi:_flapack.dgeqp3",\ | |||
| 18363 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 18364 | return NULL((void*)0); | |||
| 18365 | /*frompyobj*/ | |||
| 18366 | /* Processing variable a */ | |||
| 18367 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 18368 | ; | |||
| 18369 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 18370 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 18371 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 18372 | if (!PyErr_Occurred()) | |||
| 18373 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgeqp3 to C/Fortran array" ); | |||
| 18374 | } else { | |||
| 18375 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 18376 | ||||
| 18377 | /* Processing variable info */ | |||
| 18378 | /* Processing variable m */ | |||
| 18379 | m = shape(a,0)a_Dims[0]; | |||
| 18380 | /* Processing variable n */ | |||
| 18381 | n = shape(a,1)a_Dims[1]; | |||
| 18382 | /* Processing variable jpvt */ | |||
| 18383 | jpvt_Dims[0]=n; | |||
| 18384 | capi_jpvt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18385 | capi_jpvt_tmp = array_from_pyobj(NPY_INT,jpvt_Dims,jpvt_Rank,capi_jpvt_intent,Py_None(&_Py_NoneStruct)); | |||
| 18386 | if (capi_jpvt_tmp == NULL((void*)0)) { | |||
| 18387 | if (!PyErr_Occurred()) | |||
| 18388 | PyErr_SetString(_flapack_error,"failed in converting hidden `jpvt' of _flapack.dgeqp3 to C/Fortran array" ); | |||
| 18389 | } else { | |||
| 18390 | jpvt = (int *)(PyArray_DATA(capi_jpvt_tmp)((void *)((PyArrayObject_fields *)(capi_jpvt_tmp))->data)); | |||
| 18391 | ||||
| 18392 | /* Processing variable tau */ | |||
| 18393 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 18394 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18395 | capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 18396 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 18397 | if (!PyErr_Occurred()) | |||
| 18398 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dgeqp3 to C/Fortran array" ); | |||
| 18399 | } else { | |||
| 18400 | tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 18401 | ||||
| 18402 | /* Processing variable lwork */ | |||
| 18403 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*(n+1),1)((3*(n+1) > 1) ? (3*(n+1)) : (1)); else | |||
| 18404 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgeqp3() 1st keyword (lwork) can't be converted to int"); | |||
| 18405 | if (f2py_success) { | |||
| 18406 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","dgeqp3:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeqp3:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 18407 | /* Processing variable work */ | |||
| 18408 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 18409 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18410 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 18411 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 18412 | if (!PyErr_Occurred()) | |||
| 18413 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgeqp3 to C/Fortran array" ); | |||
| 18414 | } else { | |||
| 18415 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 18416 | ||||
| 18417 | /*end of frompyobj*/ | |||
| 18418 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18419 | f2py_start_call_clock(); | |||
| 18420 | #endif | |||
| 18421 | /*callfortranroutine*/ | |||
| 18422 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 18423 | (*f2py_func)(&m,&n,a,&m,jpvt,tau,work,&lwork,&info) ; | |||
| 18424 | /*(*f2py_func)(&m,&n,a,jpvt,tau,work,&lwork,&info);*/ | |||
| 18425 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 18426 | if (PyErr_Occurred()) | |||
| 18427 | f2py_success = 0; | |||
| 18428 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18429 | f2py_stop_call_clock(); | |||
| 18430 | #endif | |||
| 18431 | /*end of callfortranroutine*/ | |||
| 18432 | if (f2py_success) { | |||
| 18433 | /*pyobjfrom*/ | |||
| 18434 | /*end of pyobjfrom*/ | |||
| 18435 | CFUNCSMESS("Building return value.\n"); | |||
| 18436 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_jpvt_tmp,capi_tau_tmp,capi_work_tmp,info); | |||
| 18437 | /*closepyobjfrom*/ | |||
| 18438 | /*end of closepyobjfrom*/ | |||
| 18439 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 18440 | /*cleanupfrompyobj*/ | |||
| 18441 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 18442 | /* End of cleaning variable work */ | |||
| 18443 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 18444 | } /*if (f2py_success) of lwork*/ | |||
| 18445 | /* End of cleaning variable lwork */ | |||
| 18446 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 18447 | /* End of cleaning variable tau */ | |||
| 18448 | } /*if (capi_jpvt_tmp == NULL) ... else of jpvt*/ | |||
| 18449 | /* End of cleaning variable jpvt */ | |||
| 18450 | /* End of cleaning variable n */ | |||
| 18451 | /* End of cleaning variable m */ | |||
| 18452 | /* End of cleaning variable info */ | |||
| 18453 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 18454 | /* End of cleaning variable a */ | |||
| 18455 | /*end of cleanupfrompyobj*/ | |||
| 18456 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 18457 | /*routdebugfailure*/ | |||
| 18458 | } else { | |||
| 18459 | /*routdebugleave*/ | |||
| 18460 | } | |||
| 18461 | CFUNCSMESS("Freeing memory.\n"); | |||
| 18462 | /*freemem*/ | |||
| 18463 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18464 | f2py_stop_clock(); | |||
| 18465 | #endif | |||
| 18466 | return capi_buildvalue; | |||
| 18467 | } | |||
| 18468 | /******************************* end of dgeqp3 *******************************/ | |||
| 18469 | ||||
| 18470 | /*********************************** cgeqp3 ***********************************/ | |||
| 18471 | static char doc_f2py_rout__flapack_cgeqp3[] = "\ | |||
| 18472 | qr,jpvt,tau,work,info = cgeqp3(a,[lwork,overwrite_a])\n\nWrapper for ``cgeqp3``.\ | |||
| 18473 | \n\nParameters\n----------\n" | |||
| 18474 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 18475 | "\nOther Parameters\n----------------\n" | |||
| 18476 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 18477 | "lwork : input int, optional\n Default: max(3*(n+1),1)\n" | |||
| 18478 | "\nReturns\n-------\n" | |||
| 18479 | "qr : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 18480 | "jpvt : rank-1 array('i') with bounds (n)\n" | |||
| 18481 | "tau : rank-1 array('F') with bounds (MIN(m,n))\n" | |||
| 18482 | "work : rank-1 array('F') with bounds (MAX(lwork,1))\n" | |||
| 18483 | "info : int"; | |||
| 18484 | /* extern void F_FUNC(cgeqp3,CGEQP3)(F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 18485 | static PyObject *f2py_rout__flapack_cgeqp3(const PyObject *capi_self, | |||
| 18486 | PyObject *capi_args, | |||
| 18487 | PyObject *capi_keywds, | |||
| 18488 | void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 18489 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 18490 | volatile int f2py_success = 1; | |||
| 18491 | /*decl*/ | |||
| 18492 | ||||
| 18493 | int m = 0; | |||
| 18494 | int n = 0; | |||
| 18495 | complex_float *a = NULL((void*)0); | |||
| 18496 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 18497 | const int a_Rank = 2; | |||
| 18498 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 18499 | int capi_a_intent = 0; | |||
| 18500 | int capi_overwrite_a = 0; | |||
| 18501 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 18502 | int *jpvt = NULL((void*)0); | |||
| 18503 | npy_intp jpvt_Dims[1] = {-1}; | |||
| 18504 | const int jpvt_Rank = 1; | |||
| 18505 | PyArrayObject *capi_jpvt_tmp = NULL((void*)0); | |||
| 18506 | int capi_jpvt_intent = 0; | |||
| 18507 | complex_float *tau = NULL((void*)0); | |||
| 18508 | npy_intp tau_Dims[1] = {-1}; | |||
| 18509 | const int tau_Rank = 1; | |||
| 18510 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 18511 | int capi_tau_intent = 0; | |||
| 18512 | complex_float *work = NULL((void*)0); | |||
| 18513 | npy_intp work_Dims[1] = {-1}; | |||
| 18514 | const int work_Rank = 1; | |||
| 18515 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 18516 | int capi_work_intent = 0; | |||
| 18517 | int lwork = 0; | |||
| 18518 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 18519 | float *rwork = NULL((void*)0); | |||
| 18520 | npy_intp rwork_Dims[1] = {-1}; | |||
| 18521 | const int rwork_Rank = 1; | |||
| 18522 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 18523 | int capi_rwork_intent = 0; | |||
| 18524 | int info = 0; | |||
| 18525 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 18526 | ||||
| 18527 | /*routdebugenter*/ | |||
| 18528 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18529 | f2py_start_clock(); | |||
| 18530 | #endif | |||
| 18531 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 18532 | "O|Oi:_flapack.cgeqp3",\ | |||
| 18533 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 18534 | return NULL((void*)0); | |||
| 18535 | /*frompyobj*/ | |||
| 18536 | /* Processing variable a */ | |||
| 18537 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 18538 | ; | |||
| 18539 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 18540 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 18541 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 18542 | if (!PyErr_Occurred()) | |||
| 18543 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgeqp3 to C/Fortran array" ); | |||
| 18544 | } else { | |||
| 18545 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 18546 | ||||
| 18547 | /* Processing variable info */ | |||
| 18548 | /* Processing variable m */ | |||
| 18549 | m = shape(a,0)a_Dims[0]; | |||
| 18550 | /* Processing variable n */ | |||
| 18551 | n = shape(a,1)a_Dims[1]; | |||
| 18552 | /* Processing variable jpvt */ | |||
| 18553 | jpvt_Dims[0]=n; | |||
| 18554 | capi_jpvt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18555 | capi_jpvt_tmp = array_from_pyobj(NPY_INT,jpvt_Dims,jpvt_Rank,capi_jpvt_intent,Py_None(&_Py_NoneStruct)); | |||
| 18556 | if (capi_jpvt_tmp == NULL((void*)0)) { | |||
| 18557 | if (!PyErr_Occurred()) | |||
| 18558 | PyErr_SetString(_flapack_error,"failed in converting hidden `jpvt' of _flapack.cgeqp3 to C/Fortran array" ); | |||
| 18559 | } else { | |||
| 18560 | jpvt = (int *)(PyArray_DATA(capi_jpvt_tmp)((void *)((PyArrayObject_fields *)(capi_jpvt_tmp))->data)); | |||
| 18561 | ||||
| 18562 | /* Processing variable tau */ | |||
| 18563 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 18564 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18565 | capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 18566 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 18567 | if (!PyErr_Occurred()) | |||
| 18568 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.cgeqp3 to C/Fortran array" ); | |||
| 18569 | } else { | |||
| 18570 | tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 18571 | ||||
| 18572 | /* Processing variable lwork */ | |||
| 18573 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*(n+1),1)((3*(n+1) > 1) ? (3*(n+1)) : (1)); else | |||
| 18574 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgeqp3() 1st keyword (lwork) can't be converted to int"); | |||
| 18575 | if (f2py_success) { | |||
| 18576 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","cgeqp3:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeqp3:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 18577 | /* Processing variable work */ | |||
| 18578 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 18579 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18580 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 18581 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 18582 | if (!PyErr_Occurred()) | |||
| 18583 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgeqp3 to C/Fortran array" ); | |||
| 18584 | } else { | |||
| 18585 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 18586 | ||||
| 18587 | /* Processing variable rwork */ | |||
| 18588 | rwork_Dims[0]=2 * n; | |||
| 18589 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 18590 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 18591 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 18592 | if (!PyErr_Occurred()) | |||
| 18593 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgeqp3 to C/Fortran array" ); | |||
| 18594 | } else { | |||
| 18595 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 18596 | ||||
| 18597 | /*end of frompyobj*/ | |||
| 18598 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18599 | f2py_start_call_clock(); | |||
| 18600 | #endif | |||
| 18601 | /*callfortranroutine*/ | |||
| 18602 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 18603 | (*f2py_func)(&m,&n,a,&m,jpvt,tau,work,&lwork,rwork,&info) ; | |||
| 18604 | /*(*f2py_func)(&m,&n,a,jpvt,tau,work,&lwork,rwork,&info);*/ | |||
| 18605 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 18606 | if (PyErr_Occurred()) | |||
| 18607 | f2py_success = 0; | |||
| 18608 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18609 | f2py_stop_call_clock(); | |||
| 18610 | #endif | |||
| 18611 | /*end of callfortranroutine*/ | |||
| 18612 | if (f2py_success) { | |||
| 18613 | /*pyobjfrom*/ | |||
| 18614 | /*end of pyobjfrom*/ | |||
| 18615 | CFUNCSMESS("Building return value.\n"); | |||
| 18616 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_jpvt_tmp,capi_tau_tmp,capi_work_tmp,info); | |||
| 18617 | /*closepyobjfrom*/ | |||
| 18618 | /*end of closepyobjfrom*/ | |||
| 18619 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 18620 | /*cleanupfrompyobj*/ | |||
| 18621 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 18622 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 18623 | /* End of cleaning variable rwork */ | |||
| 18624 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 18625 | /* End of cleaning variable work */ | |||
| 18626 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 18627 | } /*if (f2py_success) of lwork*/ | |||
| 18628 | /* End of cleaning variable lwork */ | |||
| 18629 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 18630 | /* End of cleaning variable tau */ | |||
| 18631 | } /*if (capi_jpvt_tmp == NULL) ... else of jpvt*/ | |||
| 18632 | /* End of cleaning variable jpvt */ | |||
| 18633 | /* End of cleaning variable n */ | |||
| 18634 | /* End of cleaning variable m */ | |||
| 18635 | /* End of cleaning variable info */ | |||
| 18636 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 18637 | /* End of cleaning variable a */ | |||
| 18638 | /*end of cleanupfrompyobj*/ | |||
| 18639 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 18640 | /*routdebugfailure*/ | |||
| 18641 | } else { | |||
| 18642 | /*routdebugleave*/ | |||
| 18643 | } | |||
| 18644 | CFUNCSMESS("Freeing memory.\n"); | |||
| 18645 | /*freemem*/ | |||
| 18646 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18647 | f2py_stop_clock(); | |||
| 18648 | #endif | |||
| 18649 | return capi_buildvalue; | |||
| 18650 | } | |||
| 18651 | /******************************* end of cgeqp3 *******************************/ | |||
| 18652 | ||||
| 18653 | /*********************************** zgeqp3 ***********************************/ | |||
| 18654 | static char doc_f2py_rout__flapack_zgeqp3[] = "\ | |||
| 18655 | qr,jpvt,tau,work,info = zgeqp3(a,[lwork,overwrite_a])\n\nWrapper for ``zgeqp3``.\ | |||
| 18656 | \n\nParameters\n----------\n" | |||
| 18657 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 18658 | "\nOther Parameters\n----------------\n" | |||
| 18659 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 18660 | "lwork : input int, optional\n Default: max(3*(n+1),1)\n" | |||
| 18661 | "\nReturns\n-------\n" | |||
| 18662 | "qr : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 18663 | "jpvt : rank-1 array('i') with bounds (n)\n" | |||
| 18664 | "tau : rank-1 array('D') with bounds (MIN(m,n))\n" | |||
| 18665 | "work : rank-1 array('D') with bounds (MAX(lwork,1))\n" | |||
| 18666 | "info : int"; | |||
| 18667 | /* extern void F_FUNC(zgeqp3,ZGEQP3)(F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 18668 | static PyObject *f2py_rout__flapack_zgeqp3(const PyObject *capi_self, | |||
| 18669 | PyObject *capi_args, | |||
| 18670 | PyObject *capi_keywds, | |||
| 18671 | void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 18672 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 18673 | volatile int f2py_success = 1; | |||
| 18674 | /*decl*/ | |||
| 18675 | ||||
| 18676 | int m = 0; | |||
| 18677 | int n = 0; | |||
| 18678 | complex_double *a = NULL((void*)0); | |||
| 18679 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 18680 | const int a_Rank = 2; | |||
| 18681 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 18682 | int capi_a_intent = 0; | |||
| 18683 | int capi_overwrite_a = 0; | |||
| 18684 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 18685 | int *jpvt = NULL((void*)0); | |||
| 18686 | npy_intp jpvt_Dims[1] = {-1}; | |||
| 18687 | const int jpvt_Rank = 1; | |||
| 18688 | PyArrayObject *capi_jpvt_tmp = NULL((void*)0); | |||
| 18689 | int capi_jpvt_intent = 0; | |||
| 18690 | complex_double *tau = NULL((void*)0); | |||
| 18691 | npy_intp tau_Dims[1] = {-1}; | |||
| 18692 | const int tau_Rank = 1; | |||
| 18693 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 18694 | int capi_tau_intent = 0; | |||
| 18695 | complex_double *work = NULL((void*)0); | |||
| 18696 | npy_intp work_Dims[1] = {-1}; | |||
| 18697 | const int work_Rank = 1; | |||
| 18698 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 18699 | int capi_work_intent = 0; | |||
| 18700 | int lwork = 0; | |||
| 18701 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 18702 | double *rwork = NULL((void*)0); | |||
| 18703 | npy_intp rwork_Dims[1] = {-1}; | |||
| 18704 | const int rwork_Rank = 1; | |||
| 18705 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 18706 | int capi_rwork_intent = 0; | |||
| 18707 | int info = 0; | |||
| 18708 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 18709 | ||||
| 18710 | /*routdebugenter*/ | |||
| 18711 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18712 | f2py_start_clock(); | |||
| 18713 | #endif | |||
| 18714 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 18715 | "O|Oi:_flapack.zgeqp3",\ | |||
| 18716 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 18717 | return NULL((void*)0); | |||
| 18718 | /*frompyobj*/ | |||
| 18719 | /* Processing variable a */ | |||
| 18720 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 18721 | ; | |||
| 18722 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 18723 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 18724 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 18725 | if (!PyErr_Occurred()) | |||
| 18726 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgeqp3 to C/Fortran array" ); | |||
| 18727 | } else { | |||
| 18728 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 18729 | ||||
| 18730 | /* Processing variable info */ | |||
| 18731 | /* Processing variable m */ | |||
| 18732 | m = shape(a,0)a_Dims[0]; | |||
| 18733 | /* Processing variable n */ | |||
| 18734 | n = shape(a,1)a_Dims[1]; | |||
| 18735 | /* Processing variable jpvt */ | |||
| 18736 | jpvt_Dims[0]=n; | |||
| 18737 | capi_jpvt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18738 | capi_jpvt_tmp = array_from_pyobj(NPY_INT,jpvt_Dims,jpvt_Rank,capi_jpvt_intent,Py_None(&_Py_NoneStruct)); | |||
| 18739 | if (capi_jpvt_tmp == NULL((void*)0)) { | |||
| 18740 | if (!PyErr_Occurred()) | |||
| 18741 | PyErr_SetString(_flapack_error,"failed in converting hidden `jpvt' of _flapack.zgeqp3 to C/Fortran array" ); | |||
| 18742 | } else { | |||
| 18743 | jpvt = (int *)(PyArray_DATA(capi_jpvt_tmp)((void *)((PyArrayObject_fields *)(capi_jpvt_tmp))->data)); | |||
| 18744 | ||||
| 18745 | /* Processing variable tau */ | |||
| 18746 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 18747 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18748 | capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 18749 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 18750 | if (!PyErr_Occurred()) | |||
| 18751 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.zgeqp3 to C/Fortran array" ); | |||
| 18752 | } else { | |||
| 18753 | tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 18754 | ||||
| 18755 | /* Processing variable lwork */ | |||
| 18756 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*(n+1),1)((3*(n+1) > 1) ? (3*(n+1)) : (1)); else | |||
| 18757 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgeqp3() 1st keyword (lwork) can't be converted to int"); | |||
| 18758 | if (f2py_success) { | |||
| 18759 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","zgeqp3:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeqp3:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 18760 | /* Processing variable work */ | |||
| 18761 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 18762 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18763 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 18764 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 18765 | if (!PyErr_Occurred()) | |||
| 18766 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgeqp3 to C/Fortran array" ); | |||
| 18767 | } else { | |||
| 18768 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 18769 | ||||
| 18770 | /* Processing variable rwork */ | |||
| 18771 | rwork_Dims[0]=2 * n; | |||
| 18772 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 18773 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 18774 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 18775 | if (!PyErr_Occurred()) | |||
| 18776 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgeqp3 to C/Fortran array" ); | |||
| 18777 | } else { | |||
| 18778 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 18779 | ||||
| 18780 | /*end of frompyobj*/ | |||
| 18781 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18782 | f2py_start_call_clock(); | |||
| 18783 | #endif | |||
| 18784 | /*callfortranroutine*/ | |||
| 18785 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 18786 | (*f2py_func)(&m,&n,a,&m,jpvt,tau,work,&lwork,rwork,&info) ; | |||
| 18787 | /*(*f2py_func)(&m,&n,a,jpvt,tau,work,&lwork,rwork,&info);*/ | |||
| 18788 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 18789 | if (PyErr_Occurred()) | |||
| 18790 | f2py_success = 0; | |||
| 18791 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18792 | f2py_stop_call_clock(); | |||
| 18793 | #endif | |||
| 18794 | /*end of callfortranroutine*/ | |||
| 18795 | if (f2py_success) { | |||
| 18796 | /*pyobjfrom*/ | |||
| 18797 | /*end of pyobjfrom*/ | |||
| 18798 | CFUNCSMESS("Building return value.\n"); | |||
| 18799 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_jpvt_tmp,capi_tau_tmp,capi_work_tmp,info); | |||
| 18800 | /*closepyobjfrom*/ | |||
| 18801 | /*end of closepyobjfrom*/ | |||
| 18802 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 18803 | /*cleanupfrompyobj*/ | |||
| 18804 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 18805 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 18806 | /* End of cleaning variable rwork */ | |||
| 18807 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 18808 | /* End of cleaning variable work */ | |||
| 18809 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 18810 | } /*if (f2py_success) of lwork*/ | |||
| 18811 | /* End of cleaning variable lwork */ | |||
| 18812 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 18813 | /* End of cleaning variable tau */ | |||
| 18814 | } /*if (capi_jpvt_tmp == NULL) ... else of jpvt*/ | |||
| 18815 | /* End of cleaning variable jpvt */ | |||
| 18816 | /* End of cleaning variable n */ | |||
| 18817 | /* End of cleaning variable m */ | |||
| 18818 | /* End of cleaning variable info */ | |||
| 18819 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 18820 | /* End of cleaning variable a */ | |||
| 18821 | /*end of cleanupfrompyobj*/ | |||
| 18822 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 18823 | /*routdebugfailure*/ | |||
| 18824 | } else { | |||
| 18825 | /*routdebugleave*/ | |||
| 18826 | } | |||
| 18827 | CFUNCSMESS("Freeing memory.\n"); | |||
| 18828 | /*freemem*/ | |||
| 18829 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18830 | f2py_stop_clock(); | |||
| 18831 | #endif | |||
| 18832 | return capi_buildvalue; | |||
| 18833 | } | |||
| 18834 | /******************************* end of zgeqp3 *******************************/ | |||
| 18835 | ||||
| 18836 | /*********************************** sgeqrf ***********************************/ | |||
| 18837 | static char doc_f2py_rout__flapack_sgeqrf[] = "\ | |||
| 18838 | qr,tau,work,info = sgeqrf(a,[lwork,overwrite_a])\n\nWrapper for ``sgeqrf``.\ | |||
| 18839 | \n\nParameters\n----------\n" | |||
| 18840 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 18841 | "\nOther Parameters\n----------------\n" | |||
| 18842 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 18843 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 18844 | "\nReturns\n-------\n" | |||
| 18845 | "qr : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 18846 | "tau : rank-1 array('f') with bounds (MIN(m,n))\n" | |||
| 18847 | "work : rank-1 array('f') with bounds (MAX(lwork,1))\n" | |||
| 18848 | "info : int"; | |||
| 18849 | /* extern void F_FUNC(sgeqrf,SGEQRF)(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 18850 | static PyObject *f2py_rout__flapack_sgeqrf(const PyObject *capi_self, | |||
| 18851 | PyObject *capi_args, | |||
| 18852 | PyObject *capi_keywds, | |||
| 18853 | void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 18854 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 18855 | volatile int f2py_success = 1; | |||
| 18856 | /*decl*/ | |||
| 18857 | ||||
| 18858 | int m = 0; | |||
| 18859 | int n = 0; | |||
| 18860 | float *a = NULL((void*)0); | |||
| 18861 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 18862 | const int a_Rank = 2; | |||
| 18863 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 18864 | int capi_a_intent = 0; | |||
| 18865 | int capi_overwrite_a = 0; | |||
| 18866 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 18867 | float *tau = NULL((void*)0); | |||
| 18868 | npy_intp tau_Dims[1] = {-1}; | |||
| 18869 | const int tau_Rank = 1; | |||
| 18870 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 18871 | int capi_tau_intent = 0; | |||
| 18872 | float *work = NULL((void*)0); | |||
| 18873 | npy_intp work_Dims[1] = {-1}; | |||
| 18874 | const int work_Rank = 1; | |||
| 18875 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 18876 | int capi_work_intent = 0; | |||
| 18877 | int lwork = 0; | |||
| 18878 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 18879 | int info = 0; | |||
| 18880 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 18881 | ||||
| 18882 | /*routdebugenter*/ | |||
| 18883 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18884 | f2py_start_clock(); | |||
| 18885 | #endif | |||
| 18886 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 18887 | "O|Oi:_flapack.sgeqrf",\ | |||
| 18888 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 18889 | return NULL((void*)0); | |||
| 18890 | /*frompyobj*/ | |||
| 18891 | /* Processing variable a */ | |||
| 18892 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 18893 | ; | |||
| 18894 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 18895 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 18896 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 18897 | if (!PyErr_Occurred()) | |||
| 18898 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgeqrf to C/Fortran array" ); | |||
| 18899 | } else { | |||
| 18900 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 18901 | ||||
| 18902 | /* Processing variable info */ | |||
| 18903 | /* Processing variable m */ | |||
| 18904 | m = shape(a,0)a_Dims[0]; | |||
| 18905 | /* Processing variable n */ | |||
| 18906 | n = shape(a,1)a_Dims[1]; | |||
| 18907 | /* Processing variable tau */ | |||
| 18908 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 18909 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18910 | capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 18911 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 18912 | if (!PyErr_Occurred()) | |||
| 18913 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.sgeqrf to C/Fortran array" ); | |||
| 18914 | } else { | |||
| 18915 | tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 18916 | ||||
| 18917 | /* Processing variable lwork */ | |||
| 18918 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 18919 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgeqrf() 1st keyword (lwork) can't be converted to int"); | |||
| 18920 | if (f2py_success) { | |||
| 18921 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","sgeqrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeqrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 18922 | /* Processing variable work */ | |||
| 18923 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 18924 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 18925 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 18926 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 18927 | if (!PyErr_Occurred()) | |||
| 18928 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgeqrf to C/Fortran array" ); | |||
| 18929 | } else { | |||
| 18930 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 18931 | ||||
| 18932 | /*end of frompyobj*/ | |||
| 18933 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18934 | f2py_start_call_clock(); | |||
| 18935 | #endif | |||
| 18936 | /*callfortranroutine*/ | |||
| 18937 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 18938 | (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ; | |||
| 18939 | /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/ | |||
| 18940 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 18941 | if (PyErr_Occurred()) | |||
| 18942 | f2py_success = 0; | |||
| 18943 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18944 | f2py_stop_call_clock(); | |||
| 18945 | #endif | |||
| 18946 | /*end of callfortranroutine*/ | |||
| 18947 | if (f2py_success) { | |||
| 18948 | /*pyobjfrom*/ | |||
| 18949 | /*end of pyobjfrom*/ | |||
| 18950 | CFUNCSMESS("Building return value.\n"); | |||
| 18951 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info); | |||
| 18952 | /*closepyobjfrom*/ | |||
| 18953 | /*end of closepyobjfrom*/ | |||
| 18954 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 18955 | /*cleanupfrompyobj*/ | |||
| 18956 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 18957 | /* End of cleaning variable work */ | |||
| 18958 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 18959 | } /*if (f2py_success) of lwork*/ | |||
| 18960 | /* End of cleaning variable lwork */ | |||
| 18961 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 18962 | /* End of cleaning variable tau */ | |||
| 18963 | /* End of cleaning variable n */ | |||
| 18964 | /* End of cleaning variable m */ | |||
| 18965 | /* End of cleaning variable info */ | |||
| 18966 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 18967 | /* End of cleaning variable a */ | |||
| 18968 | /*end of cleanupfrompyobj*/ | |||
| 18969 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 18970 | /*routdebugfailure*/ | |||
| 18971 | } else { | |||
| 18972 | /*routdebugleave*/ | |||
| 18973 | } | |||
| 18974 | CFUNCSMESS("Freeing memory.\n"); | |||
| 18975 | /*freemem*/ | |||
| 18976 | #ifdef F2PY_REPORT_ATEXIT | |||
| 18977 | f2py_stop_clock(); | |||
| 18978 | #endif | |||
| 18979 | return capi_buildvalue; | |||
| 18980 | } | |||
| 18981 | /******************************* end of sgeqrf *******************************/ | |||
| 18982 | ||||
| 18983 | /*********************************** dgeqrf ***********************************/ | |||
| 18984 | static char doc_f2py_rout__flapack_dgeqrf[] = "\ | |||
| 18985 | qr,tau,work,info = dgeqrf(a,[lwork,overwrite_a])\n\nWrapper for ``dgeqrf``.\ | |||
| 18986 | \n\nParameters\n----------\n" | |||
| 18987 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 18988 | "\nOther Parameters\n----------------\n" | |||
| 18989 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 18990 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 18991 | "\nReturns\n-------\n" | |||
| 18992 | "qr : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 18993 | "tau : rank-1 array('d') with bounds (MIN(m,n))\n" | |||
| 18994 | "work : rank-1 array('d') with bounds (MAX(lwork,1))\n" | |||
| 18995 | "info : int"; | |||
| 18996 | /* extern void F_FUNC(dgeqrf,DGEQRF)(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 18997 | static PyObject *f2py_rout__flapack_dgeqrf(const PyObject *capi_self, | |||
| 18998 | PyObject *capi_args, | |||
| 18999 | PyObject *capi_keywds, | |||
| 19000 | void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 19001 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 19002 | volatile int f2py_success = 1; | |||
| 19003 | /*decl*/ | |||
| 19004 | ||||
| 19005 | int m = 0; | |||
| 19006 | int n = 0; | |||
| 19007 | double *a = NULL((void*)0); | |||
| 19008 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 19009 | const int a_Rank = 2; | |||
| 19010 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 19011 | int capi_a_intent = 0; | |||
| 19012 | int capi_overwrite_a = 0; | |||
| 19013 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 19014 | double *tau = NULL((void*)0); | |||
| 19015 | npy_intp tau_Dims[1] = {-1}; | |||
| 19016 | const int tau_Rank = 1; | |||
| 19017 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 19018 | int capi_tau_intent = 0; | |||
| 19019 | double *work = NULL((void*)0); | |||
| 19020 | npy_intp work_Dims[1] = {-1}; | |||
| 19021 | const int work_Rank = 1; | |||
| 19022 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 19023 | int capi_work_intent = 0; | |||
| 19024 | int lwork = 0; | |||
| 19025 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 19026 | int info = 0; | |||
| 19027 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 19028 | ||||
| 19029 | /*routdebugenter*/ | |||
| 19030 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19031 | f2py_start_clock(); | |||
| 19032 | #endif | |||
| 19033 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 19034 | "O|Oi:_flapack.dgeqrf",\ | |||
| 19035 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 19036 | return NULL((void*)0); | |||
| 19037 | /*frompyobj*/ | |||
| 19038 | /* Processing variable a */ | |||
| 19039 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 19040 | ; | |||
| 19041 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 19042 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 19043 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 19044 | if (!PyErr_Occurred()) | |||
| 19045 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgeqrf to C/Fortran array" ); | |||
| 19046 | } else { | |||
| 19047 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 19048 | ||||
| 19049 | /* Processing variable info */ | |||
| 19050 | /* Processing variable m */ | |||
| 19051 | m = shape(a,0)a_Dims[0]; | |||
| 19052 | /* Processing variable n */ | |||
| 19053 | n = shape(a,1)a_Dims[1]; | |||
| 19054 | /* Processing variable tau */ | |||
| 19055 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 19056 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 19057 | capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 19058 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 19059 | if (!PyErr_Occurred()) | |||
| 19060 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dgeqrf to C/Fortran array" ); | |||
| 19061 | } else { | |||
| 19062 | tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 19063 | ||||
| 19064 | /* Processing variable lwork */ | |||
| 19065 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 19066 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgeqrf() 1st keyword (lwork) can't be converted to int"); | |||
| 19067 | if (f2py_success) { | |||
| 19068 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","dgeqrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeqrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 19069 | /* Processing variable work */ | |||
| 19070 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 19071 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 19072 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 19073 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 19074 | if (!PyErr_Occurred()) | |||
| 19075 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgeqrf to C/Fortran array" ); | |||
| 19076 | } else { | |||
| 19077 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 19078 | ||||
| 19079 | /*end of frompyobj*/ | |||
| 19080 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19081 | f2py_start_call_clock(); | |||
| 19082 | #endif | |||
| 19083 | /*callfortranroutine*/ | |||
| 19084 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 19085 | (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ; | |||
| 19086 | /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/ | |||
| 19087 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 19088 | if (PyErr_Occurred()) | |||
| 19089 | f2py_success = 0; | |||
| 19090 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19091 | f2py_stop_call_clock(); | |||
| 19092 | #endif | |||
| 19093 | /*end of callfortranroutine*/ | |||
| 19094 | if (f2py_success) { | |||
| 19095 | /*pyobjfrom*/ | |||
| 19096 | /*end of pyobjfrom*/ | |||
| 19097 | CFUNCSMESS("Building return value.\n"); | |||
| 19098 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info); | |||
| 19099 | /*closepyobjfrom*/ | |||
| 19100 | /*end of closepyobjfrom*/ | |||
| 19101 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 19102 | /*cleanupfrompyobj*/ | |||
| 19103 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 19104 | /* End of cleaning variable work */ | |||
| 19105 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 19106 | } /*if (f2py_success) of lwork*/ | |||
| 19107 | /* End of cleaning variable lwork */ | |||
| 19108 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 19109 | /* End of cleaning variable tau */ | |||
| 19110 | /* End of cleaning variable n */ | |||
| 19111 | /* End of cleaning variable m */ | |||
| 19112 | /* End of cleaning variable info */ | |||
| 19113 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 19114 | /* End of cleaning variable a */ | |||
| 19115 | /*end of cleanupfrompyobj*/ | |||
| 19116 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 19117 | /*routdebugfailure*/ | |||
| 19118 | } else { | |||
| 19119 | /*routdebugleave*/ | |||
| 19120 | } | |||
| 19121 | CFUNCSMESS("Freeing memory.\n"); | |||
| 19122 | /*freemem*/ | |||
| 19123 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19124 | f2py_stop_clock(); | |||
| 19125 | #endif | |||
| 19126 | return capi_buildvalue; | |||
| 19127 | } | |||
| 19128 | /******************************* end of dgeqrf *******************************/ | |||
| 19129 | ||||
| 19130 | /*********************************** cgeqrf ***********************************/ | |||
| 19131 | static char doc_f2py_rout__flapack_cgeqrf[] = "\ | |||
| 19132 | qr,tau,work,info = cgeqrf(a,[lwork,overwrite_a])\n\nWrapper for ``cgeqrf``.\ | |||
| 19133 | \n\nParameters\n----------\n" | |||
| 19134 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 19135 | "\nOther Parameters\n----------------\n" | |||
| 19136 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 19137 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 19138 | "\nReturns\n-------\n" | |||
| 19139 | "qr : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 19140 | "tau : rank-1 array('F') with bounds (MIN(m,n))\n" | |||
| 19141 | "work : rank-1 array('F') with bounds (MAX(lwork,1))\n" | |||
| 19142 | "info : int"; | |||
| 19143 | /* extern void F_FUNC(cgeqrf,CGEQRF)(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 19144 | static PyObject *f2py_rout__flapack_cgeqrf(const PyObject *capi_self, | |||
| 19145 | PyObject *capi_args, | |||
| 19146 | PyObject *capi_keywds, | |||
| 19147 | void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 19148 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 19149 | volatile int f2py_success = 1; | |||
| 19150 | /*decl*/ | |||
| 19151 | ||||
| 19152 | int m = 0; | |||
| 19153 | int n = 0; | |||
| 19154 | complex_float *a = NULL((void*)0); | |||
| 19155 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 19156 | const int a_Rank = 2; | |||
| 19157 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 19158 | int capi_a_intent = 0; | |||
| 19159 | int capi_overwrite_a = 0; | |||
| 19160 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 19161 | complex_float *tau = NULL((void*)0); | |||
| 19162 | npy_intp tau_Dims[1] = {-1}; | |||
| 19163 | const int tau_Rank = 1; | |||
| 19164 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 19165 | int capi_tau_intent = 0; | |||
| 19166 | complex_float *work = NULL((void*)0); | |||
| 19167 | npy_intp work_Dims[1] = {-1}; | |||
| 19168 | const int work_Rank = 1; | |||
| 19169 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 19170 | int capi_work_intent = 0; | |||
| 19171 | int lwork = 0; | |||
| 19172 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 19173 | int info = 0; | |||
| 19174 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 19175 | ||||
| 19176 | /*routdebugenter*/ | |||
| 19177 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19178 | f2py_start_clock(); | |||
| 19179 | #endif | |||
| 19180 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 19181 | "O|Oi:_flapack.cgeqrf",\ | |||
| 19182 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 19183 | return NULL((void*)0); | |||
| 19184 | /*frompyobj*/ | |||
| 19185 | /* Processing variable a */ | |||
| 19186 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 19187 | ; | |||
| 19188 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 19189 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 19190 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 19191 | if (!PyErr_Occurred()) | |||
| 19192 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgeqrf to C/Fortran array" ); | |||
| 19193 | } else { | |||
| 19194 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 19195 | ||||
| 19196 | /* Processing variable info */ | |||
| 19197 | /* Processing variable m */ | |||
| 19198 | m = shape(a,0)a_Dims[0]; | |||
| 19199 | /* Processing variable n */ | |||
| 19200 | n = shape(a,1)a_Dims[1]; | |||
| 19201 | /* Processing variable tau */ | |||
| 19202 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 19203 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 19204 | capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 19205 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 19206 | if (!PyErr_Occurred()) | |||
| 19207 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.cgeqrf to C/Fortran array" ); | |||
| 19208 | } else { | |||
| 19209 | tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 19210 | ||||
| 19211 | /* Processing variable lwork */ | |||
| 19212 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 19213 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgeqrf() 1st keyword (lwork) can't be converted to int"); | |||
| 19214 | if (f2py_success) { | |||
| 19215 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","cgeqrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeqrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 19216 | /* Processing variable work */ | |||
| 19217 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 19218 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 19219 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 19220 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 19221 | if (!PyErr_Occurred()) | |||
| 19222 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgeqrf to C/Fortran array" ); | |||
| 19223 | } else { | |||
| 19224 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 19225 | ||||
| 19226 | /*end of frompyobj*/ | |||
| 19227 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19228 | f2py_start_call_clock(); | |||
| 19229 | #endif | |||
| 19230 | /*callfortranroutine*/ | |||
| 19231 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 19232 | (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ; | |||
| 19233 | /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/ | |||
| 19234 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 19235 | if (PyErr_Occurred()) | |||
| 19236 | f2py_success = 0; | |||
| 19237 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19238 | f2py_stop_call_clock(); | |||
| 19239 | #endif | |||
| 19240 | /*end of callfortranroutine*/ | |||
| 19241 | if (f2py_success) { | |||
| 19242 | /*pyobjfrom*/ | |||
| 19243 | /*end of pyobjfrom*/ | |||
| 19244 | CFUNCSMESS("Building return value.\n"); | |||
| 19245 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info); | |||
| 19246 | /*closepyobjfrom*/ | |||
| 19247 | /*end of closepyobjfrom*/ | |||
| 19248 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 19249 | /*cleanupfrompyobj*/ | |||
| 19250 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 19251 | /* End of cleaning variable work */ | |||
| 19252 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 19253 | } /*if (f2py_success) of lwork*/ | |||
| 19254 | /* End of cleaning variable lwork */ | |||
| 19255 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 19256 | /* End of cleaning variable tau */ | |||
| 19257 | /* End of cleaning variable n */ | |||
| 19258 | /* End of cleaning variable m */ | |||
| 19259 | /* End of cleaning variable info */ | |||
| 19260 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 19261 | /* End of cleaning variable a */ | |||
| 19262 | /*end of cleanupfrompyobj*/ | |||
| 19263 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 19264 | /*routdebugfailure*/ | |||
| 19265 | } else { | |||
| 19266 | /*routdebugleave*/ | |||
| 19267 | } | |||
| 19268 | CFUNCSMESS("Freeing memory.\n"); | |||
| 19269 | /*freemem*/ | |||
| 19270 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19271 | f2py_stop_clock(); | |||
| 19272 | #endif | |||
| 19273 | return capi_buildvalue; | |||
| 19274 | } | |||
| 19275 | /******************************* end of cgeqrf *******************************/ | |||
| 19276 | ||||
| 19277 | /*********************************** zgeqrf ***********************************/ | |||
| 19278 | static char doc_f2py_rout__flapack_zgeqrf[] = "\ | |||
| 19279 | qr,tau,work,info = zgeqrf(a,[lwork,overwrite_a])\n\nWrapper for ``zgeqrf``.\ | |||
| 19280 | \n\nParameters\n----------\n" | |||
| 19281 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 19282 | "\nOther Parameters\n----------------\n" | |||
| 19283 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 19284 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 19285 | "\nReturns\n-------\n" | |||
| 19286 | "qr : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 19287 | "tau : rank-1 array('D') with bounds (MIN(m,n))\n" | |||
| 19288 | "work : rank-1 array('D') with bounds (MAX(lwork,1))\n" | |||
| 19289 | "info : int"; | |||
| 19290 | /* extern void F_FUNC(zgeqrf,ZGEQRF)(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 19291 | static PyObject *f2py_rout__flapack_zgeqrf(const PyObject *capi_self, | |||
| 19292 | PyObject *capi_args, | |||
| 19293 | PyObject *capi_keywds, | |||
| 19294 | void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 19295 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 19296 | volatile int f2py_success = 1; | |||
| 19297 | /*decl*/ | |||
| 19298 | ||||
| 19299 | int m = 0; | |||
| 19300 | int n = 0; | |||
| 19301 | complex_double *a = NULL((void*)0); | |||
| 19302 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 19303 | const int a_Rank = 2; | |||
| 19304 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 19305 | int capi_a_intent = 0; | |||
| 19306 | int capi_overwrite_a = 0; | |||
| 19307 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 19308 | complex_double *tau = NULL((void*)0); | |||
| 19309 | npy_intp tau_Dims[1] = {-1}; | |||
| 19310 | const int tau_Rank = 1; | |||
| 19311 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 19312 | int capi_tau_intent = 0; | |||
| 19313 | complex_double *work = NULL((void*)0); | |||
| 19314 | npy_intp work_Dims[1] = {-1}; | |||
| 19315 | const int work_Rank = 1; | |||
| 19316 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 19317 | int capi_work_intent = 0; | |||
| 19318 | int lwork = 0; | |||
| 19319 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 19320 | int info = 0; | |||
| 19321 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 19322 | ||||
| 19323 | /*routdebugenter*/ | |||
| 19324 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19325 | f2py_start_clock(); | |||
| 19326 | #endif | |||
| 19327 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 19328 | "O|Oi:_flapack.zgeqrf",\ | |||
| 19329 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 19330 | return NULL((void*)0); | |||
| 19331 | /*frompyobj*/ | |||
| 19332 | /* Processing variable a */ | |||
| 19333 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 19334 | ; | |||
| 19335 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 19336 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 19337 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 19338 | if (!PyErr_Occurred()) | |||
| 19339 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgeqrf to C/Fortran array" ); | |||
| 19340 | } else { | |||
| 19341 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 19342 | ||||
| 19343 | /* Processing variable info */ | |||
| 19344 | /* Processing variable m */ | |||
| 19345 | m = shape(a,0)a_Dims[0]; | |||
| 19346 | /* Processing variable n */ | |||
| 19347 | n = shape(a,1)a_Dims[1]; | |||
| 19348 | /* Processing variable tau */ | |||
| 19349 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 19350 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 19351 | capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 19352 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 19353 | if (!PyErr_Occurred()) | |||
| 19354 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.zgeqrf to C/Fortran array" ); | |||
| 19355 | } else { | |||
| 19356 | tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 19357 | ||||
| 19358 | /* Processing variable lwork */ | |||
| 19359 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 19360 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgeqrf() 1st keyword (lwork) can't be converted to int"); | |||
| 19361 | if (f2py_success) { | |||
| 19362 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","zgeqrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeqrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 19363 | /* Processing variable work */ | |||
| 19364 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 19365 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 19366 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 19367 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 19368 | if (!PyErr_Occurred()) | |||
| 19369 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgeqrf to C/Fortran array" ); | |||
| 19370 | } else { | |||
| 19371 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 19372 | ||||
| 19373 | /*end of frompyobj*/ | |||
| 19374 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19375 | f2py_start_call_clock(); | |||
| 19376 | #endif | |||
| 19377 | /*callfortranroutine*/ | |||
| 19378 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 19379 | (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ; | |||
| 19380 | /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/ | |||
| 19381 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 19382 | if (PyErr_Occurred()) | |||
| 19383 | f2py_success = 0; | |||
| 19384 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19385 | f2py_stop_call_clock(); | |||
| 19386 | #endif | |||
| 19387 | /*end of callfortranroutine*/ | |||
| 19388 | if (f2py_success) { | |||
| 19389 | /*pyobjfrom*/ | |||
| 19390 | /*end of pyobjfrom*/ | |||
| 19391 | CFUNCSMESS("Building return value.\n"); | |||
| 19392 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info); | |||
| 19393 | /*closepyobjfrom*/ | |||
| 19394 | /*end of closepyobjfrom*/ | |||
| 19395 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 19396 | /*cleanupfrompyobj*/ | |||
| 19397 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 19398 | /* End of cleaning variable work */ | |||
| 19399 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 19400 | } /*if (f2py_success) of lwork*/ | |||
| 19401 | /* End of cleaning variable lwork */ | |||
| 19402 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 19403 | /* End of cleaning variable tau */ | |||
| 19404 | /* End of cleaning variable n */ | |||
| 19405 | /* End of cleaning variable m */ | |||
| 19406 | /* End of cleaning variable info */ | |||
| 19407 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 19408 | /* End of cleaning variable a */ | |||
| 19409 | /*end of cleanupfrompyobj*/ | |||
| 19410 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 19411 | /*routdebugfailure*/ | |||
| 19412 | } else { | |||
| 19413 | /*routdebugleave*/ | |||
| 19414 | } | |||
| 19415 | CFUNCSMESS("Freeing memory.\n"); | |||
| 19416 | /*freemem*/ | |||
| 19417 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19418 | f2py_stop_clock(); | |||
| 19419 | #endif | |||
| 19420 | return capi_buildvalue; | |||
| 19421 | } | |||
| 19422 | /******************************* end of zgeqrf *******************************/ | |||
| 19423 | ||||
| 19424 | /******************************** sgeqrf_lwork ********************************/ | |||
| 19425 | static char doc_f2py_rout__flapack_sgeqrf_lwork[] = "\ | |||
| 19426 | work,info = sgeqrf_lwork(m,n)\n\nWrapper for ``sgeqrf_lwork``.\ | |||
| 19427 | \n\nParameters\n----------\n" | |||
| 19428 | "m : input int\n" | |||
| 19429 | "n : input int\n" | |||
| 19430 | "\nReturns\n-------\n" | |||
| 19431 | "work : float\n" | |||
| 19432 | "info : int"; | |||
| 19433 | /* extern void F_FUNC(sgeqrf ,SGEQRF )(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 19434 | static PyObject *f2py_rout__flapack_sgeqrf_lwork(const PyObject *capi_self, | |||
| 19435 | PyObject *capi_args, | |||
| 19436 | PyObject *capi_keywds, | |||
| 19437 | void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 19438 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 19439 | volatile int f2py_success = 1; | |||
| 19440 | /*decl*/ | |||
| 19441 | ||||
| 19442 | int m = 0; | |||
| 19443 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 19444 | int n = 0; | |||
| 19445 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 19446 | float a = 0; | |||
| 19447 | float tau = 0; | |||
| 19448 | float work = 0; | |||
| 19449 | int lwork = 0; | |||
| 19450 | int info = 0; | |||
| 19451 | static char *capi_kwlist[] = {"m","n",NULL((void*)0)}; | |||
| 19452 | ||||
| 19453 | /*routdebugenter*/ | |||
| 19454 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19455 | f2py_start_clock(); | |||
| 19456 | #endif | |||
| 19457 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 19458 | "OO:_flapack.sgeqrf_lwork",\ | |||
| 19459 | capi_kwlist,&m_capi,&n_capi)) | |||
| 19460 | return NULL((void*)0); | |||
| 19461 | /*frompyobj*/ | |||
| 19462 | /* Processing variable m */ | |||
| 19463 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgeqrf_lwork() 1st argument (m) can't be converted to int"); | |||
| 19464 | if (f2py_success) { | |||
| 19465 | CHECKSCALAR(m > 0,"m > 0","1st argument m","sgeqrf_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeqrf_lwork:m=%d", "(""m > 0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 19466 | /* Processing variable n */ | |||
| 19467 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgeqrf_lwork() 2nd argument (n) can't be converted to int"); | |||
| 19468 | if (f2py_success) { | |||
| 19469 | CHECKSCALAR(n > 0,"n > 0","2nd argument n","sgeqrf_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeqrf_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 19470 | /* Processing variable a */ | |||
| 19471 | /* Processing variable tau */ | |||
| 19472 | /* Processing variable work */ | |||
| 19473 | /* Processing variable lwork */ | |||
| 19474 | lwork = -1; | |||
| 19475 | /* Processing variable info */ | |||
| 19476 | /*end of frompyobj*/ | |||
| 19477 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19478 | f2py_start_call_clock(); | |||
| 19479 | #endif | |||
| 19480 | /*callfortranroutine*/ | |||
| 19481 | (*f2py_func)(&m,&n,&a,&m,&tau,&work,&lwork,&info) ; | |||
| 19482 | /*(*f2py_func)(&m,&n,&a,&tau,&work,&lwork,&info);*/ | |||
| 19483 | if (PyErr_Occurred()) | |||
| 19484 | f2py_success = 0; | |||
| 19485 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19486 | f2py_stop_call_clock(); | |||
| 19487 | #endif | |||
| 19488 | /*end of callfortranroutine*/ | |||
| 19489 | if (f2py_success) { | |||
| 19490 | /*pyobjfrom*/ | |||
| 19491 | /*end of pyobjfrom*/ | |||
| 19492 | CFUNCSMESS("Building return value.\n"); | |||
| 19493 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 19494 | /*closepyobjfrom*/ | |||
| 19495 | /*end of closepyobjfrom*/ | |||
| 19496 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 19497 | /*cleanupfrompyobj*/ | |||
| 19498 | /* End of cleaning variable info */ | |||
| 19499 | /* End of cleaning variable lwork */ | |||
| 19500 | /* End of cleaning variable work */ | |||
| 19501 | /* End of cleaning variable tau */ | |||
| 19502 | /* End of cleaning variable a */ | |||
| 19503 | } /*CHECKSCALAR(n > 0)*/ | |||
| 19504 | } /*if (f2py_success) of n*/ | |||
| 19505 | /* End of cleaning variable n */ | |||
| 19506 | } /*CHECKSCALAR(m > 0)*/ | |||
| 19507 | } /*if (f2py_success) of m*/ | |||
| 19508 | /* End of cleaning variable m */ | |||
| 19509 | /*end of cleanupfrompyobj*/ | |||
| 19510 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 19511 | /*routdebugfailure*/ | |||
| 19512 | } else { | |||
| 19513 | /*routdebugleave*/ | |||
| 19514 | } | |||
| 19515 | CFUNCSMESS("Freeing memory.\n"); | |||
| 19516 | /*freemem*/ | |||
| 19517 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19518 | f2py_stop_clock(); | |||
| 19519 | #endif | |||
| 19520 | return capi_buildvalue; | |||
| 19521 | } | |||
| 19522 | /**************************** end of sgeqrf_lwork ****************************/ | |||
| 19523 | ||||
| 19524 | /******************************** dgeqrf_lwork ********************************/ | |||
| 19525 | static char doc_f2py_rout__flapack_dgeqrf_lwork[] = "\ | |||
| 19526 | work,info = dgeqrf_lwork(m,n)\n\nWrapper for ``dgeqrf_lwork``.\ | |||
| 19527 | \n\nParameters\n----------\n" | |||
| 19528 | "m : input int\n" | |||
| 19529 | "n : input int\n" | |||
| 19530 | "\nReturns\n-------\n" | |||
| 19531 | "work : float\n" | |||
| 19532 | "info : int"; | |||
| 19533 | /* extern void F_FUNC(dgeqrf ,DGEQRF )(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 19534 | static PyObject *f2py_rout__flapack_dgeqrf_lwork(const PyObject *capi_self, | |||
| 19535 | PyObject *capi_args, | |||
| 19536 | PyObject *capi_keywds, | |||
| 19537 | void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 19538 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 19539 | volatile int f2py_success = 1; | |||
| 19540 | /*decl*/ | |||
| 19541 | ||||
| 19542 | int m = 0; | |||
| 19543 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 19544 | int n = 0; | |||
| 19545 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 19546 | double a = 0; | |||
| 19547 | double tau = 0; | |||
| 19548 | double work = 0; | |||
| 19549 | int lwork = 0; | |||
| 19550 | int info = 0; | |||
| 19551 | static char *capi_kwlist[] = {"m","n",NULL((void*)0)}; | |||
| 19552 | ||||
| 19553 | /*routdebugenter*/ | |||
| 19554 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19555 | f2py_start_clock(); | |||
| 19556 | #endif | |||
| 19557 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 19558 | "OO:_flapack.dgeqrf_lwork",\ | |||
| 19559 | capi_kwlist,&m_capi,&n_capi)) | |||
| 19560 | return NULL((void*)0); | |||
| 19561 | /*frompyobj*/ | |||
| 19562 | /* Processing variable m */ | |||
| 19563 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgeqrf_lwork() 1st argument (m) can't be converted to int"); | |||
| 19564 | if (f2py_success) { | |||
| 19565 | CHECKSCALAR(m > 0,"m > 0","1st argument m","dgeqrf_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeqrf_lwork:m=%d", "(""m > 0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 19566 | /* Processing variable n */ | |||
| 19567 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgeqrf_lwork() 2nd argument (n) can't be converted to int"); | |||
| 19568 | if (f2py_success) { | |||
| 19569 | CHECKSCALAR(n > 0,"n > 0","2nd argument n","dgeqrf_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeqrf_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 19570 | /* Processing variable a */ | |||
| 19571 | /* Processing variable tau */ | |||
| 19572 | /* Processing variable work */ | |||
| 19573 | /* Processing variable lwork */ | |||
| 19574 | lwork = -1; | |||
| 19575 | /* Processing variable info */ | |||
| 19576 | /*end of frompyobj*/ | |||
| 19577 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19578 | f2py_start_call_clock(); | |||
| 19579 | #endif | |||
| 19580 | /*callfortranroutine*/ | |||
| 19581 | (*f2py_func)(&m,&n,&a,&m,&tau,&work,&lwork,&info) ; | |||
| 19582 | /*(*f2py_func)(&m,&n,&a,&tau,&work,&lwork,&info);*/ | |||
| 19583 | if (PyErr_Occurred()) | |||
| 19584 | f2py_success = 0; | |||
| 19585 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19586 | f2py_stop_call_clock(); | |||
| 19587 | #endif | |||
| 19588 | /*end of callfortranroutine*/ | |||
| 19589 | if (f2py_success) { | |||
| 19590 | /*pyobjfrom*/ | |||
| 19591 | /*end of pyobjfrom*/ | |||
| 19592 | CFUNCSMESS("Building return value.\n"); | |||
| 19593 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 19594 | /*closepyobjfrom*/ | |||
| 19595 | /*end of closepyobjfrom*/ | |||
| 19596 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 19597 | /*cleanupfrompyobj*/ | |||
| 19598 | /* End of cleaning variable info */ | |||
| 19599 | /* End of cleaning variable lwork */ | |||
| 19600 | /* End of cleaning variable work */ | |||
| 19601 | /* End of cleaning variable tau */ | |||
| 19602 | /* End of cleaning variable a */ | |||
| 19603 | } /*CHECKSCALAR(n > 0)*/ | |||
| 19604 | } /*if (f2py_success) of n*/ | |||
| 19605 | /* End of cleaning variable n */ | |||
| 19606 | } /*CHECKSCALAR(m > 0)*/ | |||
| 19607 | } /*if (f2py_success) of m*/ | |||
| 19608 | /* End of cleaning variable m */ | |||
| 19609 | /*end of cleanupfrompyobj*/ | |||
| 19610 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 19611 | /*routdebugfailure*/ | |||
| 19612 | } else { | |||
| 19613 | /*routdebugleave*/ | |||
| 19614 | } | |||
| 19615 | CFUNCSMESS("Freeing memory.\n"); | |||
| 19616 | /*freemem*/ | |||
| 19617 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19618 | f2py_stop_clock(); | |||
| 19619 | #endif | |||
| 19620 | return capi_buildvalue; | |||
| 19621 | } | |||
| 19622 | /**************************** end of dgeqrf_lwork ****************************/ | |||
| 19623 | ||||
| 19624 | /******************************** cgeqrf_lwork ********************************/ | |||
| 19625 | static char doc_f2py_rout__flapack_cgeqrf_lwork[] = "\ | |||
| 19626 | work,info = cgeqrf_lwork(m,n)\n\nWrapper for ``cgeqrf_lwork``.\ | |||
| 19627 | \n\nParameters\n----------\n" | |||
| 19628 | "m : input int\n" | |||
| 19629 | "n : input int\n" | |||
| 19630 | "\nReturns\n-------\n" | |||
| 19631 | "work : complex\n" | |||
| 19632 | "info : int"; | |||
| 19633 | /* extern void F_FUNC(cgeqrf ,CGEQRF )(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 19634 | static PyObject *f2py_rout__flapack_cgeqrf_lwork(const PyObject *capi_self, | |||
| 19635 | PyObject *capi_args, | |||
| 19636 | PyObject *capi_keywds, | |||
| 19637 | void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 19638 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 19639 | volatile int f2py_success = 1; | |||
| 19640 | /*decl*/ | |||
| 19641 | ||||
| 19642 | int m = 0; | |||
| 19643 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 19644 | int n = 0; | |||
| 19645 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 19646 | complex_float a; | |||
| 19647 | complex_float tau; | |||
| 19648 | complex_float work; | |||
| 19649 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 19650 | int lwork = 0; | |||
| 19651 | int info = 0; | |||
| 19652 | static char *capi_kwlist[] = {"m","n",NULL((void*)0)}; | |||
| 19653 | ||||
| 19654 | /*routdebugenter*/ | |||
| 19655 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19656 | f2py_start_clock(); | |||
| 19657 | #endif | |||
| 19658 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 19659 | "OO:_flapack.cgeqrf_lwork",\ | |||
| 19660 | capi_kwlist,&m_capi,&n_capi)) | |||
| 19661 | return NULL((void*)0); | |||
| 19662 | /*frompyobj*/ | |||
| 19663 | /* Processing variable m */ | |||
| 19664 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgeqrf_lwork() 1st argument (m) can't be converted to int"); | |||
| 19665 | if (f2py_success) { | |||
| 19666 | CHECKSCALAR(m > 0,"m > 0","1st argument m","cgeqrf_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeqrf_lwork:m=%d", "(""m > 0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 19667 | /* Processing variable n */ | |||
| 19668 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgeqrf_lwork() 2nd argument (n) can't be converted to int"); | |||
| 19669 | if (f2py_success) { | |||
| 19670 | CHECKSCALAR(n > 0,"n > 0","2nd argument n","cgeqrf_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeqrf_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 19671 | /* Processing variable a */ | |||
| 19672 | /* Processing variable tau */ | |||
| 19673 | /* Processing variable work */ | |||
| 19674 | /* Processing variable lwork */ | |||
| 19675 | lwork = -1; | |||
| 19676 | /* Processing variable info */ | |||
| 19677 | /*end of frompyobj*/ | |||
| 19678 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19679 | f2py_start_call_clock(); | |||
| 19680 | #endif | |||
| 19681 | /*callfortranroutine*/ | |||
| 19682 | (*f2py_func)(&m,&n,&a,&m,&tau,&work,&lwork,&info) ; | |||
| 19683 | /*(*f2py_func)(&m,&n,&a,&tau,&work,&lwork,&info);*/ | |||
| 19684 | if (PyErr_Occurred()) | |||
| 19685 | f2py_success = 0; | |||
| 19686 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19687 | f2py_stop_call_clock(); | |||
| 19688 | #endif | |||
| 19689 | /*end of callfortranroutine*/ | |||
| 19690 | if (f2py_success) { | |||
| 19691 | /*pyobjfrom*/ | |||
| 19692 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 19693 | /*end of pyobjfrom*/ | |||
| 19694 | CFUNCSMESS("Building return value.\n"); | |||
| 19695 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 19696 | /*closepyobjfrom*/ | |||
| 19697 | /*end of closepyobjfrom*/ | |||
| 19698 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 19699 | /*cleanupfrompyobj*/ | |||
| 19700 | /* End of cleaning variable info */ | |||
| 19701 | /* End of cleaning variable lwork */ | |||
| 19702 | /* End of cleaning variable work */ | |||
| 19703 | /* End of cleaning variable tau */ | |||
| 19704 | /* End of cleaning variable a */ | |||
| 19705 | } /*CHECKSCALAR(n > 0)*/ | |||
| 19706 | } /*if (f2py_success) of n*/ | |||
| 19707 | /* End of cleaning variable n */ | |||
| 19708 | } /*CHECKSCALAR(m > 0)*/ | |||
| 19709 | } /*if (f2py_success) of m*/ | |||
| 19710 | /* End of cleaning variable m */ | |||
| 19711 | /*end of cleanupfrompyobj*/ | |||
| 19712 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 19713 | /*routdebugfailure*/ | |||
| 19714 | } else { | |||
| 19715 | /*routdebugleave*/ | |||
| 19716 | } | |||
| 19717 | CFUNCSMESS("Freeing memory.\n"); | |||
| 19718 | /*freemem*/ | |||
| 19719 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19720 | f2py_stop_clock(); | |||
| 19721 | #endif | |||
| 19722 | return capi_buildvalue; | |||
| 19723 | } | |||
| 19724 | /**************************** end of cgeqrf_lwork ****************************/ | |||
| 19725 | ||||
| 19726 | /******************************** zgeqrf_lwork ********************************/ | |||
| 19727 | static char doc_f2py_rout__flapack_zgeqrf_lwork[] = "\ | |||
| 19728 | work,info = zgeqrf_lwork(m,n)\n\nWrapper for ``zgeqrf_lwork``.\ | |||
| 19729 | \n\nParameters\n----------\n" | |||
| 19730 | "m : input int\n" | |||
| 19731 | "n : input int\n" | |||
| 19732 | "\nReturns\n-------\n" | |||
| 19733 | "work : complex\n" | |||
| 19734 | "info : int"; | |||
| 19735 | /* extern void F_FUNC(zgeqrf ,ZGEQRF )(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 19736 | static PyObject *f2py_rout__flapack_zgeqrf_lwork(const PyObject *capi_self, | |||
| 19737 | PyObject *capi_args, | |||
| 19738 | PyObject *capi_keywds, | |||
| 19739 | void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 19740 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 19741 | volatile int f2py_success = 1; | |||
| 19742 | /*decl*/ | |||
| 19743 | ||||
| 19744 | int m = 0; | |||
| 19745 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 19746 | int n = 0; | |||
| 19747 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 19748 | complex_double a; | |||
| 19749 | complex_double tau; | |||
| 19750 | complex_double work; | |||
| 19751 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 19752 | int lwork = 0; | |||
| 19753 | int info = 0; | |||
| 19754 | static char *capi_kwlist[] = {"m","n",NULL((void*)0)}; | |||
| 19755 | ||||
| 19756 | /*routdebugenter*/ | |||
| 19757 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19758 | f2py_start_clock(); | |||
| 19759 | #endif | |||
| 19760 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 19761 | "OO:_flapack.zgeqrf_lwork",\ | |||
| 19762 | capi_kwlist,&m_capi,&n_capi)) | |||
| 19763 | return NULL((void*)0); | |||
| 19764 | /*frompyobj*/ | |||
| 19765 | /* Processing variable m */ | |||
| 19766 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgeqrf_lwork() 1st argument (m) can't be converted to int"); | |||
| 19767 | if (f2py_success) { | |||
| 19768 | CHECKSCALAR(m > 0,"m > 0","1st argument m","zgeqrf_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeqrf_lwork:m=%d", "(""m > 0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 19769 | /* Processing variable n */ | |||
| 19770 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgeqrf_lwork() 2nd argument (n) can't be converted to int"); | |||
| 19771 | if (f2py_success) { | |||
| 19772 | CHECKSCALAR(n > 0,"n > 0","2nd argument n","zgeqrf_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeqrf_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 19773 | /* Processing variable a */ | |||
| 19774 | /* Processing variable tau */ | |||
| 19775 | /* Processing variable work */ | |||
| 19776 | /* Processing variable lwork */ | |||
| 19777 | lwork = -1; | |||
| 19778 | /* Processing variable info */ | |||
| 19779 | /*end of frompyobj*/ | |||
| 19780 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19781 | f2py_start_call_clock(); | |||
| 19782 | #endif | |||
| 19783 | /*callfortranroutine*/ | |||
| 19784 | (*f2py_func)(&m,&n,&a,&m,&tau,&work,&lwork,&info) ; | |||
| 19785 | /*(*f2py_func)(&m,&n,&a,&tau,&work,&lwork,&info);*/ | |||
| 19786 | if (PyErr_Occurred()) | |||
| 19787 | f2py_success = 0; | |||
| 19788 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19789 | f2py_stop_call_clock(); | |||
| 19790 | #endif | |||
| 19791 | /*end of callfortranroutine*/ | |||
| 19792 | if (f2py_success) { | |||
| 19793 | /*pyobjfrom*/ | |||
| 19794 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 19795 | /*end of pyobjfrom*/ | |||
| 19796 | CFUNCSMESS("Building return value.\n"); | |||
| 19797 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 19798 | /*closepyobjfrom*/ | |||
| 19799 | /*end of closepyobjfrom*/ | |||
| 19800 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 19801 | /*cleanupfrompyobj*/ | |||
| 19802 | /* End of cleaning variable info */ | |||
| 19803 | /* End of cleaning variable lwork */ | |||
| 19804 | /* End of cleaning variable work */ | |||
| 19805 | /* End of cleaning variable tau */ | |||
| 19806 | /* End of cleaning variable a */ | |||
| 19807 | } /*CHECKSCALAR(n > 0)*/ | |||
| 19808 | } /*if (f2py_success) of n*/ | |||
| 19809 | /* End of cleaning variable n */ | |||
| 19810 | } /*CHECKSCALAR(m > 0)*/ | |||
| 19811 | } /*if (f2py_success) of m*/ | |||
| 19812 | /* End of cleaning variable m */ | |||
| 19813 | /*end of cleanupfrompyobj*/ | |||
| 19814 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 19815 | /*routdebugfailure*/ | |||
| 19816 | } else { | |||
| 19817 | /*routdebugleave*/ | |||
| 19818 | } | |||
| 19819 | CFUNCSMESS("Freeing memory.\n"); | |||
| 19820 | /*freemem*/ | |||
| 19821 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19822 | f2py_stop_clock(); | |||
| 19823 | #endif | |||
| 19824 | return capi_buildvalue; | |||
| 19825 | } | |||
| 19826 | /**************************** end of zgeqrf_lwork ****************************/ | |||
| 19827 | ||||
| 19828 | /********************************** sgeqrfp **********************************/ | |||
| 19829 | static char doc_f2py_rout__flapack_sgeqrfp[] = "\ | |||
| 19830 | qr,tau,info = sgeqrfp(a,[lwork,overwrite_a])\n\nWrapper for ``sgeqrfp``.\ | |||
| 19831 | \n\nParameters\n----------\n" | |||
| 19832 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 19833 | "\nOther Parameters\n----------------\n" | |||
| 19834 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 19835 | "lwork : input int, optional\n Default: MAX(1, n)\n" | |||
| 19836 | "\nReturns\n-------\n" | |||
| 19837 | "qr : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 19838 | "tau : rank-1 array('f') with bounds (MIN(m,n))\n" | |||
| 19839 | "info : int"; | |||
| 19840 | /* extern void F_FUNC(sgeqrfp,SGEQRFP)(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 19841 | static PyObject *f2py_rout__flapack_sgeqrfp(const PyObject *capi_self, | |||
| 19842 | PyObject *capi_args, | |||
| 19843 | PyObject *capi_keywds, | |||
| 19844 | void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 19845 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 19846 | volatile int f2py_success = 1; | |||
| 19847 | /*decl*/ | |||
| 19848 | ||||
| 19849 | int m = 0; | |||
| 19850 | int n = 0; | |||
| 19851 | float *a = NULL((void*)0); | |||
| 19852 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 19853 | const int a_Rank = 2; | |||
| 19854 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 19855 | int capi_a_intent = 0; | |||
| 19856 | int capi_overwrite_a = 0; | |||
| 19857 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 19858 | int lda = 0; | |||
| 19859 | float *tau = NULL((void*)0); | |||
| 19860 | npy_intp tau_Dims[1] = {-1}; | |||
| 19861 | const int tau_Rank = 1; | |||
| 19862 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 19863 | int capi_tau_intent = 0; | |||
| 19864 | float *work = NULL((void*)0); | |||
| 19865 | npy_intp work_Dims[1] = {-1}; | |||
| 19866 | const int work_Rank = 1; | |||
| 19867 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 19868 | int capi_work_intent = 0; | |||
| 19869 | int lwork = 0; | |||
| 19870 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 19871 | int info = 0; | |||
| 19872 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 19873 | ||||
| 19874 | /*routdebugenter*/ | |||
| 19875 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19876 | f2py_start_clock(); | |||
| 19877 | #endif | |||
| 19878 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 19879 | "O|Oi:_flapack.sgeqrfp",\ | |||
| 19880 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 19881 | return NULL((void*)0); | |||
| 19882 | /*frompyobj*/ | |||
| 19883 | /* Processing variable a */ | |||
| 19884 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 19885 | ; | |||
| 19886 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 19887 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 19888 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 19889 | if (!PyErr_Occurred()) | |||
| 19890 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgeqrfp to C/Fortran array" ); | |||
| 19891 | } else { | |||
| 19892 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 19893 | ||||
| 19894 | /* Processing variable info */ | |||
| 19895 | /* Processing variable m */ | |||
| 19896 | m = shape(a, 0)a_Dims[0]; | |||
| 19897 | CHECKSCALAR(m > 0,"m > 0","hidden m","sgeqrfp:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeqrfp:m=%d", "(""m > 0"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 19898 | /* Processing variable n */ | |||
| 19899 | n = shape(a, 1)a_Dims[1]; | |||
| 19900 | CHECKSCALAR(n > 0,"n > 0","hidden n","sgeqrfp:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeqrfp:n=%d", "(""n > 0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 19901 | /* Processing variable lda */ | |||
| 19902 | lda = max(1, shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 19903 | /* Processing variable tau */ | |||
| 19904 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 19905 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 19906 | capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 19907 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 19908 | if (!PyErr_Occurred()) | |||
| 19909 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.sgeqrfp to C/Fortran array" ); | |||
| 19910 | } else { | |||
| 19911 | tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 19912 | ||||
| 19913 | /* Processing variable lwork */ | |||
| 19914 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(1, n)((1 > n) ? (1) : (n)); else | |||
| 19915 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgeqrfp() 1st keyword (lwork) can't be converted to int"); | |||
| 19916 | if (f2py_success) { | |||
| 19917 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","sgeqrfp:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeqrfp:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 19918 | /* Processing variable work */ | |||
| 19919 | work_Dims[0]=lwork; | |||
| 19920 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 19921 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 19922 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 19923 | if (!PyErr_Occurred()) | |||
| 19924 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgeqrfp to C/Fortran array" ); | |||
| 19925 | } else { | |||
| 19926 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 19927 | ||||
| 19928 | /*end of frompyobj*/ | |||
| 19929 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19930 | f2py_start_call_clock(); | |||
| 19931 | #endif | |||
| 19932 | /*callfortranroutine*/ | |||
| 19933 | (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ; | |||
| 19934 | /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/ | |||
| 19935 | if (PyErr_Occurred()) | |||
| 19936 | f2py_success = 0; | |||
| 19937 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19938 | f2py_stop_call_clock(); | |||
| 19939 | #endif | |||
| 19940 | /*end of callfortranroutine*/ | |||
| 19941 | if (f2py_success) { | |||
| 19942 | /*pyobjfrom*/ | |||
| 19943 | /*end of pyobjfrom*/ | |||
| 19944 | CFUNCSMESS("Building return value.\n"); | |||
| 19945 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info); | |||
| 19946 | /*closepyobjfrom*/ | |||
| 19947 | /*end of closepyobjfrom*/ | |||
| 19948 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 19949 | /*cleanupfrompyobj*/ | |||
| 19950 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 19951 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 19952 | /* End of cleaning variable work */ | |||
| 19953 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 19954 | } /*if (f2py_success) of lwork*/ | |||
| 19955 | /* End of cleaning variable lwork */ | |||
| 19956 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 19957 | /* End of cleaning variable tau */ | |||
| 19958 | /* End of cleaning variable lda */ | |||
| 19959 | } /*CHECKSCALAR(n > 0)*/ | |||
| 19960 | /* End of cleaning variable n */ | |||
| 19961 | } /*CHECKSCALAR(m > 0)*/ | |||
| 19962 | /* End of cleaning variable m */ | |||
| 19963 | /* End of cleaning variable info */ | |||
| 19964 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 19965 | /* End of cleaning variable a */ | |||
| 19966 | /*end of cleanupfrompyobj*/ | |||
| 19967 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 19968 | /*routdebugfailure*/ | |||
| 19969 | } else { | |||
| 19970 | /*routdebugleave*/ | |||
| 19971 | } | |||
| 19972 | CFUNCSMESS("Freeing memory.\n"); | |||
| 19973 | /*freemem*/ | |||
| 19974 | #ifdef F2PY_REPORT_ATEXIT | |||
| 19975 | f2py_stop_clock(); | |||
| 19976 | #endif | |||
| 19977 | return capi_buildvalue; | |||
| 19978 | } | |||
| 19979 | /******************************* end of sgeqrfp *******************************/ | |||
| 19980 | ||||
| 19981 | /********************************** dgeqrfp **********************************/ | |||
| 19982 | static char doc_f2py_rout__flapack_dgeqrfp[] = "\ | |||
| 19983 | qr,tau,info = dgeqrfp(a,[lwork,overwrite_a])\n\nWrapper for ``dgeqrfp``.\ | |||
| 19984 | \n\nParameters\n----------\n" | |||
| 19985 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 19986 | "\nOther Parameters\n----------------\n" | |||
| 19987 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 19988 | "lwork : input int, optional\n Default: MAX(1, n)\n" | |||
| 19989 | "\nReturns\n-------\n" | |||
| 19990 | "qr : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 19991 | "tau : rank-1 array('d') with bounds (MIN(m,n))\n" | |||
| 19992 | "info : int"; | |||
| 19993 | /* extern void F_FUNC(dgeqrfp,DGEQRFP)(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 19994 | static PyObject *f2py_rout__flapack_dgeqrfp(const PyObject *capi_self, | |||
| 19995 | PyObject *capi_args, | |||
| 19996 | PyObject *capi_keywds, | |||
| 19997 | void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 19998 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 19999 | volatile int f2py_success = 1; | |||
| 20000 | /*decl*/ | |||
| 20001 | ||||
| 20002 | int m = 0; | |||
| 20003 | int n = 0; | |||
| 20004 | double *a = NULL((void*)0); | |||
| 20005 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 20006 | const int a_Rank = 2; | |||
| 20007 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 20008 | int capi_a_intent = 0; | |||
| 20009 | int capi_overwrite_a = 0; | |||
| 20010 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 20011 | int lda = 0; | |||
| 20012 | double *tau = NULL((void*)0); | |||
| 20013 | npy_intp tau_Dims[1] = {-1}; | |||
| 20014 | const int tau_Rank = 1; | |||
| 20015 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 20016 | int capi_tau_intent = 0; | |||
| 20017 | double *work = NULL((void*)0); | |||
| 20018 | npy_intp work_Dims[1] = {-1}; | |||
| 20019 | const int work_Rank = 1; | |||
| 20020 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 20021 | int capi_work_intent = 0; | |||
| 20022 | int lwork = 0; | |||
| 20023 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 20024 | int info = 0; | |||
| 20025 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 20026 | ||||
| 20027 | /*routdebugenter*/ | |||
| 20028 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20029 | f2py_start_clock(); | |||
| 20030 | #endif | |||
| 20031 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 20032 | "O|Oi:_flapack.dgeqrfp",\ | |||
| 20033 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 20034 | return NULL((void*)0); | |||
| 20035 | /*frompyobj*/ | |||
| 20036 | /* Processing variable a */ | |||
| 20037 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 20038 | ; | |||
| 20039 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 20040 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 20041 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 20042 | if (!PyErr_Occurred()) | |||
| 20043 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgeqrfp to C/Fortran array" ); | |||
| 20044 | } else { | |||
| 20045 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 20046 | ||||
| 20047 | /* Processing variable info */ | |||
| 20048 | /* Processing variable m */ | |||
| 20049 | m = shape(a, 0)a_Dims[0]; | |||
| 20050 | CHECKSCALAR(m > 0,"m > 0","hidden m","dgeqrfp:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeqrfp:m=%d", "(""m > 0"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20051 | /* Processing variable n */ | |||
| 20052 | n = shape(a, 1)a_Dims[1]; | |||
| 20053 | CHECKSCALAR(n > 0,"n > 0","hidden n","dgeqrfp:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeqrfp:n=%d", "(""n > 0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20054 | /* Processing variable lda */ | |||
| 20055 | lda = max(1, shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 20056 | /* Processing variable tau */ | |||
| 20057 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 20058 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 20059 | capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 20060 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 20061 | if (!PyErr_Occurred()) | |||
| 20062 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dgeqrfp to C/Fortran array" ); | |||
| 20063 | } else { | |||
| 20064 | tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 20065 | ||||
| 20066 | /* Processing variable lwork */ | |||
| 20067 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(1, n)((1 > n) ? (1) : (n)); else | |||
| 20068 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgeqrfp() 1st keyword (lwork) can't be converted to int"); | |||
| 20069 | if (f2py_success) { | |||
| 20070 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","dgeqrfp:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeqrfp:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 20071 | /* Processing variable work */ | |||
| 20072 | work_Dims[0]=lwork; | |||
| 20073 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 20074 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 20075 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 20076 | if (!PyErr_Occurred()) | |||
| 20077 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgeqrfp to C/Fortran array" ); | |||
| 20078 | } else { | |||
| 20079 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 20080 | ||||
| 20081 | /*end of frompyobj*/ | |||
| 20082 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20083 | f2py_start_call_clock(); | |||
| 20084 | #endif | |||
| 20085 | /*callfortranroutine*/ | |||
| 20086 | (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ; | |||
| 20087 | /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/ | |||
| 20088 | if (PyErr_Occurred()) | |||
| 20089 | f2py_success = 0; | |||
| 20090 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20091 | f2py_stop_call_clock(); | |||
| 20092 | #endif | |||
| 20093 | /*end of callfortranroutine*/ | |||
| 20094 | if (f2py_success) { | |||
| 20095 | /*pyobjfrom*/ | |||
| 20096 | /*end of pyobjfrom*/ | |||
| 20097 | CFUNCSMESS("Building return value.\n"); | |||
| 20098 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info); | |||
| 20099 | /*closepyobjfrom*/ | |||
| 20100 | /*end of closepyobjfrom*/ | |||
| 20101 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 20102 | /*cleanupfrompyobj*/ | |||
| 20103 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 20104 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 20105 | /* End of cleaning variable work */ | |||
| 20106 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 20107 | } /*if (f2py_success) of lwork*/ | |||
| 20108 | /* End of cleaning variable lwork */ | |||
| 20109 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 20110 | /* End of cleaning variable tau */ | |||
| 20111 | /* End of cleaning variable lda */ | |||
| 20112 | } /*CHECKSCALAR(n > 0)*/ | |||
| 20113 | /* End of cleaning variable n */ | |||
| 20114 | } /*CHECKSCALAR(m > 0)*/ | |||
| 20115 | /* End of cleaning variable m */ | |||
| 20116 | /* End of cleaning variable info */ | |||
| 20117 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 20118 | /* End of cleaning variable a */ | |||
| 20119 | /*end of cleanupfrompyobj*/ | |||
| 20120 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 20121 | /*routdebugfailure*/ | |||
| 20122 | } else { | |||
| 20123 | /*routdebugleave*/ | |||
| 20124 | } | |||
| 20125 | CFUNCSMESS("Freeing memory.\n"); | |||
| 20126 | /*freemem*/ | |||
| 20127 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20128 | f2py_stop_clock(); | |||
| 20129 | #endif | |||
| 20130 | return capi_buildvalue; | |||
| 20131 | } | |||
| 20132 | /******************************* end of dgeqrfp *******************************/ | |||
| 20133 | ||||
| 20134 | /********************************** cgeqrfp **********************************/ | |||
| 20135 | static char doc_f2py_rout__flapack_cgeqrfp[] = "\ | |||
| 20136 | qr,tau,info = cgeqrfp(a,[lwork,overwrite_a])\n\nWrapper for ``cgeqrfp``.\ | |||
| 20137 | \n\nParameters\n----------\n" | |||
| 20138 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 20139 | "\nOther Parameters\n----------------\n" | |||
| 20140 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 20141 | "lwork : input int, optional\n Default: MAX(1, n)\n" | |||
| 20142 | "\nReturns\n-------\n" | |||
| 20143 | "qr : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 20144 | "tau : rank-1 array('F') with bounds (MIN(m,n))\n" | |||
| 20145 | "info : int"; | |||
| 20146 | /* extern void F_FUNC(cgeqrfp,CGEQRFP)(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 20147 | static PyObject *f2py_rout__flapack_cgeqrfp(const PyObject *capi_self, | |||
| 20148 | PyObject *capi_args, | |||
| 20149 | PyObject *capi_keywds, | |||
| 20150 | void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 20151 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 20152 | volatile int f2py_success = 1; | |||
| 20153 | /*decl*/ | |||
| 20154 | ||||
| 20155 | int m = 0; | |||
| 20156 | int n = 0; | |||
| 20157 | complex_float *a = NULL((void*)0); | |||
| 20158 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 20159 | const int a_Rank = 2; | |||
| 20160 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 20161 | int capi_a_intent = 0; | |||
| 20162 | int capi_overwrite_a = 0; | |||
| 20163 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 20164 | int lda = 0; | |||
| 20165 | complex_float *tau = NULL((void*)0); | |||
| 20166 | npy_intp tau_Dims[1] = {-1}; | |||
| 20167 | const int tau_Rank = 1; | |||
| 20168 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 20169 | int capi_tau_intent = 0; | |||
| 20170 | complex_float *work = NULL((void*)0); | |||
| 20171 | npy_intp work_Dims[1] = {-1}; | |||
| 20172 | const int work_Rank = 1; | |||
| 20173 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 20174 | int capi_work_intent = 0; | |||
| 20175 | int lwork = 0; | |||
| 20176 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 20177 | int info = 0; | |||
| 20178 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 20179 | ||||
| 20180 | /*routdebugenter*/ | |||
| 20181 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20182 | f2py_start_clock(); | |||
| 20183 | #endif | |||
| 20184 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 20185 | "O|Oi:_flapack.cgeqrfp",\ | |||
| 20186 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 20187 | return NULL((void*)0); | |||
| 20188 | /*frompyobj*/ | |||
| 20189 | /* Processing variable a */ | |||
| 20190 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 20191 | ; | |||
| 20192 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 20193 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 20194 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 20195 | if (!PyErr_Occurred()) | |||
| 20196 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgeqrfp to C/Fortran array" ); | |||
| 20197 | } else { | |||
| 20198 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 20199 | ||||
| 20200 | /* Processing variable info */ | |||
| 20201 | /* Processing variable m */ | |||
| 20202 | m = shape(a, 0)a_Dims[0]; | |||
| 20203 | CHECKSCALAR(m > 0,"m > 0","hidden m","cgeqrfp:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeqrfp:m=%d", "(""m > 0"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20204 | /* Processing variable n */ | |||
| 20205 | n = shape(a, 1)a_Dims[1]; | |||
| 20206 | CHECKSCALAR(n > 0,"n > 0","hidden n","cgeqrfp:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeqrfp:n=%d", "(""n > 0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20207 | /* Processing variable lda */ | |||
| 20208 | lda = max(1, shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 20209 | /* Processing variable tau */ | |||
| 20210 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 20211 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 20212 | capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 20213 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 20214 | if (!PyErr_Occurred()) | |||
| 20215 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.cgeqrfp to C/Fortran array" ); | |||
| 20216 | } else { | |||
| 20217 | tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 20218 | ||||
| 20219 | /* Processing variable lwork */ | |||
| 20220 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(1, n)((1 > n) ? (1) : (n)); else | |||
| 20221 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgeqrfp() 1st keyword (lwork) can't be converted to int"); | |||
| 20222 | if (f2py_success) { | |||
| 20223 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","cgeqrfp:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeqrfp:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 20224 | /* Processing variable work */ | |||
| 20225 | work_Dims[0]=lwork; | |||
| 20226 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 20227 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 20228 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 20229 | if (!PyErr_Occurred()) | |||
| 20230 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgeqrfp to C/Fortran array" ); | |||
| 20231 | } else { | |||
| 20232 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 20233 | ||||
| 20234 | /*end of frompyobj*/ | |||
| 20235 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20236 | f2py_start_call_clock(); | |||
| 20237 | #endif | |||
| 20238 | /*callfortranroutine*/ | |||
| 20239 | (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ; | |||
| 20240 | /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/ | |||
| 20241 | if (PyErr_Occurred()) | |||
| 20242 | f2py_success = 0; | |||
| 20243 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20244 | f2py_stop_call_clock(); | |||
| 20245 | #endif | |||
| 20246 | /*end of callfortranroutine*/ | |||
| 20247 | if (f2py_success) { | |||
| 20248 | /*pyobjfrom*/ | |||
| 20249 | /*end of pyobjfrom*/ | |||
| 20250 | CFUNCSMESS("Building return value.\n"); | |||
| 20251 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info); | |||
| 20252 | /*closepyobjfrom*/ | |||
| 20253 | /*end of closepyobjfrom*/ | |||
| 20254 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 20255 | /*cleanupfrompyobj*/ | |||
| 20256 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 20257 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 20258 | /* End of cleaning variable work */ | |||
| 20259 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 20260 | } /*if (f2py_success) of lwork*/ | |||
| 20261 | /* End of cleaning variable lwork */ | |||
| 20262 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 20263 | /* End of cleaning variable tau */ | |||
| 20264 | /* End of cleaning variable lda */ | |||
| 20265 | } /*CHECKSCALAR(n > 0)*/ | |||
| 20266 | /* End of cleaning variable n */ | |||
| 20267 | } /*CHECKSCALAR(m > 0)*/ | |||
| 20268 | /* End of cleaning variable m */ | |||
| 20269 | /* End of cleaning variable info */ | |||
| 20270 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 20271 | /* End of cleaning variable a */ | |||
| 20272 | /*end of cleanupfrompyobj*/ | |||
| 20273 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 20274 | /*routdebugfailure*/ | |||
| 20275 | } else { | |||
| 20276 | /*routdebugleave*/ | |||
| 20277 | } | |||
| 20278 | CFUNCSMESS("Freeing memory.\n"); | |||
| 20279 | /*freemem*/ | |||
| 20280 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20281 | f2py_stop_clock(); | |||
| 20282 | #endif | |||
| 20283 | return capi_buildvalue; | |||
| 20284 | } | |||
| 20285 | /******************************* end of cgeqrfp *******************************/ | |||
| 20286 | ||||
| 20287 | /********************************** zgeqrfp **********************************/ | |||
| 20288 | static char doc_f2py_rout__flapack_zgeqrfp[] = "\ | |||
| 20289 | qr,tau,info = zgeqrfp(a,[lwork,overwrite_a])\n\nWrapper for ``zgeqrfp``.\ | |||
| 20290 | \n\nParameters\n----------\n" | |||
| 20291 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 20292 | "\nOther Parameters\n----------------\n" | |||
| 20293 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 20294 | "lwork : input int, optional\n Default: MAX(1, n)\n" | |||
| 20295 | "\nReturns\n-------\n" | |||
| 20296 | "qr : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 20297 | "tau : rank-1 array('D') with bounds (MIN(m,n))\n" | |||
| 20298 | "info : int"; | |||
| 20299 | /* extern void F_FUNC(zgeqrfp,ZGEQRFP)(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 20300 | static PyObject *f2py_rout__flapack_zgeqrfp(const PyObject *capi_self, | |||
| 20301 | PyObject *capi_args, | |||
| 20302 | PyObject *capi_keywds, | |||
| 20303 | void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 20304 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 20305 | volatile int f2py_success = 1; | |||
| 20306 | /*decl*/ | |||
| 20307 | ||||
| 20308 | int m = 0; | |||
| 20309 | int n = 0; | |||
| 20310 | complex_double *a = NULL((void*)0); | |||
| 20311 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 20312 | const int a_Rank = 2; | |||
| 20313 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 20314 | int capi_a_intent = 0; | |||
| 20315 | int capi_overwrite_a = 0; | |||
| 20316 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 20317 | int lda = 0; | |||
| 20318 | complex_double *tau = NULL((void*)0); | |||
| 20319 | npy_intp tau_Dims[1] = {-1}; | |||
| 20320 | const int tau_Rank = 1; | |||
| 20321 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 20322 | int capi_tau_intent = 0; | |||
| 20323 | complex_double *work = NULL((void*)0); | |||
| 20324 | npy_intp work_Dims[1] = {-1}; | |||
| 20325 | const int work_Rank = 1; | |||
| 20326 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 20327 | int capi_work_intent = 0; | |||
| 20328 | int lwork = 0; | |||
| 20329 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 20330 | int info = 0; | |||
| 20331 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 20332 | ||||
| 20333 | /*routdebugenter*/ | |||
| 20334 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20335 | f2py_start_clock(); | |||
| 20336 | #endif | |||
| 20337 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 20338 | "O|Oi:_flapack.zgeqrfp",\ | |||
| 20339 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 20340 | return NULL((void*)0); | |||
| 20341 | /*frompyobj*/ | |||
| 20342 | /* Processing variable a */ | |||
| 20343 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 20344 | ; | |||
| 20345 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 20346 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 20347 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 20348 | if (!PyErr_Occurred()) | |||
| 20349 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgeqrfp to C/Fortran array" ); | |||
| 20350 | } else { | |||
| 20351 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 20352 | ||||
| 20353 | /* Processing variable info */ | |||
| 20354 | /* Processing variable m */ | |||
| 20355 | m = shape(a, 0)a_Dims[0]; | |||
| 20356 | CHECKSCALAR(m > 0,"m > 0","hidden m","zgeqrfp:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeqrfp:m=%d", "(""m > 0"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20357 | /* Processing variable n */ | |||
| 20358 | n = shape(a, 1)a_Dims[1]; | |||
| 20359 | CHECKSCALAR(n > 0,"n > 0","hidden n","zgeqrfp:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeqrfp:n=%d", "(""n > 0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20360 | /* Processing variable lda */ | |||
| 20361 | lda = max(1, shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 20362 | /* Processing variable tau */ | |||
| 20363 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 20364 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 20365 | capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 20366 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 20367 | if (!PyErr_Occurred()) | |||
| 20368 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.zgeqrfp to C/Fortran array" ); | |||
| 20369 | } else { | |||
| 20370 | tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 20371 | ||||
| 20372 | /* Processing variable lwork */ | |||
| 20373 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(1, n)((1 > n) ? (1) : (n)); else | |||
| 20374 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgeqrfp() 1st keyword (lwork) can't be converted to int"); | |||
| 20375 | if (f2py_success) { | |||
| 20376 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","zgeqrfp:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeqrfp:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 20377 | /* Processing variable work */ | |||
| 20378 | work_Dims[0]=lwork; | |||
| 20379 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 20380 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 20381 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 20382 | if (!PyErr_Occurred()) | |||
| 20383 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgeqrfp to C/Fortran array" ); | |||
| 20384 | } else { | |||
| 20385 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 20386 | ||||
| 20387 | /*end of frompyobj*/ | |||
| 20388 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20389 | f2py_start_call_clock(); | |||
| 20390 | #endif | |||
| 20391 | /*callfortranroutine*/ | |||
| 20392 | (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ; | |||
| 20393 | /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/ | |||
| 20394 | if (PyErr_Occurred()) | |||
| 20395 | f2py_success = 0; | |||
| 20396 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20397 | f2py_stop_call_clock(); | |||
| 20398 | #endif | |||
| 20399 | /*end of callfortranroutine*/ | |||
| 20400 | if (f2py_success) { | |||
| 20401 | /*pyobjfrom*/ | |||
| 20402 | /*end of pyobjfrom*/ | |||
| 20403 | CFUNCSMESS("Building return value.\n"); | |||
| 20404 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info); | |||
| 20405 | /*closepyobjfrom*/ | |||
| 20406 | /*end of closepyobjfrom*/ | |||
| 20407 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 20408 | /*cleanupfrompyobj*/ | |||
| 20409 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 20410 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 20411 | /* End of cleaning variable work */ | |||
| 20412 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 20413 | } /*if (f2py_success) of lwork*/ | |||
| 20414 | /* End of cleaning variable lwork */ | |||
| 20415 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 20416 | /* End of cleaning variable tau */ | |||
| 20417 | /* End of cleaning variable lda */ | |||
| 20418 | } /*CHECKSCALAR(n > 0)*/ | |||
| 20419 | /* End of cleaning variable n */ | |||
| 20420 | } /*CHECKSCALAR(m > 0)*/ | |||
| 20421 | /* End of cleaning variable m */ | |||
| 20422 | /* End of cleaning variable info */ | |||
| 20423 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 20424 | /* End of cleaning variable a */ | |||
| 20425 | /*end of cleanupfrompyobj*/ | |||
| 20426 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 20427 | /*routdebugfailure*/ | |||
| 20428 | } else { | |||
| 20429 | /*routdebugleave*/ | |||
| 20430 | } | |||
| 20431 | CFUNCSMESS("Freeing memory.\n"); | |||
| 20432 | /*freemem*/ | |||
| 20433 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20434 | f2py_stop_clock(); | |||
| 20435 | #endif | |||
| 20436 | return capi_buildvalue; | |||
| 20437 | } | |||
| 20438 | /******************************* end of zgeqrfp *******************************/ | |||
| 20439 | ||||
| 20440 | /******************************* sgeqrfp_lwork *******************************/ | |||
| 20441 | static char doc_f2py_rout__flapack_sgeqrfp_lwork[] = "\ | |||
| 20442 | work,info = sgeqrfp_lwork(m,n)\n\nWrapper for ``sgeqrfp_lwork``.\ | |||
| 20443 | \n\nParameters\n----------\n" | |||
| 20444 | "m : input int\n" | |||
| 20445 | "n : input int\n" | |||
| 20446 | "\nReturns\n-------\n" | |||
| 20447 | "work : float\n" | |||
| 20448 | "info : int"; | |||
| 20449 | /* extern void F_FUNC(sgeqrfp ,SGEQRFP )(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 20450 | static PyObject *f2py_rout__flapack_sgeqrfp_lwork(const PyObject *capi_self, | |||
| 20451 | PyObject *capi_args, | |||
| 20452 | PyObject *capi_keywds, | |||
| 20453 | void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 20454 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 20455 | volatile int f2py_success = 1; | |||
| 20456 | /*decl*/ | |||
| 20457 | ||||
| 20458 | int m = 0; | |||
| 20459 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 20460 | int n = 0; | |||
| 20461 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 20462 | float a = 0; | |||
| 20463 | int lda = 0; | |||
| 20464 | float tau = 0; | |||
| 20465 | float work = 0; | |||
| 20466 | int lwork = 0; | |||
| 20467 | int info = 0; | |||
| 20468 | static char *capi_kwlist[] = {"m","n",NULL((void*)0)}; | |||
| 20469 | ||||
| 20470 | /*routdebugenter*/ | |||
| 20471 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20472 | f2py_start_clock(); | |||
| 20473 | #endif | |||
| 20474 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 20475 | "OO:_flapack.sgeqrfp_lwork",\ | |||
| 20476 | capi_kwlist,&m_capi,&n_capi)) | |||
| 20477 | return NULL((void*)0); | |||
| 20478 | /*frompyobj*/ | |||
| 20479 | /* Processing variable m */ | |||
| 20480 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgeqrfp_lwork() 1st argument (m) can't be converted to int"); | |||
| 20481 | if (f2py_success) { | |||
| 20482 | CHECKSCALAR(m > 0,"m > 0","1st argument m","sgeqrfp_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeqrfp_lwork:m=%d", "(""m > 0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20483 | /* Processing variable n */ | |||
| 20484 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgeqrfp_lwork() 2nd argument (n) can't be converted to int"); | |||
| 20485 | if (f2py_success) { | |||
| 20486 | CHECKSCALAR(n > 0,"n > 0","2nd argument n","sgeqrfp_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeqrfp_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20487 | /* Processing variable a */ | |||
| 20488 | /* Processing variable tau */ | |||
| 20489 | /* Processing variable work */ | |||
| 20490 | /* Processing variable lwork */ | |||
| 20491 | lwork = -1; | |||
| 20492 | /* Processing variable info */ | |||
| 20493 | /* Processing variable lda */ | |||
| 20494 | lda = m; | |||
| 20495 | /*end of frompyobj*/ | |||
| 20496 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20497 | f2py_start_call_clock(); | |||
| 20498 | #endif | |||
| 20499 | /*callfortranroutine*/ | |||
| 20500 | (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ; | |||
| 20501 | /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/ | |||
| 20502 | if (PyErr_Occurred()) | |||
| 20503 | f2py_success = 0; | |||
| 20504 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20505 | f2py_stop_call_clock(); | |||
| 20506 | #endif | |||
| 20507 | /*end of callfortranroutine*/ | |||
| 20508 | if (f2py_success) { | |||
| 20509 | /*pyobjfrom*/ | |||
| 20510 | /*end of pyobjfrom*/ | |||
| 20511 | CFUNCSMESS("Building return value.\n"); | |||
| 20512 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 20513 | /*closepyobjfrom*/ | |||
| 20514 | /*end of closepyobjfrom*/ | |||
| 20515 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 20516 | /*cleanupfrompyobj*/ | |||
| 20517 | /* End of cleaning variable lda */ | |||
| 20518 | /* End of cleaning variable info */ | |||
| 20519 | /* End of cleaning variable lwork */ | |||
| 20520 | /* End of cleaning variable work */ | |||
| 20521 | /* End of cleaning variable tau */ | |||
| 20522 | /* End of cleaning variable a */ | |||
| 20523 | } /*CHECKSCALAR(n > 0)*/ | |||
| 20524 | } /*if (f2py_success) of n*/ | |||
| 20525 | /* End of cleaning variable n */ | |||
| 20526 | } /*CHECKSCALAR(m > 0)*/ | |||
| 20527 | } /*if (f2py_success) of m*/ | |||
| 20528 | /* End of cleaning variable m */ | |||
| 20529 | /*end of cleanupfrompyobj*/ | |||
| 20530 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 20531 | /*routdebugfailure*/ | |||
| 20532 | } else { | |||
| 20533 | /*routdebugleave*/ | |||
| 20534 | } | |||
| 20535 | CFUNCSMESS("Freeing memory.\n"); | |||
| 20536 | /*freemem*/ | |||
| 20537 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20538 | f2py_stop_clock(); | |||
| 20539 | #endif | |||
| 20540 | return capi_buildvalue; | |||
| 20541 | } | |||
| 20542 | /**************************** end of sgeqrfp_lwork ****************************/ | |||
| 20543 | ||||
| 20544 | /******************************* dgeqrfp_lwork *******************************/ | |||
| 20545 | static char doc_f2py_rout__flapack_dgeqrfp_lwork[] = "\ | |||
| 20546 | work,info = dgeqrfp_lwork(m,n)\n\nWrapper for ``dgeqrfp_lwork``.\ | |||
| 20547 | \n\nParameters\n----------\n" | |||
| 20548 | "m : input int\n" | |||
| 20549 | "n : input int\n" | |||
| 20550 | "\nReturns\n-------\n" | |||
| 20551 | "work : float\n" | |||
| 20552 | "info : int"; | |||
| 20553 | /* extern void F_FUNC(dgeqrfp ,DGEQRFP )(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 20554 | static PyObject *f2py_rout__flapack_dgeqrfp_lwork(const PyObject *capi_self, | |||
| 20555 | PyObject *capi_args, | |||
| 20556 | PyObject *capi_keywds, | |||
| 20557 | void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 20558 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 20559 | volatile int f2py_success = 1; | |||
| 20560 | /*decl*/ | |||
| 20561 | ||||
| 20562 | int m = 0; | |||
| 20563 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 20564 | int n = 0; | |||
| 20565 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 20566 | double a = 0; | |||
| 20567 | int lda = 0; | |||
| 20568 | double tau = 0; | |||
| 20569 | double work = 0; | |||
| 20570 | int lwork = 0; | |||
| 20571 | int info = 0; | |||
| 20572 | static char *capi_kwlist[] = {"m","n",NULL((void*)0)}; | |||
| 20573 | ||||
| 20574 | /*routdebugenter*/ | |||
| 20575 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20576 | f2py_start_clock(); | |||
| 20577 | #endif | |||
| 20578 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 20579 | "OO:_flapack.dgeqrfp_lwork",\ | |||
| 20580 | capi_kwlist,&m_capi,&n_capi)) | |||
| 20581 | return NULL((void*)0); | |||
| 20582 | /*frompyobj*/ | |||
| 20583 | /* Processing variable m */ | |||
| 20584 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgeqrfp_lwork() 1st argument (m) can't be converted to int"); | |||
| 20585 | if (f2py_success) { | |||
| 20586 | CHECKSCALAR(m > 0,"m > 0","1st argument m","dgeqrfp_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeqrfp_lwork:m=%d", "(""m > 0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20587 | /* Processing variable n */ | |||
| 20588 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgeqrfp_lwork() 2nd argument (n) can't be converted to int"); | |||
| 20589 | if (f2py_success) { | |||
| 20590 | CHECKSCALAR(n > 0,"n > 0","2nd argument n","dgeqrfp_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeqrfp_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20591 | /* Processing variable a */ | |||
| 20592 | /* Processing variable tau */ | |||
| 20593 | /* Processing variable work */ | |||
| 20594 | /* Processing variable lwork */ | |||
| 20595 | lwork = -1; | |||
| 20596 | /* Processing variable info */ | |||
| 20597 | /* Processing variable lda */ | |||
| 20598 | lda = m; | |||
| 20599 | /*end of frompyobj*/ | |||
| 20600 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20601 | f2py_start_call_clock(); | |||
| 20602 | #endif | |||
| 20603 | /*callfortranroutine*/ | |||
| 20604 | (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ; | |||
| 20605 | /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/ | |||
| 20606 | if (PyErr_Occurred()) | |||
| 20607 | f2py_success = 0; | |||
| 20608 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20609 | f2py_stop_call_clock(); | |||
| 20610 | #endif | |||
| 20611 | /*end of callfortranroutine*/ | |||
| 20612 | if (f2py_success) { | |||
| 20613 | /*pyobjfrom*/ | |||
| 20614 | /*end of pyobjfrom*/ | |||
| 20615 | CFUNCSMESS("Building return value.\n"); | |||
| 20616 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 20617 | /*closepyobjfrom*/ | |||
| 20618 | /*end of closepyobjfrom*/ | |||
| 20619 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 20620 | /*cleanupfrompyobj*/ | |||
| 20621 | /* End of cleaning variable lda */ | |||
| 20622 | /* End of cleaning variable info */ | |||
| 20623 | /* End of cleaning variable lwork */ | |||
| 20624 | /* End of cleaning variable work */ | |||
| 20625 | /* End of cleaning variable tau */ | |||
| 20626 | /* End of cleaning variable a */ | |||
| 20627 | } /*CHECKSCALAR(n > 0)*/ | |||
| 20628 | } /*if (f2py_success) of n*/ | |||
| 20629 | /* End of cleaning variable n */ | |||
| 20630 | } /*CHECKSCALAR(m > 0)*/ | |||
| 20631 | } /*if (f2py_success) of m*/ | |||
| 20632 | /* End of cleaning variable m */ | |||
| 20633 | /*end of cleanupfrompyobj*/ | |||
| 20634 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 20635 | /*routdebugfailure*/ | |||
| 20636 | } else { | |||
| 20637 | /*routdebugleave*/ | |||
| 20638 | } | |||
| 20639 | CFUNCSMESS("Freeing memory.\n"); | |||
| 20640 | /*freemem*/ | |||
| 20641 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20642 | f2py_stop_clock(); | |||
| 20643 | #endif | |||
| 20644 | return capi_buildvalue; | |||
| 20645 | } | |||
| 20646 | /**************************** end of dgeqrfp_lwork ****************************/ | |||
| 20647 | ||||
| 20648 | /******************************* cgeqrfp_lwork *******************************/ | |||
| 20649 | static char doc_f2py_rout__flapack_cgeqrfp_lwork[] = "\ | |||
| 20650 | work,info = cgeqrfp_lwork(m,n)\n\nWrapper for ``cgeqrfp_lwork``.\ | |||
| 20651 | \n\nParameters\n----------\n" | |||
| 20652 | "m : input int\n" | |||
| 20653 | "n : input int\n" | |||
| 20654 | "\nReturns\n-------\n" | |||
| 20655 | "work : complex\n" | |||
| 20656 | "info : int"; | |||
| 20657 | /* extern void F_FUNC(cgeqrfp ,CGEQRFP )(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 20658 | static PyObject *f2py_rout__flapack_cgeqrfp_lwork(const PyObject *capi_self, | |||
| 20659 | PyObject *capi_args, | |||
| 20660 | PyObject *capi_keywds, | |||
| 20661 | void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 20662 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 20663 | volatile int f2py_success = 1; | |||
| 20664 | /*decl*/ | |||
| 20665 | ||||
| 20666 | int m = 0; | |||
| 20667 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 20668 | int n = 0; | |||
| 20669 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 20670 | complex_float a; | |||
| 20671 | int lda = 0; | |||
| 20672 | complex_float tau; | |||
| 20673 | complex_float work; | |||
| 20674 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 20675 | int lwork = 0; | |||
| 20676 | int info = 0; | |||
| 20677 | static char *capi_kwlist[] = {"m","n",NULL((void*)0)}; | |||
| 20678 | ||||
| 20679 | /*routdebugenter*/ | |||
| 20680 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20681 | f2py_start_clock(); | |||
| 20682 | #endif | |||
| 20683 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 20684 | "OO:_flapack.cgeqrfp_lwork",\ | |||
| 20685 | capi_kwlist,&m_capi,&n_capi)) | |||
| 20686 | return NULL((void*)0); | |||
| 20687 | /*frompyobj*/ | |||
| 20688 | /* Processing variable m */ | |||
| 20689 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgeqrfp_lwork() 1st argument (m) can't be converted to int"); | |||
| 20690 | if (f2py_success) { | |||
| 20691 | CHECKSCALAR(m > 0,"m > 0","1st argument m","cgeqrfp_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeqrfp_lwork:m=%d", "(""m > 0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20692 | /* Processing variable n */ | |||
| 20693 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgeqrfp_lwork() 2nd argument (n) can't be converted to int"); | |||
| 20694 | if (f2py_success) { | |||
| 20695 | CHECKSCALAR(n > 0,"n > 0","2nd argument n","cgeqrfp_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeqrfp_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20696 | /* Processing variable a */ | |||
| 20697 | /* Processing variable tau */ | |||
| 20698 | /* Processing variable work */ | |||
| 20699 | /* Processing variable lwork */ | |||
| 20700 | lwork = -1; | |||
| 20701 | /* Processing variable info */ | |||
| 20702 | /* Processing variable lda */ | |||
| 20703 | lda = m; | |||
| 20704 | /*end of frompyobj*/ | |||
| 20705 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20706 | f2py_start_call_clock(); | |||
| 20707 | #endif | |||
| 20708 | /*callfortranroutine*/ | |||
| 20709 | (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ; | |||
| 20710 | /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/ | |||
| 20711 | if (PyErr_Occurred()) | |||
| 20712 | f2py_success = 0; | |||
| 20713 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20714 | f2py_stop_call_clock(); | |||
| 20715 | #endif | |||
| 20716 | /*end of callfortranroutine*/ | |||
| 20717 | if (f2py_success) { | |||
| 20718 | /*pyobjfrom*/ | |||
| 20719 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 20720 | /*end of pyobjfrom*/ | |||
| 20721 | CFUNCSMESS("Building return value.\n"); | |||
| 20722 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 20723 | /*closepyobjfrom*/ | |||
| 20724 | /*end of closepyobjfrom*/ | |||
| 20725 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 20726 | /*cleanupfrompyobj*/ | |||
| 20727 | /* End of cleaning variable lda */ | |||
| 20728 | /* End of cleaning variable info */ | |||
| 20729 | /* End of cleaning variable lwork */ | |||
| 20730 | /* End of cleaning variable work */ | |||
| 20731 | /* End of cleaning variable tau */ | |||
| 20732 | /* End of cleaning variable a */ | |||
| 20733 | } /*CHECKSCALAR(n > 0)*/ | |||
| 20734 | } /*if (f2py_success) of n*/ | |||
| 20735 | /* End of cleaning variable n */ | |||
| 20736 | } /*CHECKSCALAR(m > 0)*/ | |||
| 20737 | } /*if (f2py_success) of m*/ | |||
| 20738 | /* End of cleaning variable m */ | |||
| 20739 | /*end of cleanupfrompyobj*/ | |||
| 20740 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 20741 | /*routdebugfailure*/ | |||
| 20742 | } else { | |||
| 20743 | /*routdebugleave*/ | |||
| 20744 | } | |||
| 20745 | CFUNCSMESS("Freeing memory.\n"); | |||
| 20746 | /*freemem*/ | |||
| 20747 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20748 | f2py_stop_clock(); | |||
| 20749 | #endif | |||
| 20750 | return capi_buildvalue; | |||
| 20751 | } | |||
| 20752 | /**************************** end of cgeqrfp_lwork ****************************/ | |||
| 20753 | ||||
| 20754 | /******************************* zgeqrfp_lwork *******************************/ | |||
| 20755 | static char doc_f2py_rout__flapack_zgeqrfp_lwork[] = "\ | |||
| 20756 | work,info = zgeqrfp_lwork(m,n)\n\nWrapper for ``zgeqrfp_lwork``.\ | |||
| 20757 | \n\nParameters\n----------\n" | |||
| 20758 | "m : input int\n" | |||
| 20759 | "n : input int\n" | |||
| 20760 | "\nReturns\n-------\n" | |||
| 20761 | "work : complex\n" | |||
| 20762 | "info : int"; | |||
| 20763 | /* extern void F_FUNC(zgeqrfp ,ZGEQRFP )(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 20764 | static PyObject *f2py_rout__flapack_zgeqrfp_lwork(const PyObject *capi_self, | |||
| 20765 | PyObject *capi_args, | |||
| 20766 | PyObject *capi_keywds, | |||
| 20767 | void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 20768 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 20769 | volatile int f2py_success = 1; | |||
| 20770 | /*decl*/ | |||
| 20771 | ||||
| 20772 | int m = 0; | |||
| 20773 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 20774 | int n = 0; | |||
| 20775 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 20776 | complex_double a; | |||
| 20777 | int lda = 0; | |||
| 20778 | complex_double tau; | |||
| 20779 | complex_double work; | |||
| 20780 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 20781 | int lwork = 0; | |||
| 20782 | int info = 0; | |||
| 20783 | static char *capi_kwlist[] = {"m","n",NULL((void*)0)}; | |||
| 20784 | ||||
| 20785 | /*routdebugenter*/ | |||
| 20786 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20787 | f2py_start_clock(); | |||
| 20788 | #endif | |||
| 20789 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 20790 | "OO:_flapack.zgeqrfp_lwork",\ | |||
| 20791 | capi_kwlist,&m_capi,&n_capi)) | |||
| 20792 | return NULL((void*)0); | |||
| 20793 | /*frompyobj*/ | |||
| 20794 | /* Processing variable m */ | |||
| 20795 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgeqrfp_lwork() 1st argument (m) can't be converted to int"); | |||
| 20796 | if (f2py_success) { | |||
| 20797 | CHECKSCALAR(m > 0,"m > 0","1st argument m","zgeqrfp_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeqrfp_lwork:m=%d", "(""m > 0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20798 | /* Processing variable n */ | |||
| 20799 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgeqrfp_lwork() 2nd argument (n) can't be converted to int"); | |||
| 20800 | if (f2py_success) { | |||
| 20801 | CHECKSCALAR(n > 0,"n > 0","2nd argument n","zgeqrfp_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeqrfp_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 20802 | /* Processing variable a */ | |||
| 20803 | /* Processing variable tau */ | |||
| 20804 | /* Processing variable work */ | |||
| 20805 | /* Processing variable lwork */ | |||
| 20806 | lwork = -1; | |||
| 20807 | /* Processing variable info */ | |||
| 20808 | /* Processing variable lda */ | |||
| 20809 | lda = m; | |||
| 20810 | /*end of frompyobj*/ | |||
| 20811 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20812 | f2py_start_call_clock(); | |||
| 20813 | #endif | |||
| 20814 | /*callfortranroutine*/ | |||
| 20815 | (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ; | |||
| 20816 | /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/ | |||
| 20817 | if (PyErr_Occurred()) | |||
| 20818 | f2py_success = 0; | |||
| 20819 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20820 | f2py_stop_call_clock(); | |||
| 20821 | #endif | |||
| 20822 | /*end of callfortranroutine*/ | |||
| 20823 | if (f2py_success) { | |||
| 20824 | /*pyobjfrom*/ | |||
| 20825 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 20826 | /*end of pyobjfrom*/ | |||
| 20827 | CFUNCSMESS("Building return value.\n"); | |||
| 20828 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 20829 | /*closepyobjfrom*/ | |||
| 20830 | /*end of closepyobjfrom*/ | |||
| 20831 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 20832 | /*cleanupfrompyobj*/ | |||
| 20833 | /* End of cleaning variable lda */ | |||
| 20834 | /* End of cleaning variable info */ | |||
| 20835 | /* End of cleaning variable lwork */ | |||
| 20836 | /* End of cleaning variable work */ | |||
| 20837 | /* End of cleaning variable tau */ | |||
| 20838 | /* End of cleaning variable a */ | |||
| 20839 | } /*CHECKSCALAR(n > 0)*/ | |||
| 20840 | } /*if (f2py_success) of n*/ | |||
| 20841 | /* End of cleaning variable n */ | |||
| 20842 | } /*CHECKSCALAR(m > 0)*/ | |||
| 20843 | } /*if (f2py_success) of m*/ | |||
| 20844 | /* End of cleaning variable m */ | |||
| 20845 | /*end of cleanupfrompyobj*/ | |||
| 20846 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 20847 | /*routdebugfailure*/ | |||
| 20848 | } else { | |||
| 20849 | /*routdebugleave*/ | |||
| 20850 | } | |||
| 20851 | CFUNCSMESS("Freeing memory.\n"); | |||
| 20852 | /*freemem*/ | |||
| 20853 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20854 | f2py_stop_clock(); | |||
| 20855 | #endif | |||
| 20856 | return capi_buildvalue; | |||
| 20857 | } | |||
| 20858 | /**************************** end of zgeqrfp_lwork ****************************/ | |||
| 20859 | ||||
| 20860 | /*********************************** sgerqf ***********************************/ | |||
| 20861 | static char doc_f2py_rout__flapack_sgerqf[] = "\ | |||
| 20862 | qr,tau,work,info = sgerqf(a,[lwork,overwrite_a])\n\nWrapper for ``sgerqf``.\ | |||
| 20863 | \n\nParameters\n----------\n" | |||
| 20864 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 20865 | "\nOther Parameters\n----------------\n" | |||
| 20866 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 20867 | "lwork : input int, optional\n Default: max(3*m,1)\n" | |||
| 20868 | "\nReturns\n-------\n" | |||
| 20869 | "qr : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 20870 | "tau : rank-1 array('f') with bounds (MIN(m,n))\n" | |||
| 20871 | "work : rank-1 array('f') with bounds (MAX(lwork,1))\n" | |||
| 20872 | "info : int"; | |||
| 20873 | /* extern void F_FUNC(sgerqf,SGERQF)(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 20874 | static PyObject *f2py_rout__flapack_sgerqf(const PyObject *capi_self, | |||
| 20875 | PyObject *capi_args, | |||
| 20876 | PyObject *capi_keywds, | |||
| 20877 | void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 20878 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 20879 | volatile int f2py_success = 1; | |||
| 20880 | /*decl*/ | |||
| 20881 | ||||
| 20882 | int m = 0; | |||
| 20883 | int n = 0; | |||
| 20884 | float *a = NULL((void*)0); | |||
| 20885 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 20886 | const int a_Rank = 2; | |||
| 20887 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 20888 | int capi_a_intent = 0; | |||
| 20889 | int capi_overwrite_a = 0; | |||
| 20890 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 20891 | float *tau = NULL((void*)0); | |||
| 20892 | npy_intp tau_Dims[1] = {-1}; | |||
| 20893 | const int tau_Rank = 1; | |||
| 20894 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 20895 | int capi_tau_intent = 0; | |||
| 20896 | float *work = NULL((void*)0); | |||
| 20897 | npy_intp work_Dims[1] = {-1}; | |||
| 20898 | const int work_Rank = 1; | |||
| 20899 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 20900 | int capi_work_intent = 0; | |||
| 20901 | int lwork = 0; | |||
| 20902 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 20903 | int info = 0; | |||
| 20904 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 20905 | ||||
| 20906 | /*routdebugenter*/ | |||
| 20907 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20908 | f2py_start_clock(); | |||
| 20909 | #endif | |||
| 20910 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 20911 | "O|Oi:_flapack.sgerqf",\ | |||
| 20912 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 20913 | return NULL((void*)0); | |||
| 20914 | /*frompyobj*/ | |||
| 20915 | /* Processing variable a */ | |||
| 20916 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 20917 | ; | |||
| 20918 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 20919 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 20920 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 20921 | if (!PyErr_Occurred()) | |||
| 20922 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgerqf to C/Fortran array" ); | |||
| 20923 | } else { | |||
| 20924 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 20925 | ||||
| 20926 | /* Processing variable info */ | |||
| 20927 | /* Processing variable m */ | |||
| 20928 | m = shape(a,0)a_Dims[0]; | |||
| 20929 | /* Processing variable n */ | |||
| 20930 | n = shape(a,1)a_Dims[1]; | |||
| 20931 | /* Processing variable tau */ | |||
| 20932 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 20933 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 20934 | capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 20935 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 20936 | if (!PyErr_Occurred()) | |||
| 20937 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.sgerqf to C/Fortran array" ); | |||
| 20938 | } else { | |||
| 20939 | tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 20940 | ||||
| 20941 | /* Processing variable lwork */ | |||
| 20942 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else | |||
| 20943 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgerqf() 1st keyword (lwork) can't be converted to int"); | |||
| 20944 | if (f2py_success) { | |||
| 20945 | CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","sgerqf:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgerqf:lwork=%d", "(""lwork>=m||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 20946 | /* Processing variable work */ | |||
| 20947 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 20948 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 20949 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 20950 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 20951 | if (!PyErr_Occurred()) | |||
| 20952 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgerqf to C/Fortran array" ); | |||
| 20953 | } else { | |||
| 20954 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 20955 | ||||
| 20956 | /*end of frompyobj*/ | |||
| 20957 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20958 | f2py_start_call_clock(); | |||
| 20959 | #endif | |||
| 20960 | /*callfortranroutine*/ | |||
| 20961 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 20962 | (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ; | |||
| 20963 | /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/ | |||
| 20964 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 20965 | if (PyErr_Occurred()) | |||
| 20966 | f2py_success = 0; | |||
| 20967 | #ifdef F2PY_REPORT_ATEXIT | |||
| 20968 | f2py_stop_call_clock(); | |||
| 20969 | #endif | |||
| 20970 | /*end of callfortranroutine*/ | |||
| 20971 | if (f2py_success) { | |||
| 20972 | /*pyobjfrom*/ | |||
| 20973 | /*end of pyobjfrom*/ | |||
| 20974 | CFUNCSMESS("Building return value.\n"); | |||
| 20975 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info); | |||
| 20976 | /*closepyobjfrom*/ | |||
| 20977 | /*end of closepyobjfrom*/ | |||
| 20978 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 20979 | /*cleanupfrompyobj*/ | |||
| 20980 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 20981 | /* End of cleaning variable work */ | |||
| 20982 | } /*CHECKSCALAR(lwork>=m||lwork==-1)*/ | |||
| 20983 | } /*if (f2py_success) of lwork*/ | |||
| 20984 | /* End of cleaning variable lwork */ | |||
| 20985 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 20986 | /* End of cleaning variable tau */ | |||
| 20987 | /* End of cleaning variable n */ | |||
| 20988 | /* End of cleaning variable m */ | |||
| 20989 | /* End of cleaning variable info */ | |||
| 20990 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 20991 | /* End of cleaning variable a */ | |||
| 20992 | /*end of cleanupfrompyobj*/ | |||
| 20993 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 20994 | /*routdebugfailure*/ | |||
| 20995 | } else { | |||
| 20996 | /*routdebugleave*/ | |||
| 20997 | } | |||
| 20998 | CFUNCSMESS("Freeing memory.\n"); | |||
| 20999 | /*freemem*/ | |||
| 21000 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21001 | f2py_stop_clock(); | |||
| 21002 | #endif | |||
| 21003 | return capi_buildvalue; | |||
| 21004 | } | |||
| 21005 | /******************************* end of sgerqf *******************************/ | |||
| 21006 | ||||
| 21007 | /*********************************** dgerqf ***********************************/ | |||
| 21008 | static char doc_f2py_rout__flapack_dgerqf[] = "\ | |||
| 21009 | qr,tau,work,info = dgerqf(a,[lwork,overwrite_a])\n\nWrapper for ``dgerqf``.\ | |||
| 21010 | \n\nParameters\n----------\n" | |||
| 21011 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 21012 | "\nOther Parameters\n----------------\n" | |||
| 21013 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 21014 | "lwork : input int, optional\n Default: max(3*m,1)\n" | |||
| 21015 | "\nReturns\n-------\n" | |||
| 21016 | "qr : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 21017 | "tau : rank-1 array('d') with bounds (MIN(m,n))\n" | |||
| 21018 | "work : rank-1 array('d') with bounds (MAX(lwork,1))\n" | |||
| 21019 | "info : int"; | |||
| 21020 | /* extern void F_FUNC(dgerqf,DGERQF)(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 21021 | static PyObject *f2py_rout__flapack_dgerqf(const PyObject *capi_self, | |||
| 21022 | PyObject *capi_args, | |||
| 21023 | PyObject *capi_keywds, | |||
| 21024 | void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 21025 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 21026 | volatile int f2py_success = 1; | |||
| 21027 | /*decl*/ | |||
| 21028 | ||||
| 21029 | int m = 0; | |||
| 21030 | int n = 0; | |||
| 21031 | double *a = NULL((void*)0); | |||
| 21032 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 21033 | const int a_Rank = 2; | |||
| 21034 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 21035 | int capi_a_intent = 0; | |||
| 21036 | int capi_overwrite_a = 0; | |||
| 21037 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 21038 | double *tau = NULL((void*)0); | |||
| 21039 | npy_intp tau_Dims[1] = {-1}; | |||
| 21040 | const int tau_Rank = 1; | |||
| 21041 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 21042 | int capi_tau_intent = 0; | |||
| 21043 | double *work = NULL((void*)0); | |||
| 21044 | npy_intp work_Dims[1] = {-1}; | |||
| 21045 | const int work_Rank = 1; | |||
| 21046 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 21047 | int capi_work_intent = 0; | |||
| 21048 | int lwork = 0; | |||
| 21049 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 21050 | int info = 0; | |||
| 21051 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 21052 | ||||
| 21053 | /*routdebugenter*/ | |||
| 21054 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21055 | f2py_start_clock(); | |||
| 21056 | #endif | |||
| 21057 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 21058 | "O|Oi:_flapack.dgerqf",\ | |||
| 21059 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 21060 | return NULL((void*)0); | |||
| 21061 | /*frompyobj*/ | |||
| 21062 | /* Processing variable a */ | |||
| 21063 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 21064 | ; | |||
| 21065 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 21066 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 21067 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 21068 | if (!PyErr_Occurred()) | |||
| 21069 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgerqf to C/Fortran array" ); | |||
| 21070 | } else { | |||
| 21071 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 21072 | ||||
| 21073 | /* Processing variable info */ | |||
| 21074 | /* Processing variable m */ | |||
| 21075 | m = shape(a,0)a_Dims[0]; | |||
| 21076 | /* Processing variable n */ | |||
| 21077 | n = shape(a,1)a_Dims[1]; | |||
| 21078 | /* Processing variable tau */ | |||
| 21079 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 21080 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21081 | capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 21082 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 21083 | if (!PyErr_Occurred()) | |||
| 21084 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dgerqf to C/Fortran array" ); | |||
| 21085 | } else { | |||
| 21086 | tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 21087 | ||||
| 21088 | /* Processing variable lwork */ | |||
| 21089 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else | |||
| 21090 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgerqf() 1st keyword (lwork) can't be converted to int"); | |||
| 21091 | if (f2py_success) { | |||
| 21092 | CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","dgerqf:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgerqf:lwork=%d", "(""lwork>=m||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 21093 | /* Processing variable work */ | |||
| 21094 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 21095 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21096 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 21097 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 21098 | if (!PyErr_Occurred()) | |||
| 21099 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgerqf to C/Fortran array" ); | |||
| 21100 | } else { | |||
| 21101 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 21102 | ||||
| 21103 | /*end of frompyobj*/ | |||
| 21104 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21105 | f2py_start_call_clock(); | |||
| 21106 | #endif | |||
| 21107 | /*callfortranroutine*/ | |||
| 21108 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 21109 | (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ; | |||
| 21110 | /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/ | |||
| 21111 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 21112 | if (PyErr_Occurred()) | |||
| 21113 | f2py_success = 0; | |||
| 21114 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21115 | f2py_stop_call_clock(); | |||
| 21116 | #endif | |||
| 21117 | /*end of callfortranroutine*/ | |||
| 21118 | if (f2py_success) { | |||
| 21119 | /*pyobjfrom*/ | |||
| 21120 | /*end of pyobjfrom*/ | |||
| 21121 | CFUNCSMESS("Building return value.\n"); | |||
| 21122 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info); | |||
| 21123 | /*closepyobjfrom*/ | |||
| 21124 | /*end of closepyobjfrom*/ | |||
| 21125 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 21126 | /*cleanupfrompyobj*/ | |||
| 21127 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 21128 | /* End of cleaning variable work */ | |||
| 21129 | } /*CHECKSCALAR(lwork>=m||lwork==-1)*/ | |||
| 21130 | } /*if (f2py_success) of lwork*/ | |||
| 21131 | /* End of cleaning variable lwork */ | |||
| 21132 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 21133 | /* End of cleaning variable tau */ | |||
| 21134 | /* End of cleaning variable n */ | |||
| 21135 | /* End of cleaning variable m */ | |||
| 21136 | /* End of cleaning variable info */ | |||
| 21137 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 21138 | /* End of cleaning variable a */ | |||
| 21139 | /*end of cleanupfrompyobj*/ | |||
| 21140 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 21141 | /*routdebugfailure*/ | |||
| 21142 | } else { | |||
| 21143 | /*routdebugleave*/ | |||
| 21144 | } | |||
| 21145 | CFUNCSMESS("Freeing memory.\n"); | |||
| 21146 | /*freemem*/ | |||
| 21147 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21148 | f2py_stop_clock(); | |||
| 21149 | #endif | |||
| 21150 | return capi_buildvalue; | |||
| 21151 | } | |||
| 21152 | /******************************* end of dgerqf *******************************/ | |||
| 21153 | ||||
| 21154 | /*********************************** cgerqf ***********************************/ | |||
| 21155 | static char doc_f2py_rout__flapack_cgerqf[] = "\ | |||
| 21156 | qr,tau,work,info = cgerqf(a,[lwork,overwrite_a])\n\nWrapper for ``cgerqf``.\ | |||
| 21157 | \n\nParameters\n----------\n" | |||
| 21158 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 21159 | "\nOther Parameters\n----------------\n" | |||
| 21160 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 21161 | "lwork : input int, optional\n Default: max(3*m,1)\n" | |||
| 21162 | "\nReturns\n-------\n" | |||
| 21163 | "qr : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 21164 | "tau : rank-1 array('F') with bounds (MIN(m,n))\n" | |||
| 21165 | "work : rank-1 array('F') with bounds (MAX(lwork,1))\n" | |||
| 21166 | "info : int"; | |||
| 21167 | /* extern void F_FUNC(cgerqf,CGERQF)(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 21168 | static PyObject *f2py_rout__flapack_cgerqf(const PyObject *capi_self, | |||
| 21169 | PyObject *capi_args, | |||
| 21170 | PyObject *capi_keywds, | |||
| 21171 | void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 21172 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 21173 | volatile int f2py_success = 1; | |||
| 21174 | /*decl*/ | |||
| 21175 | ||||
| 21176 | int m = 0; | |||
| 21177 | int n = 0; | |||
| 21178 | complex_float *a = NULL((void*)0); | |||
| 21179 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 21180 | const int a_Rank = 2; | |||
| 21181 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 21182 | int capi_a_intent = 0; | |||
| 21183 | int capi_overwrite_a = 0; | |||
| 21184 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 21185 | complex_float *tau = NULL((void*)0); | |||
| 21186 | npy_intp tau_Dims[1] = {-1}; | |||
| 21187 | const int tau_Rank = 1; | |||
| 21188 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 21189 | int capi_tau_intent = 0; | |||
| 21190 | complex_float *work = NULL((void*)0); | |||
| 21191 | npy_intp work_Dims[1] = {-1}; | |||
| 21192 | const int work_Rank = 1; | |||
| 21193 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 21194 | int capi_work_intent = 0; | |||
| 21195 | int lwork = 0; | |||
| 21196 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 21197 | int info = 0; | |||
| 21198 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 21199 | ||||
| 21200 | /*routdebugenter*/ | |||
| 21201 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21202 | f2py_start_clock(); | |||
| 21203 | #endif | |||
| 21204 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 21205 | "O|Oi:_flapack.cgerqf",\ | |||
| 21206 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 21207 | return NULL((void*)0); | |||
| 21208 | /*frompyobj*/ | |||
| 21209 | /* Processing variable a */ | |||
| 21210 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 21211 | ; | |||
| 21212 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 21213 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 21214 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 21215 | if (!PyErr_Occurred()) | |||
| 21216 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgerqf to C/Fortran array" ); | |||
| 21217 | } else { | |||
| 21218 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 21219 | ||||
| 21220 | /* Processing variable info */ | |||
| 21221 | /* Processing variable m */ | |||
| 21222 | m = shape(a,0)a_Dims[0]; | |||
| 21223 | /* Processing variable n */ | |||
| 21224 | n = shape(a,1)a_Dims[1]; | |||
| 21225 | /* Processing variable tau */ | |||
| 21226 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 21227 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21228 | capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 21229 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 21230 | if (!PyErr_Occurred()) | |||
| 21231 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.cgerqf to C/Fortran array" ); | |||
| 21232 | } else { | |||
| 21233 | tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 21234 | ||||
| 21235 | /* Processing variable lwork */ | |||
| 21236 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else | |||
| 21237 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgerqf() 1st keyword (lwork) can't be converted to int"); | |||
| 21238 | if (f2py_success) { | |||
| 21239 | CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","cgerqf:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgerqf:lwork=%d", "(""lwork>=m||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 21240 | /* Processing variable work */ | |||
| 21241 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 21242 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21243 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 21244 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 21245 | if (!PyErr_Occurred()) | |||
| 21246 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgerqf to C/Fortran array" ); | |||
| 21247 | } else { | |||
| 21248 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 21249 | ||||
| 21250 | /*end of frompyobj*/ | |||
| 21251 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21252 | f2py_start_call_clock(); | |||
| 21253 | #endif | |||
| 21254 | /*callfortranroutine*/ | |||
| 21255 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 21256 | (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ; | |||
| 21257 | /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/ | |||
| 21258 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 21259 | if (PyErr_Occurred()) | |||
| 21260 | f2py_success = 0; | |||
| 21261 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21262 | f2py_stop_call_clock(); | |||
| 21263 | #endif | |||
| 21264 | /*end of callfortranroutine*/ | |||
| 21265 | if (f2py_success) { | |||
| 21266 | /*pyobjfrom*/ | |||
| 21267 | /*end of pyobjfrom*/ | |||
| 21268 | CFUNCSMESS("Building return value.\n"); | |||
| 21269 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info); | |||
| 21270 | /*closepyobjfrom*/ | |||
| 21271 | /*end of closepyobjfrom*/ | |||
| 21272 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 21273 | /*cleanupfrompyobj*/ | |||
| 21274 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 21275 | /* End of cleaning variable work */ | |||
| 21276 | } /*CHECKSCALAR(lwork>=m||lwork==-1)*/ | |||
| 21277 | } /*if (f2py_success) of lwork*/ | |||
| 21278 | /* End of cleaning variable lwork */ | |||
| 21279 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 21280 | /* End of cleaning variable tau */ | |||
| 21281 | /* End of cleaning variable n */ | |||
| 21282 | /* End of cleaning variable m */ | |||
| 21283 | /* End of cleaning variable info */ | |||
| 21284 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 21285 | /* End of cleaning variable a */ | |||
| 21286 | /*end of cleanupfrompyobj*/ | |||
| 21287 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 21288 | /*routdebugfailure*/ | |||
| 21289 | } else { | |||
| 21290 | /*routdebugleave*/ | |||
| 21291 | } | |||
| 21292 | CFUNCSMESS("Freeing memory.\n"); | |||
| 21293 | /*freemem*/ | |||
| 21294 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21295 | f2py_stop_clock(); | |||
| 21296 | #endif | |||
| 21297 | return capi_buildvalue; | |||
| 21298 | } | |||
| 21299 | /******************************* end of cgerqf *******************************/ | |||
| 21300 | ||||
| 21301 | /*********************************** zgerqf ***********************************/ | |||
| 21302 | static char doc_f2py_rout__flapack_zgerqf[] = "\ | |||
| 21303 | qr,tau,work,info = zgerqf(a,[lwork,overwrite_a])\n\nWrapper for ``zgerqf``.\ | |||
| 21304 | \n\nParameters\n----------\n" | |||
| 21305 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 21306 | "\nOther Parameters\n----------------\n" | |||
| 21307 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 21308 | "lwork : input int, optional\n Default: max(3*m,1)\n" | |||
| 21309 | "\nReturns\n-------\n" | |||
| 21310 | "qr : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 21311 | "tau : rank-1 array('D') with bounds (MIN(m,n))\n" | |||
| 21312 | "work : rank-1 array('D') with bounds (MAX(lwork,1))\n" | |||
| 21313 | "info : int"; | |||
| 21314 | /* extern void F_FUNC(zgerqf,ZGERQF)(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 21315 | static PyObject *f2py_rout__flapack_zgerqf(const PyObject *capi_self, | |||
| 21316 | PyObject *capi_args, | |||
| 21317 | PyObject *capi_keywds, | |||
| 21318 | void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 21319 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 21320 | volatile int f2py_success = 1; | |||
| 21321 | /*decl*/ | |||
| 21322 | ||||
| 21323 | int m = 0; | |||
| 21324 | int n = 0; | |||
| 21325 | complex_double *a = NULL((void*)0); | |||
| 21326 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 21327 | const int a_Rank = 2; | |||
| 21328 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 21329 | int capi_a_intent = 0; | |||
| 21330 | int capi_overwrite_a = 0; | |||
| 21331 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 21332 | complex_double *tau = NULL((void*)0); | |||
| 21333 | npy_intp tau_Dims[1] = {-1}; | |||
| 21334 | const int tau_Rank = 1; | |||
| 21335 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 21336 | int capi_tau_intent = 0; | |||
| 21337 | complex_double *work = NULL((void*)0); | |||
| 21338 | npy_intp work_Dims[1] = {-1}; | |||
| 21339 | const int work_Rank = 1; | |||
| 21340 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 21341 | int capi_work_intent = 0; | |||
| 21342 | int lwork = 0; | |||
| 21343 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 21344 | int info = 0; | |||
| 21345 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 21346 | ||||
| 21347 | /*routdebugenter*/ | |||
| 21348 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21349 | f2py_start_clock(); | |||
| 21350 | #endif | |||
| 21351 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 21352 | "O|Oi:_flapack.zgerqf",\ | |||
| 21353 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 21354 | return NULL((void*)0); | |||
| 21355 | /*frompyobj*/ | |||
| 21356 | /* Processing variable a */ | |||
| 21357 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 21358 | ; | |||
| 21359 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 21360 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 21361 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 21362 | if (!PyErr_Occurred()) | |||
| 21363 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgerqf to C/Fortran array" ); | |||
| 21364 | } else { | |||
| 21365 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 21366 | ||||
| 21367 | /* Processing variable info */ | |||
| 21368 | /* Processing variable m */ | |||
| 21369 | m = shape(a,0)a_Dims[0]; | |||
| 21370 | /* Processing variable n */ | |||
| 21371 | n = shape(a,1)a_Dims[1]; | |||
| 21372 | /* Processing variable tau */ | |||
| 21373 | tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 21374 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21375 | capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 21376 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 21377 | if (!PyErr_Occurred()) | |||
| 21378 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.zgerqf to C/Fortran array" ); | |||
| 21379 | } else { | |||
| 21380 | tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 21381 | ||||
| 21382 | /* Processing variable lwork */ | |||
| 21383 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else | |||
| 21384 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgerqf() 1st keyword (lwork) can't be converted to int"); | |||
| 21385 | if (f2py_success) { | |||
| 21386 | CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","zgerqf:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgerqf:lwork=%d", "(""lwork>=m||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 21387 | /* Processing variable work */ | |||
| 21388 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 21389 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21390 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 21391 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 21392 | if (!PyErr_Occurred()) | |||
| 21393 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgerqf to C/Fortran array" ); | |||
| 21394 | } else { | |||
| 21395 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 21396 | ||||
| 21397 | /*end of frompyobj*/ | |||
| 21398 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21399 | f2py_start_call_clock(); | |||
| 21400 | #endif | |||
| 21401 | /*callfortranroutine*/ | |||
| 21402 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 21403 | (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ; | |||
| 21404 | /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/ | |||
| 21405 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 21406 | if (PyErr_Occurred()) | |||
| 21407 | f2py_success = 0; | |||
| 21408 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21409 | f2py_stop_call_clock(); | |||
| 21410 | #endif | |||
| 21411 | /*end of callfortranroutine*/ | |||
| 21412 | if (f2py_success) { | |||
| 21413 | /*pyobjfrom*/ | |||
| 21414 | /*end of pyobjfrom*/ | |||
| 21415 | CFUNCSMESS("Building return value.\n"); | |||
| 21416 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info); | |||
| 21417 | /*closepyobjfrom*/ | |||
| 21418 | /*end of closepyobjfrom*/ | |||
| 21419 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 21420 | /*cleanupfrompyobj*/ | |||
| 21421 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 21422 | /* End of cleaning variable work */ | |||
| 21423 | } /*CHECKSCALAR(lwork>=m||lwork==-1)*/ | |||
| 21424 | } /*if (f2py_success) of lwork*/ | |||
| 21425 | /* End of cleaning variable lwork */ | |||
| 21426 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 21427 | /* End of cleaning variable tau */ | |||
| 21428 | /* End of cleaning variable n */ | |||
| 21429 | /* End of cleaning variable m */ | |||
| 21430 | /* End of cleaning variable info */ | |||
| 21431 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 21432 | /* End of cleaning variable a */ | |||
| 21433 | /*end of cleanupfrompyobj*/ | |||
| 21434 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 21435 | /*routdebugfailure*/ | |||
| 21436 | } else { | |||
| 21437 | /*routdebugleave*/ | |||
| 21438 | } | |||
| 21439 | CFUNCSMESS("Freeing memory.\n"); | |||
| 21440 | /*freemem*/ | |||
| 21441 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21442 | f2py_stop_clock(); | |||
| 21443 | #endif | |||
| 21444 | return capi_buildvalue; | |||
| 21445 | } | |||
| 21446 | /******************************* end of zgerqf *******************************/ | |||
| 21447 | ||||
| 21448 | /*********************************** sgeev ***********************************/ | |||
| 21449 | static char doc_f2py_rout__flapack_sgeev[] = "\ | |||
| 21450 | wr,wi,vl,vr,info = sgeev(a,[compute_vl,compute_vr,lwork,overwrite_a])\n\nWrapper for ``sgeev``.\ | |||
| 21451 | \n\nParameters\n----------\n" | |||
| 21452 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 21453 | "\nOther Parameters\n----------------\n" | |||
| 21454 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 21455 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 21456 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 21457 | "lwork : input int, optional\n Default: max(4*n,1)\n" | |||
| 21458 | "\nReturns\n-------\n" | |||
| 21459 | "wr : rank-1 array('f') with bounds (n)\n" | |||
| 21460 | "wi : rank-1 array('f') with bounds (n)\n" | |||
| 21461 | "vl : rank-2 array('f') with bounds (ldvl,n)\n" | |||
| 21462 | "vr : rank-2 array('f') with bounds (ldvr,n)\n" | |||
| 21463 | "info : int"; | |||
| 21464 | /* extern void F_FUNC(sgeev,SGEEV)(char*,char*,F_INT*,float*,F_INT*,float*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 21465 | static PyObject *f2py_rout__flapack_sgeev(const PyObject *capi_self, | |||
| 21466 | PyObject *capi_args, | |||
| 21467 | PyObject *capi_keywds, | |||
| 21468 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 21469 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 21470 | volatile int f2py_success = 1; | |||
| 21471 | /*decl*/ | |||
| 21472 | ||||
| 21473 | int compute_vl = 0; | |||
| 21474 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 21475 | int compute_vr = 0; | |||
| 21476 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 21477 | int n = 0; | |||
| 21478 | float *a = NULL((void*)0); | |||
| 21479 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 21480 | const int a_Rank = 2; | |||
| 21481 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 21482 | int capi_a_intent = 0; | |||
| 21483 | int capi_overwrite_a = 0; | |||
| 21484 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 21485 | float *wr = NULL((void*)0); | |||
| 21486 | npy_intp wr_Dims[1] = {-1}; | |||
| 21487 | const int wr_Rank = 1; | |||
| 21488 | PyArrayObject *capi_wr_tmp = NULL((void*)0); | |||
| 21489 | int capi_wr_intent = 0; | |||
| 21490 | float *wi = NULL((void*)0); | |||
| 21491 | npy_intp wi_Dims[1] = {-1}; | |||
| 21492 | const int wi_Rank = 1; | |||
| 21493 | PyArrayObject *capi_wi_tmp = NULL((void*)0); | |||
| 21494 | int capi_wi_intent = 0; | |||
| 21495 | float *vl = NULL((void*)0); | |||
| 21496 | npy_intp vl_Dims[2] = {-1, -1}; | |||
| 21497 | const int vl_Rank = 2; | |||
| 21498 | PyArrayObject *capi_vl_tmp = NULL((void*)0); | |||
| 21499 | int capi_vl_intent = 0; | |||
| 21500 | int ldvl = 0; | |||
| 21501 | float *vr = NULL((void*)0); | |||
| 21502 | npy_intp vr_Dims[2] = {-1, -1}; | |||
| 21503 | const int vr_Rank = 2; | |||
| 21504 | PyArrayObject *capi_vr_tmp = NULL((void*)0); | |||
| 21505 | int capi_vr_intent = 0; | |||
| 21506 | int ldvr = 0; | |||
| 21507 | float *work = NULL((void*)0); | |||
| 21508 | npy_intp work_Dims[1] = {-1}; | |||
| 21509 | const int work_Rank = 1; | |||
| 21510 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 21511 | int capi_work_intent = 0; | |||
| 21512 | int lwork = 0; | |||
| 21513 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 21514 | int info = 0; | |||
| 21515 | static char *capi_kwlist[] = {"a","compute_vl","compute_vr","lwork","overwrite_a",NULL((void*)0)}; | |||
| 21516 | ||||
| 21517 | /*routdebugenter*/ | |||
| 21518 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21519 | f2py_start_clock(); | |||
| 21520 | #endif | |||
| 21521 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 21522 | "O|OOOi:_flapack.sgeev",\ | |||
| 21523 | capi_kwlist,&a_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 21524 | return NULL((void*)0); | |||
| 21525 | /*frompyobj*/ | |||
| 21526 | /* Processing variable compute_vl */ | |||
| 21527 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 21528 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.sgeev() 1st keyword (compute_vl) can't be converted to int"); | |||
| 21529 | if (f2py_success) { | |||
| 21530 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","sgeev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeev:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 21531 | /* Processing variable compute_vr */ | |||
| 21532 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 21533 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.sgeev() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 21534 | if (f2py_success) { | |||
| 21535 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","sgeev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeev:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 21536 | /* Processing variable a */ | |||
| 21537 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 21538 | ; | |||
| 21539 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 21540 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 21541 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 21542 | if (!PyErr_Occurred()) | |||
| 21543 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgeev to C/Fortran array" ); | |||
| 21544 | } else { | |||
| 21545 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 21546 | ||||
| 21547 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 21548 | /* Processing variable info */ | |||
| 21549 | /* Processing variable n */ | |||
| 21550 | n = shape(a,0)a_Dims[0]; | |||
| 21551 | /* Processing variable wr */ | |||
| 21552 | wr_Dims[0]=n; | |||
| 21553 | capi_wr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21554 | capi_wr_tmp = array_from_pyobj(NPY_FLOAT,wr_Dims,wr_Rank,capi_wr_intent,Py_None(&_Py_NoneStruct)); | |||
| 21555 | if (capi_wr_tmp == NULL((void*)0)) { | |||
| 21556 | if (!PyErr_Occurred()) | |||
| 21557 | PyErr_SetString(_flapack_error,"failed in converting hidden `wr' of _flapack.sgeev to C/Fortran array" ); | |||
| 21558 | } else { | |||
| 21559 | wr = (float *)(PyArray_DATA(capi_wr_tmp)((void *)((PyArrayObject_fields *)(capi_wr_tmp))->data)); | |||
| 21560 | ||||
| 21561 | /* Processing variable wi */ | |||
| 21562 | wi_Dims[0]=n; | |||
| 21563 | capi_wi_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21564 | capi_wi_tmp = array_from_pyobj(NPY_FLOAT,wi_Dims,wi_Rank,capi_wi_intent,Py_None(&_Py_NoneStruct)); | |||
| 21565 | if (capi_wi_tmp == NULL((void*)0)) { | |||
| 21566 | if (!PyErr_Occurred()) | |||
| 21567 | PyErr_SetString(_flapack_error,"failed in converting hidden `wi' of _flapack.sgeev to C/Fortran array" ); | |||
| 21568 | } else { | |||
| 21569 | wi = (float *)(PyArray_DATA(capi_wi_tmp)((void *)((PyArrayObject_fields *)(capi_wi_tmp))->data)); | |||
| 21570 | ||||
| 21571 | /* Processing variable ldvl */ | |||
| 21572 | ldvl = (compute_vl?n:1); | |||
| 21573 | /* Processing variable ldvr */ | |||
| 21574 | ldvr = (compute_vr?n:1); | |||
| 21575 | /* Processing variable lwork */ | |||
| 21576 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(4*n,1)((4*n > 1) ? (4*n) : (1)); else | |||
| 21577 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgeev() 3rd keyword (lwork) can't be converted to int"); | |||
| 21578 | if (f2py_success) { | |||
| 21579 | CHECKSCALAR(lwork>=((compute_vl||compute_vr)?4*n:3*n),"lwork>=((compute_vl||compute_vr)?4*n:3*n)","3rd keyword lwork","sgeev:lwork=%d",lwork)if (!(lwork>=((compute_vl||compute_vr)?4*n:3*n))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgeev:lwork=%d", "(""lwork>=((compute_vl||compute_vr)?4*n:3*n)" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 21580 | /* Processing variable work */ | |||
| 21581 | work_Dims[0]=lwork; | |||
| 21582 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 21583 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 21584 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 21585 | if (!PyErr_Occurred()) | |||
| 21586 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgeev to C/Fortran array" ); | |||
| 21587 | } else { | |||
| 21588 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 21589 | ||||
| 21590 | /* Processing variable vl */ | |||
| 21591 | vl_Dims[0]=ldvl,vl_Dims[1]=n; | |||
| 21592 | capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21593 | capi_vl_tmp = array_from_pyobj(NPY_FLOAT,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct)); | |||
| 21594 | if (capi_vl_tmp == NULL((void*)0)) { | |||
| 21595 | if (!PyErr_Occurred()) | |||
| 21596 | PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.sgeev to C/Fortran array" ); | |||
| 21597 | } else { | |||
| 21598 | vl = (float *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data)); | |||
| 21599 | ||||
| 21600 | /* Processing variable vr */ | |||
| 21601 | vr_Dims[0]=ldvr,vr_Dims[1]=n; | |||
| 21602 | capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21603 | capi_vr_tmp = array_from_pyobj(NPY_FLOAT,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct)); | |||
| 21604 | if (capi_vr_tmp == NULL((void*)0)) { | |||
| 21605 | if (!PyErr_Occurred()) | |||
| 21606 | PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.sgeev to C/Fortran array" ); | |||
| 21607 | } else { | |||
| 21608 | vr = (float *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data)); | |||
| 21609 | ||||
| 21610 | /*end of frompyobj*/ | |||
| 21611 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21612 | f2py_start_call_clock(); | |||
| 21613 | #endif | |||
| 21614 | /*callfortranroutine*/ | |||
| 21615 | {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,wr,wi,vl,&ldvl,vr,&ldvr,work,&lwork,&info);} ; | |||
| 21616 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,wr,wi,vl,&ldvl,vr,&ldvr,work,&lwork,&info);*/ | |||
| 21617 | if (PyErr_Occurred()) | |||
| 21618 | f2py_success = 0; | |||
| 21619 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21620 | f2py_stop_call_clock(); | |||
| 21621 | #endif | |||
| 21622 | /*end of callfortranroutine*/ | |||
| 21623 | if (f2py_success) { | |||
| 21624 | /*pyobjfrom*/ | |||
| 21625 | /*end of pyobjfrom*/ | |||
| 21626 | CFUNCSMESS("Building return value.\n"); | |||
| 21627 | capi_buildvalue = Py_BuildValue("NNNNi",capi_wr_tmp,capi_wi_tmp,capi_vl_tmp,capi_vr_tmp,info); | |||
| 21628 | /*closepyobjfrom*/ | |||
| 21629 | /*end of closepyobjfrom*/ | |||
| 21630 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 21631 | /*cleanupfrompyobj*/ | |||
| 21632 | } /*if (capi_vr_tmp == NULL) ... else of vr*/ | |||
| 21633 | /* End of cleaning variable vr */ | |||
| 21634 | } /*if (capi_vl_tmp == NULL) ... else of vl*/ | |||
| 21635 | /* End of cleaning variable vl */ | |||
| 21636 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 21637 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 21638 | /* End of cleaning variable work */ | |||
| 21639 | } /*CHECKSCALAR(lwork>=((compute_vl||compute_vr)?4*n:3*n))*/ | |||
| 21640 | } /*if (f2py_success) of lwork*/ | |||
| 21641 | /* End of cleaning variable lwork */ | |||
| 21642 | /* End of cleaning variable ldvr */ | |||
| 21643 | /* End of cleaning variable ldvl */ | |||
| 21644 | } /*if (capi_wi_tmp == NULL) ... else of wi*/ | |||
| 21645 | /* End of cleaning variable wi */ | |||
| 21646 | } /*if (capi_wr_tmp == NULL) ... else of wr*/ | |||
| 21647 | /* End of cleaning variable wr */ | |||
| 21648 | /* End of cleaning variable n */ | |||
| 21649 | /* End of cleaning variable info */ | |||
| 21650 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 21651 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 21652 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 21653 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 21654 | /* End of cleaning variable a */ | |||
| 21655 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 21656 | } /*if (f2py_success) of compute_vr*/ | |||
| 21657 | /* End of cleaning variable compute_vr */ | |||
| 21658 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 21659 | } /*if (f2py_success) of compute_vl*/ | |||
| 21660 | /* End of cleaning variable compute_vl */ | |||
| 21661 | /*end of cleanupfrompyobj*/ | |||
| 21662 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 21663 | /*routdebugfailure*/ | |||
| 21664 | } else { | |||
| 21665 | /*routdebugleave*/ | |||
| 21666 | } | |||
| 21667 | CFUNCSMESS("Freeing memory.\n"); | |||
| 21668 | /*freemem*/ | |||
| 21669 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21670 | f2py_stop_clock(); | |||
| 21671 | #endif | |||
| 21672 | return capi_buildvalue; | |||
| 21673 | } | |||
| 21674 | /******************************** end of sgeev ********************************/ | |||
| 21675 | ||||
| 21676 | /*********************************** dgeev ***********************************/ | |||
| 21677 | static char doc_f2py_rout__flapack_dgeev[] = "\ | |||
| 21678 | wr,wi,vl,vr,info = dgeev(a,[compute_vl,compute_vr,lwork,overwrite_a])\n\nWrapper for ``dgeev``.\ | |||
| 21679 | \n\nParameters\n----------\n" | |||
| 21680 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 21681 | "\nOther Parameters\n----------------\n" | |||
| 21682 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 21683 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 21684 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 21685 | "lwork : input int, optional\n Default: max(4*n,1)\n" | |||
| 21686 | "\nReturns\n-------\n" | |||
| 21687 | "wr : rank-1 array('d') with bounds (n)\n" | |||
| 21688 | "wi : rank-1 array('d') with bounds (n)\n" | |||
| 21689 | "vl : rank-2 array('d') with bounds (ldvl,n)\n" | |||
| 21690 | "vr : rank-2 array('d') with bounds (ldvr,n)\n" | |||
| 21691 | "info : int"; | |||
| 21692 | /* extern void F_FUNC(dgeev,DGEEV)(char*,char*,F_INT*,double*,F_INT*,double*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 21693 | static PyObject *f2py_rout__flapack_dgeev(const PyObject *capi_self, | |||
| 21694 | PyObject *capi_args, | |||
| 21695 | PyObject *capi_keywds, | |||
| 21696 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 21697 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 21698 | volatile int f2py_success = 1; | |||
| 21699 | /*decl*/ | |||
| 21700 | ||||
| 21701 | int compute_vl = 0; | |||
| 21702 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 21703 | int compute_vr = 0; | |||
| 21704 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 21705 | int n = 0; | |||
| 21706 | double *a = NULL((void*)0); | |||
| 21707 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 21708 | const int a_Rank = 2; | |||
| 21709 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 21710 | int capi_a_intent = 0; | |||
| 21711 | int capi_overwrite_a = 0; | |||
| 21712 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 21713 | double *wr = NULL((void*)0); | |||
| 21714 | npy_intp wr_Dims[1] = {-1}; | |||
| 21715 | const int wr_Rank = 1; | |||
| 21716 | PyArrayObject *capi_wr_tmp = NULL((void*)0); | |||
| 21717 | int capi_wr_intent = 0; | |||
| 21718 | double *wi = NULL((void*)0); | |||
| 21719 | npy_intp wi_Dims[1] = {-1}; | |||
| 21720 | const int wi_Rank = 1; | |||
| 21721 | PyArrayObject *capi_wi_tmp = NULL((void*)0); | |||
| 21722 | int capi_wi_intent = 0; | |||
| 21723 | double *vl = NULL((void*)0); | |||
| 21724 | npy_intp vl_Dims[2] = {-1, -1}; | |||
| 21725 | const int vl_Rank = 2; | |||
| 21726 | PyArrayObject *capi_vl_tmp = NULL((void*)0); | |||
| 21727 | int capi_vl_intent = 0; | |||
| 21728 | int ldvl = 0; | |||
| 21729 | double *vr = NULL((void*)0); | |||
| 21730 | npy_intp vr_Dims[2] = {-1, -1}; | |||
| 21731 | const int vr_Rank = 2; | |||
| 21732 | PyArrayObject *capi_vr_tmp = NULL((void*)0); | |||
| 21733 | int capi_vr_intent = 0; | |||
| 21734 | int ldvr = 0; | |||
| 21735 | double *work = NULL((void*)0); | |||
| 21736 | npy_intp work_Dims[1] = {-1}; | |||
| 21737 | const int work_Rank = 1; | |||
| 21738 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 21739 | int capi_work_intent = 0; | |||
| 21740 | int lwork = 0; | |||
| 21741 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 21742 | int info = 0; | |||
| 21743 | static char *capi_kwlist[] = {"a","compute_vl","compute_vr","lwork","overwrite_a",NULL((void*)0)}; | |||
| 21744 | ||||
| 21745 | /*routdebugenter*/ | |||
| 21746 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21747 | f2py_start_clock(); | |||
| 21748 | #endif | |||
| 21749 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 21750 | "O|OOOi:_flapack.dgeev",\ | |||
| 21751 | capi_kwlist,&a_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 21752 | return NULL((void*)0); | |||
| 21753 | /*frompyobj*/ | |||
| 21754 | /* Processing variable compute_vl */ | |||
| 21755 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 21756 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.dgeev() 1st keyword (compute_vl) can't be converted to int"); | |||
| 21757 | if (f2py_success) { | |||
| 21758 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","dgeev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeev:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 21759 | /* Processing variable compute_vr */ | |||
| 21760 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 21761 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.dgeev() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 21762 | if (f2py_success) { | |||
| 21763 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","dgeev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeev:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 21764 | /* Processing variable a */ | |||
| 21765 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 21766 | ; | |||
| 21767 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 21768 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 21769 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 21770 | if (!PyErr_Occurred()) | |||
| 21771 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgeev to C/Fortran array" ); | |||
| 21772 | } else { | |||
| 21773 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 21774 | ||||
| 21775 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 21776 | /* Processing variable info */ | |||
| 21777 | /* Processing variable n */ | |||
| 21778 | n = shape(a,0)a_Dims[0]; | |||
| 21779 | /* Processing variable wr */ | |||
| 21780 | wr_Dims[0]=n; | |||
| 21781 | capi_wr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21782 | capi_wr_tmp = array_from_pyobj(NPY_DOUBLE,wr_Dims,wr_Rank,capi_wr_intent,Py_None(&_Py_NoneStruct)); | |||
| 21783 | if (capi_wr_tmp == NULL((void*)0)) { | |||
| 21784 | if (!PyErr_Occurred()) | |||
| 21785 | PyErr_SetString(_flapack_error,"failed in converting hidden `wr' of _flapack.dgeev to C/Fortran array" ); | |||
| 21786 | } else { | |||
| 21787 | wr = (double *)(PyArray_DATA(capi_wr_tmp)((void *)((PyArrayObject_fields *)(capi_wr_tmp))->data)); | |||
| 21788 | ||||
| 21789 | /* Processing variable wi */ | |||
| 21790 | wi_Dims[0]=n; | |||
| 21791 | capi_wi_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21792 | capi_wi_tmp = array_from_pyobj(NPY_DOUBLE,wi_Dims,wi_Rank,capi_wi_intent,Py_None(&_Py_NoneStruct)); | |||
| 21793 | if (capi_wi_tmp == NULL((void*)0)) { | |||
| 21794 | if (!PyErr_Occurred()) | |||
| 21795 | PyErr_SetString(_flapack_error,"failed in converting hidden `wi' of _flapack.dgeev to C/Fortran array" ); | |||
| 21796 | } else { | |||
| 21797 | wi = (double *)(PyArray_DATA(capi_wi_tmp)((void *)((PyArrayObject_fields *)(capi_wi_tmp))->data)); | |||
| 21798 | ||||
| 21799 | /* Processing variable ldvl */ | |||
| 21800 | ldvl = (compute_vl?n:1); | |||
| 21801 | /* Processing variable ldvr */ | |||
| 21802 | ldvr = (compute_vr?n:1); | |||
| 21803 | /* Processing variable lwork */ | |||
| 21804 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(4*n,1)((4*n > 1) ? (4*n) : (1)); else | |||
| 21805 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgeev() 3rd keyword (lwork) can't be converted to int"); | |||
| 21806 | if (f2py_success) { | |||
| 21807 | CHECKSCALAR(lwork>=((compute_vl||compute_vr)?4*n:3*n),"lwork>=((compute_vl||compute_vr)?4*n:3*n)","3rd keyword lwork","dgeev:lwork=%d",lwork)if (!(lwork>=((compute_vl||compute_vr)?4*n:3*n))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgeev:lwork=%d", "(""lwork>=((compute_vl||compute_vr)?4*n:3*n)" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 21808 | /* Processing variable work */ | |||
| 21809 | work_Dims[0]=lwork; | |||
| 21810 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 21811 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 21812 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 21813 | if (!PyErr_Occurred()) | |||
| 21814 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgeev to C/Fortran array" ); | |||
| 21815 | } else { | |||
| 21816 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 21817 | ||||
| 21818 | /* Processing variable vl */ | |||
| 21819 | vl_Dims[0]=ldvl,vl_Dims[1]=n; | |||
| 21820 | capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21821 | capi_vl_tmp = array_from_pyobj(NPY_DOUBLE,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct)); | |||
| 21822 | if (capi_vl_tmp == NULL((void*)0)) { | |||
| 21823 | if (!PyErr_Occurred()) | |||
| 21824 | PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.dgeev to C/Fortran array" ); | |||
| 21825 | } else { | |||
| 21826 | vl = (double *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data)); | |||
| 21827 | ||||
| 21828 | /* Processing variable vr */ | |||
| 21829 | vr_Dims[0]=ldvr,vr_Dims[1]=n; | |||
| 21830 | capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 21831 | capi_vr_tmp = array_from_pyobj(NPY_DOUBLE,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct)); | |||
| 21832 | if (capi_vr_tmp == NULL((void*)0)) { | |||
| 21833 | if (!PyErr_Occurred()) | |||
| 21834 | PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.dgeev to C/Fortran array" ); | |||
| 21835 | } else { | |||
| 21836 | vr = (double *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data)); | |||
| 21837 | ||||
| 21838 | /*end of frompyobj*/ | |||
| 21839 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21840 | f2py_start_call_clock(); | |||
| 21841 | #endif | |||
| 21842 | /*callfortranroutine*/ | |||
| 21843 | {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,wr,wi,vl,&ldvl,vr,&ldvr,work,&lwork,&info);} ; | |||
| 21844 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,wr,wi,vl,&ldvl,vr,&ldvr,work,&lwork,&info);*/ | |||
| 21845 | if (PyErr_Occurred()) | |||
| 21846 | f2py_success = 0; | |||
| 21847 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21848 | f2py_stop_call_clock(); | |||
| 21849 | #endif | |||
| 21850 | /*end of callfortranroutine*/ | |||
| 21851 | if (f2py_success) { | |||
| 21852 | /*pyobjfrom*/ | |||
| 21853 | /*end of pyobjfrom*/ | |||
| 21854 | CFUNCSMESS("Building return value.\n"); | |||
| 21855 | capi_buildvalue = Py_BuildValue("NNNNi",capi_wr_tmp,capi_wi_tmp,capi_vl_tmp,capi_vr_tmp,info); | |||
| 21856 | /*closepyobjfrom*/ | |||
| 21857 | /*end of closepyobjfrom*/ | |||
| 21858 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 21859 | /*cleanupfrompyobj*/ | |||
| 21860 | } /*if (capi_vr_tmp == NULL) ... else of vr*/ | |||
| 21861 | /* End of cleaning variable vr */ | |||
| 21862 | } /*if (capi_vl_tmp == NULL) ... else of vl*/ | |||
| 21863 | /* End of cleaning variable vl */ | |||
| 21864 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 21865 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 21866 | /* End of cleaning variable work */ | |||
| 21867 | } /*CHECKSCALAR(lwork>=((compute_vl||compute_vr)?4*n:3*n))*/ | |||
| 21868 | } /*if (f2py_success) of lwork*/ | |||
| 21869 | /* End of cleaning variable lwork */ | |||
| 21870 | /* End of cleaning variable ldvr */ | |||
| 21871 | /* End of cleaning variable ldvl */ | |||
| 21872 | } /*if (capi_wi_tmp == NULL) ... else of wi*/ | |||
| 21873 | /* End of cleaning variable wi */ | |||
| 21874 | } /*if (capi_wr_tmp == NULL) ... else of wr*/ | |||
| 21875 | /* End of cleaning variable wr */ | |||
| 21876 | /* End of cleaning variable n */ | |||
| 21877 | /* End of cleaning variable info */ | |||
| 21878 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 21879 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 21880 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 21881 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 21882 | /* End of cleaning variable a */ | |||
| 21883 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 21884 | } /*if (f2py_success) of compute_vr*/ | |||
| 21885 | /* End of cleaning variable compute_vr */ | |||
| 21886 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 21887 | } /*if (f2py_success) of compute_vl*/ | |||
| 21888 | /* End of cleaning variable compute_vl */ | |||
| 21889 | /*end of cleanupfrompyobj*/ | |||
| 21890 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 21891 | /*routdebugfailure*/ | |||
| 21892 | } else { | |||
| 21893 | /*routdebugleave*/ | |||
| 21894 | } | |||
| 21895 | CFUNCSMESS("Freeing memory.\n"); | |||
| 21896 | /*freemem*/ | |||
| 21897 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21898 | f2py_stop_clock(); | |||
| 21899 | #endif | |||
| 21900 | return capi_buildvalue; | |||
| 21901 | } | |||
| 21902 | /******************************** end of dgeev ********************************/ | |||
| 21903 | ||||
| 21904 | /******************************** sgeev_lwork ********************************/ | |||
| 21905 | static char doc_f2py_rout__flapack_sgeev_lwork[] = "\ | |||
| 21906 | work,info = sgeev_lwork(n,[compute_vl,compute_vr])\n\nWrapper for ``sgeev_lwork``.\ | |||
| 21907 | \n\nParameters\n----------\n" | |||
| 21908 | "n : input int\n" | |||
| 21909 | "\nOther Parameters\n----------------\n" | |||
| 21910 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 21911 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 21912 | "\nReturns\n-------\n" | |||
| 21913 | "work : float\n" | |||
| 21914 | "info : int"; | |||
| 21915 | /* extern void F_FUNC(sgeev ,SGEEV )(char*,char*,F_INT*,float*,F_INT*,float*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 21916 | static PyObject *f2py_rout__flapack_sgeev_lwork(const PyObject *capi_self, | |||
| 21917 | PyObject *capi_args, | |||
| 21918 | PyObject *capi_keywds, | |||
| 21919 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 21920 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 21921 | volatile int f2py_success = 1; | |||
| 21922 | /*decl*/ | |||
| 21923 | ||||
| 21924 | int compute_vl = 0; | |||
| 21925 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 21926 | int compute_vr = 0; | |||
| 21927 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 21928 | int n = 0; | |||
| 21929 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 21930 | float a = 0; | |||
| 21931 | float wr = 0; | |||
| 21932 | float wi = 0; | |||
| 21933 | float vl = 0; | |||
| 21934 | int ldvl = 0; | |||
| 21935 | float vr = 0; | |||
| 21936 | int ldvr = 0; | |||
| 21937 | float work = 0; | |||
| 21938 | int lwork = 0; | |||
| 21939 | int info = 0; | |||
| 21940 | static char *capi_kwlist[] = {"n","compute_vl","compute_vr",NULL((void*)0)}; | |||
| 21941 | ||||
| 21942 | /*routdebugenter*/ | |||
| 21943 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21944 | f2py_start_clock(); | |||
| 21945 | #endif | |||
| 21946 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 21947 | "O|OO:_flapack.sgeev_lwork",\ | |||
| 21948 | capi_kwlist,&n_capi,&compute_vl_capi,&compute_vr_capi)) | |||
| 21949 | return NULL((void*)0); | |||
| 21950 | /*frompyobj*/ | |||
| 21951 | /* Processing variable compute_vl */ | |||
| 21952 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 21953 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.sgeev_lwork() 1st keyword (compute_vl) can't be converted to int"); | |||
| 21954 | if (f2py_success) { | |||
| 21955 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","sgeev_lwork:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeev_lwork:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 21956 | /* Processing variable compute_vr */ | |||
| 21957 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 21958 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.sgeev_lwork() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 21959 | if (f2py_success) { | |||
| 21960 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","sgeev_lwork:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgeev_lwork:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 21961 | /* Processing variable n */ | |||
| 21962 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgeev_lwork() 1st argument (n) can't be converted to int"); | |||
| 21963 | if (f2py_success) { | |||
| 21964 | /* Processing variable a */ | |||
| 21965 | /* Processing variable wr */ | |||
| 21966 | /* Processing variable wi */ | |||
| 21967 | /* Processing variable vl */ | |||
| 21968 | /* Processing variable vr */ | |||
| 21969 | /* Processing variable lwork */ | |||
| 21970 | lwork = -1; | |||
| 21971 | /* Processing variable work */ | |||
| 21972 | /* Processing variable info */ | |||
| 21973 | /* Processing variable ldvl */ | |||
| 21974 | ldvl = (compute_vl?n:1); | |||
| 21975 | /* Processing variable ldvr */ | |||
| 21976 | ldvr = (compute_vr?n:1); | |||
| 21977 | /*end of frompyobj*/ | |||
| 21978 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21979 | f2py_start_call_clock(); | |||
| 21980 | #endif | |||
| 21981 | /*callfortranroutine*/ | |||
| 21982 | {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,&a,&n,&wr,&wi,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&info);} ; | |||
| 21983 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,&a,&wr,&wi,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&info);*/ | |||
| 21984 | if (PyErr_Occurred()) | |||
| 21985 | f2py_success = 0; | |||
| 21986 | #ifdef F2PY_REPORT_ATEXIT | |||
| 21987 | f2py_stop_call_clock(); | |||
| 21988 | #endif | |||
| 21989 | /*end of callfortranroutine*/ | |||
| 21990 | if (f2py_success) { | |||
| 21991 | /*pyobjfrom*/ | |||
| 21992 | /*end of pyobjfrom*/ | |||
| 21993 | CFUNCSMESS("Building return value.\n"); | |||
| 21994 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 21995 | /*closepyobjfrom*/ | |||
| 21996 | /*end of closepyobjfrom*/ | |||
| 21997 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 21998 | /*cleanupfrompyobj*/ | |||
| 21999 | /* End of cleaning variable ldvr */ | |||
| 22000 | /* End of cleaning variable ldvl */ | |||
| 22001 | /* End of cleaning variable info */ | |||
| 22002 | /* End of cleaning variable work */ | |||
| 22003 | /* End of cleaning variable lwork */ | |||
| 22004 | /* End of cleaning variable vr */ | |||
| 22005 | /* End of cleaning variable vl */ | |||
| 22006 | /* End of cleaning variable wi */ | |||
| 22007 | /* End of cleaning variable wr */ | |||
| 22008 | /* End of cleaning variable a */ | |||
| 22009 | } /*if (f2py_success) of n*/ | |||
| 22010 | /* End of cleaning variable n */ | |||
| 22011 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 22012 | } /*if (f2py_success) of compute_vr*/ | |||
| 22013 | /* End of cleaning variable compute_vr */ | |||
| 22014 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 22015 | } /*if (f2py_success) of compute_vl*/ | |||
| 22016 | /* End of cleaning variable compute_vl */ | |||
| 22017 | /*end of cleanupfrompyobj*/ | |||
| 22018 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 22019 | /*routdebugfailure*/ | |||
| 22020 | } else { | |||
| 22021 | /*routdebugleave*/ | |||
| 22022 | } | |||
| 22023 | CFUNCSMESS("Freeing memory.\n"); | |||
| 22024 | /*freemem*/ | |||
| 22025 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22026 | f2py_stop_clock(); | |||
| 22027 | #endif | |||
| 22028 | return capi_buildvalue; | |||
| 22029 | } | |||
| 22030 | /***************************** end of sgeev_lwork *****************************/ | |||
| 22031 | ||||
| 22032 | /******************************** dgeev_lwork ********************************/ | |||
| 22033 | static char doc_f2py_rout__flapack_dgeev_lwork[] = "\ | |||
| 22034 | work,info = dgeev_lwork(n,[compute_vl,compute_vr])\n\nWrapper for ``dgeev_lwork``.\ | |||
| 22035 | \n\nParameters\n----------\n" | |||
| 22036 | "n : input int\n" | |||
| 22037 | "\nOther Parameters\n----------------\n" | |||
| 22038 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 22039 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 22040 | "\nReturns\n-------\n" | |||
| 22041 | "work : float\n" | |||
| 22042 | "info : int"; | |||
| 22043 | /* extern void F_FUNC(dgeev ,DGEEV )(char*,char*,F_INT*,double*,F_INT*,double*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 22044 | static PyObject *f2py_rout__flapack_dgeev_lwork(const PyObject *capi_self, | |||
| 22045 | PyObject *capi_args, | |||
| 22046 | PyObject *capi_keywds, | |||
| 22047 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 22048 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 22049 | volatile int f2py_success = 1; | |||
| 22050 | /*decl*/ | |||
| 22051 | ||||
| 22052 | int compute_vl = 0; | |||
| 22053 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 22054 | int compute_vr = 0; | |||
| 22055 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 22056 | int n = 0; | |||
| 22057 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 22058 | double a = 0; | |||
| 22059 | double wr = 0; | |||
| 22060 | double wi = 0; | |||
| 22061 | double vl = 0; | |||
| 22062 | int ldvl = 0; | |||
| 22063 | double vr = 0; | |||
| 22064 | int ldvr = 0; | |||
| 22065 | double work = 0; | |||
| 22066 | int lwork = 0; | |||
| 22067 | int info = 0; | |||
| 22068 | static char *capi_kwlist[] = {"n","compute_vl","compute_vr",NULL((void*)0)}; | |||
| 22069 | ||||
| 22070 | /*routdebugenter*/ | |||
| 22071 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22072 | f2py_start_clock(); | |||
| 22073 | #endif | |||
| 22074 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 22075 | "O|OO:_flapack.dgeev_lwork",\ | |||
| 22076 | capi_kwlist,&n_capi,&compute_vl_capi,&compute_vr_capi)) | |||
| 22077 | return NULL((void*)0); | |||
| 22078 | /*frompyobj*/ | |||
| 22079 | /* Processing variable compute_vl */ | |||
| 22080 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 22081 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.dgeev_lwork() 1st keyword (compute_vl) can't be converted to int"); | |||
| 22082 | if (f2py_success) { | |||
| 22083 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","dgeev_lwork:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeev_lwork:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 22084 | /* Processing variable compute_vr */ | |||
| 22085 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 22086 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.dgeev_lwork() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 22087 | if (f2py_success) { | |||
| 22088 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","dgeev_lwork:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgeev_lwork:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 22089 | /* Processing variable n */ | |||
| 22090 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgeev_lwork() 1st argument (n) can't be converted to int"); | |||
| 22091 | if (f2py_success) { | |||
| 22092 | /* Processing variable a */ | |||
| 22093 | /* Processing variable wr */ | |||
| 22094 | /* Processing variable wi */ | |||
| 22095 | /* Processing variable vl */ | |||
| 22096 | /* Processing variable vr */ | |||
| 22097 | /* Processing variable lwork */ | |||
| 22098 | lwork = -1; | |||
| 22099 | /* Processing variable work */ | |||
| 22100 | /* Processing variable info */ | |||
| 22101 | /* Processing variable ldvl */ | |||
| 22102 | ldvl = (compute_vl?n:1); | |||
| 22103 | /* Processing variable ldvr */ | |||
| 22104 | ldvr = (compute_vr?n:1); | |||
| 22105 | /*end of frompyobj*/ | |||
| 22106 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22107 | f2py_start_call_clock(); | |||
| 22108 | #endif | |||
| 22109 | /*callfortranroutine*/ | |||
| 22110 | {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,&a,&n,&wr,&wi,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&info);} ; | |||
| 22111 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,&a,&wr,&wi,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&info);*/ | |||
| 22112 | if (PyErr_Occurred()) | |||
| 22113 | f2py_success = 0; | |||
| 22114 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22115 | f2py_stop_call_clock(); | |||
| 22116 | #endif | |||
| 22117 | /*end of callfortranroutine*/ | |||
| 22118 | if (f2py_success) { | |||
| 22119 | /*pyobjfrom*/ | |||
| 22120 | /*end of pyobjfrom*/ | |||
| 22121 | CFUNCSMESS("Building return value.\n"); | |||
| 22122 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 22123 | /*closepyobjfrom*/ | |||
| 22124 | /*end of closepyobjfrom*/ | |||
| 22125 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 22126 | /*cleanupfrompyobj*/ | |||
| 22127 | /* End of cleaning variable ldvr */ | |||
| 22128 | /* End of cleaning variable ldvl */ | |||
| 22129 | /* End of cleaning variable info */ | |||
| 22130 | /* End of cleaning variable work */ | |||
| 22131 | /* End of cleaning variable lwork */ | |||
| 22132 | /* End of cleaning variable vr */ | |||
| 22133 | /* End of cleaning variable vl */ | |||
| 22134 | /* End of cleaning variable wi */ | |||
| 22135 | /* End of cleaning variable wr */ | |||
| 22136 | /* End of cleaning variable a */ | |||
| 22137 | } /*if (f2py_success) of n*/ | |||
| 22138 | /* End of cleaning variable n */ | |||
| 22139 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 22140 | } /*if (f2py_success) of compute_vr*/ | |||
| 22141 | /* End of cleaning variable compute_vr */ | |||
| 22142 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 22143 | } /*if (f2py_success) of compute_vl*/ | |||
| 22144 | /* End of cleaning variable compute_vl */ | |||
| 22145 | /*end of cleanupfrompyobj*/ | |||
| 22146 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 22147 | /*routdebugfailure*/ | |||
| 22148 | } else { | |||
| 22149 | /*routdebugleave*/ | |||
| 22150 | } | |||
| 22151 | CFUNCSMESS("Freeing memory.\n"); | |||
| 22152 | /*freemem*/ | |||
| 22153 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22154 | f2py_stop_clock(); | |||
| 22155 | #endif | |||
| 22156 | return capi_buildvalue; | |||
| 22157 | } | |||
| 22158 | /***************************** end of dgeev_lwork *****************************/ | |||
| 22159 | ||||
| 22160 | /*********************************** cgeev ***********************************/ | |||
| 22161 | static char doc_f2py_rout__flapack_cgeev[] = "\ | |||
| 22162 | w,vl,vr,info = cgeev(a,[compute_vl,compute_vr,lwork,overwrite_a])\n\nWrapper for ``cgeev``.\ | |||
| 22163 | \n\nParameters\n----------\n" | |||
| 22164 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 22165 | "\nOther Parameters\n----------------\n" | |||
| 22166 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 22167 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 22168 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 22169 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 22170 | "\nReturns\n-------\n" | |||
| 22171 | "w : rank-1 array('F') with bounds (n)\n" | |||
| 22172 | "vl : rank-2 array('F') with bounds (ldvl,n)\n" | |||
| 22173 | "vr : rank-2 array('F') with bounds (ldvr,n)\n" | |||
| 22174 | "info : int"; | |||
| 22175 | /* extern void F_FUNC(cgeev,CGEEV)(char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 22176 | static PyObject *f2py_rout__flapack_cgeev(const PyObject *capi_self, | |||
| 22177 | PyObject *capi_args, | |||
| 22178 | PyObject *capi_keywds, | |||
| 22179 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 22180 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 22181 | volatile int f2py_success = 1; | |||
| 22182 | /*decl*/ | |||
| 22183 | ||||
| 22184 | int compute_vl = 0; | |||
| 22185 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 22186 | int compute_vr = 0; | |||
| 22187 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 22188 | int n = 0; | |||
| 22189 | complex_float *a = NULL((void*)0); | |||
| 22190 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 22191 | const int a_Rank = 2; | |||
| 22192 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 22193 | int capi_a_intent = 0; | |||
| 22194 | int capi_overwrite_a = 0; | |||
| 22195 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 22196 | complex_float *w = NULL((void*)0); | |||
| 22197 | npy_intp w_Dims[1] = {-1}; | |||
| 22198 | const int w_Rank = 1; | |||
| 22199 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 22200 | int capi_w_intent = 0; | |||
| 22201 | complex_float *vl = NULL((void*)0); | |||
| 22202 | npy_intp vl_Dims[2] = {-1, -1}; | |||
| 22203 | const int vl_Rank = 2; | |||
| 22204 | PyArrayObject *capi_vl_tmp = NULL((void*)0); | |||
| 22205 | int capi_vl_intent = 0; | |||
| 22206 | int ldvl = 0; | |||
| 22207 | complex_float *vr = NULL((void*)0); | |||
| 22208 | npy_intp vr_Dims[2] = {-1, -1}; | |||
| 22209 | const int vr_Rank = 2; | |||
| 22210 | PyArrayObject *capi_vr_tmp = NULL((void*)0); | |||
| 22211 | int capi_vr_intent = 0; | |||
| 22212 | int ldvr = 0; | |||
| 22213 | complex_float *work = NULL((void*)0); | |||
| 22214 | npy_intp work_Dims[1] = {-1}; | |||
| 22215 | const int work_Rank = 1; | |||
| 22216 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 22217 | int capi_work_intent = 0; | |||
| 22218 | int lwork = 0; | |||
| 22219 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 22220 | float *rwork = NULL((void*)0); | |||
| 22221 | npy_intp rwork_Dims[1] = {-1}; | |||
| 22222 | const int rwork_Rank = 1; | |||
| 22223 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 22224 | int capi_rwork_intent = 0; | |||
| 22225 | int info = 0; | |||
| 22226 | static char *capi_kwlist[] = {"a","compute_vl","compute_vr","lwork","overwrite_a",NULL((void*)0)}; | |||
| 22227 | ||||
| 22228 | /*routdebugenter*/ | |||
| 22229 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22230 | f2py_start_clock(); | |||
| 22231 | #endif | |||
| 22232 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 22233 | "O|OOOi:_flapack.cgeev",\ | |||
| 22234 | capi_kwlist,&a_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 22235 | return NULL((void*)0); | |||
| 22236 | /*frompyobj*/ | |||
| 22237 | /* Processing variable compute_vl */ | |||
| 22238 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 22239 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.cgeev() 1st keyword (compute_vl) can't be converted to int"); | |||
| 22240 | if (f2py_success) { | |||
| 22241 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","cgeev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeev:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 22242 | /* Processing variable compute_vr */ | |||
| 22243 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 22244 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.cgeev() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 22245 | if (f2py_success) { | |||
| 22246 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","cgeev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeev:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 22247 | /* Processing variable a */ | |||
| 22248 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 22249 | ; | |||
| 22250 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 22251 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 22252 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 22253 | if (!PyErr_Occurred()) | |||
| 22254 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgeev to C/Fortran array" ); | |||
| 22255 | } else { | |||
| 22256 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 22257 | ||||
| 22258 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 22259 | /* Processing variable info */ | |||
| 22260 | /* Processing variable n */ | |||
| 22261 | n = shape(a,0)a_Dims[0]; | |||
| 22262 | /* Processing variable w */ | |||
| 22263 | w_Dims[0]=n; | |||
| 22264 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 22265 | capi_w_tmp = array_from_pyobj(NPY_CFLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 22266 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 22267 | if (!PyErr_Occurred()) | |||
| 22268 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.cgeev to C/Fortran array" ); | |||
| 22269 | } else { | |||
| 22270 | w = (complex_float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 22271 | ||||
| 22272 | /* Processing variable ldvl */ | |||
| 22273 | ldvl = (compute_vl?n:1); | |||
| 22274 | /* Processing variable ldvr */ | |||
| 22275 | ldvr = (compute_vr?n:1); | |||
| 22276 | /* Processing variable lwork */ | |||
| 22277 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 22278 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgeev() 3rd keyword (lwork) can't be converted to int"); | |||
| 22279 | if (f2py_success) { | |||
| 22280 | CHECKSCALAR(lwork>=2*n,"lwork>=2*n","3rd keyword lwork","cgeev:lwork=%d",lwork)if (!(lwork>=2*n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeev:lwork=%d", "(""lwork>=2*n"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 22281 | /* Processing variable work */ | |||
| 22282 | work_Dims[0]=lwork; | |||
| 22283 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 22284 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 22285 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 22286 | if (!PyErr_Occurred()) | |||
| 22287 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgeev to C/Fortran array" ); | |||
| 22288 | } else { | |||
| 22289 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 22290 | ||||
| 22291 | /* Processing variable rwork */ | |||
| 22292 | rwork_Dims[0]=2 * n; | |||
| 22293 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 22294 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 22295 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 22296 | if (!PyErr_Occurred()) | |||
| 22297 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgeev to C/Fortran array" ); | |||
| 22298 | } else { | |||
| 22299 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 22300 | ||||
| 22301 | /* Processing variable vl */ | |||
| 22302 | vl_Dims[0]=ldvl,vl_Dims[1]=n; | |||
| 22303 | capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 22304 | capi_vl_tmp = array_from_pyobj(NPY_CFLOAT,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct)); | |||
| 22305 | if (capi_vl_tmp == NULL((void*)0)) { | |||
| 22306 | if (!PyErr_Occurred()) | |||
| 22307 | PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.cgeev to C/Fortran array" ); | |||
| 22308 | } else { | |||
| 22309 | vl = (complex_float *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data)); | |||
| 22310 | ||||
| 22311 | /* Processing variable vr */ | |||
| 22312 | vr_Dims[0]=ldvr,vr_Dims[1]=n; | |||
| 22313 | capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 22314 | capi_vr_tmp = array_from_pyobj(NPY_CFLOAT,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct)); | |||
| 22315 | if (capi_vr_tmp == NULL((void*)0)) { | |||
| 22316 | if (!PyErr_Occurred()) | |||
| 22317 | PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.cgeev to C/Fortran array" ); | |||
| 22318 | } else { | |||
| 22319 | vr = (complex_float *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data)); | |||
| 22320 | ||||
| 22321 | /*end of frompyobj*/ | |||
| 22322 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22323 | f2py_start_call_clock(); | |||
| 22324 | #endif | |||
| 22325 | /*callfortranroutine*/ | |||
| 22326 | (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,w,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info) ; | |||
| 22327 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,w,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);*/ | |||
| 22328 | if (PyErr_Occurred()) | |||
| 22329 | f2py_success = 0; | |||
| 22330 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22331 | f2py_stop_call_clock(); | |||
| 22332 | #endif | |||
| 22333 | /*end of callfortranroutine*/ | |||
| 22334 | if (f2py_success) { | |||
| 22335 | /*pyobjfrom*/ | |||
| 22336 | /*end of pyobjfrom*/ | |||
| 22337 | CFUNCSMESS("Building return value.\n"); | |||
| 22338 | capi_buildvalue = Py_BuildValue("NNNi",capi_w_tmp,capi_vl_tmp,capi_vr_tmp,info); | |||
| 22339 | /*closepyobjfrom*/ | |||
| 22340 | /*end of closepyobjfrom*/ | |||
| 22341 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 22342 | /*cleanupfrompyobj*/ | |||
| 22343 | } /*if (capi_vr_tmp == NULL) ... else of vr*/ | |||
| 22344 | /* End of cleaning variable vr */ | |||
| 22345 | } /*if (capi_vl_tmp == NULL) ... else of vl*/ | |||
| 22346 | /* End of cleaning variable vl */ | |||
| 22347 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 22348 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 22349 | /* End of cleaning variable rwork */ | |||
| 22350 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 22351 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 22352 | /* End of cleaning variable work */ | |||
| 22353 | } /*CHECKSCALAR(lwork>=2*n)*/ | |||
| 22354 | } /*if (f2py_success) of lwork*/ | |||
| 22355 | /* End of cleaning variable lwork */ | |||
| 22356 | /* End of cleaning variable ldvr */ | |||
| 22357 | /* End of cleaning variable ldvl */ | |||
| 22358 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 22359 | /* End of cleaning variable w */ | |||
| 22360 | /* End of cleaning variable n */ | |||
| 22361 | /* End of cleaning variable info */ | |||
| 22362 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 22363 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 22364 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 22365 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 22366 | /* End of cleaning variable a */ | |||
| 22367 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 22368 | } /*if (f2py_success) of compute_vr*/ | |||
| 22369 | /* End of cleaning variable compute_vr */ | |||
| 22370 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 22371 | } /*if (f2py_success) of compute_vl*/ | |||
| 22372 | /* End of cleaning variable compute_vl */ | |||
| 22373 | /*end of cleanupfrompyobj*/ | |||
| 22374 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 22375 | /*routdebugfailure*/ | |||
| 22376 | } else { | |||
| 22377 | /*routdebugleave*/ | |||
| 22378 | } | |||
| 22379 | CFUNCSMESS("Freeing memory.\n"); | |||
| 22380 | /*freemem*/ | |||
| 22381 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22382 | f2py_stop_clock(); | |||
| 22383 | #endif | |||
| 22384 | return capi_buildvalue; | |||
| 22385 | } | |||
| 22386 | /******************************** end of cgeev ********************************/ | |||
| 22387 | ||||
| 22388 | /*********************************** zgeev ***********************************/ | |||
| 22389 | static char doc_f2py_rout__flapack_zgeev[] = "\ | |||
| 22390 | w,vl,vr,info = zgeev(a,[compute_vl,compute_vr,lwork,overwrite_a])\n\nWrapper for ``zgeev``.\ | |||
| 22391 | \n\nParameters\n----------\n" | |||
| 22392 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 22393 | "\nOther Parameters\n----------------\n" | |||
| 22394 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 22395 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 22396 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 22397 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 22398 | "\nReturns\n-------\n" | |||
| 22399 | "w : rank-1 array('D') with bounds (n)\n" | |||
| 22400 | "vl : rank-2 array('D') with bounds (ldvl,n)\n" | |||
| 22401 | "vr : rank-2 array('D') with bounds (ldvr,n)\n" | |||
| 22402 | "info : int"; | |||
| 22403 | /* extern void F_FUNC(zgeev,ZGEEV)(char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 22404 | static PyObject *f2py_rout__flapack_zgeev(const PyObject *capi_self, | |||
| 22405 | PyObject *capi_args, | |||
| 22406 | PyObject *capi_keywds, | |||
| 22407 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 22408 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 22409 | volatile int f2py_success = 1; | |||
| 22410 | /*decl*/ | |||
| 22411 | ||||
| 22412 | int compute_vl = 0; | |||
| 22413 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 22414 | int compute_vr = 0; | |||
| 22415 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 22416 | int n = 0; | |||
| 22417 | complex_double *a = NULL((void*)0); | |||
| 22418 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 22419 | const int a_Rank = 2; | |||
| 22420 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 22421 | int capi_a_intent = 0; | |||
| 22422 | int capi_overwrite_a = 0; | |||
| 22423 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 22424 | complex_double *w = NULL((void*)0); | |||
| 22425 | npy_intp w_Dims[1] = {-1}; | |||
| 22426 | const int w_Rank = 1; | |||
| 22427 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 22428 | int capi_w_intent = 0; | |||
| 22429 | complex_double *vl = NULL((void*)0); | |||
| 22430 | npy_intp vl_Dims[2] = {-1, -1}; | |||
| 22431 | const int vl_Rank = 2; | |||
| 22432 | PyArrayObject *capi_vl_tmp = NULL((void*)0); | |||
| 22433 | int capi_vl_intent = 0; | |||
| 22434 | int ldvl = 0; | |||
| 22435 | complex_double *vr = NULL((void*)0); | |||
| 22436 | npy_intp vr_Dims[2] = {-1, -1}; | |||
| 22437 | const int vr_Rank = 2; | |||
| 22438 | PyArrayObject *capi_vr_tmp = NULL((void*)0); | |||
| 22439 | int capi_vr_intent = 0; | |||
| 22440 | int ldvr = 0; | |||
| 22441 | complex_double *work = NULL((void*)0); | |||
| 22442 | npy_intp work_Dims[1] = {-1}; | |||
| 22443 | const int work_Rank = 1; | |||
| 22444 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 22445 | int capi_work_intent = 0; | |||
| 22446 | int lwork = 0; | |||
| 22447 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 22448 | double *rwork = NULL((void*)0); | |||
| 22449 | npy_intp rwork_Dims[1] = {-1}; | |||
| 22450 | const int rwork_Rank = 1; | |||
| 22451 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 22452 | int capi_rwork_intent = 0; | |||
| 22453 | int info = 0; | |||
| 22454 | static char *capi_kwlist[] = {"a","compute_vl","compute_vr","lwork","overwrite_a",NULL((void*)0)}; | |||
| 22455 | ||||
| 22456 | /*routdebugenter*/ | |||
| 22457 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22458 | f2py_start_clock(); | |||
| 22459 | #endif | |||
| 22460 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 22461 | "O|OOOi:_flapack.zgeev",\ | |||
| 22462 | capi_kwlist,&a_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 22463 | return NULL((void*)0); | |||
| 22464 | /*frompyobj*/ | |||
| 22465 | /* Processing variable compute_vl */ | |||
| 22466 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 22467 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.zgeev() 1st keyword (compute_vl) can't be converted to int"); | |||
| 22468 | if (f2py_success) { | |||
| 22469 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","zgeev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeev:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 22470 | /* Processing variable compute_vr */ | |||
| 22471 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 22472 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.zgeev() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 22473 | if (f2py_success) { | |||
| 22474 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","zgeev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeev:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 22475 | /* Processing variable a */ | |||
| 22476 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 22477 | ; | |||
| 22478 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 22479 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 22480 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 22481 | if (!PyErr_Occurred()) | |||
| 22482 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgeev to C/Fortran array" ); | |||
| 22483 | } else { | |||
| 22484 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 22485 | ||||
| 22486 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 22487 | /* Processing variable info */ | |||
| 22488 | /* Processing variable n */ | |||
| 22489 | n = shape(a,0)a_Dims[0]; | |||
| 22490 | /* Processing variable w */ | |||
| 22491 | w_Dims[0]=n; | |||
| 22492 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 22493 | capi_w_tmp = array_from_pyobj(NPY_CDOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 22494 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 22495 | if (!PyErr_Occurred()) | |||
| 22496 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zgeev to C/Fortran array" ); | |||
| 22497 | } else { | |||
| 22498 | w = (complex_double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 22499 | ||||
| 22500 | /* Processing variable ldvl */ | |||
| 22501 | ldvl = (compute_vl?n:1); | |||
| 22502 | /* Processing variable ldvr */ | |||
| 22503 | ldvr = (compute_vr?n:1); | |||
| 22504 | /* Processing variable lwork */ | |||
| 22505 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 22506 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgeev() 3rd keyword (lwork) can't be converted to int"); | |||
| 22507 | if (f2py_success) { | |||
| 22508 | CHECKSCALAR(lwork>=2*n,"lwork>=2*n","3rd keyword lwork","zgeev:lwork=%d",lwork)if (!(lwork>=2*n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeev:lwork=%d", "(""lwork>=2*n"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 22509 | /* Processing variable work */ | |||
| 22510 | work_Dims[0]=lwork; | |||
| 22511 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 22512 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 22513 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 22514 | if (!PyErr_Occurred()) | |||
| 22515 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgeev to C/Fortran array" ); | |||
| 22516 | } else { | |||
| 22517 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 22518 | ||||
| 22519 | /* Processing variable rwork */ | |||
| 22520 | rwork_Dims[0]=2 * n; | |||
| 22521 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 22522 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 22523 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 22524 | if (!PyErr_Occurred()) | |||
| 22525 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgeev to C/Fortran array" ); | |||
| 22526 | } else { | |||
| 22527 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 22528 | ||||
| 22529 | /* Processing variable vl */ | |||
| 22530 | vl_Dims[0]=ldvl,vl_Dims[1]=n; | |||
| 22531 | capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 22532 | capi_vl_tmp = array_from_pyobj(NPY_CDOUBLE,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct)); | |||
| 22533 | if (capi_vl_tmp == NULL((void*)0)) { | |||
| 22534 | if (!PyErr_Occurred()) | |||
| 22535 | PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.zgeev to C/Fortran array" ); | |||
| 22536 | } else { | |||
| 22537 | vl = (complex_double *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data)); | |||
| 22538 | ||||
| 22539 | /* Processing variable vr */ | |||
| 22540 | vr_Dims[0]=ldvr,vr_Dims[1]=n; | |||
| 22541 | capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 22542 | capi_vr_tmp = array_from_pyobj(NPY_CDOUBLE,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct)); | |||
| 22543 | if (capi_vr_tmp == NULL((void*)0)) { | |||
| 22544 | if (!PyErr_Occurred()) | |||
| 22545 | PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.zgeev to C/Fortran array" ); | |||
| 22546 | } else { | |||
| 22547 | vr = (complex_double *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data)); | |||
| 22548 | ||||
| 22549 | /*end of frompyobj*/ | |||
| 22550 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22551 | f2py_start_call_clock(); | |||
| 22552 | #endif | |||
| 22553 | /*callfortranroutine*/ | |||
| 22554 | (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,w,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info) ; | |||
| 22555 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,w,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);*/ | |||
| 22556 | if (PyErr_Occurred()) | |||
| 22557 | f2py_success = 0; | |||
| 22558 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22559 | f2py_stop_call_clock(); | |||
| 22560 | #endif | |||
| 22561 | /*end of callfortranroutine*/ | |||
| 22562 | if (f2py_success) { | |||
| 22563 | /*pyobjfrom*/ | |||
| 22564 | /*end of pyobjfrom*/ | |||
| 22565 | CFUNCSMESS("Building return value.\n"); | |||
| 22566 | capi_buildvalue = Py_BuildValue("NNNi",capi_w_tmp,capi_vl_tmp,capi_vr_tmp,info); | |||
| 22567 | /*closepyobjfrom*/ | |||
| 22568 | /*end of closepyobjfrom*/ | |||
| 22569 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 22570 | /*cleanupfrompyobj*/ | |||
| 22571 | } /*if (capi_vr_tmp == NULL) ... else of vr*/ | |||
| 22572 | /* End of cleaning variable vr */ | |||
| 22573 | } /*if (capi_vl_tmp == NULL) ... else of vl*/ | |||
| 22574 | /* End of cleaning variable vl */ | |||
| 22575 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 22576 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 22577 | /* End of cleaning variable rwork */ | |||
| 22578 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 22579 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 22580 | /* End of cleaning variable work */ | |||
| 22581 | } /*CHECKSCALAR(lwork>=2*n)*/ | |||
| 22582 | } /*if (f2py_success) of lwork*/ | |||
| 22583 | /* End of cleaning variable lwork */ | |||
| 22584 | /* End of cleaning variable ldvr */ | |||
| 22585 | /* End of cleaning variable ldvl */ | |||
| 22586 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 22587 | /* End of cleaning variable w */ | |||
| 22588 | /* End of cleaning variable n */ | |||
| 22589 | /* End of cleaning variable info */ | |||
| 22590 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 22591 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 22592 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 22593 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 22594 | /* End of cleaning variable a */ | |||
| 22595 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 22596 | } /*if (f2py_success) of compute_vr*/ | |||
| 22597 | /* End of cleaning variable compute_vr */ | |||
| 22598 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 22599 | } /*if (f2py_success) of compute_vl*/ | |||
| 22600 | /* End of cleaning variable compute_vl */ | |||
| 22601 | /*end of cleanupfrompyobj*/ | |||
| 22602 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 22603 | /*routdebugfailure*/ | |||
| 22604 | } else { | |||
| 22605 | /*routdebugleave*/ | |||
| 22606 | } | |||
| 22607 | CFUNCSMESS("Freeing memory.\n"); | |||
| 22608 | /*freemem*/ | |||
| 22609 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22610 | f2py_stop_clock(); | |||
| 22611 | #endif | |||
| 22612 | return capi_buildvalue; | |||
| 22613 | } | |||
| 22614 | /******************************** end of zgeev ********************************/ | |||
| 22615 | ||||
| 22616 | /******************************** cgeev_lwork ********************************/ | |||
| 22617 | static char doc_f2py_rout__flapack_cgeev_lwork[] = "\ | |||
| 22618 | work,info = cgeev_lwork(n,[compute_vl,compute_vr])\n\nWrapper for ``cgeev_lwork``.\ | |||
| 22619 | \n\nParameters\n----------\n" | |||
| 22620 | "n : input int\n" | |||
| 22621 | "\nOther Parameters\n----------------\n" | |||
| 22622 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 22623 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 22624 | "\nReturns\n-------\n" | |||
| 22625 | "work : complex\n" | |||
| 22626 | "info : int"; | |||
| 22627 | /* extern void F_FUNC(cgeev ,CGEEV )(char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 22628 | static PyObject *f2py_rout__flapack_cgeev_lwork(const PyObject *capi_self, | |||
| 22629 | PyObject *capi_args, | |||
| 22630 | PyObject *capi_keywds, | |||
| 22631 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 22632 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 22633 | volatile int f2py_success = 1; | |||
| 22634 | /*decl*/ | |||
| 22635 | ||||
| 22636 | int compute_vl = 0; | |||
| 22637 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 22638 | int compute_vr = 0; | |||
| 22639 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 22640 | int n = 0; | |||
| 22641 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 22642 | complex_float a; | |||
| 22643 | complex_float w; | |||
| 22644 | complex_float vl; | |||
| 22645 | int ldvl = 0; | |||
| 22646 | complex_float vr; | |||
| 22647 | int ldvr = 0; | |||
| 22648 | complex_float work; | |||
| 22649 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 22650 | int lwork = 0; | |||
| 22651 | float rwork = 0; | |||
| 22652 | int info = 0; | |||
| 22653 | static char *capi_kwlist[] = {"n","compute_vl","compute_vr",NULL((void*)0)}; | |||
| 22654 | ||||
| 22655 | /*routdebugenter*/ | |||
| 22656 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22657 | f2py_start_clock(); | |||
| 22658 | #endif | |||
| 22659 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 22660 | "O|OO:_flapack.cgeev_lwork",\ | |||
| 22661 | capi_kwlist,&n_capi,&compute_vl_capi,&compute_vr_capi)) | |||
| 22662 | return NULL((void*)0); | |||
| 22663 | /*frompyobj*/ | |||
| 22664 | /* Processing variable compute_vl */ | |||
| 22665 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 22666 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.cgeev_lwork() 1st keyword (compute_vl) can't be converted to int"); | |||
| 22667 | if (f2py_success) { | |||
| 22668 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","cgeev_lwork:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeev_lwork:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 22669 | /* Processing variable compute_vr */ | |||
| 22670 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 22671 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.cgeev_lwork() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 22672 | if (f2py_success) { | |||
| 22673 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","cgeev_lwork:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgeev_lwork:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 22674 | /* Processing variable n */ | |||
| 22675 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgeev_lwork() 1st argument (n) can't be converted to int"); | |||
| 22676 | if (f2py_success) { | |||
| 22677 | /* Processing variable a */ | |||
| 22678 | /* Processing variable w */ | |||
| 22679 | /* Processing variable vl */ | |||
| 22680 | /* Processing variable vr */ | |||
| 22681 | /* Processing variable lwork */ | |||
| 22682 | lwork = -1; | |||
| 22683 | /* Processing variable work */ | |||
| 22684 | /* Processing variable rwork */ | |||
| 22685 | /* Processing variable info */ | |||
| 22686 | /* Processing variable ldvl */ | |||
| 22687 | ldvl = (compute_vl?n:1); | |||
| 22688 | /* Processing variable ldvr */ | |||
| 22689 | ldvr = (compute_vr?n:1); | |||
| 22690 | /*end of frompyobj*/ | |||
| 22691 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22692 | f2py_start_call_clock(); | |||
| 22693 | #endif | |||
| 22694 | /*callfortranroutine*/ | |||
| 22695 | (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,&a,&n,&w,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&rwork,&info) ; | |||
| 22696 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,&a,&w,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&rwork,&info);*/ | |||
| 22697 | if (PyErr_Occurred()) | |||
| 22698 | f2py_success = 0; | |||
| 22699 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22700 | f2py_stop_call_clock(); | |||
| 22701 | #endif | |||
| 22702 | /*end of callfortranroutine*/ | |||
| 22703 | if (f2py_success) { | |||
| 22704 | /*pyobjfrom*/ | |||
| 22705 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 22706 | /*end of pyobjfrom*/ | |||
| 22707 | CFUNCSMESS("Building return value.\n"); | |||
| 22708 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 22709 | /*closepyobjfrom*/ | |||
| 22710 | /*end of closepyobjfrom*/ | |||
| 22711 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 22712 | /*cleanupfrompyobj*/ | |||
| 22713 | /* End of cleaning variable ldvr */ | |||
| 22714 | /* End of cleaning variable ldvl */ | |||
| 22715 | /* End of cleaning variable info */ | |||
| 22716 | /* End of cleaning variable rwork */ | |||
| 22717 | /* End of cleaning variable work */ | |||
| 22718 | /* End of cleaning variable lwork */ | |||
| 22719 | /* End of cleaning variable vr */ | |||
| 22720 | /* End of cleaning variable vl */ | |||
| 22721 | /* End of cleaning variable w */ | |||
| 22722 | /* End of cleaning variable a */ | |||
| 22723 | } /*if (f2py_success) of n*/ | |||
| 22724 | /* End of cleaning variable n */ | |||
| 22725 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 22726 | } /*if (f2py_success) of compute_vr*/ | |||
| 22727 | /* End of cleaning variable compute_vr */ | |||
| 22728 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 22729 | } /*if (f2py_success) of compute_vl*/ | |||
| 22730 | /* End of cleaning variable compute_vl */ | |||
| 22731 | /*end of cleanupfrompyobj*/ | |||
| 22732 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 22733 | /*routdebugfailure*/ | |||
| 22734 | } else { | |||
| 22735 | /*routdebugleave*/ | |||
| 22736 | } | |||
| 22737 | CFUNCSMESS("Freeing memory.\n"); | |||
| 22738 | /*freemem*/ | |||
| 22739 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22740 | f2py_stop_clock(); | |||
| 22741 | #endif | |||
| 22742 | return capi_buildvalue; | |||
| 22743 | } | |||
| 22744 | /***************************** end of cgeev_lwork *****************************/ | |||
| 22745 | ||||
| 22746 | /******************************** zgeev_lwork ********************************/ | |||
| 22747 | static char doc_f2py_rout__flapack_zgeev_lwork[] = "\ | |||
| 22748 | work,info = zgeev_lwork(n,[compute_vl,compute_vr])\n\nWrapper for ``zgeev_lwork``.\ | |||
| 22749 | \n\nParameters\n----------\n" | |||
| 22750 | "n : input int\n" | |||
| 22751 | "\nOther Parameters\n----------------\n" | |||
| 22752 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 22753 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 22754 | "\nReturns\n-------\n" | |||
| 22755 | "work : complex\n" | |||
| 22756 | "info : int"; | |||
| 22757 | /* extern void F_FUNC(zgeev ,ZGEEV )(char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 22758 | static PyObject *f2py_rout__flapack_zgeev_lwork(const PyObject *capi_self, | |||
| 22759 | PyObject *capi_args, | |||
| 22760 | PyObject *capi_keywds, | |||
| 22761 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 22762 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 22763 | volatile int f2py_success = 1; | |||
| 22764 | /*decl*/ | |||
| 22765 | ||||
| 22766 | int compute_vl = 0; | |||
| 22767 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 22768 | int compute_vr = 0; | |||
| 22769 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 22770 | int n = 0; | |||
| 22771 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 22772 | complex_double a; | |||
| 22773 | complex_double w; | |||
| 22774 | complex_double vl; | |||
| 22775 | int ldvl = 0; | |||
| 22776 | complex_double vr; | |||
| 22777 | int ldvr = 0; | |||
| 22778 | complex_double work; | |||
| 22779 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 22780 | int lwork = 0; | |||
| 22781 | double rwork = 0; | |||
| 22782 | int info = 0; | |||
| 22783 | static char *capi_kwlist[] = {"n","compute_vl","compute_vr",NULL((void*)0)}; | |||
| 22784 | ||||
| 22785 | /*routdebugenter*/ | |||
| 22786 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22787 | f2py_start_clock(); | |||
| 22788 | #endif | |||
| 22789 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 22790 | "O|OO:_flapack.zgeev_lwork",\ | |||
| 22791 | capi_kwlist,&n_capi,&compute_vl_capi,&compute_vr_capi)) | |||
| 22792 | return NULL((void*)0); | |||
| 22793 | /*frompyobj*/ | |||
| 22794 | /* Processing variable compute_vl */ | |||
| 22795 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 22796 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.zgeev_lwork() 1st keyword (compute_vl) can't be converted to int"); | |||
| 22797 | if (f2py_success) { | |||
| 22798 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","zgeev_lwork:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeev_lwork:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 22799 | /* Processing variable compute_vr */ | |||
| 22800 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 22801 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.zgeev_lwork() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 22802 | if (f2py_success) { | |||
| 22803 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","zgeev_lwork:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgeev_lwork:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 22804 | /* Processing variable n */ | |||
| 22805 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgeev_lwork() 1st argument (n) can't be converted to int"); | |||
| 22806 | if (f2py_success) { | |||
| 22807 | /* Processing variable a */ | |||
| 22808 | /* Processing variable w */ | |||
| 22809 | /* Processing variable vl */ | |||
| 22810 | /* Processing variable vr */ | |||
| 22811 | /* Processing variable lwork */ | |||
| 22812 | lwork = -1; | |||
| 22813 | /* Processing variable work */ | |||
| 22814 | /* Processing variable rwork */ | |||
| 22815 | /* Processing variable info */ | |||
| 22816 | /* Processing variable ldvl */ | |||
| 22817 | ldvl = (compute_vl?n:1); | |||
| 22818 | /* Processing variable ldvr */ | |||
| 22819 | ldvr = (compute_vr?n:1); | |||
| 22820 | /*end of frompyobj*/ | |||
| 22821 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22822 | f2py_start_call_clock(); | |||
| 22823 | #endif | |||
| 22824 | /*callfortranroutine*/ | |||
| 22825 | (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,&a,&n,&w,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&rwork,&info) ; | |||
| 22826 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,&a,&w,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&rwork,&info);*/ | |||
| 22827 | if (PyErr_Occurred()) | |||
| 22828 | f2py_success = 0; | |||
| 22829 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22830 | f2py_stop_call_clock(); | |||
| 22831 | #endif | |||
| 22832 | /*end of callfortranroutine*/ | |||
| 22833 | if (f2py_success) { | |||
| 22834 | /*pyobjfrom*/ | |||
| 22835 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 22836 | /*end of pyobjfrom*/ | |||
| 22837 | CFUNCSMESS("Building return value.\n"); | |||
| 22838 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 22839 | /*closepyobjfrom*/ | |||
| 22840 | /*end of closepyobjfrom*/ | |||
| 22841 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 22842 | /*cleanupfrompyobj*/ | |||
| 22843 | /* End of cleaning variable ldvr */ | |||
| 22844 | /* End of cleaning variable ldvl */ | |||
| 22845 | /* End of cleaning variable info */ | |||
| 22846 | /* End of cleaning variable rwork */ | |||
| 22847 | /* End of cleaning variable work */ | |||
| 22848 | /* End of cleaning variable lwork */ | |||
| 22849 | /* End of cleaning variable vr */ | |||
| 22850 | /* End of cleaning variable vl */ | |||
| 22851 | /* End of cleaning variable w */ | |||
| 22852 | /* End of cleaning variable a */ | |||
| 22853 | } /*if (f2py_success) of n*/ | |||
| 22854 | /* End of cleaning variable n */ | |||
| 22855 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 22856 | } /*if (f2py_success) of compute_vr*/ | |||
| 22857 | /* End of cleaning variable compute_vr */ | |||
| 22858 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 22859 | } /*if (f2py_success) of compute_vl*/ | |||
| 22860 | /* End of cleaning variable compute_vl */ | |||
| 22861 | /*end of cleanupfrompyobj*/ | |||
| 22862 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 22863 | /*routdebugfailure*/ | |||
| 22864 | } else { | |||
| 22865 | /*routdebugleave*/ | |||
| 22866 | } | |||
| 22867 | CFUNCSMESS("Freeing memory.\n"); | |||
| 22868 | /*freemem*/ | |||
| 22869 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22870 | f2py_stop_clock(); | |||
| 22871 | #endif | |||
| 22872 | return capi_buildvalue; | |||
| 22873 | } | |||
| 22874 | /***************************** end of zgeev_lwork *****************************/ | |||
| 22875 | ||||
| 22876 | /*********************************** sgegv ***********************************/ | |||
| 22877 | static char doc_f2py_rout__flapack_sgegv[] = "\ | |||
| 22878 | alphar,alphai,beta,vl,vr,info = sgegv(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``sgegv``.\ | |||
| 22879 | \n\nParameters\n----------\n" | |||
| 22880 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 22881 | "b : input rank-2 array('f') with bounds (n,n)\n" | |||
| 22882 | "\nOther Parameters\n----------------\n" | |||
| 22883 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 22884 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 22885 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 22886 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 22887 | "lwork : input int, optional\n Default: max(8*n,1)\n" | |||
| 22888 | "\nReturns\n-------\n" | |||
| 22889 | "alphar : rank-1 array('f') with bounds (n)\n" | |||
| 22890 | "alphai : rank-1 array('f') with bounds (n)\n" | |||
| 22891 | "beta : rank-1 array('f') with bounds (n)\n" | |||
| 22892 | "vl : rank-2 array('f') with bounds (ldvl,n)\n" | |||
| 22893 | "vr : rank-2 array('f') with bounds (ldvr,n)\n" | |||
| 22894 | "info : int"; | |||
| 22895 | /* extern void F_FUNC(sgegv,SGEGV)(char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 22896 | static PyObject *f2py_rout__flapack_sgegv(const PyObject *capi_self, | |||
| 22897 | PyObject *capi_args, | |||
| 22898 | PyObject *capi_keywds, | |||
| 22899 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 22900 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 22901 | volatile int f2py_success = 1; | |||
| 22902 | /*decl*/ | |||
| 22903 | ||||
| 22904 | int compute_vl = 0; | |||
| 22905 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 22906 | int compute_vr = 0; | |||
| 22907 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 22908 | int n = 0; | |||
| 22909 | float *a = NULL((void*)0); | |||
| 22910 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 22911 | const int a_Rank = 2; | |||
| 22912 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 22913 | int capi_a_intent = 0; | |||
| 22914 | int capi_overwrite_a = 0; | |||
| 22915 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 22916 | float *b = NULL((void*)0); | |||
| 22917 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 22918 | const int b_Rank = 2; | |||
| 22919 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 22920 | int capi_b_intent = 0; | |||
| 22921 | int capi_overwrite_b = 0; | |||
| 22922 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 22923 | float *alphar = NULL((void*)0); | |||
| 22924 | npy_intp alphar_Dims[1] = {-1}; | |||
| 22925 | const int alphar_Rank = 1; | |||
| 22926 | PyArrayObject *capi_alphar_tmp = NULL((void*)0); | |||
| 22927 | int capi_alphar_intent = 0; | |||
| 22928 | float *alphai = NULL((void*)0); | |||
| 22929 | npy_intp alphai_Dims[1] = {-1}; | |||
| 22930 | const int alphai_Rank = 1; | |||
| 22931 | PyArrayObject *capi_alphai_tmp = NULL((void*)0); | |||
| 22932 | int capi_alphai_intent = 0; | |||
| 22933 | float *beta = NULL((void*)0); | |||
| 22934 | npy_intp beta_Dims[1] = {-1}; | |||
| 22935 | const int beta_Rank = 1; | |||
| 22936 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 22937 | int capi_beta_intent = 0; | |||
| 22938 | float *vl = NULL((void*)0); | |||
| 22939 | npy_intp vl_Dims[2] = {-1, -1}; | |||
| 22940 | const int vl_Rank = 2; | |||
| 22941 | PyArrayObject *capi_vl_tmp = NULL((void*)0); | |||
| 22942 | int capi_vl_intent = 0; | |||
| 22943 | int ldvl = 0; | |||
| 22944 | float *vr = NULL((void*)0); | |||
| 22945 | npy_intp vr_Dims[2] = {-1, -1}; | |||
| 22946 | const int vr_Rank = 2; | |||
| 22947 | PyArrayObject *capi_vr_tmp = NULL((void*)0); | |||
| 22948 | int capi_vr_intent = 0; | |||
| 22949 | int ldvr = 0; | |||
| 22950 | float *work = NULL((void*)0); | |||
| 22951 | npy_intp work_Dims[1] = {-1}; | |||
| 22952 | const int work_Rank = 1; | |||
| 22953 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 22954 | int capi_work_intent = 0; | |||
| 22955 | int lwork = 0; | |||
| 22956 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 22957 | int info = 0; | |||
| 22958 | static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 22959 | ||||
| 22960 | /*routdebugenter*/ | |||
| 22961 | #ifdef F2PY_REPORT_ATEXIT | |||
| 22962 | f2py_start_clock(); | |||
| 22963 | #endif | |||
| 22964 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 22965 | "OO|OOOii:_flapack.sgegv",\ | |||
| 22966 | capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 22967 | return NULL((void*)0); | |||
| 22968 | /*frompyobj*/ | |||
| 22969 | /* Processing variable compute_vl */ | |||
| 22970 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 22971 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.sgegv() 1st keyword (compute_vl) can't be converted to int"); | |||
| 22972 | if (f2py_success) { | |||
| 22973 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","sgegv:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgegv:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 22974 | /* Processing variable compute_vr */ | |||
| 22975 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 22976 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.sgegv() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 22977 | if (f2py_success) { | |||
| 22978 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","sgegv:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgegv:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 22979 | /* Processing variable a */ | |||
| 22980 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 22981 | ; | |||
| 22982 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 22983 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 22984 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 22985 | if (!PyErr_Occurred()) | |||
| 22986 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgegv to C/Fortran array" ); | |||
| 22987 | } else { | |||
| 22988 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 22989 | ||||
| 22990 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 22991 | /* Processing variable info */ | |||
| 22992 | /* Processing variable n */ | |||
| 22993 | n = shape(a,0)a_Dims[0]; | |||
| 22994 | /* Processing variable b */ | |||
| 22995 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 22996 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 22997 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 22998 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 22999 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 23000 | if (!PyErr_Occurred()) | |||
| 23001 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgegv to C/Fortran array" ); | |||
| 23002 | } else { | |||
| 23003 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 23004 | ||||
| 23005 | CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n,"shape(b,0)==shape(b,1) && shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==b_Dims[1] && b_Dims[0]==n)) { PyErr_SetString (_flapack_error,"(""shape(b,0)==shape(b,1) && shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 23006 | /* Processing variable alphar */ | |||
| 23007 | alphar_Dims[0]=n; | |||
| 23008 | capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23009 | capi_alphar_tmp = array_from_pyobj(NPY_FLOAT,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct)); | |||
| 23010 | if (capi_alphar_tmp == NULL((void*)0)) { | |||
| 23011 | if (!PyErr_Occurred()) | |||
| 23012 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.sgegv to C/Fortran array" ); | |||
| 23013 | } else { | |||
| 23014 | alphar = (float *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data )); | |||
| 23015 | ||||
| 23016 | /* Processing variable alphai */ | |||
| 23017 | alphai_Dims[0]=n; | |||
| 23018 | capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23019 | capi_alphai_tmp = array_from_pyobj(NPY_FLOAT,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct)); | |||
| 23020 | if (capi_alphai_tmp == NULL((void*)0)) { | |||
| 23021 | if (!PyErr_Occurred()) | |||
| 23022 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.sgegv to C/Fortran array" ); | |||
| 23023 | } else { | |||
| 23024 | alphai = (float *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data )); | |||
| 23025 | ||||
| 23026 | /* Processing variable beta */ | |||
| 23027 | beta_Dims[0]=n; | |||
| 23028 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23029 | capi_beta_tmp = array_from_pyobj(NPY_FLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 23030 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 23031 | if (!PyErr_Occurred()) | |||
| 23032 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.sgegv to C/Fortran array" ); | |||
| 23033 | } else { | |||
| 23034 | beta = (float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 23035 | ||||
| 23036 | /* Processing variable ldvl */ | |||
| 23037 | ldvl = (compute_vl?n:1); | |||
| 23038 | /* Processing variable ldvr */ | |||
| 23039 | ldvr = (compute_vr?n:1); | |||
| 23040 | /* Processing variable lwork */ | |||
| 23041 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else | |||
| 23042 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgegv() 3rd keyword (lwork) can't be converted to int"); | |||
| 23043 | if (f2py_success) { | |||
| 23044 | CHECKSCALAR(lwork>=8*n,"lwork>=8*n","3rd keyword lwork","sgegv:lwork=%d",lwork)if (!(lwork>=8*n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgegv:lwork=%d", "(""lwork>=8*n"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 23045 | /* Processing variable work */ | |||
| 23046 | work_Dims[0]=lwork; | |||
| 23047 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 23048 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 23049 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 23050 | if (!PyErr_Occurred()) | |||
| 23051 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgegv to C/Fortran array" ); | |||
| 23052 | } else { | |||
| 23053 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 23054 | ||||
| 23055 | /* Processing variable vl */ | |||
| 23056 | vl_Dims[0]=ldvl,vl_Dims[1]=n; | |||
| 23057 | capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23058 | capi_vl_tmp = array_from_pyobj(NPY_FLOAT,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct)); | |||
| 23059 | if (capi_vl_tmp == NULL((void*)0)) { | |||
| 23060 | if (!PyErr_Occurred()) | |||
| 23061 | PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.sgegv to C/Fortran array" ); | |||
| 23062 | } else { | |||
| 23063 | vl = (float *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data)); | |||
| 23064 | ||||
| 23065 | /* Processing variable vr */ | |||
| 23066 | vr_Dims[0]=ldvr,vr_Dims[1]=n; | |||
| 23067 | capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23068 | capi_vr_tmp = array_from_pyobj(NPY_FLOAT,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct)); | |||
| 23069 | if (capi_vr_tmp == NULL((void*)0)) { | |||
| 23070 | if (!PyErr_Occurred()) | |||
| 23071 | PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.sgegv to C/Fortran array" ); | |||
| 23072 | } else { | |||
| 23073 | vr = (float *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data)); | |||
| 23074 | ||||
| 23075 | /*end of frompyobj*/ | |||
| 23076 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23077 | f2py_start_call_clock(); | |||
| 23078 | #endif | |||
| 23079 | /*callfortranroutine*/ | |||
| 23080 | (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info) ; | |||
| 23081 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info);*/ | |||
| 23082 | if (PyErr_Occurred()) | |||
| 23083 | f2py_success = 0; | |||
| 23084 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23085 | f2py_stop_call_clock(); | |||
| 23086 | #endif | |||
| 23087 | /*end of callfortranroutine*/ | |||
| 23088 | if (f2py_success) { | |||
| 23089 | /*pyobjfrom*/ | |||
| 23090 | /*end of pyobjfrom*/ | |||
| 23091 | CFUNCSMESS("Building return value.\n"); | |||
| 23092 | capi_buildvalue = Py_BuildValue("NNNNNi",capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,info); | |||
| 23093 | /*closepyobjfrom*/ | |||
| 23094 | /*end of closepyobjfrom*/ | |||
| 23095 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 23096 | /*cleanupfrompyobj*/ | |||
| 23097 | } /*if (capi_vr_tmp == NULL) ... else of vr*/ | |||
| 23098 | /* End of cleaning variable vr */ | |||
| 23099 | } /*if (capi_vl_tmp == NULL) ... else of vl*/ | |||
| 23100 | /* End of cleaning variable vl */ | |||
| 23101 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 23102 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 23103 | /* End of cleaning variable work */ | |||
| 23104 | } /*CHECKSCALAR(lwork>=8*n)*/ | |||
| 23105 | } /*if (f2py_success) of lwork*/ | |||
| 23106 | /* End of cleaning variable lwork */ | |||
| 23107 | /* End of cleaning variable ldvr */ | |||
| 23108 | /* End of cleaning variable ldvl */ | |||
| 23109 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 23110 | /* End of cleaning variable beta */ | |||
| 23111 | } /*if (capi_alphai_tmp == NULL) ... else of alphai*/ | |||
| 23112 | /* End of cleaning variable alphai */ | |||
| 23113 | } /*if (capi_alphar_tmp == NULL) ... else of alphar*/ | |||
| 23114 | /* End of cleaning variable alphar */ | |||
| 23115 | } /*CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n)*/ | |||
| 23116 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 23117 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 23118 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 23119 | /* End of cleaning variable b */ | |||
| 23120 | /* End of cleaning variable n */ | |||
| 23121 | /* End of cleaning variable info */ | |||
| 23122 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 23123 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 23124 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 23125 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 23126 | /* End of cleaning variable a */ | |||
| 23127 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 23128 | } /*if (f2py_success) of compute_vr*/ | |||
| 23129 | /* End of cleaning variable compute_vr */ | |||
| 23130 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 23131 | } /*if (f2py_success) of compute_vl*/ | |||
| 23132 | /* End of cleaning variable compute_vl */ | |||
| 23133 | /*end of cleanupfrompyobj*/ | |||
| 23134 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 23135 | /*routdebugfailure*/ | |||
| 23136 | } else { | |||
| 23137 | /*routdebugleave*/ | |||
| 23138 | } | |||
| 23139 | CFUNCSMESS("Freeing memory.\n"); | |||
| 23140 | /*freemem*/ | |||
| 23141 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23142 | f2py_stop_clock(); | |||
| 23143 | #endif | |||
| 23144 | return capi_buildvalue; | |||
| 23145 | } | |||
| 23146 | /******************************** end of sgegv ********************************/ | |||
| 23147 | ||||
| 23148 | /*********************************** dgegv ***********************************/ | |||
| 23149 | static char doc_f2py_rout__flapack_dgegv[] = "\ | |||
| 23150 | alphar,alphai,beta,vl,vr,info = dgegv(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``dgegv``.\ | |||
| 23151 | \n\nParameters\n----------\n" | |||
| 23152 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 23153 | "b : input rank-2 array('d') with bounds (n,n)\n" | |||
| 23154 | "\nOther Parameters\n----------------\n" | |||
| 23155 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 23156 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 23157 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 23158 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 23159 | "lwork : input int, optional\n Default: max(8*n,1)\n" | |||
| 23160 | "\nReturns\n-------\n" | |||
| 23161 | "alphar : rank-1 array('d') with bounds (n)\n" | |||
| 23162 | "alphai : rank-1 array('d') with bounds (n)\n" | |||
| 23163 | "beta : rank-1 array('d') with bounds (n)\n" | |||
| 23164 | "vl : rank-2 array('d') with bounds (ldvl,n)\n" | |||
| 23165 | "vr : rank-2 array('d') with bounds (ldvr,n)\n" | |||
| 23166 | "info : int"; | |||
| 23167 | /* extern void F_FUNC(dgegv,DGEGV)(char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 23168 | static PyObject *f2py_rout__flapack_dgegv(const PyObject *capi_self, | |||
| 23169 | PyObject *capi_args, | |||
| 23170 | PyObject *capi_keywds, | |||
| 23171 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 23172 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 23173 | volatile int f2py_success = 1; | |||
| 23174 | /*decl*/ | |||
| 23175 | ||||
| 23176 | int compute_vl = 0; | |||
| 23177 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 23178 | int compute_vr = 0; | |||
| 23179 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 23180 | int n = 0; | |||
| 23181 | double *a = NULL((void*)0); | |||
| 23182 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 23183 | const int a_Rank = 2; | |||
| 23184 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 23185 | int capi_a_intent = 0; | |||
| 23186 | int capi_overwrite_a = 0; | |||
| 23187 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 23188 | double *b = NULL((void*)0); | |||
| 23189 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 23190 | const int b_Rank = 2; | |||
| 23191 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 23192 | int capi_b_intent = 0; | |||
| 23193 | int capi_overwrite_b = 0; | |||
| 23194 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 23195 | double *alphar = NULL((void*)0); | |||
| 23196 | npy_intp alphar_Dims[1] = {-1}; | |||
| 23197 | const int alphar_Rank = 1; | |||
| 23198 | PyArrayObject *capi_alphar_tmp = NULL((void*)0); | |||
| 23199 | int capi_alphar_intent = 0; | |||
| 23200 | double *alphai = NULL((void*)0); | |||
| 23201 | npy_intp alphai_Dims[1] = {-1}; | |||
| 23202 | const int alphai_Rank = 1; | |||
| 23203 | PyArrayObject *capi_alphai_tmp = NULL((void*)0); | |||
| 23204 | int capi_alphai_intent = 0; | |||
| 23205 | double *beta = NULL((void*)0); | |||
| 23206 | npy_intp beta_Dims[1] = {-1}; | |||
| 23207 | const int beta_Rank = 1; | |||
| 23208 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 23209 | int capi_beta_intent = 0; | |||
| 23210 | double *vl = NULL((void*)0); | |||
| 23211 | npy_intp vl_Dims[2] = {-1, -1}; | |||
| 23212 | const int vl_Rank = 2; | |||
| 23213 | PyArrayObject *capi_vl_tmp = NULL((void*)0); | |||
| 23214 | int capi_vl_intent = 0; | |||
| 23215 | int ldvl = 0; | |||
| 23216 | double *vr = NULL((void*)0); | |||
| 23217 | npy_intp vr_Dims[2] = {-1, -1}; | |||
| 23218 | const int vr_Rank = 2; | |||
| 23219 | PyArrayObject *capi_vr_tmp = NULL((void*)0); | |||
| 23220 | int capi_vr_intent = 0; | |||
| 23221 | int ldvr = 0; | |||
| 23222 | double *work = NULL((void*)0); | |||
| 23223 | npy_intp work_Dims[1] = {-1}; | |||
| 23224 | const int work_Rank = 1; | |||
| 23225 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 23226 | int capi_work_intent = 0; | |||
| 23227 | int lwork = 0; | |||
| 23228 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 23229 | int info = 0; | |||
| 23230 | static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 23231 | ||||
| 23232 | /*routdebugenter*/ | |||
| 23233 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23234 | f2py_start_clock(); | |||
| 23235 | #endif | |||
| 23236 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 23237 | "OO|OOOii:_flapack.dgegv",\ | |||
| 23238 | capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 23239 | return NULL((void*)0); | |||
| 23240 | /*frompyobj*/ | |||
| 23241 | /* Processing variable compute_vl */ | |||
| 23242 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 23243 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.dgegv() 1st keyword (compute_vl) can't be converted to int"); | |||
| 23244 | if (f2py_success) { | |||
| 23245 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","dgegv:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgegv:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 23246 | /* Processing variable compute_vr */ | |||
| 23247 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 23248 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.dgegv() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 23249 | if (f2py_success) { | |||
| 23250 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","dgegv:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgegv:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 23251 | /* Processing variable a */ | |||
| 23252 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 23253 | ; | |||
| 23254 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 23255 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 23256 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 23257 | if (!PyErr_Occurred()) | |||
| 23258 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgegv to C/Fortran array" ); | |||
| 23259 | } else { | |||
| 23260 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 23261 | ||||
| 23262 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 23263 | /* Processing variable info */ | |||
| 23264 | /* Processing variable n */ | |||
| 23265 | n = shape(a,0)a_Dims[0]; | |||
| 23266 | /* Processing variable b */ | |||
| 23267 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 23268 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 23269 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 23270 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 23271 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 23272 | if (!PyErr_Occurred()) | |||
| 23273 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgegv to C/Fortran array" ); | |||
| 23274 | } else { | |||
| 23275 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 23276 | ||||
| 23277 | CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n,"shape(b,0)==shape(b,1) && shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==b_Dims[1] && b_Dims[0]==n)) { PyErr_SetString (_flapack_error,"(""shape(b,0)==shape(b,1) && shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 23278 | /* Processing variable alphar */ | |||
| 23279 | alphar_Dims[0]=n; | |||
| 23280 | capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23281 | capi_alphar_tmp = array_from_pyobj(NPY_DOUBLE,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct)); | |||
| 23282 | if (capi_alphar_tmp == NULL((void*)0)) { | |||
| 23283 | if (!PyErr_Occurred()) | |||
| 23284 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.dgegv to C/Fortran array" ); | |||
| 23285 | } else { | |||
| 23286 | alphar = (double *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data )); | |||
| 23287 | ||||
| 23288 | /* Processing variable alphai */ | |||
| 23289 | alphai_Dims[0]=n; | |||
| 23290 | capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23291 | capi_alphai_tmp = array_from_pyobj(NPY_DOUBLE,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct)); | |||
| 23292 | if (capi_alphai_tmp == NULL((void*)0)) { | |||
| 23293 | if (!PyErr_Occurred()) | |||
| 23294 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.dgegv to C/Fortran array" ); | |||
| 23295 | } else { | |||
| 23296 | alphai = (double *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data )); | |||
| 23297 | ||||
| 23298 | /* Processing variable beta */ | |||
| 23299 | beta_Dims[0]=n; | |||
| 23300 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23301 | capi_beta_tmp = array_from_pyobj(NPY_DOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 23302 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 23303 | if (!PyErr_Occurred()) | |||
| 23304 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.dgegv to C/Fortran array" ); | |||
| 23305 | } else { | |||
| 23306 | beta = (double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 23307 | ||||
| 23308 | /* Processing variable ldvl */ | |||
| 23309 | ldvl = (compute_vl?n:1); | |||
| 23310 | /* Processing variable ldvr */ | |||
| 23311 | ldvr = (compute_vr?n:1); | |||
| 23312 | /* Processing variable lwork */ | |||
| 23313 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else | |||
| 23314 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgegv() 3rd keyword (lwork) can't be converted to int"); | |||
| 23315 | if (f2py_success) { | |||
| 23316 | CHECKSCALAR(lwork>=8*n,"lwork>=8*n","3rd keyword lwork","dgegv:lwork=%d",lwork)if (!(lwork>=8*n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgegv:lwork=%d", "(""lwork>=8*n"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 23317 | /* Processing variable work */ | |||
| 23318 | work_Dims[0]=lwork; | |||
| 23319 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 23320 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 23321 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 23322 | if (!PyErr_Occurred()) | |||
| 23323 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgegv to C/Fortran array" ); | |||
| 23324 | } else { | |||
| 23325 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 23326 | ||||
| 23327 | /* Processing variable vl */ | |||
| 23328 | vl_Dims[0]=ldvl,vl_Dims[1]=n; | |||
| 23329 | capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23330 | capi_vl_tmp = array_from_pyobj(NPY_DOUBLE,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct)); | |||
| 23331 | if (capi_vl_tmp == NULL((void*)0)) { | |||
| 23332 | if (!PyErr_Occurred()) | |||
| 23333 | PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.dgegv to C/Fortran array" ); | |||
| 23334 | } else { | |||
| 23335 | vl = (double *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data)); | |||
| 23336 | ||||
| 23337 | /* Processing variable vr */ | |||
| 23338 | vr_Dims[0]=ldvr,vr_Dims[1]=n; | |||
| 23339 | capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23340 | capi_vr_tmp = array_from_pyobj(NPY_DOUBLE,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct)); | |||
| 23341 | if (capi_vr_tmp == NULL((void*)0)) { | |||
| 23342 | if (!PyErr_Occurred()) | |||
| 23343 | PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.dgegv to C/Fortran array" ); | |||
| 23344 | } else { | |||
| 23345 | vr = (double *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data)); | |||
| 23346 | ||||
| 23347 | /*end of frompyobj*/ | |||
| 23348 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23349 | f2py_start_call_clock(); | |||
| 23350 | #endif | |||
| 23351 | /*callfortranroutine*/ | |||
| 23352 | (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info) ; | |||
| 23353 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info);*/ | |||
| 23354 | if (PyErr_Occurred()) | |||
| 23355 | f2py_success = 0; | |||
| 23356 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23357 | f2py_stop_call_clock(); | |||
| 23358 | #endif | |||
| 23359 | /*end of callfortranroutine*/ | |||
| 23360 | if (f2py_success) { | |||
| 23361 | /*pyobjfrom*/ | |||
| 23362 | /*end of pyobjfrom*/ | |||
| 23363 | CFUNCSMESS("Building return value.\n"); | |||
| 23364 | capi_buildvalue = Py_BuildValue("NNNNNi",capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,info); | |||
| 23365 | /*closepyobjfrom*/ | |||
| 23366 | /*end of closepyobjfrom*/ | |||
| 23367 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 23368 | /*cleanupfrompyobj*/ | |||
| 23369 | } /*if (capi_vr_tmp == NULL) ... else of vr*/ | |||
| 23370 | /* End of cleaning variable vr */ | |||
| 23371 | } /*if (capi_vl_tmp == NULL) ... else of vl*/ | |||
| 23372 | /* End of cleaning variable vl */ | |||
| 23373 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 23374 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 23375 | /* End of cleaning variable work */ | |||
| 23376 | } /*CHECKSCALAR(lwork>=8*n)*/ | |||
| 23377 | } /*if (f2py_success) of lwork*/ | |||
| 23378 | /* End of cleaning variable lwork */ | |||
| 23379 | /* End of cleaning variable ldvr */ | |||
| 23380 | /* End of cleaning variable ldvl */ | |||
| 23381 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 23382 | /* End of cleaning variable beta */ | |||
| 23383 | } /*if (capi_alphai_tmp == NULL) ... else of alphai*/ | |||
| 23384 | /* End of cleaning variable alphai */ | |||
| 23385 | } /*if (capi_alphar_tmp == NULL) ... else of alphar*/ | |||
| 23386 | /* End of cleaning variable alphar */ | |||
| 23387 | } /*CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n)*/ | |||
| 23388 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 23389 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 23390 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 23391 | /* End of cleaning variable b */ | |||
| 23392 | /* End of cleaning variable n */ | |||
| 23393 | /* End of cleaning variable info */ | |||
| 23394 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 23395 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 23396 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 23397 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 23398 | /* End of cleaning variable a */ | |||
| 23399 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 23400 | } /*if (f2py_success) of compute_vr*/ | |||
| 23401 | /* End of cleaning variable compute_vr */ | |||
| 23402 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 23403 | } /*if (f2py_success) of compute_vl*/ | |||
| 23404 | /* End of cleaning variable compute_vl */ | |||
| 23405 | /*end of cleanupfrompyobj*/ | |||
| 23406 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 23407 | /*routdebugfailure*/ | |||
| 23408 | } else { | |||
| 23409 | /*routdebugleave*/ | |||
| 23410 | } | |||
| 23411 | CFUNCSMESS("Freeing memory.\n"); | |||
| 23412 | /*freemem*/ | |||
| 23413 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23414 | f2py_stop_clock(); | |||
| 23415 | #endif | |||
| 23416 | return capi_buildvalue; | |||
| 23417 | } | |||
| 23418 | /******************************** end of dgegv ********************************/ | |||
| 23419 | ||||
| 23420 | /*********************************** cgegv ***********************************/ | |||
| 23421 | static char doc_f2py_rout__flapack_cgegv[] = "\ | |||
| 23422 | alpha,beta,vl,vr,info = cgegv(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``cgegv``.\ | |||
| 23423 | \n\nParameters\n----------\n" | |||
| 23424 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 23425 | "b : input rank-2 array('F') with bounds (n,n)\n" | |||
| 23426 | "\nOther Parameters\n----------------\n" | |||
| 23427 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 23428 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 23429 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 23430 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 23431 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 23432 | "\nReturns\n-------\n" | |||
| 23433 | "alpha : rank-1 array('F') with bounds (n)\n" | |||
| 23434 | "beta : rank-1 array('F') with bounds (n)\n" | |||
| 23435 | "vl : rank-2 array('F') with bounds (ldvl,n)\n" | |||
| 23436 | "vr : rank-2 array('F') with bounds (ldvr,n)\n" | |||
| 23437 | "info : int"; | |||
| 23438 | /* extern void F_FUNC(cgegv,CGEGV)(char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 23439 | static PyObject *f2py_rout__flapack_cgegv(const PyObject *capi_self, | |||
| 23440 | PyObject *capi_args, | |||
| 23441 | PyObject *capi_keywds, | |||
| 23442 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 23443 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 23444 | volatile int f2py_success = 1; | |||
| 23445 | /*decl*/ | |||
| 23446 | ||||
| 23447 | int compute_vl = 0; | |||
| 23448 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 23449 | int compute_vr = 0; | |||
| 23450 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 23451 | int n = 0; | |||
| 23452 | complex_float *a = NULL((void*)0); | |||
| 23453 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 23454 | const int a_Rank = 2; | |||
| 23455 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 23456 | int capi_a_intent = 0; | |||
| 23457 | int capi_overwrite_a = 0; | |||
| 23458 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 23459 | complex_float *b = NULL((void*)0); | |||
| 23460 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 23461 | const int b_Rank = 2; | |||
| 23462 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 23463 | int capi_b_intent = 0; | |||
| 23464 | int capi_overwrite_b = 0; | |||
| 23465 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 23466 | complex_float *alpha = NULL((void*)0); | |||
| 23467 | npy_intp alpha_Dims[1] = {-1}; | |||
| 23468 | const int alpha_Rank = 1; | |||
| 23469 | PyArrayObject *capi_alpha_tmp = NULL((void*)0); | |||
| 23470 | int capi_alpha_intent = 0; | |||
| 23471 | complex_float *beta = NULL((void*)0); | |||
| 23472 | npy_intp beta_Dims[1] = {-1}; | |||
| 23473 | const int beta_Rank = 1; | |||
| 23474 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 23475 | int capi_beta_intent = 0; | |||
| 23476 | complex_float *vl = NULL((void*)0); | |||
| 23477 | npy_intp vl_Dims[2] = {-1, -1}; | |||
| 23478 | const int vl_Rank = 2; | |||
| 23479 | PyArrayObject *capi_vl_tmp = NULL((void*)0); | |||
| 23480 | int capi_vl_intent = 0; | |||
| 23481 | int ldvl = 0; | |||
| 23482 | complex_float *vr = NULL((void*)0); | |||
| 23483 | npy_intp vr_Dims[2] = {-1, -1}; | |||
| 23484 | const int vr_Rank = 2; | |||
| 23485 | PyArrayObject *capi_vr_tmp = NULL((void*)0); | |||
| 23486 | int capi_vr_intent = 0; | |||
| 23487 | int ldvr = 0; | |||
| 23488 | complex_float *work = NULL((void*)0); | |||
| 23489 | npy_intp work_Dims[1] = {-1}; | |||
| 23490 | const int work_Rank = 1; | |||
| 23491 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 23492 | int capi_work_intent = 0; | |||
| 23493 | int lwork = 0; | |||
| 23494 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 23495 | float *rwork = NULL((void*)0); | |||
| 23496 | npy_intp rwork_Dims[1] = {-1}; | |||
| 23497 | const int rwork_Rank = 1; | |||
| 23498 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 23499 | int capi_rwork_intent = 0; | |||
| 23500 | int info = 0; | |||
| 23501 | static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 23502 | ||||
| 23503 | /*routdebugenter*/ | |||
| 23504 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23505 | f2py_start_clock(); | |||
| 23506 | #endif | |||
| 23507 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 23508 | "OO|OOOii:_flapack.cgegv",\ | |||
| 23509 | capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 23510 | return NULL((void*)0); | |||
| 23511 | /*frompyobj*/ | |||
| 23512 | /* Processing variable compute_vl */ | |||
| 23513 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 23514 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.cgegv() 1st keyword (compute_vl) can't be converted to int"); | |||
| 23515 | if (f2py_success) { | |||
| 23516 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","cgegv:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgegv:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 23517 | /* Processing variable compute_vr */ | |||
| 23518 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 23519 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.cgegv() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 23520 | if (f2py_success) { | |||
| 23521 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","cgegv:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgegv:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 23522 | /* Processing variable a */ | |||
| 23523 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 23524 | ; | |||
| 23525 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 23526 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 23527 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 23528 | if (!PyErr_Occurred()) | |||
| 23529 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgegv to C/Fortran array" ); | |||
| 23530 | } else { | |||
| 23531 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 23532 | ||||
| 23533 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 23534 | /* Processing variable info */ | |||
| 23535 | /* Processing variable n */ | |||
| 23536 | n = shape(a,0)a_Dims[0]; | |||
| 23537 | /* Processing variable b */ | |||
| 23538 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 23539 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 23540 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 23541 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 23542 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 23543 | if (!PyErr_Occurred()) | |||
| 23544 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgegv to C/Fortran array" ); | |||
| 23545 | } else { | |||
| 23546 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 23547 | ||||
| 23548 | CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n,"shape(b,0)==shape(b,1) && shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==b_Dims[1] && b_Dims[0]==n)) { PyErr_SetString (_flapack_error,"(""shape(b,0)==shape(b,1) && shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 23549 | /* Processing variable alpha */ | |||
| 23550 | alpha_Dims[0]=n; | |||
| 23551 | capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23552 | capi_alpha_tmp = array_from_pyobj(NPY_CFLOAT,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct)); | |||
| 23553 | if (capi_alpha_tmp == NULL((void*)0)) { | |||
| 23554 | if (!PyErr_Occurred()) | |||
| 23555 | PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.cgegv to C/Fortran array" ); | |||
| 23556 | } else { | |||
| 23557 | alpha = (complex_float *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data)); | |||
| 23558 | ||||
| 23559 | /* Processing variable beta */ | |||
| 23560 | beta_Dims[0]=n; | |||
| 23561 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23562 | capi_beta_tmp = array_from_pyobj(NPY_CFLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 23563 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 23564 | if (!PyErr_Occurred()) | |||
| 23565 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.cgegv to C/Fortran array" ); | |||
| 23566 | } else { | |||
| 23567 | beta = (complex_float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 23568 | ||||
| 23569 | /* Processing variable ldvl */ | |||
| 23570 | ldvl = (compute_vl?n:1); | |||
| 23571 | /* Processing variable ldvr */ | |||
| 23572 | ldvr = (compute_vr?n:1); | |||
| 23573 | /* Processing variable lwork */ | |||
| 23574 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 23575 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgegv() 3rd keyword (lwork) can't be converted to int"); | |||
| 23576 | if (f2py_success) { | |||
| 23577 | CHECKSCALAR(lwork>=2*n,"lwork>=2*n","3rd keyword lwork","cgegv:lwork=%d",lwork)if (!(lwork>=2*n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgegv:lwork=%d", "(""lwork>=2*n"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 23578 | /* Processing variable work */ | |||
| 23579 | work_Dims[0]=lwork; | |||
| 23580 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 23581 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 23582 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 23583 | if (!PyErr_Occurred()) | |||
| 23584 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgegv to C/Fortran array" ); | |||
| 23585 | } else { | |||
| 23586 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 23587 | ||||
| 23588 | /* Processing variable rwork */ | |||
| 23589 | rwork_Dims[0]=8 * n; | |||
| 23590 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 23591 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 23592 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 23593 | if (!PyErr_Occurred()) | |||
| 23594 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgegv to C/Fortran array" ); | |||
| 23595 | } else { | |||
| 23596 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 23597 | ||||
| 23598 | /* Processing variable vl */ | |||
| 23599 | vl_Dims[0]=ldvl,vl_Dims[1]=n; | |||
| 23600 | capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23601 | capi_vl_tmp = array_from_pyobj(NPY_CFLOAT,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct)); | |||
| 23602 | if (capi_vl_tmp == NULL((void*)0)) { | |||
| 23603 | if (!PyErr_Occurred()) | |||
| 23604 | PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.cgegv to C/Fortran array" ); | |||
| 23605 | } else { | |||
| 23606 | vl = (complex_float *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data)); | |||
| 23607 | ||||
| 23608 | /* Processing variable vr */ | |||
| 23609 | vr_Dims[0]=ldvr,vr_Dims[1]=n; | |||
| 23610 | capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23611 | capi_vr_tmp = array_from_pyobj(NPY_CFLOAT,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct)); | |||
| 23612 | if (capi_vr_tmp == NULL((void*)0)) { | |||
| 23613 | if (!PyErr_Occurred()) | |||
| 23614 | PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.cgegv to C/Fortran array" ); | |||
| 23615 | } else { | |||
| 23616 | vr = (complex_float *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data)); | |||
| 23617 | ||||
| 23618 | /*end of frompyobj*/ | |||
| 23619 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23620 | f2py_start_call_clock(); | |||
| 23621 | #endif | |||
| 23622 | /*callfortranroutine*/ | |||
| 23623 | (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info) ; | |||
| 23624 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);*/ | |||
| 23625 | if (PyErr_Occurred()) | |||
| 23626 | f2py_success = 0; | |||
| 23627 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23628 | f2py_stop_call_clock(); | |||
| 23629 | #endif | |||
| 23630 | /*end of callfortranroutine*/ | |||
| 23631 | if (f2py_success) { | |||
| 23632 | /*pyobjfrom*/ | |||
| 23633 | /*end of pyobjfrom*/ | |||
| 23634 | CFUNCSMESS("Building return value.\n"); | |||
| 23635 | capi_buildvalue = Py_BuildValue("NNNNi",capi_alpha_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,info); | |||
| 23636 | /*closepyobjfrom*/ | |||
| 23637 | /*end of closepyobjfrom*/ | |||
| 23638 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 23639 | /*cleanupfrompyobj*/ | |||
| 23640 | } /*if (capi_vr_tmp == NULL) ... else of vr*/ | |||
| 23641 | /* End of cleaning variable vr */ | |||
| 23642 | } /*if (capi_vl_tmp == NULL) ... else of vl*/ | |||
| 23643 | /* End of cleaning variable vl */ | |||
| 23644 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 23645 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 23646 | /* End of cleaning variable rwork */ | |||
| 23647 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 23648 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 23649 | /* End of cleaning variable work */ | |||
| 23650 | } /*CHECKSCALAR(lwork>=2*n)*/ | |||
| 23651 | } /*if (f2py_success) of lwork*/ | |||
| 23652 | /* End of cleaning variable lwork */ | |||
| 23653 | /* End of cleaning variable ldvr */ | |||
| 23654 | /* End of cleaning variable ldvl */ | |||
| 23655 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 23656 | /* End of cleaning variable beta */ | |||
| 23657 | } /*if (capi_alpha_tmp == NULL) ... else of alpha*/ | |||
| 23658 | /* End of cleaning variable alpha */ | |||
| 23659 | } /*CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n)*/ | |||
| 23660 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 23661 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 23662 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 23663 | /* End of cleaning variable b */ | |||
| 23664 | /* End of cleaning variable n */ | |||
| 23665 | /* End of cleaning variable info */ | |||
| 23666 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 23667 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 23668 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 23669 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 23670 | /* End of cleaning variable a */ | |||
| 23671 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 23672 | } /*if (f2py_success) of compute_vr*/ | |||
| 23673 | /* End of cleaning variable compute_vr */ | |||
| 23674 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 23675 | } /*if (f2py_success) of compute_vl*/ | |||
| 23676 | /* End of cleaning variable compute_vl */ | |||
| 23677 | /*end of cleanupfrompyobj*/ | |||
| 23678 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 23679 | /*routdebugfailure*/ | |||
| 23680 | } else { | |||
| 23681 | /*routdebugleave*/ | |||
| 23682 | } | |||
| 23683 | CFUNCSMESS("Freeing memory.\n"); | |||
| 23684 | /*freemem*/ | |||
| 23685 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23686 | f2py_stop_clock(); | |||
| 23687 | #endif | |||
| 23688 | return capi_buildvalue; | |||
| 23689 | } | |||
| 23690 | /******************************** end of cgegv ********************************/ | |||
| 23691 | ||||
| 23692 | /*********************************** zgegv ***********************************/ | |||
| 23693 | static char doc_f2py_rout__flapack_zgegv[] = "\ | |||
| 23694 | alpha,beta,vl,vr,info = zgegv(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``zgegv``.\ | |||
| 23695 | \n\nParameters\n----------\n" | |||
| 23696 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 23697 | "b : input rank-2 array('D') with bounds (n,n)\n" | |||
| 23698 | "\nOther Parameters\n----------------\n" | |||
| 23699 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 23700 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 23701 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 23702 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 23703 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 23704 | "\nReturns\n-------\n" | |||
| 23705 | "alpha : rank-1 array('D') with bounds (n)\n" | |||
| 23706 | "beta : rank-1 array('D') with bounds (n)\n" | |||
| 23707 | "vl : rank-2 array('D') with bounds (ldvl,n)\n" | |||
| 23708 | "vr : rank-2 array('D') with bounds (ldvr,n)\n" | |||
| 23709 | "info : int"; | |||
| 23710 | /* extern void F_FUNC(zgegv,ZGEGV)(char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 23711 | static PyObject *f2py_rout__flapack_zgegv(const PyObject *capi_self, | |||
| 23712 | PyObject *capi_args, | |||
| 23713 | PyObject *capi_keywds, | |||
| 23714 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 23715 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 23716 | volatile int f2py_success = 1; | |||
| 23717 | /*decl*/ | |||
| 23718 | ||||
| 23719 | int compute_vl = 0; | |||
| 23720 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 23721 | int compute_vr = 0; | |||
| 23722 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 23723 | int n = 0; | |||
| 23724 | complex_double *a = NULL((void*)0); | |||
| 23725 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 23726 | const int a_Rank = 2; | |||
| 23727 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 23728 | int capi_a_intent = 0; | |||
| 23729 | int capi_overwrite_a = 0; | |||
| 23730 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 23731 | complex_double *b = NULL((void*)0); | |||
| 23732 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 23733 | const int b_Rank = 2; | |||
| 23734 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 23735 | int capi_b_intent = 0; | |||
| 23736 | int capi_overwrite_b = 0; | |||
| 23737 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 23738 | complex_double *alpha = NULL((void*)0); | |||
| 23739 | npy_intp alpha_Dims[1] = {-1}; | |||
| 23740 | const int alpha_Rank = 1; | |||
| 23741 | PyArrayObject *capi_alpha_tmp = NULL((void*)0); | |||
| 23742 | int capi_alpha_intent = 0; | |||
| 23743 | complex_double *beta = NULL((void*)0); | |||
| 23744 | npy_intp beta_Dims[1] = {-1}; | |||
| 23745 | const int beta_Rank = 1; | |||
| 23746 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 23747 | int capi_beta_intent = 0; | |||
| 23748 | complex_double *vl = NULL((void*)0); | |||
| 23749 | npy_intp vl_Dims[2] = {-1, -1}; | |||
| 23750 | const int vl_Rank = 2; | |||
| 23751 | PyArrayObject *capi_vl_tmp = NULL((void*)0); | |||
| 23752 | int capi_vl_intent = 0; | |||
| 23753 | int ldvl = 0; | |||
| 23754 | complex_double *vr = NULL((void*)0); | |||
| 23755 | npy_intp vr_Dims[2] = {-1, -1}; | |||
| 23756 | const int vr_Rank = 2; | |||
| 23757 | PyArrayObject *capi_vr_tmp = NULL((void*)0); | |||
| 23758 | int capi_vr_intent = 0; | |||
| 23759 | int ldvr = 0; | |||
| 23760 | complex_double *work = NULL((void*)0); | |||
| 23761 | npy_intp work_Dims[1] = {-1}; | |||
| 23762 | const int work_Rank = 1; | |||
| 23763 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 23764 | int capi_work_intent = 0; | |||
| 23765 | int lwork = 0; | |||
| 23766 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 23767 | double *rwork = NULL((void*)0); | |||
| 23768 | npy_intp rwork_Dims[1] = {-1}; | |||
| 23769 | const int rwork_Rank = 1; | |||
| 23770 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 23771 | int capi_rwork_intent = 0; | |||
| 23772 | int info = 0; | |||
| 23773 | static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 23774 | ||||
| 23775 | /*routdebugenter*/ | |||
| 23776 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23777 | f2py_start_clock(); | |||
| 23778 | #endif | |||
| 23779 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 23780 | "OO|OOOii:_flapack.zgegv",\ | |||
| 23781 | capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 23782 | return NULL((void*)0); | |||
| 23783 | /*frompyobj*/ | |||
| 23784 | /* Processing variable compute_vl */ | |||
| 23785 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 23786 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.zgegv() 1st keyword (compute_vl) can't be converted to int"); | |||
| 23787 | if (f2py_success) { | |||
| 23788 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","zgegv:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgegv:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 23789 | /* Processing variable compute_vr */ | |||
| 23790 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 23791 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.zgegv() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 23792 | if (f2py_success) { | |||
| 23793 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","zgegv:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgegv:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 23794 | /* Processing variable a */ | |||
| 23795 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 23796 | ; | |||
| 23797 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 23798 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 23799 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 23800 | if (!PyErr_Occurred()) | |||
| 23801 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgegv to C/Fortran array" ); | |||
| 23802 | } else { | |||
| 23803 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 23804 | ||||
| 23805 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 23806 | /* Processing variable info */ | |||
| 23807 | /* Processing variable n */ | |||
| 23808 | n = shape(a,0)a_Dims[0]; | |||
| 23809 | /* Processing variable b */ | |||
| 23810 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 23811 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 23812 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 23813 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 23814 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 23815 | if (!PyErr_Occurred()) | |||
| 23816 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgegv to C/Fortran array" ); | |||
| 23817 | } else { | |||
| 23818 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 23819 | ||||
| 23820 | CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n,"shape(b,0)==shape(b,1) && shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==b_Dims[1] && b_Dims[0]==n)) { PyErr_SetString (_flapack_error,"(""shape(b,0)==shape(b,1) && shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 23821 | /* Processing variable alpha */ | |||
| 23822 | alpha_Dims[0]=n; | |||
| 23823 | capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23824 | capi_alpha_tmp = array_from_pyobj(NPY_CDOUBLE,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct)); | |||
| 23825 | if (capi_alpha_tmp == NULL((void*)0)) { | |||
| 23826 | if (!PyErr_Occurred()) | |||
| 23827 | PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.zgegv to C/Fortran array" ); | |||
| 23828 | } else { | |||
| 23829 | alpha = (complex_double *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data)); | |||
| 23830 | ||||
| 23831 | /* Processing variable beta */ | |||
| 23832 | beta_Dims[0]=n; | |||
| 23833 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23834 | capi_beta_tmp = array_from_pyobj(NPY_CDOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 23835 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 23836 | if (!PyErr_Occurred()) | |||
| 23837 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.zgegv to C/Fortran array" ); | |||
| 23838 | } else { | |||
| 23839 | beta = (complex_double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 23840 | ||||
| 23841 | /* Processing variable ldvl */ | |||
| 23842 | ldvl = (compute_vl?n:1); | |||
| 23843 | /* Processing variable ldvr */ | |||
| 23844 | ldvr = (compute_vr?n:1); | |||
| 23845 | /* Processing variable lwork */ | |||
| 23846 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 23847 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgegv() 3rd keyword (lwork) can't be converted to int"); | |||
| 23848 | if (f2py_success) { | |||
| 23849 | CHECKSCALAR(lwork>=2*n,"lwork>=2*n","3rd keyword lwork","zgegv:lwork=%d",lwork)if (!(lwork>=2*n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgegv:lwork=%d", "(""lwork>=2*n"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 23850 | /* Processing variable work */ | |||
| 23851 | work_Dims[0]=lwork; | |||
| 23852 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 23853 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 23854 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 23855 | if (!PyErr_Occurred()) | |||
| 23856 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgegv to C/Fortran array" ); | |||
| 23857 | } else { | |||
| 23858 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 23859 | ||||
| 23860 | /* Processing variable rwork */ | |||
| 23861 | rwork_Dims[0]=8 * n; | |||
| 23862 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 23863 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 23864 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 23865 | if (!PyErr_Occurred()) | |||
| 23866 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgegv to C/Fortran array" ); | |||
| 23867 | } else { | |||
| 23868 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 23869 | ||||
| 23870 | /* Processing variable vl */ | |||
| 23871 | vl_Dims[0]=ldvl,vl_Dims[1]=n; | |||
| 23872 | capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23873 | capi_vl_tmp = array_from_pyobj(NPY_CDOUBLE,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct)); | |||
| 23874 | if (capi_vl_tmp == NULL((void*)0)) { | |||
| 23875 | if (!PyErr_Occurred()) | |||
| 23876 | PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.zgegv to C/Fortran array" ); | |||
| 23877 | } else { | |||
| 23878 | vl = (complex_double *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data)); | |||
| 23879 | ||||
| 23880 | /* Processing variable vr */ | |||
| 23881 | vr_Dims[0]=ldvr,vr_Dims[1]=n; | |||
| 23882 | capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 23883 | capi_vr_tmp = array_from_pyobj(NPY_CDOUBLE,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct)); | |||
| 23884 | if (capi_vr_tmp == NULL((void*)0)) { | |||
| 23885 | if (!PyErr_Occurred()) | |||
| 23886 | PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.zgegv to C/Fortran array" ); | |||
| 23887 | } else { | |||
| 23888 | vr = (complex_double *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data)); | |||
| 23889 | ||||
| 23890 | /*end of frompyobj*/ | |||
| 23891 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23892 | f2py_start_call_clock(); | |||
| 23893 | #endif | |||
| 23894 | /*callfortranroutine*/ | |||
| 23895 | (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info) ; | |||
| 23896 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);*/ | |||
| 23897 | if (PyErr_Occurred()) | |||
| 23898 | f2py_success = 0; | |||
| 23899 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23900 | f2py_stop_call_clock(); | |||
| 23901 | #endif | |||
| 23902 | /*end of callfortranroutine*/ | |||
| 23903 | if (f2py_success) { | |||
| 23904 | /*pyobjfrom*/ | |||
| 23905 | /*end of pyobjfrom*/ | |||
| 23906 | CFUNCSMESS("Building return value.\n"); | |||
| 23907 | capi_buildvalue = Py_BuildValue("NNNNi",capi_alpha_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,info); | |||
| 23908 | /*closepyobjfrom*/ | |||
| 23909 | /*end of closepyobjfrom*/ | |||
| 23910 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 23911 | /*cleanupfrompyobj*/ | |||
| 23912 | } /*if (capi_vr_tmp == NULL) ... else of vr*/ | |||
| 23913 | /* End of cleaning variable vr */ | |||
| 23914 | } /*if (capi_vl_tmp == NULL) ... else of vl*/ | |||
| 23915 | /* End of cleaning variable vl */ | |||
| 23916 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 23917 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 23918 | /* End of cleaning variable rwork */ | |||
| 23919 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 23920 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 23921 | /* End of cleaning variable work */ | |||
| 23922 | } /*CHECKSCALAR(lwork>=2*n)*/ | |||
| 23923 | } /*if (f2py_success) of lwork*/ | |||
| 23924 | /* End of cleaning variable lwork */ | |||
| 23925 | /* End of cleaning variable ldvr */ | |||
| 23926 | /* End of cleaning variable ldvl */ | |||
| 23927 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 23928 | /* End of cleaning variable beta */ | |||
| 23929 | } /*if (capi_alpha_tmp == NULL) ... else of alpha*/ | |||
| 23930 | /* End of cleaning variable alpha */ | |||
| 23931 | } /*CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n)*/ | |||
| 23932 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 23933 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 23934 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 23935 | /* End of cleaning variable b */ | |||
| 23936 | /* End of cleaning variable n */ | |||
| 23937 | /* End of cleaning variable info */ | |||
| 23938 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 23939 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 23940 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 23941 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 23942 | /* End of cleaning variable a */ | |||
| 23943 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 23944 | } /*if (f2py_success) of compute_vr*/ | |||
| 23945 | /* End of cleaning variable compute_vr */ | |||
| 23946 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 23947 | } /*if (f2py_success) of compute_vl*/ | |||
| 23948 | /* End of cleaning variable compute_vl */ | |||
| 23949 | /*end of cleanupfrompyobj*/ | |||
| 23950 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 23951 | /*routdebugfailure*/ | |||
| 23952 | } else { | |||
| 23953 | /*routdebugleave*/ | |||
| 23954 | } | |||
| 23955 | CFUNCSMESS("Freeing memory.\n"); | |||
| 23956 | /*freemem*/ | |||
| 23957 | #ifdef F2PY_REPORT_ATEXIT | |||
| 23958 | f2py_stop_clock(); | |||
| 23959 | #endif | |||
| 23960 | return capi_buildvalue; | |||
| 23961 | } | |||
| 23962 | /******************************** end of zgegv ********************************/ | |||
| 23963 | ||||
| 23964 | /*********************************** cgees ***********************************/ | |||
| 23965 | static char doc_f2py_rout__flapack_cgees[] = "\ | |||
| 23966 | t,sdim,w,vs,work,info = cgees(cselect,a,[compute_v,sort_t,lwork,cselect_extra_args,overwrite_a])\n\nWrapper for ``cgees``.\ | |||
| 23967 | \n\nParameters\n----------\n" | |||
| 23968 | "cselect : call-back function\n" | |||
| 23969 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 23970 | "\nOther Parameters\n----------------\n" | |||
| 23971 | "compute_v : input int, optional\n Default: 1\n" | |||
| 23972 | "sort_t : input int, optional\n Default: 0\n" | |||
| 23973 | "cselect_extra_args : input tuple, optional\n Default: ()\n" | |||
| 23974 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 23975 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 23976 | "\nReturns\n-------\n" | |||
| 23977 | "t : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 23978 | "sdim : int\n" | |||
| 23979 | "w : rank-1 array('F') with bounds (n)\n" | |||
| 23980 | "vs : rank-2 array('F') with bounds (ldvs,n)\n" | |||
| 23981 | "work : rank-1 array('F') with bounds (MAX(lwork,1))\n" | |||
| 23982 | "info : int\n" | |||
| 23983 | "\nNotes\n-----\nCall-back functions::\n\n" | |||
| 23984 | " def cselect(arg): return cselect\n\ | |||
| 23985 | Required arguments:\n" | |||
| 23986 | " arg : input complex\n" | |||
| 23987 | " Return objects:\n" | |||
| 23988 | " cselect : int"; | |||
| 23989 | /* extern void F_FUNC(cgees,CGEES)(char*,char*,F_INT(*)(complex_float*),F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT,F_INT ); */ | |||
| 23990 | static PyObject *f2py_rout__flapack_cgees(const PyObject *capi_self, | |||
| 23991 | PyObject *capi_args, | |||
| 23992 | PyObject *capi_keywds, | |||
| 23993 | void (*f2py_func)(char*,char*,F_INTint(*)(complex_float*),F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint,F_INTint )) { | |||
| 23994 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 23995 | volatile int f2py_success = 1; | |||
| 23996 | /*decl*/ | |||
| 23997 | ||||
| 23998 | int compute_v = 0; | |||
| 23999 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 24000 | int sort_t = 0; | |||
| 24001 | PyObject *sort_t_capi = Py_None(&_Py_NoneStruct); | |||
| 24002 | PyObject *cselect_capi = Py_None(&_Py_NoneStruct); | |||
| 24003 | PyTupleObject *cselect_xa_capi = NULL((void*)0); | |||
| 24004 | PyTupleObject *cselect_args_capi = NULL((void*)0); | |||
| 24005 | int cselect_nofargs_capi = 0; | |||
| 24006 | cb_cselect_in_gees__user__routines_typedef cselect_cptr; | |||
| 24007 | int n = 0; | |||
| 24008 | complex_float *a = NULL((void*)0); | |||
| 24009 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 24010 | const int a_Rank = 2; | |||
| 24011 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 24012 | int capi_a_intent = 0; | |||
| 24013 | int capi_overwrite_a = 0; | |||
| 24014 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 24015 | int nrows = 0; | |||
| 24016 | int sdim = 0; | |||
| 24017 | complex_float *w = NULL((void*)0); | |||
| 24018 | npy_intp w_Dims[1] = {-1}; | |||
| 24019 | const int w_Rank = 1; | |||
| 24020 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 24021 | int capi_w_intent = 0; | |||
| 24022 | complex_float *vs = NULL((void*)0); | |||
| 24023 | npy_intp vs_Dims[2] = {-1, -1}; | |||
| 24024 | const int vs_Rank = 2; | |||
| 24025 | PyArrayObject *capi_vs_tmp = NULL((void*)0); | |||
| 24026 | int capi_vs_intent = 0; | |||
| 24027 | int ldvs = 0; | |||
| 24028 | complex_float *work = NULL((void*)0); | |||
| 24029 | npy_intp work_Dims[1] = {-1}; | |||
| 24030 | const int work_Rank = 1; | |||
| 24031 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 24032 | int capi_work_intent = 0; | |||
| 24033 | int lwork = 0; | |||
| 24034 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 24035 | float *rwork = NULL((void*)0); | |||
| 24036 | npy_intp rwork_Dims[1] = {-1}; | |||
| 24037 | const int rwork_Rank = 1; | |||
| 24038 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 24039 | int capi_rwork_intent = 0; | |||
| 24040 | int *bwork = NULL((void*)0); | |||
| 24041 | npy_intp bwork_Dims[1] = {-1}; | |||
| 24042 | const int bwork_Rank = 1; | |||
| 24043 | PyArrayObject *capi_bwork_tmp = NULL((void*)0); | |||
| 24044 | int capi_bwork_intent = 0; | |||
| 24045 | int info = 0; | |||
| 24046 | static char *capi_kwlist[] = {"cselect","a","compute_v","sort_t","lwork","cselect_extra_args","overwrite_a",NULL((void*)0)}; | |||
| 24047 | ||||
| 24048 | /*routdebugenter*/ | |||
| 24049 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24050 | f2py_start_clock(); | |||
| 24051 | #endif | |||
| 24052 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 24053 | "OO|OOOO!i:_flapack.cgees",\ | |||
| 24054 | capi_kwlist,&cselect_capi,&a_capi,&compute_v_capi,&sort_t_capi,&lwork_capi,&PyTuple_Type,&cselect_xa_capi,&capi_overwrite_a)) | |||
| 24055 | return NULL((void*)0); | |||
| 24056 | /*frompyobj*/ | |||
| 24057 | /* Processing variable compute_v */ | |||
| 24058 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 24059 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.cgees() 1st keyword (compute_v) can't be converted to int"); | |||
| 24060 | if (f2py_success) { | |||
| 24061 | CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","cgees:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgees:compute_v=%d", "(""compute_v==0||compute_v==1" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 24062 | /* Processing variable sort_t */ | |||
| 24063 | if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else | |||
| 24064 | f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.cgees() 2nd keyword (sort_t) can't be converted to int"); | |||
| 24065 | if (f2py_success) { | |||
| 24066 | CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","2nd keyword sort_t","cgees:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgees:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for " "2nd keyword sort_t", sort_t); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 24067 | /* Processing variable cselect */ | |||
| 24068 | if(F2PyCapsule_Check(cselect_capi)) { | |||
| 24069 | cselect_cptr = F2PyCapsule_AsVoidPtr(cselect_capi); | |||
| 24070 | } else { | |||
| 24071 | cselect_cptr = cb_cselect_in_gees__user__routines; | |||
| 24072 | } | |||
| 24073 | ||||
| 24074 | cselect_nofargs_capi = cb_cselect_in_gees__user__routines_nofargs; | |||
| 24075 | if (create_cb_arglist(cselect_capi,cselect_xa_capi,1,0,&cb_cselect_in_gees__user__routines_nofargs,&cselect_args_capi,"failed in processing argument list for call-back cselect.")) { | |||
| 24076 | jmp_buf cselect_jmpbuf; | |||
| 24077 | CFUNCSMESS("Saving jmpbuf for `cselect`.\n"); | |||
| 24078 | SWAP(cselect_capi,cb_cselect_in_gees__user__routines_capi,PyObject){ PyObject *c; c = cselect_capi; cselect_capi = cb_cselect_in_gees__user__routines_capi ; cb_cselect_in_gees__user__routines_capi = c;}; | |||
| 24079 | SWAP(cselect_args_capi,cb_cselect_in_gees__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = cselect_args_capi; cselect_args_capi = cb_cselect_in_gees__user__routines_args_capi; cb_cselect_in_gees__user__routines_args_capi = c;}; | |||
| 24080 | memcpy(&cselect_jmpbuf,&cb_cselect_in_gees__user__routines_jmpbuf,sizeof(jmp_buf)); | |||
| 24081 | /* Processing variable a */ | |||
| 24082 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 24083 | ; | |||
| 24084 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 24085 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 24086 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 24087 | if (!PyErr_Occurred()) | |||
| 24088 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.cgees to C/Fortran array" ); | |||
| 24089 | } else { | |||
| 24090 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 24091 | ||||
| 24092 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","2nd argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""2nd argument a"); } else { | |||
| 24093 | /* Processing variable sdim */ | |||
| 24094 | sdim = 0; | |||
| 24095 | /* Processing variable info */ | |||
| 24096 | /* Processing variable n */ | |||
| 24097 | n = shape(a,1)a_Dims[1]; | |||
| 24098 | /* Processing variable nrows */ | |||
| 24099 | nrows = shape(a,0)a_Dims[0]; | |||
| 24100 | /* Processing variable w */ | |||
| 24101 | w_Dims[0]=n; | |||
| 24102 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24103 | capi_w_tmp = array_from_pyobj(NPY_CFLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 24104 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 24105 | if (!PyErr_Occurred()) | |||
| 24106 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.cgees to C/Fortran array" ); | |||
| 24107 | } else { | |||
| 24108 | w = (complex_float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 24109 | ||||
| 24110 | /* Processing variable ldvs */ | |||
| 24111 | ldvs = ((compute_v==1)?n:1); | |||
| 24112 | /* Processing variable lwork */ | |||
| 24113 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 24114 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgees() 3rd keyword (lwork) can't be converted to int"); | |||
| 24115 | if (f2py_success) { | |||
| 24116 | CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)),"(lwork==-1)||(lwork >= MAX(1,2*n))","3rd keyword lwork","cgees:lwork=%d",lwork)if (!((lwork==-1)||(lwork >= ((1 > 2*n) ? (1) : (2*n))) )) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgees:lwork=%d" , "(""(lwork==-1)||(lwork >= MAX(1,2*n))"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 24117 | /* Processing variable rwork */ | |||
| 24118 | rwork_Dims[0]=n; | |||
| 24119 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 24120 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 24121 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 24122 | if (!PyErr_Occurred()) | |||
| 24123 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgees to C/Fortran array" ); | |||
| 24124 | } else { | |||
| 24125 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 24126 | ||||
| 24127 | /* Processing variable bwork */ | |||
| 24128 | bwork_Dims[0]=n; | |||
| 24129 | capi_bwork_intent |= F2PY_INTENT_HIDE8; | |||
| 24130 | capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 24131 | if (capi_bwork_tmp == NULL((void*)0)) { | |||
| 24132 | if (!PyErr_Occurred()) | |||
| 24133 | PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.cgees to C/Fortran array" ); | |||
| 24134 | } else { | |||
| 24135 | bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data)); | |||
| 24136 | ||||
| 24137 | /* Processing variable vs */ | |||
| 24138 | vs_Dims[0]=ldvs,vs_Dims[1]=n; | |||
| 24139 | capi_vs_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24140 | capi_vs_tmp = array_from_pyobj(NPY_CFLOAT,vs_Dims,vs_Rank,capi_vs_intent,Py_None(&_Py_NoneStruct)); | |||
| 24141 | if (capi_vs_tmp == NULL((void*)0)) { | |||
| 24142 | if (!PyErr_Occurred()) | |||
| 24143 | PyErr_SetString(_flapack_error,"failed in converting hidden `vs' of _flapack.cgees to C/Fortran array" ); | |||
| 24144 | } else { | |||
| 24145 | vs = (complex_float *)(PyArray_DATA(capi_vs_tmp)((void *)((PyArrayObject_fields *)(capi_vs_tmp))->data)); | |||
| 24146 | ||||
| 24147 | /* Processing variable work */ | |||
| 24148 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 24149 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24150 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 24151 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 24152 | if (!PyErr_Occurred()) | |||
| 24153 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgees to C/Fortran array" ); | |||
| 24154 | } else { | |||
| 24155 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 24156 | ||||
| 24157 | /*end of frompyobj*/ | |||
| 24158 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24159 | f2py_start_call_clock(); | |||
| 24160 | #endif | |||
| 24161 | /*callfortranroutine*/ | |||
| 24162 | if ((setjmp(cb_cselect_in_gees__user__routines_jmpbuf)_setjmp (cb_cselect_in_gees__user__routines_jmpbuf))) { | |||
| 24163 | f2py_success = 0; | |||
| 24164 | } else { | |||
| 24165 | (*f2py_func)((compute_v?"V":"N"),(sort_t?"S":"N"),cb_cselect_in_gees__user__routines,&n,a,&nrows,&sdim,w,vs,&ldvs,work,&lwork,rwork,bwork,&info,1,1) ; | |||
| 24166 | /*(*f2py_func)(&compute_v,&sort_t,cselect_cptr,&n,a,&nrows,&sdim,w,vs,&ldvs,work,&lwork,rwork,bwork,&info);*/ | |||
| 24167 | } | |||
| 24168 | if (PyErr_Occurred()) | |||
| 24169 | f2py_success = 0; | |||
| 24170 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24171 | f2py_stop_call_clock(); | |||
| 24172 | #endif | |||
| 24173 | /*end of callfortranroutine*/ | |||
| 24174 | if (f2py_success) { | |||
| 24175 | /*pyobjfrom*/ | |||
| 24176 | /*end of pyobjfrom*/ | |||
| 24177 | CFUNCSMESS("Building return value.\n"); | |||
| 24178 | capi_buildvalue = Py_BuildValue("NiNNNi",capi_a_tmp,sdim,capi_w_tmp,capi_vs_tmp,capi_work_tmp,info); | |||
| 24179 | /*closepyobjfrom*/ | |||
| 24180 | /*end of closepyobjfrom*/ | |||
| 24181 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 24182 | /*cleanupfrompyobj*/ | |||
| 24183 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 24184 | /* End of cleaning variable work */ | |||
| 24185 | } /*if (capi_vs_tmp == NULL) ... else of vs*/ | |||
| 24186 | /* End of cleaning variable vs */ | |||
| 24187 | Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp))); | |||
| 24188 | } /*if (capi_bwork_tmp == NULL) ... else of bwork*/ | |||
| 24189 | /* End of cleaning variable bwork */ | |||
| 24190 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 24191 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 24192 | /* End of cleaning variable rwork */ | |||
| 24193 | } /*CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)))*/ | |||
| 24194 | } /*if (f2py_success) of lwork*/ | |||
| 24195 | /* End of cleaning variable lwork */ | |||
| 24196 | /* End of cleaning variable ldvs */ | |||
| 24197 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 24198 | /* End of cleaning variable w */ | |||
| 24199 | /* End of cleaning variable nrows */ | |||
| 24200 | /* End of cleaning variable n */ | |||
| 24201 | /* End of cleaning variable info */ | |||
| 24202 | /* End of cleaning variable sdim */ | |||
| 24203 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 24204 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 24205 | /* End of cleaning variable a */ | |||
| 24206 | CFUNCSMESS("Restoring jmpbuf for `cselect`.\n"); | |||
| 24207 | cb_cselect_in_gees__user__routines_capi = cselect_capi; | |||
| 24208 | Py_DECREF(cb_cselect_in_gees__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_cselect_in_gees__user__routines_args_capi ))); | |||
| 24209 | cb_cselect_in_gees__user__routines_args_capi = cselect_args_capi; | |||
| 24210 | cb_cselect_in_gees__user__routines_nofargs = cselect_nofargs_capi; | |||
| 24211 | memcpy(&cb_cselect_in_gees__user__routines_jmpbuf,&cselect_jmpbuf,sizeof(jmp_buf)); | |||
| 24212 | } | |||
| 24213 | /* End of cleaning variable cselect */ | |||
| 24214 | } /*CHECKSCALAR(sort_t==0||sort_t==1)*/ | |||
| 24215 | } /*if (f2py_success) of sort_t*/ | |||
| 24216 | /* End of cleaning variable sort_t */ | |||
| 24217 | } /*CHECKSCALAR(compute_v==0||compute_v==1)*/ | |||
| 24218 | } /*if (f2py_success) of compute_v*/ | |||
| 24219 | /* End of cleaning variable compute_v */ | |||
| 24220 | /*end of cleanupfrompyobj*/ | |||
| 24221 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 24222 | /*routdebugfailure*/ | |||
| 24223 | } else { | |||
| 24224 | /*routdebugleave*/ | |||
| 24225 | } | |||
| 24226 | CFUNCSMESS("Freeing memory.\n"); | |||
| 24227 | /*freemem*/ | |||
| 24228 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24229 | f2py_stop_clock(); | |||
| 24230 | #endif | |||
| 24231 | return capi_buildvalue; | |||
| 24232 | } | |||
| 24233 | /******************************** end of cgees ********************************/ | |||
| 24234 | ||||
| 24235 | /*********************************** zgees ***********************************/ | |||
| 24236 | static char doc_f2py_rout__flapack_zgees[] = "\ | |||
| 24237 | t,sdim,w,vs,work,info = zgees(zselect,a,[compute_v,sort_t,lwork,zselect_extra_args,overwrite_a])\n\nWrapper for ``zgees``.\ | |||
| 24238 | \n\nParameters\n----------\n" | |||
| 24239 | "zselect : call-back function\n" | |||
| 24240 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 24241 | "\nOther Parameters\n----------------\n" | |||
| 24242 | "compute_v : input int, optional\n Default: 1\n" | |||
| 24243 | "sort_t : input int, optional\n Default: 0\n" | |||
| 24244 | "zselect_extra_args : input tuple, optional\n Default: ()\n" | |||
| 24245 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 24246 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 24247 | "\nReturns\n-------\n" | |||
| 24248 | "t : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 24249 | "sdim : int\n" | |||
| 24250 | "w : rank-1 array('D') with bounds (n)\n" | |||
| 24251 | "vs : rank-2 array('D') with bounds (ldvs,n)\n" | |||
| 24252 | "work : rank-1 array('D') with bounds (MAX(lwork,1))\n" | |||
| 24253 | "info : int\n" | |||
| 24254 | "\nNotes\n-----\nCall-back functions::\n\n" | |||
| 24255 | " def zselect(arg): return zselect\n\ | |||
| 24256 | Required arguments:\n" | |||
| 24257 | " arg : input complex\n" | |||
| 24258 | " Return objects:\n" | |||
| 24259 | " zselect : int"; | |||
| 24260 | /* extern void F_FUNC(zgees,ZGEES)(char*,char*,F_INT(*)(complex_double*),F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT,F_INT ); */ | |||
| 24261 | static PyObject *f2py_rout__flapack_zgees(const PyObject *capi_self, | |||
| 24262 | PyObject *capi_args, | |||
| 24263 | PyObject *capi_keywds, | |||
| 24264 | void (*f2py_func)(char*,char*,F_INTint(*)(complex_double*),F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint,F_INTint )) { | |||
| 24265 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 24266 | volatile int f2py_success = 1; | |||
| 24267 | /*decl*/ | |||
| 24268 | ||||
| 24269 | int compute_v = 0; | |||
| 24270 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 24271 | int sort_t = 0; | |||
| 24272 | PyObject *sort_t_capi = Py_None(&_Py_NoneStruct); | |||
| 24273 | PyObject *zselect_capi = Py_None(&_Py_NoneStruct); | |||
| 24274 | PyTupleObject *zselect_xa_capi = NULL((void*)0); | |||
| 24275 | PyTupleObject *zselect_args_capi = NULL((void*)0); | |||
| 24276 | int zselect_nofargs_capi = 0; | |||
| 24277 | cb_zselect_in_gees__user__routines_typedef zselect_cptr; | |||
| 24278 | int n = 0; | |||
| 24279 | complex_double *a = NULL((void*)0); | |||
| 24280 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 24281 | const int a_Rank = 2; | |||
| 24282 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 24283 | int capi_a_intent = 0; | |||
| 24284 | int capi_overwrite_a = 0; | |||
| 24285 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 24286 | int nrows = 0; | |||
| 24287 | int sdim = 0; | |||
| 24288 | complex_double *w = NULL((void*)0); | |||
| 24289 | npy_intp w_Dims[1] = {-1}; | |||
| 24290 | const int w_Rank = 1; | |||
| 24291 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 24292 | int capi_w_intent = 0; | |||
| 24293 | complex_double *vs = NULL((void*)0); | |||
| 24294 | npy_intp vs_Dims[2] = {-1, -1}; | |||
| 24295 | const int vs_Rank = 2; | |||
| 24296 | PyArrayObject *capi_vs_tmp = NULL((void*)0); | |||
| 24297 | int capi_vs_intent = 0; | |||
| 24298 | int ldvs = 0; | |||
| 24299 | complex_double *work = NULL((void*)0); | |||
| 24300 | npy_intp work_Dims[1] = {-1}; | |||
| 24301 | const int work_Rank = 1; | |||
| 24302 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 24303 | int capi_work_intent = 0; | |||
| 24304 | int lwork = 0; | |||
| 24305 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 24306 | double *rwork = NULL((void*)0); | |||
| 24307 | npy_intp rwork_Dims[1] = {-1}; | |||
| 24308 | const int rwork_Rank = 1; | |||
| 24309 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 24310 | int capi_rwork_intent = 0; | |||
| 24311 | int *bwork = NULL((void*)0); | |||
| 24312 | npy_intp bwork_Dims[1] = {-1}; | |||
| 24313 | const int bwork_Rank = 1; | |||
| 24314 | PyArrayObject *capi_bwork_tmp = NULL((void*)0); | |||
| 24315 | int capi_bwork_intent = 0; | |||
| 24316 | int info = 0; | |||
| 24317 | static char *capi_kwlist[] = {"zselect","a","compute_v","sort_t","lwork","zselect_extra_args","overwrite_a",NULL((void*)0)}; | |||
| 24318 | ||||
| 24319 | /*routdebugenter*/ | |||
| 24320 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24321 | f2py_start_clock(); | |||
| 24322 | #endif | |||
| 24323 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 24324 | "OO|OOOO!i:_flapack.zgees",\ | |||
| 24325 | capi_kwlist,&zselect_capi,&a_capi,&compute_v_capi,&sort_t_capi,&lwork_capi,&PyTuple_Type,&zselect_xa_capi,&capi_overwrite_a)) | |||
| 24326 | return NULL((void*)0); | |||
| 24327 | /*frompyobj*/ | |||
| 24328 | /* Processing variable compute_v */ | |||
| 24329 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 24330 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zgees() 1st keyword (compute_v) can't be converted to int"); | |||
| 24331 | if (f2py_success) { | |||
| 24332 | CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","zgees:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgees:compute_v=%d", "(""compute_v==0||compute_v==1" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 24333 | /* Processing variable sort_t */ | |||
| 24334 | if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else | |||
| 24335 | f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.zgees() 2nd keyword (sort_t) can't be converted to int"); | |||
| 24336 | if (f2py_success) { | |||
| 24337 | CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","2nd keyword sort_t","zgees:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgees:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for " "2nd keyword sort_t", sort_t); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 24338 | /* Processing variable zselect */ | |||
| 24339 | if(F2PyCapsule_Check(zselect_capi)) { | |||
| 24340 | zselect_cptr = F2PyCapsule_AsVoidPtr(zselect_capi); | |||
| 24341 | } else { | |||
| 24342 | zselect_cptr = cb_zselect_in_gees__user__routines; | |||
| 24343 | } | |||
| 24344 | ||||
| 24345 | zselect_nofargs_capi = cb_zselect_in_gees__user__routines_nofargs; | |||
| 24346 | if (create_cb_arglist(zselect_capi,zselect_xa_capi,1,0,&cb_zselect_in_gees__user__routines_nofargs,&zselect_args_capi,"failed in processing argument list for call-back zselect.")) { | |||
| 24347 | jmp_buf zselect_jmpbuf; | |||
| 24348 | CFUNCSMESS("Saving jmpbuf for `zselect`.\n"); | |||
| 24349 | SWAP(zselect_capi,cb_zselect_in_gees__user__routines_capi,PyObject){ PyObject *c; c = zselect_capi; zselect_capi = cb_zselect_in_gees__user__routines_capi ; cb_zselect_in_gees__user__routines_capi = c;}; | |||
| 24350 | SWAP(zselect_args_capi,cb_zselect_in_gees__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = zselect_args_capi; zselect_args_capi = cb_zselect_in_gees__user__routines_args_capi; cb_zselect_in_gees__user__routines_args_capi = c;}; | |||
| 24351 | memcpy(&zselect_jmpbuf,&cb_zselect_in_gees__user__routines_jmpbuf,sizeof(jmp_buf)); | |||
| 24352 | /* Processing variable a */ | |||
| 24353 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 24354 | ; | |||
| 24355 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 24356 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 24357 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 24358 | if (!PyErr_Occurred()) | |||
| 24359 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zgees to C/Fortran array" ); | |||
| 24360 | } else { | |||
| 24361 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 24362 | ||||
| 24363 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","2nd argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""2nd argument a"); } else { | |||
| 24364 | /* Processing variable sdim */ | |||
| 24365 | sdim = 0; | |||
| 24366 | /* Processing variable info */ | |||
| 24367 | /* Processing variable n */ | |||
| 24368 | n = shape(a,1)a_Dims[1]; | |||
| 24369 | /* Processing variable nrows */ | |||
| 24370 | nrows = shape(a,0)a_Dims[0]; | |||
| 24371 | /* Processing variable w */ | |||
| 24372 | w_Dims[0]=n; | |||
| 24373 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24374 | capi_w_tmp = array_from_pyobj(NPY_CDOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 24375 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 24376 | if (!PyErr_Occurred()) | |||
| 24377 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zgees to C/Fortran array" ); | |||
| 24378 | } else { | |||
| 24379 | w = (complex_double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 24380 | ||||
| 24381 | /* Processing variable ldvs */ | |||
| 24382 | ldvs = ((compute_v==1)?n:1); | |||
| 24383 | /* Processing variable lwork */ | |||
| 24384 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 24385 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgees() 3rd keyword (lwork) can't be converted to int"); | |||
| 24386 | if (f2py_success) { | |||
| 24387 | CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)),"(lwork==-1)||(lwork >= MAX(1,2*n))","3rd keyword lwork","zgees:lwork=%d",lwork)if (!((lwork==-1)||(lwork >= ((1 > 2*n) ? (1) : (2*n))) )) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgees:lwork=%d" , "(""(lwork==-1)||(lwork >= MAX(1,2*n))"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 24388 | /* Processing variable rwork */ | |||
| 24389 | rwork_Dims[0]=n; | |||
| 24390 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 24391 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 24392 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 24393 | if (!PyErr_Occurred()) | |||
| 24394 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgees to C/Fortran array" ); | |||
| 24395 | } else { | |||
| 24396 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 24397 | ||||
| 24398 | /* Processing variable bwork */ | |||
| 24399 | bwork_Dims[0]=n; | |||
| 24400 | capi_bwork_intent |= F2PY_INTENT_HIDE8; | |||
| 24401 | capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 24402 | if (capi_bwork_tmp == NULL((void*)0)) { | |||
| 24403 | if (!PyErr_Occurred()) | |||
| 24404 | PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.zgees to C/Fortran array" ); | |||
| 24405 | } else { | |||
| 24406 | bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data)); | |||
| 24407 | ||||
| 24408 | /* Processing variable vs */ | |||
| 24409 | vs_Dims[0]=ldvs,vs_Dims[1]=n; | |||
| 24410 | capi_vs_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24411 | capi_vs_tmp = array_from_pyobj(NPY_CDOUBLE,vs_Dims,vs_Rank,capi_vs_intent,Py_None(&_Py_NoneStruct)); | |||
| 24412 | if (capi_vs_tmp == NULL((void*)0)) { | |||
| 24413 | if (!PyErr_Occurred()) | |||
| 24414 | PyErr_SetString(_flapack_error,"failed in converting hidden `vs' of _flapack.zgees to C/Fortran array" ); | |||
| 24415 | } else { | |||
| 24416 | vs = (complex_double *)(PyArray_DATA(capi_vs_tmp)((void *)((PyArrayObject_fields *)(capi_vs_tmp))->data)); | |||
| 24417 | ||||
| 24418 | /* Processing variable work */ | |||
| 24419 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 24420 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24421 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 24422 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 24423 | if (!PyErr_Occurred()) | |||
| 24424 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgees to C/Fortran array" ); | |||
| 24425 | } else { | |||
| 24426 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 24427 | ||||
| 24428 | /*end of frompyobj*/ | |||
| 24429 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24430 | f2py_start_call_clock(); | |||
| 24431 | #endif | |||
| 24432 | /*callfortranroutine*/ | |||
| 24433 | if ((setjmp(cb_zselect_in_gees__user__routines_jmpbuf)_setjmp (cb_zselect_in_gees__user__routines_jmpbuf))) { | |||
| 24434 | f2py_success = 0; | |||
| 24435 | } else { | |||
| 24436 | (*f2py_func)((compute_v?"V":"N"),(sort_t?"S":"N"),cb_zselect_in_gees__user__routines,&n,a,&nrows,&sdim,w,vs,&ldvs,work,&lwork,rwork,bwork,&info,1,1) ; | |||
| 24437 | /*(*f2py_func)(&compute_v,&sort_t,zselect_cptr,&n,a,&nrows,&sdim,w,vs,&ldvs,work,&lwork,rwork,bwork,&info);*/ | |||
| 24438 | } | |||
| 24439 | if (PyErr_Occurred()) | |||
| 24440 | f2py_success = 0; | |||
| 24441 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24442 | f2py_stop_call_clock(); | |||
| 24443 | #endif | |||
| 24444 | /*end of callfortranroutine*/ | |||
| 24445 | if (f2py_success) { | |||
| 24446 | /*pyobjfrom*/ | |||
| 24447 | /*end of pyobjfrom*/ | |||
| 24448 | CFUNCSMESS("Building return value.\n"); | |||
| 24449 | capi_buildvalue = Py_BuildValue("NiNNNi",capi_a_tmp,sdim,capi_w_tmp,capi_vs_tmp,capi_work_tmp,info); | |||
| 24450 | /*closepyobjfrom*/ | |||
| 24451 | /*end of closepyobjfrom*/ | |||
| 24452 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 24453 | /*cleanupfrompyobj*/ | |||
| 24454 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 24455 | /* End of cleaning variable work */ | |||
| 24456 | } /*if (capi_vs_tmp == NULL) ... else of vs*/ | |||
| 24457 | /* End of cleaning variable vs */ | |||
| 24458 | Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp))); | |||
| 24459 | } /*if (capi_bwork_tmp == NULL) ... else of bwork*/ | |||
| 24460 | /* End of cleaning variable bwork */ | |||
| 24461 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 24462 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 24463 | /* End of cleaning variable rwork */ | |||
| 24464 | } /*CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)))*/ | |||
| 24465 | } /*if (f2py_success) of lwork*/ | |||
| 24466 | /* End of cleaning variable lwork */ | |||
| 24467 | /* End of cleaning variable ldvs */ | |||
| 24468 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 24469 | /* End of cleaning variable w */ | |||
| 24470 | /* End of cleaning variable nrows */ | |||
| 24471 | /* End of cleaning variable n */ | |||
| 24472 | /* End of cleaning variable info */ | |||
| 24473 | /* End of cleaning variable sdim */ | |||
| 24474 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 24475 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 24476 | /* End of cleaning variable a */ | |||
| 24477 | CFUNCSMESS("Restoring jmpbuf for `zselect`.\n"); | |||
| 24478 | cb_zselect_in_gees__user__routines_capi = zselect_capi; | |||
| 24479 | Py_DECREF(cb_zselect_in_gees__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_zselect_in_gees__user__routines_args_capi ))); | |||
| 24480 | cb_zselect_in_gees__user__routines_args_capi = zselect_args_capi; | |||
| 24481 | cb_zselect_in_gees__user__routines_nofargs = zselect_nofargs_capi; | |||
| 24482 | memcpy(&cb_zselect_in_gees__user__routines_jmpbuf,&zselect_jmpbuf,sizeof(jmp_buf)); | |||
| 24483 | } | |||
| 24484 | /* End of cleaning variable zselect */ | |||
| 24485 | } /*CHECKSCALAR(sort_t==0||sort_t==1)*/ | |||
| 24486 | } /*if (f2py_success) of sort_t*/ | |||
| 24487 | /* End of cleaning variable sort_t */ | |||
| 24488 | } /*CHECKSCALAR(compute_v==0||compute_v==1)*/ | |||
| 24489 | } /*if (f2py_success) of compute_v*/ | |||
| 24490 | /* End of cleaning variable compute_v */ | |||
| 24491 | /*end of cleanupfrompyobj*/ | |||
| 24492 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 24493 | /*routdebugfailure*/ | |||
| 24494 | } else { | |||
| 24495 | /*routdebugleave*/ | |||
| 24496 | } | |||
| 24497 | CFUNCSMESS("Freeing memory.\n"); | |||
| 24498 | /*freemem*/ | |||
| 24499 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24500 | f2py_stop_clock(); | |||
| 24501 | #endif | |||
| 24502 | return capi_buildvalue; | |||
| 24503 | } | |||
| 24504 | /******************************** end of zgees ********************************/ | |||
| 24505 | ||||
| 24506 | /*********************************** sgees ***********************************/ | |||
| 24507 | static char doc_f2py_rout__flapack_sgees[] = "\ | |||
| 24508 | t,sdim,wr,wi,vs,work,info = sgees(sselect,a,[compute_v,sort_t,lwork,sselect_extra_args,overwrite_a])\n\nWrapper for ``sgees``.\ | |||
| 24509 | \n\nParameters\n----------\n" | |||
| 24510 | "sselect : call-back function\n" | |||
| 24511 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 24512 | "\nOther Parameters\n----------------\n" | |||
| 24513 | "compute_v : input int, optional\n Default: 1\n" | |||
| 24514 | "sort_t : input int, optional\n Default: 0\n" | |||
| 24515 | "sselect_extra_args : input tuple, optional\n Default: ()\n" | |||
| 24516 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 24517 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 24518 | "\nReturns\n-------\n" | |||
| 24519 | "t : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 24520 | "sdim : int\n" | |||
| 24521 | "wr : rank-1 array('f') with bounds (n)\n" | |||
| 24522 | "wi : rank-1 array('f') with bounds (n)\n" | |||
| 24523 | "vs : rank-2 array('f') with bounds (ldvs,n)\n" | |||
| 24524 | "work : rank-1 array('f') with bounds (MAX(lwork,1))\n" | |||
| 24525 | "info : int\n" | |||
| 24526 | "\nNotes\n-----\nCall-back functions::\n\n" | |||
| 24527 | " def sselect(arg1,arg2): return sselect\n\ | |||
| 24528 | Required arguments:\n" | |||
| 24529 | " arg1 : input float\n" | |||
| 24530 | " arg2 : input float\n" | |||
| 24531 | " Return objects:\n" | |||
| 24532 | " sselect : int"; | |||
| 24533 | /* extern void F_FUNC(sgees,SGEES)(char*,char*,F_INT(*)(float*,float*),F_INT*,float*,F_INT*,F_INT*,float*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT,F_INT ); */ | |||
| 24534 | static PyObject *f2py_rout__flapack_sgees(const PyObject *capi_self, | |||
| 24535 | PyObject *capi_args, | |||
| 24536 | PyObject *capi_keywds, | |||
| 24537 | void (*f2py_func)(char*,char*,F_INTint(*)(float*,float*),F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint,F_INTint )) { | |||
| 24538 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 24539 | volatile int f2py_success = 1; | |||
| 24540 | /*decl*/ | |||
| 24541 | ||||
| 24542 | int compute_v = 0; | |||
| 24543 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 24544 | int sort_t = 0; | |||
| 24545 | PyObject *sort_t_capi = Py_None(&_Py_NoneStruct); | |||
| 24546 | PyObject *sselect_capi = Py_None(&_Py_NoneStruct); | |||
| 24547 | PyTupleObject *sselect_xa_capi = NULL((void*)0); | |||
| 24548 | PyTupleObject *sselect_args_capi = NULL((void*)0); | |||
| 24549 | int sselect_nofargs_capi = 0; | |||
| 24550 | cb_sselect_in_gees__user__routines_typedef sselect_cptr; | |||
| 24551 | int n = 0; | |||
| 24552 | float *a = NULL((void*)0); | |||
| 24553 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 24554 | const int a_Rank = 2; | |||
| 24555 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 24556 | int capi_a_intent = 0; | |||
| 24557 | int capi_overwrite_a = 0; | |||
| 24558 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 24559 | int nrows = 0; | |||
| 24560 | int sdim = 0; | |||
| 24561 | float *wr = NULL((void*)0); | |||
| 24562 | npy_intp wr_Dims[1] = {-1}; | |||
| 24563 | const int wr_Rank = 1; | |||
| 24564 | PyArrayObject *capi_wr_tmp = NULL((void*)0); | |||
| 24565 | int capi_wr_intent = 0; | |||
| 24566 | float *wi = NULL((void*)0); | |||
| 24567 | npy_intp wi_Dims[1] = {-1}; | |||
| 24568 | const int wi_Rank = 1; | |||
| 24569 | PyArrayObject *capi_wi_tmp = NULL((void*)0); | |||
| 24570 | int capi_wi_intent = 0; | |||
| 24571 | float *vs = NULL((void*)0); | |||
| 24572 | npy_intp vs_Dims[2] = {-1, -1}; | |||
| 24573 | const int vs_Rank = 2; | |||
| 24574 | PyArrayObject *capi_vs_tmp = NULL((void*)0); | |||
| 24575 | int capi_vs_intent = 0; | |||
| 24576 | int ldvs = 0; | |||
| 24577 | float *work = NULL((void*)0); | |||
| 24578 | npy_intp work_Dims[1] = {-1}; | |||
| 24579 | const int work_Rank = 1; | |||
| 24580 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 24581 | int capi_work_intent = 0; | |||
| 24582 | int lwork = 0; | |||
| 24583 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 24584 | int *bwork = NULL((void*)0); | |||
| 24585 | npy_intp bwork_Dims[1] = {-1}; | |||
| 24586 | const int bwork_Rank = 1; | |||
| 24587 | PyArrayObject *capi_bwork_tmp = NULL((void*)0); | |||
| 24588 | int capi_bwork_intent = 0; | |||
| 24589 | int info = 0; | |||
| 24590 | static char *capi_kwlist[] = {"sselect","a","compute_v","sort_t","lwork","sselect_extra_args","overwrite_a",NULL((void*)0)}; | |||
| 24591 | ||||
| 24592 | /*routdebugenter*/ | |||
| 24593 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24594 | f2py_start_clock(); | |||
| 24595 | #endif | |||
| 24596 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 24597 | "OO|OOOO!i:_flapack.sgees",\ | |||
| 24598 | capi_kwlist,&sselect_capi,&a_capi,&compute_v_capi,&sort_t_capi,&lwork_capi,&PyTuple_Type,&sselect_xa_capi,&capi_overwrite_a)) | |||
| 24599 | return NULL((void*)0); | |||
| 24600 | /*frompyobj*/ | |||
| 24601 | /* Processing variable compute_v */ | |||
| 24602 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 24603 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.sgees() 1st keyword (compute_v) can't be converted to int"); | |||
| 24604 | if (f2py_success) { | |||
| 24605 | CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","sgees:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgees:compute_v=%d", "(""compute_v==0||compute_v==1" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 24606 | /* Processing variable sort_t */ | |||
| 24607 | if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else | |||
| 24608 | f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.sgees() 2nd keyword (sort_t) can't be converted to int"); | |||
| 24609 | if (f2py_success) { | |||
| 24610 | CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","2nd keyword sort_t","sgees:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgees:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for " "2nd keyword sort_t", sort_t); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 24611 | /* Processing variable sselect */ | |||
| 24612 | if(F2PyCapsule_Check(sselect_capi)) { | |||
| 24613 | sselect_cptr = F2PyCapsule_AsVoidPtr(sselect_capi); | |||
| 24614 | } else { | |||
| 24615 | sselect_cptr = cb_sselect_in_gees__user__routines; | |||
| 24616 | } | |||
| 24617 | ||||
| 24618 | sselect_nofargs_capi = cb_sselect_in_gees__user__routines_nofargs; | |||
| 24619 | if (create_cb_arglist(sselect_capi,sselect_xa_capi,2,0,&cb_sselect_in_gees__user__routines_nofargs,&sselect_args_capi,"failed in processing argument list for call-back sselect.")) { | |||
| 24620 | jmp_buf sselect_jmpbuf; | |||
| 24621 | CFUNCSMESS("Saving jmpbuf for `sselect`.\n"); | |||
| 24622 | SWAP(sselect_capi,cb_sselect_in_gees__user__routines_capi,PyObject){ PyObject *c; c = sselect_capi; sselect_capi = cb_sselect_in_gees__user__routines_capi ; cb_sselect_in_gees__user__routines_capi = c;}; | |||
| 24623 | SWAP(sselect_args_capi,cb_sselect_in_gees__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = sselect_args_capi; sselect_args_capi = cb_sselect_in_gees__user__routines_args_capi; cb_sselect_in_gees__user__routines_args_capi = c;}; | |||
| 24624 | memcpy(&sselect_jmpbuf,&cb_sselect_in_gees__user__routines_jmpbuf,sizeof(jmp_buf)); | |||
| 24625 | /* Processing variable a */ | |||
| 24626 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 24627 | ; | |||
| 24628 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 24629 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 24630 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 24631 | if (!PyErr_Occurred()) | |||
| 24632 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.sgees to C/Fortran array" ); | |||
| 24633 | } else { | |||
| 24634 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 24635 | ||||
| 24636 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","2nd argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""2nd argument a"); } else { | |||
| 24637 | /* Processing variable sdim */ | |||
| 24638 | sdim = 0; | |||
| 24639 | /* Processing variable info */ | |||
| 24640 | /* Processing variable n */ | |||
| 24641 | n = shape(a,1)a_Dims[1]; | |||
| 24642 | /* Processing variable nrows */ | |||
| 24643 | nrows = shape(a,0)a_Dims[0]; | |||
| 24644 | /* Processing variable wr */ | |||
| 24645 | wr_Dims[0]=n; | |||
| 24646 | capi_wr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24647 | capi_wr_tmp = array_from_pyobj(NPY_FLOAT,wr_Dims,wr_Rank,capi_wr_intent,Py_None(&_Py_NoneStruct)); | |||
| 24648 | if (capi_wr_tmp == NULL((void*)0)) { | |||
| 24649 | if (!PyErr_Occurred()) | |||
| 24650 | PyErr_SetString(_flapack_error,"failed in converting hidden `wr' of _flapack.sgees to C/Fortran array" ); | |||
| 24651 | } else { | |||
| 24652 | wr = (float *)(PyArray_DATA(capi_wr_tmp)((void *)((PyArrayObject_fields *)(capi_wr_tmp))->data)); | |||
| 24653 | ||||
| 24654 | /* Processing variable wi */ | |||
| 24655 | wi_Dims[0]=n; | |||
| 24656 | capi_wi_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24657 | capi_wi_tmp = array_from_pyobj(NPY_FLOAT,wi_Dims,wi_Rank,capi_wi_intent,Py_None(&_Py_NoneStruct)); | |||
| 24658 | if (capi_wi_tmp == NULL((void*)0)) { | |||
| 24659 | if (!PyErr_Occurred()) | |||
| 24660 | PyErr_SetString(_flapack_error,"failed in converting hidden `wi' of _flapack.sgees to C/Fortran array" ); | |||
| 24661 | } else { | |||
| 24662 | wi = (float *)(PyArray_DATA(capi_wi_tmp)((void *)((PyArrayObject_fields *)(capi_wi_tmp))->data)); | |||
| 24663 | ||||
| 24664 | /* Processing variable ldvs */ | |||
| 24665 | ldvs = ((compute_v==1)?n:1); | |||
| 24666 | /* Processing variable lwork */ | |||
| 24667 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 24668 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgees() 3rd keyword (lwork) can't be converted to int"); | |||
| 24669 | if (f2py_success) { | |||
| 24670 | CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)),"(lwork==-1)||(lwork >= MAX(1,2*n))","3rd keyword lwork","sgees:lwork=%d",lwork)if (!((lwork==-1)||(lwork >= ((1 > 2*n) ? (1) : (2*n))) )) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgees:lwork=%d" , "(""(lwork==-1)||(lwork >= MAX(1,2*n))"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 24671 | /* Processing variable bwork */ | |||
| 24672 | bwork_Dims[0]=n; | |||
| 24673 | capi_bwork_intent |= F2PY_INTENT_HIDE8; | |||
| 24674 | capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 24675 | if (capi_bwork_tmp == NULL((void*)0)) { | |||
| 24676 | if (!PyErr_Occurred()) | |||
| 24677 | PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.sgees to C/Fortran array" ); | |||
| 24678 | } else { | |||
| 24679 | bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data)); | |||
| 24680 | ||||
| 24681 | /* Processing variable vs */ | |||
| 24682 | vs_Dims[0]=ldvs,vs_Dims[1]=n; | |||
| 24683 | capi_vs_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24684 | capi_vs_tmp = array_from_pyobj(NPY_FLOAT,vs_Dims,vs_Rank,capi_vs_intent,Py_None(&_Py_NoneStruct)); | |||
| 24685 | if (capi_vs_tmp == NULL((void*)0)) { | |||
| 24686 | if (!PyErr_Occurred()) | |||
| 24687 | PyErr_SetString(_flapack_error,"failed in converting hidden `vs' of _flapack.sgees to C/Fortran array" ); | |||
| 24688 | } else { | |||
| 24689 | vs = (float *)(PyArray_DATA(capi_vs_tmp)((void *)((PyArrayObject_fields *)(capi_vs_tmp))->data)); | |||
| 24690 | ||||
| 24691 | /* Processing variable work */ | |||
| 24692 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 24693 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24694 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 24695 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 24696 | if (!PyErr_Occurred()) | |||
| 24697 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgees to C/Fortran array" ); | |||
| 24698 | } else { | |||
| 24699 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 24700 | ||||
| 24701 | /*end of frompyobj*/ | |||
| 24702 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24703 | f2py_start_call_clock(); | |||
| 24704 | #endif | |||
| 24705 | /*callfortranroutine*/ | |||
| 24706 | if ((setjmp(cb_sselect_in_gees__user__routines_jmpbuf)_setjmp (cb_sselect_in_gees__user__routines_jmpbuf))) { | |||
| 24707 | f2py_success = 0; | |||
| 24708 | } else { | |||
| 24709 | (*f2py_func)((compute_v?"V":"N"),(sort_t?"S":"N"),cb_sselect_in_gees__user__routines,&n,a,&nrows,&sdim,wr,wi,vs,&ldvs,work,&lwork,bwork,&info,1,1) ; | |||
| 24710 | /*(*f2py_func)(&compute_v,&sort_t,sselect_cptr,&n,a,&nrows,&sdim,wr,wi,vs,&ldvs,work,&lwork,bwork,&info);*/ | |||
| 24711 | } | |||
| 24712 | if (PyErr_Occurred()) | |||
| 24713 | f2py_success = 0; | |||
| 24714 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24715 | f2py_stop_call_clock(); | |||
| 24716 | #endif | |||
| 24717 | /*end of callfortranroutine*/ | |||
| 24718 | if (f2py_success) { | |||
| 24719 | /*pyobjfrom*/ | |||
| 24720 | /*end of pyobjfrom*/ | |||
| 24721 | CFUNCSMESS("Building return value.\n"); | |||
| 24722 | capi_buildvalue = Py_BuildValue("NiNNNNi",capi_a_tmp,sdim,capi_wr_tmp,capi_wi_tmp,capi_vs_tmp,capi_work_tmp,info); | |||
| 24723 | /*closepyobjfrom*/ | |||
| 24724 | /*end of closepyobjfrom*/ | |||
| 24725 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 24726 | /*cleanupfrompyobj*/ | |||
| 24727 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 24728 | /* End of cleaning variable work */ | |||
| 24729 | } /*if (capi_vs_tmp == NULL) ... else of vs*/ | |||
| 24730 | /* End of cleaning variable vs */ | |||
| 24731 | Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp))); | |||
| 24732 | } /*if (capi_bwork_tmp == NULL) ... else of bwork*/ | |||
| 24733 | /* End of cleaning variable bwork */ | |||
| 24734 | } /*CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)))*/ | |||
| 24735 | } /*if (f2py_success) of lwork*/ | |||
| 24736 | /* End of cleaning variable lwork */ | |||
| 24737 | /* End of cleaning variable ldvs */ | |||
| 24738 | } /*if (capi_wi_tmp == NULL) ... else of wi*/ | |||
| 24739 | /* End of cleaning variable wi */ | |||
| 24740 | } /*if (capi_wr_tmp == NULL) ... else of wr*/ | |||
| 24741 | /* End of cleaning variable wr */ | |||
| 24742 | /* End of cleaning variable nrows */ | |||
| 24743 | /* End of cleaning variable n */ | |||
| 24744 | /* End of cleaning variable info */ | |||
| 24745 | /* End of cleaning variable sdim */ | |||
| 24746 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 24747 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 24748 | /* End of cleaning variable a */ | |||
| 24749 | CFUNCSMESS("Restoring jmpbuf for `sselect`.\n"); | |||
| 24750 | cb_sselect_in_gees__user__routines_capi = sselect_capi; | |||
| 24751 | Py_DECREF(cb_sselect_in_gees__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_sselect_in_gees__user__routines_args_capi ))); | |||
| 24752 | cb_sselect_in_gees__user__routines_args_capi = sselect_args_capi; | |||
| 24753 | cb_sselect_in_gees__user__routines_nofargs = sselect_nofargs_capi; | |||
| 24754 | memcpy(&cb_sselect_in_gees__user__routines_jmpbuf,&sselect_jmpbuf,sizeof(jmp_buf)); | |||
| 24755 | } | |||
| 24756 | /* End of cleaning variable sselect */ | |||
| 24757 | } /*CHECKSCALAR(sort_t==0||sort_t==1)*/ | |||
| 24758 | } /*if (f2py_success) of sort_t*/ | |||
| 24759 | /* End of cleaning variable sort_t */ | |||
| 24760 | } /*CHECKSCALAR(compute_v==0||compute_v==1)*/ | |||
| 24761 | } /*if (f2py_success) of compute_v*/ | |||
| 24762 | /* End of cleaning variable compute_v */ | |||
| 24763 | /*end of cleanupfrompyobj*/ | |||
| 24764 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 24765 | /*routdebugfailure*/ | |||
| 24766 | } else { | |||
| 24767 | /*routdebugleave*/ | |||
| 24768 | } | |||
| 24769 | CFUNCSMESS("Freeing memory.\n"); | |||
| 24770 | /*freemem*/ | |||
| 24771 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24772 | f2py_stop_clock(); | |||
| 24773 | #endif | |||
| 24774 | return capi_buildvalue; | |||
| 24775 | } | |||
| 24776 | /******************************** end of sgees ********************************/ | |||
| 24777 | ||||
| 24778 | /*********************************** dgees ***********************************/ | |||
| 24779 | static char doc_f2py_rout__flapack_dgees[] = "\ | |||
| 24780 | t,sdim,wr,wi,vs,work,info = dgees(dselect,a,[compute_v,sort_t,lwork,dselect_extra_args,overwrite_a])\n\nWrapper for ``dgees``.\ | |||
| 24781 | \n\nParameters\n----------\n" | |||
| 24782 | "dselect : call-back function\n" | |||
| 24783 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 24784 | "\nOther Parameters\n----------------\n" | |||
| 24785 | "compute_v : input int, optional\n Default: 1\n" | |||
| 24786 | "sort_t : input int, optional\n Default: 0\n" | |||
| 24787 | "dselect_extra_args : input tuple, optional\n Default: ()\n" | |||
| 24788 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 24789 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 24790 | "\nReturns\n-------\n" | |||
| 24791 | "t : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 24792 | "sdim : int\n" | |||
| 24793 | "wr : rank-1 array('d') with bounds (n)\n" | |||
| 24794 | "wi : rank-1 array('d') with bounds (n)\n" | |||
| 24795 | "vs : rank-2 array('d') with bounds (ldvs,n)\n" | |||
| 24796 | "work : rank-1 array('d') with bounds (MAX(lwork,1))\n" | |||
| 24797 | "info : int\n" | |||
| 24798 | "\nNotes\n-----\nCall-back functions::\n\n" | |||
| 24799 | " def dselect(arg1,arg2): return dselect\n\ | |||
| 24800 | Required arguments:\n" | |||
| 24801 | " arg1 : input float\n" | |||
| 24802 | " arg2 : input float\n" | |||
| 24803 | " Return objects:\n" | |||
| 24804 | " dselect : int"; | |||
| 24805 | /* extern void F_FUNC(dgees,DGEES)(char*,char*,F_INT(*)(double*,double*),F_INT*,double*,F_INT*,F_INT*,double*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT,F_INT ); */ | |||
| 24806 | static PyObject *f2py_rout__flapack_dgees(const PyObject *capi_self, | |||
| 24807 | PyObject *capi_args, | |||
| 24808 | PyObject *capi_keywds, | |||
| 24809 | void (*f2py_func)(char*,char*,F_INTint(*)(double*,double*),F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint,F_INTint )) { | |||
| 24810 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 24811 | volatile int f2py_success = 1; | |||
| 24812 | /*decl*/ | |||
| 24813 | ||||
| 24814 | int compute_v = 0; | |||
| 24815 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 24816 | int sort_t = 0; | |||
| 24817 | PyObject *sort_t_capi = Py_None(&_Py_NoneStruct); | |||
| 24818 | PyObject *dselect_capi = Py_None(&_Py_NoneStruct); | |||
| 24819 | PyTupleObject *dselect_xa_capi = NULL((void*)0); | |||
| 24820 | PyTupleObject *dselect_args_capi = NULL((void*)0); | |||
| 24821 | int dselect_nofargs_capi = 0; | |||
| 24822 | cb_dselect_in_gees__user__routines_typedef dselect_cptr; | |||
| 24823 | int n = 0; | |||
| 24824 | double *a = NULL((void*)0); | |||
| 24825 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 24826 | const int a_Rank = 2; | |||
| 24827 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 24828 | int capi_a_intent = 0; | |||
| 24829 | int capi_overwrite_a = 0; | |||
| 24830 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 24831 | int nrows = 0; | |||
| 24832 | int sdim = 0; | |||
| 24833 | double *wr = NULL((void*)0); | |||
| 24834 | npy_intp wr_Dims[1] = {-1}; | |||
| 24835 | const int wr_Rank = 1; | |||
| 24836 | PyArrayObject *capi_wr_tmp = NULL((void*)0); | |||
| 24837 | int capi_wr_intent = 0; | |||
| 24838 | double *wi = NULL((void*)0); | |||
| 24839 | npy_intp wi_Dims[1] = {-1}; | |||
| 24840 | const int wi_Rank = 1; | |||
| 24841 | PyArrayObject *capi_wi_tmp = NULL((void*)0); | |||
| 24842 | int capi_wi_intent = 0; | |||
| 24843 | double *vs = NULL((void*)0); | |||
| 24844 | npy_intp vs_Dims[2] = {-1, -1}; | |||
| 24845 | const int vs_Rank = 2; | |||
| 24846 | PyArrayObject *capi_vs_tmp = NULL((void*)0); | |||
| 24847 | int capi_vs_intent = 0; | |||
| 24848 | int ldvs = 0; | |||
| 24849 | double *work = NULL((void*)0); | |||
| 24850 | npy_intp work_Dims[1] = {-1}; | |||
| 24851 | const int work_Rank = 1; | |||
| 24852 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 24853 | int capi_work_intent = 0; | |||
| 24854 | int lwork = 0; | |||
| 24855 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 24856 | int *bwork = NULL((void*)0); | |||
| 24857 | npy_intp bwork_Dims[1] = {-1}; | |||
| 24858 | const int bwork_Rank = 1; | |||
| 24859 | PyArrayObject *capi_bwork_tmp = NULL((void*)0); | |||
| 24860 | int capi_bwork_intent = 0; | |||
| 24861 | int info = 0; | |||
| 24862 | static char *capi_kwlist[] = {"dselect","a","compute_v","sort_t","lwork","dselect_extra_args","overwrite_a",NULL((void*)0)}; | |||
| 24863 | ||||
| 24864 | /*routdebugenter*/ | |||
| 24865 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24866 | f2py_start_clock(); | |||
| 24867 | #endif | |||
| 24868 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 24869 | "OO|OOOO!i:_flapack.dgees",\ | |||
| 24870 | capi_kwlist,&dselect_capi,&a_capi,&compute_v_capi,&sort_t_capi,&lwork_capi,&PyTuple_Type,&dselect_xa_capi,&capi_overwrite_a)) | |||
| 24871 | return NULL((void*)0); | |||
| 24872 | /*frompyobj*/ | |||
| 24873 | /* Processing variable compute_v */ | |||
| 24874 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 24875 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dgees() 1st keyword (compute_v) can't be converted to int"); | |||
| 24876 | if (f2py_success) { | |||
| 24877 | CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","dgees:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgees:compute_v=%d", "(""compute_v==0||compute_v==1" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 24878 | /* Processing variable sort_t */ | |||
| 24879 | if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else | |||
| 24880 | f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.dgees() 2nd keyword (sort_t) can't be converted to int"); | |||
| 24881 | if (f2py_success) { | |||
| 24882 | CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","2nd keyword sort_t","dgees:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgees:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for " "2nd keyword sort_t", sort_t); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 24883 | /* Processing variable dselect */ | |||
| 24884 | if(F2PyCapsule_Check(dselect_capi)) { | |||
| 24885 | dselect_cptr = F2PyCapsule_AsVoidPtr(dselect_capi); | |||
| 24886 | } else { | |||
| 24887 | dselect_cptr = cb_dselect_in_gees__user__routines; | |||
| 24888 | } | |||
| 24889 | ||||
| 24890 | dselect_nofargs_capi = cb_dselect_in_gees__user__routines_nofargs; | |||
| 24891 | if (create_cb_arglist(dselect_capi,dselect_xa_capi,2,0,&cb_dselect_in_gees__user__routines_nofargs,&dselect_args_capi,"failed in processing argument list for call-back dselect.")) { | |||
| 24892 | jmp_buf dselect_jmpbuf; | |||
| 24893 | CFUNCSMESS("Saving jmpbuf for `dselect`.\n"); | |||
| 24894 | SWAP(dselect_capi,cb_dselect_in_gees__user__routines_capi,PyObject){ PyObject *c; c = dselect_capi; dselect_capi = cb_dselect_in_gees__user__routines_capi ; cb_dselect_in_gees__user__routines_capi = c;}; | |||
| 24895 | SWAP(dselect_args_capi,cb_dselect_in_gees__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = dselect_args_capi; dselect_args_capi = cb_dselect_in_gees__user__routines_args_capi; cb_dselect_in_gees__user__routines_args_capi = c;}; | |||
| 24896 | memcpy(&dselect_jmpbuf,&cb_dselect_in_gees__user__routines_jmpbuf,sizeof(jmp_buf)); | |||
| 24897 | /* Processing variable a */ | |||
| 24898 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 24899 | ; | |||
| 24900 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 24901 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 24902 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 24903 | if (!PyErr_Occurred()) | |||
| 24904 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dgees to C/Fortran array" ); | |||
| 24905 | } else { | |||
| 24906 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 24907 | ||||
| 24908 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","2nd argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""2nd argument a"); } else { | |||
| 24909 | /* Processing variable sdim */ | |||
| 24910 | sdim = 0; | |||
| 24911 | /* Processing variable info */ | |||
| 24912 | /* Processing variable n */ | |||
| 24913 | n = shape(a,1)a_Dims[1]; | |||
| 24914 | /* Processing variable nrows */ | |||
| 24915 | nrows = shape(a,0)a_Dims[0]; | |||
| 24916 | /* Processing variable wr */ | |||
| 24917 | wr_Dims[0]=n; | |||
| 24918 | capi_wr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24919 | capi_wr_tmp = array_from_pyobj(NPY_DOUBLE,wr_Dims,wr_Rank,capi_wr_intent,Py_None(&_Py_NoneStruct)); | |||
| 24920 | if (capi_wr_tmp == NULL((void*)0)) { | |||
| 24921 | if (!PyErr_Occurred()) | |||
| 24922 | PyErr_SetString(_flapack_error,"failed in converting hidden `wr' of _flapack.dgees to C/Fortran array" ); | |||
| 24923 | } else { | |||
| 24924 | wr = (double *)(PyArray_DATA(capi_wr_tmp)((void *)((PyArrayObject_fields *)(capi_wr_tmp))->data)); | |||
| 24925 | ||||
| 24926 | /* Processing variable wi */ | |||
| 24927 | wi_Dims[0]=n; | |||
| 24928 | capi_wi_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24929 | capi_wi_tmp = array_from_pyobj(NPY_DOUBLE,wi_Dims,wi_Rank,capi_wi_intent,Py_None(&_Py_NoneStruct)); | |||
| 24930 | if (capi_wi_tmp == NULL((void*)0)) { | |||
| 24931 | if (!PyErr_Occurred()) | |||
| 24932 | PyErr_SetString(_flapack_error,"failed in converting hidden `wi' of _flapack.dgees to C/Fortran array" ); | |||
| 24933 | } else { | |||
| 24934 | wi = (double *)(PyArray_DATA(capi_wi_tmp)((void *)((PyArrayObject_fields *)(capi_wi_tmp))->data)); | |||
| 24935 | ||||
| 24936 | /* Processing variable ldvs */ | |||
| 24937 | ldvs = ((compute_v==1)?n:1); | |||
| 24938 | /* Processing variable lwork */ | |||
| 24939 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 24940 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgees() 3rd keyword (lwork) can't be converted to int"); | |||
| 24941 | if (f2py_success) { | |||
| 24942 | CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)),"(lwork==-1)||(lwork >= MAX(1,2*n))","3rd keyword lwork","dgees:lwork=%d",lwork)if (!((lwork==-1)||(lwork >= ((1 > 2*n) ? (1) : (2*n))) )) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgees:lwork=%d" , "(""(lwork==-1)||(lwork >= MAX(1,2*n))"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 24943 | /* Processing variable bwork */ | |||
| 24944 | bwork_Dims[0]=n; | |||
| 24945 | capi_bwork_intent |= F2PY_INTENT_HIDE8; | |||
| 24946 | capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 24947 | if (capi_bwork_tmp == NULL((void*)0)) { | |||
| 24948 | if (!PyErr_Occurred()) | |||
| 24949 | PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.dgees to C/Fortran array" ); | |||
| 24950 | } else { | |||
| 24951 | bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data)); | |||
| 24952 | ||||
| 24953 | /* Processing variable vs */ | |||
| 24954 | vs_Dims[0]=ldvs,vs_Dims[1]=n; | |||
| 24955 | capi_vs_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24956 | capi_vs_tmp = array_from_pyobj(NPY_DOUBLE,vs_Dims,vs_Rank,capi_vs_intent,Py_None(&_Py_NoneStruct)); | |||
| 24957 | if (capi_vs_tmp == NULL((void*)0)) { | |||
| 24958 | if (!PyErr_Occurred()) | |||
| 24959 | PyErr_SetString(_flapack_error,"failed in converting hidden `vs' of _flapack.dgees to C/Fortran array" ); | |||
| 24960 | } else { | |||
| 24961 | vs = (double *)(PyArray_DATA(capi_vs_tmp)((void *)((PyArrayObject_fields *)(capi_vs_tmp))->data)); | |||
| 24962 | ||||
| 24963 | /* Processing variable work */ | |||
| 24964 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 24965 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 24966 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 24967 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 24968 | if (!PyErr_Occurred()) | |||
| 24969 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgees to C/Fortran array" ); | |||
| 24970 | } else { | |||
| 24971 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 24972 | ||||
| 24973 | /*end of frompyobj*/ | |||
| 24974 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24975 | f2py_start_call_clock(); | |||
| 24976 | #endif | |||
| 24977 | /*callfortranroutine*/ | |||
| 24978 | if ((setjmp(cb_dselect_in_gees__user__routines_jmpbuf)_setjmp (cb_dselect_in_gees__user__routines_jmpbuf))) { | |||
| 24979 | f2py_success = 0; | |||
| 24980 | } else { | |||
| 24981 | (*f2py_func)((compute_v?"V":"N"),(sort_t?"S":"N"),cb_dselect_in_gees__user__routines,&n,a,&nrows,&sdim,wr,wi,vs,&ldvs,work,&lwork,bwork,&info,1,1) ; | |||
| 24982 | /*(*f2py_func)(&compute_v,&sort_t,dselect_cptr,&n,a,&nrows,&sdim,wr,wi,vs,&ldvs,work,&lwork,bwork,&info);*/ | |||
| 24983 | } | |||
| 24984 | if (PyErr_Occurred()) | |||
| 24985 | f2py_success = 0; | |||
| 24986 | #ifdef F2PY_REPORT_ATEXIT | |||
| 24987 | f2py_stop_call_clock(); | |||
| 24988 | #endif | |||
| 24989 | /*end of callfortranroutine*/ | |||
| 24990 | if (f2py_success) { | |||
| 24991 | /*pyobjfrom*/ | |||
| 24992 | /*end of pyobjfrom*/ | |||
| 24993 | CFUNCSMESS("Building return value.\n"); | |||
| 24994 | capi_buildvalue = Py_BuildValue("NiNNNNi",capi_a_tmp,sdim,capi_wr_tmp,capi_wi_tmp,capi_vs_tmp,capi_work_tmp,info); | |||
| 24995 | /*closepyobjfrom*/ | |||
| 24996 | /*end of closepyobjfrom*/ | |||
| 24997 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 24998 | /*cleanupfrompyobj*/ | |||
| 24999 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 25000 | /* End of cleaning variable work */ | |||
| 25001 | } /*if (capi_vs_tmp == NULL) ... else of vs*/ | |||
| 25002 | /* End of cleaning variable vs */ | |||
| 25003 | Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp))); | |||
| 25004 | } /*if (capi_bwork_tmp == NULL) ... else of bwork*/ | |||
| 25005 | /* End of cleaning variable bwork */ | |||
| 25006 | } /*CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)))*/ | |||
| 25007 | } /*if (f2py_success) of lwork*/ | |||
| 25008 | /* End of cleaning variable lwork */ | |||
| 25009 | /* End of cleaning variable ldvs */ | |||
| 25010 | } /*if (capi_wi_tmp == NULL) ... else of wi*/ | |||
| 25011 | /* End of cleaning variable wi */ | |||
| 25012 | } /*if (capi_wr_tmp == NULL) ... else of wr*/ | |||
| 25013 | /* End of cleaning variable wr */ | |||
| 25014 | /* End of cleaning variable nrows */ | |||
| 25015 | /* End of cleaning variable n */ | |||
| 25016 | /* End of cleaning variable info */ | |||
| 25017 | /* End of cleaning variable sdim */ | |||
| 25018 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 25019 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 25020 | /* End of cleaning variable a */ | |||
| 25021 | CFUNCSMESS("Restoring jmpbuf for `dselect`.\n"); | |||
| 25022 | cb_dselect_in_gees__user__routines_capi = dselect_capi; | |||
| 25023 | Py_DECREF(cb_dselect_in_gees__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_dselect_in_gees__user__routines_args_capi ))); | |||
| 25024 | cb_dselect_in_gees__user__routines_args_capi = dselect_args_capi; | |||
| 25025 | cb_dselect_in_gees__user__routines_nofargs = dselect_nofargs_capi; | |||
| 25026 | memcpy(&cb_dselect_in_gees__user__routines_jmpbuf,&dselect_jmpbuf,sizeof(jmp_buf)); | |||
| 25027 | } | |||
| 25028 | /* End of cleaning variable dselect */ | |||
| 25029 | } /*CHECKSCALAR(sort_t==0||sort_t==1)*/ | |||
| 25030 | } /*if (f2py_success) of sort_t*/ | |||
| 25031 | /* End of cleaning variable sort_t */ | |||
| 25032 | } /*CHECKSCALAR(compute_v==0||compute_v==1)*/ | |||
| 25033 | } /*if (f2py_success) of compute_v*/ | |||
| 25034 | /* End of cleaning variable compute_v */ | |||
| 25035 | /*end of cleanupfrompyobj*/ | |||
| 25036 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 25037 | /*routdebugfailure*/ | |||
| 25038 | } else { | |||
| 25039 | /*routdebugleave*/ | |||
| 25040 | } | |||
| 25041 | CFUNCSMESS("Freeing memory.\n"); | |||
| 25042 | /*freemem*/ | |||
| 25043 | #ifdef F2PY_REPORT_ATEXIT | |||
| 25044 | f2py_stop_clock(); | |||
| 25045 | #endif | |||
| 25046 | return capi_buildvalue; | |||
| 25047 | } | |||
| 25048 | /******************************** end of dgees ********************************/ | |||
| 25049 | ||||
| 25050 | /*********************************** sgges ***********************************/ | |||
| 25051 | static char doc_f2py_rout__flapack_sgges[] = "\ | |||
| 25052 | a,b,sdim,alphar,alphai,beta,vsl,vsr,work,info = sgges(sselect,a,b,[jobvsl,jobvsr,sort_t,ldvsl,ldvsr,lwork,sselect_extra_args,overwrite_a,overwrite_b])\n\nWrapper for ``sgges``.\ | |||
| 25053 | \n\nParameters\n----------\n" | |||
| 25054 | "sselect : call-back function\n" | |||
| 25055 | "a : input rank-2 array('f') with bounds (lda,n)\n" | |||
| 25056 | "b : input rank-2 array('f') with bounds (ldb,n)\n" | |||
| 25057 | "\nOther Parameters\n----------------\n" | |||
| 25058 | "jobvsl : input int, optional\n Default: 1\n" | |||
| 25059 | "jobvsr : input int, optional\n Default: 1\n" | |||
| 25060 | "sort_t : input int, optional\n Default: 0\n" | |||
| 25061 | "sselect_extra_args : input tuple, optional\n Default: ()\n" | |||
| 25062 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 25063 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 25064 | "ldvsl : input int, optional\n Default: ((jobvsl==1)?n:1)\n" | |||
| 25065 | "ldvsr : input int, optional\n Default: ((jobvsr==1)?n:1)\n" | |||
| 25066 | "lwork : input int, optional\n Default: max(8*n+16,1)\n" | |||
| 25067 | "\nReturns\n-------\n" | |||
| 25068 | "a : rank-2 array('f') with bounds (lda,n)\n" | |||
| 25069 | "b : rank-2 array('f') with bounds (ldb,n)\n" | |||
| 25070 | "sdim : int\n" | |||
| 25071 | "alphar : rank-1 array('f') with bounds (n)\n" | |||
| 25072 | "alphai : rank-1 array('f') with bounds (n)\n" | |||
| 25073 | "beta : rank-1 array('f') with bounds (n)\n" | |||
| 25074 | "vsl : rank-2 array('f') with bounds (ldvsl,n)\n" | |||
| 25075 | "vsr : rank-2 array('f') with bounds (ldvsr,n)\n" | |||
| 25076 | "work : rank-1 array('f') with bounds (MAX(lwork,1))\n" | |||
| 25077 | "info : int\n" | |||
| 25078 | "\nNotes\n-----\nCall-back functions::\n\n" | |||
| 25079 | " def sselect(alphar,alphai,beta): return sselect\n\ | |||
| 25080 | Required arguments:\n" | |||
| 25081 | " alphar : input float\n" | |||
| 25082 | " alphai : input float\n" | |||
| 25083 | " beta : input float\n" | |||
| 25084 | " Return objects:\n" | |||
| 25085 | " sselect : int"; | |||
| 25086 | /* extern void F_FUNC(sgges,SGGES)(char*,char*,char*,F_INT(*)(float*,float*,float*),F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,float*,float*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 25087 | static PyObject *f2py_rout__flapack_sgges(const PyObject *capi_self, | |||
| 25088 | PyObject *capi_args, | |||
| 25089 | PyObject *capi_keywds, | |||
| 25090 | void (*f2py_func)(char*,char*,char*,F_INTint(*)(float*,float*,float*),F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 25091 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 25092 | volatile int f2py_success = 1; | |||
| 25093 | /*decl*/ | |||
| 25094 | ||||
| 25095 | int jobvsl = 0; | |||
| 25096 | PyObject *jobvsl_capi = Py_None(&_Py_NoneStruct); | |||
| 25097 | int jobvsr = 0; | |||
| 25098 | PyObject *jobvsr_capi = Py_None(&_Py_NoneStruct); | |||
| 25099 | int sort_t = 0; | |||
| 25100 | PyObject *sort_t_capi = Py_None(&_Py_NoneStruct); | |||
| 25101 | PyObject *sselect_capi = Py_None(&_Py_NoneStruct); | |||
| 25102 | PyTupleObject *sselect_xa_capi = NULL((void*)0); | |||
| 25103 | PyTupleObject *sselect_args_capi = NULL((void*)0); | |||
| 25104 | int sselect_nofargs_capi = 0; | |||
| 25105 | cb_sselect_in_gges__user__routines_typedef sselect_cptr; | |||
| 25106 | int n = 0; | |||
| 25107 | float *a = NULL((void*)0); | |||
| 25108 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 25109 | const int a_Rank = 2; | |||
| 25110 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 25111 | int capi_a_intent = 0; | |||
| 25112 | int capi_overwrite_a = 0; | |||
| 25113 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 25114 | int lda = 0; | |||
| 25115 | float *b = NULL((void*)0); | |||
| 25116 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 25117 | const int b_Rank = 2; | |||
| 25118 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 25119 | int capi_b_intent = 0; | |||
| 25120 | int capi_overwrite_b = 0; | |||
| 25121 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 25122 | int ldb = 0; | |||
| 25123 | int sdim = 0; | |||
| 25124 | float *alphar = NULL((void*)0); | |||
| 25125 | npy_intp alphar_Dims[1] = {-1}; | |||
| 25126 | const int alphar_Rank = 1; | |||
| 25127 | PyArrayObject *capi_alphar_tmp = NULL((void*)0); | |||
| 25128 | int capi_alphar_intent = 0; | |||
| 25129 | float *alphai = NULL((void*)0); | |||
| 25130 | npy_intp alphai_Dims[1] = {-1}; | |||
| 25131 | const int alphai_Rank = 1; | |||
| 25132 | PyArrayObject *capi_alphai_tmp = NULL((void*)0); | |||
| 25133 | int capi_alphai_intent = 0; | |||
| 25134 | float *beta = NULL((void*)0); | |||
| 25135 | npy_intp beta_Dims[1] = {-1}; | |||
| 25136 | const int beta_Rank = 1; | |||
| 25137 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 25138 | int capi_beta_intent = 0; | |||
| 25139 | float *vsl = NULL((void*)0); | |||
| 25140 | npy_intp vsl_Dims[2] = {-1, -1}; | |||
| 25141 | const int vsl_Rank = 2; | |||
| 25142 | PyArrayObject *capi_vsl_tmp = NULL((void*)0); | |||
| 25143 | int capi_vsl_intent = 0; | |||
| 25144 | int ldvsl = 0; | |||
| 25145 | PyObject *ldvsl_capi = Py_None(&_Py_NoneStruct); | |||
| 25146 | float *vsr = NULL((void*)0); | |||
| 25147 | npy_intp vsr_Dims[2] = {-1, -1}; | |||
| 25148 | const int vsr_Rank = 2; | |||
| 25149 | PyArrayObject *capi_vsr_tmp = NULL((void*)0); | |||
| 25150 | int capi_vsr_intent = 0; | |||
| 25151 | int ldvsr = 0; | |||
| 25152 | PyObject *ldvsr_capi = Py_None(&_Py_NoneStruct); | |||
| 25153 | float *work = NULL((void*)0); | |||
| 25154 | npy_intp work_Dims[1] = {-1}; | |||
| 25155 | const int work_Rank = 1; | |||
| 25156 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 25157 | int capi_work_intent = 0; | |||
| 25158 | int lwork = 0; | |||
| 25159 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 25160 | int *bwork = NULL((void*)0); | |||
| 25161 | npy_intp bwork_Dims[1] = {-1}; | |||
| 25162 | const int bwork_Rank = 1; | |||
| 25163 | PyArrayObject *capi_bwork_tmp = NULL((void*)0); | |||
| 25164 | int capi_bwork_intent = 0; | |||
| 25165 | int info = 0; | |||
| 25166 | static char *capi_kwlist[] = {"sselect","a","b","jobvsl","jobvsr","sort_t","ldvsl","ldvsr","lwork","sselect_extra_args","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 25167 | ||||
| 25168 | /*routdebugenter*/ | |||
| 25169 | #ifdef F2PY_REPORT_ATEXIT | |||
| 25170 | f2py_start_clock(); | |||
| 25171 | #endif | |||
| 25172 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 25173 | "OOO|OOOOOOO!ii:_flapack.sgges",\ | |||
| 25174 | capi_kwlist,&sselect_capi,&a_capi,&b_capi,&jobvsl_capi,&jobvsr_capi,&sort_t_capi,&ldvsl_capi,&ldvsr_capi,&lwork_capi,&PyTuple_Type,&sselect_xa_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 25175 | return NULL((void*)0); | |||
| 25176 | /*frompyobj*/ | |||
| 25177 | /* Processing variable jobvsl */ | |||
| 25178 | if (jobvsl_capi == Py_None(&_Py_NoneStruct)) jobvsl = 1; else | |||
| 25179 | f2py_success = int_from_pyobj(&jobvsl,jobvsl_capi,"_flapack.sgges() 1st keyword (jobvsl) can't be converted to int"); | |||
| 25180 | if (f2py_success) { | |||
| 25181 | CHECKSCALAR(jobvsl==0||jobvsl==1,"jobvsl==0||jobvsl==1","1st keyword jobvsl","sgges:jobvsl=%d",jobvsl)if (!(jobvsl==0||jobvsl==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgges:jobvsl=%d", "(""jobvsl==0||jobvsl==1"") failed for " "1st keyword jobvsl", jobvsl); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 25182 | /* Processing variable jobvsr */ | |||
| 25183 | if (jobvsr_capi == Py_None(&_Py_NoneStruct)) jobvsr = 1; else | |||
| 25184 | f2py_success = int_from_pyobj(&jobvsr,jobvsr_capi,"_flapack.sgges() 2nd keyword (jobvsr) can't be converted to int"); | |||
| 25185 | if (f2py_success) { | |||
| 25186 | CHECKSCALAR(jobvsr==0||jobvsr==1,"jobvsr==0||jobvsr==1","2nd keyword jobvsr","sgges:jobvsr=%d",jobvsr)if (!(jobvsr==0||jobvsr==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgges:jobvsr=%d", "(""jobvsr==0||jobvsr==1"") failed for " "2nd keyword jobvsr", jobvsr); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 25187 | /* Processing variable sort_t */ | |||
| 25188 | if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else | |||
| 25189 | f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.sgges() 3rd keyword (sort_t) can't be converted to int"); | |||
| 25190 | if (f2py_success) { | |||
| 25191 | CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","3rd keyword sort_t","sgges:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgges:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for " "3rd keyword sort_t", sort_t); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 25192 | /* Processing variable sselect */ | |||
| 25193 | if(F2PyCapsule_Check(sselect_capi)) { | |||
| 25194 | sselect_cptr = F2PyCapsule_AsVoidPtr(sselect_capi); | |||
| 25195 | } else { | |||
| 25196 | sselect_cptr = cb_sselect_in_gges__user__routines; | |||
| 25197 | } | |||
| 25198 | ||||
| 25199 | sselect_nofargs_capi = cb_sselect_in_gges__user__routines_nofargs; | |||
| 25200 | if (create_cb_arglist(sselect_capi,sselect_xa_capi,3,0,&cb_sselect_in_gges__user__routines_nofargs,&sselect_args_capi,"failed in processing argument list for call-back sselect.")) { | |||
| 25201 | jmp_buf sselect_jmpbuf; | |||
| 25202 | CFUNCSMESS("Saving jmpbuf for `sselect`.\n"); | |||
| 25203 | SWAP(sselect_capi,cb_sselect_in_gges__user__routines_capi,PyObject){ PyObject *c; c = sselect_capi; sselect_capi = cb_sselect_in_gges__user__routines_capi ; cb_sselect_in_gges__user__routines_capi = c;}; | |||
| 25204 | SWAP(sselect_args_capi,cb_sselect_in_gges__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = sselect_args_capi; sselect_args_capi = cb_sselect_in_gges__user__routines_args_capi; cb_sselect_in_gges__user__routines_args_capi = c;}; | |||
| 25205 | memcpy(&sselect_jmpbuf,&cb_sselect_in_gges__user__routines_jmpbuf,sizeof(jmp_buf)); | |||
| 25206 | /* Processing variable a */ | |||
| 25207 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 25208 | ; | |||
| 25209 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 25210 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 25211 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 25212 | if (!PyErr_Occurred()) | |||
| 25213 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.sgges to C/Fortran array" ); | |||
| 25214 | } else { | |||
| 25215 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 25216 | ||||
| 25217 | /* Processing variable sdim */ | |||
| 25218 | sdim = 0; | |||
| 25219 | /* Processing variable info */ | |||
| 25220 | /* Processing variable n */ | |||
| 25221 | n = shape(a,1)a_Dims[1]; | |||
| 25222 | /* Processing variable lda */ | |||
| 25223 | lda = shape(a,0)a_Dims[0]; | |||
| 25224 | /* Processing variable b */ | |||
| 25225 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 25226 | b_Dims[1]=n; | |||
| 25227 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 25228 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 25229 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 25230 | if (!PyErr_Occurred()) | |||
| 25231 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.sgges to C/Fortran array" ); | |||
| 25232 | } else { | |||
| 25233 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 25234 | ||||
| 25235 | /* Processing variable ldb */ | |||
| 25236 | ldb = shape(b,0)b_Dims[0]; | |||
| 25237 | /* Processing variable alphar */ | |||
| 25238 | alphar_Dims[0]=n; | |||
| 25239 | capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25240 | capi_alphar_tmp = array_from_pyobj(NPY_FLOAT,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct)); | |||
| 25241 | if (capi_alphar_tmp == NULL((void*)0)) { | |||
| 25242 | if (!PyErr_Occurred()) | |||
| 25243 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.sgges to C/Fortran array" ); | |||
| 25244 | } else { | |||
| 25245 | alphar = (float *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data )); | |||
| 25246 | ||||
| 25247 | /* Processing variable alphai */ | |||
| 25248 | alphai_Dims[0]=n; | |||
| 25249 | capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25250 | capi_alphai_tmp = array_from_pyobj(NPY_FLOAT,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct)); | |||
| 25251 | if (capi_alphai_tmp == NULL((void*)0)) { | |||
| 25252 | if (!PyErr_Occurred()) | |||
| 25253 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.sgges to C/Fortran array" ); | |||
| 25254 | } else { | |||
| 25255 | alphai = (float *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data )); | |||
| 25256 | ||||
| 25257 | /* Processing variable beta */ | |||
| 25258 | beta_Dims[0]=n; | |||
| 25259 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25260 | capi_beta_tmp = array_from_pyobj(NPY_FLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 25261 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 25262 | if (!PyErr_Occurred()) | |||
| 25263 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.sgges to C/Fortran array" ); | |||
| 25264 | } else { | |||
| 25265 | beta = (float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 25266 | ||||
| 25267 | /* Processing variable ldvsl */ | |||
| 25268 | if (ldvsl_capi == Py_None(&_Py_NoneStruct)) ldvsl = ((jobvsl==1)?n:1); else | |||
| 25269 | f2py_success = int_from_pyobj(&ldvsl,ldvsl_capi,"_flapack.sgges() 4th keyword (ldvsl) can't be converted to int"); | |||
| 25270 | if (f2py_success) { | |||
| 25271 | /* Processing variable ldvsr */ | |||
| 25272 | if (ldvsr_capi == Py_None(&_Py_NoneStruct)) ldvsr = ((jobvsr==1)?n:1); else | |||
| 25273 | f2py_success = int_from_pyobj(&ldvsr,ldvsr_capi,"_flapack.sgges() 5th keyword (ldvsr) can't be converted to int"); | |||
| 25274 | if (f2py_success) { | |||
| 25275 | /* Processing variable lwork */ | |||
| 25276 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n+16,1)((8*n+16 > 1) ? (8*n+16) : (1)); else | |||
| 25277 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgges() 6th keyword (lwork) can't be converted to int"); | |||
| 25278 | if (f2py_success) { | |||
| 25279 | CHECKSCALAR(lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1,"lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1","6th keyword lwork","sgges:lwork=%d",lwork)if (!(lwork>=((1 > ((8*n > 6*n+16) ? (8*n) : (6*n+16 ))) ? (1) : (((8*n > 6*n+16) ? (8*n) : (6*n+16))))||lwork== -1)) { char errstring[256]; __builtin___sprintf_chk (errstring , 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgges:lwork=%d" , "(""lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1"") failed for " "6th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 25280 | /* Processing variable bwork */ | |||
| 25281 | bwork_Dims[0]=n; | |||
| 25282 | capi_bwork_intent |= F2PY_INTENT_HIDE8; | |||
| 25283 | capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 25284 | if (capi_bwork_tmp == NULL((void*)0)) { | |||
| 25285 | if (!PyErr_Occurred()) | |||
| 25286 | PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.sgges to C/Fortran array" ); | |||
| 25287 | } else { | |||
| 25288 | bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data)); | |||
| 25289 | ||||
| 25290 | /* Processing variable vsl */ | |||
| 25291 | vsl_Dims[0]=ldvsl,vsl_Dims[1]=n; | |||
| 25292 | capi_vsl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25293 | capi_vsl_tmp = array_from_pyobj(NPY_FLOAT,vsl_Dims,vsl_Rank,capi_vsl_intent,Py_None(&_Py_NoneStruct)); | |||
| 25294 | if (capi_vsl_tmp == NULL((void*)0)) { | |||
| 25295 | if (!PyErr_Occurred()) | |||
| 25296 | PyErr_SetString(_flapack_error,"failed in converting hidden `vsl' of _flapack.sgges to C/Fortran array" ); | |||
| 25297 | } else { | |||
| 25298 | vsl = (float *)(PyArray_DATA(capi_vsl_tmp)((void *)((PyArrayObject_fields *)(capi_vsl_tmp))->data)); | |||
| 25299 | ||||
| 25300 | /* Processing variable vsr */ | |||
| 25301 | vsr_Dims[0]=ldvsr,vsr_Dims[1]=n; | |||
| 25302 | capi_vsr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25303 | capi_vsr_tmp = array_from_pyobj(NPY_FLOAT,vsr_Dims,vsr_Rank,capi_vsr_intent,Py_None(&_Py_NoneStruct)); | |||
| 25304 | if (capi_vsr_tmp == NULL((void*)0)) { | |||
| 25305 | if (!PyErr_Occurred()) | |||
| 25306 | PyErr_SetString(_flapack_error,"failed in converting hidden `vsr' of _flapack.sgges to C/Fortran array" ); | |||
| 25307 | } else { | |||
| 25308 | vsr = (float *)(PyArray_DATA(capi_vsr_tmp)((void *)((PyArrayObject_fields *)(capi_vsr_tmp))->data)); | |||
| 25309 | ||||
| 25310 | /* Processing variable work */ | |||
| 25311 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 25312 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25313 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 25314 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 25315 | if (!PyErr_Occurred()) | |||
| 25316 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgges to C/Fortran array" ); | |||
| 25317 | } else { | |||
| 25318 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 25319 | ||||
| 25320 | /*end of frompyobj*/ | |||
| 25321 | #ifdef F2PY_REPORT_ATEXIT | |||
| 25322 | f2py_start_call_clock(); | |||
| 25323 | #endif | |||
| 25324 | /*callfortranroutine*/ | |||
| 25325 | if ((setjmp(cb_sselect_in_gges__user__routines_jmpbuf)_setjmp (cb_sselect_in_gges__user__routines_jmpbuf))) { | |||
| 25326 | f2py_success = 0; | |||
| 25327 | } else { | |||
| 25328 | (*f2py_func)((jobvsl?"V":"N"),(jobvsr?"V":"N"),(sort_t?"S":"N"),cb_sselect_in_gges__user__routines,&n,a,&lda,b,&ldb,&sdim,alphar,alphai,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,bwork,&info) ; | |||
| 25329 | /*(*f2py_func)(&jobvsl,&jobvsr,&sort_t,sselect_cptr,&n,a,&lda,b,&ldb,&sdim,alphar,alphai,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,bwork,&info);*/ | |||
| 25330 | } | |||
| 25331 | if (PyErr_Occurred()) | |||
| 25332 | f2py_success = 0; | |||
| 25333 | #ifdef F2PY_REPORT_ATEXIT | |||
| 25334 | f2py_stop_call_clock(); | |||
| 25335 | #endif | |||
| 25336 | /*end of callfortranroutine*/ | |||
| 25337 | if (f2py_success) { | |||
| 25338 | /*pyobjfrom*/ | |||
| 25339 | /*end of pyobjfrom*/ | |||
| 25340 | CFUNCSMESS("Building return value.\n"); | |||
| 25341 | capi_buildvalue = Py_BuildValue("NNiNNNNNNi",capi_a_tmp,capi_b_tmp,sdim,capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_vsl_tmp,capi_vsr_tmp,capi_work_tmp,info); | |||
| 25342 | /*closepyobjfrom*/ | |||
| 25343 | /*end of closepyobjfrom*/ | |||
| 25344 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 25345 | /*cleanupfrompyobj*/ | |||
| 25346 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 25347 | /* End of cleaning variable work */ | |||
| 25348 | } /*if (capi_vsr_tmp == NULL) ... else of vsr*/ | |||
| 25349 | /* End of cleaning variable vsr */ | |||
| 25350 | } /*if (capi_vsl_tmp == NULL) ... else of vsl*/ | |||
| 25351 | /* End of cleaning variable vsl */ | |||
| 25352 | Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp))); | |||
| 25353 | } /*if (capi_bwork_tmp == NULL) ... else of bwork*/ | |||
| 25354 | /* End of cleaning variable bwork */ | |||
| 25355 | } /*CHECKSCALAR(lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1)*/ | |||
| 25356 | } /*if (f2py_success) of lwork*/ | |||
| 25357 | /* End of cleaning variable lwork */ | |||
| 25358 | } /*if (f2py_success) of ldvsr*/ | |||
| 25359 | /* End of cleaning variable ldvsr */ | |||
| 25360 | } /*if (f2py_success) of ldvsl*/ | |||
| 25361 | /* End of cleaning variable ldvsl */ | |||
| 25362 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 25363 | /* End of cleaning variable beta */ | |||
| 25364 | } /*if (capi_alphai_tmp == NULL) ... else of alphai*/ | |||
| 25365 | /* End of cleaning variable alphai */ | |||
| 25366 | } /*if (capi_alphar_tmp == NULL) ... else of alphar*/ | |||
| 25367 | /* End of cleaning variable alphar */ | |||
| 25368 | /* End of cleaning variable ldb */ | |||
| 25369 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 25370 | /* End of cleaning variable b */ | |||
| 25371 | /* End of cleaning variable lda */ | |||
| 25372 | /* End of cleaning variable n */ | |||
| 25373 | /* End of cleaning variable info */ | |||
| 25374 | /* End of cleaning variable sdim */ | |||
| 25375 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 25376 | /* End of cleaning variable a */ | |||
| 25377 | CFUNCSMESS("Restoring jmpbuf for `sselect`.\n"); | |||
| 25378 | cb_sselect_in_gges__user__routines_capi = sselect_capi; | |||
| 25379 | Py_DECREF(cb_sselect_in_gges__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_sselect_in_gges__user__routines_args_capi ))); | |||
| 25380 | cb_sselect_in_gges__user__routines_args_capi = sselect_args_capi; | |||
| 25381 | cb_sselect_in_gges__user__routines_nofargs = sselect_nofargs_capi; | |||
| 25382 | memcpy(&cb_sselect_in_gges__user__routines_jmpbuf,&sselect_jmpbuf,sizeof(jmp_buf)); | |||
| 25383 | } | |||
| 25384 | /* End of cleaning variable sselect */ | |||
| 25385 | } /*CHECKSCALAR(sort_t==0||sort_t==1)*/ | |||
| 25386 | } /*if (f2py_success) of sort_t*/ | |||
| 25387 | /* End of cleaning variable sort_t */ | |||
| 25388 | } /*CHECKSCALAR(jobvsr==0||jobvsr==1)*/ | |||
| 25389 | } /*if (f2py_success) of jobvsr*/ | |||
| 25390 | /* End of cleaning variable jobvsr */ | |||
| 25391 | } /*CHECKSCALAR(jobvsl==0||jobvsl==1)*/ | |||
| 25392 | } /*if (f2py_success) of jobvsl*/ | |||
| 25393 | /* End of cleaning variable jobvsl */ | |||
| 25394 | /*end of cleanupfrompyobj*/ | |||
| 25395 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 25396 | /*routdebugfailure*/ | |||
| 25397 | } else { | |||
| 25398 | /*routdebugleave*/ | |||
| 25399 | } | |||
| 25400 | CFUNCSMESS("Freeing memory.\n"); | |||
| 25401 | /*freemem*/ | |||
| 25402 | #ifdef F2PY_REPORT_ATEXIT | |||
| 25403 | f2py_stop_clock(); | |||
| 25404 | #endif | |||
| 25405 | return capi_buildvalue; | |||
| 25406 | } | |||
| 25407 | /******************************** end of sgges ********************************/ | |||
| 25408 | ||||
| 25409 | /*********************************** dgges ***********************************/ | |||
| 25410 | static char doc_f2py_rout__flapack_dgges[] = "\ | |||
| 25411 | a,b,sdim,alphar,alphai,beta,vsl,vsr,work,info = dgges(dselect,a,b,[jobvsl,jobvsr,sort_t,ldvsl,ldvsr,lwork,dselect_extra_args,overwrite_a,overwrite_b])\n\nWrapper for ``dgges``.\ | |||
| 25412 | \n\nParameters\n----------\n" | |||
| 25413 | "dselect : call-back function\n" | |||
| 25414 | "a : input rank-2 array('d') with bounds (lda,n)\n" | |||
| 25415 | "b : input rank-2 array('d') with bounds (ldb,n)\n" | |||
| 25416 | "\nOther Parameters\n----------------\n" | |||
| 25417 | "jobvsl : input int, optional\n Default: 1\n" | |||
| 25418 | "jobvsr : input int, optional\n Default: 1\n" | |||
| 25419 | "sort_t : input int, optional\n Default: 0\n" | |||
| 25420 | "dselect_extra_args : input tuple, optional\n Default: ()\n" | |||
| 25421 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 25422 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 25423 | "ldvsl : input int, optional\n Default: ((jobvsl==1)?n:1)\n" | |||
| 25424 | "ldvsr : input int, optional\n Default: ((jobvsr==1)?n:1)\n" | |||
| 25425 | "lwork : input int, optional\n Default: max(8*n+16,1)\n" | |||
| 25426 | "\nReturns\n-------\n" | |||
| 25427 | "a : rank-2 array('d') with bounds (lda,n)\n" | |||
| 25428 | "b : rank-2 array('d') with bounds (ldb,n)\n" | |||
| 25429 | "sdim : int\n" | |||
| 25430 | "alphar : rank-1 array('d') with bounds (n)\n" | |||
| 25431 | "alphai : rank-1 array('d') with bounds (n)\n" | |||
| 25432 | "beta : rank-1 array('d') with bounds (n)\n" | |||
| 25433 | "vsl : rank-2 array('d') with bounds (ldvsl,n)\n" | |||
| 25434 | "vsr : rank-2 array('d') with bounds (ldvsr,n)\n" | |||
| 25435 | "work : rank-1 array('d') with bounds (MAX(lwork,1))\n" | |||
| 25436 | "info : int\n" | |||
| 25437 | "\nNotes\n-----\nCall-back functions::\n\n" | |||
| 25438 | " def dselect(alphar,alphai,beta): return dselect\n\ | |||
| 25439 | Required arguments:\n" | |||
| 25440 | " alphar : input float\n" | |||
| 25441 | " alphai : input float\n" | |||
| 25442 | " beta : input float\n" | |||
| 25443 | " Return objects:\n" | |||
| 25444 | " dselect : int"; | |||
| 25445 | /* extern void F_FUNC(dgges,DGGES)(char*,char*,char*,F_INT(*)(double*,double*,double*),F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,double*,double*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 25446 | static PyObject *f2py_rout__flapack_dgges(const PyObject *capi_self, | |||
| 25447 | PyObject *capi_args, | |||
| 25448 | PyObject *capi_keywds, | |||
| 25449 | void (*f2py_func)(char*,char*,char*,F_INTint(*)(double*,double*,double*),F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 25450 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 25451 | volatile int f2py_success = 1; | |||
| 25452 | /*decl*/ | |||
| 25453 | ||||
| 25454 | int jobvsl = 0; | |||
| 25455 | PyObject *jobvsl_capi = Py_None(&_Py_NoneStruct); | |||
| 25456 | int jobvsr = 0; | |||
| 25457 | PyObject *jobvsr_capi = Py_None(&_Py_NoneStruct); | |||
| 25458 | int sort_t = 0; | |||
| 25459 | PyObject *sort_t_capi = Py_None(&_Py_NoneStruct); | |||
| 25460 | PyObject *dselect_capi = Py_None(&_Py_NoneStruct); | |||
| 25461 | PyTupleObject *dselect_xa_capi = NULL((void*)0); | |||
| 25462 | PyTupleObject *dselect_args_capi = NULL((void*)0); | |||
| 25463 | int dselect_nofargs_capi = 0; | |||
| 25464 | cb_dselect_in_gges__user__routines_typedef dselect_cptr; | |||
| 25465 | int n = 0; | |||
| 25466 | double *a = NULL((void*)0); | |||
| 25467 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 25468 | const int a_Rank = 2; | |||
| 25469 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 25470 | int capi_a_intent = 0; | |||
| 25471 | int capi_overwrite_a = 0; | |||
| 25472 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 25473 | int lda = 0; | |||
| 25474 | double *b = NULL((void*)0); | |||
| 25475 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 25476 | const int b_Rank = 2; | |||
| 25477 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 25478 | int capi_b_intent = 0; | |||
| 25479 | int capi_overwrite_b = 0; | |||
| 25480 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 25481 | int ldb = 0; | |||
| 25482 | int sdim = 0; | |||
| 25483 | double *alphar = NULL((void*)0); | |||
| 25484 | npy_intp alphar_Dims[1] = {-1}; | |||
| 25485 | const int alphar_Rank = 1; | |||
| 25486 | PyArrayObject *capi_alphar_tmp = NULL((void*)0); | |||
| 25487 | int capi_alphar_intent = 0; | |||
| 25488 | double *alphai = NULL((void*)0); | |||
| 25489 | npy_intp alphai_Dims[1] = {-1}; | |||
| 25490 | const int alphai_Rank = 1; | |||
| 25491 | PyArrayObject *capi_alphai_tmp = NULL((void*)0); | |||
| 25492 | int capi_alphai_intent = 0; | |||
| 25493 | double *beta = NULL((void*)0); | |||
| 25494 | npy_intp beta_Dims[1] = {-1}; | |||
| 25495 | const int beta_Rank = 1; | |||
| 25496 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 25497 | int capi_beta_intent = 0; | |||
| 25498 | double *vsl = NULL((void*)0); | |||
| 25499 | npy_intp vsl_Dims[2] = {-1, -1}; | |||
| 25500 | const int vsl_Rank = 2; | |||
| 25501 | PyArrayObject *capi_vsl_tmp = NULL((void*)0); | |||
| 25502 | int capi_vsl_intent = 0; | |||
| 25503 | int ldvsl = 0; | |||
| 25504 | PyObject *ldvsl_capi = Py_None(&_Py_NoneStruct); | |||
| 25505 | double *vsr = NULL((void*)0); | |||
| 25506 | npy_intp vsr_Dims[2] = {-1, -1}; | |||
| 25507 | const int vsr_Rank = 2; | |||
| 25508 | PyArrayObject *capi_vsr_tmp = NULL((void*)0); | |||
| 25509 | int capi_vsr_intent = 0; | |||
| 25510 | int ldvsr = 0; | |||
| 25511 | PyObject *ldvsr_capi = Py_None(&_Py_NoneStruct); | |||
| 25512 | double *work = NULL((void*)0); | |||
| 25513 | npy_intp work_Dims[1] = {-1}; | |||
| 25514 | const int work_Rank = 1; | |||
| 25515 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 25516 | int capi_work_intent = 0; | |||
| 25517 | int lwork = 0; | |||
| 25518 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 25519 | int *bwork = NULL((void*)0); | |||
| 25520 | npy_intp bwork_Dims[1] = {-1}; | |||
| 25521 | const int bwork_Rank = 1; | |||
| 25522 | PyArrayObject *capi_bwork_tmp = NULL((void*)0); | |||
| 25523 | int capi_bwork_intent = 0; | |||
| 25524 | int info = 0; | |||
| 25525 | static char *capi_kwlist[] = {"dselect","a","b","jobvsl","jobvsr","sort_t","ldvsl","ldvsr","lwork","dselect_extra_args","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 25526 | ||||
| 25527 | /*routdebugenter*/ | |||
| 25528 | #ifdef F2PY_REPORT_ATEXIT | |||
| 25529 | f2py_start_clock(); | |||
| 25530 | #endif | |||
| 25531 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 25532 | "OOO|OOOOOOO!ii:_flapack.dgges",\ | |||
| 25533 | capi_kwlist,&dselect_capi,&a_capi,&b_capi,&jobvsl_capi,&jobvsr_capi,&sort_t_capi,&ldvsl_capi,&ldvsr_capi,&lwork_capi,&PyTuple_Type,&dselect_xa_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 25534 | return NULL((void*)0); | |||
| 25535 | /*frompyobj*/ | |||
| 25536 | /* Processing variable jobvsl */ | |||
| 25537 | if (jobvsl_capi == Py_None(&_Py_NoneStruct)) jobvsl = 1; else | |||
| 25538 | f2py_success = int_from_pyobj(&jobvsl,jobvsl_capi,"_flapack.dgges() 1st keyword (jobvsl) can't be converted to int"); | |||
| 25539 | if (f2py_success) { | |||
| 25540 | CHECKSCALAR(jobvsl==0||jobvsl==1,"jobvsl==0||jobvsl==1","1st keyword jobvsl","dgges:jobvsl=%d",jobvsl)if (!(jobvsl==0||jobvsl==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgges:jobvsl=%d", "(""jobvsl==0||jobvsl==1"") failed for " "1st keyword jobvsl", jobvsl); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 25541 | /* Processing variable jobvsr */ | |||
| 25542 | if (jobvsr_capi == Py_None(&_Py_NoneStruct)) jobvsr = 1; else | |||
| 25543 | f2py_success = int_from_pyobj(&jobvsr,jobvsr_capi,"_flapack.dgges() 2nd keyword (jobvsr) can't be converted to int"); | |||
| 25544 | if (f2py_success) { | |||
| 25545 | CHECKSCALAR(jobvsr==0||jobvsr==1,"jobvsr==0||jobvsr==1","2nd keyword jobvsr","dgges:jobvsr=%d",jobvsr)if (!(jobvsr==0||jobvsr==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgges:jobvsr=%d", "(""jobvsr==0||jobvsr==1"") failed for " "2nd keyword jobvsr", jobvsr); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 25546 | /* Processing variable sort_t */ | |||
| 25547 | if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else | |||
| 25548 | f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.dgges() 3rd keyword (sort_t) can't be converted to int"); | |||
| 25549 | if (f2py_success) { | |||
| 25550 | CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","3rd keyword sort_t","dgges:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgges:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for " "3rd keyword sort_t", sort_t); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 25551 | /* Processing variable dselect */ | |||
| 25552 | if(F2PyCapsule_Check(dselect_capi)) { | |||
| 25553 | dselect_cptr = F2PyCapsule_AsVoidPtr(dselect_capi); | |||
| 25554 | } else { | |||
| 25555 | dselect_cptr = cb_dselect_in_gges__user__routines; | |||
| 25556 | } | |||
| 25557 | ||||
| 25558 | dselect_nofargs_capi = cb_dselect_in_gges__user__routines_nofargs; | |||
| 25559 | if (create_cb_arglist(dselect_capi,dselect_xa_capi,3,0,&cb_dselect_in_gges__user__routines_nofargs,&dselect_args_capi,"failed in processing argument list for call-back dselect.")) { | |||
| 25560 | jmp_buf dselect_jmpbuf; | |||
| 25561 | CFUNCSMESS("Saving jmpbuf for `dselect`.\n"); | |||
| 25562 | SWAP(dselect_capi,cb_dselect_in_gges__user__routines_capi,PyObject){ PyObject *c; c = dselect_capi; dselect_capi = cb_dselect_in_gges__user__routines_capi ; cb_dselect_in_gges__user__routines_capi = c;}; | |||
| 25563 | SWAP(dselect_args_capi,cb_dselect_in_gges__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = dselect_args_capi; dselect_args_capi = cb_dselect_in_gges__user__routines_args_capi; cb_dselect_in_gges__user__routines_args_capi = c;}; | |||
| 25564 | memcpy(&dselect_jmpbuf,&cb_dselect_in_gges__user__routines_jmpbuf,sizeof(jmp_buf)); | |||
| 25565 | /* Processing variable a */ | |||
| 25566 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 25567 | ; | |||
| 25568 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 25569 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 25570 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 25571 | if (!PyErr_Occurred()) | |||
| 25572 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dgges to C/Fortran array" ); | |||
| 25573 | } else { | |||
| 25574 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 25575 | ||||
| 25576 | /* Processing variable sdim */ | |||
| 25577 | sdim = 0; | |||
| 25578 | /* Processing variable info */ | |||
| 25579 | /* Processing variable n */ | |||
| 25580 | n = shape(a,1)a_Dims[1]; | |||
| 25581 | /* Processing variable lda */ | |||
| 25582 | lda = shape(a,0)a_Dims[0]; | |||
| 25583 | /* Processing variable b */ | |||
| 25584 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 25585 | b_Dims[1]=n; | |||
| 25586 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 25587 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 25588 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 25589 | if (!PyErr_Occurred()) | |||
| 25590 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dgges to C/Fortran array" ); | |||
| 25591 | } else { | |||
| 25592 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 25593 | ||||
| 25594 | /* Processing variable ldb */ | |||
| 25595 | ldb = shape(b,0)b_Dims[0]; | |||
| 25596 | /* Processing variable alphar */ | |||
| 25597 | alphar_Dims[0]=n; | |||
| 25598 | capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25599 | capi_alphar_tmp = array_from_pyobj(NPY_DOUBLE,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct)); | |||
| 25600 | if (capi_alphar_tmp == NULL((void*)0)) { | |||
| 25601 | if (!PyErr_Occurred()) | |||
| 25602 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.dgges to C/Fortran array" ); | |||
| 25603 | } else { | |||
| 25604 | alphar = (double *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data )); | |||
| 25605 | ||||
| 25606 | /* Processing variable alphai */ | |||
| 25607 | alphai_Dims[0]=n; | |||
| 25608 | capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25609 | capi_alphai_tmp = array_from_pyobj(NPY_DOUBLE,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct)); | |||
| 25610 | if (capi_alphai_tmp == NULL((void*)0)) { | |||
| 25611 | if (!PyErr_Occurred()) | |||
| 25612 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.dgges to C/Fortran array" ); | |||
| 25613 | } else { | |||
| 25614 | alphai = (double *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data )); | |||
| 25615 | ||||
| 25616 | /* Processing variable beta */ | |||
| 25617 | beta_Dims[0]=n; | |||
| 25618 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25619 | capi_beta_tmp = array_from_pyobj(NPY_DOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 25620 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 25621 | if (!PyErr_Occurred()) | |||
| 25622 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.dgges to C/Fortran array" ); | |||
| 25623 | } else { | |||
| 25624 | beta = (double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 25625 | ||||
| 25626 | /* Processing variable ldvsl */ | |||
| 25627 | if (ldvsl_capi == Py_None(&_Py_NoneStruct)) ldvsl = ((jobvsl==1)?n:1); else | |||
| 25628 | f2py_success = int_from_pyobj(&ldvsl,ldvsl_capi,"_flapack.dgges() 4th keyword (ldvsl) can't be converted to int"); | |||
| 25629 | if (f2py_success) { | |||
| 25630 | /* Processing variable ldvsr */ | |||
| 25631 | if (ldvsr_capi == Py_None(&_Py_NoneStruct)) ldvsr = ((jobvsr==1)?n:1); else | |||
| 25632 | f2py_success = int_from_pyobj(&ldvsr,ldvsr_capi,"_flapack.dgges() 5th keyword (ldvsr) can't be converted to int"); | |||
| 25633 | if (f2py_success) { | |||
| 25634 | /* Processing variable lwork */ | |||
| 25635 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n+16,1)((8*n+16 > 1) ? (8*n+16) : (1)); else | |||
| 25636 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgges() 6th keyword (lwork) can't be converted to int"); | |||
| 25637 | if (f2py_success) { | |||
| 25638 | CHECKSCALAR(lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1,"lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1","6th keyword lwork","dgges:lwork=%d",lwork)if (!(lwork>=((1 > ((8*n > 6*n+16) ? (8*n) : (6*n+16 ))) ? (1) : (((8*n > 6*n+16) ? (8*n) : (6*n+16))))||lwork== -1)) { char errstring[256]; __builtin___sprintf_chk (errstring , 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgges:lwork=%d" , "(""lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1"") failed for " "6th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 25639 | /* Processing variable bwork */ | |||
| 25640 | bwork_Dims[0]=n; | |||
| 25641 | capi_bwork_intent |= F2PY_INTENT_HIDE8; | |||
| 25642 | capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 25643 | if (capi_bwork_tmp == NULL((void*)0)) { | |||
| 25644 | if (!PyErr_Occurred()) | |||
| 25645 | PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.dgges to C/Fortran array" ); | |||
| 25646 | } else { | |||
| 25647 | bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data)); | |||
| 25648 | ||||
| 25649 | /* Processing variable vsl */ | |||
| 25650 | vsl_Dims[0]=ldvsl,vsl_Dims[1]=n; | |||
| 25651 | capi_vsl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25652 | capi_vsl_tmp = array_from_pyobj(NPY_DOUBLE,vsl_Dims,vsl_Rank,capi_vsl_intent,Py_None(&_Py_NoneStruct)); | |||
| 25653 | if (capi_vsl_tmp == NULL((void*)0)) { | |||
| 25654 | if (!PyErr_Occurred()) | |||
| 25655 | PyErr_SetString(_flapack_error,"failed in converting hidden `vsl' of _flapack.dgges to C/Fortran array" ); | |||
| 25656 | } else { | |||
| 25657 | vsl = (double *)(PyArray_DATA(capi_vsl_tmp)((void *)((PyArrayObject_fields *)(capi_vsl_tmp))->data)); | |||
| 25658 | ||||
| 25659 | /* Processing variable vsr */ | |||
| 25660 | vsr_Dims[0]=ldvsr,vsr_Dims[1]=n; | |||
| 25661 | capi_vsr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25662 | capi_vsr_tmp = array_from_pyobj(NPY_DOUBLE,vsr_Dims,vsr_Rank,capi_vsr_intent,Py_None(&_Py_NoneStruct)); | |||
| 25663 | if (capi_vsr_tmp == NULL((void*)0)) { | |||
| 25664 | if (!PyErr_Occurred()) | |||
| 25665 | PyErr_SetString(_flapack_error,"failed in converting hidden `vsr' of _flapack.dgges to C/Fortran array" ); | |||
| 25666 | } else { | |||
| 25667 | vsr = (double *)(PyArray_DATA(capi_vsr_tmp)((void *)((PyArrayObject_fields *)(capi_vsr_tmp))->data)); | |||
| 25668 | ||||
| 25669 | /* Processing variable work */ | |||
| 25670 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 25671 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25672 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 25673 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 25674 | if (!PyErr_Occurred()) | |||
| 25675 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgges to C/Fortran array" ); | |||
| 25676 | } else { | |||
| 25677 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 25678 | ||||
| 25679 | /*end of frompyobj*/ | |||
| 25680 | #ifdef F2PY_REPORT_ATEXIT | |||
| 25681 | f2py_start_call_clock(); | |||
| 25682 | #endif | |||
| 25683 | /*callfortranroutine*/ | |||
| 25684 | if ((setjmp(cb_dselect_in_gges__user__routines_jmpbuf)_setjmp (cb_dselect_in_gges__user__routines_jmpbuf))) { | |||
| 25685 | f2py_success = 0; | |||
| 25686 | } else { | |||
| 25687 | (*f2py_func)((jobvsl?"V":"N"),(jobvsr?"V":"N"),(sort_t?"S":"N"),cb_dselect_in_gges__user__routines,&n,a,&lda,b,&ldb,&sdim,alphar,alphai,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,bwork,&info) ; | |||
| 25688 | /*(*f2py_func)(&jobvsl,&jobvsr,&sort_t,dselect_cptr,&n,a,&lda,b,&ldb,&sdim,alphar,alphai,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,bwork,&info);*/ | |||
| 25689 | } | |||
| 25690 | if (PyErr_Occurred()) | |||
| 25691 | f2py_success = 0; | |||
| 25692 | #ifdef F2PY_REPORT_ATEXIT | |||
| 25693 | f2py_stop_call_clock(); | |||
| 25694 | #endif | |||
| 25695 | /*end of callfortranroutine*/ | |||
| 25696 | if (f2py_success) { | |||
| 25697 | /*pyobjfrom*/ | |||
| 25698 | /*end of pyobjfrom*/ | |||
| 25699 | CFUNCSMESS("Building return value.\n"); | |||
| 25700 | capi_buildvalue = Py_BuildValue("NNiNNNNNNi",capi_a_tmp,capi_b_tmp,sdim,capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_vsl_tmp,capi_vsr_tmp,capi_work_tmp,info); | |||
| 25701 | /*closepyobjfrom*/ | |||
| 25702 | /*end of closepyobjfrom*/ | |||
| 25703 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 25704 | /*cleanupfrompyobj*/ | |||
| 25705 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 25706 | /* End of cleaning variable work */ | |||
| 25707 | } /*if (capi_vsr_tmp == NULL) ... else of vsr*/ | |||
| 25708 | /* End of cleaning variable vsr */ | |||
| 25709 | } /*if (capi_vsl_tmp == NULL) ... else of vsl*/ | |||
| 25710 | /* End of cleaning variable vsl */ | |||
| 25711 | Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp))); | |||
| 25712 | } /*if (capi_bwork_tmp == NULL) ... else of bwork*/ | |||
| 25713 | /* End of cleaning variable bwork */ | |||
| 25714 | } /*CHECKSCALAR(lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1)*/ | |||
| 25715 | } /*if (f2py_success) of lwork*/ | |||
| 25716 | /* End of cleaning variable lwork */ | |||
| 25717 | } /*if (f2py_success) of ldvsr*/ | |||
| 25718 | /* End of cleaning variable ldvsr */ | |||
| 25719 | } /*if (f2py_success) of ldvsl*/ | |||
| 25720 | /* End of cleaning variable ldvsl */ | |||
| 25721 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 25722 | /* End of cleaning variable beta */ | |||
| 25723 | } /*if (capi_alphai_tmp == NULL) ... else of alphai*/ | |||
| 25724 | /* End of cleaning variable alphai */ | |||
| 25725 | } /*if (capi_alphar_tmp == NULL) ... else of alphar*/ | |||
| 25726 | /* End of cleaning variable alphar */ | |||
| 25727 | /* End of cleaning variable ldb */ | |||
| 25728 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 25729 | /* End of cleaning variable b */ | |||
| 25730 | /* End of cleaning variable lda */ | |||
| 25731 | /* End of cleaning variable n */ | |||
| 25732 | /* End of cleaning variable info */ | |||
| 25733 | /* End of cleaning variable sdim */ | |||
| 25734 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 25735 | /* End of cleaning variable a */ | |||
| 25736 | CFUNCSMESS("Restoring jmpbuf for `dselect`.\n"); | |||
| 25737 | cb_dselect_in_gges__user__routines_capi = dselect_capi; | |||
| 25738 | Py_DECREF(cb_dselect_in_gges__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_dselect_in_gges__user__routines_args_capi ))); | |||
| 25739 | cb_dselect_in_gges__user__routines_args_capi = dselect_args_capi; | |||
| 25740 | cb_dselect_in_gges__user__routines_nofargs = dselect_nofargs_capi; | |||
| 25741 | memcpy(&cb_dselect_in_gges__user__routines_jmpbuf,&dselect_jmpbuf,sizeof(jmp_buf)); | |||
| 25742 | } | |||
| 25743 | /* End of cleaning variable dselect */ | |||
| 25744 | } /*CHECKSCALAR(sort_t==0||sort_t==1)*/ | |||
| 25745 | } /*if (f2py_success) of sort_t*/ | |||
| 25746 | /* End of cleaning variable sort_t */ | |||
| 25747 | } /*CHECKSCALAR(jobvsr==0||jobvsr==1)*/ | |||
| 25748 | } /*if (f2py_success) of jobvsr*/ | |||
| 25749 | /* End of cleaning variable jobvsr */ | |||
| 25750 | } /*CHECKSCALAR(jobvsl==0||jobvsl==1)*/ | |||
| 25751 | } /*if (f2py_success) of jobvsl*/ | |||
| 25752 | /* End of cleaning variable jobvsl */ | |||
| 25753 | /*end of cleanupfrompyobj*/ | |||
| 25754 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 25755 | /*routdebugfailure*/ | |||
| 25756 | } else { | |||
| 25757 | /*routdebugleave*/ | |||
| 25758 | } | |||
| 25759 | CFUNCSMESS("Freeing memory.\n"); | |||
| 25760 | /*freemem*/ | |||
| 25761 | #ifdef F2PY_REPORT_ATEXIT | |||
| 25762 | f2py_stop_clock(); | |||
| 25763 | #endif | |||
| 25764 | return capi_buildvalue; | |||
| 25765 | } | |||
| 25766 | /******************************** end of dgges ********************************/ | |||
| 25767 | ||||
| 25768 | /*********************************** cgges ***********************************/ | |||
| 25769 | static char doc_f2py_rout__flapack_cgges[] = "\ | |||
| 25770 | a,b,sdim,alpha,beta,vsl,vsr,work,info = cgges(cselect,a,b,[jobvsl,jobvsr,sort_t,ldvsl,ldvsr,lwork,cselect_extra_args,overwrite_a,overwrite_b])\n\nWrapper for ``cgges``.\ | |||
| 25771 | \n\nParameters\n----------\n" | |||
| 25772 | "cselect : call-back function\n" | |||
| 25773 | "a : input rank-2 array('F') with bounds (lda,n)\n" | |||
| 25774 | "b : input rank-2 array('F') with bounds (ldb,n)\n" | |||
| 25775 | "\nOther Parameters\n----------------\n" | |||
| 25776 | "jobvsl : input int, optional\n Default: 1\n" | |||
| 25777 | "jobvsr : input int, optional\n Default: 1\n" | |||
| 25778 | "sort_t : input int, optional\n Default: 0\n" | |||
| 25779 | "cselect_extra_args : input tuple, optional\n Default: ()\n" | |||
| 25780 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 25781 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 25782 | "ldvsl : input int, optional\n Default: ((jobvsl==1)?n:1)\n" | |||
| 25783 | "ldvsr : input int, optional\n Default: ((jobvsr==1)?n:1)\n" | |||
| 25784 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 25785 | "\nReturns\n-------\n" | |||
| 25786 | "a : rank-2 array('F') with bounds (lda,n)\n" | |||
| 25787 | "b : rank-2 array('F') with bounds (ldb,n)\n" | |||
| 25788 | "sdim : int\n" | |||
| 25789 | "alpha : rank-1 array('F') with bounds (n)\n" | |||
| 25790 | "beta : rank-1 array('F') with bounds (n)\n" | |||
| 25791 | "vsl : rank-2 array('F') with bounds (ldvsl,n)\n" | |||
| 25792 | "vsr : rank-2 array('F') with bounds (ldvsr,n)\n" | |||
| 25793 | "work : rank-1 array('F') with bounds (MAX(lwork,1))\n" | |||
| 25794 | "info : int\n" | |||
| 25795 | "\nNotes\n-----\nCall-back functions::\n\n" | |||
| 25796 | " def cselect(alpha,beta): return cselect\n\ | |||
| 25797 | Required arguments:\n" | |||
| 25798 | " alpha : input complex\n" | |||
| 25799 | " beta : input complex\n" | |||
| 25800 | " Return objects:\n" | |||
| 25801 | " cselect : int"; | |||
| 25802 | /* extern void F_FUNC(cgges,CGGES)(char*,char*,char*,F_INT(*)(complex_float*,complex_float*),F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 25803 | static PyObject *f2py_rout__flapack_cgges(const PyObject *capi_self, | |||
| 25804 | PyObject *capi_args, | |||
| 25805 | PyObject *capi_keywds, | |||
| 25806 | void (*f2py_func)(char*,char*,char*,F_INTint(*)(complex_float*,complex_float*),F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 25807 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 25808 | volatile int f2py_success = 1; | |||
| 25809 | /*decl*/ | |||
| 25810 | ||||
| 25811 | int jobvsl = 0; | |||
| 25812 | PyObject *jobvsl_capi = Py_None(&_Py_NoneStruct); | |||
| 25813 | int jobvsr = 0; | |||
| 25814 | PyObject *jobvsr_capi = Py_None(&_Py_NoneStruct); | |||
| 25815 | int sort_t = 0; | |||
| 25816 | PyObject *sort_t_capi = Py_None(&_Py_NoneStruct); | |||
| 25817 | PyObject *cselect_capi = Py_None(&_Py_NoneStruct); | |||
| 25818 | PyTupleObject *cselect_xa_capi = NULL((void*)0); | |||
| 25819 | PyTupleObject *cselect_args_capi = NULL((void*)0); | |||
| 25820 | int cselect_nofargs_capi = 0; | |||
| 25821 | cb_cselect_in_gges__user__routines_typedef cselect_cptr; | |||
| 25822 | int n = 0; | |||
| 25823 | complex_float *a = NULL((void*)0); | |||
| 25824 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 25825 | const int a_Rank = 2; | |||
| 25826 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 25827 | int capi_a_intent = 0; | |||
| 25828 | int capi_overwrite_a = 0; | |||
| 25829 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 25830 | int lda = 0; | |||
| 25831 | complex_float *b = NULL((void*)0); | |||
| 25832 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 25833 | const int b_Rank = 2; | |||
| 25834 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 25835 | int capi_b_intent = 0; | |||
| 25836 | int capi_overwrite_b = 0; | |||
| 25837 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 25838 | int ldb = 0; | |||
| 25839 | int sdim = 0; | |||
| 25840 | complex_float *alpha = NULL((void*)0); | |||
| 25841 | npy_intp alpha_Dims[1] = {-1}; | |||
| 25842 | const int alpha_Rank = 1; | |||
| 25843 | PyArrayObject *capi_alpha_tmp = NULL((void*)0); | |||
| 25844 | int capi_alpha_intent = 0; | |||
| 25845 | complex_float *beta = NULL((void*)0); | |||
| 25846 | npy_intp beta_Dims[1] = {-1}; | |||
| 25847 | const int beta_Rank = 1; | |||
| 25848 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 25849 | int capi_beta_intent = 0; | |||
| 25850 | complex_float *vsl = NULL((void*)0); | |||
| 25851 | npy_intp vsl_Dims[2] = {-1, -1}; | |||
| 25852 | const int vsl_Rank = 2; | |||
| 25853 | PyArrayObject *capi_vsl_tmp = NULL((void*)0); | |||
| 25854 | int capi_vsl_intent = 0; | |||
| 25855 | int ldvsl = 0; | |||
| 25856 | PyObject *ldvsl_capi = Py_None(&_Py_NoneStruct); | |||
| 25857 | complex_float *vsr = NULL((void*)0); | |||
| 25858 | npy_intp vsr_Dims[2] = {-1, -1}; | |||
| 25859 | const int vsr_Rank = 2; | |||
| 25860 | PyArrayObject *capi_vsr_tmp = NULL((void*)0); | |||
| 25861 | int capi_vsr_intent = 0; | |||
| 25862 | int ldvsr = 0; | |||
| 25863 | PyObject *ldvsr_capi = Py_None(&_Py_NoneStruct); | |||
| 25864 | complex_float *work = NULL((void*)0); | |||
| 25865 | npy_intp work_Dims[1] = {-1}; | |||
| 25866 | const int work_Rank = 1; | |||
| 25867 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 25868 | int capi_work_intent = 0; | |||
| 25869 | int lwork = 0; | |||
| 25870 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 25871 | float *rwork = NULL((void*)0); | |||
| 25872 | npy_intp rwork_Dims[1] = {-1}; | |||
| 25873 | const int rwork_Rank = 1; | |||
| 25874 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 25875 | int capi_rwork_intent = 0; | |||
| 25876 | int *bwork = NULL((void*)0); | |||
| 25877 | npy_intp bwork_Dims[1] = {-1}; | |||
| 25878 | const int bwork_Rank = 1; | |||
| 25879 | PyArrayObject *capi_bwork_tmp = NULL((void*)0); | |||
| 25880 | int capi_bwork_intent = 0; | |||
| 25881 | int info = 0; | |||
| 25882 | static char *capi_kwlist[] = {"cselect","a","b","jobvsl","jobvsr","sort_t","ldvsl","ldvsr","lwork","cselect_extra_args","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 25883 | ||||
| 25884 | /*routdebugenter*/ | |||
| 25885 | #ifdef F2PY_REPORT_ATEXIT | |||
| 25886 | f2py_start_clock(); | |||
| 25887 | #endif | |||
| 25888 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 25889 | "OOO|OOOOOOO!ii:_flapack.cgges",\ | |||
| 25890 | capi_kwlist,&cselect_capi,&a_capi,&b_capi,&jobvsl_capi,&jobvsr_capi,&sort_t_capi,&ldvsl_capi,&ldvsr_capi,&lwork_capi,&PyTuple_Type,&cselect_xa_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 25891 | return NULL((void*)0); | |||
| 25892 | /*frompyobj*/ | |||
| 25893 | /* Processing variable jobvsl */ | |||
| 25894 | if (jobvsl_capi == Py_None(&_Py_NoneStruct)) jobvsl = 1; else | |||
| 25895 | f2py_success = int_from_pyobj(&jobvsl,jobvsl_capi,"_flapack.cgges() 1st keyword (jobvsl) can't be converted to int"); | |||
| 25896 | if (f2py_success) { | |||
| 25897 | CHECKSCALAR(jobvsl==0||jobvsl==1,"jobvsl==0||jobvsl==1","1st keyword jobvsl","cgges:jobvsl=%d",jobvsl)if (!(jobvsl==0||jobvsl==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgges:jobvsl=%d", "(""jobvsl==0||jobvsl==1"") failed for " "1st keyword jobvsl", jobvsl); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 25898 | /* Processing variable jobvsr */ | |||
| 25899 | if (jobvsr_capi == Py_None(&_Py_NoneStruct)) jobvsr = 1; else | |||
| 25900 | f2py_success = int_from_pyobj(&jobvsr,jobvsr_capi,"_flapack.cgges() 2nd keyword (jobvsr) can't be converted to int"); | |||
| 25901 | if (f2py_success) { | |||
| 25902 | CHECKSCALAR(jobvsr==0||jobvsr==1,"jobvsr==0||jobvsr==1","2nd keyword jobvsr","cgges:jobvsr=%d",jobvsr)if (!(jobvsr==0||jobvsr==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgges:jobvsr=%d", "(""jobvsr==0||jobvsr==1"") failed for " "2nd keyword jobvsr", jobvsr); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 25903 | /* Processing variable sort_t */ | |||
| 25904 | if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else | |||
| 25905 | f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.cgges() 3rd keyword (sort_t) can't be converted to int"); | |||
| 25906 | if (f2py_success) { | |||
| 25907 | CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","3rd keyword sort_t","cgges:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgges:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for " "3rd keyword sort_t", sort_t); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 25908 | /* Processing variable cselect */ | |||
| 25909 | if(F2PyCapsule_Check(cselect_capi)) { | |||
| 25910 | cselect_cptr = F2PyCapsule_AsVoidPtr(cselect_capi); | |||
| 25911 | } else { | |||
| 25912 | cselect_cptr = cb_cselect_in_gges__user__routines; | |||
| 25913 | } | |||
| 25914 | ||||
| 25915 | cselect_nofargs_capi = cb_cselect_in_gges__user__routines_nofargs; | |||
| 25916 | if (create_cb_arglist(cselect_capi,cselect_xa_capi,2,0,&cb_cselect_in_gges__user__routines_nofargs,&cselect_args_capi,"failed in processing argument list for call-back cselect.")) { | |||
| 25917 | jmp_buf cselect_jmpbuf; | |||
| 25918 | CFUNCSMESS("Saving jmpbuf for `cselect`.\n"); | |||
| 25919 | SWAP(cselect_capi,cb_cselect_in_gges__user__routines_capi,PyObject){ PyObject *c; c = cselect_capi; cselect_capi = cb_cselect_in_gges__user__routines_capi ; cb_cselect_in_gges__user__routines_capi = c;}; | |||
| 25920 | SWAP(cselect_args_capi,cb_cselect_in_gges__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = cselect_args_capi; cselect_args_capi = cb_cselect_in_gges__user__routines_args_capi; cb_cselect_in_gges__user__routines_args_capi = c;}; | |||
| 25921 | memcpy(&cselect_jmpbuf,&cb_cselect_in_gges__user__routines_jmpbuf,sizeof(jmp_buf)); | |||
| 25922 | /* Processing variable a */ | |||
| 25923 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 25924 | ; | |||
| 25925 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 25926 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 25927 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 25928 | if (!PyErr_Occurred()) | |||
| 25929 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.cgges to C/Fortran array" ); | |||
| 25930 | } else { | |||
| 25931 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 25932 | ||||
| 25933 | /* Processing variable sdim */ | |||
| 25934 | sdim = 0; | |||
| 25935 | /* Processing variable info */ | |||
| 25936 | /* Processing variable n */ | |||
| 25937 | n = shape(a,1)a_Dims[1]; | |||
| 25938 | /* Processing variable lda */ | |||
| 25939 | lda = shape(a,0)a_Dims[0]; | |||
| 25940 | /* Processing variable b */ | |||
| 25941 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 25942 | b_Dims[1]=n; | |||
| 25943 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 25944 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 25945 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 25946 | if (!PyErr_Occurred()) | |||
| 25947 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cgges to C/Fortran array" ); | |||
| 25948 | } else { | |||
| 25949 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 25950 | ||||
| 25951 | /* Processing variable ldb */ | |||
| 25952 | ldb = shape(b,0)b_Dims[0]; | |||
| 25953 | /* Processing variable alpha */ | |||
| 25954 | alpha_Dims[0]=n; | |||
| 25955 | capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25956 | capi_alpha_tmp = array_from_pyobj(NPY_CFLOAT,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct)); | |||
| 25957 | if (capi_alpha_tmp == NULL((void*)0)) { | |||
| 25958 | if (!PyErr_Occurred()) | |||
| 25959 | PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.cgges to C/Fortran array" ); | |||
| 25960 | } else { | |||
| 25961 | alpha = (complex_float *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data)); | |||
| 25962 | ||||
| 25963 | /* Processing variable beta */ | |||
| 25964 | beta_Dims[0]=n; | |||
| 25965 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 25966 | capi_beta_tmp = array_from_pyobj(NPY_CFLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 25967 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 25968 | if (!PyErr_Occurred()) | |||
| 25969 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.cgges to C/Fortran array" ); | |||
| 25970 | } else { | |||
| 25971 | beta = (complex_float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 25972 | ||||
| 25973 | /* Processing variable ldvsl */ | |||
| 25974 | if (ldvsl_capi == Py_None(&_Py_NoneStruct)) ldvsl = ((jobvsl==1)?n:1); else | |||
| 25975 | f2py_success = int_from_pyobj(&ldvsl,ldvsl_capi,"_flapack.cgges() 4th keyword (ldvsl) can't be converted to int"); | |||
| 25976 | if (f2py_success) { | |||
| 25977 | /* Processing variable ldvsr */ | |||
| 25978 | if (ldvsr_capi == Py_None(&_Py_NoneStruct)) ldvsr = ((jobvsr==1)?n:1); else | |||
| 25979 | f2py_success = int_from_pyobj(&ldvsr,ldvsr_capi,"_flapack.cgges() 5th keyword (ldvsr) can't be converted to int"); | |||
| 25980 | if (f2py_success) { | |||
| 25981 | /* Processing variable lwork */ | |||
| 25982 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 25983 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgges() 6th keyword (lwork) can't be converted to int"); | |||
| 25984 | if (f2py_success) { | |||
| 25985 | CHECKSCALAR(lwork>=MAX(1,2*n)||lwork==-1,"lwork>=MAX(1,2*n)||lwork==-1","6th keyword lwork","cgges:lwork=%d",lwork)if (!(lwork>=((1 > 2*n) ? (1) : (2*n))||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgges:lwork=%d", "(""lwork>=MAX(1,2*n)||lwork==-1" ") failed for ""6th keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 25986 | /* Processing variable rwork */ | |||
| 25987 | rwork_Dims[0]=8 * n; | |||
| 25988 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 25989 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 25990 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 25991 | if (!PyErr_Occurred()) | |||
| 25992 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgges to C/Fortran array" ); | |||
| 25993 | } else { | |||
| 25994 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 25995 | ||||
| 25996 | /* Processing variable bwork */ | |||
| 25997 | bwork_Dims[0]=n; | |||
| 25998 | capi_bwork_intent |= F2PY_INTENT_HIDE8; | |||
| 25999 | capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 26000 | if (capi_bwork_tmp == NULL((void*)0)) { | |||
| 26001 | if (!PyErr_Occurred()) | |||
| 26002 | PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.cgges to C/Fortran array" ); | |||
| 26003 | } else { | |||
| 26004 | bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data)); | |||
| 26005 | ||||
| 26006 | /* Processing variable vsl */ | |||
| 26007 | vsl_Dims[0]=ldvsl,vsl_Dims[1]=n; | |||
| 26008 | capi_vsl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26009 | capi_vsl_tmp = array_from_pyobj(NPY_CFLOAT,vsl_Dims,vsl_Rank,capi_vsl_intent,Py_None(&_Py_NoneStruct)); | |||
| 26010 | if (capi_vsl_tmp == NULL((void*)0)) { | |||
| 26011 | if (!PyErr_Occurred()) | |||
| 26012 | PyErr_SetString(_flapack_error,"failed in converting hidden `vsl' of _flapack.cgges to C/Fortran array" ); | |||
| 26013 | } else { | |||
| 26014 | vsl = (complex_float *)(PyArray_DATA(capi_vsl_tmp)((void *)((PyArrayObject_fields *)(capi_vsl_tmp))->data)); | |||
| 26015 | ||||
| 26016 | /* Processing variable vsr */ | |||
| 26017 | vsr_Dims[0]=ldvsr,vsr_Dims[1]=n; | |||
| 26018 | capi_vsr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26019 | capi_vsr_tmp = array_from_pyobj(NPY_CFLOAT,vsr_Dims,vsr_Rank,capi_vsr_intent,Py_None(&_Py_NoneStruct)); | |||
| 26020 | if (capi_vsr_tmp == NULL((void*)0)) { | |||
| 26021 | if (!PyErr_Occurred()) | |||
| 26022 | PyErr_SetString(_flapack_error,"failed in converting hidden `vsr' of _flapack.cgges to C/Fortran array" ); | |||
| 26023 | } else { | |||
| 26024 | vsr = (complex_float *)(PyArray_DATA(capi_vsr_tmp)((void *)((PyArrayObject_fields *)(capi_vsr_tmp))->data)); | |||
| 26025 | ||||
| 26026 | /* Processing variable work */ | |||
| 26027 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 26028 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26029 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 26030 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 26031 | if (!PyErr_Occurred()) | |||
| 26032 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgges to C/Fortran array" ); | |||
| 26033 | } else { | |||
| 26034 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 26035 | ||||
| 26036 | /*end of frompyobj*/ | |||
| 26037 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26038 | f2py_start_call_clock(); | |||
| 26039 | #endif | |||
| 26040 | /*callfortranroutine*/ | |||
| 26041 | if ((setjmp(cb_cselect_in_gges__user__routines_jmpbuf)_setjmp (cb_cselect_in_gges__user__routines_jmpbuf))) { | |||
| 26042 | f2py_success = 0; | |||
| 26043 | } else { | |||
| 26044 | (*f2py_func)((jobvsl?"V":"N"),(jobvsr?"V":"N"),(sort_t?"S":"N"),cb_cselect_in_gges__user__routines,&n,a,&lda,b,&ldb,&sdim,alpha,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,rwork,bwork,&info) ; | |||
| 26045 | /*(*f2py_func)(&jobvsl,&jobvsr,&sort_t,cselect_cptr,&n,a,&lda,b,&ldb,&sdim,alpha,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,rwork,bwork,&info);*/ | |||
| 26046 | } | |||
| 26047 | if (PyErr_Occurred()) | |||
| 26048 | f2py_success = 0; | |||
| 26049 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26050 | f2py_stop_call_clock(); | |||
| 26051 | #endif | |||
| 26052 | /*end of callfortranroutine*/ | |||
| 26053 | if (f2py_success) { | |||
| 26054 | /*pyobjfrom*/ | |||
| 26055 | /*end of pyobjfrom*/ | |||
| 26056 | CFUNCSMESS("Building return value.\n"); | |||
| 26057 | capi_buildvalue = Py_BuildValue("NNiNNNNNi",capi_a_tmp,capi_b_tmp,sdim,capi_alpha_tmp,capi_beta_tmp,capi_vsl_tmp,capi_vsr_tmp,capi_work_tmp,info); | |||
| 26058 | /*closepyobjfrom*/ | |||
| 26059 | /*end of closepyobjfrom*/ | |||
| 26060 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 26061 | /*cleanupfrompyobj*/ | |||
| 26062 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 26063 | /* End of cleaning variable work */ | |||
| 26064 | } /*if (capi_vsr_tmp == NULL) ... else of vsr*/ | |||
| 26065 | /* End of cleaning variable vsr */ | |||
| 26066 | } /*if (capi_vsl_tmp == NULL) ... else of vsl*/ | |||
| 26067 | /* End of cleaning variable vsl */ | |||
| 26068 | Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp))); | |||
| 26069 | } /*if (capi_bwork_tmp == NULL) ... else of bwork*/ | |||
| 26070 | /* End of cleaning variable bwork */ | |||
| 26071 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 26072 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 26073 | /* End of cleaning variable rwork */ | |||
| 26074 | } /*CHECKSCALAR(lwork>=MAX(1,2*n)||lwork==-1)*/ | |||
| 26075 | } /*if (f2py_success) of lwork*/ | |||
| 26076 | /* End of cleaning variable lwork */ | |||
| 26077 | } /*if (f2py_success) of ldvsr*/ | |||
| 26078 | /* End of cleaning variable ldvsr */ | |||
| 26079 | } /*if (f2py_success) of ldvsl*/ | |||
| 26080 | /* End of cleaning variable ldvsl */ | |||
| 26081 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 26082 | /* End of cleaning variable beta */ | |||
| 26083 | } /*if (capi_alpha_tmp == NULL) ... else of alpha*/ | |||
| 26084 | /* End of cleaning variable alpha */ | |||
| 26085 | /* End of cleaning variable ldb */ | |||
| 26086 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 26087 | /* End of cleaning variable b */ | |||
| 26088 | /* End of cleaning variable lda */ | |||
| 26089 | /* End of cleaning variable n */ | |||
| 26090 | /* End of cleaning variable info */ | |||
| 26091 | /* End of cleaning variable sdim */ | |||
| 26092 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 26093 | /* End of cleaning variable a */ | |||
| 26094 | CFUNCSMESS("Restoring jmpbuf for `cselect`.\n"); | |||
| 26095 | cb_cselect_in_gges__user__routines_capi = cselect_capi; | |||
| 26096 | Py_DECREF(cb_cselect_in_gges__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_cselect_in_gges__user__routines_args_capi ))); | |||
| 26097 | cb_cselect_in_gges__user__routines_args_capi = cselect_args_capi; | |||
| 26098 | cb_cselect_in_gges__user__routines_nofargs = cselect_nofargs_capi; | |||
| 26099 | memcpy(&cb_cselect_in_gges__user__routines_jmpbuf,&cselect_jmpbuf,sizeof(jmp_buf)); | |||
| 26100 | } | |||
| 26101 | /* End of cleaning variable cselect */ | |||
| 26102 | } /*CHECKSCALAR(sort_t==0||sort_t==1)*/ | |||
| 26103 | } /*if (f2py_success) of sort_t*/ | |||
| 26104 | /* End of cleaning variable sort_t */ | |||
| 26105 | } /*CHECKSCALAR(jobvsr==0||jobvsr==1)*/ | |||
| 26106 | } /*if (f2py_success) of jobvsr*/ | |||
| 26107 | /* End of cleaning variable jobvsr */ | |||
| 26108 | } /*CHECKSCALAR(jobvsl==0||jobvsl==1)*/ | |||
| 26109 | } /*if (f2py_success) of jobvsl*/ | |||
| 26110 | /* End of cleaning variable jobvsl */ | |||
| 26111 | /*end of cleanupfrompyobj*/ | |||
| 26112 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 26113 | /*routdebugfailure*/ | |||
| 26114 | } else { | |||
| 26115 | /*routdebugleave*/ | |||
| 26116 | } | |||
| 26117 | CFUNCSMESS("Freeing memory.\n"); | |||
| 26118 | /*freemem*/ | |||
| 26119 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26120 | f2py_stop_clock(); | |||
| 26121 | #endif | |||
| 26122 | return capi_buildvalue; | |||
| 26123 | } | |||
| 26124 | /******************************** end of cgges ********************************/ | |||
| 26125 | ||||
| 26126 | /*********************************** zgges ***********************************/ | |||
| 26127 | static char doc_f2py_rout__flapack_zgges[] = "\ | |||
| 26128 | a,b,sdim,alpha,beta,vsl,vsr,work,info = zgges(zselect,a,b,[jobvsl,jobvsr,sort_t,ldvsl,ldvsr,lwork,zselect_extra_args,overwrite_a,overwrite_b])\n\nWrapper for ``zgges``.\ | |||
| 26129 | \n\nParameters\n----------\n" | |||
| 26130 | "zselect : call-back function\n" | |||
| 26131 | "a : input rank-2 array('D') with bounds (lda,n)\n" | |||
| 26132 | "b : input rank-2 array('D') with bounds (ldb,n)\n" | |||
| 26133 | "\nOther Parameters\n----------------\n" | |||
| 26134 | "jobvsl : input int, optional\n Default: 1\n" | |||
| 26135 | "jobvsr : input int, optional\n Default: 1\n" | |||
| 26136 | "sort_t : input int, optional\n Default: 0\n" | |||
| 26137 | "zselect_extra_args : input tuple, optional\n Default: ()\n" | |||
| 26138 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 26139 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 26140 | "ldvsl : input int, optional\n Default: ((jobvsl==1)?n:1)\n" | |||
| 26141 | "ldvsr : input int, optional\n Default: ((jobvsr==1)?n:1)\n" | |||
| 26142 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 26143 | "\nReturns\n-------\n" | |||
| 26144 | "a : rank-2 array('D') with bounds (lda,n)\n" | |||
| 26145 | "b : rank-2 array('D') with bounds (ldb,n)\n" | |||
| 26146 | "sdim : int\n" | |||
| 26147 | "alpha : rank-1 array('D') with bounds (n)\n" | |||
| 26148 | "beta : rank-1 array('D') with bounds (n)\n" | |||
| 26149 | "vsl : rank-2 array('D') with bounds (ldvsl,n)\n" | |||
| 26150 | "vsr : rank-2 array('D') with bounds (ldvsr,n)\n" | |||
| 26151 | "work : rank-1 array('D') with bounds (MAX(lwork,1))\n" | |||
| 26152 | "info : int\n" | |||
| 26153 | "\nNotes\n-----\nCall-back functions::\n\n" | |||
| 26154 | " def zselect(alpha,beta): return zselect\n\ | |||
| 26155 | Required arguments:\n" | |||
| 26156 | " alpha : input complex\n" | |||
| 26157 | " beta : input complex\n" | |||
| 26158 | " Return objects:\n" | |||
| 26159 | " zselect : int"; | |||
| 26160 | /* extern void F_FUNC(zgges,ZGGES)(char*,char*,char*,F_INT(*)(complex_double*,complex_double*),F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 26161 | static PyObject *f2py_rout__flapack_zgges(const PyObject *capi_self, | |||
| 26162 | PyObject *capi_args, | |||
| 26163 | PyObject *capi_keywds, | |||
| 26164 | void (*f2py_func)(char*,char*,char*,F_INTint(*)(complex_double*,complex_double*),F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 26165 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 26166 | volatile int f2py_success = 1; | |||
| 26167 | /*decl*/ | |||
| 26168 | ||||
| 26169 | int jobvsl = 0; | |||
| 26170 | PyObject *jobvsl_capi = Py_None(&_Py_NoneStruct); | |||
| 26171 | int jobvsr = 0; | |||
| 26172 | PyObject *jobvsr_capi = Py_None(&_Py_NoneStruct); | |||
| 26173 | int sort_t = 0; | |||
| 26174 | PyObject *sort_t_capi = Py_None(&_Py_NoneStruct); | |||
| 26175 | PyObject *zselect_capi = Py_None(&_Py_NoneStruct); | |||
| 26176 | PyTupleObject *zselect_xa_capi = NULL((void*)0); | |||
| 26177 | PyTupleObject *zselect_args_capi = NULL((void*)0); | |||
| 26178 | int zselect_nofargs_capi = 0; | |||
| 26179 | cb_zselect_in_gges__user__routines_typedef zselect_cptr; | |||
| 26180 | int n = 0; | |||
| 26181 | complex_double *a = NULL((void*)0); | |||
| 26182 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 26183 | const int a_Rank = 2; | |||
| 26184 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 26185 | int capi_a_intent = 0; | |||
| 26186 | int capi_overwrite_a = 0; | |||
| 26187 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 26188 | int lda = 0; | |||
| 26189 | complex_double *b = NULL((void*)0); | |||
| 26190 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 26191 | const int b_Rank = 2; | |||
| 26192 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 26193 | int capi_b_intent = 0; | |||
| 26194 | int capi_overwrite_b = 0; | |||
| 26195 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 26196 | int ldb = 0; | |||
| 26197 | int sdim = 0; | |||
| 26198 | complex_double *alpha = NULL((void*)0); | |||
| 26199 | npy_intp alpha_Dims[1] = {-1}; | |||
| 26200 | const int alpha_Rank = 1; | |||
| 26201 | PyArrayObject *capi_alpha_tmp = NULL((void*)0); | |||
| 26202 | int capi_alpha_intent = 0; | |||
| 26203 | complex_double *beta = NULL((void*)0); | |||
| 26204 | npy_intp beta_Dims[1] = {-1}; | |||
| 26205 | const int beta_Rank = 1; | |||
| 26206 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 26207 | int capi_beta_intent = 0; | |||
| 26208 | complex_double *vsl = NULL((void*)0); | |||
| 26209 | npy_intp vsl_Dims[2] = {-1, -1}; | |||
| 26210 | const int vsl_Rank = 2; | |||
| 26211 | PyArrayObject *capi_vsl_tmp = NULL((void*)0); | |||
| 26212 | int capi_vsl_intent = 0; | |||
| 26213 | int ldvsl = 0; | |||
| 26214 | PyObject *ldvsl_capi = Py_None(&_Py_NoneStruct); | |||
| 26215 | complex_double *vsr = NULL((void*)0); | |||
| 26216 | npy_intp vsr_Dims[2] = {-1, -1}; | |||
| 26217 | const int vsr_Rank = 2; | |||
| 26218 | PyArrayObject *capi_vsr_tmp = NULL((void*)0); | |||
| 26219 | int capi_vsr_intent = 0; | |||
| 26220 | int ldvsr = 0; | |||
| 26221 | PyObject *ldvsr_capi = Py_None(&_Py_NoneStruct); | |||
| 26222 | complex_double *work = NULL((void*)0); | |||
| 26223 | npy_intp work_Dims[1] = {-1}; | |||
| 26224 | const int work_Rank = 1; | |||
| 26225 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 26226 | int capi_work_intent = 0; | |||
| 26227 | int lwork = 0; | |||
| 26228 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 26229 | double *rwork = NULL((void*)0); | |||
| 26230 | npy_intp rwork_Dims[1] = {-1}; | |||
| 26231 | const int rwork_Rank = 1; | |||
| 26232 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 26233 | int capi_rwork_intent = 0; | |||
| 26234 | int *bwork = NULL((void*)0); | |||
| 26235 | npy_intp bwork_Dims[1] = {-1}; | |||
| 26236 | const int bwork_Rank = 1; | |||
| 26237 | PyArrayObject *capi_bwork_tmp = NULL((void*)0); | |||
| 26238 | int capi_bwork_intent = 0; | |||
| 26239 | int info = 0; | |||
| 26240 | static char *capi_kwlist[] = {"zselect","a","b","jobvsl","jobvsr","sort_t","ldvsl","ldvsr","lwork","zselect_extra_args","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 26241 | ||||
| 26242 | /*routdebugenter*/ | |||
| 26243 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26244 | f2py_start_clock(); | |||
| 26245 | #endif | |||
| 26246 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 26247 | "OOO|OOOOOOO!ii:_flapack.zgges",\ | |||
| 26248 | capi_kwlist,&zselect_capi,&a_capi,&b_capi,&jobvsl_capi,&jobvsr_capi,&sort_t_capi,&ldvsl_capi,&ldvsr_capi,&lwork_capi,&PyTuple_Type,&zselect_xa_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 26249 | return NULL((void*)0); | |||
| 26250 | /*frompyobj*/ | |||
| 26251 | /* Processing variable jobvsl */ | |||
| 26252 | if (jobvsl_capi == Py_None(&_Py_NoneStruct)) jobvsl = 1; else | |||
| 26253 | f2py_success = int_from_pyobj(&jobvsl,jobvsl_capi,"_flapack.zgges() 1st keyword (jobvsl) can't be converted to int"); | |||
| 26254 | if (f2py_success) { | |||
| 26255 | CHECKSCALAR(jobvsl==0||jobvsl==1,"jobvsl==0||jobvsl==1","1st keyword jobvsl","zgges:jobvsl=%d",jobvsl)if (!(jobvsl==0||jobvsl==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgges:jobvsl=%d", "(""jobvsl==0||jobvsl==1"") failed for " "1st keyword jobvsl", jobvsl); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 26256 | /* Processing variable jobvsr */ | |||
| 26257 | if (jobvsr_capi == Py_None(&_Py_NoneStruct)) jobvsr = 1; else | |||
| 26258 | f2py_success = int_from_pyobj(&jobvsr,jobvsr_capi,"_flapack.zgges() 2nd keyword (jobvsr) can't be converted to int"); | |||
| 26259 | if (f2py_success) { | |||
| 26260 | CHECKSCALAR(jobvsr==0||jobvsr==1,"jobvsr==0||jobvsr==1","2nd keyword jobvsr","zgges:jobvsr=%d",jobvsr)if (!(jobvsr==0||jobvsr==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgges:jobvsr=%d", "(""jobvsr==0||jobvsr==1"") failed for " "2nd keyword jobvsr", jobvsr); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 26261 | /* Processing variable sort_t */ | |||
| 26262 | if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else | |||
| 26263 | f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.zgges() 3rd keyword (sort_t) can't be converted to int"); | |||
| 26264 | if (f2py_success) { | |||
| 26265 | CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","3rd keyword sort_t","zgges:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgges:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for " "3rd keyword sort_t", sort_t); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 26266 | /* Processing variable zselect */ | |||
| 26267 | if(F2PyCapsule_Check(zselect_capi)) { | |||
| 26268 | zselect_cptr = F2PyCapsule_AsVoidPtr(zselect_capi); | |||
| 26269 | } else { | |||
| 26270 | zselect_cptr = cb_zselect_in_gges__user__routines; | |||
| 26271 | } | |||
| 26272 | ||||
| 26273 | zselect_nofargs_capi = cb_zselect_in_gges__user__routines_nofargs; | |||
| 26274 | if (create_cb_arglist(zselect_capi,zselect_xa_capi,2,0,&cb_zselect_in_gges__user__routines_nofargs,&zselect_args_capi,"failed in processing argument list for call-back zselect.")) { | |||
| 26275 | jmp_buf zselect_jmpbuf; | |||
| 26276 | CFUNCSMESS("Saving jmpbuf for `zselect`.\n"); | |||
| 26277 | SWAP(zselect_capi,cb_zselect_in_gges__user__routines_capi,PyObject){ PyObject *c; c = zselect_capi; zselect_capi = cb_zselect_in_gges__user__routines_capi ; cb_zselect_in_gges__user__routines_capi = c;}; | |||
| 26278 | SWAP(zselect_args_capi,cb_zselect_in_gges__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = zselect_args_capi; zselect_args_capi = cb_zselect_in_gges__user__routines_args_capi; cb_zselect_in_gges__user__routines_args_capi = c;}; | |||
| 26279 | memcpy(&zselect_jmpbuf,&cb_zselect_in_gges__user__routines_jmpbuf,sizeof(jmp_buf)); | |||
| 26280 | /* Processing variable a */ | |||
| 26281 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 26282 | ; | |||
| 26283 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 26284 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 26285 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 26286 | if (!PyErr_Occurred()) | |||
| 26287 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zgges to C/Fortran array" ); | |||
| 26288 | } else { | |||
| 26289 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 26290 | ||||
| 26291 | /* Processing variable sdim */ | |||
| 26292 | sdim = 0; | |||
| 26293 | /* Processing variable info */ | |||
| 26294 | /* Processing variable n */ | |||
| 26295 | n = shape(a,1)a_Dims[1]; | |||
| 26296 | /* Processing variable lda */ | |||
| 26297 | lda = shape(a,0)a_Dims[0]; | |||
| 26298 | /* Processing variable b */ | |||
| 26299 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 26300 | b_Dims[1]=n; | |||
| 26301 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 26302 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 26303 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 26304 | if (!PyErr_Occurred()) | |||
| 26305 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zgges to C/Fortran array" ); | |||
| 26306 | } else { | |||
| 26307 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 26308 | ||||
| 26309 | /* Processing variable ldb */ | |||
| 26310 | ldb = shape(b,0)b_Dims[0]; | |||
| 26311 | /* Processing variable alpha */ | |||
| 26312 | alpha_Dims[0]=n; | |||
| 26313 | capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26314 | capi_alpha_tmp = array_from_pyobj(NPY_CDOUBLE,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct)); | |||
| 26315 | if (capi_alpha_tmp == NULL((void*)0)) { | |||
| 26316 | if (!PyErr_Occurred()) | |||
| 26317 | PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.zgges to C/Fortran array" ); | |||
| 26318 | } else { | |||
| 26319 | alpha = (complex_double *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data)); | |||
| 26320 | ||||
| 26321 | /* Processing variable beta */ | |||
| 26322 | beta_Dims[0]=n; | |||
| 26323 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26324 | capi_beta_tmp = array_from_pyobj(NPY_CDOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 26325 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 26326 | if (!PyErr_Occurred()) | |||
| 26327 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.zgges to C/Fortran array" ); | |||
| 26328 | } else { | |||
| 26329 | beta = (complex_double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 26330 | ||||
| 26331 | /* Processing variable ldvsl */ | |||
| 26332 | if (ldvsl_capi == Py_None(&_Py_NoneStruct)) ldvsl = ((jobvsl==1)?n:1); else | |||
| 26333 | f2py_success = int_from_pyobj(&ldvsl,ldvsl_capi,"_flapack.zgges() 4th keyword (ldvsl) can't be converted to int"); | |||
| 26334 | if (f2py_success) { | |||
| 26335 | /* Processing variable ldvsr */ | |||
| 26336 | if (ldvsr_capi == Py_None(&_Py_NoneStruct)) ldvsr = ((jobvsr==1)?n:1); else | |||
| 26337 | f2py_success = int_from_pyobj(&ldvsr,ldvsr_capi,"_flapack.zgges() 5th keyword (ldvsr) can't be converted to int"); | |||
| 26338 | if (f2py_success) { | |||
| 26339 | /* Processing variable lwork */ | |||
| 26340 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 26341 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgges() 6th keyword (lwork) can't be converted to int"); | |||
| 26342 | if (f2py_success) { | |||
| 26343 | CHECKSCALAR(lwork>=MAX(1,2*n)||lwork==-1,"lwork>=MAX(1,2*n)||lwork==-1","6th keyword lwork","zgges:lwork=%d",lwork)if (!(lwork>=((1 > 2*n) ? (1) : (2*n))||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgges:lwork=%d", "(""lwork>=MAX(1,2*n)||lwork==-1" ") failed for ""6th keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 26344 | /* Processing variable rwork */ | |||
| 26345 | rwork_Dims[0]=8 * n; | |||
| 26346 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 26347 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 26348 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 26349 | if (!PyErr_Occurred()) | |||
| 26350 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgges to C/Fortran array" ); | |||
| 26351 | } else { | |||
| 26352 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 26353 | ||||
| 26354 | /* Processing variable bwork */ | |||
| 26355 | bwork_Dims[0]=n; | |||
| 26356 | capi_bwork_intent |= F2PY_INTENT_HIDE8; | |||
| 26357 | capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 26358 | if (capi_bwork_tmp == NULL((void*)0)) { | |||
| 26359 | if (!PyErr_Occurred()) | |||
| 26360 | PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.zgges to C/Fortran array" ); | |||
| 26361 | } else { | |||
| 26362 | bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data)); | |||
| 26363 | ||||
| 26364 | /* Processing variable vsl */ | |||
| 26365 | vsl_Dims[0]=ldvsl,vsl_Dims[1]=n; | |||
| 26366 | capi_vsl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26367 | capi_vsl_tmp = array_from_pyobj(NPY_CDOUBLE,vsl_Dims,vsl_Rank,capi_vsl_intent,Py_None(&_Py_NoneStruct)); | |||
| 26368 | if (capi_vsl_tmp == NULL((void*)0)) { | |||
| 26369 | if (!PyErr_Occurred()) | |||
| 26370 | PyErr_SetString(_flapack_error,"failed in converting hidden `vsl' of _flapack.zgges to C/Fortran array" ); | |||
| 26371 | } else { | |||
| 26372 | vsl = (complex_double *)(PyArray_DATA(capi_vsl_tmp)((void *)((PyArrayObject_fields *)(capi_vsl_tmp))->data)); | |||
| 26373 | ||||
| 26374 | /* Processing variable vsr */ | |||
| 26375 | vsr_Dims[0]=ldvsr,vsr_Dims[1]=n; | |||
| 26376 | capi_vsr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26377 | capi_vsr_tmp = array_from_pyobj(NPY_CDOUBLE,vsr_Dims,vsr_Rank,capi_vsr_intent,Py_None(&_Py_NoneStruct)); | |||
| 26378 | if (capi_vsr_tmp == NULL((void*)0)) { | |||
| 26379 | if (!PyErr_Occurred()) | |||
| 26380 | PyErr_SetString(_flapack_error,"failed in converting hidden `vsr' of _flapack.zgges to C/Fortran array" ); | |||
| 26381 | } else { | |||
| 26382 | vsr = (complex_double *)(PyArray_DATA(capi_vsr_tmp)((void *)((PyArrayObject_fields *)(capi_vsr_tmp))->data)); | |||
| 26383 | ||||
| 26384 | /* Processing variable work */ | |||
| 26385 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 26386 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26387 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 26388 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 26389 | if (!PyErr_Occurred()) | |||
| 26390 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgges to C/Fortran array" ); | |||
| 26391 | } else { | |||
| 26392 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 26393 | ||||
| 26394 | /*end of frompyobj*/ | |||
| 26395 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26396 | f2py_start_call_clock(); | |||
| 26397 | #endif | |||
| 26398 | /*callfortranroutine*/ | |||
| 26399 | if ((setjmp(cb_zselect_in_gges__user__routines_jmpbuf)_setjmp (cb_zselect_in_gges__user__routines_jmpbuf))) { | |||
| 26400 | f2py_success = 0; | |||
| 26401 | } else { | |||
| 26402 | (*f2py_func)((jobvsl?"V":"N"),(jobvsr?"V":"N"),(sort_t?"S":"N"),cb_zselect_in_gges__user__routines,&n,a,&lda,b,&ldb,&sdim,alpha,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,rwork,bwork,&info) ; | |||
| 26403 | /*(*f2py_func)(&jobvsl,&jobvsr,&sort_t,zselect_cptr,&n,a,&lda,b,&ldb,&sdim,alpha,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,rwork,bwork,&info);*/ | |||
| 26404 | } | |||
| 26405 | if (PyErr_Occurred()) | |||
| 26406 | f2py_success = 0; | |||
| 26407 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26408 | f2py_stop_call_clock(); | |||
| 26409 | #endif | |||
| 26410 | /*end of callfortranroutine*/ | |||
| 26411 | if (f2py_success) { | |||
| 26412 | /*pyobjfrom*/ | |||
| 26413 | /*end of pyobjfrom*/ | |||
| 26414 | CFUNCSMESS("Building return value.\n"); | |||
| 26415 | capi_buildvalue = Py_BuildValue("NNiNNNNNi",capi_a_tmp,capi_b_tmp,sdim,capi_alpha_tmp,capi_beta_tmp,capi_vsl_tmp,capi_vsr_tmp,capi_work_tmp,info); | |||
| 26416 | /*closepyobjfrom*/ | |||
| 26417 | /*end of closepyobjfrom*/ | |||
| 26418 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 26419 | /*cleanupfrompyobj*/ | |||
| 26420 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 26421 | /* End of cleaning variable work */ | |||
| 26422 | } /*if (capi_vsr_tmp == NULL) ... else of vsr*/ | |||
| 26423 | /* End of cleaning variable vsr */ | |||
| 26424 | } /*if (capi_vsl_tmp == NULL) ... else of vsl*/ | |||
| 26425 | /* End of cleaning variable vsl */ | |||
| 26426 | Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp))); | |||
| 26427 | } /*if (capi_bwork_tmp == NULL) ... else of bwork*/ | |||
| 26428 | /* End of cleaning variable bwork */ | |||
| 26429 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 26430 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 26431 | /* End of cleaning variable rwork */ | |||
| 26432 | } /*CHECKSCALAR(lwork>=MAX(1,2*n)||lwork==-1)*/ | |||
| 26433 | } /*if (f2py_success) of lwork*/ | |||
| 26434 | /* End of cleaning variable lwork */ | |||
| 26435 | } /*if (f2py_success) of ldvsr*/ | |||
| 26436 | /* End of cleaning variable ldvsr */ | |||
| 26437 | } /*if (f2py_success) of ldvsl*/ | |||
| 26438 | /* End of cleaning variable ldvsl */ | |||
| 26439 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 26440 | /* End of cleaning variable beta */ | |||
| 26441 | } /*if (capi_alpha_tmp == NULL) ... else of alpha*/ | |||
| 26442 | /* End of cleaning variable alpha */ | |||
| 26443 | /* End of cleaning variable ldb */ | |||
| 26444 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 26445 | /* End of cleaning variable b */ | |||
| 26446 | /* End of cleaning variable lda */ | |||
| 26447 | /* End of cleaning variable n */ | |||
| 26448 | /* End of cleaning variable info */ | |||
| 26449 | /* End of cleaning variable sdim */ | |||
| 26450 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 26451 | /* End of cleaning variable a */ | |||
| 26452 | CFUNCSMESS("Restoring jmpbuf for `zselect`.\n"); | |||
| 26453 | cb_zselect_in_gges__user__routines_capi = zselect_capi; | |||
| 26454 | Py_DECREF(cb_zselect_in_gges__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_zselect_in_gges__user__routines_args_capi ))); | |||
| 26455 | cb_zselect_in_gges__user__routines_args_capi = zselect_args_capi; | |||
| 26456 | cb_zselect_in_gges__user__routines_nofargs = zselect_nofargs_capi; | |||
| 26457 | memcpy(&cb_zselect_in_gges__user__routines_jmpbuf,&zselect_jmpbuf,sizeof(jmp_buf)); | |||
| 26458 | } | |||
| 26459 | /* End of cleaning variable zselect */ | |||
| 26460 | } /*CHECKSCALAR(sort_t==0||sort_t==1)*/ | |||
| 26461 | } /*if (f2py_success) of sort_t*/ | |||
| 26462 | /* End of cleaning variable sort_t */ | |||
| 26463 | } /*CHECKSCALAR(jobvsr==0||jobvsr==1)*/ | |||
| 26464 | } /*if (f2py_success) of jobvsr*/ | |||
| 26465 | /* End of cleaning variable jobvsr */ | |||
| 26466 | } /*CHECKSCALAR(jobvsl==0||jobvsl==1)*/ | |||
| 26467 | } /*if (f2py_success) of jobvsl*/ | |||
| 26468 | /* End of cleaning variable jobvsl */ | |||
| 26469 | /*end of cleanupfrompyobj*/ | |||
| 26470 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 26471 | /*routdebugfailure*/ | |||
| 26472 | } else { | |||
| 26473 | /*routdebugleave*/ | |||
| 26474 | } | |||
| 26475 | CFUNCSMESS("Freeing memory.\n"); | |||
| 26476 | /*freemem*/ | |||
| 26477 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26478 | f2py_stop_clock(); | |||
| 26479 | #endif | |||
| 26480 | return capi_buildvalue; | |||
| 26481 | } | |||
| 26482 | /******************************** end of zgges ********************************/ | |||
| 26483 | ||||
| 26484 | /*********************************** sggev ***********************************/ | |||
| 26485 | static char doc_f2py_rout__flapack_sggev[] = "\ | |||
| 26486 | alphar,alphai,beta,vl,vr,work,info = sggev(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``sggev``.\ | |||
| 26487 | \n\nParameters\n----------\n" | |||
| 26488 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 26489 | "b : input rank-2 array('f') with bounds (n,n)\n" | |||
| 26490 | "\nOther Parameters\n----------------\n" | |||
| 26491 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 26492 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 26493 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 26494 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 26495 | "lwork : input int, optional\n Default: max(8*n,1)\n" | |||
| 26496 | "\nReturns\n-------\n" | |||
| 26497 | "alphar : rank-1 array('f') with bounds (n)\n" | |||
| 26498 | "alphai : rank-1 array('f') with bounds (n)\n" | |||
| 26499 | "beta : rank-1 array('f') with bounds (n)\n" | |||
| 26500 | "vl : rank-2 array('f') with bounds (ldvl,n)\n" | |||
| 26501 | "vr : rank-2 array('f') with bounds (ldvr,n)\n" | |||
| 26502 | "work : rank-1 array('f') with bounds (MAX(lwork,1))\n" | |||
| 26503 | "info : int"; | |||
| 26504 | /* extern void F_FUNC(sggev,SGGEV)(char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 26505 | static PyObject *f2py_rout__flapack_sggev(const PyObject *capi_self, | |||
| 26506 | PyObject *capi_args, | |||
| 26507 | PyObject *capi_keywds, | |||
| 26508 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 26509 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 26510 | volatile int f2py_success = 1; | |||
| 26511 | /*decl*/ | |||
| 26512 | ||||
| 26513 | int compute_vl = 0; | |||
| 26514 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 26515 | int compute_vr = 0; | |||
| 26516 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 26517 | int n = 0; | |||
| 26518 | float *a = NULL((void*)0); | |||
| 26519 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 26520 | const int a_Rank = 2; | |||
| 26521 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 26522 | int capi_a_intent = 0; | |||
| 26523 | int capi_overwrite_a = 0; | |||
| 26524 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 26525 | float *b = NULL((void*)0); | |||
| 26526 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 26527 | const int b_Rank = 2; | |||
| 26528 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 26529 | int capi_b_intent = 0; | |||
| 26530 | int capi_overwrite_b = 0; | |||
| 26531 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 26532 | float *alphar = NULL((void*)0); | |||
| 26533 | npy_intp alphar_Dims[1] = {-1}; | |||
| 26534 | const int alphar_Rank = 1; | |||
| 26535 | PyArrayObject *capi_alphar_tmp = NULL((void*)0); | |||
| 26536 | int capi_alphar_intent = 0; | |||
| 26537 | float *alphai = NULL((void*)0); | |||
| 26538 | npy_intp alphai_Dims[1] = {-1}; | |||
| 26539 | const int alphai_Rank = 1; | |||
| 26540 | PyArrayObject *capi_alphai_tmp = NULL((void*)0); | |||
| 26541 | int capi_alphai_intent = 0; | |||
| 26542 | float *beta = NULL((void*)0); | |||
| 26543 | npy_intp beta_Dims[1] = {-1}; | |||
| 26544 | const int beta_Rank = 1; | |||
| 26545 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 26546 | int capi_beta_intent = 0; | |||
| 26547 | float *vl = NULL((void*)0); | |||
| 26548 | npy_intp vl_Dims[2] = {-1, -1}; | |||
| 26549 | const int vl_Rank = 2; | |||
| 26550 | PyArrayObject *capi_vl_tmp = NULL((void*)0); | |||
| 26551 | int capi_vl_intent = 0; | |||
| 26552 | int ldvl = 0; | |||
| 26553 | float *vr = NULL((void*)0); | |||
| 26554 | npy_intp vr_Dims[2] = {-1, -1}; | |||
| 26555 | const int vr_Rank = 2; | |||
| 26556 | PyArrayObject *capi_vr_tmp = NULL((void*)0); | |||
| 26557 | int capi_vr_intent = 0; | |||
| 26558 | int ldvr = 0; | |||
| 26559 | float *work = NULL((void*)0); | |||
| 26560 | npy_intp work_Dims[1] = {-1}; | |||
| 26561 | const int work_Rank = 1; | |||
| 26562 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 26563 | int capi_work_intent = 0; | |||
| 26564 | int lwork = 0; | |||
| 26565 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 26566 | int info = 0; | |||
| 26567 | static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 26568 | ||||
| 26569 | /*routdebugenter*/ | |||
| 26570 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26571 | f2py_start_clock(); | |||
| 26572 | #endif | |||
| 26573 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 26574 | "OO|OOOii:_flapack.sggev",\ | |||
| 26575 | capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 26576 | return NULL((void*)0); | |||
| 26577 | /*frompyobj*/ | |||
| 26578 | /* Processing variable compute_vl */ | |||
| 26579 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 26580 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.sggev() 1st keyword (compute_vl) can't be converted to int"); | |||
| 26581 | if (f2py_success) { | |||
| 26582 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","sggev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sggev:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 26583 | /* Processing variable compute_vr */ | |||
| 26584 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 26585 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.sggev() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 26586 | if (f2py_success) { | |||
| 26587 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","sggev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sggev:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 26588 | /* Processing variable a */ | |||
| 26589 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 26590 | ; | |||
| 26591 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 26592 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 26593 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 26594 | if (!PyErr_Occurred()) | |||
| 26595 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sggev to C/Fortran array" ); | |||
| 26596 | } else { | |||
| 26597 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 26598 | ||||
| 26599 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 26600 | /* Processing variable b */ | |||
| 26601 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 26602 | ; | |||
| 26603 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 26604 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 26605 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 26606 | if (!PyErr_Occurred()) | |||
| 26607 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sggev to C/Fortran array" ); | |||
| 26608 | } else { | |||
| 26609 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 26610 | ||||
| 26611 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 26612 | /* Processing variable info */ | |||
| 26613 | /* Processing variable n */ | |||
| 26614 | n = shape(a,0)a_Dims[0]; | |||
| 26615 | /* Processing variable alphar */ | |||
| 26616 | alphar_Dims[0]=n; | |||
| 26617 | capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26618 | capi_alphar_tmp = array_from_pyobj(NPY_FLOAT,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct)); | |||
| 26619 | if (capi_alphar_tmp == NULL((void*)0)) { | |||
| 26620 | if (!PyErr_Occurred()) | |||
| 26621 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.sggev to C/Fortran array" ); | |||
| 26622 | } else { | |||
| 26623 | alphar = (float *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data )); | |||
| 26624 | ||||
| 26625 | /* Processing variable alphai */ | |||
| 26626 | alphai_Dims[0]=n; | |||
| 26627 | capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26628 | capi_alphai_tmp = array_from_pyobj(NPY_FLOAT,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct)); | |||
| 26629 | if (capi_alphai_tmp == NULL((void*)0)) { | |||
| 26630 | if (!PyErr_Occurred()) | |||
| 26631 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.sggev to C/Fortran array" ); | |||
| 26632 | } else { | |||
| 26633 | alphai = (float *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data )); | |||
| 26634 | ||||
| 26635 | /* Processing variable beta */ | |||
| 26636 | beta_Dims[0]=n; | |||
| 26637 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26638 | capi_beta_tmp = array_from_pyobj(NPY_FLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 26639 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 26640 | if (!PyErr_Occurred()) | |||
| 26641 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.sggev to C/Fortran array" ); | |||
| 26642 | } else { | |||
| 26643 | beta = (float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 26644 | ||||
| 26645 | /* Processing variable ldvl */ | |||
| 26646 | ldvl = (compute_vl?n:1); | |||
| 26647 | /* Processing variable ldvr */ | |||
| 26648 | ldvr = (compute_vr?n:1); | |||
| 26649 | /* Processing variable lwork */ | |||
| 26650 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else | |||
| 26651 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sggev() 3rd keyword (lwork) can't be converted to int"); | |||
| 26652 | if (f2py_success) { | |||
| 26653 | CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,8*n)),"(lwork==-1) || (lwork>=MAX(1,8*n))","3rd keyword lwork","sggev:lwork=%d",lwork)if (!((lwork==-1) || (lwork>=((1 > 8*n) ? (1) : (8*n))) )) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sggev:lwork=%d" , "(""(lwork==-1) || (lwork>=MAX(1,8*n))"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 26654 | /* Processing variable work */ | |||
| 26655 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 26656 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26657 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 26658 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 26659 | if (!PyErr_Occurred()) | |||
| 26660 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sggev to C/Fortran array" ); | |||
| 26661 | } else { | |||
| 26662 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 26663 | ||||
| 26664 | /* Processing variable vl */ | |||
| 26665 | vl_Dims[0]=ldvl,vl_Dims[1]=n; | |||
| 26666 | capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26667 | capi_vl_tmp = array_from_pyobj(NPY_FLOAT,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct)); | |||
| 26668 | if (capi_vl_tmp == NULL((void*)0)) { | |||
| 26669 | if (!PyErr_Occurred()) | |||
| 26670 | PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.sggev to C/Fortran array" ); | |||
| 26671 | } else { | |||
| 26672 | vl = (float *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data)); | |||
| 26673 | ||||
| 26674 | /* Processing variable vr */ | |||
| 26675 | vr_Dims[0]=ldvr,vr_Dims[1]=n; | |||
| 26676 | capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26677 | capi_vr_tmp = array_from_pyobj(NPY_FLOAT,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct)); | |||
| 26678 | if (capi_vr_tmp == NULL((void*)0)) { | |||
| 26679 | if (!PyErr_Occurred()) | |||
| 26680 | PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.sggev to C/Fortran array" ); | |||
| 26681 | } else { | |||
| 26682 | vr = (float *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data)); | |||
| 26683 | ||||
| 26684 | /*end of frompyobj*/ | |||
| 26685 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26686 | f2py_start_call_clock(); | |||
| 26687 | #endif | |||
| 26688 | /*callfortranroutine*/ | |||
| 26689 | {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info);} ; | |||
| 26690 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info);*/ | |||
| 26691 | if (PyErr_Occurred()) | |||
| 26692 | f2py_success = 0; | |||
| 26693 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26694 | f2py_stop_call_clock(); | |||
| 26695 | #endif | |||
| 26696 | /*end of callfortranroutine*/ | |||
| 26697 | if (f2py_success) { | |||
| 26698 | /*pyobjfrom*/ | |||
| 26699 | /*end of pyobjfrom*/ | |||
| 26700 | CFUNCSMESS("Building return value.\n"); | |||
| 26701 | capi_buildvalue = Py_BuildValue("NNNNNNi",capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,capi_work_tmp,info); | |||
| 26702 | /*closepyobjfrom*/ | |||
| 26703 | /*end of closepyobjfrom*/ | |||
| 26704 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 26705 | /*cleanupfrompyobj*/ | |||
| 26706 | } /*if (capi_vr_tmp == NULL) ... else of vr*/ | |||
| 26707 | /* End of cleaning variable vr */ | |||
| 26708 | } /*if (capi_vl_tmp == NULL) ... else of vl*/ | |||
| 26709 | /* End of cleaning variable vl */ | |||
| 26710 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 26711 | /* End of cleaning variable work */ | |||
| 26712 | } /*CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,8*n)))*/ | |||
| 26713 | } /*if (f2py_success) of lwork*/ | |||
| 26714 | /* End of cleaning variable lwork */ | |||
| 26715 | /* End of cleaning variable ldvr */ | |||
| 26716 | /* End of cleaning variable ldvl */ | |||
| 26717 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 26718 | /* End of cleaning variable beta */ | |||
| 26719 | } /*if (capi_alphai_tmp == NULL) ... else of alphai*/ | |||
| 26720 | /* End of cleaning variable alphai */ | |||
| 26721 | } /*if (capi_alphar_tmp == NULL) ... else of alphar*/ | |||
| 26722 | /* End of cleaning variable alphar */ | |||
| 26723 | /* End of cleaning variable n */ | |||
| 26724 | /* End of cleaning variable info */ | |||
| 26725 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 26726 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 26727 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 26728 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 26729 | /* End of cleaning variable b */ | |||
| 26730 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 26731 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 26732 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 26733 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 26734 | /* End of cleaning variable a */ | |||
| 26735 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 26736 | } /*if (f2py_success) of compute_vr*/ | |||
| 26737 | /* End of cleaning variable compute_vr */ | |||
| 26738 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 26739 | } /*if (f2py_success) of compute_vl*/ | |||
| 26740 | /* End of cleaning variable compute_vl */ | |||
| 26741 | /*end of cleanupfrompyobj*/ | |||
| 26742 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 26743 | /*routdebugfailure*/ | |||
| 26744 | } else { | |||
| 26745 | /*routdebugleave*/ | |||
| 26746 | } | |||
| 26747 | CFUNCSMESS("Freeing memory.\n"); | |||
| 26748 | /*freemem*/ | |||
| 26749 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26750 | f2py_stop_clock(); | |||
| 26751 | #endif | |||
| 26752 | return capi_buildvalue; | |||
| 26753 | } | |||
| 26754 | /******************************** end of sggev ********************************/ | |||
| 26755 | ||||
| 26756 | /*********************************** dggev ***********************************/ | |||
| 26757 | static char doc_f2py_rout__flapack_dggev[] = "\ | |||
| 26758 | alphar,alphai,beta,vl,vr,work,info = dggev(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``dggev``.\ | |||
| 26759 | \n\nParameters\n----------\n" | |||
| 26760 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 26761 | "b : input rank-2 array('d') with bounds (n,n)\n" | |||
| 26762 | "\nOther Parameters\n----------------\n" | |||
| 26763 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 26764 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 26765 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 26766 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 26767 | "lwork : input int, optional\n Default: max(8*n,1)\n" | |||
| 26768 | "\nReturns\n-------\n" | |||
| 26769 | "alphar : rank-1 array('d') with bounds (n)\n" | |||
| 26770 | "alphai : rank-1 array('d') with bounds (n)\n" | |||
| 26771 | "beta : rank-1 array('d') with bounds (n)\n" | |||
| 26772 | "vl : rank-2 array('d') with bounds (ldvl,n)\n" | |||
| 26773 | "vr : rank-2 array('d') with bounds (ldvr,n)\n" | |||
| 26774 | "work : rank-1 array('d') with bounds (MAX(lwork,1))\n" | |||
| 26775 | "info : int"; | |||
| 26776 | /* extern void F_FUNC(dggev,DGGEV)(char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 26777 | static PyObject *f2py_rout__flapack_dggev(const PyObject *capi_self, | |||
| 26778 | PyObject *capi_args, | |||
| 26779 | PyObject *capi_keywds, | |||
| 26780 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 26781 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 26782 | volatile int f2py_success = 1; | |||
| 26783 | /*decl*/ | |||
| 26784 | ||||
| 26785 | int compute_vl = 0; | |||
| 26786 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 26787 | int compute_vr = 0; | |||
| 26788 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 26789 | int n = 0; | |||
| 26790 | double *a = NULL((void*)0); | |||
| 26791 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 26792 | const int a_Rank = 2; | |||
| 26793 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 26794 | int capi_a_intent = 0; | |||
| 26795 | int capi_overwrite_a = 0; | |||
| 26796 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 26797 | double *b = NULL((void*)0); | |||
| 26798 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 26799 | const int b_Rank = 2; | |||
| 26800 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 26801 | int capi_b_intent = 0; | |||
| 26802 | int capi_overwrite_b = 0; | |||
| 26803 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 26804 | double *alphar = NULL((void*)0); | |||
| 26805 | npy_intp alphar_Dims[1] = {-1}; | |||
| 26806 | const int alphar_Rank = 1; | |||
| 26807 | PyArrayObject *capi_alphar_tmp = NULL((void*)0); | |||
| 26808 | int capi_alphar_intent = 0; | |||
| 26809 | double *alphai = NULL((void*)0); | |||
| 26810 | npy_intp alphai_Dims[1] = {-1}; | |||
| 26811 | const int alphai_Rank = 1; | |||
| 26812 | PyArrayObject *capi_alphai_tmp = NULL((void*)0); | |||
| 26813 | int capi_alphai_intent = 0; | |||
| 26814 | double *beta = NULL((void*)0); | |||
| 26815 | npy_intp beta_Dims[1] = {-1}; | |||
| 26816 | const int beta_Rank = 1; | |||
| 26817 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 26818 | int capi_beta_intent = 0; | |||
| 26819 | double *vl = NULL((void*)0); | |||
| 26820 | npy_intp vl_Dims[2] = {-1, -1}; | |||
| 26821 | const int vl_Rank = 2; | |||
| 26822 | PyArrayObject *capi_vl_tmp = NULL((void*)0); | |||
| 26823 | int capi_vl_intent = 0; | |||
| 26824 | int ldvl = 0; | |||
| 26825 | double *vr = NULL((void*)0); | |||
| 26826 | npy_intp vr_Dims[2] = {-1, -1}; | |||
| 26827 | const int vr_Rank = 2; | |||
| 26828 | PyArrayObject *capi_vr_tmp = NULL((void*)0); | |||
| 26829 | int capi_vr_intent = 0; | |||
| 26830 | int ldvr = 0; | |||
| 26831 | double *work = NULL((void*)0); | |||
| 26832 | npy_intp work_Dims[1] = {-1}; | |||
| 26833 | const int work_Rank = 1; | |||
| 26834 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 26835 | int capi_work_intent = 0; | |||
| 26836 | int lwork = 0; | |||
| 26837 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 26838 | int info = 0; | |||
| 26839 | static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 26840 | ||||
| 26841 | /*routdebugenter*/ | |||
| 26842 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26843 | f2py_start_clock(); | |||
| 26844 | #endif | |||
| 26845 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 26846 | "OO|OOOii:_flapack.dggev",\ | |||
| 26847 | capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 26848 | return NULL((void*)0); | |||
| 26849 | /*frompyobj*/ | |||
| 26850 | /* Processing variable compute_vl */ | |||
| 26851 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 26852 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.dggev() 1st keyword (compute_vl) can't be converted to int"); | |||
| 26853 | if (f2py_success) { | |||
| 26854 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","dggev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dggev:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 26855 | /* Processing variable compute_vr */ | |||
| 26856 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 26857 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.dggev() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 26858 | if (f2py_success) { | |||
| 26859 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","dggev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dggev:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 26860 | /* Processing variable a */ | |||
| 26861 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 26862 | ; | |||
| 26863 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 26864 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 26865 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 26866 | if (!PyErr_Occurred()) | |||
| 26867 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dggev to C/Fortran array" ); | |||
| 26868 | } else { | |||
| 26869 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 26870 | ||||
| 26871 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 26872 | /* Processing variable b */ | |||
| 26873 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 26874 | ; | |||
| 26875 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 26876 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 26877 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 26878 | if (!PyErr_Occurred()) | |||
| 26879 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dggev to C/Fortran array" ); | |||
| 26880 | } else { | |||
| 26881 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 26882 | ||||
| 26883 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 26884 | /* Processing variable info */ | |||
| 26885 | /* Processing variable n */ | |||
| 26886 | n = shape(a,0)a_Dims[0]; | |||
| 26887 | /* Processing variable alphar */ | |||
| 26888 | alphar_Dims[0]=n; | |||
| 26889 | capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26890 | capi_alphar_tmp = array_from_pyobj(NPY_DOUBLE,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct)); | |||
| 26891 | if (capi_alphar_tmp == NULL((void*)0)) { | |||
| 26892 | if (!PyErr_Occurred()) | |||
| 26893 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.dggev to C/Fortran array" ); | |||
| 26894 | } else { | |||
| 26895 | alphar = (double *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data )); | |||
| 26896 | ||||
| 26897 | /* Processing variable alphai */ | |||
| 26898 | alphai_Dims[0]=n; | |||
| 26899 | capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26900 | capi_alphai_tmp = array_from_pyobj(NPY_DOUBLE,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct)); | |||
| 26901 | if (capi_alphai_tmp == NULL((void*)0)) { | |||
| 26902 | if (!PyErr_Occurred()) | |||
| 26903 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.dggev to C/Fortran array" ); | |||
| 26904 | } else { | |||
| 26905 | alphai = (double *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data )); | |||
| 26906 | ||||
| 26907 | /* Processing variable beta */ | |||
| 26908 | beta_Dims[0]=n; | |||
| 26909 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26910 | capi_beta_tmp = array_from_pyobj(NPY_DOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 26911 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 26912 | if (!PyErr_Occurred()) | |||
| 26913 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.dggev to C/Fortran array" ); | |||
| 26914 | } else { | |||
| 26915 | beta = (double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 26916 | ||||
| 26917 | /* Processing variable ldvl */ | |||
| 26918 | ldvl = (compute_vl?n:1); | |||
| 26919 | /* Processing variable ldvr */ | |||
| 26920 | ldvr = (compute_vr?n:1); | |||
| 26921 | /* Processing variable lwork */ | |||
| 26922 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else | |||
| 26923 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dggev() 3rd keyword (lwork) can't be converted to int"); | |||
| 26924 | if (f2py_success) { | |||
| 26925 | CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,8*n)),"(lwork==-1) || (lwork>=MAX(1,8*n))","3rd keyword lwork","dggev:lwork=%d",lwork)if (!((lwork==-1) || (lwork>=((1 > 8*n) ? (1) : (8*n))) )) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dggev:lwork=%d" , "(""(lwork==-1) || (lwork>=MAX(1,8*n))"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 26926 | /* Processing variable work */ | |||
| 26927 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 26928 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26929 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 26930 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 26931 | if (!PyErr_Occurred()) | |||
| 26932 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dggev to C/Fortran array" ); | |||
| 26933 | } else { | |||
| 26934 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 26935 | ||||
| 26936 | /* Processing variable vl */ | |||
| 26937 | vl_Dims[0]=ldvl,vl_Dims[1]=n; | |||
| 26938 | capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26939 | capi_vl_tmp = array_from_pyobj(NPY_DOUBLE,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct)); | |||
| 26940 | if (capi_vl_tmp == NULL((void*)0)) { | |||
| 26941 | if (!PyErr_Occurred()) | |||
| 26942 | PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.dggev to C/Fortran array" ); | |||
| 26943 | } else { | |||
| 26944 | vl = (double *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data)); | |||
| 26945 | ||||
| 26946 | /* Processing variable vr */ | |||
| 26947 | vr_Dims[0]=ldvr,vr_Dims[1]=n; | |||
| 26948 | capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 26949 | capi_vr_tmp = array_from_pyobj(NPY_DOUBLE,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct)); | |||
| 26950 | if (capi_vr_tmp == NULL((void*)0)) { | |||
| 26951 | if (!PyErr_Occurred()) | |||
| 26952 | PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.dggev to C/Fortran array" ); | |||
| 26953 | } else { | |||
| 26954 | vr = (double *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data)); | |||
| 26955 | ||||
| 26956 | /*end of frompyobj*/ | |||
| 26957 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26958 | f2py_start_call_clock(); | |||
| 26959 | #endif | |||
| 26960 | /*callfortranroutine*/ | |||
| 26961 | {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info);} ; | |||
| 26962 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info);*/ | |||
| 26963 | if (PyErr_Occurred()) | |||
| 26964 | f2py_success = 0; | |||
| 26965 | #ifdef F2PY_REPORT_ATEXIT | |||
| 26966 | f2py_stop_call_clock(); | |||
| 26967 | #endif | |||
| 26968 | /*end of callfortranroutine*/ | |||
| 26969 | if (f2py_success) { | |||
| 26970 | /*pyobjfrom*/ | |||
| 26971 | /*end of pyobjfrom*/ | |||
| 26972 | CFUNCSMESS("Building return value.\n"); | |||
| 26973 | capi_buildvalue = Py_BuildValue("NNNNNNi",capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,capi_work_tmp,info); | |||
| 26974 | /*closepyobjfrom*/ | |||
| 26975 | /*end of closepyobjfrom*/ | |||
| 26976 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 26977 | /*cleanupfrompyobj*/ | |||
| 26978 | } /*if (capi_vr_tmp == NULL) ... else of vr*/ | |||
| 26979 | /* End of cleaning variable vr */ | |||
| 26980 | } /*if (capi_vl_tmp == NULL) ... else of vl*/ | |||
| 26981 | /* End of cleaning variable vl */ | |||
| 26982 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 26983 | /* End of cleaning variable work */ | |||
| 26984 | } /*CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,8*n)))*/ | |||
| 26985 | } /*if (f2py_success) of lwork*/ | |||
| 26986 | /* End of cleaning variable lwork */ | |||
| 26987 | /* End of cleaning variable ldvr */ | |||
| 26988 | /* End of cleaning variable ldvl */ | |||
| 26989 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 26990 | /* End of cleaning variable beta */ | |||
| 26991 | } /*if (capi_alphai_tmp == NULL) ... else of alphai*/ | |||
| 26992 | /* End of cleaning variable alphai */ | |||
| 26993 | } /*if (capi_alphar_tmp == NULL) ... else of alphar*/ | |||
| 26994 | /* End of cleaning variable alphar */ | |||
| 26995 | /* End of cleaning variable n */ | |||
| 26996 | /* End of cleaning variable info */ | |||
| 26997 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 26998 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 26999 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 27000 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 27001 | /* End of cleaning variable b */ | |||
| 27002 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 27003 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 27004 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 27005 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 27006 | /* End of cleaning variable a */ | |||
| 27007 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 27008 | } /*if (f2py_success) of compute_vr*/ | |||
| 27009 | /* End of cleaning variable compute_vr */ | |||
| 27010 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 27011 | } /*if (f2py_success) of compute_vl*/ | |||
| 27012 | /* End of cleaning variable compute_vl */ | |||
| 27013 | /*end of cleanupfrompyobj*/ | |||
| 27014 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 27015 | /*routdebugfailure*/ | |||
| 27016 | } else { | |||
| 27017 | /*routdebugleave*/ | |||
| 27018 | } | |||
| 27019 | CFUNCSMESS("Freeing memory.\n"); | |||
| 27020 | /*freemem*/ | |||
| 27021 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27022 | f2py_stop_clock(); | |||
| 27023 | #endif | |||
| 27024 | return capi_buildvalue; | |||
| 27025 | } | |||
| 27026 | /******************************** end of dggev ********************************/ | |||
| 27027 | ||||
| 27028 | /*********************************** cggev ***********************************/ | |||
| 27029 | static char doc_f2py_rout__flapack_cggev[] = "\ | |||
| 27030 | alpha,beta,vl,vr,work,info = cggev(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``cggev``.\ | |||
| 27031 | \n\nParameters\n----------\n" | |||
| 27032 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 27033 | "b : input rank-2 array('F') with bounds (n,n)\n" | |||
| 27034 | "\nOther Parameters\n----------------\n" | |||
| 27035 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 27036 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 27037 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 27038 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 27039 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 27040 | "\nReturns\n-------\n" | |||
| 27041 | "alpha : rank-1 array('F') with bounds (n)\n" | |||
| 27042 | "beta : rank-1 array('F') with bounds (n)\n" | |||
| 27043 | "vl : rank-2 array('F') with bounds (ldvl,n)\n" | |||
| 27044 | "vr : rank-2 array('F') with bounds (ldvr,n)\n" | |||
| 27045 | "work : rank-1 array('F') with bounds (MAX(lwork,1))\n" | |||
| 27046 | "info : int"; | |||
| 27047 | /* extern void F_FUNC(cggev,CGGEV)(char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 27048 | static PyObject *f2py_rout__flapack_cggev(const PyObject *capi_self, | |||
| 27049 | PyObject *capi_args, | |||
| 27050 | PyObject *capi_keywds, | |||
| 27051 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 27052 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 27053 | volatile int f2py_success = 1; | |||
| 27054 | /*decl*/ | |||
| 27055 | ||||
| 27056 | int compute_vl = 0; | |||
| 27057 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 27058 | int compute_vr = 0; | |||
| 27059 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 27060 | int n = 0; | |||
| 27061 | complex_float *a = NULL((void*)0); | |||
| 27062 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 27063 | const int a_Rank = 2; | |||
| 27064 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 27065 | int capi_a_intent = 0; | |||
| 27066 | int capi_overwrite_a = 0; | |||
| 27067 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 27068 | complex_float *b = NULL((void*)0); | |||
| 27069 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 27070 | const int b_Rank = 2; | |||
| 27071 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 27072 | int capi_b_intent = 0; | |||
| 27073 | int capi_overwrite_b = 0; | |||
| 27074 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 27075 | complex_float *alpha = NULL((void*)0); | |||
| 27076 | npy_intp alpha_Dims[1] = {-1}; | |||
| 27077 | const int alpha_Rank = 1; | |||
| 27078 | PyArrayObject *capi_alpha_tmp = NULL((void*)0); | |||
| 27079 | int capi_alpha_intent = 0; | |||
| 27080 | complex_float *beta = NULL((void*)0); | |||
| 27081 | npy_intp beta_Dims[1] = {-1}; | |||
| 27082 | const int beta_Rank = 1; | |||
| 27083 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 27084 | int capi_beta_intent = 0; | |||
| 27085 | complex_float *vl = NULL((void*)0); | |||
| 27086 | npy_intp vl_Dims[2] = {-1, -1}; | |||
| 27087 | const int vl_Rank = 2; | |||
| 27088 | PyArrayObject *capi_vl_tmp = NULL((void*)0); | |||
| 27089 | int capi_vl_intent = 0; | |||
| 27090 | int ldvl = 0; | |||
| 27091 | complex_float *vr = NULL((void*)0); | |||
| 27092 | npy_intp vr_Dims[2] = {-1, -1}; | |||
| 27093 | const int vr_Rank = 2; | |||
| 27094 | PyArrayObject *capi_vr_tmp = NULL((void*)0); | |||
| 27095 | int capi_vr_intent = 0; | |||
| 27096 | int ldvr = 0; | |||
| 27097 | complex_float *work = NULL((void*)0); | |||
| 27098 | npy_intp work_Dims[1] = {-1}; | |||
| 27099 | const int work_Rank = 1; | |||
| 27100 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 27101 | int capi_work_intent = 0; | |||
| 27102 | int lwork = 0; | |||
| 27103 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 27104 | float *rwork = NULL((void*)0); | |||
| 27105 | npy_intp rwork_Dims[1] = {-1}; | |||
| 27106 | const int rwork_Rank = 1; | |||
| 27107 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 27108 | int capi_rwork_intent = 0; | |||
| 27109 | int info = 0; | |||
| 27110 | static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 27111 | ||||
| 27112 | /*routdebugenter*/ | |||
| 27113 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27114 | f2py_start_clock(); | |||
| 27115 | #endif | |||
| 27116 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 27117 | "OO|OOOii:_flapack.cggev",\ | |||
| 27118 | capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 27119 | return NULL((void*)0); | |||
| 27120 | /*frompyobj*/ | |||
| 27121 | /* Processing variable compute_vl */ | |||
| 27122 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 27123 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.cggev() 1st keyword (compute_vl) can't be converted to int"); | |||
| 27124 | if (f2py_success) { | |||
| 27125 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","cggev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cggev:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 27126 | /* Processing variable compute_vr */ | |||
| 27127 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 27128 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.cggev() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 27129 | if (f2py_success) { | |||
| 27130 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","cggev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cggev:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 27131 | /* Processing variable a */ | |||
| 27132 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 27133 | ; | |||
| 27134 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 27135 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 27136 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 27137 | if (!PyErr_Occurred()) | |||
| 27138 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cggev to C/Fortran array" ); | |||
| 27139 | } else { | |||
| 27140 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 27141 | ||||
| 27142 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 27143 | /* Processing variable b */ | |||
| 27144 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 27145 | ; | |||
| 27146 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 27147 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 27148 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 27149 | if (!PyErr_Occurred()) | |||
| 27150 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cggev to C/Fortran array" ); | |||
| 27151 | } else { | |||
| 27152 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 27153 | ||||
| 27154 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 27155 | /* Processing variable info */ | |||
| 27156 | /* Processing variable n */ | |||
| 27157 | n = shape(a,0)a_Dims[0]; | |||
| 27158 | /* Processing variable alpha */ | |||
| 27159 | alpha_Dims[0]=n; | |||
| 27160 | capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27161 | capi_alpha_tmp = array_from_pyobj(NPY_CFLOAT,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct)); | |||
| 27162 | if (capi_alpha_tmp == NULL((void*)0)) { | |||
| 27163 | if (!PyErr_Occurred()) | |||
| 27164 | PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.cggev to C/Fortran array" ); | |||
| 27165 | } else { | |||
| 27166 | alpha = (complex_float *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data)); | |||
| 27167 | ||||
| 27168 | /* Processing variable beta */ | |||
| 27169 | beta_Dims[0]=n; | |||
| 27170 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27171 | capi_beta_tmp = array_from_pyobj(NPY_CFLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 27172 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 27173 | if (!PyErr_Occurred()) | |||
| 27174 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.cggev to C/Fortran array" ); | |||
| 27175 | } else { | |||
| 27176 | beta = (complex_float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 27177 | ||||
| 27178 | /* Processing variable ldvl */ | |||
| 27179 | ldvl = (compute_vl?n:1); | |||
| 27180 | /* Processing variable ldvr */ | |||
| 27181 | ldvr = (compute_vr?n:1); | |||
| 27182 | /* Processing variable lwork */ | |||
| 27183 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 27184 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cggev() 3rd keyword (lwork) can't be converted to int"); | |||
| 27185 | if (f2py_success) { | |||
| 27186 | CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,2*n)),"(lwork==-1) || (lwork>=MAX(1,2*n))","3rd keyword lwork","cggev:lwork=%d",lwork)if (!((lwork==-1) || (lwork>=((1 > 2*n) ? (1) : (2*n))) )) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cggev:lwork=%d" , "(""(lwork==-1) || (lwork>=MAX(1,2*n))"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 27187 | /* Processing variable work */ | |||
| 27188 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 27189 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27190 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 27191 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 27192 | if (!PyErr_Occurred()) | |||
| 27193 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cggev to C/Fortran array" ); | |||
| 27194 | } else { | |||
| 27195 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 27196 | ||||
| 27197 | /* Processing variable rwork */ | |||
| 27198 | rwork_Dims[0]=8 * n; | |||
| 27199 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 27200 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 27201 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 27202 | if (!PyErr_Occurred()) | |||
| 27203 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cggev to C/Fortran array" ); | |||
| 27204 | } else { | |||
| 27205 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 27206 | ||||
| 27207 | /* Processing variable vl */ | |||
| 27208 | vl_Dims[0]=ldvl,vl_Dims[1]=n; | |||
| 27209 | capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27210 | capi_vl_tmp = array_from_pyobj(NPY_CFLOAT,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct)); | |||
| 27211 | if (capi_vl_tmp == NULL((void*)0)) { | |||
| 27212 | if (!PyErr_Occurred()) | |||
| 27213 | PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.cggev to C/Fortran array" ); | |||
| 27214 | } else { | |||
| 27215 | vl = (complex_float *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data)); | |||
| 27216 | ||||
| 27217 | /* Processing variable vr */ | |||
| 27218 | vr_Dims[0]=ldvr,vr_Dims[1]=n; | |||
| 27219 | capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27220 | capi_vr_tmp = array_from_pyobj(NPY_CFLOAT,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct)); | |||
| 27221 | if (capi_vr_tmp == NULL((void*)0)) { | |||
| 27222 | if (!PyErr_Occurred()) | |||
| 27223 | PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.cggev to C/Fortran array" ); | |||
| 27224 | } else { | |||
| 27225 | vr = (complex_float *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data)); | |||
| 27226 | ||||
| 27227 | /*end of frompyobj*/ | |||
| 27228 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27229 | f2py_start_call_clock(); | |||
| 27230 | #endif | |||
| 27231 | /*callfortranroutine*/ | |||
| 27232 | {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);} ; | |||
| 27233 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);*/ | |||
| 27234 | if (PyErr_Occurred()) | |||
| 27235 | f2py_success = 0; | |||
| 27236 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27237 | f2py_stop_call_clock(); | |||
| 27238 | #endif | |||
| 27239 | /*end of callfortranroutine*/ | |||
| 27240 | if (f2py_success) { | |||
| 27241 | /*pyobjfrom*/ | |||
| 27242 | /*end of pyobjfrom*/ | |||
| 27243 | CFUNCSMESS("Building return value.\n"); | |||
| 27244 | capi_buildvalue = Py_BuildValue("NNNNNi",capi_alpha_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,capi_work_tmp,info); | |||
| 27245 | /*closepyobjfrom*/ | |||
| 27246 | /*end of closepyobjfrom*/ | |||
| 27247 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 27248 | /*cleanupfrompyobj*/ | |||
| 27249 | } /*if (capi_vr_tmp == NULL) ... else of vr*/ | |||
| 27250 | /* End of cleaning variable vr */ | |||
| 27251 | } /*if (capi_vl_tmp == NULL) ... else of vl*/ | |||
| 27252 | /* End of cleaning variable vl */ | |||
| 27253 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 27254 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 27255 | /* End of cleaning variable rwork */ | |||
| 27256 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 27257 | /* End of cleaning variable work */ | |||
| 27258 | } /*CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,2*n)))*/ | |||
| 27259 | } /*if (f2py_success) of lwork*/ | |||
| 27260 | /* End of cleaning variable lwork */ | |||
| 27261 | /* End of cleaning variable ldvr */ | |||
| 27262 | /* End of cleaning variable ldvl */ | |||
| 27263 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 27264 | /* End of cleaning variable beta */ | |||
| 27265 | } /*if (capi_alpha_tmp == NULL) ... else of alpha*/ | |||
| 27266 | /* End of cleaning variable alpha */ | |||
| 27267 | /* End of cleaning variable n */ | |||
| 27268 | /* End of cleaning variable info */ | |||
| 27269 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 27270 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 27271 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 27272 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 27273 | /* End of cleaning variable b */ | |||
| 27274 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 27275 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 27276 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 27277 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 27278 | /* End of cleaning variable a */ | |||
| 27279 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 27280 | } /*if (f2py_success) of compute_vr*/ | |||
| 27281 | /* End of cleaning variable compute_vr */ | |||
| 27282 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 27283 | } /*if (f2py_success) of compute_vl*/ | |||
| 27284 | /* End of cleaning variable compute_vl */ | |||
| 27285 | /*end of cleanupfrompyobj*/ | |||
| 27286 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 27287 | /*routdebugfailure*/ | |||
| 27288 | } else { | |||
| 27289 | /*routdebugleave*/ | |||
| 27290 | } | |||
| 27291 | CFUNCSMESS("Freeing memory.\n"); | |||
| 27292 | /*freemem*/ | |||
| 27293 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27294 | f2py_stop_clock(); | |||
| 27295 | #endif | |||
| 27296 | return capi_buildvalue; | |||
| 27297 | } | |||
| 27298 | /******************************** end of cggev ********************************/ | |||
| 27299 | ||||
| 27300 | /*********************************** zggev ***********************************/ | |||
| 27301 | static char doc_f2py_rout__flapack_zggev[] = "\ | |||
| 27302 | alpha,beta,vl,vr,work,info = zggev(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``zggev``.\ | |||
| 27303 | \n\nParameters\n----------\n" | |||
| 27304 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 27305 | "b : input rank-2 array('D') with bounds (n,n)\n" | |||
| 27306 | "\nOther Parameters\n----------------\n" | |||
| 27307 | "compute_vl : input int, optional\n Default: 1\n" | |||
| 27308 | "compute_vr : input int, optional\n Default: 1\n" | |||
| 27309 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 27310 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 27311 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 27312 | "\nReturns\n-------\n" | |||
| 27313 | "alpha : rank-1 array('D') with bounds (n)\n" | |||
| 27314 | "beta : rank-1 array('D') with bounds (n)\n" | |||
| 27315 | "vl : rank-2 array('D') with bounds (ldvl,n)\n" | |||
| 27316 | "vr : rank-2 array('D') with bounds (ldvr,n)\n" | |||
| 27317 | "work : rank-1 array('D') with bounds (MAX(lwork,1))\n" | |||
| 27318 | "info : int"; | |||
| 27319 | /* extern void F_FUNC(zggev,ZGGEV)(char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 27320 | static PyObject *f2py_rout__flapack_zggev(const PyObject *capi_self, | |||
| 27321 | PyObject *capi_args, | |||
| 27322 | PyObject *capi_keywds, | |||
| 27323 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 27324 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 27325 | volatile int f2py_success = 1; | |||
| 27326 | /*decl*/ | |||
| 27327 | ||||
| 27328 | int compute_vl = 0; | |||
| 27329 | PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct); | |||
| 27330 | int compute_vr = 0; | |||
| 27331 | PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct); | |||
| 27332 | int n = 0; | |||
| 27333 | complex_double *a = NULL((void*)0); | |||
| 27334 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 27335 | const int a_Rank = 2; | |||
| 27336 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 27337 | int capi_a_intent = 0; | |||
| 27338 | int capi_overwrite_a = 0; | |||
| 27339 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 27340 | complex_double *b = NULL((void*)0); | |||
| 27341 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 27342 | const int b_Rank = 2; | |||
| 27343 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 27344 | int capi_b_intent = 0; | |||
| 27345 | int capi_overwrite_b = 0; | |||
| 27346 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 27347 | complex_double *alpha = NULL((void*)0); | |||
| 27348 | npy_intp alpha_Dims[1] = {-1}; | |||
| 27349 | const int alpha_Rank = 1; | |||
| 27350 | PyArrayObject *capi_alpha_tmp = NULL((void*)0); | |||
| 27351 | int capi_alpha_intent = 0; | |||
| 27352 | complex_double *beta = NULL((void*)0); | |||
| 27353 | npy_intp beta_Dims[1] = {-1}; | |||
| 27354 | const int beta_Rank = 1; | |||
| 27355 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 27356 | int capi_beta_intent = 0; | |||
| 27357 | complex_double *vl = NULL((void*)0); | |||
| 27358 | npy_intp vl_Dims[2] = {-1, -1}; | |||
| 27359 | const int vl_Rank = 2; | |||
| 27360 | PyArrayObject *capi_vl_tmp = NULL((void*)0); | |||
| 27361 | int capi_vl_intent = 0; | |||
| 27362 | int ldvl = 0; | |||
| 27363 | complex_double *vr = NULL((void*)0); | |||
| 27364 | npy_intp vr_Dims[2] = {-1, -1}; | |||
| 27365 | const int vr_Rank = 2; | |||
| 27366 | PyArrayObject *capi_vr_tmp = NULL((void*)0); | |||
| 27367 | int capi_vr_intent = 0; | |||
| 27368 | int ldvr = 0; | |||
| 27369 | complex_double *work = NULL((void*)0); | |||
| 27370 | npy_intp work_Dims[1] = {-1}; | |||
| 27371 | const int work_Rank = 1; | |||
| 27372 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 27373 | int capi_work_intent = 0; | |||
| 27374 | int lwork = 0; | |||
| 27375 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 27376 | double *rwork = NULL((void*)0); | |||
| 27377 | npy_intp rwork_Dims[1] = {-1}; | |||
| 27378 | const int rwork_Rank = 1; | |||
| 27379 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 27380 | int capi_rwork_intent = 0; | |||
| 27381 | int info = 0; | |||
| 27382 | static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 27383 | ||||
| 27384 | /*routdebugenter*/ | |||
| 27385 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27386 | f2py_start_clock(); | |||
| 27387 | #endif | |||
| 27388 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 27389 | "OO|OOOii:_flapack.zggev",\ | |||
| 27390 | capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 27391 | return NULL((void*)0); | |||
| 27392 | /*frompyobj*/ | |||
| 27393 | /* Processing variable compute_vl */ | |||
| 27394 | if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else | |||
| 27395 | f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.zggev() 1st keyword (compute_vl) can't be converted to int"); | |||
| 27396 | if (f2py_success) { | |||
| 27397 | CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","zggev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zggev:compute_vl=%d", "(""compute_vl==1||compute_vl==0" ") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 27398 | /* Processing variable compute_vr */ | |||
| 27399 | if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else | |||
| 27400 | f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.zggev() 2nd keyword (compute_vr) can't be converted to int"); | |||
| 27401 | if (f2py_success) { | |||
| 27402 | CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","zggev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zggev:compute_vr=%d", "(""compute_vr==1||compute_vr==0" ") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 27403 | /* Processing variable a */ | |||
| 27404 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 27405 | ; | |||
| 27406 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 27407 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 27408 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 27409 | if (!PyErr_Occurred()) | |||
| 27410 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zggev to C/Fortran array" ); | |||
| 27411 | } else { | |||
| 27412 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 27413 | ||||
| 27414 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 27415 | /* Processing variable b */ | |||
| 27416 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 27417 | ; | |||
| 27418 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 27419 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 27420 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 27421 | if (!PyErr_Occurred()) | |||
| 27422 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zggev to C/Fortran array" ); | |||
| 27423 | } else { | |||
| 27424 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 27425 | ||||
| 27426 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 27427 | /* Processing variable info */ | |||
| 27428 | /* Processing variable n */ | |||
| 27429 | n = shape(a,0)a_Dims[0]; | |||
| 27430 | /* Processing variable alpha */ | |||
| 27431 | alpha_Dims[0]=n; | |||
| 27432 | capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27433 | capi_alpha_tmp = array_from_pyobj(NPY_CDOUBLE,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct)); | |||
| 27434 | if (capi_alpha_tmp == NULL((void*)0)) { | |||
| 27435 | if (!PyErr_Occurred()) | |||
| 27436 | PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.zggev to C/Fortran array" ); | |||
| 27437 | } else { | |||
| 27438 | alpha = (complex_double *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data)); | |||
| 27439 | ||||
| 27440 | /* Processing variable beta */ | |||
| 27441 | beta_Dims[0]=n; | |||
| 27442 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27443 | capi_beta_tmp = array_from_pyobj(NPY_CDOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 27444 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 27445 | if (!PyErr_Occurred()) | |||
| 27446 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.zggev to C/Fortran array" ); | |||
| 27447 | } else { | |||
| 27448 | beta = (complex_double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 27449 | ||||
| 27450 | /* Processing variable ldvl */ | |||
| 27451 | ldvl = (compute_vl?n:1); | |||
| 27452 | /* Processing variable ldvr */ | |||
| 27453 | ldvr = (compute_vr?n:1); | |||
| 27454 | /* Processing variable lwork */ | |||
| 27455 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 27456 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zggev() 3rd keyword (lwork) can't be converted to int"); | |||
| 27457 | if (f2py_success) { | |||
| 27458 | CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,2*n)),"(lwork==-1) || (lwork>=MAX(1,2*n))","3rd keyword lwork","zggev:lwork=%d",lwork)if (!((lwork==-1) || (lwork>=((1 > 2*n) ? (1) : (2*n))) )) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zggev:lwork=%d" , "(""(lwork==-1) || (lwork>=MAX(1,2*n))"") failed for ""3rd keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 27459 | /* Processing variable work */ | |||
| 27460 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 27461 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27462 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 27463 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 27464 | if (!PyErr_Occurred()) | |||
| 27465 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zggev to C/Fortran array" ); | |||
| 27466 | } else { | |||
| 27467 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 27468 | ||||
| 27469 | /* Processing variable rwork */ | |||
| 27470 | rwork_Dims[0]=8 * n; | |||
| 27471 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 27472 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 27473 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 27474 | if (!PyErr_Occurred()) | |||
| 27475 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zggev to C/Fortran array" ); | |||
| 27476 | } else { | |||
| 27477 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 27478 | ||||
| 27479 | /* Processing variable vl */ | |||
| 27480 | vl_Dims[0]=ldvl,vl_Dims[1]=n; | |||
| 27481 | capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27482 | capi_vl_tmp = array_from_pyobj(NPY_CDOUBLE,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct)); | |||
| 27483 | if (capi_vl_tmp == NULL((void*)0)) { | |||
| 27484 | if (!PyErr_Occurred()) | |||
| 27485 | PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.zggev to C/Fortran array" ); | |||
| 27486 | } else { | |||
| 27487 | vl = (complex_double *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data)); | |||
| 27488 | ||||
| 27489 | /* Processing variable vr */ | |||
| 27490 | vr_Dims[0]=ldvr,vr_Dims[1]=n; | |||
| 27491 | capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27492 | capi_vr_tmp = array_from_pyobj(NPY_CDOUBLE,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct)); | |||
| 27493 | if (capi_vr_tmp == NULL((void*)0)) { | |||
| 27494 | if (!PyErr_Occurred()) | |||
| 27495 | PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.zggev to C/Fortran array" ); | |||
| 27496 | } else { | |||
| 27497 | vr = (complex_double *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data)); | |||
| 27498 | ||||
| 27499 | /*end of frompyobj*/ | |||
| 27500 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27501 | f2py_start_call_clock(); | |||
| 27502 | #endif | |||
| 27503 | /*callfortranroutine*/ | |||
| 27504 | {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);} ; | |||
| 27505 | /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);*/ | |||
| 27506 | if (PyErr_Occurred()) | |||
| 27507 | f2py_success = 0; | |||
| 27508 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27509 | f2py_stop_call_clock(); | |||
| 27510 | #endif | |||
| 27511 | /*end of callfortranroutine*/ | |||
| 27512 | if (f2py_success) { | |||
| 27513 | /*pyobjfrom*/ | |||
| 27514 | /*end of pyobjfrom*/ | |||
| 27515 | CFUNCSMESS("Building return value.\n"); | |||
| 27516 | capi_buildvalue = Py_BuildValue("NNNNNi",capi_alpha_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,capi_work_tmp,info); | |||
| 27517 | /*closepyobjfrom*/ | |||
| 27518 | /*end of closepyobjfrom*/ | |||
| 27519 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 27520 | /*cleanupfrompyobj*/ | |||
| 27521 | } /*if (capi_vr_tmp == NULL) ... else of vr*/ | |||
| 27522 | /* End of cleaning variable vr */ | |||
| 27523 | } /*if (capi_vl_tmp == NULL) ... else of vl*/ | |||
| 27524 | /* End of cleaning variable vl */ | |||
| 27525 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 27526 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 27527 | /* End of cleaning variable rwork */ | |||
| 27528 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 27529 | /* End of cleaning variable work */ | |||
| 27530 | } /*CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,2*n)))*/ | |||
| 27531 | } /*if (f2py_success) of lwork*/ | |||
| 27532 | /* End of cleaning variable lwork */ | |||
| 27533 | /* End of cleaning variable ldvr */ | |||
| 27534 | /* End of cleaning variable ldvl */ | |||
| 27535 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 27536 | /* End of cleaning variable beta */ | |||
| 27537 | } /*if (capi_alpha_tmp == NULL) ... else of alpha*/ | |||
| 27538 | /* End of cleaning variable alpha */ | |||
| 27539 | /* End of cleaning variable n */ | |||
| 27540 | /* End of cleaning variable info */ | |||
| 27541 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 27542 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 27543 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 27544 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 27545 | /* End of cleaning variable b */ | |||
| 27546 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 27547 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 27548 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 27549 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 27550 | /* End of cleaning variable a */ | |||
| 27551 | } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/ | |||
| 27552 | } /*if (f2py_success) of compute_vr*/ | |||
| 27553 | /* End of cleaning variable compute_vr */ | |||
| 27554 | } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/ | |||
| 27555 | } /*if (f2py_success) of compute_vl*/ | |||
| 27556 | /* End of cleaning variable compute_vl */ | |||
| 27557 | /*end of cleanupfrompyobj*/ | |||
| 27558 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 27559 | /*routdebugfailure*/ | |||
| 27560 | } else { | |||
| 27561 | /*routdebugleave*/ | |||
| 27562 | } | |||
| 27563 | CFUNCSMESS("Freeing memory.\n"); | |||
| 27564 | /*freemem*/ | |||
| 27565 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27566 | f2py_stop_clock(); | |||
| 27567 | #endif | |||
| 27568 | return capi_buildvalue; | |||
| 27569 | } | |||
| 27570 | /******************************** end of zggev ********************************/ | |||
| 27571 | ||||
| 27572 | /*********************************** sgeequ ***********************************/ | |||
| 27573 | static char doc_f2py_rout__flapack_sgeequ[] = "\ | |||
| 27574 | r,c,rowcnd,colcnd,amax,info = sgeequ(a)\n\nWrapper for ``sgeequ``.\ | |||
| 27575 | \n\nParameters\n----------\n" | |||
| 27576 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 27577 | "\nReturns\n-------\n" | |||
| 27578 | "r : rank-1 array('f') with bounds (m)\n" | |||
| 27579 | "c : rank-1 array('f') with bounds (n)\n" | |||
| 27580 | "rowcnd : float\n" | |||
| 27581 | "colcnd : float\n" | |||
| 27582 | "amax : float\n" | |||
| 27583 | "info : int"; | |||
| 27584 | /* extern void F_FUNC(sgeequ,SGEEQU)(F_INT*,F_INT*,float*,F_INT*,float*,float*,float*,float*,float*,F_INT* ); */ | |||
| 27585 | static PyObject *f2py_rout__flapack_sgeequ(const PyObject *capi_self, | |||
| 27586 | PyObject *capi_args, | |||
| 27587 | PyObject *capi_keywds, | |||
| 27588 | void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* )) { | |||
| 27589 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 27590 | volatile int f2py_success = 1; | |||
| 27591 | /*decl*/ | |||
| 27592 | ||||
| 27593 | int m = 0; | |||
| 27594 | int n = 0; | |||
| 27595 | float *a = NULL((void*)0); | |||
| 27596 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 27597 | const int a_Rank = 2; | |||
| 27598 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 27599 | int capi_a_intent = 0; | |||
| 27600 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 27601 | int lda = 0; | |||
| 27602 | float *r = NULL((void*)0); | |||
| 27603 | npy_intp r_Dims[1] = {-1}; | |||
| 27604 | const int r_Rank = 1; | |||
| 27605 | PyArrayObject *capi_r_tmp = NULL((void*)0); | |||
| 27606 | int capi_r_intent = 0; | |||
| 27607 | float *c = NULL((void*)0); | |||
| 27608 | npy_intp c_Dims[1] = {-1}; | |||
| 27609 | const int c_Rank = 1; | |||
| 27610 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 27611 | int capi_c_intent = 0; | |||
| 27612 | float rowcnd = 0; | |||
| 27613 | float colcnd = 0; | |||
| 27614 | float amax = 0; | |||
| 27615 | int info = 0; | |||
| 27616 | static char *capi_kwlist[] = {"a",NULL((void*)0)}; | |||
| 27617 | ||||
| 27618 | /*routdebugenter*/ | |||
| 27619 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27620 | f2py_start_clock(); | |||
| 27621 | #endif | |||
| 27622 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 27623 | "O:_flapack.sgeequ",\ | |||
| 27624 | capi_kwlist,&a_capi)) | |||
| 27625 | return NULL((void*)0); | |||
| 27626 | /*frompyobj*/ | |||
| 27627 | /* Processing variable a */ | |||
| 27628 | ; | |||
| 27629 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 27630 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 27631 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 27632 | if (!PyErr_Occurred()) | |||
| 27633 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgeequ to C/Fortran array" ); | |||
| 27634 | } else { | |||
| 27635 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 27636 | ||||
| 27637 | /* Processing variable rowcnd */ | |||
| 27638 | /* Processing variable colcnd */ | |||
| 27639 | /* Processing variable amax */ | |||
| 27640 | /* Processing variable info */ | |||
| 27641 | /* Processing variable m */ | |||
| 27642 | m = shape(a,0)a_Dims[0]; | |||
| 27643 | /* Processing variable n */ | |||
| 27644 | n = shape(a,1)a_Dims[1]; | |||
| 27645 | /* Processing variable lda */ | |||
| 27646 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 27647 | /* Processing variable r */ | |||
| 27648 | r_Dims[0]=m; | |||
| 27649 | capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27650 | capi_r_tmp = array_from_pyobj(NPY_FLOAT,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct)); | |||
| 27651 | if (capi_r_tmp == NULL((void*)0)) { | |||
| 27652 | if (!PyErr_Occurred()) | |||
| 27653 | PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.sgeequ to C/Fortran array" ); | |||
| 27654 | } else { | |||
| 27655 | r = (float *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data)); | |||
| 27656 | ||||
| 27657 | /* Processing variable c */ | |||
| 27658 | c_Dims[0]=n; | |||
| 27659 | capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27660 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct)); | |||
| 27661 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 27662 | if (!PyErr_Occurred()) | |||
| 27663 | PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.sgeequ to C/Fortran array" ); | |||
| 27664 | } else { | |||
| 27665 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 27666 | ||||
| 27667 | /*end of frompyobj*/ | |||
| 27668 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27669 | f2py_start_call_clock(); | |||
| 27670 | #endif | |||
| 27671 | /*callfortranroutine*/ | |||
| 27672 | (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ; | |||
| 27673 | /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/ | |||
| 27674 | if (PyErr_Occurred()) | |||
| 27675 | f2py_success = 0; | |||
| 27676 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27677 | f2py_stop_call_clock(); | |||
| 27678 | #endif | |||
| 27679 | /*end of callfortranroutine*/ | |||
| 27680 | if (f2py_success) { | |||
| 27681 | /*pyobjfrom*/ | |||
| 27682 | /*end of pyobjfrom*/ | |||
| 27683 | CFUNCSMESS("Building return value.\n"); | |||
| 27684 | capi_buildvalue = Py_BuildValue("NNfffi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info); | |||
| 27685 | /*closepyobjfrom*/ | |||
| 27686 | /*end of closepyobjfrom*/ | |||
| 27687 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 27688 | /*cleanupfrompyobj*/ | |||
| 27689 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 27690 | /* End of cleaning variable c */ | |||
| 27691 | } /*if (capi_r_tmp == NULL) ... else of r*/ | |||
| 27692 | /* End of cleaning variable r */ | |||
| 27693 | /* End of cleaning variable lda */ | |||
| 27694 | /* End of cleaning variable n */ | |||
| 27695 | /* End of cleaning variable m */ | |||
| 27696 | /* End of cleaning variable info */ | |||
| 27697 | /* End of cleaning variable amax */ | |||
| 27698 | /* End of cleaning variable colcnd */ | |||
| 27699 | /* End of cleaning variable rowcnd */ | |||
| 27700 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 27701 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 27702 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 27703 | /* End of cleaning variable a */ | |||
| 27704 | /*end of cleanupfrompyobj*/ | |||
| 27705 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 27706 | /*routdebugfailure*/ | |||
| 27707 | } else { | |||
| 27708 | /*routdebugleave*/ | |||
| 27709 | } | |||
| 27710 | CFUNCSMESS("Freeing memory.\n"); | |||
| 27711 | /*freemem*/ | |||
| 27712 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27713 | f2py_stop_clock(); | |||
| 27714 | #endif | |||
| 27715 | return capi_buildvalue; | |||
| 27716 | } | |||
| 27717 | /******************************* end of sgeequ *******************************/ | |||
| 27718 | ||||
| 27719 | /*********************************** dgeequ ***********************************/ | |||
| 27720 | static char doc_f2py_rout__flapack_dgeequ[] = "\ | |||
| 27721 | r,c,rowcnd,colcnd,amax,info = dgeequ(a)\n\nWrapper for ``dgeequ``.\ | |||
| 27722 | \n\nParameters\n----------\n" | |||
| 27723 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 27724 | "\nReturns\n-------\n" | |||
| 27725 | "r : rank-1 array('d') with bounds (m)\n" | |||
| 27726 | "c : rank-1 array('d') with bounds (n)\n" | |||
| 27727 | "rowcnd : float\n" | |||
| 27728 | "colcnd : float\n" | |||
| 27729 | "amax : float\n" | |||
| 27730 | "info : int"; | |||
| 27731 | /* extern void F_FUNC(dgeequ,DGEEQU)(F_INT*,F_INT*,double*,F_INT*,double*,double*,double*,double*,double*,F_INT* ); */ | |||
| 27732 | static PyObject *f2py_rout__flapack_dgeequ(const PyObject *capi_self, | |||
| 27733 | PyObject *capi_args, | |||
| 27734 | PyObject *capi_keywds, | |||
| 27735 | void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* )) { | |||
| 27736 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 27737 | volatile int f2py_success = 1; | |||
| 27738 | /*decl*/ | |||
| 27739 | ||||
| 27740 | int m = 0; | |||
| 27741 | int n = 0; | |||
| 27742 | double *a = NULL((void*)0); | |||
| 27743 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 27744 | const int a_Rank = 2; | |||
| 27745 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 27746 | int capi_a_intent = 0; | |||
| 27747 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 27748 | int lda = 0; | |||
| 27749 | double *r = NULL((void*)0); | |||
| 27750 | npy_intp r_Dims[1] = {-1}; | |||
| 27751 | const int r_Rank = 1; | |||
| 27752 | PyArrayObject *capi_r_tmp = NULL((void*)0); | |||
| 27753 | int capi_r_intent = 0; | |||
| 27754 | double *c = NULL((void*)0); | |||
| 27755 | npy_intp c_Dims[1] = {-1}; | |||
| 27756 | const int c_Rank = 1; | |||
| 27757 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 27758 | int capi_c_intent = 0; | |||
| 27759 | double rowcnd = 0; | |||
| 27760 | double colcnd = 0; | |||
| 27761 | double amax = 0; | |||
| 27762 | int info = 0; | |||
| 27763 | static char *capi_kwlist[] = {"a",NULL((void*)0)}; | |||
| 27764 | ||||
| 27765 | /*routdebugenter*/ | |||
| 27766 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27767 | f2py_start_clock(); | |||
| 27768 | #endif | |||
| 27769 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 27770 | "O:_flapack.dgeequ",\ | |||
| 27771 | capi_kwlist,&a_capi)) | |||
| 27772 | return NULL((void*)0); | |||
| 27773 | /*frompyobj*/ | |||
| 27774 | /* Processing variable a */ | |||
| 27775 | ; | |||
| 27776 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 27777 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 27778 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 27779 | if (!PyErr_Occurred()) | |||
| 27780 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgeequ to C/Fortran array" ); | |||
| 27781 | } else { | |||
| 27782 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 27783 | ||||
| 27784 | /* Processing variable rowcnd */ | |||
| 27785 | /* Processing variable colcnd */ | |||
| 27786 | /* Processing variable amax */ | |||
| 27787 | /* Processing variable info */ | |||
| 27788 | /* Processing variable m */ | |||
| 27789 | m = shape(a,0)a_Dims[0]; | |||
| 27790 | /* Processing variable n */ | |||
| 27791 | n = shape(a,1)a_Dims[1]; | |||
| 27792 | /* Processing variable lda */ | |||
| 27793 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 27794 | /* Processing variable r */ | |||
| 27795 | r_Dims[0]=m; | |||
| 27796 | capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27797 | capi_r_tmp = array_from_pyobj(NPY_DOUBLE,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct)); | |||
| 27798 | if (capi_r_tmp == NULL((void*)0)) { | |||
| 27799 | if (!PyErr_Occurred()) | |||
| 27800 | PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.dgeequ to C/Fortran array" ); | |||
| 27801 | } else { | |||
| 27802 | r = (double *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data)); | |||
| 27803 | ||||
| 27804 | /* Processing variable c */ | |||
| 27805 | c_Dims[0]=n; | |||
| 27806 | capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27807 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct)); | |||
| 27808 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 27809 | if (!PyErr_Occurred()) | |||
| 27810 | PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.dgeequ to C/Fortran array" ); | |||
| 27811 | } else { | |||
| 27812 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 27813 | ||||
| 27814 | /*end of frompyobj*/ | |||
| 27815 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27816 | f2py_start_call_clock(); | |||
| 27817 | #endif | |||
| 27818 | /*callfortranroutine*/ | |||
| 27819 | (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ; | |||
| 27820 | /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/ | |||
| 27821 | if (PyErr_Occurred()) | |||
| 27822 | f2py_success = 0; | |||
| 27823 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27824 | f2py_stop_call_clock(); | |||
| 27825 | #endif | |||
| 27826 | /*end of callfortranroutine*/ | |||
| 27827 | if (f2py_success) { | |||
| 27828 | /*pyobjfrom*/ | |||
| 27829 | /*end of pyobjfrom*/ | |||
| 27830 | CFUNCSMESS("Building return value.\n"); | |||
| 27831 | capi_buildvalue = Py_BuildValue("NNdddi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info); | |||
| 27832 | /*closepyobjfrom*/ | |||
| 27833 | /*end of closepyobjfrom*/ | |||
| 27834 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 27835 | /*cleanupfrompyobj*/ | |||
| 27836 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 27837 | /* End of cleaning variable c */ | |||
| 27838 | } /*if (capi_r_tmp == NULL) ... else of r*/ | |||
| 27839 | /* End of cleaning variable r */ | |||
| 27840 | /* End of cleaning variable lda */ | |||
| 27841 | /* End of cleaning variable n */ | |||
| 27842 | /* End of cleaning variable m */ | |||
| 27843 | /* End of cleaning variable info */ | |||
| 27844 | /* End of cleaning variable amax */ | |||
| 27845 | /* End of cleaning variable colcnd */ | |||
| 27846 | /* End of cleaning variable rowcnd */ | |||
| 27847 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 27848 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 27849 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 27850 | /* End of cleaning variable a */ | |||
| 27851 | /*end of cleanupfrompyobj*/ | |||
| 27852 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 27853 | /*routdebugfailure*/ | |||
| 27854 | } else { | |||
| 27855 | /*routdebugleave*/ | |||
| 27856 | } | |||
| 27857 | CFUNCSMESS("Freeing memory.\n"); | |||
| 27858 | /*freemem*/ | |||
| 27859 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27860 | f2py_stop_clock(); | |||
| 27861 | #endif | |||
| 27862 | return capi_buildvalue; | |||
| 27863 | } | |||
| 27864 | /******************************* end of dgeequ *******************************/ | |||
| 27865 | ||||
| 27866 | /*********************************** cgeequ ***********************************/ | |||
| 27867 | static char doc_f2py_rout__flapack_cgeequ[] = "\ | |||
| 27868 | r,c,rowcnd,colcnd,amax,info = cgeequ(a)\n\nWrapper for ``cgeequ``.\ | |||
| 27869 | \n\nParameters\n----------\n" | |||
| 27870 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 27871 | "\nReturns\n-------\n" | |||
| 27872 | "r : rank-1 array('f') with bounds (m)\n" | |||
| 27873 | "c : rank-1 array('f') with bounds (n)\n" | |||
| 27874 | "rowcnd : float\n" | |||
| 27875 | "colcnd : float\n" | |||
| 27876 | "amax : float\n" | |||
| 27877 | "info : int"; | |||
| 27878 | /* extern void F_FUNC(cgeequ,CGEEQU)(F_INT*,F_INT*,complex_float*,F_INT*,float*,float*,float*,float*,float*,F_INT* ); */ | |||
| 27879 | static PyObject *f2py_rout__flapack_cgeequ(const PyObject *capi_self, | |||
| 27880 | PyObject *capi_args, | |||
| 27881 | PyObject *capi_keywds, | |||
| 27882 | void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* )) { | |||
| 27883 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 27884 | volatile int f2py_success = 1; | |||
| 27885 | /*decl*/ | |||
| 27886 | ||||
| 27887 | int m = 0; | |||
| 27888 | int n = 0; | |||
| 27889 | complex_float *a = NULL((void*)0); | |||
| 27890 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 27891 | const int a_Rank = 2; | |||
| 27892 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 27893 | int capi_a_intent = 0; | |||
| 27894 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 27895 | int lda = 0; | |||
| 27896 | float *r = NULL((void*)0); | |||
| 27897 | npy_intp r_Dims[1] = {-1}; | |||
| 27898 | const int r_Rank = 1; | |||
| 27899 | PyArrayObject *capi_r_tmp = NULL((void*)0); | |||
| 27900 | int capi_r_intent = 0; | |||
| 27901 | float *c = NULL((void*)0); | |||
| 27902 | npy_intp c_Dims[1] = {-1}; | |||
| 27903 | const int c_Rank = 1; | |||
| 27904 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 27905 | int capi_c_intent = 0; | |||
| 27906 | float rowcnd = 0; | |||
| 27907 | float colcnd = 0; | |||
| 27908 | float amax = 0; | |||
| 27909 | int info = 0; | |||
| 27910 | static char *capi_kwlist[] = {"a",NULL((void*)0)}; | |||
| 27911 | ||||
| 27912 | /*routdebugenter*/ | |||
| 27913 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27914 | f2py_start_clock(); | |||
| 27915 | #endif | |||
| 27916 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 27917 | "O:_flapack.cgeequ",\ | |||
| 27918 | capi_kwlist,&a_capi)) | |||
| 27919 | return NULL((void*)0); | |||
| 27920 | /*frompyobj*/ | |||
| 27921 | /* Processing variable a */ | |||
| 27922 | ; | |||
| 27923 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 27924 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 27925 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 27926 | if (!PyErr_Occurred()) | |||
| 27927 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgeequ to C/Fortran array" ); | |||
| 27928 | } else { | |||
| 27929 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 27930 | ||||
| 27931 | /* Processing variable rowcnd */ | |||
| 27932 | /* Processing variable colcnd */ | |||
| 27933 | /* Processing variable amax */ | |||
| 27934 | /* Processing variable info */ | |||
| 27935 | /* Processing variable m */ | |||
| 27936 | m = shape(a,0)a_Dims[0]; | |||
| 27937 | /* Processing variable n */ | |||
| 27938 | n = shape(a,1)a_Dims[1]; | |||
| 27939 | /* Processing variable lda */ | |||
| 27940 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 27941 | /* Processing variable r */ | |||
| 27942 | r_Dims[0]=m; | |||
| 27943 | capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27944 | capi_r_tmp = array_from_pyobj(NPY_FLOAT,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct)); | |||
| 27945 | if (capi_r_tmp == NULL((void*)0)) { | |||
| 27946 | if (!PyErr_Occurred()) | |||
| 27947 | PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.cgeequ to C/Fortran array" ); | |||
| 27948 | } else { | |||
| 27949 | r = (float *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data)); | |||
| 27950 | ||||
| 27951 | /* Processing variable c */ | |||
| 27952 | c_Dims[0]=n; | |||
| 27953 | capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 27954 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct)); | |||
| 27955 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 27956 | if (!PyErr_Occurred()) | |||
| 27957 | PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.cgeequ to C/Fortran array" ); | |||
| 27958 | } else { | |||
| 27959 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 27960 | ||||
| 27961 | /*end of frompyobj*/ | |||
| 27962 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27963 | f2py_start_call_clock(); | |||
| 27964 | #endif | |||
| 27965 | /*callfortranroutine*/ | |||
| 27966 | (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ; | |||
| 27967 | /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/ | |||
| 27968 | if (PyErr_Occurred()) | |||
| 27969 | f2py_success = 0; | |||
| 27970 | #ifdef F2PY_REPORT_ATEXIT | |||
| 27971 | f2py_stop_call_clock(); | |||
| 27972 | #endif | |||
| 27973 | /*end of callfortranroutine*/ | |||
| 27974 | if (f2py_success) { | |||
| 27975 | /*pyobjfrom*/ | |||
| 27976 | /*end of pyobjfrom*/ | |||
| 27977 | CFUNCSMESS("Building return value.\n"); | |||
| 27978 | capi_buildvalue = Py_BuildValue("NNfffi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info); | |||
| 27979 | /*closepyobjfrom*/ | |||
| 27980 | /*end of closepyobjfrom*/ | |||
| 27981 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 27982 | /*cleanupfrompyobj*/ | |||
| 27983 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 27984 | /* End of cleaning variable c */ | |||
| 27985 | } /*if (capi_r_tmp == NULL) ... else of r*/ | |||
| 27986 | /* End of cleaning variable r */ | |||
| 27987 | /* End of cleaning variable lda */ | |||
| 27988 | /* End of cleaning variable n */ | |||
| 27989 | /* End of cleaning variable m */ | |||
| 27990 | /* End of cleaning variable info */ | |||
| 27991 | /* End of cleaning variable amax */ | |||
| 27992 | /* End of cleaning variable colcnd */ | |||
| 27993 | /* End of cleaning variable rowcnd */ | |||
| 27994 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 27995 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 27996 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 27997 | /* End of cleaning variable a */ | |||
| 27998 | /*end of cleanupfrompyobj*/ | |||
| 27999 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 28000 | /*routdebugfailure*/ | |||
| 28001 | } else { | |||
| 28002 | /*routdebugleave*/ | |||
| 28003 | } | |||
| 28004 | CFUNCSMESS("Freeing memory.\n"); | |||
| 28005 | /*freemem*/ | |||
| 28006 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28007 | f2py_stop_clock(); | |||
| 28008 | #endif | |||
| 28009 | return capi_buildvalue; | |||
| 28010 | } | |||
| 28011 | /******************************* end of cgeequ *******************************/ | |||
| 28012 | ||||
| 28013 | /*********************************** zgeequ ***********************************/ | |||
| 28014 | static char doc_f2py_rout__flapack_zgeequ[] = "\ | |||
| 28015 | r,c,rowcnd,colcnd,amax,info = zgeequ(a)\n\nWrapper for ``zgeequ``.\ | |||
| 28016 | \n\nParameters\n----------\n" | |||
| 28017 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 28018 | "\nReturns\n-------\n" | |||
| 28019 | "r : rank-1 array('d') with bounds (m)\n" | |||
| 28020 | "c : rank-1 array('d') with bounds (n)\n" | |||
| 28021 | "rowcnd : float\n" | |||
| 28022 | "colcnd : float\n" | |||
| 28023 | "amax : float\n" | |||
| 28024 | "info : int"; | |||
| 28025 | /* extern void F_FUNC(zgeequ,ZGEEQU)(F_INT*,F_INT*,complex_double*,F_INT*,double*,double*,double*,double*,double*,F_INT* ); */ | |||
| 28026 | static PyObject *f2py_rout__flapack_zgeequ(const PyObject *capi_self, | |||
| 28027 | PyObject *capi_args, | |||
| 28028 | PyObject *capi_keywds, | |||
| 28029 | void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* )) { | |||
| 28030 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 28031 | volatile int f2py_success = 1; | |||
| 28032 | /*decl*/ | |||
| 28033 | ||||
| 28034 | int m = 0; | |||
| 28035 | int n = 0; | |||
| 28036 | complex_double *a = NULL((void*)0); | |||
| 28037 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 28038 | const int a_Rank = 2; | |||
| 28039 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 28040 | int capi_a_intent = 0; | |||
| 28041 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 28042 | int lda = 0; | |||
| 28043 | double *r = NULL((void*)0); | |||
| 28044 | npy_intp r_Dims[1] = {-1}; | |||
| 28045 | const int r_Rank = 1; | |||
| 28046 | PyArrayObject *capi_r_tmp = NULL((void*)0); | |||
| 28047 | int capi_r_intent = 0; | |||
| 28048 | double *c = NULL((void*)0); | |||
| 28049 | npy_intp c_Dims[1] = {-1}; | |||
| 28050 | const int c_Rank = 1; | |||
| 28051 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 28052 | int capi_c_intent = 0; | |||
| 28053 | double rowcnd = 0; | |||
| 28054 | double colcnd = 0; | |||
| 28055 | double amax = 0; | |||
| 28056 | int info = 0; | |||
| 28057 | static char *capi_kwlist[] = {"a",NULL((void*)0)}; | |||
| 28058 | ||||
| 28059 | /*routdebugenter*/ | |||
| 28060 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28061 | f2py_start_clock(); | |||
| 28062 | #endif | |||
| 28063 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 28064 | "O:_flapack.zgeequ",\ | |||
| 28065 | capi_kwlist,&a_capi)) | |||
| 28066 | return NULL((void*)0); | |||
| 28067 | /*frompyobj*/ | |||
| 28068 | /* Processing variable a */ | |||
| 28069 | ; | |||
| 28070 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 28071 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 28072 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 28073 | if (!PyErr_Occurred()) | |||
| 28074 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgeequ to C/Fortran array" ); | |||
| 28075 | } else { | |||
| 28076 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 28077 | ||||
| 28078 | /* Processing variable rowcnd */ | |||
| 28079 | /* Processing variable colcnd */ | |||
| 28080 | /* Processing variable amax */ | |||
| 28081 | /* Processing variable info */ | |||
| 28082 | /* Processing variable m */ | |||
| 28083 | m = shape(a,0)a_Dims[0]; | |||
| 28084 | /* Processing variable n */ | |||
| 28085 | n = shape(a,1)a_Dims[1]; | |||
| 28086 | /* Processing variable lda */ | |||
| 28087 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 28088 | /* Processing variable r */ | |||
| 28089 | r_Dims[0]=m; | |||
| 28090 | capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 28091 | capi_r_tmp = array_from_pyobj(NPY_DOUBLE,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct)); | |||
| 28092 | if (capi_r_tmp == NULL((void*)0)) { | |||
| 28093 | if (!PyErr_Occurred()) | |||
| 28094 | PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.zgeequ to C/Fortran array" ); | |||
| 28095 | } else { | |||
| 28096 | r = (double *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data)); | |||
| 28097 | ||||
| 28098 | /* Processing variable c */ | |||
| 28099 | c_Dims[0]=n; | |||
| 28100 | capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 28101 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct)); | |||
| 28102 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 28103 | if (!PyErr_Occurred()) | |||
| 28104 | PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.zgeequ to C/Fortran array" ); | |||
| 28105 | } else { | |||
| 28106 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 28107 | ||||
| 28108 | /*end of frompyobj*/ | |||
| 28109 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28110 | f2py_start_call_clock(); | |||
| 28111 | #endif | |||
| 28112 | /*callfortranroutine*/ | |||
| 28113 | (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ; | |||
| 28114 | /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/ | |||
| 28115 | if (PyErr_Occurred()) | |||
| 28116 | f2py_success = 0; | |||
| 28117 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28118 | f2py_stop_call_clock(); | |||
| 28119 | #endif | |||
| 28120 | /*end of callfortranroutine*/ | |||
| 28121 | if (f2py_success) { | |||
| 28122 | /*pyobjfrom*/ | |||
| 28123 | /*end of pyobjfrom*/ | |||
| 28124 | CFUNCSMESS("Building return value.\n"); | |||
| 28125 | capi_buildvalue = Py_BuildValue("NNdddi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info); | |||
| 28126 | /*closepyobjfrom*/ | |||
| 28127 | /*end of closepyobjfrom*/ | |||
| 28128 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 28129 | /*cleanupfrompyobj*/ | |||
| 28130 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 28131 | /* End of cleaning variable c */ | |||
| 28132 | } /*if (capi_r_tmp == NULL) ... else of r*/ | |||
| 28133 | /* End of cleaning variable r */ | |||
| 28134 | /* End of cleaning variable lda */ | |||
| 28135 | /* End of cleaning variable n */ | |||
| 28136 | /* End of cleaning variable m */ | |||
| 28137 | /* End of cleaning variable info */ | |||
| 28138 | /* End of cleaning variable amax */ | |||
| 28139 | /* End of cleaning variable colcnd */ | |||
| 28140 | /* End of cleaning variable rowcnd */ | |||
| 28141 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 28142 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 28143 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 28144 | /* End of cleaning variable a */ | |||
| 28145 | /*end of cleanupfrompyobj*/ | |||
| 28146 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 28147 | /*routdebugfailure*/ | |||
| 28148 | } else { | |||
| 28149 | /*routdebugleave*/ | |||
| 28150 | } | |||
| 28151 | CFUNCSMESS("Freeing memory.\n"); | |||
| 28152 | /*freemem*/ | |||
| 28153 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28154 | f2py_stop_clock(); | |||
| 28155 | #endif | |||
| 28156 | return capi_buildvalue; | |||
| 28157 | } | |||
| 28158 | /******************************* end of zgeequ *******************************/ | |||
| 28159 | ||||
| 28160 | /********************************** sgeequb **********************************/ | |||
| 28161 | static char doc_f2py_rout__flapack_sgeequb[] = "\ | |||
| 28162 | r,c,rowcnd,colcnd,amax,info = sgeequb(a)\n\nWrapper for ``sgeequb``.\ | |||
| 28163 | \n\nParameters\n----------\n" | |||
| 28164 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 28165 | "\nReturns\n-------\n" | |||
| 28166 | "r : rank-1 array('f') with bounds (m)\n" | |||
| 28167 | "c : rank-1 array('f') with bounds (n)\n" | |||
| 28168 | "rowcnd : float\n" | |||
| 28169 | "colcnd : float\n" | |||
| 28170 | "amax : float\n" | |||
| 28171 | "info : int"; | |||
| 28172 | /* extern void F_FUNC(sgeequb,SGEEQUB)(F_INT*,F_INT*,float*,F_INT*,float*,float*,float*,float*,float*,F_INT* ); */ | |||
| 28173 | static PyObject *f2py_rout__flapack_sgeequb(const PyObject *capi_self, | |||
| 28174 | PyObject *capi_args, | |||
| 28175 | PyObject *capi_keywds, | |||
| 28176 | void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* )) { | |||
| 28177 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 28178 | volatile int f2py_success = 1; | |||
| 28179 | /*decl*/ | |||
| 28180 | ||||
| 28181 | int m = 0; | |||
| 28182 | int n = 0; | |||
| 28183 | float *a = NULL((void*)0); | |||
| 28184 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 28185 | const int a_Rank = 2; | |||
| 28186 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 28187 | int capi_a_intent = 0; | |||
| 28188 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 28189 | int lda = 0; | |||
| 28190 | float *r = NULL((void*)0); | |||
| 28191 | npy_intp r_Dims[1] = {-1}; | |||
| 28192 | const int r_Rank = 1; | |||
| 28193 | PyArrayObject *capi_r_tmp = NULL((void*)0); | |||
| 28194 | int capi_r_intent = 0; | |||
| 28195 | float *c = NULL((void*)0); | |||
| 28196 | npy_intp c_Dims[1] = {-1}; | |||
| 28197 | const int c_Rank = 1; | |||
| 28198 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 28199 | int capi_c_intent = 0; | |||
| 28200 | float rowcnd = 0; | |||
| 28201 | float colcnd = 0; | |||
| 28202 | float amax = 0; | |||
| 28203 | int info = 0; | |||
| 28204 | static char *capi_kwlist[] = {"a",NULL((void*)0)}; | |||
| 28205 | ||||
| 28206 | /*routdebugenter*/ | |||
| 28207 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28208 | f2py_start_clock(); | |||
| 28209 | #endif | |||
| 28210 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 28211 | "O:_flapack.sgeequb",\ | |||
| 28212 | capi_kwlist,&a_capi)) | |||
| 28213 | return NULL((void*)0); | |||
| 28214 | /*frompyobj*/ | |||
| 28215 | /* Processing variable a */ | |||
| 28216 | ; | |||
| 28217 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 28218 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 28219 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 28220 | if (!PyErr_Occurred()) | |||
| 28221 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgeequb to C/Fortran array" ); | |||
| 28222 | } else { | |||
| 28223 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 28224 | ||||
| 28225 | /* Processing variable rowcnd */ | |||
| 28226 | /* Processing variable colcnd */ | |||
| 28227 | /* Processing variable amax */ | |||
| 28228 | /* Processing variable info */ | |||
| 28229 | /* Processing variable m */ | |||
| 28230 | m = shape(a,0)a_Dims[0]; | |||
| 28231 | /* Processing variable n */ | |||
| 28232 | n = shape(a,1)a_Dims[1]; | |||
| 28233 | /* Processing variable lda */ | |||
| 28234 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 28235 | /* Processing variable r */ | |||
| 28236 | r_Dims[0]=m; | |||
| 28237 | capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 28238 | capi_r_tmp = array_from_pyobj(NPY_FLOAT,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct)); | |||
| 28239 | if (capi_r_tmp == NULL((void*)0)) { | |||
| 28240 | if (!PyErr_Occurred()) | |||
| 28241 | PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.sgeequb to C/Fortran array" ); | |||
| 28242 | } else { | |||
| 28243 | r = (float *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data)); | |||
| 28244 | ||||
| 28245 | /* Processing variable c */ | |||
| 28246 | c_Dims[0]=n; | |||
| 28247 | capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 28248 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct)); | |||
| 28249 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 28250 | if (!PyErr_Occurred()) | |||
| 28251 | PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.sgeequb to C/Fortran array" ); | |||
| 28252 | } else { | |||
| 28253 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 28254 | ||||
| 28255 | /*end of frompyobj*/ | |||
| 28256 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28257 | f2py_start_call_clock(); | |||
| 28258 | #endif | |||
| 28259 | /*callfortranroutine*/ | |||
| 28260 | (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ; | |||
| 28261 | /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/ | |||
| 28262 | if (PyErr_Occurred()) | |||
| 28263 | f2py_success = 0; | |||
| 28264 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28265 | f2py_stop_call_clock(); | |||
| 28266 | #endif | |||
| 28267 | /*end of callfortranroutine*/ | |||
| 28268 | if (f2py_success) { | |||
| 28269 | /*pyobjfrom*/ | |||
| 28270 | /*end of pyobjfrom*/ | |||
| 28271 | CFUNCSMESS("Building return value.\n"); | |||
| 28272 | capi_buildvalue = Py_BuildValue("NNfffi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info); | |||
| 28273 | /*closepyobjfrom*/ | |||
| 28274 | /*end of closepyobjfrom*/ | |||
| 28275 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 28276 | /*cleanupfrompyobj*/ | |||
| 28277 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 28278 | /* End of cleaning variable c */ | |||
| 28279 | } /*if (capi_r_tmp == NULL) ... else of r*/ | |||
| 28280 | /* End of cleaning variable r */ | |||
| 28281 | /* End of cleaning variable lda */ | |||
| 28282 | /* End of cleaning variable n */ | |||
| 28283 | /* End of cleaning variable m */ | |||
| 28284 | /* End of cleaning variable info */ | |||
| 28285 | /* End of cleaning variable amax */ | |||
| 28286 | /* End of cleaning variable colcnd */ | |||
| 28287 | /* End of cleaning variable rowcnd */ | |||
| 28288 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 28289 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 28290 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 28291 | /* End of cleaning variable a */ | |||
| 28292 | /*end of cleanupfrompyobj*/ | |||
| 28293 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 28294 | /*routdebugfailure*/ | |||
| 28295 | } else { | |||
| 28296 | /*routdebugleave*/ | |||
| 28297 | } | |||
| 28298 | CFUNCSMESS("Freeing memory.\n"); | |||
| 28299 | /*freemem*/ | |||
| 28300 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28301 | f2py_stop_clock(); | |||
| 28302 | #endif | |||
| 28303 | return capi_buildvalue; | |||
| 28304 | } | |||
| 28305 | /******************************* end of sgeequb *******************************/ | |||
| 28306 | ||||
| 28307 | /********************************** dgeequb **********************************/ | |||
| 28308 | static char doc_f2py_rout__flapack_dgeequb[] = "\ | |||
| 28309 | r,c,rowcnd,colcnd,amax,info = dgeequb(a)\n\nWrapper for ``dgeequb``.\ | |||
| 28310 | \n\nParameters\n----------\n" | |||
| 28311 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 28312 | "\nReturns\n-------\n" | |||
| 28313 | "r : rank-1 array('d') with bounds (m)\n" | |||
| 28314 | "c : rank-1 array('d') with bounds (n)\n" | |||
| 28315 | "rowcnd : float\n" | |||
| 28316 | "colcnd : float\n" | |||
| 28317 | "amax : float\n" | |||
| 28318 | "info : int"; | |||
| 28319 | /* extern void F_FUNC(dgeequb,DGEEQUB)(F_INT*,F_INT*,double*,F_INT*,double*,double*,double*,double*,double*,F_INT* ); */ | |||
| 28320 | static PyObject *f2py_rout__flapack_dgeequb(const PyObject *capi_self, | |||
| 28321 | PyObject *capi_args, | |||
| 28322 | PyObject *capi_keywds, | |||
| 28323 | void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* )) { | |||
| 28324 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 28325 | volatile int f2py_success = 1; | |||
| 28326 | /*decl*/ | |||
| 28327 | ||||
| 28328 | int m = 0; | |||
| 28329 | int n = 0; | |||
| 28330 | double *a = NULL((void*)0); | |||
| 28331 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 28332 | const int a_Rank = 2; | |||
| 28333 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 28334 | int capi_a_intent = 0; | |||
| 28335 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 28336 | int lda = 0; | |||
| 28337 | double *r = NULL((void*)0); | |||
| 28338 | npy_intp r_Dims[1] = {-1}; | |||
| 28339 | const int r_Rank = 1; | |||
| 28340 | PyArrayObject *capi_r_tmp = NULL((void*)0); | |||
| 28341 | int capi_r_intent = 0; | |||
| 28342 | double *c = NULL((void*)0); | |||
| 28343 | npy_intp c_Dims[1] = {-1}; | |||
| 28344 | const int c_Rank = 1; | |||
| 28345 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 28346 | int capi_c_intent = 0; | |||
| 28347 | double rowcnd = 0; | |||
| 28348 | double colcnd = 0; | |||
| 28349 | double amax = 0; | |||
| 28350 | int info = 0; | |||
| 28351 | static char *capi_kwlist[] = {"a",NULL((void*)0)}; | |||
| 28352 | ||||
| 28353 | /*routdebugenter*/ | |||
| 28354 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28355 | f2py_start_clock(); | |||
| 28356 | #endif | |||
| 28357 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 28358 | "O:_flapack.dgeequb",\ | |||
| 28359 | capi_kwlist,&a_capi)) | |||
| 28360 | return NULL((void*)0); | |||
| 28361 | /*frompyobj*/ | |||
| 28362 | /* Processing variable a */ | |||
| 28363 | ; | |||
| 28364 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 28365 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 28366 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 28367 | if (!PyErr_Occurred()) | |||
| 28368 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgeequb to C/Fortran array" ); | |||
| 28369 | } else { | |||
| 28370 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 28371 | ||||
| 28372 | /* Processing variable rowcnd */ | |||
| 28373 | /* Processing variable colcnd */ | |||
| 28374 | /* Processing variable amax */ | |||
| 28375 | /* Processing variable info */ | |||
| 28376 | /* Processing variable m */ | |||
| 28377 | m = shape(a,0)a_Dims[0]; | |||
| 28378 | /* Processing variable n */ | |||
| 28379 | n = shape(a,1)a_Dims[1]; | |||
| 28380 | /* Processing variable lda */ | |||
| 28381 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 28382 | /* Processing variable r */ | |||
| 28383 | r_Dims[0]=m; | |||
| 28384 | capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 28385 | capi_r_tmp = array_from_pyobj(NPY_DOUBLE,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct)); | |||
| 28386 | if (capi_r_tmp == NULL((void*)0)) { | |||
| 28387 | if (!PyErr_Occurred()) | |||
| 28388 | PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.dgeequb to C/Fortran array" ); | |||
| 28389 | } else { | |||
| 28390 | r = (double *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data)); | |||
| 28391 | ||||
| 28392 | /* Processing variable c */ | |||
| 28393 | c_Dims[0]=n; | |||
| 28394 | capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 28395 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct)); | |||
| 28396 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 28397 | if (!PyErr_Occurred()) | |||
| 28398 | PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.dgeequb to C/Fortran array" ); | |||
| 28399 | } else { | |||
| 28400 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 28401 | ||||
| 28402 | /*end of frompyobj*/ | |||
| 28403 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28404 | f2py_start_call_clock(); | |||
| 28405 | #endif | |||
| 28406 | /*callfortranroutine*/ | |||
| 28407 | (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ; | |||
| 28408 | /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/ | |||
| 28409 | if (PyErr_Occurred()) | |||
| 28410 | f2py_success = 0; | |||
| 28411 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28412 | f2py_stop_call_clock(); | |||
| 28413 | #endif | |||
| 28414 | /*end of callfortranroutine*/ | |||
| 28415 | if (f2py_success) { | |||
| 28416 | /*pyobjfrom*/ | |||
| 28417 | /*end of pyobjfrom*/ | |||
| 28418 | CFUNCSMESS("Building return value.\n"); | |||
| 28419 | capi_buildvalue = Py_BuildValue("NNdddi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info); | |||
| 28420 | /*closepyobjfrom*/ | |||
| 28421 | /*end of closepyobjfrom*/ | |||
| 28422 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 28423 | /*cleanupfrompyobj*/ | |||
| 28424 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 28425 | /* End of cleaning variable c */ | |||
| 28426 | } /*if (capi_r_tmp == NULL) ... else of r*/ | |||
| 28427 | /* End of cleaning variable r */ | |||
| 28428 | /* End of cleaning variable lda */ | |||
| 28429 | /* End of cleaning variable n */ | |||
| 28430 | /* End of cleaning variable m */ | |||
| 28431 | /* End of cleaning variable info */ | |||
| 28432 | /* End of cleaning variable amax */ | |||
| 28433 | /* End of cleaning variable colcnd */ | |||
| 28434 | /* End of cleaning variable rowcnd */ | |||
| 28435 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 28436 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 28437 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 28438 | /* End of cleaning variable a */ | |||
| 28439 | /*end of cleanupfrompyobj*/ | |||
| 28440 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 28441 | /*routdebugfailure*/ | |||
| 28442 | } else { | |||
| 28443 | /*routdebugleave*/ | |||
| 28444 | } | |||
| 28445 | CFUNCSMESS("Freeing memory.\n"); | |||
| 28446 | /*freemem*/ | |||
| 28447 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28448 | f2py_stop_clock(); | |||
| 28449 | #endif | |||
| 28450 | return capi_buildvalue; | |||
| 28451 | } | |||
| 28452 | /******************************* end of dgeequb *******************************/ | |||
| 28453 | ||||
| 28454 | /********************************** cgeequb **********************************/ | |||
| 28455 | static char doc_f2py_rout__flapack_cgeequb[] = "\ | |||
| 28456 | r,c,rowcnd,colcnd,amax,info = cgeequb(a)\n\nWrapper for ``cgeequb``.\ | |||
| 28457 | \n\nParameters\n----------\n" | |||
| 28458 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 28459 | "\nReturns\n-------\n" | |||
| 28460 | "r : rank-1 array('f') with bounds (m)\n" | |||
| 28461 | "c : rank-1 array('f') with bounds (n)\n" | |||
| 28462 | "rowcnd : float\n" | |||
| 28463 | "colcnd : float\n" | |||
| 28464 | "amax : float\n" | |||
| 28465 | "info : int"; | |||
| 28466 | /* extern void F_FUNC(cgeequb,CGEEQUB)(F_INT*,F_INT*,complex_float*,F_INT*,float*,float*,float*,float*,float*,F_INT* ); */ | |||
| 28467 | static PyObject *f2py_rout__flapack_cgeequb(const PyObject *capi_self, | |||
| 28468 | PyObject *capi_args, | |||
| 28469 | PyObject *capi_keywds, | |||
| 28470 | void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* )) { | |||
| 28471 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 28472 | volatile int f2py_success = 1; | |||
| 28473 | /*decl*/ | |||
| 28474 | ||||
| 28475 | int m = 0; | |||
| 28476 | int n = 0; | |||
| 28477 | complex_float *a = NULL((void*)0); | |||
| 28478 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 28479 | const int a_Rank = 2; | |||
| 28480 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 28481 | int capi_a_intent = 0; | |||
| 28482 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 28483 | int lda = 0; | |||
| 28484 | float *r = NULL((void*)0); | |||
| 28485 | npy_intp r_Dims[1] = {-1}; | |||
| 28486 | const int r_Rank = 1; | |||
| 28487 | PyArrayObject *capi_r_tmp = NULL((void*)0); | |||
| 28488 | int capi_r_intent = 0; | |||
| 28489 | float *c = NULL((void*)0); | |||
| 28490 | npy_intp c_Dims[1] = {-1}; | |||
| 28491 | const int c_Rank = 1; | |||
| 28492 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 28493 | int capi_c_intent = 0; | |||
| 28494 | float rowcnd = 0; | |||
| 28495 | float colcnd = 0; | |||
| 28496 | float amax = 0; | |||
| 28497 | int info = 0; | |||
| 28498 | static char *capi_kwlist[] = {"a",NULL((void*)0)}; | |||
| 28499 | ||||
| 28500 | /*routdebugenter*/ | |||
| 28501 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28502 | f2py_start_clock(); | |||
| 28503 | #endif | |||
| 28504 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 28505 | "O:_flapack.cgeequb",\ | |||
| 28506 | capi_kwlist,&a_capi)) | |||
| 28507 | return NULL((void*)0); | |||
| 28508 | /*frompyobj*/ | |||
| 28509 | /* Processing variable a */ | |||
| 28510 | ; | |||
| 28511 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 28512 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 28513 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 28514 | if (!PyErr_Occurred()) | |||
| 28515 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgeequb to C/Fortran array" ); | |||
| 28516 | } else { | |||
| 28517 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 28518 | ||||
| 28519 | /* Processing variable rowcnd */ | |||
| 28520 | /* Processing variable colcnd */ | |||
| 28521 | /* Processing variable amax */ | |||
| 28522 | /* Processing variable info */ | |||
| 28523 | /* Processing variable m */ | |||
| 28524 | m = shape(a,0)a_Dims[0]; | |||
| 28525 | /* Processing variable n */ | |||
| 28526 | n = shape(a,1)a_Dims[1]; | |||
| 28527 | /* Processing variable lda */ | |||
| 28528 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 28529 | /* Processing variable r */ | |||
| 28530 | r_Dims[0]=m; | |||
| 28531 | capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 28532 | capi_r_tmp = array_from_pyobj(NPY_FLOAT,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct)); | |||
| 28533 | if (capi_r_tmp == NULL((void*)0)) { | |||
| 28534 | if (!PyErr_Occurred()) | |||
| 28535 | PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.cgeequb to C/Fortran array" ); | |||
| 28536 | } else { | |||
| 28537 | r = (float *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data)); | |||
| 28538 | ||||
| 28539 | /* Processing variable c */ | |||
| 28540 | c_Dims[0]=n; | |||
| 28541 | capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 28542 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct)); | |||
| 28543 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 28544 | if (!PyErr_Occurred()) | |||
| 28545 | PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.cgeequb to C/Fortran array" ); | |||
| 28546 | } else { | |||
| 28547 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 28548 | ||||
| 28549 | /*end of frompyobj*/ | |||
| 28550 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28551 | f2py_start_call_clock(); | |||
| 28552 | #endif | |||
| 28553 | /*callfortranroutine*/ | |||
| 28554 | (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ; | |||
| 28555 | /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/ | |||
| 28556 | if (PyErr_Occurred()) | |||
| 28557 | f2py_success = 0; | |||
| 28558 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28559 | f2py_stop_call_clock(); | |||
| 28560 | #endif | |||
| 28561 | /*end of callfortranroutine*/ | |||
| 28562 | if (f2py_success) { | |||
| 28563 | /*pyobjfrom*/ | |||
| 28564 | /*end of pyobjfrom*/ | |||
| 28565 | CFUNCSMESS("Building return value.\n"); | |||
| 28566 | capi_buildvalue = Py_BuildValue("NNfffi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info); | |||
| 28567 | /*closepyobjfrom*/ | |||
| 28568 | /*end of closepyobjfrom*/ | |||
| 28569 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 28570 | /*cleanupfrompyobj*/ | |||
| 28571 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 28572 | /* End of cleaning variable c */ | |||
| 28573 | } /*if (capi_r_tmp == NULL) ... else of r*/ | |||
| 28574 | /* End of cleaning variable r */ | |||
| 28575 | /* End of cleaning variable lda */ | |||
| 28576 | /* End of cleaning variable n */ | |||
| 28577 | /* End of cleaning variable m */ | |||
| 28578 | /* End of cleaning variable info */ | |||
| 28579 | /* End of cleaning variable amax */ | |||
| 28580 | /* End of cleaning variable colcnd */ | |||
| 28581 | /* End of cleaning variable rowcnd */ | |||
| 28582 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 28583 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 28584 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 28585 | /* End of cleaning variable a */ | |||
| 28586 | /*end of cleanupfrompyobj*/ | |||
| 28587 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 28588 | /*routdebugfailure*/ | |||
| 28589 | } else { | |||
| 28590 | /*routdebugleave*/ | |||
| 28591 | } | |||
| 28592 | CFUNCSMESS("Freeing memory.\n"); | |||
| 28593 | /*freemem*/ | |||
| 28594 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28595 | f2py_stop_clock(); | |||
| 28596 | #endif | |||
| 28597 | return capi_buildvalue; | |||
| 28598 | } | |||
| 28599 | /******************************* end of cgeequb *******************************/ | |||
| 28600 | ||||
| 28601 | /********************************** zgeequb **********************************/ | |||
| 28602 | static char doc_f2py_rout__flapack_zgeequb[] = "\ | |||
| 28603 | r,c,rowcnd,colcnd,amax,info = zgeequb(a)\n\nWrapper for ``zgeequb``.\ | |||
| 28604 | \n\nParameters\n----------\n" | |||
| 28605 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 28606 | "\nReturns\n-------\n" | |||
| 28607 | "r : rank-1 array('d') with bounds (m)\n" | |||
| 28608 | "c : rank-1 array('d') with bounds (n)\n" | |||
| 28609 | "rowcnd : float\n" | |||
| 28610 | "colcnd : float\n" | |||
| 28611 | "amax : float\n" | |||
| 28612 | "info : int"; | |||
| 28613 | /* extern void F_FUNC(zgeequb,ZGEEQUB)(F_INT*,F_INT*,complex_double*,F_INT*,double*,double*,double*,double*,double*,F_INT* ); */ | |||
| 28614 | static PyObject *f2py_rout__flapack_zgeequb(const PyObject *capi_self, | |||
| 28615 | PyObject *capi_args, | |||
| 28616 | PyObject *capi_keywds, | |||
| 28617 | void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* )) { | |||
| 28618 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 28619 | volatile int f2py_success = 1; | |||
| 28620 | /*decl*/ | |||
| 28621 | ||||
| 28622 | int m = 0; | |||
| 28623 | int n = 0; | |||
| 28624 | complex_double *a = NULL((void*)0); | |||
| 28625 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 28626 | const int a_Rank = 2; | |||
| 28627 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 28628 | int capi_a_intent = 0; | |||
| 28629 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 28630 | int lda = 0; | |||
| 28631 | double *r = NULL((void*)0); | |||
| 28632 | npy_intp r_Dims[1] = {-1}; | |||
| 28633 | const int r_Rank = 1; | |||
| 28634 | PyArrayObject *capi_r_tmp = NULL((void*)0); | |||
| 28635 | int capi_r_intent = 0; | |||
| 28636 | double *c = NULL((void*)0); | |||
| 28637 | npy_intp c_Dims[1] = {-1}; | |||
| 28638 | const int c_Rank = 1; | |||
| 28639 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 28640 | int capi_c_intent = 0; | |||
| 28641 | double rowcnd = 0; | |||
| 28642 | double colcnd = 0; | |||
| 28643 | double amax = 0; | |||
| 28644 | int info = 0; | |||
| 28645 | static char *capi_kwlist[] = {"a",NULL((void*)0)}; | |||
| 28646 | ||||
| 28647 | /*routdebugenter*/ | |||
| 28648 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28649 | f2py_start_clock(); | |||
| 28650 | #endif | |||
| 28651 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 28652 | "O:_flapack.zgeequb",\ | |||
| 28653 | capi_kwlist,&a_capi)) | |||
| 28654 | return NULL((void*)0); | |||
| 28655 | /*frompyobj*/ | |||
| 28656 | /* Processing variable a */ | |||
| 28657 | ; | |||
| 28658 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 28659 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 28660 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 28661 | if (!PyErr_Occurred()) | |||
| 28662 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgeequb to C/Fortran array" ); | |||
| 28663 | } else { | |||
| 28664 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 28665 | ||||
| 28666 | /* Processing variable rowcnd */ | |||
| 28667 | /* Processing variable colcnd */ | |||
| 28668 | /* Processing variable amax */ | |||
| 28669 | /* Processing variable info */ | |||
| 28670 | /* Processing variable m */ | |||
| 28671 | m = shape(a,0)a_Dims[0]; | |||
| 28672 | /* Processing variable n */ | |||
| 28673 | n = shape(a,1)a_Dims[1]; | |||
| 28674 | /* Processing variable lda */ | |||
| 28675 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 28676 | /* Processing variable r */ | |||
| 28677 | r_Dims[0]=m; | |||
| 28678 | capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 28679 | capi_r_tmp = array_from_pyobj(NPY_DOUBLE,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct)); | |||
| 28680 | if (capi_r_tmp == NULL((void*)0)) { | |||
| 28681 | if (!PyErr_Occurred()) | |||
| 28682 | PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.zgeequb to C/Fortran array" ); | |||
| 28683 | } else { | |||
| 28684 | r = (double *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data)); | |||
| 28685 | ||||
| 28686 | /* Processing variable c */ | |||
| 28687 | c_Dims[0]=n; | |||
| 28688 | capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 28689 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct)); | |||
| 28690 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 28691 | if (!PyErr_Occurred()) | |||
| 28692 | PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.zgeequb to C/Fortran array" ); | |||
| 28693 | } else { | |||
| 28694 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 28695 | ||||
| 28696 | /*end of frompyobj*/ | |||
| 28697 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28698 | f2py_start_call_clock(); | |||
| 28699 | #endif | |||
| 28700 | /*callfortranroutine*/ | |||
| 28701 | (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ; | |||
| 28702 | /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/ | |||
| 28703 | if (PyErr_Occurred()) | |||
| 28704 | f2py_success = 0; | |||
| 28705 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28706 | f2py_stop_call_clock(); | |||
| 28707 | #endif | |||
| 28708 | /*end of callfortranroutine*/ | |||
| 28709 | if (f2py_success) { | |||
| 28710 | /*pyobjfrom*/ | |||
| 28711 | /*end of pyobjfrom*/ | |||
| 28712 | CFUNCSMESS("Building return value.\n"); | |||
| 28713 | capi_buildvalue = Py_BuildValue("NNdddi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info); | |||
| 28714 | /*closepyobjfrom*/ | |||
| 28715 | /*end of closepyobjfrom*/ | |||
| 28716 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 28717 | /*cleanupfrompyobj*/ | |||
| 28718 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 28719 | /* End of cleaning variable c */ | |||
| 28720 | } /*if (capi_r_tmp == NULL) ... else of r*/ | |||
| 28721 | /* End of cleaning variable r */ | |||
| 28722 | /* End of cleaning variable lda */ | |||
| 28723 | /* End of cleaning variable n */ | |||
| 28724 | /* End of cleaning variable m */ | |||
| 28725 | /* End of cleaning variable info */ | |||
| 28726 | /* End of cleaning variable amax */ | |||
| 28727 | /* End of cleaning variable colcnd */ | |||
| 28728 | /* End of cleaning variable rowcnd */ | |||
| 28729 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 28730 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 28731 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 28732 | /* End of cleaning variable a */ | |||
| 28733 | /*end of cleanupfrompyobj*/ | |||
| 28734 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 28735 | /*routdebugfailure*/ | |||
| 28736 | } else { | |||
| 28737 | /*routdebugleave*/ | |||
| 28738 | } | |||
| 28739 | CFUNCSMESS("Freeing memory.\n"); | |||
| 28740 | /*freemem*/ | |||
| 28741 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28742 | f2py_stop_clock(); | |||
| 28743 | #endif | |||
| 28744 | return capi_buildvalue; | |||
| 28745 | } | |||
| 28746 | /******************************* end of zgeequb *******************************/ | |||
| 28747 | ||||
| 28748 | /*********************************** sgbsv ***********************************/ | |||
| 28749 | static char doc_f2py_rout__flapack_sgbsv[] = "\ | |||
| 28750 | lub,piv,x,info = sgbsv(kl,ku,ab,b,[overwrite_ab,overwrite_b])\n\nWrapper for ``sgbsv``.\ | |||
| 28751 | \n\nParameters\n----------\n" | |||
| 28752 | "kl : input int\n" | |||
| 28753 | "ku : input int\n" | |||
| 28754 | "ab : input rank-2 array('f') with bounds (2*kl+ku+1,n)\n" | |||
| 28755 | "b : input rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 28756 | "\nOther Parameters\n----------------\n" | |||
| 28757 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 28758 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 28759 | "\nReturns\n-------\n" | |||
| 28760 | "lub : rank-2 array('f') with bounds (2*kl+ku+1,n) and ab storage\n" | |||
| 28761 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 28762 | "x : rank-2 array('f') with bounds (n,nrhs) and b storage\n" | |||
| 28763 | "info : int"; | |||
| 28764 | /* extern void F_FUNC(sgbsv,SGBSV)(F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 28765 | static PyObject *f2py_rout__flapack_sgbsv(const PyObject *capi_self, | |||
| 28766 | PyObject *capi_args, | |||
| 28767 | PyObject *capi_keywds, | |||
| 28768 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 28769 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 28770 | volatile int f2py_success = 1; | |||
| 28771 | /*decl*/ | |||
| 28772 | ||||
| 28773 | int n = 0; | |||
| 28774 | int kl = 0; | |||
| 28775 | PyObject *kl_capi = Py_None(&_Py_NoneStruct); | |||
| 28776 | int ku = 0; | |||
| 28777 | PyObject *ku_capi = Py_None(&_Py_NoneStruct); | |||
| 28778 | int nrhs = 0; | |||
| 28779 | float *ab = NULL((void*)0); | |||
| 28780 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 28781 | const int ab_Rank = 2; | |||
| 28782 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 28783 | int capi_ab_intent = 0; | |||
| 28784 | int capi_overwrite_ab = 0; | |||
| 28785 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 28786 | int *piv = NULL((void*)0); | |||
| 28787 | npy_intp piv_Dims[1] = {-1}; | |||
| 28788 | const int piv_Rank = 1; | |||
| 28789 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 28790 | int capi_piv_intent = 0; | |||
| 28791 | float *b = NULL((void*)0); | |||
| 28792 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 28793 | const int b_Rank = 2; | |||
| 28794 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 28795 | int capi_b_intent = 0; | |||
| 28796 | int capi_overwrite_b = 0; | |||
| 28797 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 28798 | int info = 0; | |||
| 28799 | static char *capi_kwlist[] = {"kl","ku","ab","b","overwrite_ab","overwrite_b",NULL((void*)0)}; | |||
| 28800 | ||||
| 28801 | /*routdebugenter*/ | |||
| 28802 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28803 | f2py_start_clock(); | |||
| 28804 | #endif | |||
| 28805 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 28806 | "OOOO|ii:_flapack.sgbsv",\ | |||
| 28807 | capi_kwlist,&kl_capi,&ku_capi,&ab_capi,&b_capi,&capi_overwrite_ab,&capi_overwrite_b)) | |||
| 28808 | return NULL((void*)0); | |||
| 28809 | /*frompyobj*/ | |||
| 28810 | /* Processing variable kl */ | |||
| 28811 | f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.sgbsv() 1st argument (kl) can't be converted to int"); | |||
| 28812 | if (f2py_success) { | |||
| 28813 | /* Processing variable ku */ | |||
| 28814 | f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.sgbsv() 2nd argument (ku) can't be converted to int"); | |||
| 28815 | if (f2py_success) { | |||
| 28816 | /* Processing variable info */ | |||
| 28817 | /* Processing variable ab */ | |||
| 28818 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 28819 | ab_Dims[0]=2*kl+ku+1; | |||
| 28820 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 28821 | capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 28822 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 28823 | if (!PyErr_Occurred()) | |||
| 28824 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ab' of _flapack.sgbsv to C/Fortran array" ); | |||
| 28825 | } else { | |||
| 28826 | ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 28827 | ||||
| 28828 | CHECKARRAY(2*kl+ku+1==shape(ab,0),"2*kl+ku+1==shape(ab,0)","3rd argument ab")if (!(2*kl+ku+1==ab_Dims[0])) { PyErr_SetString(_flapack_error ,"(""2*kl+ku+1==shape(ab,0)"") failed for ""3rd argument ab") ; } else { | |||
| 28829 | /* Processing variable n */ | |||
| 28830 | n = shape(ab,1)ab_Dims[1]; | |||
| 28831 | /* Processing variable piv */ | |||
| 28832 | piv_Dims[0]=n; | |||
| 28833 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 28834 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 28835 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 28836 | if (!PyErr_Occurred()) | |||
| 28837 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.sgbsv to C/Fortran array" ); | |||
| 28838 | } else { | |||
| 28839 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 28840 | ||||
| 28841 | /* Processing variable b */ | |||
| 28842 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 28843 | b_Dims[0]=n; | |||
| 28844 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 28845 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 28846 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 28847 | if (!PyErr_Occurred()) | |||
| 28848 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.sgbsv to C/Fortran array" ); | |||
| 28849 | } else { | |||
| 28850 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 28851 | ||||
| 28852 | CHECKARRAY(shape(ab,1)==shape(b,0),"shape(ab,1)==shape(b,0)","4th argument b")if (!(ab_Dims[1]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(ab,1)==shape(b,0)"") failed for ""4th argument b") ; } else { | |||
| 28853 | /* Processing variable nrhs */ | |||
| 28854 | nrhs = shape(b,1)b_Dims[1]; | |||
| 28855 | /*end of frompyobj*/ | |||
| 28856 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28857 | f2py_start_call_clock(); | |||
| 28858 | #endif | |||
| 28859 | /*callfortranroutine*/ | |||
| 28860 | {F_INTint i=2*kl+ku+1;(*f2py_func)(&n,&kl,&ku,&nrhs,ab,&i,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 28861 | /*(*f2py_func)(&n,&kl,&ku,&nrhs,ab,piv,b,&info);*/ | |||
| 28862 | if (PyErr_Occurred()) | |||
| 28863 | f2py_success = 0; | |||
| 28864 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28865 | f2py_stop_call_clock(); | |||
| 28866 | #endif | |||
| 28867 | /*end of callfortranroutine*/ | |||
| 28868 | if (f2py_success) { | |||
| 28869 | /*pyobjfrom*/ | |||
| 28870 | /*end of pyobjfrom*/ | |||
| 28871 | CFUNCSMESS("Building return value.\n"); | |||
| 28872 | capi_buildvalue = Py_BuildValue("NNNi",capi_ab_tmp,capi_piv_tmp,capi_b_tmp,info); | |||
| 28873 | /*closepyobjfrom*/ | |||
| 28874 | /*end of closepyobjfrom*/ | |||
| 28875 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 28876 | /*cleanupfrompyobj*/ | |||
| 28877 | /* End of cleaning variable nrhs */ | |||
| 28878 | } /*CHECKARRAY(shape(ab,1)==shape(b,0))*/ | |||
| 28879 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 28880 | /* End of cleaning variable b */ | |||
| 28881 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 28882 | /* End of cleaning variable piv */ | |||
| 28883 | /* End of cleaning variable n */ | |||
| 28884 | } /*CHECKARRAY(2*kl+ku+1==shape(ab,0))*/ | |||
| 28885 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 28886 | /* End of cleaning variable ab */ | |||
| 28887 | /* End of cleaning variable info */ | |||
| 28888 | } /*if (f2py_success) of ku*/ | |||
| 28889 | /* End of cleaning variable ku */ | |||
| 28890 | } /*if (f2py_success) of kl*/ | |||
| 28891 | /* End of cleaning variable kl */ | |||
| 28892 | /*end of cleanupfrompyobj*/ | |||
| 28893 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 28894 | /*routdebugfailure*/ | |||
| 28895 | } else { | |||
| 28896 | /*routdebugleave*/ | |||
| 28897 | } | |||
| 28898 | CFUNCSMESS("Freeing memory.\n"); | |||
| 28899 | /*freemem*/ | |||
| 28900 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28901 | f2py_stop_clock(); | |||
| 28902 | #endif | |||
| 28903 | return capi_buildvalue; | |||
| 28904 | } | |||
| 28905 | /******************************** end of sgbsv ********************************/ | |||
| 28906 | ||||
| 28907 | /*********************************** dgbsv ***********************************/ | |||
| 28908 | static char doc_f2py_rout__flapack_dgbsv[] = "\ | |||
| 28909 | lub,piv,x,info = dgbsv(kl,ku,ab,b,[overwrite_ab,overwrite_b])\n\nWrapper for ``dgbsv``.\ | |||
| 28910 | \n\nParameters\n----------\n" | |||
| 28911 | "kl : input int\n" | |||
| 28912 | "ku : input int\n" | |||
| 28913 | "ab : input rank-2 array('d') with bounds (2*kl+ku+1,n)\n" | |||
| 28914 | "b : input rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 28915 | "\nOther Parameters\n----------------\n" | |||
| 28916 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 28917 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 28918 | "\nReturns\n-------\n" | |||
| 28919 | "lub : rank-2 array('d') with bounds (2*kl+ku+1,n) and ab storage\n" | |||
| 28920 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 28921 | "x : rank-2 array('d') with bounds (n,nrhs) and b storage\n" | |||
| 28922 | "info : int"; | |||
| 28923 | /* extern void F_FUNC(dgbsv,DGBSV)(F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 28924 | static PyObject *f2py_rout__flapack_dgbsv(const PyObject *capi_self, | |||
| 28925 | PyObject *capi_args, | |||
| 28926 | PyObject *capi_keywds, | |||
| 28927 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 28928 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 28929 | volatile int f2py_success = 1; | |||
| 28930 | /*decl*/ | |||
| 28931 | ||||
| 28932 | int n = 0; | |||
| 28933 | int kl = 0; | |||
| 28934 | PyObject *kl_capi = Py_None(&_Py_NoneStruct); | |||
| 28935 | int ku = 0; | |||
| 28936 | PyObject *ku_capi = Py_None(&_Py_NoneStruct); | |||
| 28937 | int nrhs = 0; | |||
| 28938 | double *ab = NULL((void*)0); | |||
| 28939 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 28940 | const int ab_Rank = 2; | |||
| 28941 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 28942 | int capi_ab_intent = 0; | |||
| 28943 | int capi_overwrite_ab = 0; | |||
| 28944 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 28945 | int *piv = NULL((void*)0); | |||
| 28946 | npy_intp piv_Dims[1] = {-1}; | |||
| 28947 | const int piv_Rank = 1; | |||
| 28948 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 28949 | int capi_piv_intent = 0; | |||
| 28950 | double *b = NULL((void*)0); | |||
| 28951 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 28952 | const int b_Rank = 2; | |||
| 28953 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 28954 | int capi_b_intent = 0; | |||
| 28955 | int capi_overwrite_b = 0; | |||
| 28956 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 28957 | int info = 0; | |||
| 28958 | static char *capi_kwlist[] = {"kl","ku","ab","b","overwrite_ab","overwrite_b",NULL((void*)0)}; | |||
| 28959 | ||||
| 28960 | /*routdebugenter*/ | |||
| 28961 | #ifdef F2PY_REPORT_ATEXIT | |||
| 28962 | f2py_start_clock(); | |||
| 28963 | #endif | |||
| 28964 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 28965 | "OOOO|ii:_flapack.dgbsv",\ | |||
| 28966 | capi_kwlist,&kl_capi,&ku_capi,&ab_capi,&b_capi,&capi_overwrite_ab,&capi_overwrite_b)) | |||
| 28967 | return NULL((void*)0); | |||
| 28968 | /*frompyobj*/ | |||
| 28969 | /* Processing variable kl */ | |||
| 28970 | f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.dgbsv() 1st argument (kl) can't be converted to int"); | |||
| 28971 | if (f2py_success) { | |||
| 28972 | /* Processing variable ku */ | |||
| 28973 | f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.dgbsv() 2nd argument (ku) can't be converted to int"); | |||
| 28974 | if (f2py_success) { | |||
| 28975 | /* Processing variable info */ | |||
| 28976 | /* Processing variable ab */ | |||
| 28977 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 28978 | ab_Dims[0]=2*kl+ku+1; | |||
| 28979 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 28980 | capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 28981 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 28982 | if (!PyErr_Occurred()) | |||
| 28983 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ab' of _flapack.dgbsv to C/Fortran array" ); | |||
| 28984 | } else { | |||
| 28985 | ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 28986 | ||||
| 28987 | CHECKARRAY(2*kl+ku+1==shape(ab,0),"2*kl+ku+1==shape(ab,0)","3rd argument ab")if (!(2*kl+ku+1==ab_Dims[0])) { PyErr_SetString(_flapack_error ,"(""2*kl+ku+1==shape(ab,0)"") failed for ""3rd argument ab") ; } else { | |||
| 28988 | /* Processing variable n */ | |||
| 28989 | n = shape(ab,1)ab_Dims[1]; | |||
| 28990 | /* Processing variable piv */ | |||
| 28991 | piv_Dims[0]=n; | |||
| 28992 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 28993 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 28994 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 28995 | if (!PyErr_Occurred()) | |||
| 28996 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.dgbsv to C/Fortran array" ); | |||
| 28997 | } else { | |||
| 28998 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 28999 | ||||
| 29000 | /* Processing variable b */ | |||
| 29001 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 29002 | b_Dims[0]=n; | |||
| 29003 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 29004 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 29005 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 29006 | if (!PyErr_Occurred()) | |||
| 29007 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.dgbsv to C/Fortran array" ); | |||
| 29008 | } else { | |||
| 29009 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 29010 | ||||
| 29011 | CHECKARRAY(shape(ab,1)==shape(b,0),"shape(ab,1)==shape(b,0)","4th argument b")if (!(ab_Dims[1]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(ab,1)==shape(b,0)"") failed for ""4th argument b") ; } else { | |||
| 29012 | /* Processing variable nrhs */ | |||
| 29013 | nrhs = shape(b,1)b_Dims[1]; | |||
| 29014 | /*end of frompyobj*/ | |||
| 29015 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29016 | f2py_start_call_clock(); | |||
| 29017 | #endif | |||
| 29018 | /*callfortranroutine*/ | |||
| 29019 | {F_INTint i=2*kl+ku+1;(*f2py_func)(&n,&kl,&ku,&nrhs,ab,&i,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 29020 | /*(*f2py_func)(&n,&kl,&ku,&nrhs,ab,piv,b,&info);*/ | |||
| 29021 | if (PyErr_Occurred()) | |||
| 29022 | f2py_success = 0; | |||
| 29023 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29024 | f2py_stop_call_clock(); | |||
| 29025 | #endif | |||
| 29026 | /*end of callfortranroutine*/ | |||
| 29027 | if (f2py_success) { | |||
| 29028 | /*pyobjfrom*/ | |||
| 29029 | /*end of pyobjfrom*/ | |||
| 29030 | CFUNCSMESS("Building return value.\n"); | |||
| 29031 | capi_buildvalue = Py_BuildValue("NNNi",capi_ab_tmp,capi_piv_tmp,capi_b_tmp,info); | |||
| 29032 | /*closepyobjfrom*/ | |||
| 29033 | /*end of closepyobjfrom*/ | |||
| 29034 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 29035 | /*cleanupfrompyobj*/ | |||
| 29036 | /* End of cleaning variable nrhs */ | |||
| 29037 | } /*CHECKARRAY(shape(ab,1)==shape(b,0))*/ | |||
| 29038 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 29039 | /* End of cleaning variable b */ | |||
| 29040 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 29041 | /* End of cleaning variable piv */ | |||
| 29042 | /* End of cleaning variable n */ | |||
| 29043 | } /*CHECKARRAY(2*kl+ku+1==shape(ab,0))*/ | |||
| 29044 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 29045 | /* End of cleaning variable ab */ | |||
| 29046 | /* End of cleaning variable info */ | |||
| 29047 | } /*if (f2py_success) of ku*/ | |||
| 29048 | /* End of cleaning variable ku */ | |||
| 29049 | } /*if (f2py_success) of kl*/ | |||
| 29050 | /* End of cleaning variable kl */ | |||
| 29051 | /*end of cleanupfrompyobj*/ | |||
| 29052 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 29053 | /*routdebugfailure*/ | |||
| 29054 | } else { | |||
| 29055 | /*routdebugleave*/ | |||
| 29056 | } | |||
| 29057 | CFUNCSMESS("Freeing memory.\n"); | |||
| 29058 | /*freemem*/ | |||
| 29059 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29060 | f2py_stop_clock(); | |||
| 29061 | #endif | |||
| 29062 | return capi_buildvalue; | |||
| 29063 | } | |||
| 29064 | /******************************** end of dgbsv ********************************/ | |||
| 29065 | ||||
| 29066 | /*********************************** cgbsv ***********************************/ | |||
| 29067 | static char doc_f2py_rout__flapack_cgbsv[] = "\ | |||
| 29068 | lub,piv,x,info = cgbsv(kl,ku,ab,b,[overwrite_ab,overwrite_b])\n\nWrapper for ``cgbsv``.\ | |||
| 29069 | \n\nParameters\n----------\n" | |||
| 29070 | "kl : input int\n" | |||
| 29071 | "ku : input int\n" | |||
| 29072 | "ab : input rank-2 array('F') with bounds (2*kl+ku+1,n)\n" | |||
| 29073 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 29074 | "\nOther Parameters\n----------------\n" | |||
| 29075 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 29076 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 29077 | "\nReturns\n-------\n" | |||
| 29078 | "lub : rank-2 array('F') with bounds (2*kl+ku+1,n) and ab storage\n" | |||
| 29079 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 29080 | "x : rank-2 array('F') with bounds (n,nrhs) and b storage\n" | |||
| 29081 | "info : int"; | |||
| 29082 | /* extern void F_FUNC(cgbsv,CGBSV)(F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 29083 | static PyObject *f2py_rout__flapack_cgbsv(const PyObject *capi_self, | |||
| 29084 | PyObject *capi_args, | |||
| 29085 | PyObject *capi_keywds, | |||
| 29086 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 29087 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 29088 | volatile int f2py_success = 1; | |||
| 29089 | /*decl*/ | |||
| 29090 | ||||
| 29091 | int n = 0; | |||
| 29092 | int kl = 0; | |||
| 29093 | PyObject *kl_capi = Py_None(&_Py_NoneStruct); | |||
| 29094 | int ku = 0; | |||
| 29095 | PyObject *ku_capi = Py_None(&_Py_NoneStruct); | |||
| 29096 | int nrhs = 0; | |||
| 29097 | complex_float *ab = NULL((void*)0); | |||
| 29098 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 29099 | const int ab_Rank = 2; | |||
| 29100 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 29101 | int capi_ab_intent = 0; | |||
| 29102 | int capi_overwrite_ab = 0; | |||
| 29103 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 29104 | int *piv = NULL((void*)0); | |||
| 29105 | npy_intp piv_Dims[1] = {-1}; | |||
| 29106 | const int piv_Rank = 1; | |||
| 29107 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 29108 | int capi_piv_intent = 0; | |||
| 29109 | complex_float *b = NULL((void*)0); | |||
| 29110 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 29111 | const int b_Rank = 2; | |||
| 29112 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 29113 | int capi_b_intent = 0; | |||
| 29114 | int capi_overwrite_b = 0; | |||
| 29115 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 29116 | int info = 0; | |||
| 29117 | static char *capi_kwlist[] = {"kl","ku","ab","b","overwrite_ab","overwrite_b",NULL((void*)0)}; | |||
| 29118 | ||||
| 29119 | /*routdebugenter*/ | |||
| 29120 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29121 | f2py_start_clock(); | |||
| 29122 | #endif | |||
| 29123 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 29124 | "OOOO|ii:_flapack.cgbsv",\ | |||
| 29125 | capi_kwlist,&kl_capi,&ku_capi,&ab_capi,&b_capi,&capi_overwrite_ab,&capi_overwrite_b)) | |||
| 29126 | return NULL((void*)0); | |||
| 29127 | /*frompyobj*/ | |||
| 29128 | /* Processing variable kl */ | |||
| 29129 | f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.cgbsv() 1st argument (kl) can't be converted to int"); | |||
| 29130 | if (f2py_success) { | |||
| 29131 | /* Processing variable ku */ | |||
| 29132 | f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.cgbsv() 2nd argument (ku) can't be converted to int"); | |||
| 29133 | if (f2py_success) { | |||
| 29134 | /* Processing variable info */ | |||
| 29135 | /* Processing variable ab */ | |||
| 29136 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 29137 | ab_Dims[0]=2*kl+ku+1; | |||
| 29138 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 29139 | capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 29140 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 29141 | if (!PyErr_Occurred()) | |||
| 29142 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ab' of _flapack.cgbsv to C/Fortran array" ); | |||
| 29143 | } else { | |||
| 29144 | ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 29145 | ||||
| 29146 | CHECKARRAY(2*kl+ku+1==shape(ab,0),"2*kl+ku+1==shape(ab,0)","3rd argument ab")if (!(2*kl+ku+1==ab_Dims[0])) { PyErr_SetString(_flapack_error ,"(""2*kl+ku+1==shape(ab,0)"") failed for ""3rd argument ab") ; } else { | |||
| 29147 | /* Processing variable n */ | |||
| 29148 | n = shape(ab,1)ab_Dims[1]; | |||
| 29149 | /* Processing variable piv */ | |||
| 29150 | piv_Dims[0]=n; | |||
| 29151 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 29152 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 29153 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 29154 | if (!PyErr_Occurred()) | |||
| 29155 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.cgbsv to C/Fortran array" ); | |||
| 29156 | } else { | |||
| 29157 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 29158 | ||||
| 29159 | /* Processing variable b */ | |||
| 29160 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 29161 | b_Dims[0]=n; | |||
| 29162 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 29163 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 29164 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 29165 | if (!PyErr_Occurred()) | |||
| 29166 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.cgbsv to C/Fortran array" ); | |||
| 29167 | } else { | |||
| 29168 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 29169 | ||||
| 29170 | CHECKARRAY(shape(ab,1)==shape(b,0),"shape(ab,1)==shape(b,0)","4th argument b")if (!(ab_Dims[1]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(ab,1)==shape(b,0)"") failed for ""4th argument b") ; } else { | |||
| 29171 | /* Processing variable nrhs */ | |||
| 29172 | nrhs = shape(b,1)b_Dims[1]; | |||
| 29173 | /*end of frompyobj*/ | |||
| 29174 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29175 | f2py_start_call_clock(); | |||
| 29176 | #endif | |||
| 29177 | /*callfortranroutine*/ | |||
| 29178 | {F_INTint i=2*kl+ku+1;(*f2py_func)(&n,&kl,&ku,&nrhs,ab,&i,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 29179 | /*(*f2py_func)(&n,&kl,&ku,&nrhs,ab,piv,b,&info);*/ | |||
| 29180 | if (PyErr_Occurred()) | |||
| 29181 | f2py_success = 0; | |||
| 29182 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29183 | f2py_stop_call_clock(); | |||
| 29184 | #endif | |||
| 29185 | /*end of callfortranroutine*/ | |||
| 29186 | if (f2py_success) { | |||
| 29187 | /*pyobjfrom*/ | |||
| 29188 | /*end of pyobjfrom*/ | |||
| 29189 | CFUNCSMESS("Building return value.\n"); | |||
| 29190 | capi_buildvalue = Py_BuildValue("NNNi",capi_ab_tmp,capi_piv_tmp,capi_b_tmp,info); | |||
| 29191 | /*closepyobjfrom*/ | |||
| 29192 | /*end of closepyobjfrom*/ | |||
| 29193 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 29194 | /*cleanupfrompyobj*/ | |||
| 29195 | /* End of cleaning variable nrhs */ | |||
| 29196 | } /*CHECKARRAY(shape(ab,1)==shape(b,0))*/ | |||
| 29197 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 29198 | /* End of cleaning variable b */ | |||
| 29199 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 29200 | /* End of cleaning variable piv */ | |||
| 29201 | /* End of cleaning variable n */ | |||
| 29202 | } /*CHECKARRAY(2*kl+ku+1==shape(ab,0))*/ | |||
| 29203 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 29204 | /* End of cleaning variable ab */ | |||
| 29205 | /* End of cleaning variable info */ | |||
| 29206 | } /*if (f2py_success) of ku*/ | |||
| 29207 | /* End of cleaning variable ku */ | |||
| 29208 | } /*if (f2py_success) of kl*/ | |||
| 29209 | /* End of cleaning variable kl */ | |||
| 29210 | /*end of cleanupfrompyobj*/ | |||
| 29211 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 29212 | /*routdebugfailure*/ | |||
| 29213 | } else { | |||
| 29214 | /*routdebugleave*/ | |||
| 29215 | } | |||
| 29216 | CFUNCSMESS("Freeing memory.\n"); | |||
| 29217 | /*freemem*/ | |||
| 29218 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29219 | f2py_stop_clock(); | |||
| 29220 | #endif | |||
| 29221 | return capi_buildvalue; | |||
| 29222 | } | |||
| 29223 | /******************************** end of cgbsv ********************************/ | |||
| 29224 | ||||
| 29225 | /*********************************** zgbsv ***********************************/ | |||
| 29226 | static char doc_f2py_rout__flapack_zgbsv[] = "\ | |||
| 29227 | lub,piv,x,info = zgbsv(kl,ku,ab,b,[overwrite_ab,overwrite_b])\n\nWrapper for ``zgbsv``.\ | |||
| 29228 | \n\nParameters\n----------\n" | |||
| 29229 | "kl : input int\n" | |||
| 29230 | "ku : input int\n" | |||
| 29231 | "ab : input rank-2 array('D') with bounds (2*kl+ku+1,n)\n" | |||
| 29232 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 29233 | "\nOther Parameters\n----------------\n" | |||
| 29234 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 29235 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 29236 | "\nReturns\n-------\n" | |||
| 29237 | "lub : rank-2 array('D') with bounds (2*kl+ku+1,n) and ab storage\n" | |||
| 29238 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 29239 | "x : rank-2 array('D') with bounds (n,nrhs) and b storage\n" | |||
| 29240 | "info : int"; | |||
| 29241 | /* extern void F_FUNC(zgbsv,ZGBSV)(F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 29242 | static PyObject *f2py_rout__flapack_zgbsv(const PyObject *capi_self, | |||
| 29243 | PyObject *capi_args, | |||
| 29244 | PyObject *capi_keywds, | |||
| 29245 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 29246 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 29247 | volatile int f2py_success = 1; | |||
| 29248 | /*decl*/ | |||
| 29249 | ||||
| 29250 | int n = 0; | |||
| 29251 | int kl = 0; | |||
| 29252 | PyObject *kl_capi = Py_None(&_Py_NoneStruct); | |||
| 29253 | int ku = 0; | |||
| 29254 | PyObject *ku_capi = Py_None(&_Py_NoneStruct); | |||
| 29255 | int nrhs = 0; | |||
| 29256 | complex_double *ab = NULL((void*)0); | |||
| 29257 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 29258 | const int ab_Rank = 2; | |||
| 29259 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 29260 | int capi_ab_intent = 0; | |||
| 29261 | int capi_overwrite_ab = 0; | |||
| 29262 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 29263 | int *piv = NULL((void*)0); | |||
| 29264 | npy_intp piv_Dims[1] = {-1}; | |||
| 29265 | const int piv_Rank = 1; | |||
| 29266 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 29267 | int capi_piv_intent = 0; | |||
| 29268 | complex_double *b = NULL((void*)0); | |||
| 29269 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 29270 | const int b_Rank = 2; | |||
| 29271 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 29272 | int capi_b_intent = 0; | |||
| 29273 | int capi_overwrite_b = 0; | |||
| 29274 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 29275 | int info = 0; | |||
| 29276 | static char *capi_kwlist[] = {"kl","ku","ab","b","overwrite_ab","overwrite_b",NULL((void*)0)}; | |||
| 29277 | ||||
| 29278 | /*routdebugenter*/ | |||
| 29279 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29280 | f2py_start_clock(); | |||
| 29281 | #endif | |||
| 29282 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 29283 | "OOOO|ii:_flapack.zgbsv",\ | |||
| 29284 | capi_kwlist,&kl_capi,&ku_capi,&ab_capi,&b_capi,&capi_overwrite_ab,&capi_overwrite_b)) | |||
| 29285 | return NULL((void*)0); | |||
| 29286 | /*frompyobj*/ | |||
| 29287 | /* Processing variable kl */ | |||
| 29288 | f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.zgbsv() 1st argument (kl) can't be converted to int"); | |||
| 29289 | if (f2py_success) { | |||
| 29290 | /* Processing variable ku */ | |||
| 29291 | f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.zgbsv() 2nd argument (ku) can't be converted to int"); | |||
| 29292 | if (f2py_success) { | |||
| 29293 | /* Processing variable info */ | |||
| 29294 | /* Processing variable ab */ | |||
| 29295 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 29296 | ab_Dims[0]=2*kl+ku+1; | |||
| 29297 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 29298 | capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 29299 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 29300 | if (!PyErr_Occurred()) | |||
| 29301 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ab' of _flapack.zgbsv to C/Fortran array" ); | |||
| 29302 | } else { | |||
| 29303 | ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 29304 | ||||
| 29305 | CHECKARRAY(2*kl+ku+1==shape(ab,0),"2*kl+ku+1==shape(ab,0)","3rd argument ab")if (!(2*kl+ku+1==ab_Dims[0])) { PyErr_SetString(_flapack_error ,"(""2*kl+ku+1==shape(ab,0)"") failed for ""3rd argument ab") ; } else { | |||
| 29306 | /* Processing variable n */ | |||
| 29307 | n = shape(ab,1)ab_Dims[1]; | |||
| 29308 | /* Processing variable piv */ | |||
| 29309 | piv_Dims[0]=n; | |||
| 29310 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 29311 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 29312 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 29313 | if (!PyErr_Occurred()) | |||
| 29314 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.zgbsv to C/Fortran array" ); | |||
| 29315 | } else { | |||
| 29316 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 29317 | ||||
| 29318 | /* Processing variable b */ | |||
| 29319 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 29320 | b_Dims[0]=n; | |||
| 29321 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 29322 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 29323 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 29324 | if (!PyErr_Occurred()) | |||
| 29325 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.zgbsv to C/Fortran array" ); | |||
| 29326 | } else { | |||
| 29327 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 29328 | ||||
| 29329 | CHECKARRAY(shape(ab,1)==shape(b,0),"shape(ab,1)==shape(b,0)","4th argument b")if (!(ab_Dims[1]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(ab,1)==shape(b,0)"") failed for ""4th argument b") ; } else { | |||
| 29330 | /* Processing variable nrhs */ | |||
| 29331 | nrhs = shape(b,1)b_Dims[1]; | |||
| 29332 | /*end of frompyobj*/ | |||
| 29333 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29334 | f2py_start_call_clock(); | |||
| 29335 | #endif | |||
| 29336 | /*callfortranroutine*/ | |||
| 29337 | {F_INTint i=2*kl+ku+1;(*f2py_func)(&n,&kl,&ku,&nrhs,ab,&i,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ; | |||
| 29338 | /*(*f2py_func)(&n,&kl,&ku,&nrhs,ab,piv,b,&info);*/ | |||
| 29339 | if (PyErr_Occurred()) | |||
| 29340 | f2py_success = 0; | |||
| 29341 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29342 | f2py_stop_call_clock(); | |||
| 29343 | #endif | |||
| 29344 | /*end of callfortranroutine*/ | |||
| 29345 | if (f2py_success) { | |||
| 29346 | /*pyobjfrom*/ | |||
| 29347 | /*end of pyobjfrom*/ | |||
| 29348 | CFUNCSMESS("Building return value.\n"); | |||
| 29349 | capi_buildvalue = Py_BuildValue("NNNi",capi_ab_tmp,capi_piv_tmp,capi_b_tmp,info); | |||
| 29350 | /*closepyobjfrom*/ | |||
| 29351 | /*end of closepyobjfrom*/ | |||
| 29352 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 29353 | /*cleanupfrompyobj*/ | |||
| 29354 | /* End of cleaning variable nrhs */ | |||
| 29355 | } /*CHECKARRAY(shape(ab,1)==shape(b,0))*/ | |||
| 29356 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 29357 | /* End of cleaning variable b */ | |||
| 29358 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 29359 | /* End of cleaning variable piv */ | |||
| 29360 | /* End of cleaning variable n */ | |||
| 29361 | } /*CHECKARRAY(2*kl+ku+1==shape(ab,0))*/ | |||
| 29362 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 29363 | /* End of cleaning variable ab */ | |||
| 29364 | /* End of cleaning variable info */ | |||
| 29365 | } /*if (f2py_success) of ku*/ | |||
| 29366 | /* End of cleaning variable ku */ | |||
| 29367 | } /*if (f2py_success) of kl*/ | |||
| 29368 | /* End of cleaning variable kl */ | |||
| 29369 | /*end of cleanupfrompyobj*/ | |||
| 29370 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 29371 | /*routdebugfailure*/ | |||
| 29372 | } else { | |||
| 29373 | /*routdebugleave*/ | |||
| 29374 | } | |||
| 29375 | CFUNCSMESS("Freeing memory.\n"); | |||
| 29376 | /*freemem*/ | |||
| 29377 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29378 | f2py_stop_clock(); | |||
| 29379 | #endif | |||
| 29380 | return capi_buildvalue; | |||
| 29381 | } | |||
| 29382 | /******************************** end of zgbsv ********************************/ | |||
| 29383 | ||||
| 29384 | /*********************************** sgbtrf ***********************************/ | |||
| 29385 | static char doc_f2py_rout__flapack_sgbtrf[] = "\ | |||
| 29386 | lu,ipiv,info = sgbtrf(ab,kl,ku,[m,n,ldab,overwrite_ab])\n\nWrapper for ``sgbtrf``.\ | |||
| 29387 | \n\nParameters\n----------\n" | |||
| 29388 | "ab : input rank-2 array('f') with bounds (ldab,n)\n" | |||
| 29389 | "kl : input int\n" | |||
| 29390 | "ku : input int\n" | |||
| 29391 | "\nOther Parameters\n----------------\n" | |||
| 29392 | "m : input int, optional\n Default: shape(ab,1)\n" | |||
| 29393 | "n : input int, optional\n Default: shape(ab,1)\n" | |||
| 29394 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 29395 | "ldab : input int, optional\n Default: max(shape(ab,0),1)\n" | |||
| 29396 | "\nReturns\n-------\n" | |||
| 29397 | "lu : rank-2 array('f') with bounds (ldab,n) and ab storage\n" | |||
| 29398 | "ipiv : rank-1 array('i') with bounds (MIN(m,n))\n" | |||
| 29399 | "info : int"; | |||
| 29400 | /* extern void F_FUNC(sgbtrf,SGBTRF)(F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 29401 | static PyObject *f2py_rout__flapack_sgbtrf(const PyObject *capi_self, | |||
| 29402 | PyObject *capi_args, | |||
| 29403 | PyObject *capi_keywds, | |||
| 29404 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 29405 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 29406 | volatile int f2py_success = 1; | |||
| 29407 | /*decl*/ | |||
| 29408 | ||||
| 29409 | int m = 0; | |||
| 29410 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 29411 | int n = 0; | |||
| 29412 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 29413 | float *ab = NULL((void*)0); | |||
| 29414 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 29415 | const int ab_Rank = 2; | |||
| 29416 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 29417 | int capi_ab_intent = 0; | |||
| 29418 | int capi_overwrite_ab = 0; | |||
| 29419 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 29420 | int kl = 0; | |||
| 29421 | PyObject *kl_capi = Py_None(&_Py_NoneStruct); | |||
| 29422 | int ku = 0; | |||
| 29423 | PyObject *ku_capi = Py_None(&_Py_NoneStruct); | |||
| 29424 | int ldab = 0; | |||
| 29425 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 29426 | int *ipiv = NULL((void*)0); | |||
| 29427 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 29428 | const int ipiv_Rank = 1; | |||
| 29429 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 29430 | int capi_ipiv_intent = 0; | |||
| 29431 | int info = 0; | |||
| 29432 | static char *capi_kwlist[] = {"ab","kl","ku","m","n","ldab","overwrite_ab",NULL((void*)0)}; | |||
| 29433 | ||||
| 29434 | /*routdebugenter*/ | |||
| 29435 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29436 | f2py_start_clock(); | |||
| 29437 | #endif | |||
| 29438 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 29439 | "OOO|OOOi:_flapack.sgbtrf",\ | |||
| 29440 | capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&m_capi,&n_capi,&ldab_capi,&capi_overwrite_ab)) | |||
| 29441 | return NULL((void*)0); | |||
| 29442 | /*frompyobj*/ | |||
| 29443 | /* Processing variable kl */ | |||
| 29444 | f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.sgbtrf() 2nd argument (kl) can't be converted to int"); | |||
| 29445 | if (f2py_success) { | |||
| 29446 | /* Processing variable ku */ | |||
| 29447 | f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.sgbtrf() 3rd argument (ku) can't be converted to int"); | |||
| 29448 | if (f2py_success) { | |||
| 29449 | /* Processing variable ab */ | |||
| 29450 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 29451 | ; | |||
| 29452 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 29453 | capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 29454 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 29455 | if (!PyErr_Occurred()) | |||
| 29456 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.sgbtrf to C/Fortran array" ); | |||
| 29457 | } else { | |||
| 29458 | ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 29459 | ||||
| 29460 | /* Processing variable info */ | |||
| 29461 | /* Processing variable m */ | |||
| 29462 | if (m_capi == Py_None(&_Py_NoneStruct)) m = shape(ab,1)ab_Dims[1]; else | |||
| 29463 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgbtrf() 1st keyword (m) can't be converted to int"); | |||
| 29464 | if (f2py_success) { | |||
| 29465 | /* Processing variable n */ | |||
| 29466 | if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else | |||
| 29467 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgbtrf() 2nd keyword (n) can't be converted to int"); | |||
| 29468 | if (f2py_success) { | |||
| 29469 | /* Processing variable ldab */ | |||
| 29470 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = max(shape(ab,0),1)((ab_Dims[0] > 1) ? (ab_Dims[0]) : (1)); else | |||
| 29471 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.sgbtrf() 3rd keyword (ldab) can't be converted to int"); | |||
| 29472 | if (f2py_success) { | |||
| 29473 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","sgbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 29474 | /* Processing variable ipiv */ | |||
| 29475 | ipiv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 29476 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 29477 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 29478 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 29479 | if (!PyErr_Occurred()) | |||
| 29480 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.sgbtrf to C/Fortran array" ); | |||
| 29481 | } else { | |||
| 29482 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 29483 | ||||
| 29484 | /*end of frompyobj*/ | |||
| 29485 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29486 | f2py_start_call_clock(); | |||
| 29487 | #endif | |||
| 29488 | /*callfortranroutine*/ | |||
| 29489 | {F_INTint i;(*f2py_func)(&m,&n,&kl,&ku,ab,&ldab,ipiv,&info); for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--ipiv[i++]);} ; | |||
| 29490 | /*(*f2py_func)(&m,&n,ab,&kl,&ku,&ldab,ipiv,&info);*/ | |||
| 29491 | if (PyErr_Occurred()) | |||
| 29492 | f2py_success = 0; | |||
| 29493 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29494 | f2py_stop_call_clock(); | |||
| 29495 | #endif | |||
| 29496 | /*end of callfortranroutine*/ | |||
| 29497 | if (f2py_success) { | |||
| 29498 | /*pyobjfrom*/ | |||
| 29499 | /*end of pyobjfrom*/ | |||
| 29500 | CFUNCSMESS("Building return value.\n"); | |||
| 29501 | capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_ipiv_tmp,info); | |||
| 29502 | /*closepyobjfrom*/ | |||
| 29503 | /*end of closepyobjfrom*/ | |||
| 29504 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 29505 | /*cleanupfrompyobj*/ | |||
| 29506 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 29507 | /* End of cleaning variable ipiv */ | |||
| 29508 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 29509 | } /*if (f2py_success) of ldab*/ | |||
| 29510 | /* End of cleaning variable ldab */ | |||
| 29511 | } /*if (f2py_success) of n*/ | |||
| 29512 | /* End of cleaning variable n */ | |||
| 29513 | } /*if (f2py_success) of m*/ | |||
| 29514 | /* End of cleaning variable m */ | |||
| 29515 | /* End of cleaning variable info */ | |||
| 29516 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 29517 | /* End of cleaning variable ab */ | |||
| 29518 | } /*if (f2py_success) of ku*/ | |||
| 29519 | /* End of cleaning variable ku */ | |||
| 29520 | } /*if (f2py_success) of kl*/ | |||
| 29521 | /* End of cleaning variable kl */ | |||
| 29522 | /*end of cleanupfrompyobj*/ | |||
| 29523 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 29524 | /*routdebugfailure*/ | |||
| 29525 | } else { | |||
| 29526 | /*routdebugleave*/ | |||
| 29527 | } | |||
| 29528 | CFUNCSMESS("Freeing memory.\n"); | |||
| 29529 | /*freemem*/ | |||
| 29530 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29531 | f2py_stop_clock(); | |||
| 29532 | #endif | |||
| 29533 | return capi_buildvalue; | |||
| 29534 | } | |||
| 29535 | /******************************* end of sgbtrf *******************************/ | |||
| 29536 | ||||
| 29537 | /*********************************** dgbtrf ***********************************/ | |||
| 29538 | static char doc_f2py_rout__flapack_dgbtrf[] = "\ | |||
| 29539 | lu,ipiv,info = dgbtrf(ab,kl,ku,[m,n,ldab,overwrite_ab])\n\nWrapper for ``dgbtrf``.\ | |||
| 29540 | \n\nParameters\n----------\n" | |||
| 29541 | "ab : input rank-2 array('d') with bounds (ldab,n)\n" | |||
| 29542 | "kl : input int\n" | |||
| 29543 | "ku : input int\n" | |||
| 29544 | "\nOther Parameters\n----------------\n" | |||
| 29545 | "m : input int, optional\n Default: shape(ab,1)\n" | |||
| 29546 | "n : input int, optional\n Default: shape(ab,1)\n" | |||
| 29547 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 29548 | "ldab : input int, optional\n Default: max(shape(ab,0),1)\n" | |||
| 29549 | "\nReturns\n-------\n" | |||
| 29550 | "lu : rank-2 array('d') with bounds (ldab,n) and ab storage\n" | |||
| 29551 | "ipiv : rank-1 array('i') with bounds (MIN(m,n))\n" | |||
| 29552 | "info : int"; | |||
| 29553 | /* extern void F_FUNC(dgbtrf,DGBTRF)(F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 29554 | static PyObject *f2py_rout__flapack_dgbtrf(const PyObject *capi_self, | |||
| 29555 | PyObject *capi_args, | |||
| 29556 | PyObject *capi_keywds, | |||
| 29557 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 29558 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 29559 | volatile int f2py_success = 1; | |||
| 29560 | /*decl*/ | |||
| 29561 | ||||
| 29562 | int m = 0; | |||
| 29563 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 29564 | int n = 0; | |||
| 29565 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 29566 | double *ab = NULL((void*)0); | |||
| 29567 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 29568 | const int ab_Rank = 2; | |||
| 29569 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 29570 | int capi_ab_intent = 0; | |||
| 29571 | int capi_overwrite_ab = 0; | |||
| 29572 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 29573 | int kl = 0; | |||
| 29574 | PyObject *kl_capi = Py_None(&_Py_NoneStruct); | |||
| 29575 | int ku = 0; | |||
| 29576 | PyObject *ku_capi = Py_None(&_Py_NoneStruct); | |||
| 29577 | int ldab = 0; | |||
| 29578 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 29579 | int *ipiv = NULL((void*)0); | |||
| 29580 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 29581 | const int ipiv_Rank = 1; | |||
| 29582 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 29583 | int capi_ipiv_intent = 0; | |||
| 29584 | int info = 0; | |||
| 29585 | static char *capi_kwlist[] = {"ab","kl","ku","m","n","ldab","overwrite_ab",NULL((void*)0)}; | |||
| 29586 | ||||
| 29587 | /*routdebugenter*/ | |||
| 29588 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29589 | f2py_start_clock(); | |||
| 29590 | #endif | |||
| 29591 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 29592 | "OOO|OOOi:_flapack.dgbtrf",\ | |||
| 29593 | capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&m_capi,&n_capi,&ldab_capi,&capi_overwrite_ab)) | |||
| 29594 | return NULL((void*)0); | |||
| 29595 | /*frompyobj*/ | |||
| 29596 | /* Processing variable kl */ | |||
| 29597 | f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.dgbtrf() 2nd argument (kl) can't be converted to int"); | |||
| 29598 | if (f2py_success) { | |||
| 29599 | /* Processing variable ku */ | |||
| 29600 | f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.dgbtrf() 3rd argument (ku) can't be converted to int"); | |||
| 29601 | if (f2py_success) { | |||
| 29602 | /* Processing variable ab */ | |||
| 29603 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 29604 | ; | |||
| 29605 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 29606 | capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 29607 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 29608 | if (!PyErr_Occurred()) | |||
| 29609 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dgbtrf to C/Fortran array" ); | |||
| 29610 | } else { | |||
| 29611 | ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 29612 | ||||
| 29613 | /* Processing variable info */ | |||
| 29614 | /* Processing variable m */ | |||
| 29615 | if (m_capi == Py_None(&_Py_NoneStruct)) m = shape(ab,1)ab_Dims[1]; else | |||
| 29616 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgbtrf() 1st keyword (m) can't be converted to int"); | |||
| 29617 | if (f2py_success) { | |||
| 29618 | /* Processing variable n */ | |||
| 29619 | if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else | |||
| 29620 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgbtrf() 2nd keyword (n) can't be converted to int"); | |||
| 29621 | if (f2py_success) { | |||
| 29622 | /* Processing variable ldab */ | |||
| 29623 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = max(shape(ab,0),1)((ab_Dims[0] > 1) ? (ab_Dims[0]) : (1)); else | |||
| 29624 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dgbtrf() 3rd keyword (ldab) can't be converted to int"); | |||
| 29625 | if (f2py_success) { | |||
| 29626 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","dgbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 29627 | /* Processing variable ipiv */ | |||
| 29628 | ipiv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 29629 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 29630 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 29631 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 29632 | if (!PyErr_Occurred()) | |||
| 29633 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.dgbtrf to C/Fortran array" ); | |||
| 29634 | } else { | |||
| 29635 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 29636 | ||||
| 29637 | /*end of frompyobj*/ | |||
| 29638 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29639 | f2py_start_call_clock(); | |||
| 29640 | #endif | |||
| 29641 | /*callfortranroutine*/ | |||
| 29642 | {F_INTint i;(*f2py_func)(&m,&n,&kl,&ku,ab,&ldab,ipiv,&info); for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--ipiv[i++]);} ; | |||
| 29643 | /*(*f2py_func)(&m,&n,ab,&kl,&ku,&ldab,ipiv,&info);*/ | |||
| 29644 | if (PyErr_Occurred()) | |||
| 29645 | f2py_success = 0; | |||
| 29646 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29647 | f2py_stop_call_clock(); | |||
| 29648 | #endif | |||
| 29649 | /*end of callfortranroutine*/ | |||
| 29650 | if (f2py_success) { | |||
| 29651 | /*pyobjfrom*/ | |||
| 29652 | /*end of pyobjfrom*/ | |||
| 29653 | CFUNCSMESS("Building return value.\n"); | |||
| 29654 | capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_ipiv_tmp,info); | |||
| 29655 | /*closepyobjfrom*/ | |||
| 29656 | /*end of closepyobjfrom*/ | |||
| 29657 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 29658 | /*cleanupfrompyobj*/ | |||
| 29659 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 29660 | /* End of cleaning variable ipiv */ | |||
| 29661 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 29662 | } /*if (f2py_success) of ldab*/ | |||
| 29663 | /* End of cleaning variable ldab */ | |||
| 29664 | } /*if (f2py_success) of n*/ | |||
| 29665 | /* End of cleaning variable n */ | |||
| 29666 | } /*if (f2py_success) of m*/ | |||
| 29667 | /* End of cleaning variable m */ | |||
| 29668 | /* End of cleaning variable info */ | |||
| 29669 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 29670 | /* End of cleaning variable ab */ | |||
| 29671 | } /*if (f2py_success) of ku*/ | |||
| 29672 | /* End of cleaning variable ku */ | |||
| 29673 | } /*if (f2py_success) of kl*/ | |||
| 29674 | /* End of cleaning variable kl */ | |||
| 29675 | /*end of cleanupfrompyobj*/ | |||
| 29676 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 29677 | /*routdebugfailure*/ | |||
| 29678 | } else { | |||
| 29679 | /*routdebugleave*/ | |||
| 29680 | } | |||
| 29681 | CFUNCSMESS("Freeing memory.\n"); | |||
| 29682 | /*freemem*/ | |||
| 29683 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29684 | f2py_stop_clock(); | |||
| 29685 | #endif | |||
| 29686 | return capi_buildvalue; | |||
| 29687 | } | |||
| 29688 | /******************************* end of dgbtrf *******************************/ | |||
| 29689 | ||||
| 29690 | /*********************************** cgbtrf ***********************************/ | |||
| 29691 | static char doc_f2py_rout__flapack_cgbtrf[] = "\ | |||
| 29692 | lu,ipiv,info = cgbtrf(ab,kl,ku,[m,n,ldab,overwrite_ab])\n\nWrapper for ``cgbtrf``.\ | |||
| 29693 | \n\nParameters\n----------\n" | |||
| 29694 | "ab : input rank-2 array('F') with bounds (ldab,n)\n" | |||
| 29695 | "kl : input int\n" | |||
| 29696 | "ku : input int\n" | |||
| 29697 | "\nOther Parameters\n----------------\n" | |||
| 29698 | "m : input int, optional\n Default: shape(ab,1)\n" | |||
| 29699 | "n : input int, optional\n Default: shape(ab,1)\n" | |||
| 29700 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 29701 | "ldab : input int, optional\n Default: max(shape(ab,0),1)\n" | |||
| 29702 | "\nReturns\n-------\n" | |||
| 29703 | "lu : rank-2 array('F') with bounds (ldab,n) and ab storage\n" | |||
| 29704 | "ipiv : rank-1 array('i') with bounds (MIN(m,n))\n" | |||
| 29705 | "info : int"; | |||
| 29706 | /* extern void F_FUNC(cgbtrf,CGBTRF)(F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 29707 | static PyObject *f2py_rout__flapack_cgbtrf(const PyObject *capi_self, | |||
| 29708 | PyObject *capi_args, | |||
| 29709 | PyObject *capi_keywds, | |||
| 29710 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 29711 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 29712 | volatile int f2py_success = 1; | |||
| 29713 | /*decl*/ | |||
| 29714 | ||||
| 29715 | int m = 0; | |||
| 29716 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 29717 | int n = 0; | |||
| 29718 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 29719 | complex_float *ab = NULL((void*)0); | |||
| 29720 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 29721 | const int ab_Rank = 2; | |||
| 29722 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 29723 | int capi_ab_intent = 0; | |||
| 29724 | int capi_overwrite_ab = 0; | |||
| 29725 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 29726 | int kl = 0; | |||
| 29727 | PyObject *kl_capi = Py_None(&_Py_NoneStruct); | |||
| 29728 | int ku = 0; | |||
| 29729 | PyObject *ku_capi = Py_None(&_Py_NoneStruct); | |||
| 29730 | int ldab = 0; | |||
| 29731 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 29732 | int *ipiv = NULL((void*)0); | |||
| 29733 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 29734 | const int ipiv_Rank = 1; | |||
| 29735 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 29736 | int capi_ipiv_intent = 0; | |||
| 29737 | int info = 0; | |||
| 29738 | static char *capi_kwlist[] = {"ab","kl","ku","m","n","ldab","overwrite_ab",NULL((void*)0)}; | |||
| 29739 | ||||
| 29740 | /*routdebugenter*/ | |||
| 29741 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29742 | f2py_start_clock(); | |||
| 29743 | #endif | |||
| 29744 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 29745 | "OOO|OOOi:_flapack.cgbtrf",\ | |||
| 29746 | capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&m_capi,&n_capi,&ldab_capi,&capi_overwrite_ab)) | |||
| 29747 | return NULL((void*)0); | |||
| 29748 | /*frompyobj*/ | |||
| 29749 | /* Processing variable kl */ | |||
| 29750 | f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.cgbtrf() 2nd argument (kl) can't be converted to int"); | |||
| 29751 | if (f2py_success) { | |||
| 29752 | /* Processing variable ku */ | |||
| 29753 | f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.cgbtrf() 3rd argument (ku) can't be converted to int"); | |||
| 29754 | if (f2py_success) { | |||
| 29755 | /* Processing variable ab */ | |||
| 29756 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 29757 | ; | |||
| 29758 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 29759 | capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 29760 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 29761 | if (!PyErr_Occurred()) | |||
| 29762 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.cgbtrf to C/Fortran array" ); | |||
| 29763 | } else { | |||
| 29764 | ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 29765 | ||||
| 29766 | /* Processing variable info */ | |||
| 29767 | /* Processing variable m */ | |||
| 29768 | if (m_capi == Py_None(&_Py_NoneStruct)) m = shape(ab,1)ab_Dims[1]; else | |||
| 29769 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgbtrf() 1st keyword (m) can't be converted to int"); | |||
| 29770 | if (f2py_success) { | |||
| 29771 | /* Processing variable n */ | |||
| 29772 | if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else | |||
| 29773 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgbtrf() 2nd keyword (n) can't be converted to int"); | |||
| 29774 | if (f2py_success) { | |||
| 29775 | /* Processing variable ldab */ | |||
| 29776 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = max(shape(ab,0),1)((ab_Dims[0] > 1) ? (ab_Dims[0]) : (1)); else | |||
| 29777 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.cgbtrf() 3rd keyword (ldab) can't be converted to int"); | |||
| 29778 | if (f2py_success) { | |||
| 29779 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","cgbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 29780 | /* Processing variable ipiv */ | |||
| 29781 | ipiv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 29782 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 29783 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 29784 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 29785 | if (!PyErr_Occurred()) | |||
| 29786 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.cgbtrf to C/Fortran array" ); | |||
| 29787 | } else { | |||
| 29788 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 29789 | ||||
| 29790 | /*end of frompyobj*/ | |||
| 29791 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29792 | f2py_start_call_clock(); | |||
| 29793 | #endif | |||
| 29794 | /*callfortranroutine*/ | |||
| 29795 | {F_INTint i;(*f2py_func)(&m,&n,&kl,&ku,ab,&ldab,ipiv,&info); for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--ipiv[i++]);} ; | |||
| 29796 | /*(*f2py_func)(&m,&n,ab,&kl,&ku,&ldab,ipiv,&info);*/ | |||
| 29797 | if (PyErr_Occurred()) | |||
| 29798 | f2py_success = 0; | |||
| 29799 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29800 | f2py_stop_call_clock(); | |||
| 29801 | #endif | |||
| 29802 | /*end of callfortranroutine*/ | |||
| 29803 | if (f2py_success) { | |||
| 29804 | /*pyobjfrom*/ | |||
| 29805 | /*end of pyobjfrom*/ | |||
| 29806 | CFUNCSMESS("Building return value.\n"); | |||
| 29807 | capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_ipiv_tmp,info); | |||
| 29808 | /*closepyobjfrom*/ | |||
| 29809 | /*end of closepyobjfrom*/ | |||
| 29810 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 29811 | /*cleanupfrompyobj*/ | |||
| 29812 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 29813 | /* End of cleaning variable ipiv */ | |||
| 29814 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 29815 | } /*if (f2py_success) of ldab*/ | |||
| 29816 | /* End of cleaning variable ldab */ | |||
| 29817 | } /*if (f2py_success) of n*/ | |||
| 29818 | /* End of cleaning variable n */ | |||
| 29819 | } /*if (f2py_success) of m*/ | |||
| 29820 | /* End of cleaning variable m */ | |||
| 29821 | /* End of cleaning variable info */ | |||
| 29822 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 29823 | /* End of cleaning variable ab */ | |||
| 29824 | } /*if (f2py_success) of ku*/ | |||
| 29825 | /* End of cleaning variable ku */ | |||
| 29826 | } /*if (f2py_success) of kl*/ | |||
| 29827 | /* End of cleaning variable kl */ | |||
| 29828 | /*end of cleanupfrompyobj*/ | |||
| 29829 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 29830 | /*routdebugfailure*/ | |||
| 29831 | } else { | |||
| 29832 | /*routdebugleave*/ | |||
| 29833 | } | |||
| 29834 | CFUNCSMESS("Freeing memory.\n"); | |||
| 29835 | /*freemem*/ | |||
| 29836 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29837 | f2py_stop_clock(); | |||
| 29838 | #endif | |||
| 29839 | return capi_buildvalue; | |||
| 29840 | } | |||
| 29841 | /******************************* end of cgbtrf *******************************/ | |||
| 29842 | ||||
| 29843 | /*********************************** zgbtrf ***********************************/ | |||
| 29844 | static char doc_f2py_rout__flapack_zgbtrf[] = "\ | |||
| 29845 | lu,ipiv,info = zgbtrf(ab,kl,ku,[m,n,ldab,overwrite_ab])\n\nWrapper for ``zgbtrf``.\ | |||
| 29846 | \n\nParameters\n----------\n" | |||
| 29847 | "ab : input rank-2 array('D') with bounds (ldab,n)\n" | |||
| 29848 | "kl : input int\n" | |||
| 29849 | "ku : input int\n" | |||
| 29850 | "\nOther Parameters\n----------------\n" | |||
| 29851 | "m : input int, optional\n Default: shape(ab,1)\n" | |||
| 29852 | "n : input int, optional\n Default: shape(ab,1)\n" | |||
| 29853 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 29854 | "ldab : input int, optional\n Default: max(shape(ab,0),1)\n" | |||
| 29855 | "\nReturns\n-------\n" | |||
| 29856 | "lu : rank-2 array('D') with bounds (ldab,n) and ab storage\n" | |||
| 29857 | "ipiv : rank-1 array('i') with bounds (MIN(m,n))\n" | |||
| 29858 | "info : int"; | |||
| 29859 | /* extern void F_FUNC(zgbtrf,ZGBTRF)(F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 29860 | static PyObject *f2py_rout__flapack_zgbtrf(const PyObject *capi_self, | |||
| 29861 | PyObject *capi_args, | |||
| 29862 | PyObject *capi_keywds, | |||
| 29863 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 29864 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 29865 | volatile int f2py_success = 1; | |||
| 29866 | /*decl*/ | |||
| 29867 | ||||
| 29868 | int m = 0; | |||
| 29869 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 29870 | int n = 0; | |||
| 29871 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 29872 | complex_double *ab = NULL((void*)0); | |||
| 29873 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 29874 | const int ab_Rank = 2; | |||
| 29875 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 29876 | int capi_ab_intent = 0; | |||
| 29877 | int capi_overwrite_ab = 0; | |||
| 29878 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 29879 | int kl = 0; | |||
| 29880 | PyObject *kl_capi = Py_None(&_Py_NoneStruct); | |||
| 29881 | int ku = 0; | |||
| 29882 | PyObject *ku_capi = Py_None(&_Py_NoneStruct); | |||
| 29883 | int ldab = 0; | |||
| 29884 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 29885 | int *ipiv = NULL((void*)0); | |||
| 29886 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 29887 | const int ipiv_Rank = 1; | |||
| 29888 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 29889 | int capi_ipiv_intent = 0; | |||
| 29890 | int info = 0; | |||
| 29891 | static char *capi_kwlist[] = {"ab","kl","ku","m","n","ldab","overwrite_ab",NULL((void*)0)}; | |||
| 29892 | ||||
| 29893 | /*routdebugenter*/ | |||
| 29894 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29895 | f2py_start_clock(); | |||
| 29896 | #endif | |||
| 29897 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 29898 | "OOO|OOOi:_flapack.zgbtrf",\ | |||
| 29899 | capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&m_capi,&n_capi,&ldab_capi,&capi_overwrite_ab)) | |||
| 29900 | return NULL((void*)0); | |||
| 29901 | /*frompyobj*/ | |||
| 29902 | /* Processing variable kl */ | |||
| 29903 | f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.zgbtrf() 2nd argument (kl) can't be converted to int"); | |||
| 29904 | if (f2py_success) { | |||
| 29905 | /* Processing variable ku */ | |||
| 29906 | f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.zgbtrf() 3rd argument (ku) can't be converted to int"); | |||
| 29907 | if (f2py_success) { | |||
| 29908 | /* Processing variable ab */ | |||
| 29909 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 29910 | ; | |||
| 29911 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 29912 | capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 29913 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 29914 | if (!PyErr_Occurred()) | |||
| 29915 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zgbtrf to C/Fortran array" ); | |||
| 29916 | } else { | |||
| 29917 | ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 29918 | ||||
| 29919 | /* Processing variable info */ | |||
| 29920 | /* Processing variable m */ | |||
| 29921 | if (m_capi == Py_None(&_Py_NoneStruct)) m = shape(ab,1)ab_Dims[1]; else | |||
| 29922 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgbtrf() 1st keyword (m) can't be converted to int"); | |||
| 29923 | if (f2py_success) { | |||
| 29924 | /* Processing variable n */ | |||
| 29925 | if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else | |||
| 29926 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgbtrf() 2nd keyword (n) can't be converted to int"); | |||
| 29927 | if (f2py_success) { | |||
| 29928 | /* Processing variable ldab */ | |||
| 29929 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = max(shape(ab,0),1)((ab_Dims[0] > 1) ? (ab_Dims[0]) : (1)); else | |||
| 29930 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zgbtrf() 3rd keyword (ldab) can't be converted to int"); | |||
| 29931 | if (f2py_success) { | |||
| 29932 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","zgbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 29933 | /* Processing variable ipiv */ | |||
| 29934 | ipiv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 29935 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 29936 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 29937 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 29938 | if (!PyErr_Occurred()) | |||
| 29939 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zgbtrf to C/Fortran array" ); | |||
| 29940 | } else { | |||
| 29941 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 29942 | ||||
| 29943 | /*end of frompyobj*/ | |||
| 29944 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29945 | f2py_start_call_clock(); | |||
| 29946 | #endif | |||
| 29947 | /*callfortranroutine*/ | |||
| 29948 | {F_INTint i;(*f2py_func)(&m,&n,&kl,&ku,ab,&ldab,ipiv,&info); for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--ipiv[i++]);} ; | |||
| 29949 | /*(*f2py_func)(&m,&n,ab,&kl,&ku,&ldab,ipiv,&info);*/ | |||
| 29950 | if (PyErr_Occurred()) | |||
| 29951 | f2py_success = 0; | |||
| 29952 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29953 | f2py_stop_call_clock(); | |||
| 29954 | #endif | |||
| 29955 | /*end of callfortranroutine*/ | |||
| 29956 | if (f2py_success) { | |||
| 29957 | /*pyobjfrom*/ | |||
| 29958 | /*end of pyobjfrom*/ | |||
| 29959 | CFUNCSMESS("Building return value.\n"); | |||
| 29960 | capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_ipiv_tmp,info); | |||
| 29961 | /*closepyobjfrom*/ | |||
| 29962 | /*end of closepyobjfrom*/ | |||
| 29963 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 29964 | /*cleanupfrompyobj*/ | |||
| 29965 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 29966 | /* End of cleaning variable ipiv */ | |||
| 29967 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 29968 | } /*if (f2py_success) of ldab*/ | |||
| 29969 | /* End of cleaning variable ldab */ | |||
| 29970 | } /*if (f2py_success) of n*/ | |||
| 29971 | /* End of cleaning variable n */ | |||
| 29972 | } /*if (f2py_success) of m*/ | |||
| 29973 | /* End of cleaning variable m */ | |||
| 29974 | /* End of cleaning variable info */ | |||
| 29975 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 29976 | /* End of cleaning variable ab */ | |||
| 29977 | } /*if (f2py_success) of ku*/ | |||
| 29978 | /* End of cleaning variable ku */ | |||
| 29979 | } /*if (f2py_success) of kl*/ | |||
| 29980 | /* End of cleaning variable kl */ | |||
| 29981 | /*end of cleanupfrompyobj*/ | |||
| 29982 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 29983 | /*routdebugfailure*/ | |||
| 29984 | } else { | |||
| 29985 | /*routdebugleave*/ | |||
| 29986 | } | |||
| 29987 | CFUNCSMESS("Freeing memory.\n"); | |||
| 29988 | /*freemem*/ | |||
| 29989 | #ifdef F2PY_REPORT_ATEXIT | |||
| 29990 | f2py_stop_clock(); | |||
| 29991 | #endif | |||
| 29992 | return capi_buildvalue; | |||
| 29993 | } | |||
| 29994 | /******************************* end of zgbtrf *******************************/ | |||
| 29995 | ||||
| 29996 | /*********************************** sgbtrs ***********************************/ | |||
| 29997 | static char doc_f2py_rout__flapack_sgbtrs[] = "\ | |||
| 29998 | x,info = sgbtrs(ab,kl,ku,b,ipiv,[trans,n,ldab,ldb,overwrite_b])\n\nWrapper for ``sgbtrs``.\ | |||
| 29999 | \n\nParameters\n----------\n" | |||
| 30000 | "ab : input rank-2 array('f') with bounds (ldab,n)\n" | |||
| 30001 | "kl : input int\n" | |||
| 30002 | "ku : input int\n" | |||
| 30003 | "b : input rank-2 array('f') with bounds (ldb,nrhs)\n" | |||
| 30004 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 30005 | "\nOther Parameters\n----------------\n" | |||
| 30006 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 30007 | "trans : input int, optional\n Default: 0\n" | |||
| 30008 | "n : input int, optional\n Default: shape(ab,1)\n" | |||
| 30009 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 30010 | "ldb : input int, optional\n Default: shape(b,0)\n" | |||
| 30011 | "\nReturns\n-------\n" | |||
| 30012 | "x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n" | |||
| 30013 | "info : int"; | |||
| 30014 | /* extern void F_FUNC(sgbtrs,SGBTRS)(char*,F_INT*,F_INT *,F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 30015 | static PyObject *f2py_rout__flapack_sgbtrs(const PyObject *capi_self, | |||
| 30016 | PyObject *capi_args, | |||
| 30017 | PyObject *capi_keywds, | |||
| 30018 | void (*f2py_func)(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 30019 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 30020 | volatile int f2py_success = 1; | |||
| 30021 | /*decl*/ | |||
| 30022 | ||||
| 30023 | float *ab = NULL((void*)0); | |||
| 30024 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 30025 | const int ab_Rank = 2; | |||
| 30026 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 30027 | int capi_ab_intent = 0; | |||
| 30028 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 30029 | int kl = 0; | |||
| 30030 | PyObject *kl_capi = Py_None(&_Py_NoneStruct); | |||
| 30031 | int ku = 0; | |||
| 30032 | PyObject *ku_capi = Py_None(&_Py_NoneStruct); | |||
| 30033 | float *b = NULL((void*)0); | |||
| 30034 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 30035 | const int b_Rank = 2; | |||
| 30036 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 30037 | int capi_b_intent = 0; | |||
| 30038 | int capi_overwrite_b = 0; | |||
| 30039 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 30040 | int *ipiv = NULL((void*)0); | |||
| 30041 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 30042 | const int ipiv_Rank = 1; | |||
| 30043 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 30044 | int capi_ipiv_intent = 0; | |||
| 30045 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 30046 | int trans = 0; | |||
| 30047 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 30048 | int n = 0; | |||
| 30049 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 30050 | int nrhs = 0; | |||
| 30051 | int ldab = 0; | |||
| 30052 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 30053 | int ldb = 0; | |||
| 30054 | PyObject *ldb_capi = Py_None(&_Py_NoneStruct); | |||
| 30055 | int info = 0; | |||
| 30056 | static char *capi_kwlist[] = {"ab","kl","ku","b","ipiv","trans","n","ldab","ldb","overwrite_b",NULL((void*)0)}; | |||
| 30057 | ||||
| 30058 | /*routdebugenter*/ | |||
| 30059 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30060 | f2py_start_clock(); | |||
| 30061 | #endif | |||
| 30062 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 30063 | "OOOOO|OOOOi:_flapack.sgbtrs",\ | |||
| 30064 | capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&b_capi,&ipiv_capi,&trans_capi,&n_capi,&ldab_capi,&ldb_capi,&capi_overwrite_b)) | |||
| 30065 | return NULL((void*)0); | |||
| 30066 | /*frompyobj*/ | |||
| 30067 | /* Processing variable trans */ | |||
| 30068 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 30069 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.sgbtrs() 1st keyword (trans) can't be converted to int"); | |||
| 30070 | if (f2py_success) { | |||
| 30071 | /* Processing variable kl */ | |||
| 30072 | f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.sgbtrs() 2nd argument (kl) can't be converted to int"); | |||
| 30073 | if (f2py_success) { | |||
| 30074 | /* Processing variable ku */ | |||
| 30075 | f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.sgbtrs() 3rd argument (ku) can't be converted to int"); | |||
| 30076 | if (f2py_success) { | |||
| 30077 | /* Processing variable ab */ | |||
| 30078 | ; | |||
| 30079 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 30080 | capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 30081 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 30082 | if (!PyErr_Occurred()) | |||
| 30083 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.sgbtrs to C/Fortran array" ); | |||
| 30084 | } else { | |||
| 30085 | ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 30086 | ||||
| 30087 | /* Processing variable b */ | |||
| 30088 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 30089 | ; | |||
| 30090 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 30091 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 30092 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 30093 | if (!PyErr_Occurred()) | |||
| 30094 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.sgbtrs to C/Fortran array" ); | |||
| 30095 | } else { | |||
| 30096 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 30097 | ||||
| 30098 | /* Processing variable info */ | |||
| 30099 | /* Processing variable n */ | |||
| 30100 | if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else | |||
| 30101 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgbtrs() 2nd keyword (n) can't be converted to int"); | |||
| 30102 | if (f2py_success) { | |||
| 30103 | /* Processing variable nrhs */ | |||
| 30104 | nrhs = shape(b,1)b_Dims[1]; | |||
| 30105 | /* Processing variable ldab */ | |||
| 30106 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 30107 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.sgbtrs() 3rd keyword (ldab) can't be converted to int"); | |||
| 30108 | if (f2py_success) { | |||
| 30109 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","sgbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 30110 | /* Processing variable ipiv */ | |||
| 30111 | ipiv_Dims[0]=n; | |||
| 30112 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 30113 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 30114 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 30115 | if (!PyErr_Occurred()) | |||
| 30116 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.sgbtrs to C/Fortran array" ); | |||
| 30117 | } else { | |||
| 30118 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 30119 | ||||
| 30120 | /* Processing variable ldb */ | |||
| 30121 | if (ldb_capi == Py_None(&_Py_NoneStruct)) ldb = shape(b,0)b_Dims[0]; else | |||
| 30122 | f2py_success = int_from_pyobj(&ldb,ldb_capi,"_flapack.sgbtrs() 4th keyword (ldb) can't be converted to int"); | |||
| 30123 | if (f2py_success) { | |||
| 30124 | CHECKSCALAR(shape(b,0)==ldb,"shape(b,0)==ldb","4th keyword ldb","sgbtrs:ldb=%d",ldb)if (!(b_Dims[0]==ldb)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgbtrs:ldb=%d", "(""shape(b,0)==ldb"") failed for " "4th keyword ldb", ldb); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 30125 | /*end of frompyobj*/ | |||
| 30126 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30127 | f2py_start_call_clock(); | |||
| 30128 | #endif | |||
| 30129 | /*callfortranroutine*/ | |||
| 30130 | {F_INTint i;for(i=0;i<n;++ipiv[i++]);(*f2py_func)((trans>0?(trans==1?"T":"C"):"N"),&n,&kl,&ku,&nrhs,ab,&ldab,ipiv,b,&ldb,&info);for(i=0;i<n;--ipiv[i++]);} ; | |||
| 30131 | /*(*f2py_func)(ab,&kl,&ku,b,ipiv,&trans,&n,&nrhs,&ldab,&ldb,&info);*/ | |||
| 30132 | if (PyErr_Occurred()) | |||
| 30133 | f2py_success = 0; | |||
| 30134 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30135 | f2py_stop_call_clock(); | |||
| 30136 | #endif | |||
| 30137 | /*end of callfortranroutine*/ | |||
| 30138 | if (f2py_success) { | |||
| 30139 | /*pyobjfrom*/ | |||
| 30140 | /*end of pyobjfrom*/ | |||
| 30141 | CFUNCSMESS("Building return value.\n"); | |||
| 30142 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 30143 | /*closepyobjfrom*/ | |||
| 30144 | /*end of closepyobjfrom*/ | |||
| 30145 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 30146 | /*cleanupfrompyobj*/ | |||
| 30147 | } /*CHECKSCALAR(shape(b,0)==ldb)*/ | |||
| 30148 | } /*if (f2py_success) of ldb*/ | |||
| 30149 | /* End of cleaning variable ldb */ | |||
| 30150 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 30151 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 30152 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 30153 | /* End of cleaning variable ipiv */ | |||
| 30154 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 30155 | } /*if (f2py_success) of ldab*/ | |||
| 30156 | /* End of cleaning variable ldab */ | |||
| 30157 | /* End of cleaning variable nrhs */ | |||
| 30158 | } /*if (f2py_success) of n*/ | |||
| 30159 | /* End of cleaning variable n */ | |||
| 30160 | /* End of cleaning variable info */ | |||
| 30161 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 30162 | /* End of cleaning variable b */ | |||
| 30163 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 30164 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 30165 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 30166 | /* End of cleaning variable ab */ | |||
| 30167 | } /*if (f2py_success) of ku*/ | |||
| 30168 | /* End of cleaning variable ku */ | |||
| 30169 | } /*if (f2py_success) of kl*/ | |||
| 30170 | /* End of cleaning variable kl */ | |||
| 30171 | } /*if (f2py_success) of trans*/ | |||
| 30172 | /* End of cleaning variable trans */ | |||
| 30173 | /*end of cleanupfrompyobj*/ | |||
| 30174 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 30175 | /*routdebugfailure*/ | |||
| 30176 | } else { | |||
| 30177 | /*routdebugleave*/ | |||
| 30178 | } | |||
| 30179 | CFUNCSMESS("Freeing memory.\n"); | |||
| 30180 | /*freemem*/ | |||
| 30181 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30182 | f2py_stop_clock(); | |||
| 30183 | #endif | |||
| 30184 | return capi_buildvalue; | |||
| 30185 | } | |||
| 30186 | /******************************* end of sgbtrs *******************************/ | |||
| 30187 | ||||
| 30188 | /*********************************** dgbtrs ***********************************/ | |||
| 30189 | static char doc_f2py_rout__flapack_dgbtrs[] = "\ | |||
| 30190 | x,info = dgbtrs(ab,kl,ku,b,ipiv,[trans,n,ldab,ldb,overwrite_b])\n\nWrapper for ``dgbtrs``.\ | |||
| 30191 | \n\nParameters\n----------\n" | |||
| 30192 | "ab : input rank-2 array('d') with bounds (ldab,n)\n" | |||
| 30193 | "kl : input int\n" | |||
| 30194 | "ku : input int\n" | |||
| 30195 | "b : input rank-2 array('d') with bounds (ldb,nrhs)\n" | |||
| 30196 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 30197 | "\nOther Parameters\n----------------\n" | |||
| 30198 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 30199 | "trans : input int, optional\n Default: 0\n" | |||
| 30200 | "n : input int, optional\n Default: shape(ab,1)\n" | |||
| 30201 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 30202 | "ldb : input int, optional\n Default: shape(b,0)\n" | |||
| 30203 | "\nReturns\n-------\n" | |||
| 30204 | "x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n" | |||
| 30205 | "info : int"; | |||
| 30206 | /* extern void F_FUNC(dgbtrs,DGBTRS)(char*,F_INT*,F_INT *,F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 30207 | static PyObject *f2py_rout__flapack_dgbtrs(const PyObject *capi_self, | |||
| 30208 | PyObject *capi_args, | |||
| 30209 | PyObject *capi_keywds, | |||
| 30210 | void (*f2py_func)(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 30211 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 30212 | volatile int f2py_success = 1; | |||
| 30213 | /*decl*/ | |||
| 30214 | ||||
| 30215 | double *ab = NULL((void*)0); | |||
| 30216 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 30217 | const int ab_Rank = 2; | |||
| 30218 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 30219 | int capi_ab_intent = 0; | |||
| 30220 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 30221 | int kl = 0; | |||
| 30222 | PyObject *kl_capi = Py_None(&_Py_NoneStruct); | |||
| 30223 | int ku = 0; | |||
| 30224 | PyObject *ku_capi = Py_None(&_Py_NoneStruct); | |||
| 30225 | double *b = NULL((void*)0); | |||
| 30226 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 30227 | const int b_Rank = 2; | |||
| 30228 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 30229 | int capi_b_intent = 0; | |||
| 30230 | int capi_overwrite_b = 0; | |||
| 30231 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 30232 | int *ipiv = NULL((void*)0); | |||
| 30233 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 30234 | const int ipiv_Rank = 1; | |||
| 30235 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 30236 | int capi_ipiv_intent = 0; | |||
| 30237 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 30238 | int trans = 0; | |||
| 30239 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 30240 | int n = 0; | |||
| 30241 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 30242 | int nrhs = 0; | |||
| 30243 | int ldab = 0; | |||
| 30244 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 30245 | int ldb = 0; | |||
| 30246 | PyObject *ldb_capi = Py_None(&_Py_NoneStruct); | |||
| 30247 | int info = 0; | |||
| 30248 | static char *capi_kwlist[] = {"ab","kl","ku","b","ipiv","trans","n","ldab","ldb","overwrite_b",NULL((void*)0)}; | |||
| 30249 | ||||
| 30250 | /*routdebugenter*/ | |||
| 30251 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30252 | f2py_start_clock(); | |||
| 30253 | #endif | |||
| 30254 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 30255 | "OOOOO|OOOOi:_flapack.dgbtrs",\ | |||
| 30256 | capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&b_capi,&ipiv_capi,&trans_capi,&n_capi,&ldab_capi,&ldb_capi,&capi_overwrite_b)) | |||
| 30257 | return NULL((void*)0); | |||
| 30258 | /*frompyobj*/ | |||
| 30259 | /* Processing variable trans */ | |||
| 30260 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 30261 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.dgbtrs() 1st keyword (trans) can't be converted to int"); | |||
| 30262 | if (f2py_success) { | |||
| 30263 | /* Processing variable kl */ | |||
| 30264 | f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.dgbtrs() 2nd argument (kl) can't be converted to int"); | |||
| 30265 | if (f2py_success) { | |||
| 30266 | /* Processing variable ku */ | |||
| 30267 | f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.dgbtrs() 3rd argument (ku) can't be converted to int"); | |||
| 30268 | if (f2py_success) { | |||
| 30269 | /* Processing variable ab */ | |||
| 30270 | ; | |||
| 30271 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 30272 | capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 30273 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 30274 | if (!PyErr_Occurred()) | |||
| 30275 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dgbtrs to C/Fortran array" ); | |||
| 30276 | } else { | |||
| 30277 | ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 30278 | ||||
| 30279 | /* Processing variable b */ | |||
| 30280 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 30281 | ; | |||
| 30282 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 30283 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 30284 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 30285 | if (!PyErr_Occurred()) | |||
| 30286 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.dgbtrs to C/Fortran array" ); | |||
| 30287 | } else { | |||
| 30288 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 30289 | ||||
| 30290 | /* Processing variable info */ | |||
| 30291 | /* Processing variable n */ | |||
| 30292 | if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else | |||
| 30293 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgbtrs() 2nd keyword (n) can't be converted to int"); | |||
| 30294 | if (f2py_success) { | |||
| 30295 | /* Processing variable nrhs */ | |||
| 30296 | nrhs = shape(b,1)b_Dims[1]; | |||
| 30297 | /* Processing variable ldab */ | |||
| 30298 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 30299 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dgbtrs() 3rd keyword (ldab) can't be converted to int"); | |||
| 30300 | if (f2py_success) { | |||
| 30301 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","dgbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 30302 | /* Processing variable ipiv */ | |||
| 30303 | ipiv_Dims[0]=n; | |||
| 30304 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 30305 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 30306 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 30307 | if (!PyErr_Occurred()) | |||
| 30308 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.dgbtrs to C/Fortran array" ); | |||
| 30309 | } else { | |||
| 30310 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 30311 | ||||
| 30312 | /* Processing variable ldb */ | |||
| 30313 | if (ldb_capi == Py_None(&_Py_NoneStruct)) ldb = shape(b,0)b_Dims[0]; else | |||
| 30314 | f2py_success = int_from_pyobj(&ldb,ldb_capi,"_flapack.dgbtrs() 4th keyword (ldb) can't be converted to int"); | |||
| 30315 | if (f2py_success) { | |||
| 30316 | CHECKSCALAR(shape(b,0)==ldb,"shape(b,0)==ldb","4th keyword ldb","dgbtrs:ldb=%d",ldb)if (!(b_Dims[0]==ldb)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgbtrs:ldb=%d", "(""shape(b,0)==ldb"") failed for " "4th keyword ldb", ldb); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 30317 | /*end of frompyobj*/ | |||
| 30318 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30319 | f2py_start_call_clock(); | |||
| 30320 | #endif | |||
| 30321 | /*callfortranroutine*/ | |||
| 30322 | {F_INTint i;for(i=0;i<n;++ipiv[i++]);(*f2py_func)((trans>0?(trans==1?"T":"C"):"N"),&n,&kl,&ku,&nrhs,ab,&ldab,ipiv,b,&ldb,&info);for(i=0;i<n;--ipiv[i++]);} ; | |||
| 30323 | /*(*f2py_func)(ab,&kl,&ku,b,ipiv,&trans,&n,&nrhs,&ldab,&ldb,&info);*/ | |||
| 30324 | if (PyErr_Occurred()) | |||
| 30325 | f2py_success = 0; | |||
| 30326 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30327 | f2py_stop_call_clock(); | |||
| 30328 | #endif | |||
| 30329 | /*end of callfortranroutine*/ | |||
| 30330 | if (f2py_success) { | |||
| 30331 | /*pyobjfrom*/ | |||
| 30332 | /*end of pyobjfrom*/ | |||
| 30333 | CFUNCSMESS("Building return value.\n"); | |||
| 30334 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 30335 | /*closepyobjfrom*/ | |||
| 30336 | /*end of closepyobjfrom*/ | |||
| 30337 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 30338 | /*cleanupfrompyobj*/ | |||
| 30339 | } /*CHECKSCALAR(shape(b,0)==ldb)*/ | |||
| 30340 | } /*if (f2py_success) of ldb*/ | |||
| 30341 | /* End of cleaning variable ldb */ | |||
| 30342 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 30343 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 30344 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 30345 | /* End of cleaning variable ipiv */ | |||
| 30346 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 30347 | } /*if (f2py_success) of ldab*/ | |||
| 30348 | /* End of cleaning variable ldab */ | |||
| 30349 | /* End of cleaning variable nrhs */ | |||
| 30350 | } /*if (f2py_success) of n*/ | |||
| 30351 | /* End of cleaning variable n */ | |||
| 30352 | /* End of cleaning variable info */ | |||
| 30353 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 30354 | /* End of cleaning variable b */ | |||
| 30355 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 30356 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 30357 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 30358 | /* End of cleaning variable ab */ | |||
| 30359 | } /*if (f2py_success) of ku*/ | |||
| 30360 | /* End of cleaning variable ku */ | |||
| 30361 | } /*if (f2py_success) of kl*/ | |||
| 30362 | /* End of cleaning variable kl */ | |||
| 30363 | } /*if (f2py_success) of trans*/ | |||
| 30364 | /* End of cleaning variable trans */ | |||
| 30365 | /*end of cleanupfrompyobj*/ | |||
| 30366 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 30367 | /*routdebugfailure*/ | |||
| 30368 | } else { | |||
| 30369 | /*routdebugleave*/ | |||
| 30370 | } | |||
| 30371 | CFUNCSMESS("Freeing memory.\n"); | |||
| 30372 | /*freemem*/ | |||
| 30373 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30374 | f2py_stop_clock(); | |||
| 30375 | #endif | |||
| 30376 | return capi_buildvalue; | |||
| 30377 | } | |||
| 30378 | /******************************* end of dgbtrs *******************************/ | |||
| 30379 | ||||
| 30380 | /*********************************** cgbtrs ***********************************/ | |||
| 30381 | static char doc_f2py_rout__flapack_cgbtrs[] = "\ | |||
| 30382 | x,info = cgbtrs(ab,kl,ku,b,ipiv,[trans,n,ldab,ldb,overwrite_b])\n\nWrapper for ``cgbtrs``.\ | |||
| 30383 | \n\nParameters\n----------\n" | |||
| 30384 | "ab : input rank-2 array('F') with bounds (ldab,n)\n" | |||
| 30385 | "kl : input int\n" | |||
| 30386 | "ku : input int\n" | |||
| 30387 | "b : input rank-2 array('F') with bounds (ldb,nrhs)\n" | |||
| 30388 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 30389 | "\nOther Parameters\n----------------\n" | |||
| 30390 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 30391 | "trans : input int, optional\n Default: 0\n" | |||
| 30392 | "n : input int, optional\n Default: shape(ab,1)\n" | |||
| 30393 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 30394 | "ldb : input int, optional\n Default: shape(b,0)\n" | |||
| 30395 | "\nReturns\n-------\n" | |||
| 30396 | "x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n" | |||
| 30397 | "info : int"; | |||
| 30398 | /* extern void F_FUNC(cgbtrs,CGBTRS)(char*,F_INT*,F_INT *,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 30399 | static PyObject *f2py_rout__flapack_cgbtrs(const PyObject *capi_self, | |||
| 30400 | PyObject *capi_args, | |||
| 30401 | PyObject *capi_keywds, | |||
| 30402 | void (*f2py_func)(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 30403 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 30404 | volatile int f2py_success = 1; | |||
| 30405 | /*decl*/ | |||
| 30406 | ||||
| 30407 | complex_float *ab = NULL((void*)0); | |||
| 30408 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 30409 | const int ab_Rank = 2; | |||
| 30410 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 30411 | int capi_ab_intent = 0; | |||
| 30412 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 30413 | int kl = 0; | |||
| 30414 | PyObject *kl_capi = Py_None(&_Py_NoneStruct); | |||
| 30415 | int ku = 0; | |||
| 30416 | PyObject *ku_capi = Py_None(&_Py_NoneStruct); | |||
| 30417 | complex_float *b = NULL((void*)0); | |||
| 30418 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 30419 | const int b_Rank = 2; | |||
| 30420 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 30421 | int capi_b_intent = 0; | |||
| 30422 | int capi_overwrite_b = 0; | |||
| 30423 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 30424 | int *ipiv = NULL((void*)0); | |||
| 30425 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 30426 | const int ipiv_Rank = 1; | |||
| 30427 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 30428 | int capi_ipiv_intent = 0; | |||
| 30429 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 30430 | int trans = 0; | |||
| 30431 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 30432 | int n = 0; | |||
| 30433 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 30434 | int nrhs = 0; | |||
| 30435 | int ldab = 0; | |||
| 30436 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 30437 | int ldb = 0; | |||
| 30438 | PyObject *ldb_capi = Py_None(&_Py_NoneStruct); | |||
| 30439 | int info = 0; | |||
| 30440 | static char *capi_kwlist[] = {"ab","kl","ku","b","ipiv","trans","n","ldab","ldb","overwrite_b",NULL((void*)0)}; | |||
| 30441 | ||||
| 30442 | /*routdebugenter*/ | |||
| 30443 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30444 | f2py_start_clock(); | |||
| 30445 | #endif | |||
| 30446 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 30447 | "OOOOO|OOOOi:_flapack.cgbtrs",\ | |||
| 30448 | capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&b_capi,&ipiv_capi,&trans_capi,&n_capi,&ldab_capi,&ldb_capi,&capi_overwrite_b)) | |||
| 30449 | return NULL((void*)0); | |||
| 30450 | /*frompyobj*/ | |||
| 30451 | /* Processing variable trans */ | |||
| 30452 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 30453 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.cgbtrs() 1st keyword (trans) can't be converted to int"); | |||
| 30454 | if (f2py_success) { | |||
| 30455 | /* Processing variable kl */ | |||
| 30456 | f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.cgbtrs() 2nd argument (kl) can't be converted to int"); | |||
| 30457 | if (f2py_success) { | |||
| 30458 | /* Processing variable ku */ | |||
| 30459 | f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.cgbtrs() 3rd argument (ku) can't be converted to int"); | |||
| 30460 | if (f2py_success) { | |||
| 30461 | /* Processing variable ab */ | |||
| 30462 | ; | |||
| 30463 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 30464 | capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 30465 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 30466 | if (!PyErr_Occurred()) | |||
| 30467 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.cgbtrs to C/Fortran array" ); | |||
| 30468 | } else { | |||
| 30469 | ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 30470 | ||||
| 30471 | /* Processing variable b */ | |||
| 30472 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 30473 | ; | |||
| 30474 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 30475 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 30476 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 30477 | if (!PyErr_Occurred()) | |||
| 30478 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.cgbtrs to C/Fortran array" ); | |||
| 30479 | } else { | |||
| 30480 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 30481 | ||||
| 30482 | /* Processing variable info */ | |||
| 30483 | /* Processing variable n */ | |||
| 30484 | if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else | |||
| 30485 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgbtrs() 2nd keyword (n) can't be converted to int"); | |||
| 30486 | if (f2py_success) { | |||
| 30487 | /* Processing variable nrhs */ | |||
| 30488 | nrhs = shape(b,1)b_Dims[1]; | |||
| 30489 | /* Processing variable ldab */ | |||
| 30490 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 30491 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.cgbtrs() 3rd keyword (ldab) can't be converted to int"); | |||
| 30492 | if (f2py_success) { | |||
| 30493 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","cgbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 30494 | /* Processing variable ipiv */ | |||
| 30495 | ipiv_Dims[0]=n; | |||
| 30496 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 30497 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 30498 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 30499 | if (!PyErr_Occurred()) | |||
| 30500 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.cgbtrs to C/Fortran array" ); | |||
| 30501 | } else { | |||
| 30502 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 30503 | ||||
| 30504 | /* Processing variable ldb */ | |||
| 30505 | if (ldb_capi == Py_None(&_Py_NoneStruct)) ldb = shape(b,0)b_Dims[0]; else | |||
| 30506 | f2py_success = int_from_pyobj(&ldb,ldb_capi,"_flapack.cgbtrs() 4th keyword (ldb) can't be converted to int"); | |||
| 30507 | if (f2py_success) { | |||
| 30508 | CHECKSCALAR(shape(b,0)==ldb,"shape(b,0)==ldb","4th keyword ldb","cgbtrs:ldb=%d",ldb)if (!(b_Dims[0]==ldb)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgbtrs:ldb=%d", "(""shape(b,0)==ldb"") failed for " "4th keyword ldb", ldb); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 30509 | /*end of frompyobj*/ | |||
| 30510 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30511 | f2py_start_call_clock(); | |||
| 30512 | #endif | |||
| 30513 | /*callfortranroutine*/ | |||
| 30514 | {F_INTint i;for(i=0;i<n;++ipiv[i++]);(*f2py_func)((trans>0?(trans==1?"T":"C"):"N"),&n,&kl,&ku,&nrhs,ab,&ldab,ipiv,b,&ldb,&info);for(i=0;i<n;--ipiv[i++]);} ; | |||
| 30515 | /*(*f2py_func)(ab,&kl,&ku,b,ipiv,&trans,&n,&nrhs,&ldab,&ldb,&info);*/ | |||
| 30516 | if (PyErr_Occurred()) | |||
| 30517 | f2py_success = 0; | |||
| 30518 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30519 | f2py_stop_call_clock(); | |||
| 30520 | #endif | |||
| 30521 | /*end of callfortranroutine*/ | |||
| 30522 | if (f2py_success) { | |||
| 30523 | /*pyobjfrom*/ | |||
| 30524 | /*end of pyobjfrom*/ | |||
| 30525 | CFUNCSMESS("Building return value.\n"); | |||
| 30526 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 30527 | /*closepyobjfrom*/ | |||
| 30528 | /*end of closepyobjfrom*/ | |||
| 30529 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 30530 | /*cleanupfrompyobj*/ | |||
| 30531 | } /*CHECKSCALAR(shape(b,0)==ldb)*/ | |||
| 30532 | } /*if (f2py_success) of ldb*/ | |||
| 30533 | /* End of cleaning variable ldb */ | |||
| 30534 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 30535 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 30536 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 30537 | /* End of cleaning variable ipiv */ | |||
| 30538 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 30539 | } /*if (f2py_success) of ldab*/ | |||
| 30540 | /* End of cleaning variable ldab */ | |||
| 30541 | /* End of cleaning variable nrhs */ | |||
| 30542 | } /*if (f2py_success) of n*/ | |||
| 30543 | /* End of cleaning variable n */ | |||
| 30544 | /* End of cleaning variable info */ | |||
| 30545 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 30546 | /* End of cleaning variable b */ | |||
| 30547 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 30548 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 30549 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 30550 | /* End of cleaning variable ab */ | |||
| 30551 | } /*if (f2py_success) of ku*/ | |||
| 30552 | /* End of cleaning variable ku */ | |||
| 30553 | } /*if (f2py_success) of kl*/ | |||
| 30554 | /* End of cleaning variable kl */ | |||
| 30555 | } /*if (f2py_success) of trans*/ | |||
| 30556 | /* End of cleaning variable trans */ | |||
| 30557 | /*end of cleanupfrompyobj*/ | |||
| 30558 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 30559 | /*routdebugfailure*/ | |||
| 30560 | } else { | |||
| 30561 | /*routdebugleave*/ | |||
| 30562 | } | |||
| 30563 | CFUNCSMESS("Freeing memory.\n"); | |||
| 30564 | /*freemem*/ | |||
| 30565 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30566 | f2py_stop_clock(); | |||
| 30567 | #endif | |||
| 30568 | return capi_buildvalue; | |||
| 30569 | } | |||
| 30570 | /******************************* end of cgbtrs *******************************/ | |||
| 30571 | ||||
| 30572 | /*********************************** zgbtrs ***********************************/ | |||
| 30573 | static char doc_f2py_rout__flapack_zgbtrs[] = "\ | |||
| 30574 | x,info = zgbtrs(ab,kl,ku,b,ipiv,[trans,n,ldab,ldb,overwrite_b])\n\nWrapper for ``zgbtrs``.\ | |||
| 30575 | \n\nParameters\n----------\n" | |||
| 30576 | "ab : input rank-2 array('D') with bounds (ldab,n)\n" | |||
| 30577 | "kl : input int\n" | |||
| 30578 | "ku : input int\n" | |||
| 30579 | "b : input rank-2 array('D') with bounds (ldb,nrhs)\n" | |||
| 30580 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 30581 | "\nOther Parameters\n----------------\n" | |||
| 30582 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 30583 | "trans : input int, optional\n Default: 0\n" | |||
| 30584 | "n : input int, optional\n Default: shape(ab,1)\n" | |||
| 30585 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 30586 | "ldb : input int, optional\n Default: shape(b,0)\n" | |||
| 30587 | "\nReturns\n-------\n" | |||
| 30588 | "x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n" | |||
| 30589 | "info : int"; | |||
| 30590 | /* extern void F_FUNC(zgbtrs,ZGBTRS)(char*,F_INT*,F_INT *,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 30591 | static PyObject *f2py_rout__flapack_zgbtrs(const PyObject *capi_self, | |||
| 30592 | PyObject *capi_args, | |||
| 30593 | PyObject *capi_keywds, | |||
| 30594 | void (*f2py_func)(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 30595 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 30596 | volatile int f2py_success = 1; | |||
| 30597 | /*decl*/ | |||
| 30598 | ||||
| 30599 | complex_double *ab = NULL((void*)0); | |||
| 30600 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 30601 | const int ab_Rank = 2; | |||
| 30602 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 30603 | int capi_ab_intent = 0; | |||
| 30604 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 30605 | int kl = 0; | |||
| 30606 | PyObject *kl_capi = Py_None(&_Py_NoneStruct); | |||
| 30607 | int ku = 0; | |||
| 30608 | PyObject *ku_capi = Py_None(&_Py_NoneStruct); | |||
| 30609 | complex_double *b = NULL((void*)0); | |||
| 30610 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 30611 | const int b_Rank = 2; | |||
| 30612 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 30613 | int capi_b_intent = 0; | |||
| 30614 | int capi_overwrite_b = 0; | |||
| 30615 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 30616 | int *ipiv = NULL((void*)0); | |||
| 30617 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 30618 | const int ipiv_Rank = 1; | |||
| 30619 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 30620 | int capi_ipiv_intent = 0; | |||
| 30621 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 30622 | int trans = 0; | |||
| 30623 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 30624 | int n = 0; | |||
| 30625 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 30626 | int nrhs = 0; | |||
| 30627 | int ldab = 0; | |||
| 30628 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 30629 | int ldb = 0; | |||
| 30630 | PyObject *ldb_capi = Py_None(&_Py_NoneStruct); | |||
| 30631 | int info = 0; | |||
| 30632 | static char *capi_kwlist[] = {"ab","kl","ku","b","ipiv","trans","n","ldab","ldb","overwrite_b",NULL((void*)0)}; | |||
| 30633 | ||||
| 30634 | /*routdebugenter*/ | |||
| 30635 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30636 | f2py_start_clock(); | |||
| 30637 | #endif | |||
| 30638 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 30639 | "OOOOO|OOOOi:_flapack.zgbtrs",\ | |||
| 30640 | capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&b_capi,&ipiv_capi,&trans_capi,&n_capi,&ldab_capi,&ldb_capi,&capi_overwrite_b)) | |||
| 30641 | return NULL((void*)0); | |||
| 30642 | /*frompyobj*/ | |||
| 30643 | /* Processing variable trans */ | |||
| 30644 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 30645 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.zgbtrs() 1st keyword (trans) can't be converted to int"); | |||
| 30646 | if (f2py_success) { | |||
| 30647 | /* Processing variable kl */ | |||
| 30648 | f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.zgbtrs() 2nd argument (kl) can't be converted to int"); | |||
| 30649 | if (f2py_success) { | |||
| 30650 | /* Processing variable ku */ | |||
| 30651 | f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.zgbtrs() 3rd argument (ku) can't be converted to int"); | |||
| 30652 | if (f2py_success) { | |||
| 30653 | /* Processing variable ab */ | |||
| 30654 | ; | |||
| 30655 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 30656 | capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 30657 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 30658 | if (!PyErr_Occurred()) | |||
| 30659 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zgbtrs to C/Fortran array" ); | |||
| 30660 | } else { | |||
| 30661 | ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 30662 | ||||
| 30663 | /* Processing variable b */ | |||
| 30664 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 30665 | ; | |||
| 30666 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 30667 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 30668 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 30669 | if (!PyErr_Occurred()) | |||
| 30670 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.zgbtrs to C/Fortran array" ); | |||
| 30671 | } else { | |||
| 30672 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 30673 | ||||
| 30674 | /* Processing variable info */ | |||
| 30675 | /* Processing variable n */ | |||
| 30676 | if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else | |||
| 30677 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgbtrs() 2nd keyword (n) can't be converted to int"); | |||
| 30678 | if (f2py_success) { | |||
| 30679 | /* Processing variable nrhs */ | |||
| 30680 | nrhs = shape(b,1)b_Dims[1]; | |||
| 30681 | /* Processing variable ldab */ | |||
| 30682 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 30683 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zgbtrs() 3rd keyword (ldab) can't be converted to int"); | |||
| 30684 | if (f2py_success) { | |||
| 30685 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","zgbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 30686 | /* Processing variable ipiv */ | |||
| 30687 | ipiv_Dims[0]=n; | |||
| 30688 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 30689 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 30690 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 30691 | if (!PyErr_Occurred()) | |||
| 30692 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.zgbtrs to C/Fortran array" ); | |||
| 30693 | } else { | |||
| 30694 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 30695 | ||||
| 30696 | /* Processing variable ldb */ | |||
| 30697 | if (ldb_capi == Py_None(&_Py_NoneStruct)) ldb = shape(b,0)b_Dims[0]; else | |||
| 30698 | f2py_success = int_from_pyobj(&ldb,ldb_capi,"_flapack.zgbtrs() 4th keyword (ldb) can't be converted to int"); | |||
| 30699 | if (f2py_success) { | |||
| 30700 | CHECKSCALAR(shape(b,0)==ldb,"shape(b,0)==ldb","4th keyword ldb","zgbtrs:ldb=%d",ldb)if (!(b_Dims[0]==ldb)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgbtrs:ldb=%d", "(""shape(b,0)==ldb"") failed for " "4th keyword ldb", ldb); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 30701 | /*end of frompyobj*/ | |||
| 30702 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30703 | f2py_start_call_clock(); | |||
| 30704 | #endif | |||
| 30705 | /*callfortranroutine*/ | |||
| 30706 | {F_INTint i;for(i=0;i<n;++ipiv[i++]);(*f2py_func)((trans>0?(trans==1?"T":"C"):"N"),&n,&kl,&ku,&nrhs,ab,&ldab,ipiv,b,&ldb,&info);for(i=0;i<n;--ipiv[i++]);} ; | |||
| 30707 | /*(*f2py_func)(ab,&kl,&ku,b,ipiv,&trans,&n,&nrhs,&ldab,&ldb,&info);*/ | |||
| 30708 | if (PyErr_Occurred()) | |||
| 30709 | f2py_success = 0; | |||
| 30710 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30711 | f2py_stop_call_clock(); | |||
| 30712 | #endif | |||
| 30713 | /*end of callfortranroutine*/ | |||
| 30714 | if (f2py_success) { | |||
| 30715 | /*pyobjfrom*/ | |||
| 30716 | /*end of pyobjfrom*/ | |||
| 30717 | CFUNCSMESS("Building return value.\n"); | |||
| 30718 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 30719 | /*closepyobjfrom*/ | |||
| 30720 | /*end of closepyobjfrom*/ | |||
| 30721 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 30722 | /*cleanupfrompyobj*/ | |||
| 30723 | } /*CHECKSCALAR(shape(b,0)==ldb)*/ | |||
| 30724 | } /*if (f2py_success) of ldb*/ | |||
| 30725 | /* End of cleaning variable ldb */ | |||
| 30726 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 30727 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 30728 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 30729 | /* End of cleaning variable ipiv */ | |||
| 30730 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 30731 | } /*if (f2py_success) of ldab*/ | |||
| 30732 | /* End of cleaning variable ldab */ | |||
| 30733 | /* End of cleaning variable nrhs */ | |||
| 30734 | } /*if (f2py_success) of n*/ | |||
| 30735 | /* End of cleaning variable n */ | |||
| 30736 | /* End of cleaning variable info */ | |||
| 30737 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 30738 | /* End of cleaning variable b */ | |||
| 30739 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 30740 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 30741 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 30742 | /* End of cleaning variable ab */ | |||
| 30743 | } /*if (f2py_success) of ku*/ | |||
| 30744 | /* End of cleaning variable ku */ | |||
| 30745 | } /*if (f2py_success) of kl*/ | |||
| 30746 | /* End of cleaning variable kl */ | |||
| 30747 | } /*if (f2py_success) of trans*/ | |||
| 30748 | /* End of cleaning variable trans */ | |||
| 30749 | /*end of cleanupfrompyobj*/ | |||
| 30750 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 30751 | /*routdebugfailure*/ | |||
| 30752 | } else { | |||
| 30753 | /*routdebugleave*/ | |||
| 30754 | } | |||
| 30755 | CFUNCSMESS("Freeing memory.\n"); | |||
| 30756 | /*freemem*/ | |||
| 30757 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30758 | f2py_stop_clock(); | |||
| 30759 | #endif | |||
| 30760 | return capi_buildvalue; | |||
| 30761 | } | |||
| 30762 | /******************************* end of zgbtrs *******************************/ | |||
| 30763 | ||||
| 30764 | /*********************************** sgtsv ***********************************/ | |||
| 30765 | static char doc_f2py_rout__flapack_sgtsv[] = "\ | |||
| 30766 | du2,d,du,x,info = sgtsv(dl,d,du,b,[overwrite_dl,overwrite_d,overwrite_du,overwrite_b])\n\nWrapper for ``sgtsv``.\ | |||
| 30767 | \n\nParameters\n----------\n" | |||
| 30768 | "dl : input rank-1 array('f') with bounds (n - 1)\n" | |||
| 30769 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 30770 | "du : input rank-1 array('f') with bounds (n - 1)\n" | |||
| 30771 | "b : input rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 30772 | "\nOther Parameters\n----------------\n" | |||
| 30773 | "overwrite_dl : input int, optional\n Default: 0\n" | |||
| 30774 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 30775 | "overwrite_du : input int, optional\n Default: 0\n" | |||
| 30776 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 30777 | "\nReturns\n-------\n" | |||
| 30778 | "du2 : rank-1 array('f') with bounds (n - 1) and dl storage\n" | |||
| 30779 | "d : rank-1 array('f') with bounds (n)\n" | |||
| 30780 | "du : rank-1 array('f') with bounds (n - 1)\n" | |||
| 30781 | "x : rank-2 array('f') with bounds (n,nrhs) and b storage\n" | |||
| 30782 | "info : int"; | |||
| 30783 | /* extern void F_FUNC(sgtsv,SGTSV)(F_INT*, F_INT*, float*, float*, float*, float*, F_INT*, F_INT* ); */ | |||
| 30784 | static PyObject *f2py_rout__flapack_sgtsv(const PyObject *capi_self, | |||
| 30785 | PyObject *capi_args, | |||
| 30786 | PyObject *capi_keywds, | |||
| 30787 | void (*f2py_func)(F_INTint*, F_INTint*, float*, float*, float*, float*, F_INTint*, F_INTint* )) { | |||
| 30788 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 30789 | volatile int f2py_success = 1; | |||
| 30790 | /*decl*/ | |||
| 30791 | ||||
| 30792 | int n = 0; | |||
| 30793 | int nrhs = 0; | |||
| 30794 | float *dl = NULL((void*)0); | |||
| 30795 | npy_intp dl_Dims[1] = {-1}; | |||
| 30796 | const int dl_Rank = 1; | |||
| 30797 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 30798 | int capi_dl_intent = 0; | |||
| 30799 | int capi_overwrite_dl = 0; | |||
| 30800 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 30801 | float *d = NULL((void*)0); | |||
| 30802 | npy_intp d_Dims[1] = {-1}; | |||
| 30803 | const int d_Rank = 1; | |||
| 30804 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 30805 | int capi_d_intent = 0; | |||
| 30806 | int capi_overwrite_d = 0; | |||
| 30807 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 30808 | float *du = NULL((void*)0); | |||
| 30809 | npy_intp du_Dims[1] = {-1}; | |||
| 30810 | const int du_Rank = 1; | |||
| 30811 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 30812 | int capi_du_intent = 0; | |||
| 30813 | int capi_overwrite_du = 0; | |||
| 30814 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 30815 | float *b = NULL((void*)0); | |||
| 30816 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 30817 | const int b_Rank = 2; | |||
| 30818 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 30819 | int capi_b_intent = 0; | |||
| 30820 | int capi_overwrite_b = 0; | |||
| 30821 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 30822 | int info = 0; | |||
| 30823 | static char *capi_kwlist[] = {"dl","d","du","b","overwrite_dl","overwrite_d","overwrite_du","overwrite_b",NULL((void*)0)}; | |||
| 30824 | ||||
| 30825 | /*routdebugenter*/ | |||
| 30826 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30827 | f2py_start_clock(); | |||
| 30828 | #endif | |||
| 30829 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 30830 | "OOOO|iiii:_flapack.sgtsv",\ | |||
| 30831 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du,&capi_overwrite_b)) | |||
| 30832 | return NULL((void*)0); | |||
| 30833 | /*frompyobj*/ | |||
| 30834 | /* Processing variable d */ | |||
| 30835 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 30836 | ; | |||
| 30837 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 30838 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 30839 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 30840 | if (!PyErr_Occurred()) | |||
| 30841 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.sgtsv to C/Fortran array" ); | |||
| 30842 | } else { | |||
| 30843 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 30844 | ||||
| 30845 | /* Processing variable info */ | |||
| 30846 | /* Processing variable n */ | |||
| 30847 | n = len(d)d_Dims[0]; | |||
| 30848 | /* Processing variable dl */ | |||
| 30849 | capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32); | |||
| 30850 | dl_Dims[0]=n - 1; | |||
| 30851 | capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 30852 | capi_dl_tmp = array_from_pyobj(NPY_FLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 30853 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 30854 | if (!PyErr_Occurred()) | |||
| 30855 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.sgtsv to C/Fortran array" ); | |||
| 30856 | } else { | |||
| 30857 | dl = (float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 30858 | ||||
| 30859 | /* Processing variable du */ | |||
| 30860 | capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32); | |||
| 30861 | du_Dims[0]=n - 1; | |||
| 30862 | capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 30863 | capi_du_tmp = array_from_pyobj(NPY_FLOAT,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 30864 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 30865 | if (!PyErr_Occurred()) | |||
| 30866 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.sgtsv to C/Fortran array" ); | |||
| 30867 | } else { | |||
| 30868 | du = (float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 30869 | ||||
| 30870 | /* Processing variable b */ | |||
| 30871 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 30872 | b_Dims[0]=n; | |||
| 30873 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 30874 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 30875 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 30876 | if (!PyErr_Occurred()) | |||
| 30877 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.sgtsv to C/Fortran array" ); | |||
| 30878 | } else { | |||
| 30879 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 30880 | ||||
| 30881 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","4th argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""4th argument b"); } else { | |||
| 30882 | /* Processing variable nrhs */ | |||
| 30883 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 30884 | /*end of frompyobj*/ | |||
| 30885 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30886 | f2py_start_call_clock(); | |||
| 30887 | #endif | |||
| 30888 | /*callfortranroutine*/ | |||
| 30889 | (*f2py_func)(&n, &nrhs, dl, d, du, b, &n, &info); ; | |||
| 30890 | /*(*f2py_func)(&n,&nrhs,dl,d,du,b,&info);*/ | |||
| 30891 | if (PyErr_Occurred()) | |||
| 30892 | f2py_success = 0; | |||
| 30893 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30894 | f2py_stop_call_clock(); | |||
| 30895 | #endif | |||
| 30896 | /*end of callfortranroutine*/ | |||
| 30897 | if (f2py_success) { | |||
| 30898 | /*pyobjfrom*/ | |||
| 30899 | /*end of pyobjfrom*/ | |||
| 30900 | CFUNCSMESS("Building return value.\n"); | |||
| 30901 | capi_buildvalue = Py_BuildValue("NNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_b_tmp,info); | |||
| 30902 | /*closepyobjfrom*/ | |||
| 30903 | /*end of closepyobjfrom*/ | |||
| 30904 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 30905 | /*cleanupfrompyobj*/ | |||
| 30906 | /* End of cleaning variable nrhs */ | |||
| 30907 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 30908 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 30909 | /* End of cleaning variable b */ | |||
| 30910 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 30911 | /* End of cleaning variable du */ | |||
| 30912 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 30913 | /* End of cleaning variable dl */ | |||
| 30914 | /* End of cleaning variable n */ | |||
| 30915 | /* End of cleaning variable info */ | |||
| 30916 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 30917 | /* End of cleaning variable d */ | |||
| 30918 | /*end of cleanupfrompyobj*/ | |||
| 30919 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 30920 | /*routdebugfailure*/ | |||
| 30921 | } else { | |||
| 30922 | /*routdebugleave*/ | |||
| 30923 | } | |||
| 30924 | CFUNCSMESS("Freeing memory.\n"); | |||
| 30925 | /*freemem*/ | |||
| 30926 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30927 | f2py_stop_clock(); | |||
| 30928 | #endif | |||
| 30929 | return capi_buildvalue; | |||
| 30930 | } | |||
| 30931 | /******************************** end of sgtsv ********************************/ | |||
| 30932 | ||||
| 30933 | /*********************************** dgtsv ***********************************/ | |||
| 30934 | static char doc_f2py_rout__flapack_dgtsv[] = "\ | |||
| 30935 | du2,d,du,x,info = dgtsv(dl,d,du,b,[overwrite_dl,overwrite_d,overwrite_du,overwrite_b])\n\nWrapper for ``dgtsv``.\ | |||
| 30936 | \n\nParameters\n----------\n" | |||
| 30937 | "dl : input rank-1 array('d') with bounds (n - 1)\n" | |||
| 30938 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 30939 | "du : input rank-1 array('d') with bounds (n - 1)\n" | |||
| 30940 | "b : input rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 30941 | "\nOther Parameters\n----------------\n" | |||
| 30942 | "overwrite_dl : input int, optional\n Default: 0\n" | |||
| 30943 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 30944 | "overwrite_du : input int, optional\n Default: 0\n" | |||
| 30945 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 30946 | "\nReturns\n-------\n" | |||
| 30947 | "du2 : rank-1 array('d') with bounds (n - 1) and dl storage\n" | |||
| 30948 | "d : rank-1 array('d') with bounds (n)\n" | |||
| 30949 | "du : rank-1 array('d') with bounds (n - 1)\n" | |||
| 30950 | "x : rank-2 array('d') with bounds (n,nrhs) and b storage\n" | |||
| 30951 | "info : int"; | |||
| 30952 | /* extern void F_FUNC(dgtsv,DGTSV)(F_INT*, F_INT*, double*, double*, double*, double*, F_INT*, F_INT* ); */ | |||
| 30953 | static PyObject *f2py_rout__flapack_dgtsv(const PyObject *capi_self, | |||
| 30954 | PyObject *capi_args, | |||
| 30955 | PyObject *capi_keywds, | |||
| 30956 | void (*f2py_func)(F_INTint*, F_INTint*, double*, double*, double*, double*, F_INTint*, F_INTint* )) { | |||
| 30957 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 30958 | volatile int f2py_success = 1; | |||
| 30959 | /*decl*/ | |||
| 30960 | ||||
| 30961 | int n = 0; | |||
| 30962 | int nrhs = 0; | |||
| 30963 | double *dl = NULL((void*)0); | |||
| 30964 | npy_intp dl_Dims[1] = {-1}; | |||
| 30965 | const int dl_Rank = 1; | |||
| 30966 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 30967 | int capi_dl_intent = 0; | |||
| 30968 | int capi_overwrite_dl = 0; | |||
| 30969 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 30970 | double *d = NULL((void*)0); | |||
| 30971 | npy_intp d_Dims[1] = {-1}; | |||
| 30972 | const int d_Rank = 1; | |||
| 30973 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 30974 | int capi_d_intent = 0; | |||
| 30975 | int capi_overwrite_d = 0; | |||
| 30976 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 30977 | double *du = NULL((void*)0); | |||
| 30978 | npy_intp du_Dims[1] = {-1}; | |||
| 30979 | const int du_Rank = 1; | |||
| 30980 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 30981 | int capi_du_intent = 0; | |||
| 30982 | int capi_overwrite_du = 0; | |||
| 30983 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 30984 | double *b = NULL((void*)0); | |||
| 30985 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 30986 | const int b_Rank = 2; | |||
| 30987 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 30988 | int capi_b_intent = 0; | |||
| 30989 | int capi_overwrite_b = 0; | |||
| 30990 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 30991 | int info = 0; | |||
| 30992 | static char *capi_kwlist[] = {"dl","d","du","b","overwrite_dl","overwrite_d","overwrite_du","overwrite_b",NULL((void*)0)}; | |||
| 30993 | ||||
| 30994 | /*routdebugenter*/ | |||
| 30995 | #ifdef F2PY_REPORT_ATEXIT | |||
| 30996 | f2py_start_clock(); | |||
| 30997 | #endif | |||
| 30998 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 30999 | "OOOO|iiii:_flapack.dgtsv",\ | |||
| 31000 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du,&capi_overwrite_b)) | |||
| 31001 | return NULL((void*)0); | |||
| 31002 | /*frompyobj*/ | |||
| 31003 | /* Processing variable d */ | |||
| 31004 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 31005 | ; | |||
| 31006 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31007 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 31008 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 31009 | if (!PyErr_Occurred()) | |||
| 31010 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.dgtsv to C/Fortran array" ); | |||
| 31011 | } else { | |||
| 31012 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 31013 | ||||
| 31014 | /* Processing variable info */ | |||
| 31015 | /* Processing variable n */ | |||
| 31016 | n = len(d)d_Dims[0]; | |||
| 31017 | /* Processing variable dl */ | |||
| 31018 | capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32); | |||
| 31019 | dl_Dims[0]=n - 1; | |||
| 31020 | capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31021 | capi_dl_tmp = array_from_pyobj(NPY_DOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 31022 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 31023 | if (!PyErr_Occurred()) | |||
| 31024 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.dgtsv to C/Fortran array" ); | |||
| 31025 | } else { | |||
| 31026 | dl = (double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 31027 | ||||
| 31028 | /* Processing variable du */ | |||
| 31029 | capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32); | |||
| 31030 | du_Dims[0]=n - 1; | |||
| 31031 | capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31032 | capi_du_tmp = array_from_pyobj(NPY_DOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 31033 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 31034 | if (!PyErr_Occurred()) | |||
| 31035 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.dgtsv to C/Fortran array" ); | |||
| 31036 | } else { | |||
| 31037 | du = (double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 31038 | ||||
| 31039 | /* Processing variable b */ | |||
| 31040 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 31041 | b_Dims[0]=n; | |||
| 31042 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31043 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 31044 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 31045 | if (!PyErr_Occurred()) | |||
| 31046 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.dgtsv to C/Fortran array" ); | |||
| 31047 | } else { | |||
| 31048 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 31049 | ||||
| 31050 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","4th argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""4th argument b"); } else { | |||
| 31051 | /* Processing variable nrhs */ | |||
| 31052 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 31053 | /*end of frompyobj*/ | |||
| 31054 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31055 | f2py_start_call_clock(); | |||
| 31056 | #endif | |||
| 31057 | /*callfortranroutine*/ | |||
| 31058 | (*f2py_func)(&n, &nrhs, dl, d, du, b, &n, &info); ; | |||
| 31059 | /*(*f2py_func)(&n,&nrhs,dl,d,du,b,&info);*/ | |||
| 31060 | if (PyErr_Occurred()) | |||
| 31061 | f2py_success = 0; | |||
| 31062 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31063 | f2py_stop_call_clock(); | |||
| 31064 | #endif | |||
| 31065 | /*end of callfortranroutine*/ | |||
| 31066 | if (f2py_success) { | |||
| 31067 | /*pyobjfrom*/ | |||
| 31068 | /*end of pyobjfrom*/ | |||
| 31069 | CFUNCSMESS("Building return value.\n"); | |||
| 31070 | capi_buildvalue = Py_BuildValue("NNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_b_tmp,info); | |||
| 31071 | /*closepyobjfrom*/ | |||
| 31072 | /*end of closepyobjfrom*/ | |||
| 31073 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 31074 | /*cleanupfrompyobj*/ | |||
| 31075 | /* End of cleaning variable nrhs */ | |||
| 31076 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 31077 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 31078 | /* End of cleaning variable b */ | |||
| 31079 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 31080 | /* End of cleaning variable du */ | |||
| 31081 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 31082 | /* End of cleaning variable dl */ | |||
| 31083 | /* End of cleaning variable n */ | |||
| 31084 | /* End of cleaning variable info */ | |||
| 31085 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 31086 | /* End of cleaning variable d */ | |||
| 31087 | /*end of cleanupfrompyobj*/ | |||
| 31088 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 31089 | /*routdebugfailure*/ | |||
| 31090 | } else { | |||
| 31091 | /*routdebugleave*/ | |||
| 31092 | } | |||
| 31093 | CFUNCSMESS("Freeing memory.\n"); | |||
| 31094 | /*freemem*/ | |||
| 31095 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31096 | f2py_stop_clock(); | |||
| 31097 | #endif | |||
| 31098 | return capi_buildvalue; | |||
| 31099 | } | |||
| 31100 | /******************************** end of dgtsv ********************************/ | |||
| 31101 | ||||
| 31102 | /*********************************** cgtsv ***********************************/ | |||
| 31103 | static char doc_f2py_rout__flapack_cgtsv[] = "\ | |||
| 31104 | du2,d,du,x,info = cgtsv(dl,d,du,b,[overwrite_dl,overwrite_d,overwrite_du,overwrite_b])\n\nWrapper for ``cgtsv``.\ | |||
| 31105 | \n\nParameters\n----------\n" | |||
| 31106 | "dl : input rank-1 array('F') with bounds (n - 1)\n" | |||
| 31107 | "d : input rank-1 array('F') with bounds (n)\n" | |||
| 31108 | "du : input rank-1 array('F') with bounds (n - 1)\n" | |||
| 31109 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 31110 | "\nOther Parameters\n----------------\n" | |||
| 31111 | "overwrite_dl : input int, optional\n Default: 0\n" | |||
| 31112 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 31113 | "overwrite_du : input int, optional\n Default: 0\n" | |||
| 31114 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 31115 | "\nReturns\n-------\n" | |||
| 31116 | "du2 : rank-1 array('F') with bounds (n - 1) and dl storage\n" | |||
| 31117 | "d : rank-1 array('F') with bounds (n)\n" | |||
| 31118 | "du : rank-1 array('F') with bounds (n - 1)\n" | |||
| 31119 | "x : rank-2 array('F') with bounds (n,nrhs) and b storage\n" | |||
| 31120 | "info : int"; | |||
| 31121 | /* extern void F_FUNC(cgtsv,CGTSV)(F_INT*, F_INT*, complex_float*, complex_float*, complex_float*, complex_float*, F_INT*, F_INT* ); */ | |||
| 31122 | static PyObject *f2py_rout__flapack_cgtsv(const PyObject *capi_self, | |||
| 31123 | PyObject *capi_args, | |||
| 31124 | PyObject *capi_keywds, | |||
| 31125 | void (*f2py_func)(F_INTint*, F_INTint*, complex_float*, complex_float*, complex_float*, complex_float*, F_INTint*, F_INTint* )) { | |||
| 31126 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 31127 | volatile int f2py_success = 1; | |||
| 31128 | /*decl*/ | |||
| 31129 | ||||
| 31130 | int n = 0; | |||
| 31131 | int nrhs = 0; | |||
| 31132 | complex_float *dl = NULL((void*)0); | |||
| 31133 | npy_intp dl_Dims[1] = {-1}; | |||
| 31134 | const int dl_Rank = 1; | |||
| 31135 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 31136 | int capi_dl_intent = 0; | |||
| 31137 | int capi_overwrite_dl = 0; | |||
| 31138 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 31139 | complex_float *d = NULL((void*)0); | |||
| 31140 | npy_intp d_Dims[1] = {-1}; | |||
| 31141 | const int d_Rank = 1; | |||
| 31142 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 31143 | int capi_d_intent = 0; | |||
| 31144 | int capi_overwrite_d = 0; | |||
| 31145 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 31146 | complex_float *du = NULL((void*)0); | |||
| 31147 | npy_intp du_Dims[1] = {-1}; | |||
| 31148 | const int du_Rank = 1; | |||
| 31149 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 31150 | int capi_du_intent = 0; | |||
| 31151 | int capi_overwrite_du = 0; | |||
| 31152 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 31153 | complex_float *b = NULL((void*)0); | |||
| 31154 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 31155 | const int b_Rank = 2; | |||
| 31156 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 31157 | int capi_b_intent = 0; | |||
| 31158 | int capi_overwrite_b = 0; | |||
| 31159 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 31160 | int info = 0; | |||
| 31161 | static char *capi_kwlist[] = {"dl","d","du","b","overwrite_dl","overwrite_d","overwrite_du","overwrite_b",NULL((void*)0)}; | |||
| 31162 | ||||
| 31163 | /*routdebugenter*/ | |||
| 31164 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31165 | f2py_start_clock(); | |||
| 31166 | #endif | |||
| 31167 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 31168 | "OOOO|iiii:_flapack.cgtsv",\ | |||
| 31169 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du,&capi_overwrite_b)) | |||
| 31170 | return NULL((void*)0); | |||
| 31171 | /*frompyobj*/ | |||
| 31172 | /* Processing variable d */ | |||
| 31173 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 31174 | ; | |||
| 31175 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31176 | capi_d_tmp = array_from_pyobj(NPY_CFLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 31177 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 31178 | if (!PyErr_Occurred()) | |||
| 31179 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.cgtsv to C/Fortran array" ); | |||
| 31180 | } else { | |||
| 31181 | d = (complex_float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 31182 | ||||
| 31183 | /* Processing variable info */ | |||
| 31184 | /* Processing variable n */ | |||
| 31185 | n = len(d)d_Dims[0]; | |||
| 31186 | /* Processing variable dl */ | |||
| 31187 | capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32); | |||
| 31188 | dl_Dims[0]=n - 1; | |||
| 31189 | capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31190 | capi_dl_tmp = array_from_pyobj(NPY_CFLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 31191 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 31192 | if (!PyErr_Occurred()) | |||
| 31193 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.cgtsv to C/Fortran array" ); | |||
| 31194 | } else { | |||
| 31195 | dl = (complex_float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 31196 | ||||
| 31197 | /* Processing variable du */ | |||
| 31198 | capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32); | |||
| 31199 | du_Dims[0]=n - 1; | |||
| 31200 | capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31201 | capi_du_tmp = array_from_pyobj(NPY_CFLOAT,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 31202 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 31203 | if (!PyErr_Occurred()) | |||
| 31204 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.cgtsv to C/Fortran array" ); | |||
| 31205 | } else { | |||
| 31206 | du = (complex_float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 31207 | ||||
| 31208 | /* Processing variable b */ | |||
| 31209 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 31210 | b_Dims[0]=n; | |||
| 31211 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31212 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 31213 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 31214 | if (!PyErr_Occurred()) | |||
| 31215 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.cgtsv to C/Fortran array" ); | |||
| 31216 | } else { | |||
| 31217 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 31218 | ||||
| 31219 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","4th argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""4th argument b"); } else { | |||
| 31220 | /* Processing variable nrhs */ | |||
| 31221 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 31222 | /*end of frompyobj*/ | |||
| 31223 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31224 | f2py_start_call_clock(); | |||
| 31225 | #endif | |||
| 31226 | /*callfortranroutine*/ | |||
| 31227 | (*f2py_func)(&n, &nrhs, dl, d, du, b, &n, &info); ; | |||
| 31228 | /*(*f2py_func)(&n,&nrhs,dl,d,du,b,&info);*/ | |||
| 31229 | if (PyErr_Occurred()) | |||
| 31230 | f2py_success = 0; | |||
| 31231 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31232 | f2py_stop_call_clock(); | |||
| 31233 | #endif | |||
| 31234 | /*end of callfortranroutine*/ | |||
| 31235 | if (f2py_success) { | |||
| 31236 | /*pyobjfrom*/ | |||
| 31237 | /*end of pyobjfrom*/ | |||
| 31238 | CFUNCSMESS("Building return value.\n"); | |||
| 31239 | capi_buildvalue = Py_BuildValue("NNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_b_tmp,info); | |||
| 31240 | /*closepyobjfrom*/ | |||
| 31241 | /*end of closepyobjfrom*/ | |||
| 31242 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 31243 | /*cleanupfrompyobj*/ | |||
| 31244 | /* End of cleaning variable nrhs */ | |||
| 31245 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 31246 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 31247 | /* End of cleaning variable b */ | |||
| 31248 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 31249 | /* End of cleaning variable du */ | |||
| 31250 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 31251 | /* End of cleaning variable dl */ | |||
| 31252 | /* End of cleaning variable n */ | |||
| 31253 | /* End of cleaning variable info */ | |||
| 31254 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 31255 | /* End of cleaning variable d */ | |||
| 31256 | /*end of cleanupfrompyobj*/ | |||
| 31257 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 31258 | /*routdebugfailure*/ | |||
| 31259 | } else { | |||
| 31260 | /*routdebugleave*/ | |||
| 31261 | } | |||
| 31262 | CFUNCSMESS("Freeing memory.\n"); | |||
| 31263 | /*freemem*/ | |||
| 31264 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31265 | f2py_stop_clock(); | |||
| 31266 | #endif | |||
| 31267 | return capi_buildvalue; | |||
| 31268 | } | |||
| 31269 | /******************************** end of cgtsv ********************************/ | |||
| 31270 | ||||
| 31271 | /*********************************** zgtsv ***********************************/ | |||
| 31272 | static char doc_f2py_rout__flapack_zgtsv[] = "\ | |||
| 31273 | du2,d,du,x,info = zgtsv(dl,d,du,b,[overwrite_dl,overwrite_d,overwrite_du,overwrite_b])\n\nWrapper for ``zgtsv``.\ | |||
| 31274 | \n\nParameters\n----------\n" | |||
| 31275 | "dl : input rank-1 array('D') with bounds (n - 1)\n" | |||
| 31276 | "d : input rank-1 array('D') with bounds (n)\n" | |||
| 31277 | "du : input rank-1 array('D') with bounds (n - 1)\n" | |||
| 31278 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 31279 | "\nOther Parameters\n----------------\n" | |||
| 31280 | "overwrite_dl : input int, optional\n Default: 0\n" | |||
| 31281 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 31282 | "overwrite_du : input int, optional\n Default: 0\n" | |||
| 31283 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 31284 | "\nReturns\n-------\n" | |||
| 31285 | "du2 : rank-1 array('D') with bounds (n - 1) and dl storage\n" | |||
| 31286 | "d : rank-1 array('D') with bounds (n)\n" | |||
| 31287 | "du : rank-1 array('D') with bounds (n - 1)\n" | |||
| 31288 | "x : rank-2 array('D') with bounds (n,nrhs) and b storage\n" | |||
| 31289 | "info : int"; | |||
| 31290 | /* extern void F_FUNC(zgtsv,ZGTSV)(F_INT*, F_INT*, complex_double*, complex_double*, complex_double*, complex_double*, F_INT*, F_INT* ); */ | |||
| 31291 | static PyObject *f2py_rout__flapack_zgtsv(const PyObject *capi_self, | |||
| 31292 | PyObject *capi_args, | |||
| 31293 | PyObject *capi_keywds, | |||
| 31294 | void (*f2py_func)(F_INTint*, F_INTint*, complex_double*, complex_double*, complex_double*, complex_double*, F_INTint*, F_INTint* )) { | |||
| 31295 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 31296 | volatile int f2py_success = 1; | |||
| 31297 | /*decl*/ | |||
| 31298 | ||||
| 31299 | int n = 0; | |||
| 31300 | int nrhs = 0; | |||
| 31301 | complex_double *dl = NULL((void*)0); | |||
| 31302 | npy_intp dl_Dims[1] = {-1}; | |||
| 31303 | const int dl_Rank = 1; | |||
| 31304 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 31305 | int capi_dl_intent = 0; | |||
| 31306 | int capi_overwrite_dl = 0; | |||
| 31307 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 31308 | complex_double *d = NULL((void*)0); | |||
| 31309 | npy_intp d_Dims[1] = {-1}; | |||
| 31310 | const int d_Rank = 1; | |||
| 31311 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 31312 | int capi_d_intent = 0; | |||
| 31313 | int capi_overwrite_d = 0; | |||
| 31314 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 31315 | complex_double *du = NULL((void*)0); | |||
| 31316 | npy_intp du_Dims[1] = {-1}; | |||
| 31317 | const int du_Rank = 1; | |||
| 31318 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 31319 | int capi_du_intent = 0; | |||
| 31320 | int capi_overwrite_du = 0; | |||
| 31321 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 31322 | complex_double *b = NULL((void*)0); | |||
| 31323 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 31324 | const int b_Rank = 2; | |||
| 31325 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 31326 | int capi_b_intent = 0; | |||
| 31327 | int capi_overwrite_b = 0; | |||
| 31328 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 31329 | int info = 0; | |||
| 31330 | static char *capi_kwlist[] = {"dl","d","du","b","overwrite_dl","overwrite_d","overwrite_du","overwrite_b",NULL((void*)0)}; | |||
| 31331 | ||||
| 31332 | /*routdebugenter*/ | |||
| 31333 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31334 | f2py_start_clock(); | |||
| 31335 | #endif | |||
| 31336 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 31337 | "OOOO|iiii:_flapack.zgtsv",\ | |||
| 31338 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du,&capi_overwrite_b)) | |||
| 31339 | return NULL((void*)0); | |||
| 31340 | /*frompyobj*/ | |||
| 31341 | /* Processing variable d */ | |||
| 31342 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 31343 | ; | |||
| 31344 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31345 | capi_d_tmp = array_from_pyobj(NPY_CDOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 31346 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 31347 | if (!PyErr_Occurred()) | |||
| 31348 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.zgtsv to C/Fortran array" ); | |||
| 31349 | } else { | |||
| 31350 | d = (complex_double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 31351 | ||||
| 31352 | /* Processing variable info */ | |||
| 31353 | /* Processing variable n */ | |||
| 31354 | n = len(d)d_Dims[0]; | |||
| 31355 | /* Processing variable dl */ | |||
| 31356 | capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32); | |||
| 31357 | dl_Dims[0]=n - 1; | |||
| 31358 | capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31359 | capi_dl_tmp = array_from_pyobj(NPY_CDOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 31360 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 31361 | if (!PyErr_Occurred()) | |||
| 31362 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.zgtsv to C/Fortran array" ); | |||
| 31363 | } else { | |||
| 31364 | dl = (complex_double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 31365 | ||||
| 31366 | /* Processing variable du */ | |||
| 31367 | capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32); | |||
| 31368 | du_Dims[0]=n - 1; | |||
| 31369 | capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31370 | capi_du_tmp = array_from_pyobj(NPY_CDOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 31371 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 31372 | if (!PyErr_Occurred()) | |||
| 31373 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.zgtsv to C/Fortran array" ); | |||
| 31374 | } else { | |||
| 31375 | du = (complex_double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 31376 | ||||
| 31377 | /* Processing variable b */ | |||
| 31378 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 31379 | b_Dims[0]=n; | |||
| 31380 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31381 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 31382 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 31383 | if (!PyErr_Occurred()) | |||
| 31384 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.zgtsv to C/Fortran array" ); | |||
| 31385 | } else { | |||
| 31386 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 31387 | ||||
| 31388 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","4th argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""4th argument b"); } else { | |||
| 31389 | /* Processing variable nrhs */ | |||
| 31390 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 31391 | /*end of frompyobj*/ | |||
| 31392 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31393 | f2py_start_call_clock(); | |||
| 31394 | #endif | |||
| 31395 | /*callfortranroutine*/ | |||
| 31396 | (*f2py_func)(&n, &nrhs, dl, d, du, b, &n, &info); ; | |||
| 31397 | /*(*f2py_func)(&n,&nrhs,dl,d,du,b,&info);*/ | |||
| 31398 | if (PyErr_Occurred()) | |||
| 31399 | f2py_success = 0; | |||
| 31400 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31401 | f2py_stop_call_clock(); | |||
| 31402 | #endif | |||
| 31403 | /*end of callfortranroutine*/ | |||
| 31404 | if (f2py_success) { | |||
| 31405 | /*pyobjfrom*/ | |||
| 31406 | /*end of pyobjfrom*/ | |||
| 31407 | CFUNCSMESS("Building return value.\n"); | |||
| 31408 | capi_buildvalue = Py_BuildValue("NNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_b_tmp,info); | |||
| 31409 | /*closepyobjfrom*/ | |||
| 31410 | /*end of closepyobjfrom*/ | |||
| 31411 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 31412 | /*cleanupfrompyobj*/ | |||
| 31413 | /* End of cleaning variable nrhs */ | |||
| 31414 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 31415 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 31416 | /* End of cleaning variable b */ | |||
| 31417 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 31418 | /* End of cleaning variable du */ | |||
| 31419 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 31420 | /* End of cleaning variable dl */ | |||
| 31421 | /* End of cleaning variable n */ | |||
| 31422 | /* End of cleaning variable info */ | |||
| 31423 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 31424 | /* End of cleaning variable d */ | |||
| 31425 | /*end of cleanupfrompyobj*/ | |||
| 31426 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 31427 | /*routdebugfailure*/ | |||
| 31428 | } else { | |||
| 31429 | /*routdebugleave*/ | |||
| 31430 | } | |||
| 31431 | CFUNCSMESS("Freeing memory.\n"); | |||
| 31432 | /*freemem*/ | |||
| 31433 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31434 | f2py_stop_clock(); | |||
| 31435 | #endif | |||
| 31436 | return capi_buildvalue; | |||
| 31437 | } | |||
| 31438 | /******************************** end of zgtsv ********************************/ | |||
| 31439 | ||||
| 31440 | /*********************************** sgttrf ***********************************/ | |||
| 31441 | static char doc_f2py_rout__flapack_sgttrf[] = "\ | |||
| 31442 | dl,d,du,du2,ipiv,info = sgttrf(dl,d,du,[overwrite_dl,overwrite_d,overwrite_du])\n\nWrapper for ``sgttrf``.\ | |||
| 31443 | \n\nParameters\n----------\n" | |||
| 31444 | "dl : input rank-1 array('f') with bounds (n - 1)\n" | |||
| 31445 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 31446 | "du : input rank-1 array('f') with bounds (n - 1)\n" | |||
| 31447 | "\nOther Parameters\n----------------\n" | |||
| 31448 | "overwrite_dl : input int, optional\n Default: 0\n" | |||
| 31449 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 31450 | "overwrite_du : input int, optional\n Default: 0\n" | |||
| 31451 | "\nReturns\n-------\n" | |||
| 31452 | "dl : rank-1 array('f') with bounds (n - 1)\n" | |||
| 31453 | "d : rank-1 array('f') with bounds (n)\n" | |||
| 31454 | "du : rank-1 array('f') with bounds (n - 1)\n" | |||
| 31455 | "du2 : rank-1 array('f') with bounds (n - 2)\n" | |||
| 31456 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 31457 | "info : int"; | |||
| 31458 | /* extern void F_FUNC(sgttrf,SGTTRF)(F_INT*, float*, float*, float*, float*, F_INT*, F_INT* ); */ | |||
| 31459 | static PyObject *f2py_rout__flapack_sgttrf(const PyObject *capi_self, | |||
| 31460 | PyObject *capi_args, | |||
| 31461 | PyObject *capi_keywds, | |||
| 31462 | void (*f2py_func)(F_INTint*, float*, float*, float*, float*, F_INTint*, F_INTint* )) { | |||
| 31463 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 31464 | volatile int f2py_success = 1; | |||
| 31465 | /*decl*/ | |||
| 31466 | ||||
| 31467 | int n = 0; | |||
| 31468 | float *dl = NULL((void*)0); | |||
| 31469 | npy_intp dl_Dims[1] = {-1}; | |||
| 31470 | const int dl_Rank = 1; | |||
| 31471 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 31472 | int capi_dl_intent = 0; | |||
| 31473 | int capi_overwrite_dl = 0; | |||
| 31474 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 31475 | float *d = NULL((void*)0); | |||
| 31476 | npy_intp d_Dims[1] = {-1}; | |||
| 31477 | const int d_Rank = 1; | |||
| 31478 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 31479 | int capi_d_intent = 0; | |||
| 31480 | int capi_overwrite_d = 0; | |||
| 31481 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 31482 | float *du = NULL((void*)0); | |||
| 31483 | npy_intp du_Dims[1] = {-1}; | |||
| 31484 | const int du_Rank = 1; | |||
| 31485 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 31486 | int capi_du_intent = 0; | |||
| 31487 | int capi_overwrite_du = 0; | |||
| 31488 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 31489 | float *du2 = NULL((void*)0); | |||
| 31490 | npy_intp du2_Dims[1] = {-1}; | |||
| 31491 | const int du2_Rank = 1; | |||
| 31492 | PyArrayObject *capi_du2_tmp = NULL((void*)0); | |||
| 31493 | int capi_du2_intent = 0; | |||
| 31494 | int *ipiv = NULL((void*)0); | |||
| 31495 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 31496 | const int ipiv_Rank = 1; | |||
| 31497 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 31498 | int capi_ipiv_intent = 0; | |||
| 31499 | int info = 0; | |||
| 31500 | static char *capi_kwlist[] = {"dl","d","du","overwrite_dl","overwrite_d","overwrite_du",NULL((void*)0)}; | |||
| 31501 | ||||
| 31502 | /*routdebugenter*/ | |||
| 31503 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31504 | f2py_start_clock(); | |||
| 31505 | #endif | |||
| 31506 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 31507 | "OOO|iii:_flapack.sgttrf",\ | |||
| 31508 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du)) | |||
| 31509 | return NULL((void*)0); | |||
| 31510 | /*frompyobj*/ | |||
| 31511 | /* Processing variable d */ | |||
| 31512 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 31513 | ; | |||
| 31514 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31515 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 31516 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 31517 | if (!PyErr_Occurred()) | |||
| 31518 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.sgttrf to C/Fortran array" ); | |||
| 31519 | } else { | |||
| 31520 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 31521 | ||||
| 31522 | /* Processing variable info */ | |||
| 31523 | /* Processing variable n */ | |||
| 31524 | n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0])); | |||
| 31525 | /* Processing variable dl */ | |||
| 31526 | capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32); | |||
| 31527 | dl_Dims[0]=n - 1; | |||
| 31528 | capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31529 | capi_dl_tmp = array_from_pyobj(NPY_FLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 31530 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 31531 | if (!PyErr_Occurred()) | |||
| 31532 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.sgttrf to C/Fortran array" ); | |||
| 31533 | } else { | |||
| 31534 | dl = (float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 31535 | ||||
| 31536 | /* Processing variable du */ | |||
| 31537 | capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32); | |||
| 31538 | du_Dims[0]=n - 1; | |||
| 31539 | capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31540 | capi_du_tmp = array_from_pyobj(NPY_FLOAT,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 31541 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 31542 | if (!PyErr_Occurred()) | |||
| 31543 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.sgttrf to C/Fortran array" ); | |||
| 31544 | } else { | |||
| 31545 | du = (float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 31546 | ||||
| 31547 | /* Processing variable du2 */ | |||
| 31548 | du2_Dims[0]=n - 2; | |||
| 31549 | capi_du2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 31550 | capi_du2_tmp = array_from_pyobj(NPY_FLOAT,du2_Dims,du2_Rank,capi_du2_intent,Py_None(&_Py_NoneStruct)); | |||
| 31551 | if (capi_du2_tmp == NULL((void*)0)) { | |||
| 31552 | if (!PyErr_Occurred()) | |||
| 31553 | PyErr_SetString(_flapack_error,"failed in converting hidden `du2' of _flapack.sgttrf to C/Fortran array" ); | |||
| 31554 | } else { | |||
| 31555 | du2 = (float *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data)); | |||
| 31556 | ||||
| 31557 | /* Processing variable ipiv */ | |||
| 31558 | ipiv_Dims[0]=n; | |||
| 31559 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 31560 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 31561 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 31562 | if (!PyErr_Occurred()) | |||
| 31563 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.sgttrf to C/Fortran array" ); | |||
| 31564 | } else { | |||
| 31565 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 31566 | ||||
| 31567 | /*end of frompyobj*/ | |||
| 31568 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31569 | f2py_start_call_clock(); | |||
| 31570 | #endif | |||
| 31571 | /*callfortranroutine*/ | |||
| 31572 | (*f2py_func)(&n, dl, d, du, du2, ipiv, &info) ; | |||
| 31573 | /*(*f2py_func)(&n,dl,d,du,du2,ipiv,&info);*/ | |||
| 31574 | if (PyErr_Occurred()) | |||
| 31575 | f2py_success = 0; | |||
| 31576 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31577 | f2py_stop_call_clock(); | |||
| 31578 | #endif | |||
| 31579 | /*end of callfortranroutine*/ | |||
| 31580 | if (f2py_success) { | |||
| 31581 | /*pyobjfrom*/ | |||
| 31582 | /*end of pyobjfrom*/ | |||
| 31583 | CFUNCSMESS("Building return value.\n"); | |||
| 31584 | capi_buildvalue = Py_BuildValue("NNNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_du2_tmp,capi_ipiv_tmp,info); | |||
| 31585 | /*closepyobjfrom*/ | |||
| 31586 | /*end of closepyobjfrom*/ | |||
| 31587 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 31588 | /*cleanupfrompyobj*/ | |||
| 31589 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 31590 | /* End of cleaning variable ipiv */ | |||
| 31591 | } /*if (capi_du2_tmp == NULL) ... else of du2*/ | |||
| 31592 | /* End of cleaning variable du2 */ | |||
| 31593 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 31594 | /* End of cleaning variable du */ | |||
| 31595 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 31596 | /* End of cleaning variable dl */ | |||
| 31597 | /* End of cleaning variable n */ | |||
| 31598 | /* End of cleaning variable info */ | |||
| 31599 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 31600 | /* End of cleaning variable d */ | |||
| 31601 | /*end of cleanupfrompyobj*/ | |||
| 31602 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 31603 | /*routdebugfailure*/ | |||
| 31604 | } else { | |||
| 31605 | /*routdebugleave*/ | |||
| 31606 | } | |||
| 31607 | CFUNCSMESS("Freeing memory.\n"); | |||
| 31608 | /*freemem*/ | |||
| 31609 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31610 | f2py_stop_clock(); | |||
| 31611 | #endif | |||
| 31612 | return capi_buildvalue; | |||
| 31613 | } | |||
| 31614 | /******************************* end of sgttrf *******************************/ | |||
| 31615 | ||||
| 31616 | /*********************************** dgttrf ***********************************/ | |||
| 31617 | static char doc_f2py_rout__flapack_dgttrf[] = "\ | |||
| 31618 | dl,d,du,du2,ipiv,info = dgttrf(dl,d,du,[overwrite_dl,overwrite_d,overwrite_du])\n\nWrapper for ``dgttrf``.\ | |||
| 31619 | \n\nParameters\n----------\n" | |||
| 31620 | "dl : input rank-1 array('d') with bounds (n - 1)\n" | |||
| 31621 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 31622 | "du : input rank-1 array('d') with bounds (n - 1)\n" | |||
| 31623 | "\nOther Parameters\n----------------\n" | |||
| 31624 | "overwrite_dl : input int, optional\n Default: 0\n" | |||
| 31625 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 31626 | "overwrite_du : input int, optional\n Default: 0\n" | |||
| 31627 | "\nReturns\n-------\n" | |||
| 31628 | "dl : rank-1 array('d') with bounds (n - 1)\n" | |||
| 31629 | "d : rank-1 array('d') with bounds (n)\n" | |||
| 31630 | "du : rank-1 array('d') with bounds (n - 1)\n" | |||
| 31631 | "du2 : rank-1 array('d') with bounds (n - 2)\n" | |||
| 31632 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 31633 | "info : int"; | |||
| 31634 | /* extern void F_FUNC(dgttrf,DGTTRF)(F_INT*, double*, double*, double*, double*, F_INT*, F_INT* ); */ | |||
| 31635 | static PyObject *f2py_rout__flapack_dgttrf(const PyObject *capi_self, | |||
| 31636 | PyObject *capi_args, | |||
| 31637 | PyObject *capi_keywds, | |||
| 31638 | void (*f2py_func)(F_INTint*, double*, double*, double*, double*, F_INTint*, F_INTint* )) { | |||
| 31639 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 31640 | volatile int f2py_success = 1; | |||
| 31641 | /*decl*/ | |||
| 31642 | ||||
| 31643 | int n = 0; | |||
| 31644 | double *dl = NULL((void*)0); | |||
| 31645 | npy_intp dl_Dims[1] = {-1}; | |||
| 31646 | const int dl_Rank = 1; | |||
| 31647 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 31648 | int capi_dl_intent = 0; | |||
| 31649 | int capi_overwrite_dl = 0; | |||
| 31650 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 31651 | double *d = NULL((void*)0); | |||
| 31652 | npy_intp d_Dims[1] = {-1}; | |||
| 31653 | const int d_Rank = 1; | |||
| 31654 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 31655 | int capi_d_intent = 0; | |||
| 31656 | int capi_overwrite_d = 0; | |||
| 31657 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 31658 | double *du = NULL((void*)0); | |||
| 31659 | npy_intp du_Dims[1] = {-1}; | |||
| 31660 | const int du_Rank = 1; | |||
| 31661 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 31662 | int capi_du_intent = 0; | |||
| 31663 | int capi_overwrite_du = 0; | |||
| 31664 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 31665 | double *du2 = NULL((void*)0); | |||
| 31666 | npy_intp du2_Dims[1] = {-1}; | |||
| 31667 | const int du2_Rank = 1; | |||
| 31668 | PyArrayObject *capi_du2_tmp = NULL((void*)0); | |||
| 31669 | int capi_du2_intent = 0; | |||
| 31670 | int *ipiv = NULL((void*)0); | |||
| 31671 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 31672 | const int ipiv_Rank = 1; | |||
| 31673 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 31674 | int capi_ipiv_intent = 0; | |||
| 31675 | int info = 0; | |||
| 31676 | static char *capi_kwlist[] = {"dl","d","du","overwrite_dl","overwrite_d","overwrite_du",NULL((void*)0)}; | |||
| 31677 | ||||
| 31678 | /*routdebugenter*/ | |||
| 31679 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31680 | f2py_start_clock(); | |||
| 31681 | #endif | |||
| 31682 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 31683 | "OOO|iii:_flapack.dgttrf",\ | |||
| 31684 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du)) | |||
| 31685 | return NULL((void*)0); | |||
| 31686 | /*frompyobj*/ | |||
| 31687 | /* Processing variable d */ | |||
| 31688 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 31689 | ; | |||
| 31690 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31691 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 31692 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 31693 | if (!PyErr_Occurred()) | |||
| 31694 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.dgttrf to C/Fortran array" ); | |||
| 31695 | } else { | |||
| 31696 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 31697 | ||||
| 31698 | /* Processing variable info */ | |||
| 31699 | /* Processing variable n */ | |||
| 31700 | n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0])); | |||
| 31701 | /* Processing variable dl */ | |||
| 31702 | capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32); | |||
| 31703 | dl_Dims[0]=n - 1; | |||
| 31704 | capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31705 | capi_dl_tmp = array_from_pyobj(NPY_DOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 31706 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 31707 | if (!PyErr_Occurred()) | |||
| 31708 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.dgttrf to C/Fortran array" ); | |||
| 31709 | } else { | |||
| 31710 | dl = (double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 31711 | ||||
| 31712 | /* Processing variable du */ | |||
| 31713 | capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32); | |||
| 31714 | du_Dims[0]=n - 1; | |||
| 31715 | capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31716 | capi_du_tmp = array_from_pyobj(NPY_DOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 31717 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 31718 | if (!PyErr_Occurred()) | |||
| 31719 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.dgttrf to C/Fortran array" ); | |||
| 31720 | } else { | |||
| 31721 | du = (double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 31722 | ||||
| 31723 | /* Processing variable du2 */ | |||
| 31724 | du2_Dims[0]=n - 2; | |||
| 31725 | capi_du2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 31726 | capi_du2_tmp = array_from_pyobj(NPY_DOUBLE,du2_Dims,du2_Rank,capi_du2_intent,Py_None(&_Py_NoneStruct)); | |||
| 31727 | if (capi_du2_tmp == NULL((void*)0)) { | |||
| 31728 | if (!PyErr_Occurred()) | |||
| 31729 | PyErr_SetString(_flapack_error,"failed in converting hidden `du2' of _flapack.dgttrf to C/Fortran array" ); | |||
| 31730 | } else { | |||
| 31731 | du2 = (double *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data)); | |||
| 31732 | ||||
| 31733 | /* Processing variable ipiv */ | |||
| 31734 | ipiv_Dims[0]=n; | |||
| 31735 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 31736 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 31737 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 31738 | if (!PyErr_Occurred()) | |||
| 31739 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.dgttrf to C/Fortran array" ); | |||
| 31740 | } else { | |||
| 31741 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 31742 | ||||
| 31743 | /*end of frompyobj*/ | |||
| 31744 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31745 | f2py_start_call_clock(); | |||
| 31746 | #endif | |||
| 31747 | /*callfortranroutine*/ | |||
| 31748 | (*f2py_func)(&n, dl, d, du, du2, ipiv, &info) ; | |||
| 31749 | /*(*f2py_func)(&n,dl,d,du,du2,ipiv,&info);*/ | |||
| 31750 | if (PyErr_Occurred()) | |||
| 31751 | f2py_success = 0; | |||
| 31752 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31753 | f2py_stop_call_clock(); | |||
| 31754 | #endif | |||
| 31755 | /*end of callfortranroutine*/ | |||
| 31756 | if (f2py_success) { | |||
| 31757 | /*pyobjfrom*/ | |||
| 31758 | /*end of pyobjfrom*/ | |||
| 31759 | CFUNCSMESS("Building return value.\n"); | |||
| 31760 | capi_buildvalue = Py_BuildValue("NNNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_du2_tmp,capi_ipiv_tmp,info); | |||
| 31761 | /*closepyobjfrom*/ | |||
| 31762 | /*end of closepyobjfrom*/ | |||
| 31763 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 31764 | /*cleanupfrompyobj*/ | |||
| 31765 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 31766 | /* End of cleaning variable ipiv */ | |||
| 31767 | } /*if (capi_du2_tmp == NULL) ... else of du2*/ | |||
| 31768 | /* End of cleaning variable du2 */ | |||
| 31769 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 31770 | /* End of cleaning variable du */ | |||
| 31771 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 31772 | /* End of cleaning variable dl */ | |||
| 31773 | /* End of cleaning variable n */ | |||
| 31774 | /* End of cleaning variable info */ | |||
| 31775 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 31776 | /* End of cleaning variable d */ | |||
| 31777 | /*end of cleanupfrompyobj*/ | |||
| 31778 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 31779 | /*routdebugfailure*/ | |||
| 31780 | } else { | |||
| 31781 | /*routdebugleave*/ | |||
| 31782 | } | |||
| 31783 | CFUNCSMESS("Freeing memory.\n"); | |||
| 31784 | /*freemem*/ | |||
| 31785 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31786 | f2py_stop_clock(); | |||
| 31787 | #endif | |||
| 31788 | return capi_buildvalue; | |||
| 31789 | } | |||
| 31790 | /******************************* end of dgttrf *******************************/ | |||
| 31791 | ||||
| 31792 | /*********************************** cgttrf ***********************************/ | |||
| 31793 | static char doc_f2py_rout__flapack_cgttrf[] = "\ | |||
| 31794 | dl,d,du,du2,ipiv,info = cgttrf(dl,d,du,[overwrite_dl,overwrite_d,overwrite_du])\n\nWrapper for ``cgttrf``.\ | |||
| 31795 | \n\nParameters\n----------\n" | |||
| 31796 | "dl : input rank-1 array('F') with bounds (n - 1)\n" | |||
| 31797 | "d : input rank-1 array('F') with bounds (n)\n" | |||
| 31798 | "du : input rank-1 array('F') with bounds (n - 1)\n" | |||
| 31799 | "\nOther Parameters\n----------------\n" | |||
| 31800 | "overwrite_dl : input int, optional\n Default: 0\n" | |||
| 31801 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 31802 | "overwrite_du : input int, optional\n Default: 0\n" | |||
| 31803 | "\nReturns\n-------\n" | |||
| 31804 | "dl : rank-1 array('F') with bounds (n - 1)\n" | |||
| 31805 | "d : rank-1 array('F') with bounds (n)\n" | |||
| 31806 | "du : rank-1 array('F') with bounds (n - 1)\n" | |||
| 31807 | "du2 : rank-1 array('F') with bounds (n - 2)\n" | |||
| 31808 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 31809 | "info : int"; | |||
| 31810 | /* extern void F_FUNC(cgttrf,CGTTRF)(F_INT*, complex_float*, complex_float*, complex_float*, complex_float*, F_INT*, F_INT* ); */ | |||
| 31811 | static PyObject *f2py_rout__flapack_cgttrf(const PyObject *capi_self, | |||
| 31812 | PyObject *capi_args, | |||
| 31813 | PyObject *capi_keywds, | |||
| 31814 | void (*f2py_func)(F_INTint*, complex_float*, complex_float*, complex_float*, complex_float*, F_INTint*, F_INTint* )) { | |||
| 31815 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 31816 | volatile int f2py_success = 1; | |||
| 31817 | /*decl*/ | |||
| 31818 | ||||
| 31819 | int n = 0; | |||
| 31820 | complex_float *dl = NULL((void*)0); | |||
| 31821 | npy_intp dl_Dims[1] = {-1}; | |||
| 31822 | const int dl_Rank = 1; | |||
| 31823 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 31824 | int capi_dl_intent = 0; | |||
| 31825 | int capi_overwrite_dl = 0; | |||
| 31826 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 31827 | complex_float *d = NULL((void*)0); | |||
| 31828 | npy_intp d_Dims[1] = {-1}; | |||
| 31829 | const int d_Rank = 1; | |||
| 31830 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 31831 | int capi_d_intent = 0; | |||
| 31832 | int capi_overwrite_d = 0; | |||
| 31833 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 31834 | complex_float *du = NULL((void*)0); | |||
| 31835 | npy_intp du_Dims[1] = {-1}; | |||
| 31836 | const int du_Rank = 1; | |||
| 31837 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 31838 | int capi_du_intent = 0; | |||
| 31839 | int capi_overwrite_du = 0; | |||
| 31840 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 31841 | complex_float *du2 = NULL((void*)0); | |||
| 31842 | npy_intp du2_Dims[1] = {-1}; | |||
| 31843 | const int du2_Rank = 1; | |||
| 31844 | PyArrayObject *capi_du2_tmp = NULL((void*)0); | |||
| 31845 | int capi_du2_intent = 0; | |||
| 31846 | int *ipiv = NULL((void*)0); | |||
| 31847 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 31848 | const int ipiv_Rank = 1; | |||
| 31849 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 31850 | int capi_ipiv_intent = 0; | |||
| 31851 | int info = 0; | |||
| 31852 | static char *capi_kwlist[] = {"dl","d","du","overwrite_dl","overwrite_d","overwrite_du",NULL((void*)0)}; | |||
| 31853 | ||||
| 31854 | /*routdebugenter*/ | |||
| 31855 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31856 | f2py_start_clock(); | |||
| 31857 | #endif | |||
| 31858 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 31859 | "OOO|iii:_flapack.cgttrf",\ | |||
| 31860 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du)) | |||
| 31861 | return NULL((void*)0); | |||
| 31862 | /*frompyobj*/ | |||
| 31863 | /* Processing variable d */ | |||
| 31864 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 31865 | ; | |||
| 31866 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31867 | capi_d_tmp = array_from_pyobj(NPY_CFLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 31868 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 31869 | if (!PyErr_Occurred()) | |||
| 31870 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.cgttrf to C/Fortran array" ); | |||
| 31871 | } else { | |||
| 31872 | d = (complex_float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 31873 | ||||
| 31874 | /* Processing variable info */ | |||
| 31875 | /* Processing variable n */ | |||
| 31876 | n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0])); | |||
| 31877 | /* Processing variable dl */ | |||
| 31878 | capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32); | |||
| 31879 | dl_Dims[0]=n - 1; | |||
| 31880 | capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31881 | capi_dl_tmp = array_from_pyobj(NPY_CFLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 31882 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 31883 | if (!PyErr_Occurred()) | |||
| 31884 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.cgttrf to C/Fortran array" ); | |||
| 31885 | } else { | |||
| 31886 | dl = (complex_float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 31887 | ||||
| 31888 | /* Processing variable du */ | |||
| 31889 | capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32); | |||
| 31890 | du_Dims[0]=n - 1; | |||
| 31891 | capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 31892 | capi_du_tmp = array_from_pyobj(NPY_CFLOAT,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 31893 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 31894 | if (!PyErr_Occurred()) | |||
| 31895 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.cgttrf to C/Fortran array" ); | |||
| 31896 | } else { | |||
| 31897 | du = (complex_float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 31898 | ||||
| 31899 | /* Processing variable du2 */ | |||
| 31900 | du2_Dims[0]=n - 2; | |||
| 31901 | capi_du2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 31902 | capi_du2_tmp = array_from_pyobj(NPY_CFLOAT,du2_Dims,du2_Rank,capi_du2_intent,Py_None(&_Py_NoneStruct)); | |||
| 31903 | if (capi_du2_tmp == NULL((void*)0)) { | |||
| 31904 | if (!PyErr_Occurred()) | |||
| 31905 | PyErr_SetString(_flapack_error,"failed in converting hidden `du2' of _flapack.cgttrf to C/Fortran array" ); | |||
| 31906 | } else { | |||
| 31907 | du2 = (complex_float *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data)); | |||
| 31908 | ||||
| 31909 | /* Processing variable ipiv */ | |||
| 31910 | ipiv_Dims[0]=n; | |||
| 31911 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 31912 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 31913 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 31914 | if (!PyErr_Occurred()) | |||
| 31915 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.cgttrf to C/Fortran array" ); | |||
| 31916 | } else { | |||
| 31917 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 31918 | ||||
| 31919 | /*end of frompyobj*/ | |||
| 31920 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31921 | f2py_start_call_clock(); | |||
| 31922 | #endif | |||
| 31923 | /*callfortranroutine*/ | |||
| 31924 | (*f2py_func)(&n, dl, d, du, du2, ipiv, &info) ; | |||
| 31925 | /*(*f2py_func)(&n,dl,d,du,du2,ipiv,&info);*/ | |||
| 31926 | if (PyErr_Occurred()) | |||
| 31927 | f2py_success = 0; | |||
| 31928 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31929 | f2py_stop_call_clock(); | |||
| 31930 | #endif | |||
| 31931 | /*end of callfortranroutine*/ | |||
| 31932 | if (f2py_success) { | |||
| 31933 | /*pyobjfrom*/ | |||
| 31934 | /*end of pyobjfrom*/ | |||
| 31935 | CFUNCSMESS("Building return value.\n"); | |||
| 31936 | capi_buildvalue = Py_BuildValue("NNNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_du2_tmp,capi_ipiv_tmp,info); | |||
| 31937 | /*closepyobjfrom*/ | |||
| 31938 | /*end of closepyobjfrom*/ | |||
| 31939 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 31940 | /*cleanupfrompyobj*/ | |||
| 31941 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 31942 | /* End of cleaning variable ipiv */ | |||
| 31943 | } /*if (capi_du2_tmp == NULL) ... else of du2*/ | |||
| 31944 | /* End of cleaning variable du2 */ | |||
| 31945 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 31946 | /* End of cleaning variable du */ | |||
| 31947 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 31948 | /* End of cleaning variable dl */ | |||
| 31949 | /* End of cleaning variable n */ | |||
| 31950 | /* End of cleaning variable info */ | |||
| 31951 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 31952 | /* End of cleaning variable d */ | |||
| 31953 | /*end of cleanupfrompyobj*/ | |||
| 31954 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 31955 | /*routdebugfailure*/ | |||
| 31956 | } else { | |||
| 31957 | /*routdebugleave*/ | |||
| 31958 | } | |||
| 31959 | CFUNCSMESS("Freeing memory.\n"); | |||
| 31960 | /*freemem*/ | |||
| 31961 | #ifdef F2PY_REPORT_ATEXIT | |||
| 31962 | f2py_stop_clock(); | |||
| 31963 | #endif | |||
| 31964 | return capi_buildvalue; | |||
| 31965 | } | |||
| 31966 | /******************************* end of cgttrf *******************************/ | |||
| 31967 | ||||
| 31968 | /*********************************** zgttrf ***********************************/ | |||
| 31969 | static char doc_f2py_rout__flapack_zgttrf[] = "\ | |||
| 31970 | dl,d,du,du2,ipiv,info = zgttrf(dl,d,du,[overwrite_dl,overwrite_d,overwrite_du])\n\nWrapper for ``zgttrf``.\ | |||
| 31971 | \n\nParameters\n----------\n" | |||
| 31972 | "dl : input rank-1 array('D') with bounds (n - 1)\n" | |||
| 31973 | "d : input rank-1 array('D') with bounds (n)\n" | |||
| 31974 | "du : input rank-1 array('D') with bounds (n - 1)\n" | |||
| 31975 | "\nOther Parameters\n----------------\n" | |||
| 31976 | "overwrite_dl : input int, optional\n Default: 0\n" | |||
| 31977 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 31978 | "overwrite_du : input int, optional\n Default: 0\n" | |||
| 31979 | "\nReturns\n-------\n" | |||
| 31980 | "dl : rank-1 array('D') with bounds (n - 1)\n" | |||
| 31981 | "d : rank-1 array('D') with bounds (n)\n" | |||
| 31982 | "du : rank-1 array('D') with bounds (n - 1)\n" | |||
| 31983 | "du2 : rank-1 array('D') with bounds (n - 2)\n" | |||
| 31984 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 31985 | "info : int"; | |||
| 31986 | /* extern void F_FUNC(zgttrf,ZGTTRF)(F_INT*, complex_double*, complex_double*, complex_double*, complex_double*, F_INT*, F_INT* ); */ | |||
| 31987 | static PyObject *f2py_rout__flapack_zgttrf(const PyObject *capi_self, | |||
| 31988 | PyObject *capi_args, | |||
| 31989 | PyObject *capi_keywds, | |||
| 31990 | void (*f2py_func)(F_INTint*, complex_double*, complex_double*, complex_double*, complex_double*, F_INTint*, F_INTint* )) { | |||
| 31991 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 31992 | volatile int f2py_success = 1; | |||
| 31993 | /*decl*/ | |||
| 31994 | ||||
| 31995 | int n = 0; | |||
| 31996 | complex_double *dl = NULL((void*)0); | |||
| 31997 | npy_intp dl_Dims[1] = {-1}; | |||
| 31998 | const int dl_Rank = 1; | |||
| 31999 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 32000 | int capi_dl_intent = 0; | |||
| 32001 | int capi_overwrite_dl = 0; | |||
| 32002 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 32003 | complex_double *d = NULL((void*)0); | |||
| 32004 | npy_intp d_Dims[1] = {-1}; | |||
| 32005 | const int d_Rank = 1; | |||
| 32006 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 32007 | int capi_d_intent = 0; | |||
| 32008 | int capi_overwrite_d = 0; | |||
| 32009 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 32010 | complex_double *du = NULL((void*)0); | |||
| 32011 | npy_intp du_Dims[1] = {-1}; | |||
| 32012 | const int du_Rank = 1; | |||
| 32013 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 32014 | int capi_du_intent = 0; | |||
| 32015 | int capi_overwrite_du = 0; | |||
| 32016 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 32017 | complex_double *du2 = NULL((void*)0); | |||
| 32018 | npy_intp du2_Dims[1] = {-1}; | |||
| 32019 | const int du2_Rank = 1; | |||
| 32020 | PyArrayObject *capi_du2_tmp = NULL((void*)0); | |||
| 32021 | int capi_du2_intent = 0; | |||
| 32022 | int *ipiv = NULL((void*)0); | |||
| 32023 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 32024 | const int ipiv_Rank = 1; | |||
| 32025 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 32026 | int capi_ipiv_intent = 0; | |||
| 32027 | int info = 0; | |||
| 32028 | static char *capi_kwlist[] = {"dl","d","du","overwrite_dl","overwrite_d","overwrite_du",NULL((void*)0)}; | |||
| 32029 | ||||
| 32030 | /*routdebugenter*/ | |||
| 32031 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32032 | f2py_start_clock(); | |||
| 32033 | #endif | |||
| 32034 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 32035 | "OOO|iii:_flapack.zgttrf",\ | |||
| 32036 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du)) | |||
| 32037 | return NULL((void*)0); | |||
| 32038 | /*frompyobj*/ | |||
| 32039 | /* Processing variable d */ | |||
| 32040 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 32041 | ; | |||
| 32042 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 32043 | capi_d_tmp = array_from_pyobj(NPY_CDOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 32044 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 32045 | if (!PyErr_Occurred()) | |||
| 32046 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.zgttrf to C/Fortran array" ); | |||
| 32047 | } else { | |||
| 32048 | d = (complex_double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 32049 | ||||
| 32050 | /* Processing variable info */ | |||
| 32051 | /* Processing variable n */ | |||
| 32052 | n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0])); | |||
| 32053 | /* Processing variable dl */ | |||
| 32054 | capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32); | |||
| 32055 | dl_Dims[0]=n - 1; | |||
| 32056 | capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 32057 | capi_dl_tmp = array_from_pyobj(NPY_CDOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 32058 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 32059 | if (!PyErr_Occurred()) | |||
| 32060 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.zgttrf to C/Fortran array" ); | |||
| 32061 | } else { | |||
| 32062 | dl = (complex_double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 32063 | ||||
| 32064 | /* Processing variable du */ | |||
| 32065 | capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32); | |||
| 32066 | du_Dims[0]=n - 1; | |||
| 32067 | capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 32068 | capi_du_tmp = array_from_pyobj(NPY_CDOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 32069 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 32070 | if (!PyErr_Occurred()) | |||
| 32071 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.zgttrf to C/Fortran array" ); | |||
| 32072 | } else { | |||
| 32073 | du = (complex_double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 32074 | ||||
| 32075 | /* Processing variable du2 */ | |||
| 32076 | du2_Dims[0]=n - 2; | |||
| 32077 | capi_du2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 32078 | capi_du2_tmp = array_from_pyobj(NPY_CDOUBLE,du2_Dims,du2_Rank,capi_du2_intent,Py_None(&_Py_NoneStruct)); | |||
| 32079 | if (capi_du2_tmp == NULL((void*)0)) { | |||
| 32080 | if (!PyErr_Occurred()) | |||
| 32081 | PyErr_SetString(_flapack_error,"failed in converting hidden `du2' of _flapack.zgttrf to C/Fortran array" ); | |||
| 32082 | } else { | |||
| 32083 | du2 = (complex_double *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data)); | |||
| 32084 | ||||
| 32085 | /* Processing variable ipiv */ | |||
| 32086 | ipiv_Dims[0]=n; | |||
| 32087 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 32088 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 32089 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 32090 | if (!PyErr_Occurred()) | |||
| 32091 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zgttrf to C/Fortran array" ); | |||
| 32092 | } else { | |||
| 32093 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 32094 | ||||
| 32095 | /*end of frompyobj*/ | |||
| 32096 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32097 | f2py_start_call_clock(); | |||
| 32098 | #endif | |||
| 32099 | /*callfortranroutine*/ | |||
| 32100 | (*f2py_func)(&n, dl, d, du, du2, ipiv, &info) ; | |||
| 32101 | /*(*f2py_func)(&n,dl,d,du,du2,ipiv,&info);*/ | |||
| 32102 | if (PyErr_Occurred()) | |||
| 32103 | f2py_success = 0; | |||
| 32104 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32105 | f2py_stop_call_clock(); | |||
| 32106 | #endif | |||
| 32107 | /*end of callfortranroutine*/ | |||
| 32108 | if (f2py_success) { | |||
| 32109 | /*pyobjfrom*/ | |||
| 32110 | /*end of pyobjfrom*/ | |||
| 32111 | CFUNCSMESS("Building return value.\n"); | |||
| 32112 | capi_buildvalue = Py_BuildValue("NNNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_du2_tmp,capi_ipiv_tmp,info); | |||
| 32113 | /*closepyobjfrom*/ | |||
| 32114 | /*end of closepyobjfrom*/ | |||
| 32115 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 32116 | /*cleanupfrompyobj*/ | |||
| 32117 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 32118 | /* End of cleaning variable ipiv */ | |||
| 32119 | } /*if (capi_du2_tmp == NULL) ... else of du2*/ | |||
| 32120 | /* End of cleaning variable du2 */ | |||
| 32121 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 32122 | /* End of cleaning variable du */ | |||
| 32123 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 32124 | /* End of cleaning variable dl */ | |||
| 32125 | /* End of cleaning variable n */ | |||
| 32126 | /* End of cleaning variable info */ | |||
| 32127 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 32128 | /* End of cleaning variable d */ | |||
| 32129 | /*end of cleanupfrompyobj*/ | |||
| 32130 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 32131 | /*routdebugfailure*/ | |||
| 32132 | } else { | |||
| 32133 | /*routdebugleave*/ | |||
| 32134 | } | |||
| 32135 | CFUNCSMESS("Freeing memory.\n"); | |||
| 32136 | /*freemem*/ | |||
| 32137 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32138 | f2py_stop_clock(); | |||
| 32139 | #endif | |||
| 32140 | return capi_buildvalue; | |||
| 32141 | } | |||
| 32142 | /******************************* end of zgttrf *******************************/ | |||
| 32143 | ||||
| 32144 | /*********************************** sgttrs ***********************************/ | |||
| 32145 | static char doc_f2py_rout__flapack_sgttrs[] = "\ | |||
| 32146 | x,info = sgttrs(dl,d,du,du2,ipiv,b,[trans,overwrite_b])\n\nWrapper for ``sgttrs``.\ | |||
| 32147 | \n\nParameters\n----------\n" | |||
| 32148 | "dl : input rank-1 array('f') with bounds (n - 1)\n" | |||
| 32149 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 32150 | "du : input rank-1 array('f') with bounds (n - 1)\n" | |||
| 32151 | "du2 : input rank-1 array('f') with bounds (n - 2)\n" | |||
| 32152 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 32153 | "b : input rank-2 array('f') with bounds (ldb,nrhs)\n" | |||
| 32154 | "\nOther Parameters\n----------------\n" | |||
| 32155 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 32156 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 32157 | "\nReturns\n-------\n" | |||
| 32158 | "x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n" | |||
| 32159 | "info : int"; | |||
| 32160 | /* extern void F_FUNC(sgttrs,SGTTRS)(char*, F_INT*, F_INT*, float*, float*, float*, float*, F_INT*, float*, F_INT*, F_INT* ); */ | |||
| 32161 | static PyObject *f2py_rout__flapack_sgttrs(const PyObject *capi_self, | |||
| 32162 | PyObject *capi_args, | |||
| 32163 | PyObject *capi_keywds, | |||
| 32164 | void (*f2py_func)(char*, F_INTint*, F_INTint*, float*, float*, float*, float*, F_INTint*, float*, F_INTint*, F_INTint* )) { | |||
| 32165 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 32166 | volatile int f2py_success = 1; | |||
| 32167 | /*decl*/ | |||
| 32168 | ||||
| 32169 | string trans = NULL((void*)0); | |||
| 32170 | int slen(trans)capi_trans_len; | |||
| 32171 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 32172 | int n = 0; | |||
| 32173 | int nrhs = 0; | |||
| 32174 | float *dl = NULL((void*)0); | |||
| 32175 | npy_intp dl_Dims[1] = {-1}; | |||
| 32176 | const int dl_Rank = 1; | |||
| 32177 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 32178 | int capi_dl_intent = 0; | |||
| 32179 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 32180 | float *d = NULL((void*)0); | |||
| 32181 | npy_intp d_Dims[1] = {-1}; | |||
| 32182 | const int d_Rank = 1; | |||
| 32183 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 32184 | int capi_d_intent = 0; | |||
| 32185 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 32186 | float *du = NULL((void*)0); | |||
| 32187 | npy_intp du_Dims[1] = {-1}; | |||
| 32188 | const int du_Rank = 1; | |||
| 32189 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 32190 | int capi_du_intent = 0; | |||
| 32191 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 32192 | float *du2 = NULL((void*)0); | |||
| 32193 | npy_intp du2_Dims[1] = {-1}; | |||
| 32194 | const int du2_Rank = 1; | |||
| 32195 | PyArrayObject *capi_du2_tmp = NULL((void*)0); | |||
| 32196 | int capi_du2_intent = 0; | |||
| 32197 | PyObject *du2_capi = Py_None(&_Py_NoneStruct); | |||
| 32198 | int *ipiv = NULL((void*)0); | |||
| 32199 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 32200 | const int ipiv_Rank = 1; | |||
| 32201 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 32202 | int capi_ipiv_intent = 0; | |||
| 32203 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 32204 | float *b = NULL((void*)0); | |||
| 32205 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 32206 | const int b_Rank = 2; | |||
| 32207 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 32208 | int capi_b_intent = 0; | |||
| 32209 | int capi_overwrite_b = 0; | |||
| 32210 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 32211 | int ldb = 0; | |||
| 32212 | int info = 0; | |||
| 32213 | static char *capi_kwlist[] = {"dl","d","du","du2","ipiv","b","trans","overwrite_b",NULL((void*)0)}; | |||
| 32214 | ||||
| 32215 | /*routdebugenter*/ | |||
| 32216 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32217 | f2py_start_clock(); | |||
| 32218 | #endif | |||
| 32219 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 32220 | "OOOOOO|Oi:_flapack.sgttrs",\ | |||
| 32221 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&du2_capi,&ipiv_capi,&b_capi,&trans_capi,&capi_overwrite_b)) | |||
| 32222 | return NULL((void*)0); | |||
| 32223 | /*frompyobj*/ | |||
| 32224 | /* Processing variable d */ | |||
| 32225 | ; | |||
| 32226 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 32227 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 32228 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 32229 | if (!PyErr_Occurred()) | |||
| 32230 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.sgttrs to C/Fortran array" ); | |||
| 32231 | } else { | |||
| 32232 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 32233 | ||||
| 32234 | /* Processing variable info */ | |||
| 32235 | /* Processing variable n */ | |||
| 32236 | n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0])); | |||
| 32237 | /* Processing variable ldb */ | |||
| 32238 | ldb = max(1, n)((1 > n) ? (1) : (n)); | |||
| 32239 | /* Processing variable dl */ | |||
| 32240 | dl_Dims[0]=n - 1; | |||
| 32241 | capi_dl_intent |= F2PY_INTENT_IN1; | |||
| 32242 | capi_dl_tmp = array_from_pyobj(NPY_FLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 32243 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 32244 | if (!PyErr_Occurred()) | |||
| 32245 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.sgttrs to C/Fortran array" ); | |||
| 32246 | } else { | |||
| 32247 | dl = (float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 32248 | ||||
| 32249 | /* Processing variable du */ | |||
| 32250 | du_Dims[0]=n - 1; | |||
| 32251 | capi_du_intent |= F2PY_INTENT_IN1; | |||
| 32252 | capi_du_tmp = array_from_pyobj(NPY_FLOAT,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 32253 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 32254 | if (!PyErr_Occurred()) | |||
| 32255 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.sgttrs to C/Fortran array" ); | |||
| 32256 | } else { | |||
| 32257 | du = (float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 32258 | ||||
| 32259 | /* Processing variable du2 */ | |||
| 32260 | du2_Dims[0]=n - 2; | |||
| 32261 | capi_du2_intent |= F2PY_INTENT_IN1; | |||
| 32262 | capi_du2_tmp = array_from_pyobj(NPY_FLOAT,du2_Dims,du2_Rank,capi_du2_intent,du2_capi); | |||
| 32263 | if (capi_du2_tmp == NULL((void*)0)) { | |||
| 32264 | if (!PyErr_Occurred()) | |||
| 32265 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `du2' of _flapack.sgttrs to C/Fortran array" ); | |||
| 32266 | } else { | |||
| 32267 | du2 = (float *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data)); | |||
| 32268 | ||||
| 32269 | /* Processing variable ipiv */ | |||
| 32270 | ipiv_Dims[0]=n; | |||
| 32271 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 32272 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 32273 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 32274 | if (!PyErr_Occurred()) | |||
| 32275 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.sgttrs to C/Fortran array" ); | |||
| 32276 | } else { | |||
| 32277 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 32278 | ||||
| 32279 | /* Processing variable b */ | |||
| 32280 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 32281 | b_Dims[0]=ldb; | |||
| 32282 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 32283 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 32284 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 32285 | if (!PyErr_Occurred()) | |||
| 32286 | PyErr_SetString(_flapack_error,"failed in converting 6th argument `b' of _flapack.sgttrs to C/Fortran array" ); | |||
| 32287 | } else { | |||
| 32288 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 32289 | ||||
| 32290 | /* Processing variable trans */ | |||
| 32291 | slen(trans)capi_trans_len = 1; | |||
| 32292 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.sgttrs to C string"); | |||
| 32293 | if (f2py_success) { | |||
| 32294 | CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","1st keyword trans","sgttrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgttrs:slen(trans)=%d trans=\"%s\"" , "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""1st keyword trans" , capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 32295 | /* Processing variable nrhs */ | |||
| 32296 | nrhs = max(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1])); | |||
| 32297 | /*end of frompyobj*/ | |||
| 32298 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32299 | f2py_start_call_clock(); | |||
| 32300 | #endif | |||
| 32301 | /*callfortranroutine*/ | |||
| 32302 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 32303 | (*f2py_func)(trans, &n, &nrhs, dl, d, du, du2, ipiv, b, &ldb, &info) ; | |||
| 32304 | /*(*f2py_func)(trans,&n,&nrhs,dl,d,du,du2,ipiv,b,&ldb,&info,slen(trans));*/ | |||
| 32305 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 32306 | if (PyErr_Occurred()) | |||
| 32307 | f2py_success = 0; | |||
| 32308 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32309 | f2py_stop_call_clock(); | |||
| 32310 | #endif | |||
| 32311 | /*end of callfortranroutine*/ | |||
| 32312 | if (f2py_success) { | |||
| 32313 | /*pyobjfrom*/ | |||
| 32314 | /*end of pyobjfrom*/ | |||
| 32315 | CFUNCSMESS("Building return value.\n"); | |||
| 32316 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 32317 | /*closepyobjfrom*/ | |||
| 32318 | /*end of closepyobjfrom*/ | |||
| 32319 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 32320 | /*cleanupfrompyobj*/ | |||
| 32321 | /* End of cleaning variable nrhs */ | |||
| 32322 | } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/ | |||
| 32323 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 32324 | } /*if (f2py_success) of trans*/ | |||
| 32325 | /* End of cleaning variable trans */ | |||
| 32326 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 32327 | /* End of cleaning variable b */ | |||
| 32328 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 32329 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 32330 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 32331 | /* End of cleaning variable ipiv */ | |||
| 32332 | if((PyObject *)capi_du2_tmp!=du2_capi) { | |||
| 32333 | Py_XDECREF(capi_du2_tmp)_Py_XDECREF(((PyObject*)(capi_du2_tmp))); } | |||
| 32334 | } /*if (capi_du2_tmp == NULL) ... else of du2*/ | |||
| 32335 | /* End of cleaning variable du2 */ | |||
| 32336 | if((PyObject *)capi_du_tmp!=du_capi) { | |||
| 32337 | Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); } | |||
| 32338 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 32339 | /* End of cleaning variable du */ | |||
| 32340 | if((PyObject *)capi_dl_tmp!=dl_capi) { | |||
| 32341 | Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); } | |||
| 32342 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 32343 | /* End of cleaning variable dl */ | |||
| 32344 | /* End of cleaning variable ldb */ | |||
| 32345 | /* End of cleaning variable n */ | |||
| 32346 | /* End of cleaning variable info */ | |||
| 32347 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 32348 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 32349 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 32350 | /* End of cleaning variable d */ | |||
| 32351 | /*end of cleanupfrompyobj*/ | |||
| 32352 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 32353 | /*routdebugfailure*/ | |||
| 32354 | } else { | |||
| 32355 | /*routdebugleave*/ | |||
| 32356 | } | |||
| 32357 | CFUNCSMESS("Freeing memory.\n"); | |||
| 32358 | /*freemem*/ | |||
| 32359 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32360 | f2py_stop_clock(); | |||
| 32361 | #endif | |||
| 32362 | return capi_buildvalue; | |||
| 32363 | } | |||
| 32364 | /******************************* end of sgttrs *******************************/ | |||
| 32365 | ||||
| 32366 | /*********************************** dgttrs ***********************************/ | |||
| 32367 | static char doc_f2py_rout__flapack_dgttrs[] = "\ | |||
| 32368 | x,info = dgttrs(dl,d,du,du2,ipiv,b,[trans,overwrite_b])\n\nWrapper for ``dgttrs``.\ | |||
| 32369 | \n\nParameters\n----------\n" | |||
| 32370 | "dl : input rank-1 array('d') with bounds (n - 1)\n" | |||
| 32371 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 32372 | "du : input rank-1 array('d') with bounds (n - 1)\n" | |||
| 32373 | "du2 : input rank-1 array('d') with bounds (n - 2)\n" | |||
| 32374 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 32375 | "b : input rank-2 array('d') with bounds (ldb,nrhs)\n" | |||
| 32376 | "\nOther Parameters\n----------------\n" | |||
| 32377 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 32378 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 32379 | "\nReturns\n-------\n" | |||
| 32380 | "x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n" | |||
| 32381 | "info : int"; | |||
| 32382 | /* extern void F_FUNC(dgttrs,DGTTRS)(char*, F_INT*, F_INT*, double*, double*, double*, double*, F_INT*, double*, F_INT*, F_INT* ); */ | |||
| 32383 | static PyObject *f2py_rout__flapack_dgttrs(const PyObject *capi_self, | |||
| 32384 | PyObject *capi_args, | |||
| 32385 | PyObject *capi_keywds, | |||
| 32386 | void (*f2py_func)(char*, F_INTint*, F_INTint*, double*, double*, double*, double*, F_INTint*, double*, F_INTint*, F_INTint* )) { | |||
| 32387 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 32388 | volatile int f2py_success = 1; | |||
| 32389 | /*decl*/ | |||
| 32390 | ||||
| 32391 | string trans = NULL((void*)0); | |||
| 32392 | int slen(trans)capi_trans_len; | |||
| 32393 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 32394 | int n = 0; | |||
| 32395 | int nrhs = 0; | |||
| 32396 | double *dl = NULL((void*)0); | |||
| 32397 | npy_intp dl_Dims[1] = {-1}; | |||
| 32398 | const int dl_Rank = 1; | |||
| 32399 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 32400 | int capi_dl_intent = 0; | |||
| 32401 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 32402 | double *d = NULL((void*)0); | |||
| 32403 | npy_intp d_Dims[1] = {-1}; | |||
| 32404 | const int d_Rank = 1; | |||
| 32405 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 32406 | int capi_d_intent = 0; | |||
| 32407 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 32408 | double *du = NULL((void*)0); | |||
| 32409 | npy_intp du_Dims[1] = {-1}; | |||
| 32410 | const int du_Rank = 1; | |||
| 32411 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 32412 | int capi_du_intent = 0; | |||
| 32413 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 32414 | double *du2 = NULL((void*)0); | |||
| 32415 | npy_intp du2_Dims[1] = {-1}; | |||
| 32416 | const int du2_Rank = 1; | |||
| 32417 | PyArrayObject *capi_du2_tmp = NULL((void*)0); | |||
| 32418 | int capi_du2_intent = 0; | |||
| 32419 | PyObject *du2_capi = Py_None(&_Py_NoneStruct); | |||
| 32420 | int *ipiv = NULL((void*)0); | |||
| 32421 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 32422 | const int ipiv_Rank = 1; | |||
| 32423 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 32424 | int capi_ipiv_intent = 0; | |||
| 32425 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 32426 | double *b = NULL((void*)0); | |||
| 32427 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 32428 | const int b_Rank = 2; | |||
| 32429 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 32430 | int capi_b_intent = 0; | |||
| 32431 | int capi_overwrite_b = 0; | |||
| 32432 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 32433 | int ldb = 0; | |||
| 32434 | int info = 0; | |||
| 32435 | static char *capi_kwlist[] = {"dl","d","du","du2","ipiv","b","trans","overwrite_b",NULL((void*)0)}; | |||
| 32436 | ||||
| 32437 | /*routdebugenter*/ | |||
| 32438 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32439 | f2py_start_clock(); | |||
| 32440 | #endif | |||
| 32441 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 32442 | "OOOOOO|Oi:_flapack.dgttrs",\ | |||
| 32443 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&du2_capi,&ipiv_capi,&b_capi,&trans_capi,&capi_overwrite_b)) | |||
| 32444 | return NULL((void*)0); | |||
| 32445 | /*frompyobj*/ | |||
| 32446 | /* Processing variable d */ | |||
| 32447 | ; | |||
| 32448 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 32449 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 32450 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 32451 | if (!PyErr_Occurred()) | |||
| 32452 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.dgttrs to C/Fortran array" ); | |||
| 32453 | } else { | |||
| 32454 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 32455 | ||||
| 32456 | /* Processing variable info */ | |||
| 32457 | /* Processing variable n */ | |||
| 32458 | n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0])); | |||
| 32459 | /* Processing variable ldb */ | |||
| 32460 | ldb = max(1, n)((1 > n) ? (1) : (n)); | |||
| 32461 | /* Processing variable dl */ | |||
| 32462 | dl_Dims[0]=n - 1; | |||
| 32463 | capi_dl_intent |= F2PY_INTENT_IN1; | |||
| 32464 | capi_dl_tmp = array_from_pyobj(NPY_DOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 32465 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 32466 | if (!PyErr_Occurred()) | |||
| 32467 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.dgttrs to C/Fortran array" ); | |||
| 32468 | } else { | |||
| 32469 | dl = (double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 32470 | ||||
| 32471 | /* Processing variable du */ | |||
| 32472 | du_Dims[0]=n - 1; | |||
| 32473 | capi_du_intent |= F2PY_INTENT_IN1; | |||
| 32474 | capi_du_tmp = array_from_pyobj(NPY_DOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 32475 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 32476 | if (!PyErr_Occurred()) | |||
| 32477 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.dgttrs to C/Fortran array" ); | |||
| 32478 | } else { | |||
| 32479 | du = (double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 32480 | ||||
| 32481 | /* Processing variable du2 */ | |||
| 32482 | du2_Dims[0]=n - 2; | |||
| 32483 | capi_du2_intent |= F2PY_INTENT_IN1; | |||
| 32484 | capi_du2_tmp = array_from_pyobj(NPY_DOUBLE,du2_Dims,du2_Rank,capi_du2_intent,du2_capi); | |||
| 32485 | if (capi_du2_tmp == NULL((void*)0)) { | |||
| 32486 | if (!PyErr_Occurred()) | |||
| 32487 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `du2' of _flapack.dgttrs to C/Fortran array" ); | |||
| 32488 | } else { | |||
| 32489 | du2 = (double *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data)); | |||
| 32490 | ||||
| 32491 | /* Processing variable ipiv */ | |||
| 32492 | ipiv_Dims[0]=n; | |||
| 32493 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 32494 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 32495 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 32496 | if (!PyErr_Occurred()) | |||
| 32497 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.dgttrs to C/Fortran array" ); | |||
| 32498 | } else { | |||
| 32499 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 32500 | ||||
| 32501 | /* Processing variable b */ | |||
| 32502 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 32503 | b_Dims[0]=ldb; | |||
| 32504 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 32505 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 32506 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 32507 | if (!PyErr_Occurred()) | |||
| 32508 | PyErr_SetString(_flapack_error,"failed in converting 6th argument `b' of _flapack.dgttrs to C/Fortran array" ); | |||
| 32509 | } else { | |||
| 32510 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 32511 | ||||
| 32512 | /* Processing variable trans */ | |||
| 32513 | slen(trans)capi_trans_len = 1; | |||
| 32514 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.dgttrs to C string"); | |||
| 32515 | if (f2py_success) { | |||
| 32516 | CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","1st keyword trans","dgttrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgttrs:slen(trans)=%d trans=\"%s\"" , "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""1st keyword trans" , capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 32517 | /* Processing variable nrhs */ | |||
| 32518 | nrhs = max(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1])); | |||
| 32519 | /*end of frompyobj*/ | |||
| 32520 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32521 | f2py_start_call_clock(); | |||
| 32522 | #endif | |||
| 32523 | /*callfortranroutine*/ | |||
| 32524 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 32525 | (*f2py_func)(trans, &n, &nrhs, dl, d, du, du2, ipiv, b, &ldb, &info) ; | |||
| 32526 | /*(*f2py_func)(trans,&n,&nrhs,dl,d,du,du2,ipiv,b,&ldb,&info,slen(trans));*/ | |||
| 32527 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 32528 | if (PyErr_Occurred()) | |||
| 32529 | f2py_success = 0; | |||
| 32530 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32531 | f2py_stop_call_clock(); | |||
| 32532 | #endif | |||
| 32533 | /*end of callfortranroutine*/ | |||
| 32534 | if (f2py_success) { | |||
| 32535 | /*pyobjfrom*/ | |||
| 32536 | /*end of pyobjfrom*/ | |||
| 32537 | CFUNCSMESS("Building return value.\n"); | |||
| 32538 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 32539 | /*closepyobjfrom*/ | |||
| 32540 | /*end of closepyobjfrom*/ | |||
| 32541 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 32542 | /*cleanupfrompyobj*/ | |||
| 32543 | /* End of cleaning variable nrhs */ | |||
| 32544 | } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/ | |||
| 32545 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 32546 | } /*if (f2py_success) of trans*/ | |||
| 32547 | /* End of cleaning variable trans */ | |||
| 32548 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 32549 | /* End of cleaning variable b */ | |||
| 32550 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 32551 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 32552 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 32553 | /* End of cleaning variable ipiv */ | |||
| 32554 | if((PyObject *)capi_du2_tmp!=du2_capi) { | |||
| 32555 | Py_XDECREF(capi_du2_tmp)_Py_XDECREF(((PyObject*)(capi_du2_tmp))); } | |||
| 32556 | } /*if (capi_du2_tmp == NULL) ... else of du2*/ | |||
| 32557 | /* End of cleaning variable du2 */ | |||
| 32558 | if((PyObject *)capi_du_tmp!=du_capi) { | |||
| 32559 | Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); } | |||
| 32560 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 32561 | /* End of cleaning variable du */ | |||
| 32562 | if((PyObject *)capi_dl_tmp!=dl_capi) { | |||
| 32563 | Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); } | |||
| 32564 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 32565 | /* End of cleaning variable dl */ | |||
| 32566 | /* End of cleaning variable ldb */ | |||
| 32567 | /* End of cleaning variable n */ | |||
| 32568 | /* End of cleaning variable info */ | |||
| 32569 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 32570 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 32571 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 32572 | /* End of cleaning variable d */ | |||
| 32573 | /*end of cleanupfrompyobj*/ | |||
| 32574 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 32575 | /*routdebugfailure*/ | |||
| 32576 | } else { | |||
| 32577 | /*routdebugleave*/ | |||
| 32578 | } | |||
| 32579 | CFUNCSMESS("Freeing memory.\n"); | |||
| 32580 | /*freemem*/ | |||
| 32581 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32582 | f2py_stop_clock(); | |||
| 32583 | #endif | |||
| 32584 | return capi_buildvalue; | |||
| 32585 | } | |||
| 32586 | /******************************* end of dgttrs *******************************/ | |||
| 32587 | ||||
| 32588 | /*********************************** cgttrs ***********************************/ | |||
| 32589 | static char doc_f2py_rout__flapack_cgttrs[] = "\ | |||
| 32590 | x,info = cgttrs(dl,d,du,du2,ipiv,b,[trans,overwrite_b])\n\nWrapper for ``cgttrs``.\ | |||
| 32591 | \n\nParameters\n----------\n" | |||
| 32592 | "dl : input rank-1 array('F') with bounds (n - 1)\n" | |||
| 32593 | "d : input rank-1 array('F') with bounds (n)\n" | |||
| 32594 | "du : input rank-1 array('F') with bounds (n - 1)\n" | |||
| 32595 | "du2 : input rank-1 array('F') with bounds (n - 2)\n" | |||
| 32596 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 32597 | "b : input rank-2 array('F') with bounds (ldb,nrhs)\n" | |||
| 32598 | "\nOther Parameters\n----------------\n" | |||
| 32599 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 32600 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 32601 | "\nReturns\n-------\n" | |||
| 32602 | "x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n" | |||
| 32603 | "info : int"; | |||
| 32604 | /* extern void F_FUNC(cgttrs,CGTTRS)(char*, F_INT*, F_INT*, complex_float*, complex_float*, complex_float*, complex_float*, F_INT*, complex_float*, F_INT*, F_INT* ); */ | |||
| 32605 | static PyObject *f2py_rout__flapack_cgttrs(const PyObject *capi_self, | |||
| 32606 | PyObject *capi_args, | |||
| 32607 | PyObject *capi_keywds, | |||
| 32608 | void (*f2py_func)(char*, F_INTint*, F_INTint*, complex_float*, complex_float*, complex_float*, complex_float*, F_INTint*, complex_float*, F_INTint*, F_INTint* )) { | |||
| 32609 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 32610 | volatile int f2py_success = 1; | |||
| 32611 | /*decl*/ | |||
| 32612 | ||||
| 32613 | string trans = NULL((void*)0); | |||
| 32614 | int slen(trans)capi_trans_len; | |||
| 32615 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 32616 | int n = 0; | |||
| 32617 | int nrhs = 0; | |||
| 32618 | complex_float *dl = NULL((void*)0); | |||
| 32619 | npy_intp dl_Dims[1] = {-1}; | |||
| 32620 | const int dl_Rank = 1; | |||
| 32621 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 32622 | int capi_dl_intent = 0; | |||
| 32623 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 32624 | complex_float *d = NULL((void*)0); | |||
| 32625 | npy_intp d_Dims[1] = {-1}; | |||
| 32626 | const int d_Rank = 1; | |||
| 32627 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 32628 | int capi_d_intent = 0; | |||
| 32629 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 32630 | complex_float *du = NULL((void*)0); | |||
| 32631 | npy_intp du_Dims[1] = {-1}; | |||
| 32632 | const int du_Rank = 1; | |||
| 32633 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 32634 | int capi_du_intent = 0; | |||
| 32635 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 32636 | complex_float *du2 = NULL((void*)0); | |||
| 32637 | npy_intp du2_Dims[1] = {-1}; | |||
| 32638 | const int du2_Rank = 1; | |||
| 32639 | PyArrayObject *capi_du2_tmp = NULL((void*)0); | |||
| 32640 | int capi_du2_intent = 0; | |||
| 32641 | PyObject *du2_capi = Py_None(&_Py_NoneStruct); | |||
| 32642 | int *ipiv = NULL((void*)0); | |||
| 32643 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 32644 | const int ipiv_Rank = 1; | |||
| 32645 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 32646 | int capi_ipiv_intent = 0; | |||
| 32647 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 32648 | complex_float *b = NULL((void*)0); | |||
| 32649 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 32650 | const int b_Rank = 2; | |||
| 32651 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 32652 | int capi_b_intent = 0; | |||
| 32653 | int capi_overwrite_b = 0; | |||
| 32654 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 32655 | int ldb = 0; | |||
| 32656 | int info = 0; | |||
| 32657 | static char *capi_kwlist[] = {"dl","d","du","du2","ipiv","b","trans","overwrite_b",NULL((void*)0)}; | |||
| 32658 | ||||
| 32659 | /*routdebugenter*/ | |||
| 32660 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32661 | f2py_start_clock(); | |||
| 32662 | #endif | |||
| 32663 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 32664 | "OOOOOO|Oi:_flapack.cgttrs",\ | |||
| 32665 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&du2_capi,&ipiv_capi,&b_capi,&trans_capi,&capi_overwrite_b)) | |||
| 32666 | return NULL((void*)0); | |||
| 32667 | /*frompyobj*/ | |||
| 32668 | /* Processing variable d */ | |||
| 32669 | ; | |||
| 32670 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 32671 | capi_d_tmp = array_from_pyobj(NPY_CFLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 32672 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 32673 | if (!PyErr_Occurred()) | |||
| 32674 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.cgttrs to C/Fortran array" ); | |||
| 32675 | } else { | |||
| 32676 | d = (complex_float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 32677 | ||||
| 32678 | /* Processing variable info */ | |||
| 32679 | /* Processing variable n */ | |||
| 32680 | n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0])); | |||
| 32681 | /* Processing variable ldb */ | |||
| 32682 | ldb = max(1, n)((1 > n) ? (1) : (n)); | |||
| 32683 | /* Processing variable dl */ | |||
| 32684 | dl_Dims[0]=n - 1; | |||
| 32685 | capi_dl_intent |= F2PY_INTENT_IN1; | |||
| 32686 | capi_dl_tmp = array_from_pyobj(NPY_CFLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 32687 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 32688 | if (!PyErr_Occurred()) | |||
| 32689 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.cgttrs to C/Fortran array" ); | |||
| 32690 | } else { | |||
| 32691 | dl = (complex_float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 32692 | ||||
| 32693 | /* Processing variable du */ | |||
| 32694 | du_Dims[0]=n - 1; | |||
| 32695 | capi_du_intent |= F2PY_INTENT_IN1; | |||
| 32696 | capi_du_tmp = array_from_pyobj(NPY_CFLOAT,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 32697 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 32698 | if (!PyErr_Occurred()) | |||
| 32699 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.cgttrs to C/Fortran array" ); | |||
| 32700 | } else { | |||
| 32701 | du = (complex_float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 32702 | ||||
| 32703 | /* Processing variable du2 */ | |||
| 32704 | du2_Dims[0]=n - 2; | |||
| 32705 | capi_du2_intent |= F2PY_INTENT_IN1; | |||
| 32706 | capi_du2_tmp = array_from_pyobj(NPY_CFLOAT,du2_Dims,du2_Rank,capi_du2_intent,du2_capi); | |||
| 32707 | if (capi_du2_tmp == NULL((void*)0)) { | |||
| 32708 | if (!PyErr_Occurred()) | |||
| 32709 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `du2' of _flapack.cgttrs to C/Fortran array" ); | |||
| 32710 | } else { | |||
| 32711 | du2 = (complex_float *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data)); | |||
| 32712 | ||||
| 32713 | /* Processing variable ipiv */ | |||
| 32714 | ipiv_Dims[0]=n; | |||
| 32715 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 32716 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 32717 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 32718 | if (!PyErr_Occurred()) | |||
| 32719 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.cgttrs to C/Fortran array" ); | |||
| 32720 | } else { | |||
| 32721 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 32722 | ||||
| 32723 | /* Processing variable b */ | |||
| 32724 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 32725 | b_Dims[0]=ldb; | |||
| 32726 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 32727 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 32728 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 32729 | if (!PyErr_Occurred()) | |||
| 32730 | PyErr_SetString(_flapack_error,"failed in converting 6th argument `b' of _flapack.cgttrs to C/Fortran array" ); | |||
| 32731 | } else { | |||
| 32732 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 32733 | ||||
| 32734 | /* Processing variable trans */ | |||
| 32735 | slen(trans)capi_trans_len = 1; | |||
| 32736 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.cgttrs to C string"); | |||
| 32737 | if (f2py_success) { | |||
| 32738 | CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","1st keyword trans","cgttrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgttrs:slen(trans)=%d trans=\"%s\"" , "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""1st keyword trans" , capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 32739 | /* Processing variable nrhs */ | |||
| 32740 | nrhs = max(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1])); | |||
| 32741 | /*end of frompyobj*/ | |||
| 32742 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32743 | f2py_start_call_clock(); | |||
| 32744 | #endif | |||
| 32745 | /*callfortranroutine*/ | |||
| 32746 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 32747 | (*f2py_func)(trans, &n, &nrhs, dl, d, du, du2, ipiv, b, &ldb, &info) ; | |||
| 32748 | /*(*f2py_func)(trans,&n,&nrhs,dl,d,du,du2,ipiv,b,&ldb,&info,slen(trans));*/ | |||
| 32749 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 32750 | if (PyErr_Occurred()) | |||
| 32751 | f2py_success = 0; | |||
| 32752 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32753 | f2py_stop_call_clock(); | |||
| 32754 | #endif | |||
| 32755 | /*end of callfortranroutine*/ | |||
| 32756 | if (f2py_success) { | |||
| 32757 | /*pyobjfrom*/ | |||
| 32758 | /*end of pyobjfrom*/ | |||
| 32759 | CFUNCSMESS("Building return value.\n"); | |||
| 32760 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 32761 | /*closepyobjfrom*/ | |||
| 32762 | /*end of closepyobjfrom*/ | |||
| 32763 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 32764 | /*cleanupfrompyobj*/ | |||
| 32765 | /* End of cleaning variable nrhs */ | |||
| 32766 | } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/ | |||
| 32767 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 32768 | } /*if (f2py_success) of trans*/ | |||
| 32769 | /* End of cleaning variable trans */ | |||
| 32770 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 32771 | /* End of cleaning variable b */ | |||
| 32772 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 32773 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 32774 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 32775 | /* End of cleaning variable ipiv */ | |||
| 32776 | if((PyObject *)capi_du2_tmp!=du2_capi) { | |||
| 32777 | Py_XDECREF(capi_du2_tmp)_Py_XDECREF(((PyObject*)(capi_du2_tmp))); } | |||
| 32778 | } /*if (capi_du2_tmp == NULL) ... else of du2*/ | |||
| 32779 | /* End of cleaning variable du2 */ | |||
| 32780 | if((PyObject *)capi_du_tmp!=du_capi) { | |||
| 32781 | Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); } | |||
| 32782 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 32783 | /* End of cleaning variable du */ | |||
| 32784 | if((PyObject *)capi_dl_tmp!=dl_capi) { | |||
| 32785 | Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); } | |||
| 32786 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 32787 | /* End of cleaning variable dl */ | |||
| 32788 | /* End of cleaning variable ldb */ | |||
| 32789 | /* End of cleaning variable n */ | |||
| 32790 | /* End of cleaning variable info */ | |||
| 32791 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 32792 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 32793 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 32794 | /* End of cleaning variable d */ | |||
| 32795 | /*end of cleanupfrompyobj*/ | |||
| 32796 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 32797 | /*routdebugfailure*/ | |||
| 32798 | } else { | |||
| 32799 | /*routdebugleave*/ | |||
| 32800 | } | |||
| 32801 | CFUNCSMESS("Freeing memory.\n"); | |||
| 32802 | /*freemem*/ | |||
| 32803 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32804 | f2py_stop_clock(); | |||
| 32805 | #endif | |||
| 32806 | return capi_buildvalue; | |||
| 32807 | } | |||
| 32808 | /******************************* end of cgttrs *******************************/ | |||
| 32809 | ||||
| 32810 | /*********************************** zgttrs ***********************************/ | |||
| 32811 | static char doc_f2py_rout__flapack_zgttrs[] = "\ | |||
| 32812 | x,info = zgttrs(dl,d,du,du2,ipiv,b,[trans,overwrite_b])\n\nWrapper for ``zgttrs``.\ | |||
| 32813 | \n\nParameters\n----------\n" | |||
| 32814 | "dl : input rank-1 array('D') with bounds (n - 1)\n" | |||
| 32815 | "d : input rank-1 array('D') with bounds (n)\n" | |||
| 32816 | "du : input rank-1 array('D') with bounds (n - 1)\n" | |||
| 32817 | "du2 : input rank-1 array('D') with bounds (n - 2)\n" | |||
| 32818 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 32819 | "b : input rank-2 array('D') with bounds (ldb,nrhs)\n" | |||
| 32820 | "\nOther Parameters\n----------------\n" | |||
| 32821 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 32822 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 32823 | "\nReturns\n-------\n" | |||
| 32824 | "x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n" | |||
| 32825 | "info : int"; | |||
| 32826 | /* extern void F_FUNC(zgttrs,ZGTTRS)(char*, F_INT*, F_INT*, complex_double*, complex_double*, complex_double*, complex_double*, F_INT*, complex_double*, F_INT*, F_INT* ); */ | |||
| 32827 | static PyObject *f2py_rout__flapack_zgttrs(const PyObject *capi_self, | |||
| 32828 | PyObject *capi_args, | |||
| 32829 | PyObject *capi_keywds, | |||
| 32830 | void (*f2py_func)(char*, F_INTint*, F_INTint*, complex_double*, complex_double*, complex_double*, complex_double*, F_INTint*, complex_double*, F_INTint*, F_INTint* )) { | |||
| 32831 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 32832 | volatile int f2py_success = 1; | |||
| 32833 | /*decl*/ | |||
| 32834 | ||||
| 32835 | string trans = NULL((void*)0); | |||
| 32836 | int slen(trans)capi_trans_len; | |||
| 32837 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 32838 | int n = 0; | |||
| 32839 | int nrhs = 0; | |||
| 32840 | complex_double *dl = NULL((void*)0); | |||
| 32841 | npy_intp dl_Dims[1] = {-1}; | |||
| 32842 | const int dl_Rank = 1; | |||
| 32843 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 32844 | int capi_dl_intent = 0; | |||
| 32845 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 32846 | complex_double *d = NULL((void*)0); | |||
| 32847 | npy_intp d_Dims[1] = {-1}; | |||
| 32848 | const int d_Rank = 1; | |||
| 32849 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 32850 | int capi_d_intent = 0; | |||
| 32851 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 32852 | complex_double *du = NULL((void*)0); | |||
| 32853 | npy_intp du_Dims[1] = {-1}; | |||
| 32854 | const int du_Rank = 1; | |||
| 32855 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 32856 | int capi_du_intent = 0; | |||
| 32857 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 32858 | complex_double *du2 = NULL((void*)0); | |||
| 32859 | npy_intp du2_Dims[1] = {-1}; | |||
| 32860 | const int du2_Rank = 1; | |||
| 32861 | PyArrayObject *capi_du2_tmp = NULL((void*)0); | |||
| 32862 | int capi_du2_intent = 0; | |||
| 32863 | PyObject *du2_capi = Py_None(&_Py_NoneStruct); | |||
| 32864 | int *ipiv = NULL((void*)0); | |||
| 32865 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 32866 | const int ipiv_Rank = 1; | |||
| 32867 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 32868 | int capi_ipiv_intent = 0; | |||
| 32869 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 32870 | complex_double *b = NULL((void*)0); | |||
| 32871 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 32872 | const int b_Rank = 2; | |||
| 32873 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 32874 | int capi_b_intent = 0; | |||
| 32875 | int capi_overwrite_b = 0; | |||
| 32876 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 32877 | int ldb = 0; | |||
| 32878 | int info = 0; | |||
| 32879 | static char *capi_kwlist[] = {"dl","d","du","du2","ipiv","b","trans","overwrite_b",NULL((void*)0)}; | |||
| 32880 | ||||
| 32881 | /*routdebugenter*/ | |||
| 32882 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32883 | f2py_start_clock(); | |||
| 32884 | #endif | |||
| 32885 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 32886 | "OOOOOO|Oi:_flapack.zgttrs",\ | |||
| 32887 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&du2_capi,&ipiv_capi,&b_capi,&trans_capi,&capi_overwrite_b)) | |||
| 32888 | return NULL((void*)0); | |||
| 32889 | /*frompyobj*/ | |||
| 32890 | /* Processing variable d */ | |||
| 32891 | ; | |||
| 32892 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 32893 | capi_d_tmp = array_from_pyobj(NPY_CDOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 32894 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 32895 | if (!PyErr_Occurred()) | |||
| 32896 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.zgttrs to C/Fortran array" ); | |||
| 32897 | } else { | |||
| 32898 | d = (complex_double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 32899 | ||||
| 32900 | /* Processing variable info */ | |||
| 32901 | /* Processing variable n */ | |||
| 32902 | n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0])); | |||
| 32903 | /* Processing variable ldb */ | |||
| 32904 | ldb = max(1, n)((1 > n) ? (1) : (n)); | |||
| 32905 | /* Processing variable dl */ | |||
| 32906 | dl_Dims[0]=n - 1; | |||
| 32907 | capi_dl_intent |= F2PY_INTENT_IN1; | |||
| 32908 | capi_dl_tmp = array_from_pyobj(NPY_CDOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 32909 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 32910 | if (!PyErr_Occurred()) | |||
| 32911 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.zgttrs to C/Fortran array" ); | |||
| 32912 | } else { | |||
| 32913 | dl = (complex_double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 32914 | ||||
| 32915 | /* Processing variable du */ | |||
| 32916 | du_Dims[0]=n - 1; | |||
| 32917 | capi_du_intent |= F2PY_INTENT_IN1; | |||
| 32918 | capi_du_tmp = array_from_pyobj(NPY_CDOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 32919 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 32920 | if (!PyErr_Occurred()) | |||
| 32921 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.zgttrs to C/Fortran array" ); | |||
| 32922 | } else { | |||
| 32923 | du = (complex_double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 32924 | ||||
| 32925 | /* Processing variable du2 */ | |||
| 32926 | du2_Dims[0]=n - 2; | |||
| 32927 | capi_du2_intent |= F2PY_INTENT_IN1; | |||
| 32928 | capi_du2_tmp = array_from_pyobj(NPY_CDOUBLE,du2_Dims,du2_Rank,capi_du2_intent,du2_capi); | |||
| 32929 | if (capi_du2_tmp == NULL((void*)0)) { | |||
| 32930 | if (!PyErr_Occurred()) | |||
| 32931 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `du2' of _flapack.zgttrs to C/Fortran array" ); | |||
| 32932 | } else { | |||
| 32933 | du2 = (complex_double *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data)); | |||
| 32934 | ||||
| 32935 | /* Processing variable ipiv */ | |||
| 32936 | ipiv_Dims[0]=n; | |||
| 32937 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 32938 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 32939 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 32940 | if (!PyErr_Occurred()) | |||
| 32941 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.zgttrs to C/Fortran array" ); | |||
| 32942 | } else { | |||
| 32943 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 32944 | ||||
| 32945 | /* Processing variable b */ | |||
| 32946 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 32947 | b_Dims[0]=ldb; | |||
| 32948 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 32949 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 32950 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 32951 | if (!PyErr_Occurred()) | |||
| 32952 | PyErr_SetString(_flapack_error,"failed in converting 6th argument `b' of _flapack.zgttrs to C/Fortran array" ); | |||
| 32953 | } else { | |||
| 32954 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 32955 | ||||
| 32956 | /* Processing variable trans */ | |||
| 32957 | slen(trans)capi_trans_len = 1; | |||
| 32958 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.zgttrs to C string"); | |||
| 32959 | if (f2py_success) { | |||
| 32960 | CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","1st keyword trans","zgttrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgttrs:slen(trans)=%d trans=\"%s\"" , "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""1st keyword trans" , capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 32961 | /* Processing variable nrhs */ | |||
| 32962 | nrhs = max(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1])); | |||
| 32963 | /*end of frompyobj*/ | |||
| 32964 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32965 | f2py_start_call_clock(); | |||
| 32966 | #endif | |||
| 32967 | /*callfortranroutine*/ | |||
| 32968 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 32969 | (*f2py_func)(trans, &n, &nrhs, dl, d, du, du2, ipiv, b, &ldb, &info) ; | |||
| 32970 | /*(*f2py_func)(trans,&n,&nrhs,dl,d,du,du2,ipiv,b,&ldb,&info,slen(trans));*/ | |||
| 32971 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 32972 | if (PyErr_Occurred()) | |||
| 32973 | f2py_success = 0; | |||
| 32974 | #ifdef F2PY_REPORT_ATEXIT | |||
| 32975 | f2py_stop_call_clock(); | |||
| 32976 | #endif | |||
| 32977 | /*end of callfortranroutine*/ | |||
| 32978 | if (f2py_success) { | |||
| 32979 | /*pyobjfrom*/ | |||
| 32980 | /*end of pyobjfrom*/ | |||
| 32981 | CFUNCSMESS("Building return value.\n"); | |||
| 32982 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 32983 | /*closepyobjfrom*/ | |||
| 32984 | /*end of closepyobjfrom*/ | |||
| 32985 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 32986 | /*cleanupfrompyobj*/ | |||
| 32987 | /* End of cleaning variable nrhs */ | |||
| 32988 | } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/ | |||
| 32989 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 32990 | } /*if (f2py_success) of trans*/ | |||
| 32991 | /* End of cleaning variable trans */ | |||
| 32992 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 32993 | /* End of cleaning variable b */ | |||
| 32994 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 32995 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 32996 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 32997 | /* End of cleaning variable ipiv */ | |||
| 32998 | if((PyObject *)capi_du2_tmp!=du2_capi) { | |||
| 32999 | Py_XDECREF(capi_du2_tmp)_Py_XDECREF(((PyObject*)(capi_du2_tmp))); } | |||
| 33000 | } /*if (capi_du2_tmp == NULL) ... else of du2*/ | |||
| 33001 | /* End of cleaning variable du2 */ | |||
| 33002 | if((PyObject *)capi_du_tmp!=du_capi) { | |||
| 33003 | Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); } | |||
| 33004 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 33005 | /* End of cleaning variable du */ | |||
| 33006 | if((PyObject *)capi_dl_tmp!=dl_capi) { | |||
| 33007 | Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); } | |||
| 33008 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 33009 | /* End of cleaning variable dl */ | |||
| 33010 | /* End of cleaning variable ldb */ | |||
| 33011 | /* End of cleaning variable n */ | |||
| 33012 | /* End of cleaning variable info */ | |||
| 33013 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 33014 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 33015 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 33016 | /* End of cleaning variable d */ | |||
| 33017 | /*end of cleanupfrompyobj*/ | |||
| 33018 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 33019 | /*routdebugfailure*/ | |||
| 33020 | } else { | |||
| 33021 | /*routdebugleave*/ | |||
| 33022 | } | |||
| 33023 | CFUNCSMESS("Freeing memory.\n"); | |||
| 33024 | /*freemem*/ | |||
| 33025 | #ifdef F2PY_REPORT_ATEXIT | |||
| 33026 | f2py_stop_clock(); | |||
| 33027 | #endif | |||
| 33028 | return capi_buildvalue; | |||
| 33029 | } | |||
| 33030 | /******************************* end of zgttrs *******************************/ | |||
| 33031 | ||||
| 33032 | /*********************************** sgtsvx ***********************************/ | |||
| 33033 | static char doc_f2py_rout__flapack_sgtsvx[] = "\ | |||
| 33034 | dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = sgtsvx(dl,d,du,b,[fact,trans,dlf,df,duf,du2,ipiv])\n\nWrapper for ``sgtsvx``.\ | |||
| 33035 | \n\nParameters\n----------\n" | |||
| 33036 | "dl : input rank-1 array('f') with bounds (MAX(0, n-1))\n" | |||
| 33037 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 33038 | "du : input rank-1 array('f') with bounds (MAX(0, n-1))\n" | |||
| 33039 | "b : input rank-2 array('f') with bounds (ldb,nrhs)\n" | |||
| 33040 | "\nOther Parameters\n----------------\n" | |||
| 33041 | "fact : input string(len=1), optional\n Default: 'N'\n" | |||
| 33042 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 33043 | "dlf : input rank-1 array('f') with bounds (MAX(0,n-1))\n" | |||
| 33044 | "df : input rank-1 array('f') with bounds (n)\n" | |||
| 33045 | "duf : input rank-1 array('f') with bounds (MAX(0,n-1))\n" | |||
| 33046 | "du2 : input rank-1 array('f') with bounds (MAX(0,n-2))\n" | |||
| 33047 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 33048 | "\nReturns\n-------\n" | |||
| 33049 | "dlf : rank-1 array('f') with bounds (MAX(0,n-1))\n" | |||
| 33050 | "df : rank-1 array('f') with bounds (n)\n" | |||
| 33051 | "duf : rank-1 array('f') with bounds (MAX(0,n-1))\n" | |||
| 33052 | "du2 : rank-1 array('f') with bounds (MAX(0,n-2))\n" | |||
| 33053 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 33054 | "x : rank-2 array('f') with bounds (ldx,nrhs)\n" | |||
| 33055 | "rcond : float\n" | |||
| 33056 | "ferr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 33057 | "berr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 33058 | "info : int"; | |||
| 33059 | /* extern void F_FUNC(sgtsvx,SGTSVX)(char*,char*,F_INT*,F_INT*,float*,float*,float*,float*,float*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */ | |||
| 33060 | static PyObject *f2py_rout__flapack_sgtsvx(const PyObject *capi_self, | |||
| 33061 | PyObject *capi_args, | |||
| 33062 | PyObject *capi_keywds, | |||
| 33063 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,float*,float*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 33064 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 33065 | volatile int f2py_success = 1; | |||
| 33066 | /*decl*/ | |||
| 33067 | ||||
| 33068 | string fact = NULL((void*)0); | |||
| 33069 | int slen(fact)capi_fact_len; | |||
| 33070 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 33071 | string trans = NULL((void*)0); | |||
| 33072 | int slen(trans)capi_trans_len; | |||
| 33073 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 33074 | int n = 0; | |||
| 33075 | int nrhs = 0; | |||
| 33076 | float *dl = NULL((void*)0); | |||
| 33077 | npy_intp dl_Dims[1] = {-1}; | |||
| 33078 | const int dl_Rank = 1; | |||
| 33079 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 33080 | int capi_dl_intent = 0; | |||
| 33081 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 33082 | float *d = NULL((void*)0); | |||
| 33083 | npy_intp d_Dims[1] = {-1}; | |||
| 33084 | const int d_Rank = 1; | |||
| 33085 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 33086 | int capi_d_intent = 0; | |||
| 33087 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 33088 | float *du = NULL((void*)0); | |||
| 33089 | npy_intp du_Dims[1] = {-1}; | |||
| 33090 | const int du_Rank = 1; | |||
| 33091 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 33092 | int capi_du_intent = 0; | |||
| 33093 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 33094 | float *dlf = NULL((void*)0); | |||
| 33095 | npy_intp dlf_Dims[1] = {-1}; | |||
| 33096 | const int dlf_Rank = 1; | |||
| 33097 | PyArrayObject *capi_dlf_tmp = NULL((void*)0); | |||
| 33098 | int capi_dlf_intent = 0; | |||
| 33099 | PyObject *dlf_capi = Py_None(&_Py_NoneStruct); | |||
| 33100 | float *df = NULL((void*)0); | |||
| 33101 | npy_intp df_Dims[1] = {-1}; | |||
| 33102 | const int df_Rank = 1; | |||
| 33103 | PyArrayObject *capi_df_tmp = NULL((void*)0); | |||
| 33104 | int capi_df_intent = 0; | |||
| 33105 | PyObject *df_capi = Py_None(&_Py_NoneStruct); | |||
| 33106 | float *duf = NULL((void*)0); | |||
| 33107 | npy_intp duf_Dims[1] = {-1}; | |||
| 33108 | const int duf_Rank = 1; | |||
| 33109 | PyArrayObject *capi_duf_tmp = NULL((void*)0); | |||
| 33110 | int capi_duf_intent = 0; | |||
| 33111 | PyObject *duf_capi = Py_None(&_Py_NoneStruct); | |||
| 33112 | float *du2 = NULL((void*)0); | |||
| 33113 | npy_intp du2_Dims[1] = {-1}; | |||
| 33114 | const int du2_Rank = 1; | |||
| 33115 | PyArrayObject *capi_du2_tmp = NULL((void*)0); | |||
| 33116 | int capi_du2_intent = 0; | |||
| 33117 | PyObject *du2_capi = Py_None(&_Py_NoneStruct); | |||
| 33118 | int *ipiv = NULL((void*)0); | |||
| 33119 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 33120 | const int ipiv_Rank = 1; | |||
| 33121 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 33122 | int capi_ipiv_intent = 0; | |||
| 33123 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 33124 | float *b = NULL((void*)0); | |||
| 33125 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 33126 | const int b_Rank = 2; | |||
| 33127 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 33128 | int capi_b_intent = 0; | |||
| 33129 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 33130 | int ldb = 0; | |||
| 33131 | float *x = NULL((void*)0); | |||
| 33132 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 33133 | const int x_Rank = 2; | |||
| 33134 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 33135 | int capi_x_intent = 0; | |||
| 33136 | int ldx = 0; | |||
| 33137 | float rcond = 0; | |||
| 33138 | float *ferr = NULL((void*)0); | |||
| 33139 | npy_intp ferr_Dims[1] = {-1}; | |||
| 33140 | const int ferr_Rank = 1; | |||
| 33141 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 33142 | int capi_ferr_intent = 0; | |||
| 33143 | float *berr = NULL((void*)0); | |||
| 33144 | npy_intp berr_Dims[1] = {-1}; | |||
| 33145 | const int berr_Rank = 1; | |||
| 33146 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 33147 | int capi_berr_intent = 0; | |||
| 33148 | float *work = NULL((void*)0); | |||
| 33149 | npy_intp work_Dims[1] = {-1}; | |||
| 33150 | const int work_Rank = 1; | |||
| 33151 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 33152 | int capi_work_intent = 0; | |||
| 33153 | int *iwork = NULL((void*)0); | |||
| 33154 | npy_intp iwork_Dims[1] = {-1}; | |||
| 33155 | const int iwork_Rank = 1; | |||
| 33156 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 33157 | int capi_iwork_intent = 0; | |||
| 33158 | int info = 0; | |||
| 33159 | static char *capi_kwlist[] = {"dl","d","du","b","fact","trans","dlf","df","duf","du2","ipiv",NULL((void*)0)}; | |||
| 33160 | ||||
| 33161 | /*routdebugenter*/ | |||
| 33162 | #ifdef F2PY_REPORT_ATEXIT | |||
| 33163 | f2py_start_clock(); | |||
| 33164 | #endif | |||
| 33165 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 33166 | "OOOO|OOOOOOO:_flapack.sgtsvx",\ | |||
| 33167 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&fact_capi,&trans_capi,&dlf_capi,&df_capi,&duf_capi,&du2_capi,&ipiv_capi)) | |||
| 33168 | return NULL((void*)0); | |||
| 33169 | /*frompyobj*/ | |||
| 33170 | /* Processing variable d */ | |||
| 33171 | ; | |||
| 33172 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 33173 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 33174 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 33175 | if (!PyErr_Occurred()) | |||
| 33176 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33177 | } else { | |||
| 33178 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 33179 | ||||
| 33180 | /* Processing variable b */ | |||
| 33181 | ; | |||
| 33182 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 33183 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 33184 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 33185 | if (!PyErr_Occurred()) | |||
| 33186 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33187 | } else { | |||
| 33188 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 33189 | ||||
| 33190 | /* Processing variable rcond */ | |||
| 33191 | /* Processing variable info */ | |||
| 33192 | /* Processing variable n */ | |||
| 33193 | n = len(d)d_Dims[0]; | |||
| 33194 | /* Processing variable nrhs */ | |||
| 33195 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 33196 | /* Processing variable dl */ | |||
| 33197 | dl_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 33198 | capi_dl_intent |= F2PY_INTENT_IN1; | |||
| 33199 | capi_dl_tmp = array_from_pyobj(NPY_FLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 33200 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 33201 | if (!PyErr_Occurred()) | |||
| 33202 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33203 | } else { | |||
| 33204 | dl = (float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 33205 | ||||
| 33206 | /* Processing variable du */ | |||
| 33207 | du_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 33208 | capi_du_intent |= F2PY_INTENT_IN1; | |||
| 33209 | capi_du_tmp = array_from_pyobj(NPY_FLOAT,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 33210 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 33211 | if (!PyErr_Occurred()) | |||
| 33212 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33213 | } else { | |||
| 33214 | du = (float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 33215 | ||||
| 33216 | /* Processing variable dlf */ | |||
| 33217 | dlf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 33218 | capi_dlf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 33219 | capi_dlf_tmp = array_from_pyobj(NPY_FLOAT,dlf_Dims,dlf_Rank,capi_dlf_intent,dlf_capi); | |||
| 33220 | if (capi_dlf_tmp == NULL((void*)0)) { | |||
| 33221 | if (!PyErr_Occurred()) | |||
| 33222 | PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `dlf' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33223 | } else { | |||
| 33224 | dlf = (float *)(PyArray_DATA(capi_dlf_tmp)((void *)((PyArrayObject_fields *)(capi_dlf_tmp))->data)); | |||
| 33225 | ||||
| 33226 | /* Processing variable df */ | |||
| 33227 | df_Dims[0]=n; | |||
| 33228 | capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 33229 | capi_df_tmp = array_from_pyobj(NPY_FLOAT,df_Dims,df_Rank,capi_df_intent,df_capi); | |||
| 33230 | if (capi_df_tmp == NULL((void*)0)) { | |||
| 33231 | if (!PyErr_Occurred()) | |||
| 33232 | PyErr_SetString(_flapack_error,"failed in converting 4th keyword `df' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33233 | } else { | |||
| 33234 | df = (float *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data)); | |||
| 33235 | ||||
| 33236 | /* Processing variable duf */ | |||
| 33237 | duf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 33238 | capi_duf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 33239 | capi_duf_tmp = array_from_pyobj(NPY_FLOAT,duf_Dims,duf_Rank,capi_duf_intent,duf_capi); | |||
| 33240 | if (capi_duf_tmp == NULL((void*)0)) { | |||
| 33241 | if (!PyErr_Occurred()) | |||
| 33242 | PyErr_SetString(_flapack_error,"failed in converting 5th keyword `duf' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33243 | } else { | |||
| 33244 | duf = (float *)(PyArray_DATA(capi_duf_tmp)((void *)((PyArrayObject_fields *)(capi_duf_tmp))->data)); | |||
| 33245 | ||||
| 33246 | /* Processing variable du2 */ | |||
| 33247 | du2_Dims[0]=MAX(0,n-2)((0 > n-2) ? (0) : (n-2)); | |||
| 33248 | capi_du2_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 33249 | capi_du2_tmp = array_from_pyobj(NPY_FLOAT,du2_Dims,du2_Rank,capi_du2_intent,du2_capi); | |||
| 33250 | if (capi_du2_tmp == NULL((void*)0)) { | |||
| 33251 | if (!PyErr_Occurred()) | |||
| 33252 | PyErr_SetString(_flapack_error,"failed in converting 6th keyword `du2' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33253 | } else { | |||
| 33254 | du2 = (float *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data)); | |||
| 33255 | ||||
| 33256 | /* Processing variable ipiv */ | |||
| 33257 | ipiv_Dims[0]=n; | |||
| 33258 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 33259 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 33260 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 33261 | if (!PyErr_Occurred()) | |||
| 33262 | PyErr_SetString(_flapack_error,"failed in converting 7th keyword `ipiv' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33263 | } else { | |||
| 33264 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 33265 | ||||
| 33266 | /* Processing variable ldb */ | |||
| 33267 | ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 33268 | CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","sgtsvx:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgtsvx:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb" , ldb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 33269 | /* Processing variable ldx */ | |||
| 33270 | ldx = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 33271 | /* Processing variable ferr */ | |||
| 33272 | ferr_Dims[0]=nrhs; | |||
| 33273 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 33274 | capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 33275 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 33276 | if (!PyErr_Occurred()) | |||
| 33277 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33278 | } else { | |||
| 33279 | ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 33280 | ||||
| 33281 | /* Processing variable berr */ | |||
| 33282 | berr_Dims[0]=nrhs; | |||
| 33283 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 33284 | capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 33285 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 33286 | if (!PyErr_Occurred()) | |||
| 33287 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33288 | } else { | |||
| 33289 | berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 33290 | ||||
| 33291 | /* Processing variable work */ | |||
| 33292 | work_Dims[0]=3 * n; | |||
| 33293 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 33294 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 33295 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 33296 | if (!PyErr_Occurred()) | |||
| 33297 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33298 | } else { | |||
| 33299 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 33300 | ||||
| 33301 | /* Processing variable iwork */ | |||
| 33302 | iwork_Dims[0]=n; | |||
| 33303 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 33304 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 33305 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 33306 | if (!PyErr_Occurred()) | |||
| 33307 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33308 | } else { | |||
| 33309 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 33310 | ||||
| 33311 | /* Processing variable fact */ | |||
| 33312 | slen(fact)capi_fact_len = 1; | |||
| 33313 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.sgtsvx to C string"); | |||
| 33314 | if (f2py_success) { | |||
| 33315 | CHECKSTRING(*fact=='F'||*fact=='N',"*fact=='F'||*fact=='N'","1st keyword fact","sgtsvx:slen(fact)=%d fact=\"%s\"",fact)if (!(*fact=='F'||*fact=='N')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgtsvx:slen(fact)=%d fact=\"%s\"", "(""*fact=='F'||*fact=='N'" ") failed for ""1st keyword fact", capi_fact_len, fact); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 33316 | /* Processing variable trans */ | |||
| 33317 | slen(trans)capi_trans_len = 1; | |||
| 33318 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.sgtsvx to C string"); | |||
| 33319 | if (f2py_success) { | |||
| 33320 | CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T',"*trans=='N'||*trans=='C'||*trans=='T'","2nd keyword trans","sgtsvx:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C'||*trans=='T')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgtsvx:slen(trans)=%d trans=\"%s\"" , "(""*trans=='N'||*trans=='C'||*trans=='T'"") failed for ""2nd keyword trans" , capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 33321 | /* Processing variable x */ | |||
| 33322 | x_Dims[0]=ldx,x_Dims[1]=nrhs; | |||
| 33323 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 33324 | capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 33325 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 33326 | if (!PyErr_Occurred()) | |||
| 33327 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.sgtsvx to C/Fortran array" ); | |||
| 33328 | } else { | |||
| 33329 | x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 33330 | ||||
| 33331 | /*end of frompyobj*/ | |||
| 33332 | #ifdef F2PY_REPORT_ATEXIT | |||
| 33333 | f2py_start_call_clock(); | |||
| 33334 | #endif | |||
| 33335 | /*callfortranroutine*/ | |||
| 33336 | (*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info); ; | |||
| 33337 | /*(*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info,slen(fact),slen(trans));*/ | |||
| 33338 | if (PyErr_Occurred()) | |||
| 33339 | f2py_success = 0; | |||
| 33340 | #ifdef F2PY_REPORT_ATEXIT | |||
| 33341 | f2py_stop_call_clock(); | |||
| 33342 | #endif | |||
| 33343 | /*end of callfortranroutine*/ | |||
| 33344 | if (f2py_success) { | |||
| 33345 | /*pyobjfrom*/ | |||
| 33346 | /*end of pyobjfrom*/ | |||
| 33347 | CFUNCSMESS("Building return value.\n"); | |||
| 33348 | capi_buildvalue = Py_BuildValue("NNNNNNfNNi",capi_dlf_tmp,capi_df_tmp,capi_duf_tmp,capi_du2_tmp,capi_ipiv_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 33349 | /*closepyobjfrom*/ | |||
| 33350 | /*end of closepyobjfrom*/ | |||
| 33351 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 33352 | /*cleanupfrompyobj*/ | |||
| 33353 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 33354 | /* End of cleaning variable x */ | |||
| 33355 | } /*CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T')*/ | |||
| 33356 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 33357 | } /*if (f2py_success) of trans*/ | |||
| 33358 | /* End of cleaning variable trans */ | |||
| 33359 | } /*CHECKSTRING(*fact=='F'||*fact=='N')*/ | |||
| 33360 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 33361 | } /*if (f2py_success) of fact*/ | |||
| 33362 | /* End of cleaning variable fact */ | |||
| 33363 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 33364 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 33365 | /* End of cleaning variable iwork */ | |||
| 33366 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 33367 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 33368 | /* End of cleaning variable work */ | |||
| 33369 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 33370 | /* End of cleaning variable berr */ | |||
| 33371 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 33372 | /* End of cleaning variable ferr */ | |||
| 33373 | /* End of cleaning variable ldx */ | |||
| 33374 | } /*CHECKSCALAR(ldb >= n)*/ | |||
| 33375 | /* End of cleaning variable ldb */ | |||
| 33376 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 33377 | /* End of cleaning variable ipiv */ | |||
| 33378 | } /*if (capi_du2_tmp == NULL) ... else of du2*/ | |||
| 33379 | /* End of cleaning variable du2 */ | |||
| 33380 | } /*if (capi_duf_tmp == NULL) ... else of duf*/ | |||
| 33381 | /* End of cleaning variable duf */ | |||
| 33382 | } /*if (capi_df_tmp == NULL) ... else of df*/ | |||
| 33383 | /* End of cleaning variable df */ | |||
| 33384 | } /*if (capi_dlf_tmp == NULL) ... else of dlf*/ | |||
| 33385 | /* End of cleaning variable dlf */ | |||
| 33386 | if((PyObject *)capi_du_tmp!=du_capi) { | |||
| 33387 | Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); } | |||
| 33388 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 33389 | /* End of cleaning variable du */ | |||
| 33390 | if((PyObject *)capi_dl_tmp!=dl_capi) { | |||
| 33391 | Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); } | |||
| 33392 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 33393 | /* End of cleaning variable dl */ | |||
| 33394 | /* End of cleaning variable nrhs */ | |||
| 33395 | /* End of cleaning variable n */ | |||
| 33396 | /* End of cleaning variable info */ | |||
| 33397 | /* End of cleaning variable rcond */ | |||
| 33398 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 33399 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 33400 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 33401 | /* End of cleaning variable b */ | |||
| 33402 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 33403 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 33404 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 33405 | /* End of cleaning variable d */ | |||
| 33406 | /*end of cleanupfrompyobj*/ | |||
| 33407 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 33408 | /*routdebugfailure*/ | |||
| 33409 | } else { | |||
| 33410 | /*routdebugleave*/ | |||
| 33411 | } | |||
| 33412 | CFUNCSMESS("Freeing memory.\n"); | |||
| 33413 | /*freemem*/ | |||
| 33414 | #ifdef F2PY_REPORT_ATEXIT | |||
| 33415 | f2py_stop_clock(); | |||
| 33416 | #endif | |||
| 33417 | return capi_buildvalue; | |||
| 33418 | } | |||
| 33419 | /******************************* end of sgtsvx *******************************/ | |||
| 33420 | ||||
| 33421 | /*********************************** dgtsvx ***********************************/ | |||
| 33422 | static char doc_f2py_rout__flapack_dgtsvx[] = "\ | |||
| 33423 | dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = dgtsvx(dl,d,du,b,[fact,trans,dlf,df,duf,du2,ipiv])\n\nWrapper for ``dgtsvx``.\ | |||
| 33424 | \n\nParameters\n----------\n" | |||
| 33425 | "dl : input rank-1 array('d') with bounds (MAX(0, n-1))\n" | |||
| 33426 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 33427 | "du : input rank-1 array('d') with bounds (MAX(0, n-1))\n" | |||
| 33428 | "b : input rank-2 array('d') with bounds (ldb,nrhs)\n" | |||
| 33429 | "\nOther Parameters\n----------------\n" | |||
| 33430 | "fact : input string(len=1), optional\n Default: 'N'\n" | |||
| 33431 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 33432 | "dlf : input rank-1 array('d') with bounds (MAX(0,n-1))\n" | |||
| 33433 | "df : input rank-1 array('d') with bounds (n)\n" | |||
| 33434 | "duf : input rank-1 array('d') with bounds (MAX(0,n-1))\n" | |||
| 33435 | "du2 : input rank-1 array('d') with bounds (MAX(0,n-2))\n" | |||
| 33436 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 33437 | "\nReturns\n-------\n" | |||
| 33438 | "dlf : rank-1 array('d') with bounds (MAX(0,n-1))\n" | |||
| 33439 | "df : rank-1 array('d') with bounds (n)\n" | |||
| 33440 | "duf : rank-1 array('d') with bounds (MAX(0,n-1))\n" | |||
| 33441 | "du2 : rank-1 array('d') with bounds (MAX(0,n-2))\n" | |||
| 33442 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 33443 | "x : rank-2 array('d') with bounds (ldx,nrhs)\n" | |||
| 33444 | "rcond : float\n" | |||
| 33445 | "ferr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 33446 | "berr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 33447 | "info : int"; | |||
| 33448 | /* extern void F_FUNC(dgtsvx,DGTSVX)(char*,char*,F_INT*,F_INT*,double*,double*,double*,double*,double*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */ | |||
| 33449 | static PyObject *f2py_rout__flapack_dgtsvx(const PyObject *capi_self, | |||
| 33450 | PyObject *capi_args, | |||
| 33451 | PyObject *capi_keywds, | |||
| 33452 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,double*,double*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 33453 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 33454 | volatile int f2py_success = 1; | |||
| 33455 | /*decl*/ | |||
| 33456 | ||||
| 33457 | string fact = NULL((void*)0); | |||
| 33458 | int slen(fact)capi_fact_len; | |||
| 33459 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 33460 | string trans = NULL((void*)0); | |||
| 33461 | int slen(trans)capi_trans_len; | |||
| 33462 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 33463 | int n = 0; | |||
| 33464 | int nrhs = 0; | |||
| 33465 | double *dl = NULL((void*)0); | |||
| 33466 | npy_intp dl_Dims[1] = {-1}; | |||
| 33467 | const int dl_Rank = 1; | |||
| 33468 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 33469 | int capi_dl_intent = 0; | |||
| 33470 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 33471 | double *d = NULL((void*)0); | |||
| 33472 | npy_intp d_Dims[1] = {-1}; | |||
| 33473 | const int d_Rank = 1; | |||
| 33474 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 33475 | int capi_d_intent = 0; | |||
| 33476 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 33477 | double *du = NULL((void*)0); | |||
| 33478 | npy_intp du_Dims[1] = {-1}; | |||
| 33479 | const int du_Rank = 1; | |||
| 33480 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 33481 | int capi_du_intent = 0; | |||
| 33482 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 33483 | double *dlf = NULL((void*)0); | |||
| 33484 | npy_intp dlf_Dims[1] = {-1}; | |||
| 33485 | const int dlf_Rank = 1; | |||
| 33486 | PyArrayObject *capi_dlf_tmp = NULL((void*)0); | |||
| 33487 | int capi_dlf_intent = 0; | |||
| 33488 | PyObject *dlf_capi = Py_None(&_Py_NoneStruct); | |||
| 33489 | double *df = NULL((void*)0); | |||
| 33490 | npy_intp df_Dims[1] = {-1}; | |||
| 33491 | const int df_Rank = 1; | |||
| 33492 | PyArrayObject *capi_df_tmp = NULL((void*)0); | |||
| 33493 | int capi_df_intent = 0; | |||
| 33494 | PyObject *df_capi = Py_None(&_Py_NoneStruct); | |||
| 33495 | double *duf = NULL((void*)0); | |||
| 33496 | npy_intp duf_Dims[1] = {-1}; | |||
| 33497 | const int duf_Rank = 1; | |||
| 33498 | PyArrayObject *capi_duf_tmp = NULL((void*)0); | |||
| 33499 | int capi_duf_intent = 0; | |||
| 33500 | PyObject *duf_capi = Py_None(&_Py_NoneStruct); | |||
| 33501 | double *du2 = NULL((void*)0); | |||
| 33502 | npy_intp du2_Dims[1] = {-1}; | |||
| 33503 | const int du2_Rank = 1; | |||
| 33504 | PyArrayObject *capi_du2_tmp = NULL((void*)0); | |||
| 33505 | int capi_du2_intent = 0; | |||
| 33506 | PyObject *du2_capi = Py_None(&_Py_NoneStruct); | |||
| 33507 | int *ipiv = NULL((void*)0); | |||
| 33508 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 33509 | const int ipiv_Rank = 1; | |||
| 33510 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 33511 | int capi_ipiv_intent = 0; | |||
| 33512 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 33513 | double *b = NULL((void*)0); | |||
| 33514 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 33515 | const int b_Rank = 2; | |||
| 33516 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 33517 | int capi_b_intent = 0; | |||
| 33518 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 33519 | int ldb = 0; | |||
| 33520 | double *x = NULL((void*)0); | |||
| 33521 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 33522 | const int x_Rank = 2; | |||
| 33523 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 33524 | int capi_x_intent = 0; | |||
| 33525 | int ldx = 0; | |||
| 33526 | double rcond = 0; | |||
| 33527 | double *ferr = NULL((void*)0); | |||
| 33528 | npy_intp ferr_Dims[1] = {-1}; | |||
| 33529 | const int ferr_Rank = 1; | |||
| 33530 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 33531 | int capi_ferr_intent = 0; | |||
| 33532 | double *berr = NULL((void*)0); | |||
| 33533 | npy_intp berr_Dims[1] = {-1}; | |||
| 33534 | const int berr_Rank = 1; | |||
| 33535 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 33536 | int capi_berr_intent = 0; | |||
| 33537 | double *work = NULL((void*)0); | |||
| 33538 | npy_intp work_Dims[1] = {-1}; | |||
| 33539 | const int work_Rank = 1; | |||
| 33540 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 33541 | int capi_work_intent = 0; | |||
| 33542 | int *iwork = NULL((void*)0); | |||
| 33543 | npy_intp iwork_Dims[1] = {-1}; | |||
| 33544 | const int iwork_Rank = 1; | |||
| 33545 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 33546 | int capi_iwork_intent = 0; | |||
| 33547 | int info = 0; | |||
| 33548 | static char *capi_kwlist[] = {"dl","d","du","b","fact","trans","dlf","df","duf","du2","ipiv",NULL((void*)0)}; | |||
| 33549 | ||||
| 33550 | /*routdebugenter*/ | |||
| 33551 | #ifdef F2PY_REPORT_ATEXIT | |||
| 33552 | f2py_start_clock(); | |||
| 33553 | #endif | |||
| 33554 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 33555 | "OOOO|OOOOOOO:_flapack.dgtsvx",\ | |||
| 33556 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&fact_capi,&trans_capi,&dlf_capi,&df_capi,&duf_capi,&du2_capi,&ipiv_capi)) | |||
| 33557 | return NULL((void*)0); | |||
| 33558 | /*frompyobj*/ | |||
| 33559 | /* Processing variable d */ | |||
| 33560 | ; | |||
| 33561 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 33562 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 33563 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 33564 | if (!PyErr_Occurred()) | |||
| 33565 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33566 | } else { | |||
| 33567 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 33568 | ||||
| 33569 | /* Processing variable b */ | |||
| 33570 | ; | |||
| 33571 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 33572 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 33573 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 33574 | if (!PyErr_Occurred()) | |||
| 33575 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33576 | } else { | |||
| 33577 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 33578 | ||||
| 33579 | /* Processing variable rcond */ | |||
| 33580 | /* Processing variable info */ | |||
| 33581 | /* Processing variable n */ | |||
| 33582 | n = len(d)d_Dims[0]; | |||
| 33583 | /* Processing variable nrhs */ | |||
| 33584 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 33585 | /* Processing variable dl */ | |||
| 33586 | dl_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 33587 | capi_dl_intent |= F2PY_INTENT_IN1; | |||
| 33588 | capi_dl_tmp = array_from_pyobj(NPY_DOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 33589 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 33590 | if (!PyErr_Occurred()) | |||
| 33591 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33592 | } else { | |||
| 33593 | dl = (double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 33594 | ||||
| 33595 | /* Processing variable du */ | |||
| 33596 | du_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 33597 | capi_du_intent |= F2PY_INTENT_IN1; | |||
| 33598 | capi_du_tmp = array_from_pyobj(NPY_DOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 33599 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 33600 | if (!PyErr_Occurred()) | |||
| 33601 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33602 | } else { | |||
| 33603 | du = (double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 33604 | ||||
| 33605 | /* Processing variable dlf */ | |||
| 33606 | dlf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 33607 | capi_dlf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 33608 | capi_dlf_tmp = array_from_pyobj(NPY_DOUBLE,dlf_Dims,dlf_Rank,capi_dlf_intent,dlf_capi); | |||
| 33609 | if (capi_dlf_tmp == NULL((void*)0)) { | |||
| 33610 | if (!PyErr_Occurred()) | |||
| 33611 | PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `dlf' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33612 | } else { | |||
| 33613 | dlf = (double *)(PyArray_DATA(capi_dlf_tmp)((void *)((PyArrayObject_fields *)(capi_dlf_tmp))->data)); | |||
| 33614 | ||||
| 33615 | /* Processing variable df */ | |||
| 33616 | df_Dims[0]=n; | |||
| 33617 | capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 33618 | capi_df_tmp = array_from_pyobj(NPY_DOUBLE,df_Dims,df_Rank,capi_df_intent,df_capi); | |||
| 33619 | if (capi_df_tmp == NULL((void*)0)) { | |||
| 33620 | if (!PyErr_Occurred()) | |||
| 33621 | PyErr_SetString(_flapack_error,"failed in converting 4th keyword `df' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33622 | } else { | |||
| 33623 | df = (double *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data)); | |||
| 33624 | ||||
| 33625 | /* Processing variable duf */ | |||
| 33626 | duf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 33627 | capi_duf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 33628 | capi_duf_tmp = array_from_pyobj(NPY_DOUBLE,duf_Dims,duf_Rank,capi_duf_intent,duf_capi); | |||
| 33629 | if (capi_duf_tmp == NULL((void*)0)) { | |||
| 33630 | if (!PyErr_Occurred()) | |||
| 33631 | PyErr_SetString(_flapack_error,"failed in converting 5th keyword `duf' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33632 | } else { | |||
| 33633 | duf = (double *)(PyArray_DATA(capi_duf_tmp)((void *)((PyArrayObject_fields *)(capi_duf_tmp))->data)); | |||
| 33634 | ||||
| 33635 | /* Processing variable du2 */ | |||
| 33636 | du2_Dims[0]=MAX(0,n-2)((0 > n-2) ? (0) : (n-2)); | |||
| 33637 | capi_du2_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 33638 | capi_du2_tmp = array_from_pyobj(NPY_DOUBLE,du2_Dims,du2_Rank,capi_du2_intent,du2_capi); | |||
| 33639 | if (capi_du2_tmp == NULL((void*)0)) { | |||
| 33640 | if (!PyErr_Occurred()) | |||
| 33641 | PyErr_SetString(_flapack_error,"failed in converting 6th keyword `du2' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33642 | } else { | |||
| 33643 | du2 = (double *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data)); | |||
| 33644 | ||||
| 33645 | /* Processing variable ipiv */ | |||
| 33646 | ipiv_Dims[0]=n; | |||
| 33647 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 33648 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 33649 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 33650 | if (!PyErr_Occurred()) | |||
| 33651 | PyErr_SetString(_flapack_error,"failed in converting 7th keyword `ipiv' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33652 | } else { | |||
| 33653 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 33654 | ||||
| 33655 | /* Processing variable ldb */ | |||
| 33656 | ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 33657 | CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","dgtsvx:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgtsvx:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb" , ldb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 33658 | /* Processing variable ldx */ | |||
| 33659 | ldx = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 33660 | /* Processing variable ferr */ | |||
| 33661 | ferr_Dims[0]=nrhs; | |||
| 33662 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 33663 | capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 33664 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 33665 | if (!PyErr_Occurred()) | |||
| 33666 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33667 | } else { | |||
| 33668 | ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 33669 | ||||
| 33670 | /* Processing variable berr */ | |||
| 33671 | berr_Dims[0]=nrhs; | |||
| 33672 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 33673 | capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 33674 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 33675 | if (!PyErr_Occurred()) | |||
| 33676 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33677 | } else { | |||
| 33678 | berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 33679 | ||||
| 33680 | /* Processing variable work */ | |||
| 33681 | work_Dims[0]=3 * n; | |||
| 33682 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 33683 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 33684 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 33685 | if (!PyErr_Occurred()) | |||
| 33686 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33687 | } else { | |||
| 33688 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 33689 | ||||
| 33690 | /* Processing variable iwork */ | |||
| 33691 | iwork_Dims[0]=n; | |||
| 33692 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 33693 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 33694 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 33695 | if (!PyErr_Occurred()) | |||
| 33696 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33697 | } else { | |||
| 33698 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 33699 | ||||
| 33700 | /* Processing variable fact */ | |||
| 33701 | slen(fact)capi_fact_len = 1; | |||
| 33702 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.dgtsvx to C string"); | |||
| 33703 | if (f2py_success) { | |||
| 33704 | CHECKSTRING(*fact=='F'||*fact=='N',"*fact=='F'||*fact=='N'","1st keyword fact","dgtsvx:slen(fact)=%d fact=\"%s\"",fact)if (!(*fact=='F'||*fact=='N')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgtsvx:slen(fact)=%d fact=\"%s\"", "(""*fact=='F'||*fact=='N'" ") failed for ""1st keyword fact", capi_fact_len, fact); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 33705 | /* Processing variable trans */ | |||
| 33706 | slen(trans)capi_trans_len = 1; | |||
| 33707 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dgtsvx to C string"); | |||
| 33708 | if (f2py_success) { | |||
| 33709 | CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T',"*trans=='N'||*trans=='C'||*trans=='T'","2nd keyword trans","dgtsvx:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C'||*trans=='T')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgtsvx:slen(trans)=%d trans=\"%s\"" , "(""*trans=='N'||*trans=='C'||*trans=='T'"") failed for ""2nd keyword trans" , capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 33710 | /* Processing variable x */ | |||
| 33711 | x_Dims[0]=ldx,x_Dims[1]=nrhs; | |||
| 33712 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 33713 | capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 33714 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 33715 | if (!PyErr_Occurred()) | |||
| 33716 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.dgtsvx to C/Fortran array" ); | |||
| 33717 | } else { | |||
| 33718 | x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 33719 | ||||
| 33720 | /*end of frompyobj*/ | |||
| 33721 | #ifdef F2PY_REPORT_ATEXIT | |||
| 33722 | f2py_start_call_clock(); | |||
| 33723 | #endif | |||
| 33724 | /*callfortranroutine*/ | |||
| 33725 | (*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info); ; | |||
| 33726 | /*(*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info,slen(fact),slen(trans));*/ | |||
| 33727 | if (PyErr_Occurred()) | |||
| 33728 | f2py_success = 0; | |||
| 33729 | #ifdef F2PY_REPORT_ATEXIT | |||
| 33730 | f2py_stop_call_clock(); | |||
| 33731 | #endif | |||
| 33732 | /*end of callfortranroutine*/ | |||
| 33733 | if (f2py_success) { | |||
| 33734 | /*pyobjfrom*/ | |||
| 33735 | /*end of pyobjfrom*/ | |||
| 33736 | CFUNCSMESS("Building return value.\n"); | |||
| 33737 | capi_buildvalue = Py_BuildValue("NNNNNNdNNi",capi_dlf_tmp,capi_df_tmp,capi_duf_tmp,capi_du2_tmp,capi_ipiv_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 33738 | /*closepyobjfrom*/ | |||
| 33739 | /*end of closepyobjfrom*/ | |||
| 33740 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 33741 | /*cleanupfrompyobj*/ | |||
| 33742 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 33743 | /* End of cleaning variable x */ | |||
| 33744 | } /*CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T')*/ | |||
| 33745 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 33746 | } /*if (f2py_success) of trans*/ | |||
| 33747 | /* End of cleaning variable trans */ | |||
| 33748 | } /*CHECKSTRING(*fact=='F'||*fact=='N')*/ | |||
| 33749 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 33750 | } /*if (f2py_success) of fact*/ | |||
| 33751 | /* End of cleaning variable fact */ | |||
| 33752 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 33753 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 33754 | /* End of cleaning variable iwork */ | |||
| 33755 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 33756 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 33757 | /* End of cleaning variable work */ | |||
| 33758 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 33759 | /* End of cleaning variable berr */ | |||
| 33760 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 33761 | /* End of cleaning variable ferr */ | |||
| 33762 | /* End of cleaning variable ldx */ | |||
| 33763 | } /*CHECKSCALAR(ldb >= n)*/ | |||
| 33764 | /* End of cleaning variable ldb */ | |||
| 33765 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 33766 | /* End of cleaning variable ipiv */ | |||
| 33767 | } /*if (capi_du2_tmp == NULL) ... else of du2*/ | |||
| 33768 | /* End of cleaning variable du2 */ | |||
| 33769 | } /*if (capi_duf_tmp == NULL) ... else of duf*/ | |||
| 33770 | /* End of cleaning variable duf */ | |||
| 33771 | } /*if (capi_df_tmp == NULL) ... else of df*/ | |||
| 33772 | /* End of cleaning variable df */ | |||
| 33773 | } /*if (capi_dlf_tmp == NULL) ... else of dlf*/ | |||
| 33774 | /* End of cleaning variable dlf */ | |||
| 33775 | if((PyObject *)capi_du_tmp!=du_capi) { | |||
| 33776 | Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); } | |||
| 33777 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 33778 | /* End of cleaning variable du */ | |||
| 33779 | if((PyObject *)capi_dl_tmp!=dl_capi) { | |||
| 33780 | Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); } | |||
| 33781 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 33782 | /* End of cleaning variable dl */ | |||
| 33783 | /* End of cleaning variable nrhs */ | |||
| 33784 | /* End of cleaning variable n */ | |||
| 33785 | /* End of cleaning variable info */ | |||
| 33786 | /* End of cleaning variable rcond */ | |||
| 33787 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 33788 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 33789 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 33790 | /* End of cleaning variable b */ | |||
| 33791 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 33792 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 33793 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 33794 | /* End of cleaning variable d */ | |||
| 33795 | /*end of cleanupfrompyobj*/ | |||
| 33796 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 33797 | /*routdebugfailure*/ | |||
| 33798 | } else { | |||
| 33799 | /*routdebugleave*/ | |||
| 33800 | } | |||
| 33801 | CFUNCSMESS("Freeing memory.\n"); | |||
| 33802 | /*freemem*/ | |||
| 33803 | #ifdef F2PY_REPORT_ATEXIT | |||
| 33804 | f2py_stop_clock(); | |||
| 33805 | #endif | |||
| 33806 | return capi_buildvalue; | |||
| 33807 | } | |||
| 33808 | /******************************* end of dgtsvx *******************************/ | |||
| 33809 | ||||
| 33810 | /*********************************** cgtsvx ***********************************/ | |||
| 33811 | static char doc_f2py_rout__flapack_cgtsvx[] = "\ | |||
| 33812 | dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = cgtsvx(dl,d,du,b,[fact,trans,dlf,df,duf,du2,ipiv])\n\nWrapper for ``cgtsvx``.\ | |||
| 33813 | \n\nParameters\n----------\n" | |||
| 33814 | "dl : input rank-1 array('F') with bounds (MAX(0, n-1))\n" | |||
| 33815 | "d : input rank-1 array('F') with bounds (n)\n" | |||
| 33816 | "du : input rank-1 array('F') with bounds (MAX(0, n-1))\n" | |||
| 33817 | "b : input rank-2 array('F') with bounds (ldb,nrhs)\n" | |||
| 33818 | "\nOther Parameters\n----------------\n" | |||
| 33819 | "fact : input string(len=1), optional\n Default: 'N'\n" | |||
| 33820 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 33821 | "dlf : input rank-1 array('F') with bounds (MAX(0,n-1))\n" | |||
| 33822 | "df : input rank-1 array('F') with bounds (n)\n" | |||
| 33823 | "duf : input rank-1 array('F') with bounds (MAX(0,n-1))\n" | |||
| 33824 | "du2 : input rank-1 array('F') with bounds (MAX(0,n-2))\n" | |||
| 33825 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 33826 | "\nReturns\n-------\n" | |||
| 33827 | "dlf : rank-1 array('F') with bounds (MAX(0,n-1))\n" | |||
| 33828 | "df : rank-1 array('F') with bounds (n)\n" | |||
| 33829 | "duf : rank-1 array('F') with bounds (MAX(0,n-1))\n" | |||
| 33830 | "du2 : rank-1 array('F') with bounds (MAX(0,n-2))\n" | |||
| 33831 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 33832 | "x : rank-2 array('F') with bounds (ldx,nrhs)\n" | |||
| 33833 | "rcond : float\n" | |||
| 33834 | "ferr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 33835 | "berr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 33836 | "info : int"; | |||
| 33837 | /* extern void F_FUNC(cgtsvx,CGTSVX)(char*,char*,F_INT*,F_INT*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,float*,F_INT* ); */ | |||
| 33838 | static PyObject *f2py_rout__flapack_cgtsvx(const PyObject *capi_self, | |||
| 33839 | PyObject *capi_args, | |||
| 33840 | PyObject *capi_keywds, | |||
| 33841 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,float*,F_INTint* )) { | |||
| 33842 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 33843 | volatile int f2py_success = 1; | |||
| 33844 | /*decl*/ | |||
| 33845 | ||||
| 33846 | string fact = NULL((void*)0); | |||
| 33847 | int slen(fact)capi_fact_len; | |||
| 33848 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 33849 | string trans = NULL((void*)0); | |||
| 33850 | int slen(trans)capi_trans_len; | |||
| 33851 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 33852 | int n = 0; | |||
| 33853 | int nrhs = 0; | |||
| 33854 | complex_float *dl = NULL((void*)0); | |||
| 33855 | npy_intp dl_Dims[1] = {-1}; | |||
| 33856 | const int dl_Rank = 1; | |||
| 33857 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 33858 | int capi_dl_intent = 0; | |||
| 33859 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 33860 | complex_float *d = NULL((void*)0); | |||
| 33861 | npy_intp d_Dims[1] = {-1}; | |||
| 33862 | const int d_Rank = 1; | |||
| 33863 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 33864 | int capi_d_intent = 0; | |||
| 33865 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 33866 | complex_float *du = NULL((void*)0); | |||
| 33867 | npy_intp du_Dims[1] = {-1}; | |||
| 33868 | const int du_Rank = 1; | |||
| 33869 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 33870 | int capi_du_intent = 0; | |||
| 33871 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 33872 | complex_float *dlf = NULL((void*)0); | |||
| 33873 | npy_intp dlf_Dims[1] = {-1}; | |||
| 33874 | const int dlf_Rank = 1; | |||
| 33875 | PyArrayObject *capi_dlf_tmp = NULL((void*)0); | |||
| 33876 | int capi_dlf_intent = 0; | |||
| 33877 | PyObject *dlf_capi = Py_None(&_Py_NoneStruct); | |||
| 33878 | complex_float *df = NULL((void*)0); | |||
| 33879 | npy_intp df_Dims[1] = {-1}; | |||
| 33880 | const int df_Rank = 1; | |||
| 33881 | PyArrayObject *capi_df_tmp = NULL((void*)0); | |||
| 33882 | int capi_df_intent = 0; | |||
| 33883 | PyObject *df_capi = Py_None(&_Py_NoneStruct); | |||
| 33884 | complex_float *duf = NULL((void*)0); | |||
| 33885 | npy_intp duf_Dims[1] = {-1}; | |||
| 33886 | const int duf_Rank = 1; | |||
| 33887 | PyArrayObject *capi_duf_tmp = NULL((void*)0); | |||
| 33888 | int capi_duf_intent = 0; | |||
| 33889 | PyObject *duf_capi = Py_None(&_Py_NoneStruct); | |||
| 33890 | complex_float *du2 = NULL((void*)0); | |||
| 33891 | npy_intp du2_Dims[1] = {-1}; | |||
| 33892 | const int du2_Rank = 1; | |||
| 33893 | PyArrayObject *capi_du2_tmp = NULL((void*)0); | |||
| 33894 | int capi_du2_intent = 0; | |||
| 33895 | PyObject *du2_capi = Py_None(&_Py_NoneStruct); | |||
| 33896 | int *ipiv = NULL((void*)0); | |||
| 33897 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 33898 | const int ipiv_Rank = 1; | |||
| 33899 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 33900 | int capi_ipiv_intent = 0; | |||
| 33901 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 33902 | complex_float *b = NULL((void*)0); | |||
| 33903 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 33904 | const int b_Rank = 2; | |||
| 33905 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 33906 | int capi_b_intent = 0; | |||
| 33907 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 33908 | int ldb = 0; | |||
| 33909 | complex_float *x = NULL((void*)0); | |||
| 33910 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 33911 | const int x_Rank = 2; | |||
| 33912 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 33913 | int capi_x_intent = 0; | |||
| 33914 | int ldx = 0; | |||
| 33915 | float rcond = 0; | |||
| 33916 | float *ferr = NULL((void*)0); | |||
| 33917 | npy_intp ferr_Dims[1] = {-1}; | |||
| 33918 | const int ferr_Rank = 1; | |||
| 33919 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 33920 | int capi_ferr_intent = 0; | |||
| 33921 | float *berr = NULL((void*)0); | |||
| 33922 | npy_intp berr_Dims[1] = {-1}; | |||
| 33923 | const int berr_Rank = 1; | |||
| 33924 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 33925 | int capi_berr_intent = 0; | |||
| 33926 | complex_float *work = NULL((void*)0); | |||
| 33927 | npy_intp work_Dims[1] = {-1}; | |||
| 33928 | const int work_Rank = 1; | |||
| 33929 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 33930 | int capi_work_intent = 0; | |||
| 33931 | float *rwork = NULL((void*)0); | |||
| 33932 | npy_intp rwork_Dims[1] = {-1}; | |||
| 33933 | const int rwork_Rank = 1; | |||
| 33934 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 33935 | int capi_rwork_intent = 0; | |||
| 33936 | int info = 0; | |||
| 33937 | static char *capi_kwlist[] = {"dl","d","du","b","fact","trans","dlf","df","duf","du2","ipiv",NULL((void*)0)}; | |||
| 33938 | ||||
| 33939 | /*routdebugenter*/ | |||
| 33940 | #ifdef F2PY_REPORT_ATEXIT | |||
| 33941 | f2py_start_clock(); | |||
| 33942 | #endif | |||
| 33943 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 33944 | "OOOO|OOOOOOO:_flapack.cgtsvx",\ | |||
| 33945 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&fact_capi,&trans_capi,&dlf_capi,&df_capi,&duf_capi,&du2_capi,&ipiv_capi)) | |||
| 33946 | return NULL((void*)0); | |||
| 33947 | /*frompyobj*/ | |||
| 33948 | /* Processing variable d */ | |||
| 33949 | ; | |||
| 33950 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 33951 | capi_d_tmp = array_from_pyobj(NPY_CFLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 33952 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 33953 | if (!PyErr_Occurred()) | |||
| 33954 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 33955 | } else { | |||
| 33956 | d = (complex_float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 33957 | ||||
| 33958 | /* Processing variable b */ | |||
| 33959 | ; | |||
| 33960 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 33961 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 33962 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 33963 | if (!PyErr_Occurred()) | |||
| 33964 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 33965 | } else { | |||
| 33966 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 33967 | ||||
| 33968 | /* Processing variable rcond */ | |||
| 33969 | /* Processing variable info */ | |||
| 33970 | /* Processing variable n */ | |||
| 33971 | n = len(d)d_Dims[0]; | |||
| 33972 | /* Processing variable nrhs */ | |||
| 33973 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 33974 | /* Processing variable dl */ | |||
| 33975 | dl_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 33976 | capi_dl_intent |= F2PY_INTENT_IN1; | |||
| 33977 | capi_dl_tmp = array_from_pyobj(NPY_CFLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 33978 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 33979 | if (!PyErr_Occurred()) | |||
| 33980 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 33981 | } else { | |||
| 33982 | dl = (complex_float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 33983 | ||||
| 33984 | /* Processing variable du */ | |||
| 33985 | du_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 33986 | capi_du_intent |= F2PY_INTENT_IN1; | |||
| 33987 | capi_du_tmp = array_from_pyobj(NPY_CFLOAT,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 33988 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 33989 | if (!PyErr_Occurred()) | |||
| 33990 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 33991 | } else { | |||
| 33992 | du = (complex_float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 33993 | ||||
| 33994 | /* Processing variable dlf */ | |||
| 33995 | dlf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 33996 | capi_dlf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 33997 | capi_dlf_tmp = array_from_pyobj(NPY_CFLOAT,dlf_Dims,dlf_Rank,capi_dlf_intent,dlf_capi); | |||
| 33998 | if (capi_dlf_tmp == NULL((void*)0)) { | |||
| 33999 | if (!PyErr_Occurred()) | |||
| 34000 | PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `dlf' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 34001 | } else { | |||
| 34002 | dlf = (complex_float *)(PyArray_DATA(capi_dlf_tmp)((void *)((PyArrayObject_fields *)(capi_dlf_tmp))->data)); | |||
| 34003 | ||||
| 34004 | /* Processing variable df */ | |||
| 34005 | df_Dims[0]=n; | |||
| 34006 | capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 34007 | capi_df_tmp = array_from_pyobj(NPY_CFLOAT,df_Dims,df_Rank,capi_df_intent,df_capi); | |||
| 34008 | if (capi_df_tmp == NULL((void*)0)) { | |||
| 34009 | if (!PyErr_Occurred()) | |||
| 34010 | PyErr_SetString(_flapack_error,"failed in converting 4th keyword `df' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 34011 | } else { | |||
| 34012 | df = (complex_float *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data)); | |||
| 34013 | ||||
| 34014 | /* Processing variable duf */ | |||
| 34015 | duf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 34016 | capi_duf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 34017 | capi_duf_tmp = array_from_pyobj(NPY_CFLOAT,duf_Dims,duf_Rank,capi_duf_intent,duf_capi); | |||
| 34018 | if (capi_duf_tmp == NULL((void*)0)) { | |||
| 34019 | if (!PyErr_Occurred()) | |||
| 34020 | PyErr_SetString(_flapack_error,"failed in converting 5th keyword `duf' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 34021 | } else { | |||
| 34022 | duf = (complex_float *)(PyArray_DATA(capi_duf_tmp)((void *)((PyArrayObject_fields *)(capi_duf_tmp))->data)); | |||
| 34023 | ||||
| 34024 | /* Processing variable du2 */ | |||
| 34025 | du2_Dims[0]=MAX(0,n-2)((0 > n-2) ? (0) : (n-2)); | |||
| 34026 | capi_du2_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 34027 | capi_du2_tmp = array_from_pyobj(NPY_CFLOAT,du2_Dims,du2_Rank,capi_du2_intent,du2_capi); | |||
| 34028 | if (capi_du2_tmp == NULL((void*)0)) { | |||
| 34029 | if (!PyErr_Occurred()) | |||
| 34030 | PyErr_SetString(_flapack_error,"failed in converting 6th keyword `du2' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 34031 | } else { | |||
| 34032 | du2 = (complex_float *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data)); | |||
| 34033 | ||||
| 34034 | /* Processing variable ipiv */ | |||
| 34035 | ipiv_Dims[0]=n; | |||
| 34036 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 34037 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 34038 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 34039 | if (!PyErr_Occurred()) | |||
| 34040 | PyErr_SetString(_flapack_error,"failed in converting 7th keyword `ipiv' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 34041 | } else { | |||
| 34042 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 34043 | ||||
| 34044 | /* Processing variable ldb */ | |||
| 34045 | ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 34046 | CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","cgtsvx:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgtsvx:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb" , ldb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 34047 | /* Processing variable ldx */ | |||
| 34048 | ldx = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 34049 | /* Processing variable ferr */ | |||
| 34050 | ferr_Dims[0]=nrhs; | |||
| 34051 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 34052 | capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 34053 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 34054 | if (!PyErr_Occurred()) | |||
| 34055 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 34056 | } else { | |||
| 34057 | ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 34058 | ||||
| 34059 | /* Processing variable berr */ | |||
| 34060 | berr_Dims[0]=nrhs; | |||
| 34061 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 34062 | capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 34063 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 34064 | if (!PyErr_Occurred()) | |||
| 34065 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 34066 | } else { | |||
| 34067 | berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 34068 | ||||
| 34069 | /* Processing variable work */ | |||
| 34070 | work_Dims[0]=2 * n; | |||
| 34071 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 34072 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 34073 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 34074 | if (!PyErr_Occurred()) | |||
| 34075 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 34076 | } else { | |||
| 34077 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 34078 | ||||
| 34079 | /* Processing variable rwork */ | |||
| 34080 | rwork_Dims[0]=n; | |||
| 34081 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 34082 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 34083 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 34084 | if (!PyErr_Occurred()) | |||
| 34085 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 34086 | } else { | |||
| 34087 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 34088 | ||||
| 34089 | /* Processing variable fact */ | |||
| 34090 | slen(fact)capi_fact_len = 1; | |||
| 34091 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.cgtsvx to C string"); | |||
| 34092 | if (f2py_success) { | |||
| 34093 | CHECKSTRING(*fact=='F'||*fact=='N',"*fact=='F'||*fact=='N'","1st keyword fact","cgtsvx:slen(fact)=%d fact=\"%s\"",fact)if (!(*fact=='F'||*fact=='N')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgtsvx:slen(fact)=%d fact=\"%s\"", "(""*fact=='F'||*fact=='N'" ") failed for ""1st keyword fact", capi_fact_len, fact); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 34094 | /* Processing variable trans */ | |||
| 34095 | slen(trans)capi_trans_len = 1; | |||
| 34096 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.cgtsvx to C string"); | |||
| 34097 | if (f2py_success) { | |||
| 34098 | CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T',"*trans=='N'||*trans=='C'||*trans=='T'","2nd keyword trans","cgtsvx:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C'||*trans=='T')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgtsvx:slen(trans)=%d trans=\"%s\"" , "(""*trans=='N'||*trans=='C'||*trans=='T'"") failed for ""2nd keyword trans" , capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 34099 | /* Processing variable x */ | |||
| 34100 | x_Dims[0]=ldx,x_Dims[1]=nrhs; | |||
| 34101 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 34102 | capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 34103 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 34104 | if (!PyErr_Occurred()) | |||
| 34105 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.cgtsvx to C/Fortran array" ); | |||
| 34106 | } else { | |||
| 34107 | x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 34108 | ||||
| 34109 | /*end of frompyobj*/ | |||
| 34110 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34111 | f2py_start_call_clock(); | |||
| 34112 | #endif | |||
| 34113 | /*callfortranroutine*/ | |||
| 34114 | (*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info); ; | |||
| 34115 | /*(*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info,slen(fact),slen(trans));*/ | |||
| 34116 | if (PyErr_Occurred()) | |||
| 34117 | f2py_success = 0; | |||
| 34118 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34119 | f2py_stop_call_clock(); | |||
| 34120 | #endif | |||
| 34121 | /*end of callfortranroutine*/ | |||
| 34122 | if (f2py_success) { | |||
| 34123 | /*pyobjfrom*/ | |||
| 34124 | /*end of pyobjfrom*/ | |||
| 34125 | CFUNCSMESS("Building return value.\n"); | |||
| 34126 | capi_buildvalue = Py_BuildValue("NNNNNNfNNi",capi_dlf_tmp,capi_df_tmp,capi_duf_tmp,capi_du2_tmp,capi_ipiv_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 34127 | /*closepyobjfrom*/ | |||
| 34128 | /*end of closepyobjfrom*/ | |||
| 34129 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 34130 | /*cleanupfrompyobj*/ | |||
| 34131 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 34132 | /* End of cleaning variable x */ | |||
| 34133 | } /*CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T')*/ | |||
| 34134 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 34135 | } /*if (f2py_success) of trans*/ | |||
| 34136 | /* End of cleaning variable trans */ | |||
| 34137 | } /*CHECKSTRING(*fact=='F'||*fact=='N')*/ | |||
| 34138 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 34139 | } /*if (f2py_success) of fact*/ | |||
| 34140 | /* End of cleaning variable fact */ | |||
| 34141 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 34142 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 34143 | /* End of cleaning variable rwork */ | |||
| 34144 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 34145 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 34146 | /* End of cleaning variable work */ | |||
| 34147 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 34148 | /* End of cleaning variable berr */ | |||
| 34149 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 34150 | /* End of cleaning variable ferr */ | |||
| 34151 | /* End of cleaning variable ldx */ | |||
| 34152 | } /*CHECKSCALAR(ldb >= n)*/ | |||
| 34153 | /* End of cleaning variable ldb */ | |||
| 34154 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 34155 | /* End of cleaning variable ipiv */ | |||
| 34156 | } /*if (capi_du2_tmp == NULL) ... else of du2*/ | |||
| 34157 | /* End of cleaning variable du2 */ | |||
| 34158 | } /*if (capi_duf_tmp == NULL) ... else of duf*/ | |||
| 34159 | /* End of cleaning variable duf */ | |||
| 34160 | } /*if (capi_df_tmp == NULL) ... else of df*/ | |||
| 34161 | /* End of cleaning variable df */ | |||
| 34162 | } /*if (capi_dlf_tmp == NULL) ... else of dlf*/ | |||
| 34163 | /* End of cleaning variable dlf */ | |||
| 34164 | if((PyObject *)capi_du_tmp!=du_capi) { | |||
| 34165 | Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); } | |||
| 34166 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 34167 | /* End of cleaning variable du */ | |||
| 34168 | if((PyObject *)capi_dl_tmp!=dl_capi) { | |||
| 34169 | Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); } | |||
| 34170 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 34171 | /* End of cleaning variable dl */ | |||
| 34172 | /* End of cleaning variable nrhs */ | |||
| 34173 | /* End of cleaning variable n */ | |||
| 34174 | /* End of cleaning variable info */ | |||
| 34175 | /* End of cleaning variable rcond */ | |||
| 34176 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 34177 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 34178 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 34179 | /* End of cleaning variable b */ | |||
| 34180 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 34181 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 34182 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 34183 | /* End of cleaning variable d */ | |||
| 34184 | /*end of cleanupfrompyobj*/ | |||
| 34185 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 34186 | /*routdebugfailure*/ | |||
| 34187 | } else { | |||
| 34188 | /*routdebugleave*/ | |||
| 34189 | } | |||
| 34190 | CFUNCSMESS("Freeing memory.\n"); | |||
| 34191 | /*freemem*/ | |||
| 34192 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34193 | f2py_stop_clock(); | |||
| 34194 | #endif | |||
| 34195 | return capi_buildvalue; | |||
| 34196 | } | |||
| 34197 | /******************************* end of cgtsvx *******************************/ | |||
| 34198 | ||||
| 34199 | /*********************************** zgtsvx ***********************************/ | |||
| 34200 | static char doc_f2py_rout__flapack_zgtsvx[] = "\ | |||
| 34201 | dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = zgtsvx(dl,d,du,b,[fact,trans,dlf,df,duf,du2,ipiv])\n\nWrapper for ``zgtsvx``.\ | |||
| 34202 | \n\nParameters\n----------\n" | |||
| 34203 | "dl : input rank-1 array('D') with bounds (MAX(0, n-1))\n" | |||
| 34204 | "d : input rank-1 array('D') with bounds (n)\n" | |||
| 34205 | "du : input rank-1 array('D') with bounds (MAX(0, n-1))\n" | |||
| 34206 | "b : input rank-2 array('D') with bounds (ldb,nrhs)\n" | |||
| 34207 | "\nOther Parameters\n----------------\n" | |||
| 34208 | "fact : input string(len=1), optional\n Default: 'N'\n" | |||
| 34209 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 34210 | "dlf : input rank-1 array('D') with bounds (MAX(0,n-1))\n" | |||
| 34211 | "df : input rank-1 array('D') with bounds (n)\n" | |||
| 34212 | "duf : input rank-1 array('D') with bounds (MAX(0,n-1))\n" | |||
| 34213 | "du2 : input rank-1 array('D') with bounds (MAX(0,n-2))\n" | |||
| 34214 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 34215 | "\nReturns\n-------\n" | |||
| 34216 | "dlf : rank-1 array('D') with bounds (MAX(0,n-1))\n" | |||
| 34217 | "df : rank-1 array('D') with bounds (n)\n" | |||
| 34218 | "duf : rank-1 array('D') with bounds (MAX(0,n-1))\n" | |||
| 34219 | "du2 : rank-1 array('D') with bounds (MAX(0,n-2))\n" | |||
| 34220 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 34221 | "x : rank-2 array('D') with bounds (ldx,nrhs)\n" | |||
| 34222 | "rcond : float\n" | |||
| 34223 | "ferr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 34224 | "berr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 34225 | "info : int"; | |||
| 34226 | /* extern void F_FUNC(zgtsvx,ZGTSVX)(char*,char*,F_INT*,F_INT*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,double*,F_INT* ); */ | |||
| 34227 | static PyObject *f2py_rout__flapack_zgtsvx(const PyObject *capi_self, | |||
| 34228 | PyObject *capi_args, | |||
| 34229 | PyObject *capi_keywds, | |||
| 34230 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,double*,F_INTint* )) { | |||
| 34231 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 34232 | volatile int f2py_success = 1; | |||
| 34233 | /*decl*/ | |||
| 34234 | ||||
| 34235 | string fact = NULL((void*)0); | |||
| 34236 | int slen(fact)capi_fact_len; | |||
| 34237 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 34238 | string trans = NULL((void*)0); | |||
| 34239 | int slen(trans)capi_trans_len; | |||
| 34240 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 34241 | int n = 0; | |||
| 34242 | int nrhs = 0; | |||
| 34243 | complex_double *dl = NULL((void*)0); | |||
| 34244 | npy_intp dl_Dims[1] = {-1}; | |||
| 34245 | const int dl_Rank = 1; | |||
| 34246 | PyArrayObject *capi_dl_tmp = NULL((void*)0); | |||
| 34247 | int capi_dl_intent = 0; | |||
| 34248 | PyObject *dl_capi = Py_None(&_Py_NoneStruct); | |||
| 34249 | complex_double *d = NULL((void*)0); | |||
| 34250 | npy_intp d_Dims[1] = {-1}; | |||
| 34251 | const int d_Rank = 1; | |||
| 34252 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 34253 | int capi_d_intent = 0; | |||
| 34254 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 34255 | complex_double *du = NULL((void*)0); | |||
| 34256 | npy_intp du_Dims[1] = {-1}; | |||
| 34257 | const int du_Rank = 1; | |||
| 34258 | PyArrayObject *capi_du_tmp = NULL((void*)0); | |||
| 34259 | int capi_du_intent = 0; | |||
| 34260 | PyObject *du_capi = Py_None(&_Py_NoneStruct); | |||
| 34261 | complex_double *dlf = NULL((void*)0); | |||
| 34262 | npy_intp dlf_Dims[1] = {-1}; | |||
| 34263 | const int dlf_Rank = 1; | |||
| 34264 | PyArrayObject *capi_dlf_tmp = NULL((void*)0); | |||
| 34265 | int capi_dlf_intent = 0; | |||
| 34266 | PyObject *dlf_capi = Py_None(&_Py_NoneStruct); | |||
| 34267 | complex_double *df = NULL((void*)0); | |||
| 34268 | npy_intp df_Dims[1] = {-1}; | |||
| 34269 | const int df_Rank = 1; | |||
| 34270 | PyArrayObject *capi_df_tmp = NULL((void*)0); | |||
| 34271 | int capi_df_intent = 0; | |||
| 34272 | PyObject *df_capi = Py_None(&_Py_NoneStruct); | |||
| 34273 | complex_double *duf = NULL((void*)0); | |||
| 34274 | npy_intp duf_Dims[1] = {-1}; | |||
| 34275 | const int duf_Rank = 1; | |||
| 34276 | PyArrayObject *capi_duf_tmp = NULL((void*)0); | |||
| 34277 | int capi_duf_intent = 0; | |||
| 34278 | PyObject *duf_capi = Py_None(&_Py_NoneStruct); | |||
| 34279 | complex_double *du2 = NULL((void*)0); | |||
| 34280 | npy_intp du2_Dims[1] = {-1}; | |||
| 34281 | const int du2_Rank = 1; | |||
| 34282 | PyArrayObject *capi_du2_tmp = NULL((void*)0); | |||
| 34283 | int capi_du2_intent = 0; | |||
| 34284 | PyObject *du2_capi = Py_None(&_Py_NoneStruct); | |||
| 34285 | int *ipiv = NULL((void*)0); | |||
| 34286 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 34287 | const int ipiv_Rank = 1; | |||
| 34288 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 34289 | int capi_ipiv_intent = 0; | |||
| 34290 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 34291 | complex_double *b = NULL((void*)0); | |||
| 34292 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 34293 | const int b_Rank = 2; | |||
| 34294 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 34295 | int capi_b_intent = 0; | |||
| 34296 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 34297 | int ldb = 0; | |||
| 34298 | complex_double *x = NULL((void*)0); | |||
| 34299 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 34300 | const int x_Rank = 2; | |||
| 34301 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 34302 | int capi_x_intent = 0; | |||
| 34303 | int ldx = 0; | |||
| 34304 | double rcond = 0; | |||
| 34305 | double *ferr = NULL((void*)0); | |||
| 34306 | npy_intp ferr_Dims[1] = {-1}; | |||
| 34307 | const int ferr_Rank = 1; | |||
| 34308 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 34309 | int capi_ferr_intent = 0; | |||
| 34310 | double *berr = NULL((void*)0); | |||
| 34311 | npy_intp berr_Dims[1] = {-1}; | |||
| 34312 | const int berr_Rank = 1; | |||
| 34313 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 34314 | int capi_berr_intent = 0; | |||
| 34315 | complex_double *work = NULL((void*)0); | |||
| 34316 | npy_intp work_Dims[1] = {-1}; | |||
| 34317 | const int work_Rank = 1; | |||
| 34318 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 34319 | int capi_work_intent = 0; | |||
| 34320 | double *rwork = NULL((void*)0); | |||
| 34321 | npy_intp rwork_Dims[1] = {-1}; | |||
| 34322 | const int rwork_Rank = 1; | |||
| 34323 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 34324 | int capi_rwork_intent = 0; | |||
| 34325 | int info = 0; | |||
| 34326 | static char *capi_kwlist[] = {"dl","d","du","b","fact","trans","dlf","df","duf","du2","ipiv",NULL((void*)0)}; | |||
| 34327 | ||||
| 34328 | /*routdebugenter*/ | |||
| 34329 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34330 | f2py_start_clock(); | |||
| 34331 | #endif | |||
| 34332 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 34333 | "OOOO|OOOOOOO:_flapack.zgtsvx",\ | |||
| 34334 | capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&fact_capi,&trans_capi,&dlf_capi,&df_capi,&duf_capi,&du2_capi,&ipiv_capi)) | |||
| 34335 | return NULL((void*)0); | |||
| 34336 | /*frompyobj*/ | |||
| 34337 | /* Processing variable d */ | |||
| 34338 | ; | |||
| 34339 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 34340 | capi_d_tmp = array_from_pyobj(NPY_CDOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 34341 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 34342 | if (!PyErr_Occurred()) | |||
| 34343 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34344 | } else { | |||
| 34345 | d = (complex_double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 34346 | ||||
| 34347 | /* Processing variable b */ | |||
| 34348 | ; | |||
| 34349 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 34350 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 34351 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 34352 | if (!PyErr_Occurred()) | |||
| 34353 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34354 | } else { | |||
| 34355 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 34356 | ||||
| 34357 | /* Processing variable rcond */ | |||
| 34358 | /* Processing variable info */ | |||
| 34359 | /* Processing variable n */ | |||
| 34360 | n = len(d)d_Dims[0]; | |||
| 34361 | /* Processing variable nrhs */ | |||
| 34362 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 34363 | /* Processing variable dl */ | |||
| 34364 | dl_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 34365 | capi_dl_intent |= F2PY_INTENT_IN1; | |||
| 34366 | capi_dl_tmp = array_from_pyobj(NPY_CDOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi); | |||
| 34367 | if (capi_dl_tmp == NULL((void*)0)) { | |||
| 34368 | if (!PyErr_Occurred()) | |||
| 34369 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34370 | } else { | |||
| 34371 | dl = (complex_double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data)); | |||
| 34372 | ||||
| 34373 | /* Processing variable du */ | |||
| 34374 | du_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 34375 | capi_du_intent |= F2PY_INTENT_IN1; | |||
| 34376 | capi_du_tmp = array_from_pyobj(NPY_CDOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi); | |||
| 34377 | if (capi_du_tmp == NULL((void*)0)) { | |||
| 34378 | if (!PyErr_Occurred()) | |||
| 34379 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34380 | } else { | |||
| 34381 | du = (complex_double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data)); | |||
| 34382 | ||||
| 34383 | /* Processing variable dlf */ | |||
| 34384 | dlf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 34385 | capi_dlf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 34386 | capi_dlf_tmp = array_from_pyobj(NPY_CDOUBLE,dlf_Dims,dlf_Rank,capi_dlf_intent,dlf_capi); | |||
| 34387 | if (capi_dlf_tmp == NULL((void*)0)) { | |||
| 34388 | if (!PyErr_Occurred()) | |||
| 34389 | PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `dlf' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34390 | } else { | |||
| 34391 | dlf = (complex_double *)(PyArray_DATA(capi_dlf_tmp)((void *)((PyArrayObject_fields *)(capi_dlf_tmp))->data)); | |||
| 34392 | ||||
| 34393 | /* Processing variable df */ | |||
| 34394 | df_Dims[0]=n; | |||
| 34395 | capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 34396 | capi_df_tmp = array_from_pyobj(NPY_CDOUBLE,df_Dims,df_Rank,capi_df_intent,df_capi); | |||
| 34397 | if (capi_df_tmp == NULL((void*)0)) { | |||
| 34398 | if (!PyErr_Occurred()) | |||
| 34399 | PyErr_SetString(_flapack_error,"failed in converting 4th keyword `df' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34400 | } else { | |||
| 34401 | df = (complex_double *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data)); | |||
| 34402 | ||||
| 34403 | /* Processing variable duf */ | |||
| 34404 | duf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 34405 | capi_duf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 34406 | capi_duf_tmp = array_from_pyobj(NPY_CDOUBLE,duf_Dims,duf_Rank,capi_duf_intent,duf_capi); | |||
| 34407 | if (capi_duf_tmp == NULL((void*)0)) { | |||
| 34408 | if (!PyErr_Occurred()) | |||
| 34409 | PyErr_SetString(_flapack_error,"failed in converting 5th keyword `duf' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34410 | } else { | |||
| 34411 | duf = (complex_double *)(PyArray_DATA(capi_duf_tmp)((void *)((PyArrayObject_fields *)(capi_duf_tmp))->data)); | |||
| 34412 | ||||
| 34413 | /* Processing variable du2 */ | |||
| 34414 | du2_Dims[0]=MAX(0,n-2)((0 > n-2) ? (0) : (n-2)); | |||
| 34415 | capi_du2_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 34416 | capi_du2_tmp = array_from_pyobj(NPY_CDOUBLE,du2_Dims,du2_Rank,capi_du2_intent,du2_capi); | |||
| 34417 | if (capi_du2_tmp == NULL((void*)0)) { | |||
| 34418 | if (!PyErr_Occurred()) | |||
| 34419 | PyErr_SetString(_flapack_error,"failed in converting 6th keyword `du2' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34420 | } else { | |||
| 34421 | du2 = (complex_double *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data)); | |||
| 34422 | ||||
| 34423 | /* Processing variable ipiv */ | |||
| 34424 | ipiv_Dims[0]=n; | |||
| 34425 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 34426 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 34427 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 34428 | if (!PyErr_Occurred()) | |||
| 34429 | PyErr_SetString(_flapack_error,"failed in converting 7th keyword `ipiv' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34430 | } else { | |||
| 34431 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 34432 | ||||
| 34433 | /* Processing variable ldb */ | |||
| 34434 | ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 34435 | CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","zgtsvx:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgtsvx:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb" , ldb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 34436 | /* Processing variable ldx */ | |||
| 34437 | ldx = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 34438 | /* Processing variable ferr */ | |||
| 34439 | ferr_Dims[0]=nrhs; | |||
| 34440 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 34441 | capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 34442 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 34443 | if (!PyErr_Occurred()) | |||
| 34444 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34445 | } else { | |||
| 34446 | ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 34447 | ||||
| 34448 | /* Processing variable berr */ | |||
| 34449 | berr_Dims[0]=nrhs; | |||
| 34450 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 34451 | capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 34452 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 34453 | if (!PyErr_Occurred()) | |||
| 34454 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34455 | } else { | |||
| 34456 | berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 34457 | ||||
| 34458 | /* Processing variable work */ | |||
| 34459 | work_Dims[0]=2 * n; | |||
| 34460 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 34461 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 34462 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 34463 | if (!PyErr_Occurred()) | |||
| 34464 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34465 | } else { | |||
| 34466 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 34467 | ||||
| 34468 | /* Processing variable rwork */ | |||
| 34469 | rwork_Dims[0]=n; | |||
| 34470 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 34471 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 34472 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 34473 | if (!PyErr_Occurred()) | |||
| 34474 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34475 | } else { | |||
| 34476 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 34477 | ||||
| 34478 | /* Processing variable fact */ | |||
| 34479 | slen(fact)capi_fact_len = 1; | |||
| 34480 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.zgtsvx to C string"); | |||
| 34481 | if (f2py_success) { | |||
| 34482 | CHECKSTRING(*fact=='F'||*fact=='N',"*fact=='F'||*fact=='N'","1st keyword fact","zgtsvx:slen(fact)=%d fact=\"%s\"",fact)if (!(*fact=='F'||*fact=='N')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgtsvx:slen(fact)=%d fact=\"%s\"", "(""*fact=='F'||*fact=='N'" ") failed for ""1st keyword fact", capi_fact_len, fact); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 34483 | /* Processing variable trans */ | |||
| 34484 | slen(trans)capi_trans_len = 1; | |||
| 34485 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.zgtsvx to C string"); | |||
| 34486 | if (f2py_success) { | |||
| 34487 | CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T',"*trans=='N'||*trans=='C'||*trans=='T'","2nd keyword trans","zgtsvx:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C'||*trans=='T')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgtsvx:slen(trans)=%d trans=\"%s\"" , "(""*trans=='N'||*trans=='C'||*trans=='T'"") failed for ""2nd keyword trans" , capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 34488 | /* Processing variable x */ | |||
| 34489 | x_Dims[0]=ldx,x_Dims[1]=nrhs; | |||
| 34490 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 34491 | capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 34492 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 34493 | if (!PyErr_Occurred()) | |||
| 34494 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zgtsvx to C/Fortran array" ); | |||
| 34495 | } else { | |||
| 34496 | x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 34497 | ||||
| 34498 | /*end of frompyobj*/ | |||
| 34499 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34500 | f2py_start_call_clock(); | |||
| 34501 | #endif | |||
| 34502 | /*callfortranroutine*/ | |||
| 34503 | (*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info); ; | |||
| 34504 | /*(*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info,slen(fact),slen(trans));*/ | |||
| 34505 | if (PyErr_Occurred()) | |||
| 34506 | f2py_success = 0; | |||
| 34507 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34508 | f2py_stop_call_clock(); | |||
| 34509 | #endif | |||
| 34510 | /*end of callfortranroutine*/ | |||
| 34511 | if (f2py_success) { | |||
| 34512 | /*pyobjfrom*/ | |||
| 34513 | /*end of pyobjfrom*/ | |||
| 34514 | CFUNCSMESS("Building return value.\n"); | |||
| 34515 | capi_buildvalue = Py_BuildValue("NNNNNNdNNi",capi_dlf_tmp,capi_df_tmp,capi_duf_tmp,capi_du2_tmp,capi_ipiv_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 34516 | /*closepyobjfrom*/ | |||
| 34517 | /*end of closepyobjfrom*/ | |||
| 34518 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 34519 | /*cleanupfrompyobj*/ | |||
| 34520 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 34521 | /* End of cleaning variable x */ | |||
| 34522 | } /*CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T')*/ | |||
| 34523 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 34524 | } /*if (f2py_success) of trans*/ | |||
| 34525 | /* End of cleaning variable trans */ | |||
| 34526 | } /*CHECKSTRING(*fact=='F'||*fact=='N')*/ | |||
| 34527 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 34528 | } /*if (f2py_success) of fact*/ | |||
| 34529 | /* End of cleaning variable fact */ | |||
| 34530 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 34531 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 34532 | /* End of cleaning variable rwork */ | |||
| 34533 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 34534 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 34535 | /* End of cleaning variable work */ | |||
| 34536 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 34537 | /* End of cleaning variable berr */ | |||
| 34538 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 34539 | /* End of cleaning variable ferr */ | |||
| 34540 | /* End of cleaning variable ldx */ | |||
| 34541 | } /*CHECKSCALAR(ldb >= n)*/ | |||
| 34542 | /* End of cleaning variable ldb */ | |||
| 34543 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 34544 | /* End of cleaning variable ipiv */ | |||
| 34545 | } /*if (capi_du2_tmp == NULL) ... else of du2*/ | |||
| 34546 | /* End of cleaning variable du2 */ | |||
| 34547 | } /*if (capi_duf_tmp == NULL) ... else of duf*/ | |||
| 34548 | /* End of cleaning variable duf */ | |||
| 34549 | } /*if (capi_df_tmp == NULL) ... else of df*/ | |||
| 34550 | /* End of cleaning variable df */ | |||
| 34551 | } /*if (capi_dlf_tmp == NULL) ... else of dlf*/ | |||
| 34552 | /* End of cleaning variable dlf */ | |||
| 34553 | if((PyObject *)capi_du_tmp!=du_capi) { | |||
| 34554 | Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); } | |||
| 34555 | } /*if (capi_du_tmp == NULL) ... else of du*/ | |||
| 34556 | /* End of cleaning variable du */ | |||
| 34557 | if((PyObject *)capi_dl_tmp!=dl_capi) { | |||
| 34558 | Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); } | |||
| 34559 | } /*if (capi_dl_tmp == NULL) ... else of dl*/ | |||
| 34560 | /* End of cleaning variable dl */ | |||
| 34561 | /* End of cleaning variable nrhs */ | |||
| 34562 | /* End of cleaning variable n */ | |||
| 34563 | /* End of cleaning variable info */ | |||
| 34564 | /* End of cleaning variable rcond */ | |||
| 34565 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 34566 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 34567 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 34568 | /* End of cleaning variable b */ | |||
| 34569 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 34570 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 34571 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 34572 | /* End of cleaning variable d */ | |||
| 34573 | /*end of cleanupfrompyobj*/ | |||
| 34574 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 34575 | /*routdebugfailure*/ | |||
| 34576 | } else { | |||
| 34577 | /*routdebugleave*/ | |||
| 34578 | } | |||
| 34579 | CFUNCSMESS("Freeing memory.\n"); | |||
| 34580 | /*freemem*/ | |||
| 34581 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34582 | f2py_stop_clock(); | |||
| 34583 | #endif | |||
| 34584 | return capi_buildvalue; | |||
| 34585 | } | |||
| 34586 | /******************************* end of zgtsvx *******************************/ | |||
| 34587 | ||||
| 34588 | /*********************************** ssyev ***********************************/ | |||
| 34589 | static char doc_f2py_rout__flapack_ssyev[] = "\ | |||
| 34590 | w,v,info = ssyev(a,[compute_v,lower,lwork,overwrite_a])\n\nWrapper for ``ssyev``.\ | |||
| 34591 | \n\nParameters\n----------\n" | |||
| 34592 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 34593 | "\nOther Parameters\n----------------\n" | |||
| 34594 | "compute_v : input int, optional\n Default: 1\n" | |||
| 34595 | "lower : input int, optional\n Default: 0\n" | |||
| 34596 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 34597 | "lwork : input int, optional\n Default: max(3*n-1,1)\n" | |||
| 34598 | "\nReturns\n-------\n" | |||
| 34599 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 34600 | "v : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 34601 | "info : int"; | |||
| 34602 | /* extern void F_FUNC(ssyev,SSYEV)(char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 34603 | static PyObject *f2py_rout__flapack_ssyev(const PyObject *capi_self, | |||
| 34604 | PyObject *capi_args, | |||
| 34605 | PyObject *capi_keywds, | |||
| 34606 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 34607 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 34608 | volatile int f2py_success = 1; | |||
| 34609 | /*decl*/ | |||
| 34610 | ||||
| 34611 | int compute_v = 0; | |||
| 34612 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 34613 | int lower = 0; | |||
| 34614 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 34615 | int n = 0; | |||
| 34616 | float *w = NULL((void*)0); | |||
| 34617 | npy_intp w_Dims[1] = {-1}; | |||
| 34618 | const int w_Rank = 1; | |||
| 34619 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 34620 | int capi_w_intent = 0; | |||
| 34621 | float *a = NULL((void*)0); | |||
| 34622 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 34623 | const int a_Rank = 2; | |||
| 34624 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 34625 | int capi_a_intent = 0; | |||
| 34626 | int capi_overwrite_a = 0; | |||
| 34627 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 34628 | int lda = 0; | |||
| 34629 | float *work = NULL((void*)0); | |||
| 34630 | npy_intp work_Dims[1] = {-1}; | |||
| 34631 | const int work_Rank = 1; | |||
| 34632 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 34633 | int capi_work_intent = 0; | |||
| 34634 | int lwork = 0; | |||
| 34635 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 34636 | int info = 0; | |||
| 34637 | static char *capi_kwlist[] = {"a","compute_v","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 34638 | ||||
| 34639 | /*routdebugenter*/ | |||
| 34640 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34641 | f2py_start_clock(); | |||
| 34642 | #endif | |||
| 34643 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 34644 | "O|OOOi:_flapack.ssyev",\ | |||
| 34645 | capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 34646 | return NULL((void*)0); | |||
| 34647 | /*frompyobj*/ | |||
| 34648 | /* Processing variable compute_v */ | |||
| 34649 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 34650 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssyev() 1st keyword (compute_v) can't be converted to int"); | |||
| 34651 | if (f2py_success) { | |||
| 34652 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","ssyev:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyev:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 34653 | /* Processing variable lower */ | |||
| 34654 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 34655 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyev() 2nd keyword (lower) can't be converted to int"); | |||
| 34656 | if (f2py_success) { | |||
| 34657 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssyev:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyev:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 34658 | /* Processing variable a */ | |||
| 34659 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 34660 | ; | |||
| 34661 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 34662 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 34663 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 34664 | if (!PyErr_Occurred()) | |||
| 34665 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssyev to C/Fortran array" ); | |||
| 34666 | } else { | |||
| 34667 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 34668 | ||||
| 34669 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 34670 | /* Processing variable info */ | |||
| 34671 | /* Processing variable n */ | |||
| 34672 | n = shape(a,0)a_Dims[0]; | |||
| 34673 | /* Processing variable lda */ | |||
| 34674 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 34675 | /* Processing variable w */ | |||
| 34676 | w_Dims[0]=n; | |||
| 34677 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 34678 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 34679 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 34680 | if (!PyErr_Occurred()) | |||
| 34681 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssyev to C/Fortran array" ); | |||
| 34682 | } else { | |||
| 34683 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 34684 | ||||
| 34685 | /* Processing variable lwork */ | |||
| 34686 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n-1,1)((3*n-1 > 1) ? (3*n-1) : (1)); else | |||
| 34687 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssyev() 3rd keyword (lwork) can't be converted to int"); | |||
| 34688 | if (f2py_success) { | |||
| 34689 | CHECKSCALAR(lwork>=3*n-1,"lwork>=3*n-1","3rd keyword lwork","ssyev:lwork=%d",lwork)if (!(lwork>=3*n-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyev:lwork=%d", "(""lwork>=3*n-1"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 34690 | /* Processing variable work */ | |||
| 34691 | work_Dims[0]=lwork; | |||
| 34692 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 34693 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 34694 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 34695 | if (!PyErr_Occurred()) | |||
| 34696 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssyev to C/Fortran array" ); | |||
| 34697 | } else { | |||
| 34698 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 34699 | ||||
| 34700 | /*end of frompyobj*/ | |||
| 34701 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34702 | f2py_start_call_clock(); | |||
| 34703 | #endif | |||
| 34704 | /*callfortranroutine*/ | |||
| 34705 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,&info) ; | |||
| 34706 | /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,&info);*/ | |||
| 34707 | if (PyErr_Occurred()) | |||
| 34708 | f2py_success = 0; | |||
| 34709 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34710 | f2py_stop_call_clock(); | |||
| 34711 | #endif | |||
| 34712 | /*end of callfortranroutine*/ | |||
| 34713 | if (f2py_success) { | |||
| 34714 | /*pyobjfrom*/ | |||
| 34715 | /*end of pyobjfrom*/ | |||
| 34716 | CFUNCSMESS("Building return value.\n"); | |||
| 34717 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 34718 | /*closepyobjfrom*/ | |||
| 34719 | /*end of closepyobjfrom*/ | |||
| 34720 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 34721 | /*cleanupfrompyobj*/ | |||
| 34722 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 34723 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 34724 | /* End of cleaning variable work */ | |||
| 34725 | } /*CHECKSCALAR(lwork>=3*n-1)*/ | |||
| 34726 | } /*if (f2py_success) of lwork*/ | |||
| 34727 | /* End of cleaning variable lwork */ | |||
| 34728 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 34729 | /* End of cleaning variable w */ | |||
| 34730 | /* End of cleaning variable lda */ | |||
| 34731 | /* End of cleaning variable n */ | |||
| 34732 | /* End of cleaning variable info */ | |||
| 34733 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 34734 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 34735 | /* End of cleaning variable a */ | |||
| 34736 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 34737 | } /*if (f2py_success) of lower*/ | |||
| 34738 | /* End of cleaning variable lower */ | |||
| 34739 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 34740 | } /*if (f2py_success) of compute_v*/ | |||
| 34741 | /* End of cleaning variable compute_v */ | |||
| 34742 | /*end of cleanupfrompyobj*/ | |||
| 34743 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 34744 | /*routdebugfailure*/ | |||
| 34745 | } else { | |||
| 34746 | /*routdebugleave*/ | |||
| 34747 | } | |||
| 34748 | CFUNCSMESS("Freeing memory.\n"); | |||
| 34749 | /*freemem*/ | |||
| 34750 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34751 | f2py_stop_clock(); | |||
| 34752 | #endif | |||
| 34753 | return capi_buildvalue; | |||
| 34754 | } | |||
| 34755 | /******************************** end of ssyev ********************************/ | |||
| 34756 | ||||
| 34757 | /*********************************** dsyev ***********************************/ | |||
| 34758 | static char doc_f2py_rout__flapack_dsyev[] = "\ | |||
| 34759 | w,v,info = dsyev(a,[compute_v,lower,lwork,overwrite_a])\n\nWrapper for ``dsyev``.\ | |||
| 34760 | \n\nParameters\n----------\n" | |||
| 34761 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 34762 | "\nOther Parameters\n----------------\n" | |||
| 34763 | "compute_v : input int, optional\n Default: 1\n" | |||
| 34764 | "lower : input int, optional\n Default: 0\n" | |||
| 34765 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 34766 | "lwork : input int, optional\n Default: max(3*n-1,1)\n" | |||
| 34767 | "\nReturns\n-------\n" | |||
| 34768 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 34769 | "v : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 34770 | "info : int"; | |||
| 34771 | /* extern void F_FUNC(dsyev,DSYEV)(char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 34772 | static PyObject *f2py_rout__flapack_dsyev(const PyObject *capi_self, | |||
| 34773 | PyObject *capi_args, | |||
| 34774 | PyObject *capi_keywds, | |||
| 34775 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 34776 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 34777 | volatile int f2py_success = 1; | |||
| 34778 | /*decl*/ | |||
| 34779 | ||||
| 34780 | int compute_v = 0; | |||
| 34781 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 34782 | int lower = 0; | |||
| 34783 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 34784 | int n = 0; | |||
| 34785 | double *w = NULL((void*)0); | |||
| 34786 | npy_intp w_Dims[1] = {-1}; | |||
| 34787 | const int w_Rank = 1; | |||
| 34788 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 34789 | int capi_w_intent = 0; | |||
| 34790 | double *a = NULL((void*)0); | |||
| 34791 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 34792 | const int a_Rank = 2; | |||
| 34793 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 34794 | int capi_a_intent = 0; | |||
| 34795 | int capi_overwrite_a = 0; | |||
| 34796 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 34797 | int lda = 0; | |||
| 34798 | double *work = NULL((void*)0); | |||
| 34799 | npy_intp work_Dims[1] = {-1}; | |||
| 34800 | const int work_Rank = 1; | |||
| 34801 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 34802 | int capi_work_intent = 0; | |||
| 34803 | int lwork = 0; | |||
| 34804 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 34805 | int info = 0; | |||
| 34806 | static char *capi_kwlist[] = {"a","compute_v","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 34807 | ||||
| 34808 | /*routdebugenter*/ | |||
| 34809 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34810 | f2py_start_clock(); | |||
| 34811 | #endif | |||
| 34812 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 34813 | "O|OOOi:_flapack.dsyev",\ | |||
| 34814 | capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 34815 | return NULL((void*)0); | |||
| 34816 | /*frompyobj*/ | |||
| 34817 | /* Processing variable compute_v */ | |||
| 34818 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 34819 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsyev() 1st keyword (compute_v) can't be converted to int"); | |||
| 34820 | if (f2py_success) { | |||
| 34821 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","dsyev:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyev:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 34822 | /* Processing variable lower */ | |||
| 34823 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 34824 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyev() 2nd keyword (lower) can't be converted to int"); | |||
| 34825 | if (f2py_success) { | |||
| 34826 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsyev:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyev:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 34827 | /* Processing variable a */ | |||
| 34828 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 34829 | ; | |||
| 34830 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 34831 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 34832 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 34833 | if (!PyErr_Occurred()) | |||
| 34834 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsyev to C/Fortran array" ); | |||
| 34835 | } else { | |||
| 34836 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 34837 | ||||
| 34838 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 34839 | /* Processing variable info */ | |||
| 34840 | /* Processing variable n */ | |||
| 34841 | n = shape(a,0)a_Dims[0]; | |||
| 34842 | /* Processing variable lda */ | |||
| 34843 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 34844 | /* Processing variable w */ | |||
| 34845 | w_Dims[0]=n; | |||
| 34846 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 34847 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 34848 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 34849 | if (!PyErr_Occurred()) | |||
| 34850 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsyev to C/Fortran array" ); | |||
| 34851 | } else { | |||
| 34852 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 34853 | ||||
| 34854 | /* Processing variable lwork */ | |||
| 34855 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n-1,1)((3*n-1 > 1) ? (3*n-1) : (1)); else | |||
| 34856 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsyev() 3rd keyword (lwork) can't be converted to int"); | |||
| 34857 | if (f2py_success) { | |||
| 34858 | CHECKSCALAR(lwork>=3*n-1,"lwork>=3*n-1","3rd keyword lwork","dsyev:lwork=%d",lwork)if (!(lwork>=3*n-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyev:lwork=%d", "(""lwork>=3*n-1"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 34859 | /* Processing variable work */ | |||
| 34860 | work_Dims[0]=lwork; | |||
| 34861 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 34862 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 34863 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 34864 | if (!PyErr_Occurred()) | |||
| 34865 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsyev to C/Fortran array" ); | |||
| 34866 | } else { | |||
| 34867 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 34868 | ||||
| 34869 | /*end of frompyobj*/ | |||
| 34870 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34871 | f2py_start_call_clock(); | |||
| 34872 | #endif | |||
| 34873 | /*callfortranroutine*/ | |||
| 34874 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,&info) ; | |||
| 34875 | /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,&info);*/ | |||
| 34876 | if (PyErr_Occurred()) | |||
| 34877 | f2py_success = 0; | |||
| 34878 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34879 | f2py_stop_call_clock(); | |||
| 34880 | #endif | |||
| 34881 | /*end of callfortranroutine*/ | |||
| 34882 | if (f2py_success) { | |||
| 34883 | /*pyobjfrom*/ | |||
| 34884 | /*end of pyobjfrom*/ | |||
| 34885 | CFUNCSMESS("Building return value.\n"); | |||
| 34886 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 34887 | /*closepyobjfrom*/ | |||
| 34888 | /*end of closepyobjfrom*/ | |||
| 34889 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 34890 | /*cleanupfrompyobj*/ | |||
| 34891 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 34892 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 34893 | /* End of cleaning variable work */ | |||
| 34894 | } /*CHECKSCALAR(lwork>=3*n-1)*/ | |||
| 34895 | } /*if (f2py_success) of lwork*/ | |||
| 34896 | /* End of cleaning variable lwork */ | |||
| 34897 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 34898 | /* End of cleaning variable w */ | |||
| 34899 | /* End of cleaning variable lda */ | |||
| 34900 | /* End of cleaning variable n */ | |||
| 34901 | /* End of cleaning variable info */ | |||
| 34902 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 34903 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 34904 | /* End of cleaning variable a */ | |||
| 34905 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 34906 | } /*if (f2py_success) of lower*/ | |||
| 34907 | /* End of cleaning variable lower */ | |||
| 34908 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 34909 | } /*if (f2py_success) of compute_v*/ | |||
| 34910 | /* End of cleaning variable compute_v */ | |||
| 34911 | /*end of cleanupfrompyobj*/ | |||
| 34912 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 34913 | /*routdebugfailure*/ | |||
| 34914 | } else { | |||
| 34915 | /*routdebugleave*/ | |||
| 34916 | } | |||
| 34917 | CFUNCSMESS("Freeing memory.\n"); | |||
| 34918 | /*freemem*/ | |||
| 34919 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34920 | f2py_stop_clock(); | |||
| 34921 | #endif | |||
| 34922 | return capi_buildvalue; | |||
| 34923 | } | |||
| 34924 | /******************************** end of dsyev ********************************/ | |||
| 34925 | ||||
| 34926 | /******************************** ssyev_lwork ********************************/ | |||
| 34927 | static char doc_f2py_rout__flapack_ssyev_lwork[] = "\ | |||
| 34928 | work,info = ssyev_lwork(n,[lower])\n\nWrapper for ``ssyev_lwork``.\ | |||
| 34929 | \n\nParameters\n----------\n" | |||
| 34930 | "n : input int\n" | |||
| 34931 | "\nOther Parameters\n----------------\n" | |||
| 34932 | "lower : input int, optional\n Default: 0\n" | |||
| 34933 | "\nReturns\n-------\n" | |||
| 34934 | "work : float\n" | |||
| 34935 | "info : int"; | |||
| 34936 | /* extern void F_FUNC(ssyev ,SSYEV )(char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 34937 | static PyObject *f2py_rout__flapack_ssyev_lwork(const PyObject *capi_self, | |||
| 34938 | PyObject *capi_args, | |||
| 34939 | PyObject *capi_keywds, | |||
| 34940 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 34941 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 34942 | volatile int f2py_success = 1; | |||
| 34943 | /*decl*/ | |||
| 34944 | ||||
| 34945 | int lower = 0; | |||
| 34946 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 34947 | int n = 0; | |||
| 34948 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 34949 | float w = 0; | |||
| 34950 | float a = 0; | |||
| 34951 | int lda = 0; | |||
| 34952 | float work = 0; | |||
| 34953 | int lwork = 0; | |||
| 34954 | int info = 0; | |||
| 34955 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 34956 | ||||
| 34957 | /*routdebugenter*/ | |||
| 34958 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34959 | f2py_start_clock(); | |||
| 34960 | #endif | |||
| 34961 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 34962 | "O|O:_flapack.ssyev_lwork",\ | |||
| 34963 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 34964 | return NULL((void*)0); | |||
| 34965 | /*frompyobj*/ | |||
| 34966 | /* Processing variable n */ | |||
| 34967 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssyev_lwork() 1st argument (n) can't be converted to int"); | |||
| 34968 | if (f2py_success) { | |||
| 34969 | /* Processing variable lower */ | |||
| 34970 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 34971 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyev_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 34972 | if (f2py_success) { | |||
| 34973 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssyev_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyev_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 34974 | /* Processing variable a */ | |||
| 34975 | /* Processing variable w */ | |||
| 34976 | /* Processing variable lwork */ | |||
| 34977 | lwork = -1; | |||
| 34978 | /* Processing variable work */ | |||
| 34979 | /* Processing variable info */ | |||
| 34980 | /* Processing variable lda */ | |||
| 34981 | lda = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 34982 | /*end of frompyobj*/ | |||
| 34983 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34984 | f2py_start_call_clock(); | |||
| 34985 | #endif | |||
| 34986 | /*callfortranroutine*/ | |||
| 34987 | (*f2py_func)("N",(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&info) ; | |||
| 34988 | /*(*f2py_func)(&lower,&n,&w,&a,&lda,&work,&lwork,&info);*/ | |||
| 34989 | if (PyErr_Occurred()) | |||
| 34990 | f2py_success = 0; | |||
| 34991 | #ifdef F2PY_REPORT_ATEXIT | |||
| 34992 | f2py_stop_call_clock(); | |||
| 34993 | #endif | |||
| 34994 | /*end of callfortranroutine*/ | |||
| 34995 | if (f2py_success) { | |||
| 34996 | /*pyobjfrom*/ | |||
| 34997 | /*end of pyobjfrom*/ | |||
| 34998 | CFUNCSMESS("Building return value.\n"); | |||
| 34999 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 35000 | /*closepyobjfrom*/ | |||
| 35001 | /*end of closepyobjfrom*/ | |||
| 35002 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 35003 | /*cleanupfrompyobj*/ | |||
| 35004 | /* End of cleaning variable lda */ | |||
| 35005 | /* End of cleaning variable info */ | |||
| 35006 | /* End of cleaning variable work */ | |||
| 35007 | /* End of cleaning variable lwork */ | |||
| 35008 | /* End of cleaning variable w */ | |||
| 35009 | /* End of cleaning variable a */ | |||
| 35010 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 35011 | } /*if (f2py_success) of lower*/ | |||
| 35012 | /* End of cleaning variable lower */ | |||
| 35013 | } /*if (f2py_success) of n*/ | |||
| 35014 | /* End of cleaning variable n */ | |||
| 35015 | /*end of cleanupfrompyobj*/ | |||
| 35016 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 35017 | /*routdebugfailure*/ | |||
| 35018 | } else { | |||
| 35019 | /*routdebugleave*/ | |||
| 35020 | } | |||
| 35021 | CFUNCSMESS("Freeing memory.\n"); | |||
| 35022 | /*freemem*/ | |||
| 35023 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35024 | f2py_stop_clock(); | |||
| 35025 | #endif | |||
| 35026 | return capi_buildvalue; | |||
| 35027 | } | |||
| 35028 | /***************************** end of ssyev_lwork *****************************/ | |||
| 35029 | ||||
| 35030 | /******************************** dsyev_lwork ********************************/ | |||
| 35031 | static char doc_f2py_rout__flapack_dsyev_lwork[] = "\ | |||
| 35032 | work,info = dsyev_lwork(n,[lower])\n\nWrapper for ``dsyev_lwork``.\ | |||
| 35033 | \n\nParameters\n----------\n" | |||
| 35034 | "n : input int\n" | |||
| 35035 | "\nOther Parameters\n----------------\n" | |||
| 35036 | "lower : input int, optional\n Default: 0\n" | |||
| 35037 | "\nReturns\n-------\n" | |||
| 35038 | "work : float\n" | |||
| 35039 | "info : int"; | |||
| 35040 | /* extern void F_FUNC(dsyev ,DSYEV )(char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 35041 | static PyObject *f2py_rout__flapack_dsyev_lwork(const PyObject *capi_self, | |||
| 35042 | PyObject *capi_args, | |||
| 35043 | PyObject *capi_keywds, | |||
| 35044 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 35045 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 35046 | volatile int f2py_success = 1; | |||
| 35047 | /*decl*/ | |||
| 35048 | ||||
| 35049 | int lower = 0; | |||
| 35050 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 35051 | int n = 0; | |||
| 35052 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 35053 | double w = 0; | |||
| 35054 | double a = 0; | |||
| 35055 | int lda = 0; | |||
| 35056 | double work = 0; | |||
| 35057 | int lwork = 0; | |||
| 35058 | int info = 0; | |||
| 35059 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 35060 | ||||
| 35061 | /*routdebugenter*/ | |||
| 35062 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35063 | f2py_start_clock(); | |||
| 35064 | #endif | |||
| 35065 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 35066 | "O|O:_flapack.dsyev_lwork",\ | |||
| 35067 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 35068 | return NULL((void*)0); | |||
| 35069 | /*frompyobj*/ | |||
| 35070 | /* Processing variable n */ | |||
| 35071 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsyev_lwork() 1st argument (n) can't be converted to int"); | |||
| 35072 | if (f2py_success) { | |||
| 35073 | /* Processing variable lower */ | |||
| 35074 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 35075 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyev_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 35076 | if (f2py_success) { | |||
| 35077 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsyev_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyev_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 35078 | /* Processing variable a */ | |||
| 35079 | /* Processing variable w */ | |||
| 35080 | /* Processing variable lwork */ | |||
| 35081 | lwork = -1; | |||
| 35082 | /* Processing variable work */ | |||
| 35083 | /* Processing variable info */ | |||
| 35084 | /* Processing variable lda */ | |||
| 35085 | lda = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 35086 | /*end of frompyobj*/ | |||
| 35087 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35088 | f2py_start_call_clock(); | |||
| 35089 | #endif | |||
| 35090 | /*callfortranroutine*/ | |||
| 35091 | (*f2py_func)("N",(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&info) ; | |||
| 35092 | /*(*f2py_func)(&lower,&n,&w,&a,&lda,&work,&lwork,&info);*/ | |||
| 35093 | if (PyErr_Occurred()) | |||
| 35094 | f2py_success = 0; | |||
| 35095 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35096 | f2py_stop_call_clock(); | |||
| 35097 | #endif | |||
| 35098 | /*end of callfortranroutine*/ | |||
| 35099 | if (f2py_success) { | |||
| 35100 | /*pyobjfrom*/ | |||
| 35101 | /*end of pyobjfrom*/ | |||
| 35102 | CFUNCSMESS("Building return value.\n"); | |||
| 35103 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 35104 | /*closepyobjfrom*/ | |||
| 35105 | /*end of closepyobjfrom*/ | |||
| 35106 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 35107 | /*cleanupfrompyobj*/ | |||
| 35108 | /* End of cleaning variable lda */ | |||
| 35109 | /* End of cleaning variable info */ | |||
| 35110 | /* End of cleaning variable work */ | |||
| 35111 | /* End of cleaning variable lwork */ | |||
| 35112 | /* End of cleaning variable w */ | |||
| 35113 | /* End of cleaning variable a */ | |||
| 35114 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 35115 | } /*if (f2py_success) of lower*/ | |||
| 35116 | /* End of cleaning variable lower */ | |||
| 35117 | } /*if (f2py_success) of n*/ | |||
| 35118 | /* End of cleaning variable n */ | |||
| 35119 | /*end of cleanupfrompyobj*/ | |||
| 35120 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 35121 | /*routdebugfailure*/ | |||
| 35122 | } else { | |||
| 35123 | /*routdebugleave*/ | |||
| 35124 | } | |||
| 35125 | CFUNCSMESS("Freeing memory.\n"); | |||
| 35126 | /*freemem*/ | |||
| 35127 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35128 | f2py_stop_clock(); | |||
| 35129 | #endif | |||
| 35130 | return capi_buildvalue; | |||
| 35131 | } | |||
| 35132 | /***************************** end of dsyev_lwork *****************************/ | |||
| 35133 | ||||
| 35134 | /*********************************** cheev ***********************************/ | |||
| 35135 | static char doc_f2py_rout__flapack_cheev[] = "\ | |||
| 35136 | w,v,info = cheev(a,[compute_v,lower,lwork,overwrite_a])\n\nWrapper for ``cheev``.\ | |||
| 35137 | \n\nParameters\n----------\n" | |||
| 35138 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 35139 | "\nOther Parameters\n----------------\n" | |||
| 35140 | "compute_v : input int, optional\n Default: 1\n" | |||
| 35141 | "lower : input int, optional\n Default: 0\n" | |||
| 35142 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 35143 | "lwork : input int, optional\n Default: max(2*n-1,1)\n" | |||
| 35144 | "\nReturns\n-------\n" | |||
| 35145 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 35146 | "v : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 35147 | "info : int"; | |||
| 35148 | /* extern void F_FUNC(cheev,CHEEV)(char*,char*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 35149 | static PyObject *f2py_rout__flapack_cheev(const PyObject *capi_self, | |||
| 35150 | PyObject *capi_args, | |||
| 35151 | PyObject *capi_keywds, | |||
| 35152 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 35153 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 35154 | volatile int f2py_success = 1; | |||
| 35155 | /*decl*/ | |||
| 35156 | ||||
| 35157 | int compute_v = 0; | |||
| 35158 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 35159 | int lower = 0; | |||
| 35160 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 35161 | int n = 0; | |||
| 35162 | float *w = NULL((void*)0); | |||
| 35163 | npy_intp w_Dims[1] = {-1}; | |||
| 35164 | const int w_Rank = 1; | |||
| 35165 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 35166 | int capi_w_intent = 0; | |||
| 35167 | complex_float *a = NULL((void*)0); | |||
| 35168 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 35169 | const int a_Rank = 2; | |||
| 35170 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 35171 | int capi_a_intent = 0; | |||
| 35172 | int capi_overwrite_a = 0; | |||
| 35173 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 35174 | int lda = 0; | |||
| 35175 | complex_float *work = NULL((void*)0); | |||
| 35176 | npy_intp work_Dims[1] = {-1}; | |||
| 35177 | const int work_Rank = 1; | |||
| 35178 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 35179 | int capi_work_intent = 0; | |||
| 35180 | int lwork = 0; | |||
| 35181 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 35182 | float *rwork = NULL((void*)0); | |||
| 35183 | npy_intp rwork_Dims[1] = {-1}; | |||
| 35184 | const int rwork_Rank = 1; | |||
| 35185 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 35186 | int capi_rwork_intent = 0; | |||
| 35187 | int info = 0; | |||
| 35188 | static char *capi_kwlist[] = {"a","compute_v","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 35189 | ||||
| 35190 | /*routdebugenter*/ | |||
| 35191 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35192 | f2py_start_clock(); | |||
| 35193 | #endif | |||
| 35194 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 35195 | "O|OOOi:_flapack.cheev",\ | |||
| 35196 | capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 35197 | return NULL((void*)0); | |||
| 35198 | /*frompyobj*/ | |||
| 35199 | /* Processing variable compute_v */ | |||
| 35200 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 35201 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.cheev() 1st keyword (compute_v) can't be converted to int"); | |||
| 35202 | if (f2py_success) { | |||
| 35203 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","cheev:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheev:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 35204 | /* Processing variable lower */ | |||
| 35205 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 35206 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheev() 2nd keyword (lower) can't be converted to int"); | |||
| 35207 | if (f2py_success) { | |||
| 35208 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","cheev:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheev:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 35209 | /* Processing variable a */ | |||
| 35210 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 35211 | ; | |||
| 35212 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 35213 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 35214 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 35215 | if (!PyErr_Occurred()) | |||
| 35216 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cheev to C/Fortran array" ); | |||
| 35217 | } else { | |||
| 35218 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 35219 | ||||
| 35220 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 35221 | /* Processing variable info */ | |||
| 35222 | /* Processing variable n */ | |||
| 35223 | n = shape(a,0)a_Dims[0]; | |||
| 35224 | /* Processing variable lda */ | |||
| 35225 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 35226 | /* Processing variable w */ | |||
| 35227 | w_Dims[0]=n; | |||
| 35228 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 35229 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 35230 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 35231 | if (!PyErr_Occurred()) | |||
| 35232 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.cheev to C/Fortran array" ); | |||
| 35233 | } else { | |||
| 35234 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 35235 | ||||
| 35236 | /* Processing variable lwork */ | |||
| 35237 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n-1,1)((2*n-1 > 1) ? (2*n-1) : (1)); else | |||
| 35238 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cheev() 3rd keyword (lwork) can't be converted to int"); | |||
| 35239 | if (f2py_success) { | |||
| 35240 | CHECKSCALAR(lwork>=2*n-1,"lwork>=2*n-1","3rd keyword lwork","cheev:lwork=%d",lwork)if (!(lwork>=2*n-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheev:lwork=%d", "(""lwork>=2*n-1"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 35241 | /* Processing variable work */ | |||
| 35242 | work_Dims[0]=lwork; | |||
| 35243 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 35244 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 35245 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 35246 | if (!PyErr_Occurred()) | |||
| 35247 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cheev to C/Fortran array" ); | |||
| 35248 | } else { | |||
| 35249 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 35250 | ||||
| 35251 | /* Processing variable rwork */ | |||
| 35252 | rwork_Dims[0]=3 * n - 1; | |||
| 35253 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 35254 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 35255 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 35256 | if (!PyErr_Occurred()) | |||
| 35257 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cheev to C/Fortran array" ); | |||
| 35258 | } else { | |||
| 35259 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 35260 | ||||
| 35261 | /*end of frompyobj*/ | |||
| 35262 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35263 | f2py_start_call_clock(); | |||
| 35264 | #endif | |||
| 35265 | /*callfortranroutine*/ | |||
| 35266 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,rwork,&info) ; | |||
| 35267 | /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,rwork,&info);*/ | |||
| 35268 | if (PyErr_Occurred()) | |||
| 35269 | f2py_success = 0; | |||
| 35270 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35271 | f2py_stop_call_clock(); | |||
| 35272 | #endif | |||
| 35273 | /*end of callfortranroutine*/ | |||
| 35274 | if (f2py_success) { | |||
| 35275 | /*pyobjfrom*/ | |||
| 35276 | /*end of pyobjfrom*/ | |||
| 35277 | CFUNCSMESS("Building return value.\n"); | |||
| 35278 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 35279 | /*closepyobjfrom*/ | |||
| 35280 | /*end of closepyobjfrom*/ | |||
| 35281 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 35282 | /*cleanupfrompyobj*/ | |||
| 35283 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 35284 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 35285 | /* End of cleaning variable rwork */ | |||
| 35286 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 35287 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 35288 | /* End of cleaning variable work */ | |||
| 35289 | } /*CHECKSCALAR(lwork>=2*n-1)*/ | |||
| 35290 | } /*if (f2py_success) of lwork*/ | |||
| 35291 | /* End of cleaning variable lwork */ | |||
| 35292 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 35293 | /* End of cleaning variable w */ | |||
| 35294 | /* End of cleaning variable lda */ | |||
| 35295 | /* End of cleaning variable n */ | |||
| 35296 | /* End of cleaning variable info */ | |||
| 35297 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 35298 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 35299 | /* End of cleaning variable a */ | |||
| 35300 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 35301 | } /*if (f2py_success) of lower*/ | |||
| 35302 | /* End of cleaning variable lower */ | |||
| 35303 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 35304 | } /*if (f2py_success) of compute_v*/ | |||
| 35305 | /* End of cleaning variable compute_v */ | |||
| 35306 | /*end of cleanupfrompyobj*/ | |||
| 35307 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 35308 | /*routdebugfailure*/ | |||
| 35309 | } else { | |||
| 35310 | /*routdebugleave*/ | |||
| 35311 | } | |||
| 35312 | CFUNCSMESS("Freeing memory.\n"); | |||
| 35313 | /*freemem*/ | |||
| 35314 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35315 | f2py_stop_clock(); | |||
| 35316 | #endif | |||
| 35317 | return capi_buildvalue; | |||
| 35318 | } | |||
| 35319 | /******************************** end of cheev ********************************/ | |||
| 35320 | ||||
| 35321 | /*********************************** zheev ***********************************/ | |||
| 35322 | static char doc_f2py_rout__flapack_zheev[] = "\ | |||
| 35323 | w,v,info = zheev(a,[compute_v,lower,lwork,overwrite_a])\n\nWrapper for ``zheev``.\ | |||
| 35324 | \n\nParameters\n----------\n" | |||
| 35325 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 35326 | "\nOther Parameters\n----------------\n" | |||
| 35327 | "compute_v : input int, optional\n Default: 1\n" | |||
| 35328 | "lower : input int, optional\n Default: 0\n" | |||
| 35329 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 35330 | "lwork : input int, optional\n Default: max(2*n-1,1)\n" | |||
| 35331 | "\nReturns\n-------\n" | |||
| 35332 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 35333 | "v : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 35334 | "info : int"; | |||
| 35335 | /* extern void F_FUNC(zheev,ZHEEV)(char*,char*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 35336 | static PyObject *f2py_rout__flapack_zheev(const PyObject *capi_self, | |||
| 35337 | PyObject *capi_args, | |||
| 35338 | PyObject *capi_keywds, | |||
| 35339 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 35340 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 35341 | volatile int f2py_success = 1; | |||
| 35342 | /*decl*/ | |||
| 35343 | ||||
| 35344 | int compute_v = 0; | |||
| 35345 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 35346 | int lower = 0; | |||
| 35347 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 35348 | int n = 0; | |||
| 35349 | double *w = NULL((void*)0); | |||
| 35350 | npy_intp w_Dims[1] = {-1}; | |||
| 35351 | const int w_Rank = 1; | |||
| 35352 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 35353 | int capi_w_intent = 0; | |||
| 35354 | complex_double *a = NULL((void*)0); | |||
| 35355 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 35356 | const int a_Rank = 2; | |||
| 35357 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 35358 | int capi_a_intent = 0; | |||
| 35359 | int capi_overwrite_a = 0; | |||
| 35360 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 35361 | int lda = 0; | |||
| 35362 | complex_double *work = NULL((void*)0); | |||
| 35363 | npy_intp work_Dims[1] = {-1}; | |||
| 35364 | const int work_Rank = 1; | |||
| 35365 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 35366 | int capi_work_intent = 0; | |||
| 35367 | int lwork = 0; | |||
| 35368 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 35369 | double *rwork = NULL((void*)0); | |||
| 35370 | npy_intp rwork_Dims[1] = {-1}; | |||
| 35371 | const int rwork_Rank = 1; | |||
| 35372 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 35373 | int capi_rwork_intent = 0; | |||
| 35374 | int info = 0; | |||
| 35375 | static char *capi_kwlist[] = {"a","compute_v","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 35376 | ||||
| 35377 | /*routdebugenter*/ | |||
| 35378 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35379 | f2py_start_clock(); | |||
| 35380 | #endif | |||
| 35381 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 35382 | "O|OOOi:_flapack.zheev",\ | |||
| 35383 | capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 35384 | return NULL((void*)0); | |||
| 35385 | /*frompyobj*/ | |||
| 35386 | /* Processing variable compute_v */ | |||
| 35387 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 35388 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zheev() 1st keyword (compute_v) can't be converted to int"); | |||
| 35389 | if (f2py_success) { | |||
| 35390 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","zheev:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheev:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 35391 | /* Processing variable lower */ | |||
| 35392 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 35393 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheev() 2nd keyword (lower) can't be converted to int"); | |||
| 35394 | if (f2py_success) { | |||
| 35395 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zheev:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheev:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 35396 | /* Processing variable a */ | |||
| 35397 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 35398 | ; | |||
| 35399 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 35400 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 35401 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 35402 | if (!PyErr_Occurred()) | |||
| 35403 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zheev to C/Fortran array" ); | |||
| 35404 | } else { | |||
| 35405 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 35406 | ||||
| 35407 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 35408 | /* Processing variable info */ | |||
| 35409 | /* Processing variable n */ | |||
| 35410 | n = shape(a,0)a_Dims[0]; | |||
| 35411 | /* Processing variable lda */ | |||
| 35412 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 35413 | /* Processing variable w */ | |||
| 35414 | w_Dims[0]=n; | |||
| 35415 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 35416 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 35417 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 35418 | if (!PyErr_Occurred()) | |||
| 35419 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zheev to C/Fortran array" ); | |||
| 35420 | } else { | |||
| 35421 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 35422 | ||||
| 35423 | /* Processing variable lwork */ | |||
| 35424 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n-1,1)((2*n-1 > 1) ? (2*n-1) : (1)); else | |||
| 35425 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zheev() 3rd keyword (lwork) can't be converted to int"); | |||
| 35426 | if (f2py_success) { | |||
| 35427 | CHECKSCALAR(lwork>=2*n-1,"lwork>=2*n-1","3rd keyword lwork","zheev:lwork=%d",lwork)if (!(lwork>=2*n-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheev:lwork=%d", "(""lwork>=2*n-1"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 35428 | /* Processing variable work */ | |||
| 35429 | work_Dims[0]=lwork; | |||
| 35430 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 35431 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 35432 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 35433 | if (!PyErr_Occurred()) | |||
| 35434 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zheev to C/Fortran array" ); | |||
| 35435 | } else { | |||
| 35436 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 35437 | ||||
| 35438 | /* Processing variable rwork */ | |||
| 35439 | rwork_Dims[0]=3 * n - 1; | |||
| 35440 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 35441 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 35442 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 35443 | if (!PyErr_Occurred()) | |||
| 35444 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zheev to C/Fortran array" ); | |||
| 35445 | } else { | |||
| 35446 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 35447 | ||||
| 35448 | /*end of frompyobj*/ | |||
| 35449 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35450 | f2py_start_call_clock(); | |||
| 35451 | #endif | |||
| 35452 | /*callfortranroutine*/ | |||
| 35453 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,rwork,&info) ; | |||
| 35454 | /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,rwork,&info);*/ | |||
| 35455 | if (PyErr_Occurred()) | |||
| 35456 | f2py_success = 0; | |||
| 35457 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35458 | f2py_stop_call_clock(); | |||
| 35459 | #endif | |||
| 35460 | /*end of callfortranroutine*/ | |||
| 35461 | if (f2py_success) { | |||
| 35462 | /*pyobjfrom*/ | |||
| 35463 | /*end of pyobjfrom*/ | |||
| 35464 | CFUNCSMESS("Building return value.\n"); | |||
| 35465 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 35466 | /*closepyobjfrom*/ | |||
| 35467 | /*end of closepyobjfrom*/ | |||
| 35468 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 35469 | /*cleanupfrompyobj*/ | |||
| 35470 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 35471 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 35472 | /* End of cleaning variable rwork */ | |||
| 35473 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 35474 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 35475 | /* End of cleaning variable work */ | |||
| 35476 | } /*CHECKSCALAR(lwork>=2*n-1)*/ | |||
| 35477 | } /*if (f2py_success) of lwork*/ | |||
| 35478 | /* End of cleaning variable lwork */ | |||
| 35479 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 35480 | /* End of cleaning variable w */ | |||
| 35481 | /* End of cleaning variable lda */ | |||
| 35482 | /* End of cleaning variable n */ | |||
| 35483 | /* End of cleaning variable info */ | |||
| 35484 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 35485 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 35486 | /* End of cleaning variable a */ | |||
| 35487 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 35488 | } /*if (f2py_success) of lower*/ | |||
| 35489 | /* End of cleaning variable lower */ | |||
| 35490 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 35491 | } /*if (f2py_success) of compute_v*/ | |||
| 35492 | /* End of cleaning variable compute_v */ | |||
| 35493 | /*end of cleanupfrompyobj*/ | |||
| 35494 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 35495 | /*routdebugfailure*/ | |||
| 35496 | } else { | |||
| 35497 | /*routdebugleave*/ | |||
| 35498 | } | |||
| 35499 | CFUNCSMESS("Freeing memory.\n"); | |||
| 35500 | /*freemem*/ | |||
| 35501 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35502 | f2py_stop_clock(); | |||
| 35503 | #endif | |||
| 35504 | return capi_buildvalue; | |||
| 35505 | } | |||
| 35506 | /******************************** end of zheev ********************************/ | |||
| 35507 | ||||
| 35508 | /******************************** cheev_lwork ********************************/ | |||
| 35509 | static char doc_f2py_rout__flapack_cheev_lwork[] = "\ | |||
| 35510 | work,info = cheev_lwork(n,[lower])\n\nWrapper for ``cheev_lwork``.\ | |||
| 35511 | \n\nParameters\n----------\n" | |||
| 35512 | "n : input int\n" | |||
| 35513 | "\nOther Parameters\n----------------\n" | |||
| 35514 | "lower : input int, optional\n Default: 0\n" | |||
| 35515 | "\nReturns\n-------\n" | |||
| 35516 | "work : complex\n" | |||
| 35517 | "info : int"; | |||
| 35518 | /* extern void F_FUNC(cheev ,CHEEV )(char*,char*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 35519 | static PyObject *f2py_rout__flapack_cheev_lwork(const PyObject *capi_self, | |||
| 35520 | PyObject *capi_args, | |||
| 35521 | PyObject *capi_keywds, | |||
| 35522 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 35523 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 35524 | volatile int f2py_success = 1; | |||
| 35525 | /*decl*/ | |||
| 35526 | ||||
| 35527 | int lower = 0; | |||
| 35528 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 35529 | int n = 0; | |||
| 35530 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 35531 | float w = 0; | |||
| 35532 | complex_float a; | |||
| 35533 | int lda = 0; | |||
| 35534 | complex_float work; | |||
| 35535 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 35536 | int lwork = 0; | |||
| 35537 | float rwork = 0; | |||
| 35538 | int info = 0; | |||
| 35539 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 35540 | ||||
| 35541 | /*routdebugenter*/ | |||
| 35542 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35543 | f2py_start_clock(); | |||
| 35544 | #endif | |||
| 35545 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 35546 | "O|O:_flapack.cheev_lwork",\ | |||
| 35547 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 35548 | return NULL((void*)0); | |||
| 35549 | /*frompyobj*/ | |||
| 35550 | /* Processing variable n */ | |||
| 35551 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cheev_lwork() 1st argument (n) can't be converted to int"); | |||
| 35552 | if (f2py_success) { | |||
| 35553 | /* Processing variable lower */ | |||
| 35554 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 35555 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheev_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 35556 | if (f2py_success) { | |||
| 35557 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cheev_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheev_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 35558 | /* Processing variable a */ | |||
| 35559 | /* Processing variable w */ | |||
| 35560 | /* Processing variable rwork */ | |||
| 35561 | /* Processing variable lwork */ | |||
| 35562 | lwork = -1; | |||
| 35563 | /* Processing variable work */ | |||
| 35564 | /* Processing variable info */ | |||
| 35565 | /* Processing variable lda */ | |||
| 35566 | lda = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 35567 | /*end of frompyobj*/ | |||
| 35568 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35569 | f2py_start_call_clock(); | |||
| 35570 | #endif | |||
| 35571 | /*callfortranroutine*/ | |||
| 35572 | (*f2py_func)("N",(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&rwork,&info) ; | |||
| 35573 | /*(*f2py_func)(&lower,&n,&w,&a,&lda,&work,&lwork,&rwork,&info);*/ | |||
| 35574 | if (PyErr_Occurred()) | |||
| 35575 | f2py_success = 0; | |||
| 35576 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35577 | f2py_stop_call_clock(); | |||
| 35578 | #endif | |||
| 35579 | /*end of callfortranroutine*/ | |||
| 35580 | if (f2py_success) { | |||
| 35581 | /*pyobjfrom*/ | |||
| 35582 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 35583 | /*end of pyobjfrom*/ | |||
| 35584 | CFUNCSMESS("Building return value.\n"); | |||
| 35585 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 35586 | /*closepyobjfrom*/ | |||
| 35587 | /*end of closepyobjfrom*/ | |||
| 35588 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 35589 | /*cleanupfrompyobj*/ | |||
| 35590 | /* End of cleaning variable lda */ | |||
| 35591 | /* End of cleaning variable info */ | |||
| 35592 | /* End of cleaning variable work */ | |||
| 35593 | /* End of cleaning variable lwork */ | |||
| 35594 | /* End of cleaning variable rwork */ | |||
| 35595 | /* End of cleaning variable w */ | |||
| 35596 | /* End of cleaning variable a */ | |||
| 35597 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 35598 | } /*if (f2py_success) of lower*/ | |||
| 35599 | /* End of cleaning variable lower */ | |||
| 35600 | } /*if (f2py_success) of n*/ | |||
| 35601 | /* End of cleaning variable n */ | |||
| 35602 | /*end of cleanupfrompyobj*/ | |||
| 35603 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 35604 | /*routdebugfailure*/ | |||
| 35605 | } else { | |||
| 35606 | /*routdebugleave*/ | |||
| 35607 | } | |||
| 35608 | CFUNCSMESS("Freeing memory.\n"); | |||
| 35609 | /*freemem*/ | |||
| 35610 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35611 | f2py_stop_clock(); | |||
| 35612 | #endif | |||
| 35613 | return capi_buildvalue; | |||
| 35614 | } | |||
| 35615 | /***************************** end of cheev_lwork *****************************/ | |||
| 35616 | ||||
| 35617 | /******************************** zheev_lwork ********************************/ | |||
| 35618 | static char doc_f2py_rout__flapack_zheev_lwork[] = "\ | |||
| 35619 | work,info = zheev_lwork(n,[lower])\n\nWrapper for ``zheev_lwork``.\ | |||
| 35620 | \n\nParameters\n----------\n" | |||
| 35621 | "n : input int\n" | |||
| 35622 | "\nOther Parameters\n----------------\n" | |||
| 35623 | "lower : input int, optional\n Default: 0\n" | |||
| 35624 | "\nReturns\n-------\n" | |||
| 35625 | "work : complex\n" | |||
| 35626 | "info : int"; | |||
| 35627 | /* extern void F_FUNC(zheev ,ZHEEV )(char*,char*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 35628 | static PyObject *f2py_rout__flapack_zheev_lwork(const PyObject *capi_self, | |||
| 35629 | PyObject *capi_args, | |||
| 35630 | PyObject *capi_keywds, | |||
| 35631 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 35632 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 35633 | volatile int f2py_success = 1; | |||
| 35634 | /*decl*/ | |||
| 35635 | ||||
| 35636 | int lower = 0; | |||
| 35637 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 35638 | int n = 0; | |||
| 35639 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 35640 | double w = 0; | |||
| 35641 | complex_double a; | |||
| 35642 | int lda = 0; | |||
| 35643 | complex_double work; | |||
| 35644 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 35645 | int lwork = 0; | |||
| 35646 | double rwork = 0; | |||
| 35647 | int info = 0; | |||
| 35648 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 35649 | ||||
| 35650 | /*routdebugenter*/ | |||
| 35651 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35652 | f2py_start_clock(); | |||
| 35653 | #endif | |||
| 35654 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 35655 | "O|O:_flapack.zheev_lwork",\ | |||
| 35656 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 35657 | return NULL((void*)0); | |||
| 35658 | /*frompyobj*/ | |||
| 35659 | /* Processing variable n */ | |||
| 35660 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zheev_lwork() 1st argument (n) can't be converted to int"); | |||
| 35661 | if (f2py_success) { | |||
| 35662 | /* Processing variable lower */ | |||
| 35663 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 35664 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheev_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 35665 | if (f2py_success) { | |||
| 35666 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zheev_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheev_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 35667 | /* Processing variable a */ | |||
| 35668 | /* Processing variable w */ | |||
| 35669 | /* Processing variable rwork */ | |||
| 35670 | /* Processing variable lwork */ | |||
| 35671 | lwork = -1; | |||
| 35672 | /* Processing variable work */ | |||
| 35673 | /* Processing variable info */ | |||
| 35674 | /* Processing variable lda */ | |||
| 35675 | lda = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 35676 | /*end of frompyobj*/ | |||
| 35677 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35678 | f2py_start_call_clock(); | |||
| 35679 | #endif | |||
| 35680 | /*callfortranroutine*/ | |||
| 35681 | (*f2py_func)("N",(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&rwork,&info) ; | |||
| 35682 | /*(*f2py_func)(&lower,&n,&w,&a,&lda,&work,&lwork,&rwork,&info);*/ | |||
| 35683 | if (PyErr_Occurred()) | |||
| 35684 | f2py_success = 0; | |||
| 35685 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35686 | f2py_stop_call_clock(); | |||
| 35687 | #endif | |||
| 35688 | /*end of callfortranroutine*/ | |||
| 35689 | if (f2py_success) { | |||
| 35690 | /*pyobjfrom*/ | |||
| 35691 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 35692 | /*end of pyobjfrom*/ | |||
| 35693 | CFUNCSMESS("Building return value.\n"); | |||
| 35694 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 35695 | /*closepyobjfrom*/ | |||
| 35696 | /*end of closepyobjfrom*/ | |||
| 35697 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 35698 | /*cleanupfrompyobj*/ | |||
| 35699 | /* End of cleaning variable lda */ | |||
| 35700 | /* End of cleaning variable info */ | |||
| 35701 | /* End of cleaning variable work */ | |||
| 35702 | /* End of cleaning variable lwork */ | |||
| 35703 | /* End of cleaning variable rwork */ | |||
| 35704 | /* End of cleaning variable w */ | |||
| 35705 | /* End of cleaning variable a */ | |||
| 35706 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 35707 | } /*if (f2py_success) of lower*/ | |||
| 35708 | /* End of cleaning variable lower */ | |||
| 35709 | } /*if (f2py_success) of n*/ | |||
| 35710 | /* End of cleaning variable n */ | |||
| 35711 | /*end of cleanupfrompyobj*/ | |||
| 35712 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 35713 | /*routdebugfailure*/ | |||
| 35714 | } else { | |||
| 35715 | /*routdebugleave*/ | |||
| 35716 | } | |||
| 35717 | CFUNCSMESS("Freeing memory.\n"); | |||
| 35718 | /*freemem*/ | |||
| 35719 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35720 | f2py_stop_clock(); | |||
| 35721 | #endif | |||
| 35722 | return capi_buildvalue; | |||
| 35723 | } | |||
| 35724 | /***************************** end of zheev_lwork *****************************/ | |||
| 35725 | ||||
| 35726 | /*********************************** ssyevd ***********************************/ | |||
| 35727 | static char doc_f2py_rout__flapack_ssyevd[] = "\ | |||
| 35728 | w,v,info = ssyevd(a,[compute_v,lower,lwork,liwork,overwrite_a])\n\nWrapper for ``ssyevd``.\ | |||
| 35729 | \n\nParameters\n----------\n" | |||
| 35730 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 35731 | "\nOther Parameters\n----------------\n" | |||
| 35732 | "compute_v : input int, optional\n Default: 1\n" | |||
| 35733 | "lower : input int, optional\n Default: 0\n" | |||
| 35734 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 35735 | "lwork : input int, optional\n Default: max((compute_v?1+6*n+2*n*n:2*n+1),1)\n" | |||
| 35736 | "liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n" | |||
| 35737 | "\nReturns\n-------\n" | |||
| 35738 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 35739 | "v : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 35740 | "info : int"; | |||
| 35741 | /* extern void F_FUNC(ssyevd,SSYEVD)(char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 35742 | static PyObject *f2py_rout__flapack_ssyevd(const PyObject *capi_self, | |||
| 35743 | PyObject *capi_args, | |||
| 35744 | PyObject *capi_keywds, | |||
| 35745 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 35746 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 35747 | volatile int f2py_success = 1; | |||
| 35748 | /*decl*/ | |||
| 35749 | ||||
| 35750 | int compute_v = 0; | |||
| 35751 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 35752 | int lower = 0; | |||
| 35753 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 35754 | int n = 0; | |||
| 35755 | float *w = NULL((void*)0); | |||
| 35756 | npy_intp w_Dims[1] = {-1}; | |||
| 35757 | const int w_Rank = 1; | |||
| 35758 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 35759 | int capi_w_intent = 0; | |||
| 35760 | float *a = NULL((void*)0); | |||
| 35761 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 35762 | const int a_Rank = 2; | |||
| 35763 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 35764 | int capi_a_intent = 0; | |||
| 35765 | int capi_overwrite_a = 0; | |||
| 35766 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 35767 | int lda = 0; | |||
| 35768 | float *work = NULL((void*)0); | |||
| 35769 | npy_intp work_Dims[1] = {-1}; | |||
| 35770 | const int work_Rank = 1; | |||
| 35771 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 35772 | int capi_work_intent = 0; | |||
| 35773 | int lwork = 0; | |||
| 35774 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 35775 | int *iwork = NULL((void*)0); | |||
| 35776 | npy_intp iwork_Dims[1] = {-1}; | |||
| 35777 | const int iwork_Rank = 1; | |||
| 35778 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 35779 | int capi_iwork_intent = 0; | |||
| 35780 | int liwork = 0; | |||
| 35781 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 35782 | int info = 0; | |||
| 35783 | static char *capi_kwlist[] = {"a","compute_v","lower","lwork","liwork","overwrite_a",NULL((void*)0)}; | |||
| 35784 | ||||
| 35785 | /*routdebugenter*/ | |||
| 35786 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35787 | f2py_start_clock(); | |||
| 35788 | #endif | |||
| 35789 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 35790 | "O|OOOOi:_flapack.ssyevd",\ | |||
| 35791 | capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a)) | |||
| 35792 | return NULL((void*)0); | |||
| 35793 | /*frompyobj*/ | |||
| 35794 | /* Processing variable compute_v */ | |||
| 35795 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 35796 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssyevd() 1st keyword (compute_v) can't be converted to int"); | |||
| 35797 | if (f2py_success) { | |||
| 35798 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","ssyevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevd:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 35799 | /* Processing variable lower */ | |||
| 35800 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 35801 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyevd() 2nd keyword (lower) can't be converted to int"); | |||
| 35802 | if (f2py_success) { | |||
| 35803 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssyevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevd:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 35804 | /* Processing variable a */ | |||
| 35805 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 35806 | ; | |||
| 35807 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 35808 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 35809 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 35810 | if (!PyErr_Occurred()) | |||
| 35811 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssyevd to C/Fortran array" ); | |||
| 35812 | } else { | |||
| 35813 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 35814 | ||||
| 35815 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 35816 | /* Processing variable info */ | |||
| 35817 | /* Processing variable n */ | |||
| 35818 | n = shape(a,0)a_Dims[0]; | |||
| 35819 | /* Processing variable lda */ | |||
| 35820 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 35821 | /* Processing variable w */ | |||
| 35822 | w_Dims[0]=n; | |||
| 35823 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 35824 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 35825 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 35826 | if (!PyErr_Occurred()) | |||
| 35827 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssyevd to C/Fortran array" ); | |||
| 35828 | } else { | |||
| 35829 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 35830 | ||||
| 35831 | /* Processing variable lwork */ | |||
| 35832 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_v?1+6*n+2*n*n:2*n+1),1)(((compute_v?1+6*n+2*n*n:2*n+1) > 1) ? ((compute_v?1+6*n+2 *n*n:2*n+1)) : (1)); else | |||
| 35833 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssyevd() 3rd keyword (lwork) can't be converted to int"); | |||
| 35834 | if (f2py_success) { | |||
| 35835 | CHECKSCALAR(lwork>=(compute_v?1+6*n+2*n*n:2*n+1),"lwork>=(compute_v?1+6*n+2*n*n:2*n+1)","3rd keyword lwork","ssyevd:lwork=%d",lwork)if (!(lwork>=(compute_v?1+6*n+2*n*n:2*n+1))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ssyevd:lwork=%d", "(""lwork>=(compute_v?1+6*n+2*n*n:2*n+1)" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 35836 | /* Processing variable work */ | |||
| 35837 | work_Dims[0]=lwork; | |||
| 35838 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 35839 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 35840 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 35841 | if (!PyErr_Occurred()) | |||
| 35842 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssyevd to C/Fortran array" ); | |||
| 35843 | } else { | |||
| 35844 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 35845 | ||||
| 35846 | /* Processing variable liwork */ | |||
| 35847 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else | |||
| 35848 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.ssyevd() 4th keyword (liwork) can't be converted to int"); | |||
| 35849 | if (f2py_success) { | |||
| 35850 | /* Processing variable iwork */ | |||
| 35851 | iwork_Dims[0]=liwork; | |||
| 35852 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 35853 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 35854 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 35855 | if (!PyErr_Occurred()) | |||
| 35856 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssyevd to C/Fortran array" ); | |||
| 35857 | } else { | |||
| 35858 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 35859 | ||||
| 35860 | /*end of frompyobj*/ | |||
| 35861 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35862 | f2py_start_call_clock(); | |||
| 35863 | #endif | |||
| 35864 | /*callfortranroutine*/ | |||
| 35865 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,iwork,&liwork,&info) ; | |||
| 35866 | /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,iwork,&liwork,&info);*/ | |||
| 35867 | if (PyErr_Occurred()) | |||
| 35868 | f2py_success = 0; | |||
| 35869 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35870 | f2py_stop_call_clock(); | |||
| 35871 | #endif | |||
| 35872 | /*end of callfortranroutine*/ | |||
| 35873 | if (f2py_success) { | |||
| 35874 | /*pyobjfrom*/ | |||
| 35875 | /*end of pyobjfrom*/ | |||
| 35876 | CFUNCSMESS("Building return value.\n"); | |||
| 35877 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 35878 | /*closepyobjfrom*/ | |||
| 35879 | /*end of closepyobjfrom*/ | |||
| 35880 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 35881 | /*cleanupfrompyobj*/ | |||
| 35882 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 35883 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 35884 | /* End of cleaning variable iwork */ | |||
| 35885 | } /*if (f2py_success) of liwork*/ | |||
| 35886 | /* End of cleaning variable liwork */ | |||
| 35887 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 35888 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 35889 | /* End of cleaning variable work */ | |||
| 35890 | } /*CHECKSCALAR(lwork>=(compute_v?1+6*n+2*n*n:2*n+1))*/ | |||
| 35891 | } /*if (f2py_success) of lwork*/ | |||
| 35892 | /* End of cleaning variable lwork */ | |||
| 35893 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 35894 | /* End of cleaning variable w */ | |||
| 35895 | /* End of cleaning variable lda */ | |||
| 35896 | /* End of cleaning variable n */ | |||
| 35897 | /* End of cleaning variable info */ | |||
| 35898 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 35899 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 35900 | /* End of cleaning variable a */ | |||
| 35901 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 35902 | } /*if (f2py_success) of lower*/ | |||
| 35903 | /* End of cleaning variable lower */ | |||
| 35904 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 35905 | } /*if (f2py_success) of compute_v*/ | |||
| 35906 | /* End of cleaning variable compute_v */ | |||
| 35907 | /*end of cleanupfrompyobj*/ | |||
| 35908 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 35909 | /*routdebugfailure*/ | |||
| 35910 | } else { | |||
| 35911 | /*routdebugleave*/ | |||
| 35912 | } | |||
| 35913 | CFUNCSMESS("Freeing memory.\n"); | |||
| 35914 | /*freemem*/ | |||
| 35915 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35916 | f2py_stop_clock(); | |||
| 35917 | #endif | |||
| 35918 | return capi_buildvalue; | |||
| 35919 | } | |||
| 35920 | /******************************* end of ssyevd *******************************/ | |||
| 35921 | ||||
| 35922 | /*********************************** dsyevd ***********************************/ | |||
| 35923 | static char doc_f2py_rout__flapack_dsyevd[] = "\ | |||
| 35924 | w,v,info = dsyevd(a,[compute_v,lower,lwork,liwork,overwrite_a])\n\nWrapper for ``dsyevd``.\ | |||
| 35925 | \n\nParameters\n----------\n" | |||
| 35926 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 35927 | "\nOther Parameters\n----------------\n" | |||
| 35928 | "compute_v : input int, optional\n Default: 1\n" | |||
| 35929 | "lower : input int, optional\n Default: 0\n" | |||
| 35930 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 35931 | "lwork : input int, optional\n Default: max((compute_v?1+6*n+2*n*n:2*n+1),1)\n" | |||
| 35932 | "liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n" | |||
| 35933 | "\nReturns\n-------\n" | |||
| 35934 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 35935 | "v : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 35936 | "info : int"; | |||
| 35937 | /* extern void F_FUNC(dsyevd,DSYEVD)(char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 35938 | static PyObject *f2py_rout__flapack_dsyevd(const PyObject *capi_self, | |||
| 35939 | PyObject *capi_args, | |||
| 35940 | PyObject *capi_keywds, | |||
| 35941 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 35942 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 35943 | volatile int f2py_success = 1; | |||
| 35944 | /*decl*/ | |||
| 35945 | ||||
| 35946 | int compute_v = 0; | |||
| 35947 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 35948 | int lower = 0; | |||
| 35949 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 35950 | int n = 0; | |||
| 35951 | double *w = NULL((void*)0); | |||
| 35952 | npy_intp w_Dims[1] = {-1}; | |||
| 35953 | const int w_Rank = 1; | |||
| 35954 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 35955 | int capi_w_intent = 0; | |||
| 35956 | double *a = NULL((void*)0); | |||
| 35957 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 35958 | const int a_Rank = 2; | |||
| 35959 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 35960 | int capi_a_intent = 0; | |||
| 35961 | int capi_overwrite_a = 0; | |||
| 35962 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 35963 | int lda = 0; | |||
| 35964 | double *work = NULL((void*)0); | |||
| 35965 | npy_intp work_Dims[1] = {-1}; | |||
| 35966 | const int work_Rank = 1; | |||
| 35967 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 35968 | int capi_work_intent = 0; | |||
| 35969 | int lwork = 0; | |||
| 35970 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 35971 | int *iwork = NULL((void*)0); | |||
| 35972 | npy_intp iwork_Dims[1] = {-1}; | |||
| 35973 | const int iwork_Rank = 1; | |||
| 35974 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 35975 | int capi_iwork_intent = 0; | |||
| 35976 | int liwork = 0; | |||
| 35977 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 35978 | int info = 0; | |||
| 35979 | static char *capi_kwlist[] = {"a","compute_v","lower","lwork","liwork","overwrite_a",NULL((void*)0)}; | |||
| 35980 | ||||
| 35981 | /*routdebugenter*/ | |||
| 35982 | #ifdef F2PY_REPORT_ATEXIT | |||
| 35983 | f2py_start_clock(); | |||
| 35984 | #endif | |||
| 35985 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 35986 | "O|OOOOi:_flapack.dsyevd",\ | |||
| 35987 | capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a)) | |||
| 35988 | return NULL((void*)0); | |||
| 35989 | /*frompyobj*/ | |||
| 35990 | /* Processing variable compute_v */ | |||
| 35991 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 35992 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsyevd() 1st keyword (compute_v) can't be converted to int"); | |||
| 35993 | if (f2py_success) { | |||
| 35994 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","dsyevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevd:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 35995 | /* Processing variable lower */ | |||
| 35996 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 35997 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyevd() 2nd keyword (lower) can't be converted to int"); | |||
| 35998 | if (f2py_success) { | |||
| 35999 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsyevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevd:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 36000 | /* Processing variable a */ | |||
| 36001 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 36002 | ; | |||
| 36003 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 36004 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 36005 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 36006 | if (!PyErr_Occurred()) | |||
| 36007 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsyevd to C/Fortran array" ); | |||
| 36008 | } else { | |||
| 36009 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 36010 | ||||
| 36011 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 36012 | /* Processing variable info */ | |||
| 36013 | /* Processing variable n */ | |||
| 36014 | n = shape(a,0)a_Dims[0]; | |||
| 36015 | /* Processing variable lda */ | |||
| 36016 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 36017 | /* Processing variable w */ | |||
| 36018 | w_Dims[0]=n; | |||
| 36019 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 36020 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 36021 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 36022 | if (!PyErr_Occurred()) | |||
| 36023 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsyevd to C/Fortran array" ); | |||
| 36024 | } else { | |||
| 36025 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 36026 | ||||
| 36027 | /* Processing variable lwork */ | |||
| 36028 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_v?1+6*n+2*n*n:2*n+1),1)(((compute_v?1+6*n+2*n*n:2*n+1) > 1) ? ((compute_v?1+6*n+2 *n*n:2*n+1)) : (1)); else | |||
| 36029 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsyevd() 3rd keyword (lwork) can't be converted to int"); | |||
| 36030 | if (f2py_success) { | |||
| 36031 | CHECKSCALAR(lwork>=(compute_v?1+6*n+2*n*n:2*n+1),"lwork>=(compute_v?1+6*n+2*n*n:2*n+1)","3rd keyword lwork","dsyevd:lwork=%d",lwork)if (!(lwork>=(compute_v?1+6*n+2*n*n:2*n+1))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dsyevd:lwork=%d", "(""lwork>=(compute_v?1+6*n+2*n*n:2*n+1)" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 36032 | /* Processing variable work */ | |||
| 36033 | work_Dims[0]=lwork; | |||
| 36034 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 36035 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 36036 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 36037 | if (!PyErr_Occurred()) | |||
| 36038 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsyevd to C/Fortran array" ); | |||
| 36039 | } else { | |||
| 36040 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 36041 | ||||
| 36042 | /* Processing variable liwork */ | |||
| 36043 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else | |||
| 36044 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.dsyevd() 4th keyword (liwork) can't be converted to int"); | |||
| 36045 | if (f2py_success) { | |||
| 36046 | /* Processing variable iwork */ | |||
| 36047 | iwork_Dims[0]=liwork; | |||
| 36048 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 36049 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 36050 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 36051 | if (!PyErr_Occurred()) | |||
| 36052 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsyevd to C/Fortran array" ); | |||
| 36053 | } else { | |||
| 36054 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 36055 | ||||
| 36056 | /*end of frompyobj*/ | |||
| 36057 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36058 | f2py_start_call_clock(); | |||
| 36059 | #endif | |||
| 36060 | /*callfortranroutine*/ | |||
| 36061 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,iwork,&liwork,&info) ; | |||
| 36062 | /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,iwork,&liwork,&info);*/ | |||
| 36063 | if (PyErr_Occurred()) | |||
| 36064 | f2py_success = 0; | |||
| 36065 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36066 | f2py_stop_call_clock(); | |||
| 36067 | #endif | |||
| 36068 | /*end of callfortranroutine*/ | |||
| 36069 | if (f2py_success) { | |||
| 36070 | /*pyobjfrom*/ | |||
| 36071 | /*end of pyobjfrom*/ | |||
| 36072 | CFUNCSMESS("Building return value.\n"); | |||
| 36073 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 36074 | /*closepyobjfrom*/ | |||
| 36075 | /*end of closepyobjfrom*/ | |||
| 36076 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 36077 | /*cleanupfrompyobj*/ | |||
| 36078 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 36079 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 36080 | /* End of cleaning variable iwork */ | |||
| 36081 | } /*if (f2py_success) of liwork*/ | |||
| 36082 | /* End of cleaning variable liwork */ | |||
| 36083 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 36084 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 36085 | /* End of cleaning variable work */ | |||
| 36086 | } /*CHECKSCALAR(lwork>=(compute_v?1+6*n+2*n*n:2*n+1))*/ | |||
| 36087 | } /*if (f2py_success) of lwork*/ | |||
| 36088 | /* End of cleaning variable lwork */ | |||
| 36089 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 36090 | /* End of cleaning variable w */ | |||
| 36091 | /* End of cleaning variable lda */ | |||
| 36092 | /* End of cleaning variable n */ | |||
| 36093 | /* End of cleaning variable info */ | |||
| 36094 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 36095 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 36096 | /* End of cleaning variable a */ | |||
| 36097 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 36098 | } /*if (f2py_success) of lower*/ | |||
| 36099 | /* End of cleaning variable lower */ | |||
| 36100 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 36101 | } /*if (f2py_success) of compute_v*/ | |||
| 36102 | /* End of cleaning variable compute_v */ | |||
| 36103 | /*end of cleanupfrompyobj*/ | |||
| 36104 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 36105 | /*routdebugfailure*/ | |||
| 36106 | } else { | |||
| 36107 | /*routdebugleave*/ | |||
| 36108 | } | |||
| 36109 | CFUNCSMESS("Freeing memory.\n"); | |||
| 36110 | /*freemem*/ | |||
| 36111 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36112 | f2py_stop_clock(); | |||
| 36113 | #endif | |||
| 36114 | return capi_buildvalue; | |||
| 36115 | } | |||
| 36116 | /******************************* end of dsyevd *******************************/ | |||
| 36117 | ||||
| 36118 | /******************************** ssyevd_lwork ********************************/ | |||
| 36119 | static char doc_f2py_rout__flapack_ssyevd_lwork[] = "\ | |||
| 36120 | work,iwork,info = ssyevd_lwork(n,[compute_v,lower])\n\nWrapper for ``ssyevd_lwork``.\ | |||
| 36121 | \n\nParameters\n----------\n" | |||
| 36122 | "n : input int\n" | |||
| 36123 | "\nOther Parameters\n----------------\n" | |||
| 36124 | "compute_v : input int, optional\n Default: 1\n" | |||
| 36125 | "lower : input int, optional\n Default: 0\n" | |||
| 36126 | "\nReturns\n-------\n" | |||
| 36127 | "work : float\n" | |||
| 36128 | "iwork : int\n" | |||
| 36129 | "info : int"; | |||
| 36130 | /* extern void F_FUNC(ssyevd ,SSYEVD )(char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 36131 | static PyObject *f2py_rout__flapack_ssyevd_lwork(const PyObject *capi_self, | |||
| 36132 | PyObject *capi_args, | |||
| 36133 | PyObject *capi_keywds, | |||
| 36134 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 36135 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 36136 | volatile int f2py_success = 1; | |||
| 36137 | /*decl*/ | |||
| 36138 | ||||
| 36139 | int compute_v = 0; | |||
| 36140 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 36141 | int lower = 0; | |||
| 36142 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 36143 | int n = 0; | |||
| 36144 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 36145 | float w = 0; | |||
| 36146 | float a = 0; | |||
| 36147 | int lda = 0; | |||
| 36148 | float work = 0; | |||
| 36149 | int lwork = 0; | |||
| 36150 | int iwork = 0; | |||
| 36151 | int liwork = 0; | |||
| 36152 | int info = 0; | |||
| 36153 | static char *capi_kwlist[] = {"n","compute_v","lower",NULL((void*)0)}; | |||
| 36154 | ||||
| 36155 | /*routdebugenter*/ | |||
| 36156 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36157 | f2py_start_clock(); | |||
| 36158 | #endif | |||
| 36159 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 36160 | "O|OO:_flapack.ssyevd_lwork",\ | |||
| 36161 | capi_kwlist,&n_capi,&compute_v_capi,&lower_capi)) | |||
| 36162 | return NULL((void*)0); | |||
| 36163 | /*frompyobj*/ | |||
| 36164 | /* Processing variable n */ | |||
| 36165 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssyevd_lwork() 1st argument (n) can't be converted to int"); | |||
| 36166 | if (f2py_success) { | |||
| 36167 | /* Processing variable lower */ | |||
| 36168 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 36169 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyevd_lwork() 2nd keyword (lower) can't be converted to int"); | |||
| 36170 | if (f2py_success) { | |||
| 36171 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssyevd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevd_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 36172 | /* Processing variable compute_v */ | |||
| 36173 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 36174 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssyevd_lwork() 1st keyword (compute_v) can't be converted to int"); | |||
| 36175 | if (f2py_success) { | |||
| 36176 | CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","ssyevd_lwork:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevd_lwork:compute_v=%d", "(""compute_v==0||compute_v==1" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 36177 | /* Processing variable a */ | |||
| 36178 | /* Processing variable w */ | |||
| 36179 | /* Processing variable lwork */ | |||
| 36180 | lwork = -1; | |||
| 36181 | /* Processing variable liwork */ | |||
| 36182 | liwork = -1; | |||
| 36183 | /* Processing variable work */ | |||
| 36184 | /* Processing variable iwork */ | |||
| 36185 | /* Processing variable info */ | |||
| 36186 | /* Processing variable lda */ | |||
| 36187 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 36188 | /*end of frompyobj*/ | |||
| 36189 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36190 | f2py_start_call_clock(); | |||
| 36191 | #endif | |||
| 36192 | /*callfortranroutine*/ | |||
| 36193 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&iwork,&liwork,&info) ; | |||
| 36194 | /*(*f2py_func)(&compute_v,&lower,&n,&w,&a,&lda,&work,&lwork,&iwork,&liwork,&info);*/ | |||
| 36195 | if (PyErr_Occurred()) | |||
| 36196 | f2py_success = 0; | |||
| 36197 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36198 | f2py_stop_call_clock(); | |||
| 36199 | #endif | |||
| 36200 | /*end of callfortranroutine*/ | |||
| 36201 | if (f2py_success) { | |||
| 36202 | /*pyobjfrom*/ | |||
| 36203 | /*end of pyobjfrom*/ | |||
| 36204 | CFUNCSMESS("Building return value.\n"); | |||
| 36205 | capi_buildvalue = Py_BuildValue("fii",work,iwork,info); | |||
| 36206 | /*closepyobjfrom*/ | |||
| 36207 | /*end of closepyobjfrom*/ | |||
| 36208 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 36209 | /*cleanupfrompyobj*/ | |||
| 36210 | /* End of cleaning variable lda */ | |||
| 36211 | /* End of cleaning variable info */ | |||
| 36212 | /* End of cleaning variable iwork */ | |||
| 36213 | /* End of cleaning variable work */ | |||
| 36214 | /* End of cleaning variable liwork */ | |||
| 36215 | /* End of cleaning variable lwork */ | |||
| 36216 | /* End of cleaning variable w */ | |||
| 36217 | /* End of cleaning variable a */ | |||
| 36218 | } /*CHECKSCALAR(compute_v==0||compute_v==1)*/ | |||
| 36219 | } /*if (f2py_success) of compute_v*/ | |||
| 36220 | /* End of cleaning variable compute_v */ | |||
| 36221 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 36222 | } /*if (f2py_success) of lower*/ | |||
| 36223 | /* End of cleaning variable lower */ | |||
| 36224 | } /*if (f2py_success) of n*/ | |||
| 36225 | /* End of cleaning variable n */ | |||
| 36226 | /*end of cleanupfrompyobj*/ | |||
| 36227 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 36228 | /*routdebugfailure*/ | |||
| 36229 | } else { | |||
| 36230 | /*routdebugleave*/ | |||
| 36231 | } | |||
| 36232 | CFUNCSMESS("Freeing memory.\n"); | |||
| 36233 | /*freemem*/ | |||
| 36234 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36235 | f2py_stop_clock(); | |||
| 36236 | #endif | |||
| 36237 | return capi_buildvalue; | |||
| 36238 | } | |||
| 36239 | /**************************** end of ssyevd_lwork ****************************/ | |||
| 36240 | ||||
| 36241 | /******************************** dsyevd_lwork ********************************/ | |||
| 36242 | static char doc_f2py_rout__flapack_dsyevd_lwork[] = "\ | |||
| 36243 | work,iwork,info = dsyevd_lwork(n,[compute_v,lower])\n\nWrapper for ``dsyevd_lwork``.\ | |||
| 36244 | \n\nParameters\n----------\n" | |||
| 36245 | "n : input int\n" | |||
| 36246 | "\nOther Parameters\n----------------\n" | |||
| 36247 | "compute_v : input int, optional\n Default: 1\n" | |||
| 36248 | "lower : input int, optional\n Default: 0\n" | |||
| 36249 | "\nReturns\n-------\n" | |||
| 36250 | "work : float\n" | |||
| 36251 | "iwork : int\n" | |||
| 36252 | "info : int"; | |||
| 36253 | /* extern void F_FUNC(dsyevd ,DSYEVD )(char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 36254 | static PyObject *f2py_rout__flapack_dsyevd_lwork(const PyObject *capi_self, | |||
| 36255 | PyObject *capi_args, | |||
| 36256 | PyObject *capi_keywds, | |||
| 36257 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 36258 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 36259 | volatile int f2py_success = 1; | |||
| 36260 | /*decl*/ | |||
| 36261 | ||||
| 36262 | int compute_v = 0; | |||
| 36263 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 36264 | int lower = 0; | |||
| 36265 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 36266 | int n = 0; | |||
| 36267 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 36268 | double w = 0; | |||
| 36269 | double a = 0; | |||
| 36270 | int lda = 0; | |||
| 36271 | double work = 0; | |||
| 36272 | int lwork = 0; | |||
| 36273 | int iwork = 0; | |||
| 36274 | int liwork = 0; | |||
| 36275 | int info = 0; | |||
| 36276 | static char *capi_kwlist[] = {"n","compute_v","lower",NULL((void*)0)}; | |||
| 36277 | ||||
| 36278 | /*routdebugenter*/ | |||
| 36279 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36280 | f2py_start_clock(); | |||
| 36281 | #endif | |||
| 36282 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 36283 | "O|OO:_flapack.dsyevd_lwork",\ | |||
| 36284 | capi_kwlist,&n_capi,&compute_v_capi,&lower_capi)) | |||
| 36285 | return NULL((void*)0); | |||
| 36286 | /*frompyobj*/ | |||
| 36287 | /* Processing variable n */ | |||
| 36288 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsyevd_lwork() 1st argument (n) can't be converted to int"); | |||
| 36289 | if (f2py_success) { | |||
| 36290 | /* Processing variable lower */ | |||
| 36291 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 36292 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyevd_lwork() 2nd keyword (lower) can't be converted to int"); | |||
| 36293 | if (f2py_success) { | |||
| 36294 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsyevd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevd_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 36295 | /* Processing variable compute_v */ | |||
| 36296 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 36297 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsyevd_lwork() 1st keyword (compute_v) can't be converted to int"); | |||
| 36298 | if (f2py_success) { | |||
| 36299 | CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","dsyevd_lwork:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevd_lwork:compute_v=%d", "(""compute_v==0||compute_v==1" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 36300 | /* Processing variable a */ | |||
| 36301 | /* Processing variable w */ | |||
| 36302 | /* Processing variable lwork */ | |||
| 36303 | lwork = -1; | |||
| 36304 | /* Processing variable liwork */ | |||
| 36305 | liwork = -1; | |||
| 36306 | /* Processing variable work */ | |||
| 36307 | /* Processing variable iwork */ | |||
| 36308 | /* Processing variable info */ | |||
| 36309 | /* Processing variable lda */ | |||
| 36310 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 36311 | /*end of frompyobj*/ | |||
| 36312 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36313 | f2py_start_call_clock(); | |||
| 36314 | #endif | |||
| 36315 | /*callfortranroutine*/ | |||
| 36316 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&iwork,&liwork,&info) ; | |||
| 36317 | /*(*f2py_func)(&compute_v,&lower,&n,&w,&a,&lda,&work,&lwork,&iwork,&liwork,&info);*/ | |||
| 36318 | if (PyErr_Occurred()) | |||
| 36319 | f2py_success = 0; | |||
| 36320 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36321 | f2py_stop_call_clock(); | |||
| 36322 | #endif | |||
| 36323 | /*end of callfortranroutine*/ | |||
| 36324 | if (f2py_success) { | |||
| 36325 | /*pyobjfrom*/ | |||
| 36326 | /*end of pyobjfrom*/ | |||
| 36327 | CFUNCSMESS("Building return value.\n"); | |||
| 36328 | capi_buildvalue = Py_BuildValue("dii",work,iwork,info); | |||
| 36329 | /*closepyobjfrom*/ | |||
| 36330 | /*end of closepyobjfrom*/ | |||
| 36331 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 36332 | /*cleanupfrompyobj*/ | |||
| 36333 | /* End of cleaning variable lda */ | |||
| 36334 | /* End of cleaning variable info */ | |||
| 36335 | /* End of cleaning variable iwork */ | |||
| 36336 | /* End of cleaning variable work */ | |||
| 36337 | /* End of cleaning variable liwork */ | |||
| 36338 | /* End of cleaning variable lwork */ | |||
| 36339 | /* End of cleaning variable w */ | |||
| 36340 | /* End of cleaning variable a */ | |||
| 36341 | } /*CHECKSCALAR(compute_v==0||compute_v==1)*/ | |||
| 36342 | } /*if (f2py_success) of compute_v*/ | |||
| 36343 | /* End of cleaning variable compute_v */ | |||
| 36344 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 36345 | } /*if (f2py_success) of lower*/ | |||
| 36346 | /* End of cleaning variable lower */ | |||
| 36347 | } /*if (f2py_success) of n*/ | |||
| 36348 | /* End of cleaning variable n */ | |||
| 36349 | /*end of cleanupfrompyobj*/ | |||
| 36350 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 36351 | /*routdebugfailure*/ | |||
| 36352 | } else { | |||
| 36353 | /*routdebugleave*/ | |||
| 36354 | } | |||
| 36355 | CFUNCSMESS("Freeing memory.\n"); | |||
| 36356 | /*freemem*/ | |||
| 36357 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36358 | f2py_stop_clock(); | |||
| 36359 | #endif | |||
| 36360 | return capi_buildvalue; | |||
| 36361 | } | |||
| 36362 | /**************************** end of dsyevd_lwork ****************************/ | |||
| 36363 | ||||
| 36364 | /*********************************** cheevd ***********************************/ | |||
| 36365 | static char doc_f2py_rout__flapack_cheevd[] = "\ | |||
| 36366 | w,v,info = cheevd(a,[compute_v,lower,lwork,liwork,lrwork,overwrite_a])\n\nWrapper for ``cheevd``.\ | |||
| 36367 | \n\nParameters\n----------\n" | |||
| 36368 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 36369 | "\nOther Parameters\n----------------\n" | |||
| 36370 | "compute_v : input int, optional\n Default: 1\n" | |||
| 36371 | "lower : input int, optional\n Default: 0\n" | |||
| 36372 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 36373 | "lwork : input int, optional\n Default: max((compute_v?2*n+n*n:n+1),1)\n" | |||
| 36374 | "liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n" | |||
| 36375 | "lrwork : input int, optional\n Default: (compute_v?1+5*n+2*n*n:n)\n" | |||
| 36376 | "\nReturns\n-------\n" | |||
| 36377 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 36378 | "v : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 36379 | "info : int"; | |||
| 36380 | /* extern void F_FUNC(cheevd,CHEEVD)(char*,char*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 36381 | static PyObject *f2py_rout__flapack_cheevd(const PyObject *capi_self, | |||
| 36382 | PyObject *capi_args, | |||
| 36383 | PyObject *capi_keywds, | |||
| 36384 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 36385 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 36386 | volatile int f2py_success = 1; | |||
| 36387 | /*decl*/ | |||
| 36388 | ||||
| 36389 | int compute_v = 0; | |||
| 36390 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 36391 | int lower = 0; | |||
| 36392 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 36393 | int n = 0; | |||
| 36394 | float *w = NULL((void*)0); | |||
| 36395 | npy_intp w_Dims[1] = {-1}; | |||
| 36396 | const int w_Rank = 1; | |||
| 36397 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 36398 | int capi_w_intent = 0; | |||
| 36399 | complex_float *a = NULL((void*)0); | |||
| 36400 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 36401 | const int a_Rank = 2; | |||
| 36402 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 36403 | int capi_a_intent = 0; | |||
| 36404 | int capi_overwrite_a = 0; | |||
| 36405 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 36406 | int lda = 0; | |||
| 36407 | complex_float *work = NULL((void*)0); | |||
| 36408 | npy_intp work_Dims[1] = {-1}; | |||
| 36409 | const int work_Rank = 1; | |||
| 36410 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 36411 | int capi_work_intent = 0; | |||
| 36412 | int lwork = 0; | |||
| 36413 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 36414 | int *iwork = NULL((void*)0); | |||
| 36415 | npy_intp iwork_Dims[1] = {-1}; | |||
| 36416 | const int iwork_Rank = 1; | |||
| 36417 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 36418 | int capi_iwork_intent = 0; | |||
| 36419 | int liwork = 0; | |||
| 36420 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 36421 | float *rwork = NULL((void*)0); | |||
| 36422 | npy_intp rwork_Dims[1] = {-1}; | |||
| 36423 | const int rwork_Rank = 1; | |||
| 36424 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 36425 | int capi_rwork_intent = 0; | |||
| 36426 | int lrwork = 0; | |||
| 36427 | PyObject *lrwork_capi = Py_None(&_Py_NoneStruct); | |||
| 36428 | int info = 0; | |||
| 36429 | static char *capi_kwlist[] = {"a","compute_v","lower","lwork","liwork","lrwork","overwrite_a",NULL((void*)0)}; | |||
| 36430 | ||||
| 36431 | /*routdebugenter*/ | |||
| 36432 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36433 | f2py_start_clock(); | |||
| 36434 | #endif | |||
| 36435 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 36436 | "O|OOOOOi:_flapack.cheevd",\ | |||
| 36437 | capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&liwork_capi,&lrwork_capi,&capi_overwrite_a)) | |||
| 36438 | return NULL((void*)0); | |||
| 36439 | /*frompyobj*/ | |||
| 36440 | /* Processing variable compute_v */ | |||
| 36441 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 36442 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.cheevd() 1st keyword (compute_v) can't be converted to int"); | |||
| 36443 | if (f2py_success) { | |||
| 36444 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","cheevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevd:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 36445 | /* Processing variable lower */ | |||
| 36446 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 36447 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheevd() 2nd keyword (lower) can't be converted to int"); | |||
| 36448 | if (f2py_success) { | |||
| 36449 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","cheevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevd:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 36450 | /* Processing variable a */ | |||
| 36451 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 36452 | ; | |||
| 36453 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 36454 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 36455 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 36456 | if (!PyErr_Occurred()) | |||
| 36457 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cheevd to C/Fortran array" ); | |||
| 36458 | } else { | |||
| 36459 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 36460 | ||||
| 36461 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 36462 | /* Processing variable info */ | |||
| 36463 | /* Processing variable n */ | |||
| 36464 | n = shape(a,0)a_Dims[0]; | |||
| 36465 | /* Processing variable lda */ | |||
| 36466 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 36467 | /* Processing variable w */ | |||
| 36468 | w_Dims[0]=n; | |||
| 36469 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 36470 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 36471 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 36472 | if (!PyErr_Occurred()) | |||
| 36473 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.cheevd to C/Fortran array" ); | |||
| 36474 | } else { | |||
| 36475 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 36476 | ||||
| 36477 | /* Processing variable lwork */ | |||
| 36478 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_v?2*n+n*n:n+1),1)(((compute_v?2*n+n*n:n+1) > 1) ? ((compute_v?2*n+n*n:n+1)) : (1)); else | |||
| 36479 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cheevd() 3rd keyword (lwork) can't be converted to int"); | |||
| 36480 | if (f2py_success) { | |||
| 36481 | CHECKSCALAR(lwork>=(compute_v?2*n+n*n:n+1),"lwork>=(compute_v?2*n+n*n:n+1)","3rd keyword lwork","cheevd:lwork=%d",lwork)if (!(lwork>=(compute_v?2*n+n*n:n+1))) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cheevd:lwork=%d", "(""lwork>=(compute_v?2*n+n*n:n+1)" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 36482 | /* Processing variable work */ | |||
| 36483 | work_Dims[0]=lwork; | |||
| 36484 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 36485 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 36486 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 36487 | if (!PyErr_Occurred()) | |||
| 36488 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cheevd to C/Fortran array" ); | |||
| 36489 | } else { | |||
| 36490 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 36491 | ||||
| 36492 | /* Processing variable liwork */ | |||
| 36493 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else | |||
| 36494 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.cheevd() 4th keyword (liwork) can't be converted to int"); | |||
| 36495 | if (f2py_success) { | |||
| 36496 | /* Processing variable iwork */ | |||
| 36497 | iwork_Dims[0]=liwork; | |||
| 36498 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 36499 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 36500 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 36501 | if (!PyErr_Occurred()) | |||
| 36502 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.cheevd to C/Fortran array" ); | |||
| 36503 | } else { | |||
| 36504 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 36505 | ||||
| 36506 | /* Processing variable lrwork */ | |||
| 36507 | if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = (compute_v?1+5*n+2*n*n:n); else | |||
| 36508 | f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.cheevd() 5th keyword (lrwork) can't be converted to int"); | |||
| 36509 | if (f2py_success) { | |||
| 36510 | /* Processing variable rwork */ | |||
| 36511 | rwork_Dims[0]=lrwork; | |||
| 36512 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 36513 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 36514 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 36515 | if (!PyErr_Occurred()) | |||
| 36516 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cheevd to C/Fortran array" ); | |||
| 36517 | } else { | |||
| 36518 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 36519 | ||||
| 36520 | /*end of frompyobj*/ | |||
| 36521 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36522 | f2py_start_call_clock(); | |||
| 36523 | #endif | |||
| 36524 | /*callfortranroutine*/ | |||
| 36525 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ; | |||
| 36526 | /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,iwork,&liwork,rwork,&lrwork,&info);*/ | |||
| 36527 | if (PyErr_Occurred()) | |||
| 36528 | f2py_success = 0; | |||
| 36529 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36530 | f2py_stop_call_clock(); | |||
| 36531 | #endif | |||
| 36532 | /*end of callfortranroutine*/ | |||
| 36533 | if (f2py_success) { | |||
| 36534 | /*pyobjfrom*/ | |||
| 36535 | /*end of pyobjfrom*/ | |||
| 36536 | CFUNCSMESS("Building return value.\n"); | |||
| 36537 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 36538 | /*closepyobjfrom*/ | |||
| 36539 | /*end of closepyobjfrom*/ | |||
| 36540 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 36541 | /*cleanupfrompyobj*/ | |||
| 36542 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 36543 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 36544 | /* End of cleaning variable rwork */ | |||
| 36545 | } /*if (f2py_success) of lrwork*/ | |||
| 36546 | /* End of cleaning variable lrwork */ | |||
| 36547 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 36548 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 36549 | /* End of cleaning variable iwork */ | |||
| 36550 | } /*if (f2py_success) of liwork*/ | |||
| 36551 | /* End of cleaning variable liwork */ | |||
| 36552 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 36553 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 36554 | /* End of cleaning variable work */ | |||
| 36555 | } /*CHECKSCALAR(lwork>=(compute_v?2*n+n*n:n+1))*/ | |||
| 36556 | } /*if (f2py_success) of lwork*/ | |||
| 36557 | /* End of cleaning variable lwork */ | |||
| 36558 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 36559 | /* End of cleaning variable w */ | |||
| 36560 | /* End of cleaning variable lda */ | |||
| 36561 | /* End of cleaning variable n */ | |||
| 36562 | /* End of cleaning variable info */ | |||
| 36563 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 36564 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 36565 | /* End of cleaning variable a */ | |||
| 36566 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 36567 | } /*if (f2py_success) of lower*/ | |||
| 36568 | /* End of cleaning variable lower */ | |||
| 36569 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 36570 | } /*if (f2py_success) of compute_v*/ | |||
| 36571 | /* End of cleaning variable compute_v */ | |||
| 36572 | /*end of cleanupfrompyobj*/ | |||
| 36573 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 36574 | /*routdebugfailure*/ | |||
| 36575 | } else { | |||
| 36576 | /*routdebugleave*/ | |||
| 36577 | } | |||
| 36578 | CFUNCSMESS("Freeing memory.\n"); | |||
| 36579 | /*freemem*/ | |||
| 36580 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36581 | f2py_stop_clock(); | |||
| 36582 | #endif | |||
| 36583 | return capi_buildvalue; | |||
| 36584 | } | |||
| 36585 | /******************************* end of cheevd *******************************/ | |||
| 36586 | ||||
| 36587 | /*********************************** zheevd ***********************************/ | |||
| 36588 | static char doc_f2py_rout__flapack_zheevd[] = "\ | |||
| 36589 | w,v,info = zheevd(a,[compute_v,lower,lwork,liwork,lrwork,overwrite_a])\n\nWrapper for ``zheevd``.\ | |||
| 36590 | \n\nParameters\n----------\n" | |||
| 36591 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 36592 | "\nOther Parameters\n----------------\n" | |||
| 36593 | "compute_v : input int, optional\n Default: 1\n" | |||
| 36594 | "lower : input int, optional\n Default: 0\n" | |||
| 36595 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 36596 | "lwork : input int, optional\n Default: max((compute_v?2*n+n*n:n+1),1)\n" | |||
| 36597 | "liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n" | |||
| 36598 | "lrwork : input int, optional\n Default: (compute_v?1+5*n+2*n*n:n)\n" | |||
| 36599 | "\nReturns\n-------\n" | |||
| 36600 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 36601 | "v : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 36602 | "info : int"; | |||
| 36603 | /* extern void F_FUNC(zheevd,ZHEEVD)(char*,char*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 36604 | static PyObject *f2py_rout__flapack_zheevd(const PyObject *capi_self, | |||
| 36605 | PyObject *capi_args, | |||
| 36606 | PyObject *capi_keywds, | |||
| 36607 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 36608 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 36609 | volatile int f2py_success = 1; | |||
| 36610 | /*decl*/ | |||
| 36611 | ||||
| 36612 | int compute_v = 0; | |||
| 36613 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 36614 | int lower = 0; | |||
| 36615 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 36616 | int n = 0; | |||
| 36617 | double *w = NULL((void*)0); | |||
| 36618 | npy_intp w_Dims[1] = {-1}; | |||
| 36619 | const int w_Rank = 1; | |||
| 36620 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 36621 | int capi_w_intent = 0; | |||
| 36622 | complex_double *a = NULL((void*)0); | |||
| 36623 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 36624 | const int a_Rank = 2; | |||
| 36625 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 36626 | int capi_a_intent = 0; | |||
| 36627 | int capi_overwrite_a = 0; | |||
| 36628 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 36629 | int lda = 0; | |||
| 36630 | complex_double *work = NULL((void*)0); | |||
| 36631 | npy_intp work_Dims[1] = {-1}; | |||
| 36632 | const int work_Rank = 1; | |||
| 36633 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 36634 | int capi_work_intent = 0; | |||
| 36635 | int lwork = 0; | |||
| 36636 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 36637 | int *iwork = NULL((void*)0); | |||
| 36638 | npy_intp iwork_Dims[1] = {-1}; | |||
| 36639 | const int iwork_Rank = 1; | |||
| 36640 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 36641 | int capi_iwork_intent = 0; | |||
| 36642 | int liwork = 0; | |||
| 36643 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 36644 | double *rwork = NULL((void*)0); | |||
| 36645 | npy_intp rwork_Dims[1] = {-1}; | |||
| 36646 | const int rwork_Rank = 1; | |||
| 36647 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 36648 | int capi_rwork_intent = 0; | |||
| 36649 | int lrwork = 0; | |||
| 36650 | PyObject *lrwork_capi = Py_None(&_Py_NoneStruct); | |||
| 36651 | int info = 0; | |||
| 36652 | static char *capi_kwlist[] = {"a","compute_v","lower","lwork","liwork","lrwork","overwrite_a",NULL((void*)0)}; | |||
| 36653 | ||||
| 36654 | /*routdebugenter*/ | |||
| 36655 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36656 | f2py_start_clock(); | |||
| 36657 | #endif | |||
| 36658 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 36659 | "O|OOOOOi:_flapack.zheevd",\ | |||
| 36660 | capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&liwork_capi,&lrwork_capi,&capi_overwrite_a)) | |||
| 36661 | return NULL((void*)0); | |||
| 36662 | /*frompyobj*/ | |||
| 36663 | /* Processing variable compute_v */ | |||
| 36664 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 36665 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zheevd() 1st keyword (compute_v) can't be converted to int"); | |||
| 36666 | if (f2py_success) { | |||
| 36667 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","zheevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevd:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 36668 | /* Processing variable lower */ | |||
| 36669 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 36670 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheevd() 2nd keyword (lower) can't be converted to int"); | |||
| 36671 | if (f2py_success) { | |||
| 36672 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zheevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevd:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 36673 | /* Processing variable a */ | |||
| 36674 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 36675 | ; | |||
| 36676 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 36677 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 36678 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 36679 | if (!PyErr_Occurred()) | |||
| 36680 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zheevd to C/Fortran array" ); | |||
| 36681 | } else { | |||
| 36682 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 36683 | ||||
| 36684 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 36685 | /* Processing variable info */ | |||
| 36686 | /* Processing variable n */ | |||
| 36687 | n = shape(a,0)a_Dims[0]; | |||
| 36688 | /* Processing variable lda */ | |||
| 36689 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 36690 | /* Processing variable w */ | |||
| 36691 | w_Dims[0]=n; | |||
| 36692 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 36693 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 36694 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 36695 | if (!PyErr_Occurred()) | |||
| 36696 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zheevd to C/Fortran array" ); | |||
| 36697 | } else { | |||
| 36698 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 36699 | ||||
| 36700 | /* Processing variable lwork */ | |||
| 36701 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_v?2*n+n*n:n+1),1)(((compute_v?2*n+n*n:n+1) > 1) ? ((compute_v?2*n+n*n:n+1)) : (1)); else | |||
| 36702 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zheevd() 3rd keyword (lwork) can't be converted to int"); | |||
| 36703 | if (f2py_success) { | |||
| 36704 | CHECKSCALAR(lwork>=(compute_v?2*n+n*n:n+1),"lwork>=(compute_v?2*n+n*n:n+1)","3rd keyword lwork","zheevd:lwork=%d",lwork)if (!(lwork>=(compute_v?2*n+n*n:n+1))) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zheevd:lwork=%d", "(""lwork>=(compute_v?2*n+n*n:n+1)" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 36705 | /* Processing variable work */ | |||
| 36706 | work_Dims[0]=lwork; | |||
| 36707 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 36708 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 36709 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 36710 | if (!PyErr_Occurred()) | |||
| 36711 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zheevd to C/Fortran array" ); | |||
| 36712 | } else { | |||
| 36713 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 36714 | ||||
| 36715 | /* Processing variable liwork */ | |||
| 36716 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else | |||
| 36717 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.zheevd() 4th keyword (liwork) can't be converted to int"); | |||
| 36718 | if (f2py_success) { | |||
| 36719 | /* Processing variable iwork */ | |||
| 36720 | iwork_Dims[0]=liwork; | |||
| 36721 | capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 36722 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 36723 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 36724 | if (!PyErr_Occurred()) | |||
| 36725 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zheevd to C/Fortran array" ); | |||
| 36726 | } else { | |||
| 36727 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 36728 | ||||
| 36729 | /* Processing variable lrwork */ | |||
| 36730 | if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = (compute_v?1+5*n+2*n*n:n); else | |||
| 36731 | f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.zheevd() 5th keyword (lrwork) can't be converted to int"); | |||
| 36732 | if (f2py_success) { | |||
| 36733 | /* Processing variable rwork */ | |||
| 36734 | rwork_Dims[0]=lrwork; | |||
| 36735 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 36736 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 36737 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 36738 | if (!PyErr_Occurred()) | |||
| 36739 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zheevd to C/Fortran array" ); | |||
| 36740 | } else { | |||
| 36741 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 36742 | ||||
| 36743 | /*end of frompyobj*/ | |||
| 36744 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36745 | f2py_start_call_clock(); | |||
| 36746 | #endif | |||
| 36747 | /*callfortranroutine*/ | |||
| 36748 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ; | |||
| 36749 | /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,iwork,&liwork,rwork,&lrwork,&info);*/ | |||
| 36750 | if (PyErr_Occurred()) | |||
| 36751 | f2py_success = 0; | |||
| 36752 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36753 | f2py_stop_call_clock(); | |||
| 36754 | #endif | |||
| 36755 | /*end of callfortranroutine*/ | |||
| 36756 | if (f2py_success) { | |||
| 36757 | /*pyobjfrom*/ | |||
| 36758 | /*end of pyobjfrom*/ | |||
| 36759 | CFUNCSMESS("Building return value.\n"); | |||
| 36760 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 36761 | /*closepyobjfrom*/ | |||
| 36762 | /*end of closepyobjfrom*/ | |||
| 36763 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 36764 | /*cleanupfrompyobj*/ | |||
| 36765 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 36766 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 36767 | /* End of cleaning variable rwork */ | |||
| 36768 | } /*if (f2py_success) of lrwork*/ | |||
| 36769 | /* End of cleaning variable lrwork */ | |||
| 36770 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 36771 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 36772 | /* End of cleaning variable iwork */ | |||
| 36773 | } /*if (f2py_success) of liwork*/ | |||
| 36774 | /* End of cleaning variable liwork */ | |||
| 36775 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 36776 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 36777 | /* End of cleaning variable work */ | |||
| 36778 | } /*CHECKSCALAR(lwork>=(compute_v?2*n+n*n:n+1))*/ | |||
| 36779 | } /*if (f2py_success) of lwork*/ | |||
| 36780 | /* End of cleaning variable lwork */ | |||
| 36781 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 36782 | /* End of cleaning variable w */ | |||
| 36783 | /* End of cleaning variable lda */ | |||
| 36784 | /* End of cleaning variable n */ | |||
| 36785 | /* End of cleaning variable info */ | |||
| 36786 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 36787 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 36788 | /* End of cleaning variable a */ | |||
| 36789 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 36790 | } /*if (f2py_success) of lower*/ | |||
| 36791 | /* End of cleaning variable lower */ | |||
| 36792 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 36793 | } /*if (f2py_success) of compute_v*/ | |||
| 36794 | /* End of cleaning variable compute_v */ | |||
| 36795 | /*end of cleanupfrompyobj*/ | |||
| 36796 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 36797 | /*routdebugfailure*/ | |||
| 36798 | } else { | |||
| 36799 | /*routdebugleave*/ | |||
| 36800 | } | |||
| 36801 | CFUNCSMESS("Freeing memory.\n"); | |||
| 36802 | /*freemem*/ | |||
| 36803 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36804 | f2py_stop_clock(); | |||
| 36805 | #endif | |||
| 36806 | return capi_buildvalue; | |||
| 36807 | } | |||
| 36808 | /******************************* end of zheevd *******************************/ | |||
| 36809 | ||||
| 36810 | /******************************** cheevd_lwork ********************************/ | |||
| 36811 | static char doc_f2py_rout__flapack_cheevd_lwork[] = "\ | |||
| 36812 | work,iwork,rwork,info = cheevd_lwork(n,[compute_v,lower])\n\nWrapper for ``cheevd_lwork``.\ | |||
| 36813 | \n\nParameters\n----------\n" | |||
| 36814 | "n : input int\n" | |||
| 36815 | "\nOther Parameters\n----------------\n" | |||
| 36816 | "compute_v : input int, optional\n Default: 1\n" | |||
| 36817 | "lower : input int, optional\n Default: 0\n" | |||
| 36818 | "\nReturns\n-------\n" | |||
| 36819 | "work : complex\n" | |||
| 36820 | "iwork : int\n" | |||
| 36821 | "rwork : float\n" | |||
| 36822 | "info : int"; | |||
| 36823 | /* extern void F_FUNC(cheevd ,CHEEVD )(char*,char*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 36824 | static PyObject *f2py_rout__flapack_cheevd_lwork(const PyObject *capi_self, | |||
| 36825 | PyObject *capi_args, | |||
| 36826 | PyObject *capi_keywds, | |||
| 36827 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 36828 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 36829 | volatile int f2py_success = 1; | |||
| 36830 | /*decl*/ | |||
| 36831 | ||||
| 36832 | int compute_v = 0; | |||
| 36833 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 36834 | int lower = 0; | |||
| 36835 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 36836 | int n = 0; | |||
| 36837 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 36838 | float w = 0; | |||
| 36839 | complex_float a; | |||
| 36840 | int lda = 0; | |||
| 36841 | complex_float work; | |||
| 36842 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 36843 | int lwork = 0; | |||
| 36844 | int iwork = 0; | |||
| 36845 | int liwork = 0; | |||
| 36846 | float rwork = 0; | |||
| 36847 | int lrwork = 0; | |||
| 36848 | int info = 0; | |||
| 36849 | static char *capi_kwlist[] = {"n","compute_v","lower",NULL((void*)0)}; | |||
| 36850 | ||||
| 36851 | /*routdebugenter*/ | |||
| 36852 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36853 | f2py_start_clock(); | |||
| 36854 | #endif | |||
| 36855 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 36856 | "O|OO:_flapack.cheevd_lwork",\ | |||
| 36857 | capi_kwlist,&n_capi,&compute_v_capi,&lower_capi)) | |||
| 36858 | return NULL((void*)0); | |||
| 36859 | /*frompyobj*/ | |||
| 36860 | /* Processing variable n */ | |||
| 36861 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cheevd_lwork() 1st argument (n) can't be converted to int"); | |||
| 36862 | if (f2py_success) { | |||
| 36863 | /* Processing variable lower */ | |||
| 36864 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 36865 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheevd_lwork() 2nd keyword (lower) can't be converted to int"); | |||
| 36866 | if (f2py_success) { | |||
| 36867 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","cheevd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevd_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 36868 | /* Processing variable compute_v */ | |||
| 36869 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 36870 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.cheevd_lwork() 1st keyword (compute_v) can't be converted to int"); | |||
| 36871 | if (f2py_success) { | |||
| 36872 | CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","cheevd_lwork:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevd_lwork:compute_v=%d", "(""compute_v==0||compute_v==1" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 36873 | /* Processing variable a */ | |||
| 36874 | /* Processing variable w */ | |||
| 36875 | /* Processing variable lwork */ | |||
| 36876 | lwork = -1; | |||
| 36877 | /* Processing variable liwork */ | |||
| 36878 | liwork = -1; | |||
| 36879 | /* Processing variable lrwork */ | |||
| 36880 | lrwork = -1; | |||
| 36881 | /* Processing variable work */ | |||
| 36882 | /* Processing variable rwork */ | |||
| 36883 | /* Processing variable iwork */ | |||
| 36884 | /* Processing variable info */ | |||
| 36885 | /* Processing variable lda */ | |||
| 36886 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 36887 | /*end of frompyobj*/ | |||
| 36888 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36889 | f2py_start_call_clock(); | |||
| 36890 | #endif | |||
| 36891 | /*callfortranroutine*/ | |||
| 36892 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&rwork,&lrwork,&iwork,&liwork,&info) ; | |||
| 36893 | /*(*f2py_func)(&compute_v,&lower,&n,&w,&a,&lda,&work,&lwork,&iwork,&liwork,&rwork,&lrwork,&info);*/ | |||
| 36894 | if (PyErr_Occurred()) | |||
| 36895 | f2py_success = 0; | |||
| 36896 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36897 | f2py_stop_call_clock(); | |||
| 36898 | #endif | |||
| 36899 | /*end of callfortranroutine*/ | |||
| 36900 | if (f2py_success) { | |||
| 36901 | /*pyobjfrom*/ | |||
| 36902 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 36903 | /*end of pyobjfrom*/ | |||
| 36904 | CFUNCSMESS("Building return value.\n"); | |||
| 36905 | capi_buildvalue = Py_BuildValue("Nifi",work_capi,iwork,rwork,info); | |||
| 36906 | /*closepyobjfrom*/ | |||
| 36907 | /*end of closepyobjfrom*/ | |||
| 36908 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 36909 | /*cleanupfrompyobj*/ | |||
| 36910 | /* End of cleaning variable lda */ | |||
| 36911 | /* End of cleaning variable info */ | |||
| 36912 | /* End of cleaning variable iwork */ | |||
| 36913 | /* End of cleaning variable rwork */ | |||
| 36914 | /* End of cleaning variable work */ | |||
| 36915 | /* End of cleaning variable lrwork */ | |||
| 36916 | /* End of cleaning variable liwork */ | |||
| 36917 | /* End of cleaning variable lwork */ | |||
| 36918 | /* End of cleaning variable w */ | |||
| 36919 | /* End of cleaning variable a */ | |||
| 36920 | } /*CHECKSCALAR(compute_v==0||compute_v==1)*/ | |||
| 36921 | } /*if (f2py_success) of compute_v*/ | |||
| 36922 | /* End of cleaning variable compute_v */ | |||
| 36923 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 36924 | } /*if (f2py_success) of lower*/ | |||
| 36925 | /* End of cleaning variable lower */ | |||
| 36926 | } /*if (f2py_success) of n*/ | |||
| 36927 | /* End of cleaning variable n */ | |||
| 36928 | /*end of cleanupfrompyobj*/ | |||
| 36929 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 36930 | /*routdebugfailure*/ | |||
| 36931 | } else { | |||
| 36932 | /*routdebugleave*/ | |||
| 36933 | } | |||
| 36934 | CFUNCSMESS("Freeing memory.\n"); | |||
| 36935 | /*freemem*/ | |||
| 36936 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36937 | f2py_stop_clock(); | |||
| 36938 | #endif | |||
| 36939 | return capi_buildvalue; | |||
| 36940 | } | |||
| 36941 | /**************************** end of cheevd_lwork ****************************/ | |||
| 36942 | ||||
| 36943 | /******************************** zheevd_lwork ********************************/ | |||
| 36944 | static char doc_f2py_rout__flapack_zheevd_lwork[] = "\ | |||
| 36945 | work,iwork,rwork,info = zheevd_lwork(n,[compute_v,lower])\n\nWrapper for ``zheevd_lwork``.\ | |||
| 36946 | \n\nParameters\n----------\n" | |||
| 36947 | "n : input int\n" | |||
| 36948 | "\nOther Parameters\n----------------\n" | |||
| 36949 | "compute_v : input int, optional\n Default: 1\n" | |||
| 36950 | "lower : input int, optional\n Default: 0\n" | |||
| 36951 | "\nReturns\n-------\n" | |||
| 36952 | "work : complex\n" | |||
| 36953 | "iwork : int\n" | |||
| 36954 | "rwork : float\n" | |||
| 36955 | "info : int"; | |||
| 36956 | /* extern void F_FUNC(zheevd ,ZHEEVD )(char*,char*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 36957 | static PyObject *f2py_rout__flapack_zheevd_lwork(const PyObject *capi_self, | |||
| 36958 | PyObject *capi_args, | |||
| 36959 | PyObject *capi_keywds, | |||
| 36960 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 36961 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 36962 | volatile int f2py_success = 1; | |||
| 36963 | /*decl*/ | |||
| 36964 | ||||
| 36965 | int compute_v = 0; | |||
| 36966 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 36967 | int lower = 0; | |||
| 36968 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 36969 | int n = 0; | |||
| 36970 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 36971 | double w = 0; | |||
| 36972 | complex_double a; | |||
| 36973 | int lda = 0; | |||
| 36974 | complex_double work; | |||
| 36975 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 36976 | int lwork = 0; | |||
| 36977 | int iwork = 0; | |||
| 36978 | int liwork = 0; | |||
| 36979 | double rwork = 0; | |||
| 36980 | int lrwork = 0; | |||
| 36981 | int info = 0; | |||
| 36982 | static char *capi_kwlist[] = {"n","compute_v","lower",NULL((void*)0)}; | |||
| 36983 | ||||
| 36984 | /*routdebugenter*/ | |||
| 36985 | #ifdef F2PY_REPORT_ATEXIT | |||
| 36986 | f2py_start_clock(); | |||
| 36987 | #endif | |||
| 36988 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 36989 | "O|OO:_flapack.zheevd_lwork",\ | |||
| 36990 | capi_kwlist,&n_capi,&compute_v_capi,&lower_capi)) | |||
| 36991 | return NULL((void*)0); | |||
| 36992 | /*frompyobj*/ | |||
| 36993 | /* Processing variable n */ | |||
| 36994 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zheevd_lwork() 1st argument (n) can't be converted to int"); | |||
| 36995 | if (f2py_success) { | |||
| 36996 | /* Processing variable lower */ | |||
| 36997 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 36998 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheevd_lwork() 2nd keyword (lower) can't be converted to int"); | |||
| 36999 | if (f2py_success) { | |||
| 37000 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zheevd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevd_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 37001 | /* Processing variable compute_v */ | |||
| 37002 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 37003 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zheevd_lwork() 1st keyword (compute_v) can't be converted to int"); | |||
| 37004 | if (f2py_success) { | |||
| 37005 | CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","zheevd_lwork:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevd_lwork:compute_v=%d", "(""compute_v==0||compute_v==1" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 37006 | /* Processing variable a */ | |||
| 37007 | /* Processing variable w */ | |||
| 37008 | /* Processing variable lwork */ | |||
| 37009 | lwork = -1; | |||
| 37010 | /* Processing variable liwork */ | |||
| 37011 | liwork = -1; | |||
| 37012 | /* Processing variable lrwork */ | |||
| 37013 | lrwork = -1; | |||
| 37014 | /* Processing variable work */ | |||
| 37015 | /* Processing variable rwork */ | |||
| 37016 | /* Processing variable iwork */ | |||
| 37017 | /* Processing variable info */ | |||
| 37018 | /* Processing variable lda */ | |||
| 37019 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 37020 | /*end of frompyobj*/ | |||
| 37021 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37022 | f2py_start_call_clock(); | |||
| 37023 | #endif | |||
| 37024 | /*callfortranroutine*/ | |||
| 37025 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&rwork,&lrwork,&iwork,&liwork,&info) ; | |||
| 37026 | /*(*f2py_func)(&compute_v,&lower,&n,&w,&a,&lda,&work,&lwork,&iwork,&liwork,&rwork,&lrwork,&info);*/ | |||
| 37027 | if (PyErr_Occurred()) | |||
| 37028 | f2py_success = 0; | |||
| 37029 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37030 | f2py_stop_call_clock(); | |||
| 37031 | #endif | |||
| 37032 | /*end of callfortranroutine*/ | |||
| 37033 | if (f2py_success) { | |||
| 37034 | /*pyobjfrom*/ | |||
| 37035 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 37036 | /*end of pyobjfrom*/ | |||
| 37037 | CFUNCSMESS("Building return value.\n"); | |||
| 37038 | capi_buildvalue = Py_BuildValue("Nidi",work_capi,iwork,rwork,info); | |||
| 37039 | /*closepyobjfrom*/ | |||
| 37040 | /*end of closepyobjfrom*/ | |||
| 37041 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 37042 | /*cleanupfrompyobj*/ | |||
| 37043 | /* End of cleaning variable lda */ | |||
| 37044 | /* End of cleaning variable info */ | |||
| 37045 | /* End of cleaning variable iwork */ | |||
| 37046 | /* End of cleaning variable rwork */ | |||
| 37047 | /* End of cleaning variable work */ | |||
| 37048 | /* End of cleaning variable lrwork */ | |||
| 37049 | /* End of cleaning variable liwork */ | |||
| 37050 | /* End of cleaning variable lwork */ | |||
| 37051 | /* End of cleaning variable w */ | |||
| 37052 | /* End of cleaning variable a */ | |||
| 37053 | } /*CHECKSCALAR(compute_v==0||compute_v==1)*/ | |||
| 37054 | } /*if (f2py_success) of compute_v*/ | |||
| 37055 | /* End of cleaning variable compute_v */ | |||
| 37056 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 37057 | } /*if (f2py_success) of lower*/ | |||
| 37058 | /* End of cleaning variable lower */ | |||
| 37059 | } /*if (f2py_success) of n*/ | |||
| 37060 | /* End of cleaning variable n */ | |||
| 37061 | /*end of cleanupfrompyobj*/ | |||
| 37062 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 37063 | /*routdebugfailure*/ | |||
| 37064 | } else { | |||
| 37065 | /*routdebugleave*/ | |||
| 37066 | } | |||
| 37067 | CFUNCSMESS("Freeing memory.\n"); | |||
| 37068 | /*freemem*/ | |||
| 37069 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37070 | f2py_stop_clock(); | |||
| 37071 | #endif | |||
| 37072 | return capi_buildvalue; | |||
| 37073 | } | |||
| 37074 | /**************************** end of zheevd_lwork ****************************/ | |||
| 37075 | ||||
| 37076 | /*********************************** ssytf2 ***********************************/ | |||
| 37077 | static char doc_f2py_rout__flapack_ssytf2[] = "\ | |||
| 37078 | ldu,ipiv,info = ssytf2(a,[lower,overwrite_a])\n\nWrapper for ``ssytf2``.\ | |||
| 37079 | \n\nParameters\n----------\n" | |||
| 37080 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 37081 | "\nOther Parameters\n----------------\n" | |||
| 37082 | "lower : input int, optional\n Default: 0\n" | |||
| 37083 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 37084 | "\nReturns\n-------\n" | |||
| 37085 | "ldu : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 37086 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 37087 | "info : int"; | |||
| 37088 | /* extern void F_FUNC(ssytf2,SSYTF2)(char*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 37089 | static PyObject *f2py_rout__flapack_ssytf2(const PyObject *capi_self, | |||
| 37090 | PyObject *capi_args, | |||
| 37091 | PyObject *capi_keywds, | |||
| 37092 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 37093 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 37094 | volatile int f2py_success = 1; | |||
| 37095 | /*decl*/ | |||
| 37096 | ||||
| 37097 | int lower = 0; | |||
| 37098 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 37099 | int n = 0; | |||
| 37100 | float *a = NULL((void*)0); | |||
| 37101 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 37102 | const int a_Rank = 2; | |||
| 37103 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 37104 | int capi_a_intent = 0; | |||
| 37105 | int capi_overwrite_a = 0; | |||
| 37106 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 37107 | int lda = 0; | |||
| 37108 | int *ipiv = NULL((void*)0); | |||
| 37109 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 37110 | const int ipiv_Rank = 1; | |||
| 37111 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 37112 | int capi_ipiv_intent = 0; | |||
| 37113 | int info = 0; | |||
| 37114 | static char *capi_kwlist[] = {"a","lower","overwrite_a",NULL((void*)0)}; | |||
| 37115 | ||||
| 37116 | /*routdebugenter*/ | |||
| 37117 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37118 | f2py_start_clock(); | |||
| 37119 | #endif | |||
| 37120 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 37121 | "O|Oi:_flapack.ssytf2",\ | |||
| 37122 | capi_kwlist,&a_capi,&lower_capi,&capi_overwrite_a)) | |||
| 37123 | return NULL((void*)0); | |||
| 37124 | /*frompyobj*/ | |||
| 37125 | /* Processing variable lower */ | |||
| 37126 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 37127 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssytf2() 1st keyword (lower) can't be converted to int"); | |||
| 37128 | if (f2py_success) { | |||
| 37129 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssytf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssytf2:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 37130 | /* Processing variable a */ | |||
| 37131 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 37132 | ; | |||
| 37133 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 37134 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 37135 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 37136 | if (!PyErr_Occurred()) | |||
| 37137 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssytf2 to C/Fortran array" ); | |||
| 37138 | } else { | |||
| 37139 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 37140 | ||||
| 37141 | /* Processing variable info */ | |||
| 37142 | /* Processing variable n */ | |||
| 37143 | n = shape(a,0)a_Dims[0]; | |||
| 37144 | /* Processing variable lda */ | |||
| 37145 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 37146 | /* Processing variable ipiv */ | |||
| 37147 | ipiv_Dims[0]=n; | |||
| 37148 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 37149 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 37150 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 37151 | if (!PyErr_Occurred()) | |||
| 37152 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.ssytf2 to C/Fortran array" ); | |||
| 37153 | } else { | |||
| 37154 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 37155 | ||||
| 37156 | /*end of frompyobj*/ | |||
| 37157 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37158 | f2py_start_call_clock(); | |||
| 37159 | #endif | |||
| 37160 | /*callfortranroutine*/ | |||
| 37161 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&info) ; | |||
| 37162 | /*(*f2py_func)(&lower,&n,a,&lda,ipiv,&info);*/ | |||
| 37163 | if (PyErr_Occurred()) | |||
| 37164 | f2py_success = 0; | |||
| 37165 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37166 | f2py_stop_call_clock(); | |||
| 37167 | #endif | |||
| 37168 | /*end of callfortranroutine*/ | |||
| 37169 | if (f2py_success) { | |||
| 37170 | /*pyobjfrom*/ | |||
| 37171 | /*end of pyobjfrom*/ | |||
| 37172 | CFUNCSMESS("Building return value.\n"); | |||
| 37173 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info); | |||
| 37174 | /*closepyobjfrom*/ | |||
| 37175 | /*end of closepyobjfrom*/ | |||
| 37176 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 37177 | /*cleanupfrompyobj*/ | |||
| 37178 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 37179 | /* End of cleaning variable ipiv */ | |||
| 37180 | /* End of cleaning variable lda */ | |||
| 37181 | /* End of cleaning variable n */ | |||
| 37182 | /* End of cleaning variable info */ | |||
| 37183 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 37184 | /* End of cleaning variable a */ | |||
| 37185 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 37186 | } /*if (f2py_success) of lower*/ | |||
| 37187 | /* End of cleaning variable lower */ | |||
| 37188 | /*end of cleanupfrompyobj*/ | |||
| 37189 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 37190 | /*routdebugfailure*/ | |||
| 37191 | } else { | |||
| 37192 | /*routdebugleave*/ | |||
| 37193 | } | |||
| 37194 | CFUNCSMESS("Freeing memory.\n"); | |||
| 37195 | /*freemem*/ | |||
| 37196 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37197 | f2py_stop_clock(); | |||
| 37198 | #endif | |||
| 37199 | return capi_buildvalue; | |||
| 37200 | } | |||
| 37201 | /******************************* end of ssytf2 *******************************/ | |||
| 37202 | ||||
| 37203 | /*********************************** dsytf2 ***********************************/ | |||
| 37204 | static char doc_f2py_rout__flapack_dsytf2[] = "\ | |||
| 37205 | ldu,ipiv,info = dsytf2(a,[lower,overwrite_a])\n\nWrapper for ``dsytf2``.\ | |||
| 37206 | \n\nParameters\n----------\n" | |||
| 37207 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 37208 | "\nOther Parameters\n----------------\n" | |||
| 37209 | "lower : input int, optional\n Default: 0\n" | |||
| 37210 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 37211 | "\nReturns\n-------\n" | |||
| 37212 | "ldu : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 37213 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 37214 | "info : int"; | |||
| 37215 | /* extern void F_FUNC(dsytf2,DSYTF2)(char*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 37216 | static PyObject *f2py_rout__flapack_dsytf2(const PyObject *capi_self, | |||
| 37217 | PyObject *capi_args, | |||
| 37218 | PyObject *capi_keywds, | |||
| 37219 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 37220 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 37221 | volatile int f2py_success = 1; | |||
| 37222 | /*decl*/ | |||
| 37223 | ||||
| 37224 | int lower = 0; | |||
| 37225 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 37226 | int n = 0; | |||
| 37227 | double *a = NULL((void*)0); | |||
| 37228 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 37229 | const int a_Rank = 2; | |||
| 37230 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 37231 | int capi_a_intent = 0; | |||
| 37232 | int capi_overwrite_a = 0; | |||
| 37233 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 37234 | int lda = 0; | |||
| 37235 | int *ipiv = NULL((void*)0); | |||
| 37236 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 37237 | const int ipiv_Rank = 1; | |||
| 37238 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 37239 | int capi_ipiv_intent = 0; | |||
| 37240 | int info = 0; | |||
| 37241 | static char *capi_kwlist[] = {"a","lower","overwrite_a",NULL((void*)0)}; | |||
| 37242 | ||||
| 37243 | /*routdebugenter*/ | |||
| 37244 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37245 | f2py_start_clock(); | |||
| 37246 | #endif | |||
| 37247 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 37248 | "O|Oi:_flapack.dsytf2",\ | |||
| 37249 | capi_kwlist,&a_capi,&lower_capi,&capi_overwrite_a)) | |||
| 37250 | return NULL((void*)0); | |||
| 37251 | /*frompyobj*/ | |||
| 37252 | /* Processing variable lower */ | |||
| 37253 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 37254 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsytf2() 1st keyword (lower) can't be converted to int"); | |||
| 37255 | if (f2py_success) { | |||
| 37256 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsytf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsytf2:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 37257 | /* Processing variable a */ | |||
| 37258 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 37259 | ; | |||
| 37260 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 37261 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 37262 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 37263 | if (!PyErr_Occurred()) | |||
| 37264 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsytf2 to C/Fortran array" ); | |||
| 37265 | } else { | |||
| 37266 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 37267 | ||||
| 37268 | /* Processing variable info */ | |||
| 37269 | /* Processing variable n */ | |||
| 37270 | n = shape(a,0)a_Dims[0]; | |||
| 37271 | /* Processing variable lda */ | |||
| 37272 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 37273 | /* Processing variable ipiv */ | |||
| 37274 | ipiv_Dims[0]=n; | |||
| 37275 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 37276 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 37277 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 37278 | if (!PyErr_Occurred()) | |||
| 37279 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.dsytf2 to C/Fortran array" ); | |||
| 37280 | } else { | |||
| 37281 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 37282 | ||||
| 37283 | /*end of frompyobj*/ | |||
| 37284 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37285 | f2py_start_call_clock(); | |||
| 37286 | #endif | |||
| 37287 | /*callfortranroutine*/ | |||
| 37288 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&info) ; | |||
| 37289 | /*(*f2py_func)(&lower,&n,a,&lda,ipiv,&info);*/ | |||
| 37290 | if (PyErr_Occurred()) | |||
| 37291 | f2py_success = 0; | |||
| 37292 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37293 | f2py_stop_call_clock(); | |||
| 37294 | #endif | |||
| 37295 | /*end of callfortranroutine*/ | |||
| 37296 | if (f2py_success) { | |||
| 37297 | /*pyobjfrom*/ | |||
| 37298 | /*end of pyobjfrom*/ | |||
| 37299 | CFUNCSMESS("Building return value.\n"); | |||
| 37300 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info); | |||
| 37301 | /*closepyobjfrom*/ | |||
| 37302 | /*end of closepyobjfrom*/ | |||
| 37303 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 37304 | /*cleanupfrompyobj*/ | |||
| 37305 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 37306 | /* End of cleaning variable ipiv */ | |||
| 37307 | /* End of cleaning variable lda */ | |||
| 37308 | /* End of cleaning variable n */ | |||
| 37309 | /* End of cleaning variable info */ | |||
| 37310 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 37311 | /* End of cleaning variable a */ | |||
| 37312 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 37313 | } /*if (f2py_success) of lower*/ | |||
| 37314 | /* End of cleaning variable lower */ | |||
| 37315 | /*end of cleanupfrompyobj*/ | |||
| 37316 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 37317 | /*routdebugfailure*/ | |||
| 37318 | } else { | |||
| 37319 | /*routdebugleave*/ | |||
| 37320 | } | |||
| 37321 | CFUNCSMESS("Freeing memory.\n"); | |||
| 37322 | /*freemem*/ | |||
| 37323 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37324 | f2py_stop_clock(); | |||
| 37325 | #endif | |||
| 37326 | return capi_buildvalue; | |||
| 37327 | } | |||
| 37328 | /******************************* end of dsytf2 *******************************/ | |||
| 37329 | ||||
| 37330 | /*********************************** csytf2 ***********************************/ | |||
| 37331 | static char doc_f2py_rout__flapack_csytf2[] = "\ | |||
| 37332 | ldu,ipiv,info = csytf2(a,[lower,overwrite_a])\n\nWrapper for ``csytf2``.\ | |||
| 37333 | \n\nParameters\n----------\n" | |||
| 37334 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 37335 | "\nOther Parameters\n----------------\n" | |||
| 37336 | "lower : input int, optional\n Default: 0\n" | |||
| 37337 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 37338 | "\nReturns\n-------\n" | |||
| 37339 | "ldu : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 37340 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 37341 | "info : int"; | |||
| 37342 | /* extern void F_FUNC(csytf2,CSYTF2)(char*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 37343 | static PyObject *f2py_rout__flapack_csytf2(const PyObject *capi_self, | |||
| 37344 | PyObject *capi_args, | |||
| 37345 | PyObject *capi_keywds, | |||
| 37346 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 37347 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 37348 | volatile int f2py_success = 1; | |||
| 37349 | /*decl*/ | |||
| 37350 | ||||
| 37351 | int lower = 0; | |||
| 37352 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 37353 | int n = 0; | |||
| 37354 | complex_float *a = NULL((void*)0); | |||
| 37355 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 37356 | const int a_Rank = 2; | |||
| 37357 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 37358 | int capi_a_intent = 0; | |||
| 37359 | int capi_overwrite_a = 0; | |||
| 37360 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 37361 | int lda = 0; | |||
| 37362 | int *ipiv = NULL((void*)0); | |||
| 37363 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 37364 | const int ipiv_Rank = 1; | |||
| 37365 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 37366 | int capi_ipiv_intent = 0; | |||
| 37367 | int info = 0; | |||
| 37368 | static char *capi_kwlist[] = {"a","lower","overwrite_a",NULL((void*)0)}; | |||
| 37369 | ||||
| 37370 | /*routdebugenter*/ | |||
| 37371 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37372 | f2py_start_clock(); | |||
| 37373 | #endif | |||
| 37374 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 37375 | "O|Oi:_flapack.csytf2",\ | |||
| 37376 | capi_kwlist,&a_capi,&lower_capi,&capi_overwrite_a)) | |||
| 37377 | return NULL((void*)0); | |||
| 37378 | /*frompyobj*/ | |||
| 37379 | /* Processing variable lower */ | |||
| 37380 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 37381 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csytf2() 1st keyword (lower) can't be converted to int"); | |||
| 37382 | if (f2py_success) { | |||
| 37383 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csytf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csytf2:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 37384 | /* Processing variable a */ | |||
| 37385 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 37386 | ; | |||
| 37387 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 37388 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 37389 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 37390 | if (!PyErr_Occurred()) | |||
| 37391 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csytf2 to C/Fortran array" ); | |||
| 37392 | } else { | |||
| 37393 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 37394 | ||||
| 37395 | /* Processing variable info */ | |||
| 37396 | /* Processing variable n */ | |||
| 37397 | n = shape(a,0)a_Dims[0]; | |||
| 37398 | /* Processing variable lda */ | |||
| 37399 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 37400 | /* Processing variable ipiv */ | |||
| 37401 | ipiv_Dims[0]=n; | |||
| 37402 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 37403 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 37404 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 37405 | if (!PyErr_Occurred()) | |||
| 37406 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.csytf2 to C/Fortran array" ); | |||
| 37407 | } else { | |||
| 37408 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 37409 | ||||
| 37410 | /*end of frompyobj*/ | |||
| 37411 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37412 | f2py_start_call_clock(); | |||
| 37413 | #endif | |||
| 37414 | /*callfortranroutine*/ | |||
| 37415 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&info) ; | |||
| 37416 | /*(*f2py_func)(&lower,&n,a,&lda,ipiv,&info);*/ | |||
| 37417 | if (PyErr_Occurred()) | |||
| 37418 | f2py_success = 0; | |||
| 37419 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37420 | f2py_stop_call_clock(); | |||
| 37421 | #endif | |||
| 37422 | /*end of callfortranroutine*/ | |||
| 37423 | if (f2py_success) { | |||
| 37424 | /*pyobjfrom*/ | |||
| 37425 | /*end of pyobjfrom*/ | |||
| 37426 | CFUNCSMESS("Building return value.\n"); | |||
| 37427 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info); | |||
| 37428 | /*closepyobjfrom*/ | |||
| 37429 | /*end of closepyobjfrom*/ | |||
| 37430 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 37431 | /*cleanupfrompyobj*/ | |||
| 37432 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 37433 | /* End of cleaning variable ipiv */ | |||
| 37434 | /* End of cleaning variable lda */ | |||
| 37435 | /* End of cleaning variable n */ | |||
| 37436 | /* End of cleaning variable info */ | |||
| 37437 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 37438 | /* End of cleaning variable a */ | |||
| 37439 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 37440 | } /*if (f2py_success) of lower*/ | |||
| 37441 | /* End of cleaning variable lower */ | |||
| 37442 | /*end of cleanupfrompyobj*/ | |||
| 37443 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 37444 | /*routdebugfailure*/ | |||
| 37445 | } else { | |||
| 37446 | /*routdebugleave*/ | |||
| 37447 | } | |||
| 37448 | CFUNCSMESS("Freeing memory.\n"); | |||
| 37449 | /*freemem*/ | |||
| 37450 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37451 | f2py_stop_clock(); | |||
| 37452 | #endif | |||
| 37453 | return capi_buildvalue; | |||
| 37454 | } | |||
| 37455 | /******************************* end of csytf2 *******************************/ | |||
| 37456 | ||||
| 37457 | /*********************************** zsytf2 ***********************************/ | |||
| 37458 | static char doc_f2py_rout__flapack_zsytf2[] = "\ | |||
| 37459 | ldu,ipiv,info = zsytf2(a,[lower,overwrite_a])\n\nWrapper for ``zsytf2``.\ | |||
| 37460 | \n\nParameters\n----------\n" | |||
| 37461 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 37462 | "\nOther Parameters\n----------------\n" | |||
| 37463 | "lower : input int, optional\n Default: 0\n" | |||
| 37464 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 37465 | "\nReturns\n-------\n" | |||
| 37466 | "ldu : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 37467 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 37468 | "info : int"; | |||
| 37469 | /* extern void F_FUNC(zsytf2,ZSYTF2)(char*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 37470 | static PyObject *f2py_rout__flapack_zsytf2(const PyObject *capi_self, | |||
| 37471 | PyObject *capi_args, | |||
| 37472 | PyObject *capi_keywds, | |||
| 37473 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 37474 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 37475 | volatile int f2py_success = 1; | |||
| 37476 | /*decl*/ | |||
| 37477 | ||||
| 37478 | int lower = 0; | |||
| 37479 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 37480 | int n = 0; | |||
| 37481 | complex_double *a = NULL((void*)0); | |||
| 37482 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 37483 | const int a_Rank = 2; | |||
| 37484 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 37485 | int capi_a_intent = 0; | |||
| 37486 | int capi_overwrite_a = 0; | |||
| 37487 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 37488 | int lda = 0; | |||
| 37489 | int *ipiv = NULL((void*)0); | |||
| 37490 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 37491 | const int ipiv_Rank = 1; | |||
| 37492 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 37493 | int capi_ipiv_intent = 0; | |||
| 37494 | int info = 0; | |||
| 37495 | static char *capi_kwlist[] = {"a","lower","overwrite_a",NULL((void*)0)}; | |||
| 37496 | ||||
| 37497 | /*routdebugenter*/ | |||
| 37498 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37499 | f2py_start_clock(); | |||
| 37500 | #endif | |||
| 37501 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 37502 | "O|Oi:_flapack.zsytf2",\ | |||
| 37503 | capi_kwlist,&a_capi,&lower_capi,&capi_overwrite_a)) | |||
| 37504 | return NULL((void*)0); | |||
| 37505 | /*frompyobj*/ | |||
| 37506 | /* Processing variable lower */ | |||
| 37507 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 37508 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsytf2() 1st keyword (lower) can't be converted to int"); | |||
| 37509 | if (f2py_success) { | |||
| 37510 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsytf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsytf2:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 37511 | /* Processing variable a */ | |||
| 37512 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 37513 | ; | |||
| 37514 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 37515 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 37516 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 37517 | if (!PyErr_Occurred()) | |||
| 37518 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsytf2 to C/Fortran array" ); | |||
| 37519 | } else { | |||
| 37520 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 37521 | ||||
| 37522 | /* Processing variable info */ | |||
| 37523 | /* Processing variable n */ | |||
| 37524 | n = shape(a,0)a_Dims[0]; | |||
| 37525 | /* Processing variable lda */ | |||
| 37526 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 37527 | /* Processing variable ipiv */ | |||
| 37528 | ipiv_Dims[0]=n; | |||
| 37529 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 37530 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 37531 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 37532 | if (!PyErr_Occurred()) | |||
| 37533 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zsytf2 to C/Fortran array" ); | |||
| 37534 | } else { | |||
| 37535 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 37536 | ||||
| 37537 | /*end of frompyobj*/ | |||
| 37538 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37539 | f2py_start_call_clock(); | |||
| 37540 | #endif | |||
| 37541 | /*callfortranroutine*/ | |||
| 37542 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&info) ; | |||
| 37543 | /*(*f2py_func)(&lower,&n,a,&lda,ipiv,&info);*/ | |||
| 37544 | if (PyErr_Occurred()) | |||
| 37545 | f2py_success = 0; | |||
| 37546 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37547 | f2py_stop_call_clock(); | |||
| 37548 | #endif | |||
| 37549 | /*end of callfortranroutine*/ | |||
| 37550 | if (f2py_success) { | |||
| 37551 | /*pyobjfrom*/ | |||
| 37552 | /*end of pyobjfrom*/ | |||
| 37553 | CFUNCSMESS("Building return value.\n"); | |||
| 37554 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info); | |||
| 37555 | /*closepyobjfrom*/ | |||
| 37556 | /*end of closepyobjfrom*/ | |||
| 37557 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 37558 | /*cleanupfrompyobj*/ | |||
| 37559 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 37560 | /* End of cleaning variable ipiv */ | |||
| 37561 | /* End of cleaning variable lda */ | |||
| 37562 | /* End of cleaning variable n */ | |||
| 37563 | /* End of cleaning variable info */ | |||
| 37564 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 37565 | /* End of cleaning variable a */ | |||
| 37566 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 37567 | } /*if (f2py_success) of lower*/ | |||
| 37568 | /* End of cleaning variable lower */ | |||
| 37569 | /*end of cleanupfrompyobj*/ | |||
| 37570 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 37571 | /*routdebugfailure*/ | |||
| 37572 | } else { | |||
| 37573 | /*routdebugleave*/ | |||
| 37574 | } | |||
| 37575 | CFUNCSMESS("Freeing memory.\n"); | |||
| 37576 | /*freemem*/ | |||
| 37577 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37578 | f2py_stop_clock(); | |||
| 37579 | #endif | |||
| 37580 | return capi_buildvalue; | |||
| 37581 | } | |||
| 37582 | /******************************* end of zsytf2 *******************************/ | |||
| 37583 | ||||
| 37584 | /*********************************** ssygst ***********************************/ | |||
| 37585 | static char doc_f2py_rout__flapack_ssygst[] = "\ | |||
| 37586 | c,info = ssygst(a,b,[itype,lower,overwrite_a])\n\nWrapper for ``ssygst``.\ | |||
| 37587 | \n\nParameters\n----------\n" | |||
| 37588 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 37589 | "b : input rank-2 array('f') with bounds (n,n)\n" | |||
| 37590 | "\nOther Parameters\n----------------\n" | |||
| 37591 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 37592 | "itype : input int, optional\n Default: 1\n" | |||
| 37593 | "lower : input int, optional\n Default: 0\n" | |||
| 37594 | "\nReturns\n-------\n" | |||
| 37595 | "c : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 37596 | "info : int"; | |||
| 37597 | /* extern void F_FUNC(ssygst,SSYGST)(F_INT*,char*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 37598 | static PyObject *f2py_rout__flapack_ssygst(const PyObject *capi_self, | |||
| 37599 | PyObject *capi_args, | |||
| 37600 | PyObject *capi_keywds, | |||
| 37601 | void (*f2py_func)(F_INTint*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 37602 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 37603 | volatile int f2py_success = 1; | |||
| 37604 | /*decl*/ | |||
| 37605 | ||||
| 37606 | int n = 0; | |||
| 37607 | float *a = NULL((void*)0); | |||
| 37608 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 37609 | const int a_Rank = 2; | |||
| 37610 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 37611 | int capi_a_intent = 0; | |||
| 37612 | int capi_overwrite_a = 0; | |||
| 37613 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 37614 | int lda = 0; | |||
| 37615 | float *b = NULL((void*)0); | |||
| 37616 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 37617 | const int b_Rank = 2; | |||
| 37618 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 37619 | int capi_b_intent = 0; | |||
| 37620 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 37621 | int ldb = 0; | |||
| 37622 | int info = 0; | |||
| 37623 | int itype = 0; | |||
| 37624 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 37625 | int lower = 0; | |||
| 37626 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 37627 | static char *capi_kwlist[] = {"a","b","itype","lower","overwrite_a",NULL((void*)0)}; | |||
| 37628 | ||||
| 37629 | /*routdebugenter*/ | |||
| 37630 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37631 | f2py_start_clock(); | |||
| 37632 | #endif | |||
| 37633 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 37634 | "OO|OOi:_flapack.ssygst",\ | |||
| 37635 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&lower_capi,&capi_overwrite_a)) | |||
| 37636 | return NULL((void*)0); | |||
| 37637 | /*frompyobj*/ | |||
| 37638 | /* Processing variable itype */ | |||
| 37639 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 37640 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.ssygst() 1st keyword (itype) can't be converted to int"); | |||
| 37641 | if (f2py_success) { | |||
| 37642 | CHECKSCALAR(itype==1||itype==2||itype==3,"itype==1||itype==2||itype==3","1st keyword itype","ssygst:itype=%d",itype)if (!(itype==1||itype==2||itype==3)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygst:itype=%d", "(""itype==1||itype==2||itype==3" ") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 37643 | /* Processing variable lower */ | |||
| 37644 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 37645 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssygst() 2nd keyword (lower) can't be converted to int"); | |||
| 37646 | if (f2py_success) { | |||
| 37647 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssygst:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygst:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 37648 | /* Processing variable a */ | |||
| 37649 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 37650 | ; | |||
| 37651 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 37652 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 37653 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 37654 | if (!PyErr_Occurred()) | |||
| 37655 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssygst to C/Fortran array" ); | |||
| 37656 | } else { | |||
| 37657 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 37658 | ||||
| 37659 | /* Processing variable info */ | |||
| 37660 | /* Processing variable n */ | |||
| 37661 | n = shape(a,0)a_Dims[0]; | |||
| 37662 | /* Processing variable lda */ | |||
| 37663 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 37664 | /* Processing variable b */ | |||
| 37665 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 37666 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 37667 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 37668 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 37669 | if (!PyErr_Occurred()) | |||
| 37670 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ssygst to C/Fortran array" ); | |||
| 37671 | } else { | |||
| 37672 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 37673 | ||||
| 37674 | /* Processing variable ldb */ | |||
| 37675 | ldb = max(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 37676 | /*end of frompyobj*/ | |||
| 37677 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37678 | f2py_start_call_clock(); | |||
| 37679 | #endif | |||
| 37680 | /*callfortranroutine*/ | |||
| 37681 | (*f2py_func)(&itype,(lower?"L":"U"),&n,a,&lda,b,&ldb,&info) ; | |||
| 37682 | /*(*f2py_func)(&n,a,&lda,b,&ldb,&info,&itype,&lower);*/ | |||
| 37683 | if (PyErr_Occurred()) | |||
| 37684 | f2py_success = 0; | |||
| 37685 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37686 | f2py_stop_call_clock(); | |||
| 37687 | #endif | |||
| 37688 | /*end of callfortranroutine*/ | |||
| 37689 | if (f2py_success) { | |||
| 37690 | /*pyobjfrom*/ | |||
| 37691 | /*end of pyobjfrom*/ | |||
| 37692 | CFUNCSMESS("Building return value.\n"); | |||
| 37693 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 37694 | /*closepyobjfrom*/ | |||
| 37695 | /*end of closepyobjfrom*/ | |||
| 37696 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 37697 | /*cleanupfrompyobj*/ | |||
| 37698 | /* End of cleaning variable ldb */ | |||
| 37699 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 37700 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 37701 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 37702 | /* End of cleaning variable b */ | |||
| 37703 | /* End of cleaning variable lda */ | |||
| 37704 | /* End of cleaning variable n */ | |||
| 37705 | /* End of cleaning variable info */ | |||
| 37706 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 37707 | /* End of cleaning variable a */ | |||
| 37708 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 37709 | } /*if (f2py_success) of lower*/ | |||
| 37710 | /* End of cleaning variable lower */ | |||
| 37711 | } /*CHECKSCALAR(itype==1||itype==2||itype==3)*/ | |||
| 37712 | } /*if (f2py_success) of itype*/ | |||
| 37713 | /* End of cleaning variable itype */ | |||
| 37714 | /*end of cleanupfrompyobj*/ | |||
| 37715 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 37716 | /*routdebugfailure*/ | |||
| 37717 | } else { | |||
| 37718 | /*routdebugleave*/ | |||
| 37719 | } | |||
| 37720 | CFUNCSMESS("Freeing memory.\n"); | |||
| 37721 | /*freemem*/ | |||
| 37722 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37723 | f2py_stop_clock(); | |||
| 37724 | #endif | |||
| 37725 | return capi_buildvalue; | |||
| 37726 | } | |||
| 37727 | /******************************* end of ssygst *******************************/ | |||
| 37728 | ||||
| 37729 | /*********************************** dsygst ***********************************/ | |||
| 37730 | static char doc_f2py_rout__flapack_dsygst[] = "\ | |||
| 37731 | c,info = dsygst(a,b,[itype,lower,overwrite_a])\n\nWrapper for ``dsygst``.\ | |||
| 37732 | \n\nParameters\n----------\n" | |||
| 37733 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 37734 | "b : input rank-2 array('d') with bounds (n,n)\n" | |||
| 37735 | "\nOther Parameters\n----------------\n" | |||
| 37736 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 37737 | "itype : input int, optional\n Default: 1\n" | |||
| 37738 | "lower : input int, optional\n Default: 0\n" | |||
| 37739 | "\nReturns\n-------\n" | |||
| 37740 | "c : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 37741 | "info : int"; | |||
| 37742 | /* extern void F_FUNC(dsygst,DSYGST)(F_INT*,char*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 37743 | static PyObject *f2py_rout__flapack_dsygst(const PyObject *capi_self, | |||
| 37744 | PyObject *capi_args, | |||
| 37745 | PyObject *capi_keywds, | |||
| 37746 | void (*f2py_func)(F_INTint*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 37747 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 37748 | volatile int f2py_success = 1; | |||
| 37749 | /*decl*/ | |||
| 37750 | ||||
| 37751 | int n = 0; | |||
| 37752 | double *a = NULL((void*)0); | |||
| 37753 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 37754 | const int a_Rank = 2; | |||
| 37755 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 37756 | int capi_a_intent = 0; | |||
| 37757 | int capi_overwrite_a = 0; | |||
| 37758 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 37759 | int lda = 0; | |||
| 37760 | double *b = NULL((void*)0); | |||
| 37761 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 37762 | const int b_Rank = 2; | |||
| 37763 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 37764 | int capi_b_intent = 0; | |||
| 37765 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 37766 | int ldb = 0; | |||
| 37767 | int info = 0; | |||
| 37768 | int itype = 0; | |||
| 37769 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 37770 | int lower = 0; | |||
| 37771 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 37772 | static char *capi_kwlist[] = {"a","b","itype","lower","overwrite_a",NULL((void*)0)}; | |||
| 37773 | ||||
| 37774 | /*routdebugenter*/ | |||
| 37775 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37776 | f2py_start_clock(); | |||
| 37777 | #endif | |||
| 37778 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 37779 | "OO|OOi:_flapack.dsygst",\ | |||
| 37780 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&lower_capi,&capi_overwrite_a)) | |||
| 37781 | return NULL((void*)0); | |||
| 37782 | /*frompyobj*/ | |||
| 37783 | /* Processing variable itype */ | |||
| 37784 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 37785 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.dsygst() 1st keyword (itype) can't be converted to int"); | |||
| 37786 | if (f2py_success) { | |||
| 37787 | CHECKSCALAR(itype==1||itype==2||itype==3,"itype==1||itype==2||itype==3","1st keyword itype","dsygst:itype=%d",itype)if (!(itype==1||itype==2||itype==3)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygst:itype=%d", "(""itype==1||itype==2||itype==3" ") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 37788 | /* Processing variable lower */ | |||
| 37789 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 37790 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsygst() 2nd keyword (lower) can't be converted to int"); | |||
| 37791 | if (f2py_success) { | |||
| 37792 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsygst:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygst:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 37793 | /* Processing variable a */ | |||
| 37794 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 37795 | ; | |||
| 37796 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 37797 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 37798 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 37799 | if (!PyErr_Occurred()) | |||
| 37800 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsygst to C/Fortran array" ); | |||
| 37801 | } else { | |||
| 37802 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 37803 | ||||
| 37804 | /* Processing variable info */ | |||
| 37805 | /* Processing variable n */ | |||
| 37806 | n = shape(a,0)a_Dims[0]; | |||
| 37807 | /* Processing variable lda */ | |||
| 37808 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 37809 | /* Processing variable b */ | |||
| 37810 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 37811 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 37812 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 37813 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 37814 | if (!PyErr_Occurred()) | |||
| 37815 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dsygst to C/Fortran array" ); | |||
| 37816 | } else { | |||
| 37817 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 37818 | ||||
| 37819 | /* Processing variable ldb */ | |||
| 37820 | ldb = max(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 37821 | /*end of frompyobj*/ | |||
| 37822 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37823 | f2py_start_call_clock(); | |||
| 37824 | #endif | |||
| 37825 | /*callfortranroutine*/ | |||
| 37826 | (*f2py_func)(&itype,(lower?"L":"U"),&n,a,&lda,b,&ldb,&info) ; | |||
| 37827 | /*(*f2py_func)(&n,a,&lda,b,&ldb,&info,&itype,&lower);*/ | |||
| 37828 | if (PyErr_Occurred()) | |||
| 37829 | f2py_success = 0; | |||
| 37830 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37831 | f2py_stop_call_clock(); | |||
| 37832 | #endif | |||
| 37833 | /*end of callfortranroutine*/ | |||
| 37834 | if (f2py_success) { | |||
| 37835 | /*pyobjfrom*/ | |||
| 37836 | /*end of pyobjfrom*/ | |||
| 37837 | CFUNCSMESS("Building return value.\n"); | |||
| 37838 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 37839 | /*closepyobjfrom*/ | |||
| 37840 | /*end of closepyobjfrom*/ | |||
| 37841 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 37842 | /*cleanupfrompyobj*/ | |||
| 37843 | /* End of cleaning variable ldb */ | |||
| 37844 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 37845 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 37846 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 37847 | /* End of cleaning variable b */ | |||
| 37848 | /* End of cleaning variable lda */ | |||
| 37849 | /* End of cleaning variable n */ | |||
| 37850 | /* End of cleaning variable info */ | |||
| 37851 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 37852 | /* End of cleaning variable a */ | |||
| 37853 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 37854 | } /*if (f2py_success) of lower*/ | |||
| 37855 | /* End of cleaning variable lower */ | |||
| 37856 | } /*CHECKSCALAR(itype==1||itype==2||itype==3)*/ | |||
| 37857 | } /*if (f2py_success) of itype*/ | |||
| 37858 | /* End of cleaning variable itype */ | |||
| 37859 | /*end of cleanupfrompyobj*/ | |||
| 37860 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 37861 | /*routdebugfailure*/ | |||
| 37862 | } else { | |||
| 37863 | /*routdebugleave*/ | |||
| 37864 | } | |||
| 37865 | CFUNCSMESS("Freeing memory.\n"); | |||
| 37866 | /*freemem*/ | |||
| 37867 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37868 | f2py_stop_clock(); | |||
| 37869 | #endif | |||
| 37870 | return capi_buildvalue; | |||
| 37871 | } | |||
| 37872 | /******************************* end of dsygst *******************************/ | |||
| 37873 | ||||
| 37874 | /*********************************** ssytrf ***********************************/ | |||
| 37875 | static char doc_f2py_rout__flapack_ssytrf[] = "\ | |||
| 37876 | ldu,ipiv,info = ssytrf(a,[lower,lwork,overwrite_a])\n\nWrapper for ``ssytrf``.\ | |||
| 37877 | \n\nParameters\n----------\n" | |||
| 37878 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 37879 | "\nOther Parameters\n----------------\n" | |||
| 37880 | "lower : input int, optional\n Default: 0\n" | |||
| 37881 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 37882 | "lwork : input int, optional\n Default: max(n,1)\n" | |||
| 37883 | "\nReturns\n-------\n" | |||
| 37884 | "ldu : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 37885 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 37886 | "info : int"; | |||
| 37887 | /* extern void F_FUNC(ssytrf,SSYTRF)(char*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 37888 | static PyObject *f2py_rout__flapack_ssytrf(const PyObject *capi_self, | |||
| 37889 | PyObject *capi_args, | |||
| 37890 | PyObject *capi_keywds, | |||
| 37891 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 37892 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 37893 | volatile int f2py_success = 1; | |||
| 37894 | /*decl*/ | |||
| 37895 | ||||
| 37896 | int lower = 0; | |||
| 37897 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 37898 | int n = 0; | |||
| 37899 | float *a = NULL((void*)0); | |||
| 37900 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 37901 | const int a_Rank = 2; | |||
| 37902 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 37903 | int capi_a_intent = 0; | |||
| 37904 | int capi_overwrite_a = 0; | |||
| 37905 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 37906 | int lda = 0; | |||
| 37907 | int *ipiv = NULL((void*)0); | |||
| 37908 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 37909 | const int ipiv_Rank = 1; | |||
| 37910 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 37911 | int capi_ipiv_intent = 0; | |||
| 37912 | float *work = NULL((void*)0); | |||
| 37913 | npy_intp work_Dims[1] = {-1}; | |||
| 37914 | const int work_Rank = 1; | |||
| 37915 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 37916 | int capi_work_intent = 0; | |||
| 37917 | int lwork = 0; | |||
| 37918 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 37919 | int info = 0; | |||
| 37920 | static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 37921 | ||||
| 37922 | /*routdebugenter*/ | |||
| 37923 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37924 | f2py_start_clock(); | |||
| 37925 | #endif | |||
| 37926 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 37927 | "O|OOi:_flapack.ssytrf",\ | |||
| 37928 | capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 37929 | return NULL((void*)0); | |||
| 37930 | /*frompyobj*/ | |||
| 37931 | /* Processing variable lower */ | |||
| 37932 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 37933 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssytrf() 1st keyword (lower) can't be converted to int"); | |||
| 37934 | if (f2py_success) { | |||
| 37935 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssytrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssytrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 37936 | /* Processing variable a */ | |||
| 37937 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 37938 | ; | |||
| 37939 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 37940 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 37941 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 37942 | if (!PyErr_Occurred()) | |||
| 37943 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssytrf to C/Fortran array" ); | |||
| 37944 | } else { | |||
| 37945 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 37946 | ||||
| 37947 | /* Processing variable info */ | |||
| 37948 | /* Processing variable n */ | |||
| 37949 | n = shape(a,0)a_Dims[0]; | |||
| 37950 | /* Processing variable lda */ | |||
| 37951 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 37952 | /* Processing variable ipiv */ | |||
| 37953 | ipiv_Dims[0]=n; | |||
| 37954 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 37955 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 37956 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 37957 | if (!PyErr_Occurred()) | |||
| 37958 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.ssytrf to C/Fortran array" ); | |||
| 37959 | } else { | |||
| 37960 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 37961 | ||||
| 37962 | /* Processing variable lwork */ | |||
| 37963 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else | |||
| 37964 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssytrf() 2nd keyword (lwork) can't be converted to int"); | |||
| 37965 | if (f2py_success) { | |||
| 37966 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","2nd keyword lwork","ssytrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssytrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 37967 | /* Processing variable work */ | |||
| 37968 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 37969 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 37970 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 37971 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 37972 | if (!PyErr_Occurred()) | |||
| 37973 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssytrf to C/Fortran array" ); | |||
| 37974 | } else { | |||
| 37975 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 37976 | ||||
| 37977 | /*end of frompyobj*/ | |||
| 37978 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37979 | f2py_start_call_clock(); | |||
| 37980 | #endif | |||
| 37981 | /*callfortranroutine*/ | |||
| 37982 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,work,&lwork,&info) ; | |||
| 37983 | /*(*f2py_func)(&lower,&n,a,&lda,ipiv,work,&lwork,&info);*/ | |||
| 37984 | if (PyErr_Occurred()) | |||
| 37985 | f2py_success = 0; | |||
| 37986 | #ifdef F2PY_REPORT_ATEXIT | |||
| 37987 | f2py_stop_call_clock(); | |||
| 37988 | #endif | |||
| 37989 | /*end of callfortranroutine*/ | |||
| 37990 | if (f2py_success) { | |||
| 37991 | /*pyobjfrom*/ | |||
| 37992 | /*end of pyobjfrom*/ | |||
| 37993 | CFUNCSMESS("Building return value.\n"); | |||
| 37994 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info); | |||
| 37995 | /*closepyobjfrom*/ | |||
| 37996 | /*end of closepyobjfrom*/ | |||
| 37997 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 37998 | /*cleanupfrompyobj*/ | |||
| 37999 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 38000 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 38001 | /* End of cleaning variable work */ | |||
| 38002 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 38003 | } /*if (f2py_success) of lwork*/ | |||
| 38004 | /* End of cleaning variable lwork */ | |||
| 38005 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 38006 | /* End of cleaning variable ipiv */ | |||
| 38007 | /* End of cleaning variable lda */ | |||
| 38008 | /* End of cleaning variable n */ | |||
| 38009 | /* End of cleaning variable info */ | |||
| 38010 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 38011 | /* End of cleaning variable a */ | |||
| 38012 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 38013 | } /*if (f2py_success) of lower*/ | |||
| 38014 | /* End of cleaning variable lower */ | |||
| 38015 | /*end of cleanupfrompyobj*/ | |||
| 38016 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 38017 | /*routdebugfailure*/ | |||
| 38018 | } else { | |||
| 38019 | /*routdebugleave*/ | |||
| 38020 | } | |||
| 38021 | CFUNCSMESS("Freeing memory.\n"); | |||
| 38022 | /*freemem*/ | |||
| 38023 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38024 | f2py_stop_clock(); | |||
| 38025 | #endif | |||
| 38026 | return capi_buildvalue; | |||
| 38027 | } | |||
| 38028 | /******************************* end of ssytrf *******************************/ | |||
| 38029 | ||||
| 38030 | /*********************************** dsytrf ***********************************/ | |||
| 38031 | static char doc_f2py_rout__flapack_dsytrf[] = "\ | |||
| 38032 | ldu,ipiv,info = dsytrf(a,[lower,lwork,overwrite_a])\n\nWrapper for ``dsytrf``.\ | |||
| 38033 | \n\nParameters\n----------\n" | |||
| 38034 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 38035 | "\nOther Parameters\n----------------\n" | |||
| 38036 | "lower : input int, optional\n Default: 0\n" | |||
| 38037 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 38038 | "lwork : input int, optional\n Default: max(n,1)\n" | |||
| 38039 | "\nReturns\n-------\n" | |||
| 38040 | "ldu : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 38041 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 38042 | "info : int"; | |||
| 38043 | /* extern void F_FUNC(dsytrf,DSYTRF)(char*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 38044 | static PyObject *f2py_rout__flapack_dsytrf(const PyObject *capi_self, | |||
| 38045 | PyObject *capi_args, | |||
| 38046 | PyObject *capi_keywds, | |||
| 38047 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 38048 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 38049 | volatile int f2py_success = 1; | |||
| 38050 | /*decl*/ | |||
| 38051 | ||||
| 38052 | int lower = 0; | |||
| 38053 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 38054 | int n = 0; | |||
| 38055 | double *a = NULL((void*)0); | |||
| 38056 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 38057 | const int a_Rank = 2; | |||
| 38058 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 38059 | int capi_a_intent = 0; | |||
| 38060 | int capi_overwrite_a = 0; | |||
| 38061 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 38062 | int lda = 0; | |||
| 38063 | int *ipiv = NULL((void*)0); | |||
| 38064 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 38065 | const int ipiv_Rank = 1; | |||
| 38066 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 38067 | int capi_ipiv_intent = 0; | |||
| 38068 | double *work = NULL((void*)0); | |||
| 38069 | npy_intp work_Dims[1] = {-1}; | |||
| 38070 | const int work_Rank = 1; | |||
| 38071 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 38072 | int capi_work_intent = 0; | |||
| 38073 | int lwork = 0; | |||
| 38074 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 38075 | int info = 0; | |||
| 38076 | static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 38077 | ||||
| 38078 | /*routdebugenter*/ | |||
| 38079 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38080 | f2py_start_clock(); | |||
| 38081 | #endif | |||
| 38082 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 38083 | "O|OOi:_flapack.dsytrf",\ | |||
| 38084 | capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 38085 | return NULL((void*)0); | |||
| 38086 | /*frompyobj*/ | |||
| 38087 | /* Processing variable lower */ | |||
| 38088 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 38089 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsytrf() 1st keyword (lower) can't be converted to int"); | |||
| 38090 | if (f2py_success) { | |||
| 38091 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsytrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsytrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 38092 | /* Processing variable a */ | |||
| 38093 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 38094 | ; | |||
| 38095 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 38096 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 38097 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 38098 | if (!PyErr_Occurred()) | |||
| 38099 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsytrf to C/Fortran array" ); | |||
| 38100 | } else { | |||
| 38101 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 38102 | ||||
| 38103 | /* Processing variable info */ | |||
| 38104 | /* Processing variable n */ | |||
| 38105 | n = shape(a,0)a_Dims[0]; | |||
| 38106 | /* Processing variable lda */ | |||
| 38107 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 38108 | /* Processing variable ipiv */ | |||
| 38109 | ipiv_Dims[0]=n; | |||
| 38110 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 38111 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 38112 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 38113 | if (!PyErr_Occurred()) | |||
| 38114 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.dsytrf to C/Fortran array" ); | |||
| 38115 | } else { | |||
| 38116 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 38117 | ||||
| 38118 | /* Processing variable lwork */ | |||
| 38119 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else | |||
| 38120 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsytrf() 2nd keyword (lwork) can't be converted to int"); | |||
| 38121 | if (f2py_success) { | |||
| 38122 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","2nd keyword lwork","dsytrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsytrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 38123 | /* Processing variable work */ | |||
| 38124 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 38125 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 38126 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 38127 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 38128 | if (!PyErr_Occurred()) | |||
| 38129 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsytrf to C/Fortran array" ); | |||
| 38130 | } else { | |||
| 38131 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 38132 | ||||
| 38133 | /*end of frompyobj*/ | |||
| 38134 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38135 | f2py_start_call_clock(); | |||
| 38136 | #endif | |||
| 38137 | /*callfortranroutine*/ | |||
| 38138 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,work,&lwork,&info) ; | |||
| 38139 | /*(*f2py_func)(&lower,&n,a,&lda,ipiv,work,&lwork,&info);*/ | |||
| 38140 | if (PyErr_Occurred()) | |||
| 38141 | f2py_success = 0; | |||
| 38142 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38143 | f2py_stop_call_clock(); | |||
| 38144 | #endif | |||
| 38145 | /*end of callfortranroutine*/ | |||
| 38146 | if (f2py_success) { | |||
| 38147 | /*pyobjfrom*/ | |||
| 38148 | /*end of pyobjfrom*/ | |||
| 38149 | CFUNCSMESS("Building return value.\n"); | |||
| 38150 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info); | |||
| 38151 | /*closepyobjfrom*/ | |||
| 38152 | /*end of closepyobjfrom*/ | |||
| 38153 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 38154 | /*cleanupfrompyobj*/ | |||
| 38155 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 38156 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 38157 | /* End of cleaning variable work */ | |||
| 38158 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 38159 | } /*if (f2py_success) of lwork*/ | |||
| 38160 | /* End of cleaning variable lwork */ | |||
| 38161 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 38162 | /* End of cleaning variable ipiv */ | |||
| 38163 | /* End of cleaning variable lda */ | |||
| 38164 | /* End of cleaning variable n */ | |||
| 38165 | /* End of cleaning variable info */ | |||
| 38166 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 38167 | /* End of cleaning variable a */ | |||
| 38168 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 38169 | } /*if (f2py_success) of lower*/ | |||
| 38170 | /* End of cleaning variable lower */ | |||
| 38171 | /*end of cleanupfrompyobj*/ | |||
| 38172 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 38173 | /*routdebugfailure*/ | |||
| 38174 | } else { | |||
| 38175 | /*routdebugleave*/ | |||
| 38176 | } | |||
| 38177 | CFUNCSMESS("Freeing memory.\n"); | |||
| 38178 | /*freemem*/ | |||
| 38179 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38180 | f2py_stop_clock(); | |||
| 38181 | #endif | |||
| 38182 | return capi_buildvalue; | |||
| 38183 | } | |||
| 38184 | /******************************* end of dsytrf *******************************/ | |||
| 38185 | ||||
| 38186 | /*********************************** csytrf ***********************************/ | |||
| 38187 | static char doc_f2py_rout__flapack_csytrf[] = "\ | |||
| 38188 | ldu,ipiv,info = csytrf(a,[lower,lwork,overwrite_a])\n\nWrapper for ``csytrf``.\ | |||
| 38189 | \n\nParameters\n----------\n" | |||
| 38190 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 38191 | "\nOther Parameters\n----------------\n" | |||
| 38192 | "lower : input int, optional\n Default: 0\n" | |||
| 38193 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 38194 | "lwork : input int, optional\n Default: max(n,1)\n" | |||
| 38195 | "\nReturns\n-------\n" | |||
| 38196 | "ldu : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 38197 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 38198 | "info : int"; | |||
| 38199 | /* extern void F_FUNC(csytrf,CSYTRF)(char*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 38200 | static PyObject *f2py_rout__flapack_csytrf(const PyObject *capi_self, | |||
| 38201 | PyObject *capi_args, | |||
| 38202 | PyObject *capi_keywds, | |||
| 38203 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 38204 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 38205 | volatile int f2py_success = 1; | |||
| 38206 | /*decl*/ | |||
| 38207 | ||||
| 38208 | int lower = 0; | |||
| 38209 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 38210 | int n = 0; | |||
| 38211 | complex_float *a = NULL((void*)0); | |||
| 38212 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 38213 | const int a_Rank = 2; | |||
| 38214 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 38215 | int capi_a_intent = 0; | |||
| 38216 | int capi_overwrite_a = 0; | |||
| 38217 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 38218 | int lda = 0; | |||
| 38219 | int *ipiv = NULL((void*)0); | |||
| 38220 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 38221 | const int ipiv_Rank = 1; | |||
| 38222 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 38223 | int capi_ipiv_intent = 0; | |||
| 38224 | complex_float *work = NULL((void*)0); | |||
| 38225 | npy_intp work_Dims[1] = {-1}; | |||
| 38226 | const int work_Rank = 1; | |||
| 38227 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 38228 | int capi_work_intent = 0; | |||
| 38229 | int lwork = 0; | |||
| 38230 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 38231 | int info = 0; | |||
| 38232 | static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 38233 | ||||
| 38234 | /*routdebugenter*/ | |||
| 38235 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38236 | f2py_start_clock(); | |||
| 38237 | #endif | |||
| 38238 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 38239 | "O|OOi:_flapack.csytrf",\ | |||
| 38240 | capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 38241 | return NULL((void*)0); | |||
| 38242 | /*frompyobj*/ | |||
| 38243 | /* Processing variable lower */ | |||
| 38244 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 38245 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csytrf() 1st keyword (lower) can't be converted to int"); | |||
| 38246 | if (f2py_success) { | |||
| 38247 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csytrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csytrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 38248 | /* Processing variable a */ | |||
| 38249 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 38250 | ; | |||
| 38251 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 38252 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 38253 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 38254 | if (!PyErr_Occurred()) | |||
| 38255 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csytrf to C/Fortran array" ); | |||
| 38256 | } else { | |||
| 38257 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 38258 | ||||
| 38259 | /* Processing variable info */ | |||
| 38260 | /* Processing variable n */ | |||
| 38261 | n = shape(a,0)a_Dims[0]; | |||
| 38262 | /* Processing variable lda */ | |||
| 38263 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 38264 | /* Processing variable ipiv */ | |||
| 38265 | ipiv_Dims[0]=n; | |||
| 38266 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 38267 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 38268 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 38269 | if (!PyErr_Occurred()) | |||
| 38270 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.csytrf to C/Fortran array" ); | |||
| 38271 | } else { | |||
| 38272 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 38273 | ||||
| 38274 | /* Processing variable lwork */ | |||
| 38275 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else | |||
| 38276 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.csytrf() 2nd keyword (lwork) can't be converted to int"); | |||
| 38277 | if (f2py_success) { | |||
| 38278 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","2nd keyword lwork","csytrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csytrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 38279 | /* Processing variable work */ | |||
| 38280 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 38281 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 38282 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 38283 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 38284 | if (!PyErr_Occurred()) | |||
| 38285 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.csytrf to C/Fortran array" ); | |||
| 38286 | } else { | |||
| 38287 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 38288 | ||||
| 38289 | /*end of frompyobj*/ | |||
| 38290 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38291 | f2py_start_call_clock(); | |||
| 38292 | #endif | |||
| 38293 | /*callfortranroutine*/ | |||
| 38294 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,work,&lwork,&info) ; | |||
| 38295 | /*(*f2py_func)(&lower,&n,a,&lda,ipiv,work,&lwork,&info);*/ | |||
| 38296 | if (PyErr_Occurred()) | |||
| 38297 | f2py_success = 0; | |||
| 38298 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38299 | f2py_stop_call_clock(); | |||
| 38300 | #endif | |||
| 38301 | /*end of callfortranroutine*/ | |||
| 38302 | if (f2py_success) { | |||
| 38303 | /*pyobjfrom*/ | |||
| 38304 | /*end of pyobjfrom*/ | |||
| 38305 | CFUNCSMESS("Building return value.\n"); | |||
| 38306 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info); | |||
| 38307 | /*closepyobjfrom*/ | |||
| 38308 | /*end of closepyobjfrom*/ | |||
| 38309 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 38310 | /*cleanupfrompyobj*/ | |||
| 38311 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 38312 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 38313 | /* End of cleaning variable work */ | |||
| 38314 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 38315 | } /*if (f2py_success) of lwork*/ | |||
| 38316 | /* End of cleaning variable lwork */ | |||
| 38317 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 38318 | /* End of cleaning variable ipiv */ | |||
| 38319 | /* End of cleaning variable lda */ | |||
| 38320 | /* End of cleaning variable n */ | |||
| 38321 | /* End of cleaning variable info */ | |||
| 38322 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 38323 | /* End of cleaning variable a */ | |||
| 38324 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 38325 | } /*if (f2py_success) of lower*/ | |||
| 38326 | /* End of cleaning variable lower */ | |||
| 38327 | /*end of cleanupfrompyobj*/ | |||
| 38328 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 38329 | /*routdebugfailure*/ | |||
| 38330 | } else { | |||
| 38331 | /*routdebugleave*/ | |||
| 38332 | } | |||
| 38333 | CFUNCSMESS("Freeing memory.\n"); | |||
| 38334 | /*freemem*/ | |||
| 38335 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38336 | f2py_stop_clock(); | |||
| 38337 | #endif | |||
| 38338 | return capi_buildvalue; | |||
| 38339 | } | |||
| 38340 | /******************************* end of csytrf *******************************/ | |||
| 38341 | ||||
| 38342 | /*********************************** zsytrf ***********************************/ | |||
| 38343 | static char doc_f2py_rout__flapack_zsytrf[] = "\ | |||
| 38344 | ldu,ipiv,info = zsytrf(a,[lower,lwork,overwrite_a])\n\nWrapper for ``zsytrf``.\ | |||
| 38345 | \n\nParameters\n----------\n" | |||
| 38346 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 38347 | "\nOther Parameters\n----------------\n" | |||
| 38348 | "lower : input int, optional\n Default: 0\n" | |||
| 38349 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 38350 | "lwork : input int, optional\n Default: max(n,1)\n" | |||
| 38351 | "\nReturns\n-------\n" | |||
| 38352 | "ldu : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 38353 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 38354 | "info : int"; | |||
| 38355 | /* extern void F_FUNC(zsytrf,ZSYTRF)(char*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 38356 | static PyObject *f2py_rout__flapack_zsytrf(const PyObject *capi_self, | |||
| 38357 | PyObject *capi_args, | |||
| 38358 | PyObject *capi_keywds, | |||
| 38359 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 38360 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 38361 | volatile int f2py_success = 1; | |||
| 38362 | /*decl*/ | |||
| 38363 | ||||
| 38364 | int lower = 0; | |||
| 38365 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 38366 | int n = 0; | |||
| 38367 | complex_double *a = NULL((void*)0); | |||
| 38368 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 38369 | const int a_Rank = 2; | |||
| 38370 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 38371 | int capi_a_intent = 0; | |||
| 38372 | int capi_overwrite_a = 0; | |||
| 38373 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 38374 | int lda = 0; | |||
| 38375 | int *ipiv = NULL((void*)0); | |||
| 38376 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 38377 | const int ipiv_Rank = 1; | |||
| 38378 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 38379 | int capi_ipiv_intent = 0; | |||
| 38380 | complex_double *work = NULL((void*)0); | |||
| 38381 | npy_intp work_Dims[1] = {-1}; | |||
| 38382 | const int work_Rank = 1; | |||
| 38383 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 38384 | int capi_work_intent = 0; | |||
| 38385 | int lwork = 0; | |||
| 38386 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 38387 | int info = 0; | |||
| 38388 | static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 38389 | ||||
| 38390 | /*routdebugenter*/ | |||
| 38391 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38392 | f2py_start_clock(); | |||
| 38393 | #endif | |||
| 38394 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 38395 | "O|OOi:_flapack.zsytrf",\ | |||
| 38396 | capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 38397 | return NULL((void*)0); | |||
| 38398 | /*frompyobj*/ | |||
| 38399 | /* Processing variable lower */ | |||
| 38400 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 38401 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsytrf() 1st keyword (lower) can't be converted to int"); | |||
| 38402 | if (f2py_success) { | |||
| 38403 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsytrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsytrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 38404 | /* Processing variable a */ | |||
| 38405 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 38406 | ; | |||
| 38407 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 38408 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 38409 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 38410 | if (!PyErr_Occurred()) | |||
| 38411 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsytrf to C/Fortran array" ); | |||
| 38412 | } else { | |||
| 38413 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 38414 | ||||
| 38415 | /* Processing variable info */ | |||
| 38416 | /* Processing variable n */ | |||
| 38417 | n = shape(a,0)a_Dims[0]; | |||
| 38418 | /* Processing variable lda */ | |||
| 38419 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 38420 | /* Processing variable ipiv */ | |||
| 38421 | ipiv_Dims[0]=n; | |||
| 38422 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 38423 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 38424 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 38425 | if (!PyErr_Occurred()) | |||
| 38426 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zsytrf to C/Fortran array" ); | |||
| 38427 | } else { | |||
| 38428 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 38429 | ||||
| 38430 | /* Processing variable lwork */ | |||
| 38431 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else | |||
| 38432 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zsytrf() 2nd keyword (lwork) can't be converted to int"); | |||
| 38433 | if (f2py_success) { | |||
| 38434 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","2nd keyword lwork","zsytrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsytrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 38435 | /* Processing variable work */ | |||
| 38436 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 38437 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 38438 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 38439 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 38440 | if (!PyErr_Occurred()) | |||
| 38441 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zsytrf to C/Fortran array" ); | |||
| 38442 | } else { | |||
| 38443 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 38444 | ||||
| 38445 | /*end of frompyobj*/ | |||
| 38446 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38447 | f2py_start_call_clock(); | |||
| 38448 | #endif | |||
| 38449 | /*callfortranroutine*/ | |||
| 38450 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,work,&lwork,&info) ; | |||
| 38451 | /*(*f2py_func)(&lower,&n,a,&lda,ipiv,work,&lwork,&info);*/ | |||
| 38452 | if (PyErr_Occurred()) | |||
| 38453 | f2py_success = 0; | |||
| 38454 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38455 | f2py_stop_call_clock(); | |||
| 38456 | #endif | |||
| 38457 | /*end of callfortranroutine*/ | |||
| 38458 | if (f2py_success) { | |||
| 38459 | /*pyobjfrom*/ | |||
| 38460 | /*end of pyobjfrom*/ | |||
| 38461 | CFUNCSMESS("Building return value.\n"); | |||
| 38462 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info); | |||
| 38463 | /*closepyobjfrom*/ | |||
| 38464 | /*end of closepyobjfrom*/ | |||
| 38465 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 38466 | /*cleanupfrompyobj*/ | |||
| 38467 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 38468 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 38469 | /* End of cleaning variable work */ | |||
| 38470 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 38471 | } /*if (f2py_success) of lwork*/ | |||
| 38472 | /* End of cleaning variable lwork */ | |||
| 38473 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 38474 | /* End of cleaning variable ipiv */ | |||
| 38475 | /* End of cleaning variable lda */ | |||
| 38476 | /* End of cleaning variable n */ | |||
| 38477 | /* End of cleaning variable info */ | |||
| 38478 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 38479 | /* End of cleaning variable a */ | |||
| 38480 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 38481 | } /*if (f2py_success) of lower*/ | |||
| 38482 | /* End of cleaning variable lower */ | |||
| 38483 | /*end of cleanupfrompyobj*/ | |||
| 38484 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 38485 | /*routdebugfailure*/ | |||
| 38486 | } else { | |||
| 38487 | /*routdebugleave*/ | |||
| 38488 | } | |||
| 38489 | CFUNCSMESS("Freeing memory.\n"); | |||
| 38490 | /*freemem*/ | |||
| 38491 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38492 | f2py_stop_clock(); | |||
| 38493 | #endif | |||
| 38494 | return capi_buildvalue; | |||
| 38495 | } | |||
| 38496 | /******************************* end of zsytrf *******************************/ | |||
| 38497 | ||||
| 38498 | /******************************** ssytrf_lwork ********************************/ | |||
| 38499 | static char doc_f2py_rout__flapack_ssytrf_lwork[] = "\ | |||
| 38500 | work,info = ssytrf_lwork(n,[lower])\n\nWrapper for ``ssytrf_lwork``.\ | |||
| 38501 | \n\nParameters\n----------\n" | |||
| 38502 | "n : input int\n" | |||
| 38503 | "\nOther Parameters\n----------------\n" | |||
| 38504 | "lower : input int, optional\n Default: 0\n" | |||
| 38505 | "\nReturns\n-------\n" | |||
| 38506 | "work : float\n" | |||
| 38507 | "info : int"; | |||
| 38508 | /* extern void F_FUNC(ssytrf ,SSYTRF )(char*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 38509 | static PyObject *f2py_rout__flapack_ssytrf_lwork(const PyObject *capi_self, | |||
| 38510 | PyObject *capi_args, | |||
| 38511 | PyObject *capi_keywds, | |||
| 38512 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 38513 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 38514 | volatile int f2py_success = 1; | |||
| 38515 | /*decl*/ | |||
| 38516 | ||||
| 38517 | int lower = 0; | |||
| 38518 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 38519 | int n = 0; | |||
| 38520 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 38521 | float a = 0; | |||
| 38522 | int lda = 0; | |||
| 38523 | int ipiv = 0; | |||
| 38524 | float work = 0; | |||
| 38525 | int lwork = 0; | |||
| 38526 | int info = 0; | |||
| 38527 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 38528 | ||||
| 38529 | /*routdebugenter*/ | |||
| 38530 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38531 | f2py_start_clock(); | |||
| 38532 | #endif | |||
| 38533 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 38534 | "O|O:_flapack.ssytrf_lwork",\ | |||
| 38535 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 38536 | return NULL((void*)0); | |||
| 38537 | /*frompyobj*/ | |||
| 38538 | /* Processing variable n */ | |||
| 38539 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssytrf_lwork() 1st argument (n) can't be converted to int"); | |||
| 38540 | if (f2py_success) { | |||
| 38541 | /* Processing variable lower */ | |||
| 38542 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 38543 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssytrf_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 38544 | if (f2py_success) { | |||
| 38545 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssytrf_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssytrf_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 38546 | /* Processing variable a */ | |||
| 38547 | /* Processing variable ipiv */ | |||
| 38548 | /* Processing variable lwork */ | |||
| 38549 | lwork = -1; | |||
| 38550 | /* Processing variable work */ | |||
| 38551 | /* Processing variable info */ | |||
| 38552 | /* Processing variable lda */ | |||
| 38553 | lda = max(n,1)((n > 1) ? (n) : (1)); | |||
| 38554 | /*end of frompyobj*/ | |||
| 38555 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38556 | f2py_start_call_clock(); | |||
| 38557 | #endif | |||
| 38558 | /*callfortranroutine*/ | |||
| 38559 | (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&ipiv,&work,&lwork,&info) ; | |||
| 38560 | /*(*f2py_func)(&lower,&n,&a,&lda,&ipiv,&work,&lwork,&info);*/ | |||
| 38561 | if (PyErr_Occurred()) | |||
| 38562 | f2py_success = 0; | |||
| 38563 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38564 | f2py_stop_call_clock(); | |||
| 38565 | #endif | |||
| 38566 | /*end of callfortranroutine*/ | |||
| 38567 | if (f2py_success) { | |||
| 38568 | /*pyobjfrom*/ | |||
| 38569 | /*end of pyobjfrom*/ | |||
| 38570 | CFUNCSMESS("Building return value.\n"); | |||
| 38571 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 38572 | /*closepyobjfrom*/ | |||
| 38573 | /*end of closepyobjfrom*/ | |||
| 38574 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 38575 | /*cleanupfrompyobj*/ | |||
| 38576 | /* End of cleaning variable lda */ | |||
| 38577 | /* End of cleaning variable info */ | |||
| 38578 | /* End of cleaning variable work */ | |||
| 38579 | /* End of cleaning variable lwork */ | |||
| 38580 | /* End of cleaning variable ipiv */ | |||
| 38581 | /* End of cleaning variable a */ | |||
| 38582 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 38583 | } /*if (f2py_success) of lower*/ | |||
| 38584 | /* End of cleaning variable lower */ | |||
| 38585 | } /*if (f2py_success) of n*/ | |||
| 38586 | /* End of cleaning variable n */ | |||
| 38587 | /*end of cleanupfrompyobj*/ | |||
| 38588 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 38589 | /*routdebugfailure*/ | |||
| 38590 | } else { | |||
| 38591 | /*routdebugleave*/ | |||
| 38592 | } | |||
| 38593 | CFUNCSMESS("Freeing memory.\n"); | |||
| 38594 | /*freemem*/ | |||
| 38595 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38596 | f2py_stop_clock(); | |||
| 38597 | #endif | |||
| 38598 | return capi_buildvalue; | |||
| 38599 | } | |||
| 38600 | /**************************** end of ssytrf_lwork ****************************/ | |||
| 38601 | ||||
| 38602 | /******************************** dsytrf_lwork ********************************/ | |||
| 38603 | static char doc_f2py_rout__flapack_dsytrf_lwork[] = "\ | |||
| 38604 | work,info = dsytrf_lwork(n,[lower])\n\nWrapper for ``dsytrf_lwork``.\ | |||
| 38605 | \n\nParameters\n----------\n" | |||
| 38606 | "n : input int\n" | |||
| 38607 | "\nOther Parameters\n----------------\n" | |||
| 38608 | "lower : input int, optional\n Default: 0\n" | |||
| 38609 | "\nReturns\n-------\n" | |||
| 38610 | "work : float\n" | |||
| 38611 | "info : int"; | |||
| 38612 | /* extern void F_FUNC(dsytrf ,DSYTRF )(char*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 38613 | static PyObject *f2py_rout__flapack_dsytrf_lwork(const PyObject *capi_self, | |||
| 38614 | PyObject *capi_args, | |||
| 38615 | PyObject *capi_keywds, | |||
| 38616 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 38617 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 38618 | volatile int f2py_success = 1; | |||
| 38619 | /*decl*/ | |||
| 38620 | ||||
| 38621 | int lower = 0; | |||
| 38622 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 38623 | int n = 0; | |||
| 38624 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 38625 | double a = 0; | |||
| 38626 | int lda = 0; | |||
| 38627 | int ipiv = 0; | |||
| 38628 | double work = 0; | |||
| 38629 | int lwork = 0; | |||
| 38630 | int info = 0; | |||
| 38631 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 38632 | ||||
| 38633 | /*routdebugenter*/ | |||
| 38634 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38635 | f2py_start_clock(); | |||
| 38636 | #endif | |||
| 38637 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 38638 | "O|O:_flapack.dsytrf_lwork",\ | |||
| 38639 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 38640 | return NULL((void*)0); | |||
| 38641 | /*frompyobj*/ | |||
| 38642 | /* Processing variable n */ | |||
| 38643 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsytrf_lwork() 1st argument (n) can't be converted to int"); | |||
| 38644 | if (f2py_success) { | |||
| 38645 | /* Processing variable lower */ | |||
| 38646 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 38647 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsytrf_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 38648 | if (f2py_success) { | |||
| 38649 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsytrf_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsytrf_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 38650 | /* Processing variable a */ | |||
| 38651 | /* Processing variable ipiv */ | |||
| 38652 | /* Processing variable lwork */ | |||
| 38653 | lwork = -1; | |||
| 38654 | /* Processing variable work */ | |||
| 38655 | /* Processing variable info */ | |||
| 38656 | /* Processing variable lda */ | |||
| 38657 | lda = max(n,1)((n > 1) ? (n) : (1)); | |||
| 38658 | /*end of frompyobj*/ | |||
| 38659 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38660 | f2py_start_call_clock(); | |||
| 38661 | #endif | |||
| 38662 | /*callfortranroutine*/ | |||
| 38663 | (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&ipiv,&work,&lwork,&info) ; | |||
| 38664 | /*(*f2py_func)(&lower,&n,&a,&lda,&ipiv,&work,&lwork,&info);*/ | |||
| 38665 | if (PyErr_Occurred()) | |||
| 38666 | f2py_success = 0; | |||
| 38667 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38668 | f2py_stop_call_clock(); | |||
| 38669 | #endif | |||
| 38670 | /*end of callfortranroutine*/ | |||
| 38671 | if (f2py_success) { | |||
| 38672 | /*pyobjfrom*/ | |||
| 38673 | /*end of pyobjfrom*/ | |||
| 38674 | CFUNCSMESS("Building return value.\n"); | |||
| 38675 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 38676 | /*closepyobjfrom*/ | |||
| 38677 | /*end of closepyobjfrom*/ | |||
| 38678 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 38679 | /*cleanupfrompyobj*/ | |||
| 38680 | /* End of cleaning variable lda */ | |||
| 38681 | /* End of cleaning variable info */ | |||
| 38682 | /* End of cleaning variable work */ | |||
| 38683 | /* End of cleaning variable lwork */ | |||
| 38684 | /* End of cleaning variable ipiv */ | |||
| 38685 | /* End of cleaning variable a */ | |||
| 38686 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 38687 | } /*if (f2py_success) of lower*/ | |||
| 38688 | /* End of cleaning variable lower */ | |||
| 38689 | } /*if (f2py_success) of n*/ | |||
| 38690 | /* End of cleaning variable n */ | |||
| 38691 | /*end of cleanupfrompyobj*/ | |||
| 38692 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 38693 | /*routdebugfailure*/ | |||
| 38694 | } else { | |||
| 38695 | /*routdebugleave*/ | |||
| 38696 | } | |||
| 38697 | CFUNCSMESS("Freeing memory.\n"); | |||
| 38698 | /*freemem*/ | |||
| 38699 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38700 | f2py_stop_clock(); | |||
| 38701 | #endif | |||
| 38702 | return capi_buildvalue; | |||
| 38703 | } | |||
| 38704 | /**************************** end of dsytrf_lwork ****************************/ | |||
| 38705 | ||||
| 38706 | /******************************** csytrf_lwork ********************************/ | |||
| 38707 | static char doc_f2py_rout__flapack_csytrf_lwork[] = "\ | |||
| 38708 | work,info = csytrf_lwork(n,[lower])\n\nWrapper for ``csytrf_lwork``.\ | |||
| 38709 | \n\nParameters\n----------\n" | |||
| 38710 | "n : input int\n" | |||
| 38711 | "\nOther Parameters\n----------------\n" | |||
| 38712 | "lower : input int, optional\n Default: 0\n" | |||
| 38713 | "\nReturns\n-------\n" | |||
| 38714 | "work : complex\n" | |||
| 38715 | "info : int"; | |||
| 38716 | /* extern void F_FUNC(csytrf ,CSYTRF )(char*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 38717 | static PyObject *f2py_rout__flapack_csytrf_lwork(const PyObject *capi_self, | |||
| 38718 | PyObject *capi_args, | |||
| 38719 | PyObject *capi_keywds, | |||
| 38720 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 38721 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 38722 | volatile int f2py_success = 1; | |||
| 38723 | /*decl*/ | |||
| 38724 | ||||
| 38725 | int lower = 0; | |||
| 38726 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 38727 | int n = 0; | |||
| 38728 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 38729 | complex_float a; | |||
| 38730 | int lda = 0; | |||
| 38731 | int ipiv = 0; | |||
| 38732 | complex_float work; | |||
| 38733 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 38734 | int lwork = 0; | |||
| 38735 | int info = 0; | |||
| 38736 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 38737 | ||||
| 38738 | /*routdebugenter*/ | |||
| 38739 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38740 | f2py_start_clock(); | |||
| 38741 | #endif | |||
| 38742 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 38743 | "O|O:_flapack.csytrf_lwork",\ | |||
| 38744 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 38745 | return NULL((void*)0); | |||
| 38746 | /*frompyobj*/ | |||
| 38747 | /* Processing variable n */ | |||
| 38748 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.csytrf_lwork() 1st argument (n) can't be converted to int"); | |||
| 38749 | if (f2py_success) { | |||
| 38750 | /* Processing variable lower */ | |||
| 38751 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 38752 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csytrf_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 38753 | if (f2py_success) { | |||
| 38754 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csytrf_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csytrf_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 38755 | /* Processing variable a */ | |||
| 38756 | /* Processing variable ipiv */ | |||
| 38757 | /* Processing variable lwork */ | |||
| 38758 | lwork = -1; | |||
| 38759 | /* Processing variable work */ | |||
| 38760 | /* Processing variable info */ | |||
| 38761 | /* Processing variable lda */ | |||
| 38762 | lda = max(n,1)((n > 1) ? (n) : (1)); | |||
| 38763 | /*end of frompyobj*/ | |||
| 38764 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38765 | f2py_start_call_clock(); | |||
| 38766 | #endif | |||
| 38767 | /*callfortranroutine*/ | |||
| 38768 | (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&ipiv,&work,&lwork,&info) ; | |||
| 38769 | /*(*f2py_func)(&lower,&n,&a,&lda,&ipiv,&work,&lwork,&info);*/ | |||
| 38770 | if (PyErr_Occurred()) | |||
| 38771 | f2py_success = 0; | |||
| 38772 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38773 | f2py_stop_call_clock(); | |||
| 38774 | #endif | |||
| 38775 | /*end of callfortranroutine*/ | |||
| 38776 | if (f2py_success) { | |||
| 38777 | /*pyobjfrom*/ | |||
| 38778 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 38779 | /*end of pyobjfrom*/ | |||
| 38780 | CFUNCSMESS("Building return value.\n"); | |||
| 38781 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 38782 | /*closepyobjfrom*/ | |||
| 38783 | /*end of closepyobjfrom*/ | |||
| 38784 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 38785 | /*cleanupfrompyobj*/ | |||
| 38786 | /* End of cleaning variable lda */ | |||
| 38787 | /* End of cleaning variable info */ | |||
| 38788 | /* End of cleaning variable work */ | |||
| 38789 | /* End of cleaning variable lwork */ | |||
| 38790 | /* End of cleaning variable ipiv */ | |||
| 38791 | /* End of cleaning variable a */ | |||
| 38792 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 38793 | } /*if (f2py_success) of lower*/ | |||
| 38794 | /* End of cleaning variable lower */ | |||
| 38795 | } /*if (f2py_success) of n*/ | |||
| 38796 | /* End of cleaning variable n */ | |||
| 38797 | /*end of cleanupfrompyobj*/ | |||
| 38798 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 38799 | /*routdebugfailure*/ | |||
| 38800 | } else { | |||
| 38801 | /*routdebugleave*/ | |||
| 38802 | } | |||
| 38803 | CFUNCSMESS("Freeing memory.\n"); | |||
| 38804 | /*freemem*/ | |||
| 38805 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38806 | f2py_stop_clock(); | |||
| 38807 | #endif | |||
| 38808 | return capi_buildvalue; | |||
| 38809 | } | |||
| 38810 | /**************************** end of csytrf_lwork ****************************/ | |||
| 38811 | ||||
| 38812 | /******************************** zsytrf_lwork ********************************/ | |||
| 38813 | static char doc_f2py_rout__flapack_zsytrf_lwork[] = "\ | |||
| 38814 | work,info = zsytrf_lwork(n,[lower])\n\nWrapper for ``zsytrf_lwork``.\ | |||
| 38815 | \n\nParameters\n----------\n" | |||
| 38816 | "n : input int\n" | |||
| 38817 | "\nOther Parameters\n----------------\n" | |||
| 38818 | "lower : input int, optional\n Default: 0\n" | |||
| 38819 | "\nReturns\n-------\n" | |||
| 38820 | "work : complex\n" | |||
| 38821 | "info : int"; | |||
| 38822 | /* extern void F_FUNC(zsytrf ,ZSYTRF )(char*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 38823 | static PyObject *f2py_rout__flapack_zsytrf_lwork(const PyObject *capi_self, | |||
| 38824 | PyObject *capi_args, | |||
| 38825 | PyObject *capi_keywds, | |||
| 38826 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 38827 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 38828 | volatile int f2py_success = 1; | |||
| 38829 | /*decl*/ | |||
| 38830 | ||||
| 38831 | int lower = 0; | |||
| 38832 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 38833 | int n = 0; | |||
| 38834 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 38835 | complex_double a; | |||
| 38836 | int lda = 0; | |||
| 38837 | int ipiv = 0; | |||
| 38838 | complex_double work; | |||
| 38839 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 38840 | int lwork = 0; | |||
| 38841 | int info = 0; | |||
| 38842 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 38843 | ||||
| 38844 | /*routdebugenter*/ | |||
| 38845 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38846 | f2py_start_clock(); | |||
| 38847 | #endif | |||
| 38848 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 38849 | "O|O:_flapack.zsytrf_lwork",\ | |||
| 38850 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 38851 | return NULL((void*)0); | |||
| 38852 | /*frompyobj*/ | |||
| 38853 | /* Processing variable n */ | |||
| 38854 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zsytrf_lwork() 1st argument (n) can't be converted to int"); | |||
| 38855 | if (f2py_success) { | |||
| 38856 | /* Processing variable lower */ | |||
| 38857 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 38858 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsytrf_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 38859 | if (f2py_success) { | |||
| 38860 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsytrf_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsytrf_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 38861 | /* Processing variable a */ | |||
| 38862 | /* Processing variable ipiv */ | |||
| 38863 | /* Processing variable lwork */ | |||
| 38864 | lwork = -1; | |||
| 38865 | /* Processing variable work */ | |||
| 38866 | /* Processing variable info */ | |||
| 38867 | /* Processing variable lda */ | |||
| 38868 | lda = max(n,1)((n > 1) ? (n) : (1)); | |||
| 38869 | /*end of frompyobj*/ | |||
| 38870 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38871 | f2py_start_call_clock(); | |||
| 38872 | #endif | |||
| 38873 | /*callfortranroutine*/ | |||
| 38874 | (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&ipiv,&work,&lwork,&info) ; | |||
| 38875 | /*(*f2py_func)(&lower,&n,&a,&lda,&ipiv,&work,&lwork,&info);*/ | |||
| 38876 | if (PyErr_Occurred()) | |||
| 38877 | f2py_success = 0; | |||
| 38878 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38879 | f2py_stop_call_clock(); | |||
| 38880 | #endif | |||
| 38881 | /*end of callfortranroutine*/ | |||
| 38882 | if (f2py_success) { | |||
| 38883 | /*pyobjfrom*/ | |||
| 38884 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 38885 | /*end of pyobjfrom*/ | |||
| 38886 | CFUNCSMESS("Building return value.\n"); | |||
| 38887 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 38888 | /*closepyobjfrom*/ | |||
| 38889 | /*end of closepyobjfrom*/ | |||
| 38890 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 38891 | /*cleanupfrompyobj*/ | |||
| 38892 | /* End of cleaning variable lda */ | |||
| 38893 | /* End of cleaning variable info */ | |||
| 38894 | /* End of cleaning variable work */ | |||
| 38895 | /* End of cleaning variable lwork */ | |||
| 38896 | /* End of cleaning variable ipiv */ | |||
| 38897 | /* End of cleaning variable a */ | |||
| 38898 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 38899 | } /*if (f2py_success) of lower*/ | |||
| 38900 | /* End of cleaning variable lower */ | |||
| 38901 | } /*if (f2py_success) of n*/ | |||
| 38902 | /* End of cleaning variable n */ | |||
| 38903 | /*end of cleanupfrompyobj*/ | |||
| 38904 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 38905 | /*routdebugfailure*/ | |||
| 38906 | } else { | |||
| 38907 | /*routdebugleave*/ | |||
| 38908 | } | |||
| 38909 | CFUNCSMESS("Freeing memory.\n"); | |||
| 38910 | /*freemem*/ | |||
| 38911 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38912 | f2py_stop_clock(); | |||
| 38913 | #endif | |||
| 38914 | return capi_buildvalue; | |||
| 38915 | } | |||
| 38916 | /**************************** end of zsytrf_lwork ****************************/ | |||
| 38917 | ||||
| 38918 | /*********************************** ssysv ***********************************/ | |||
| 38919 | static char doc_f2py_rout__flapack_ssysv[] = "\ | |||
| 38920 | udut,ipiv,x,info = ssysv(a,b,[lwork,lower,overwrite_a,overwrite_b])\n\nWrapper for ``ssysv``.\ | |||
| 38921 | \n\nParameters\n----------\n" | |||
| 38922 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 38923 | "b : input rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 38924 | "\nOther Parameters\n----------------\n" | |||
| 38925 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 38926 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 38927 | "lwork : input int, optional\n Default: max(n,1)\n" | |||
| 38928 | "lower : input int, optional\n Default: 0\n" | |||
| 38929 | "\nReturns\n-------\n" | |||
| 38930 | "udut : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 38931 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 38932 | "x : rank-2 array('f') with bounds (n,nrhs) and b storage\n" | |||
| 38933 | "info : int"; | |||
| 38934 | /* extern void F_FUNC(ssysv,SSYSV)(char*,F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 38935 | static PyObject *f2py_rout__flapack_ssysv(const PyObject *capi_self, | |||
| 38936 | PyObject *capi_args, | |||
| 38937 | PyObject *capi_keywds, | |||
| 38938 | void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 38939 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 38940 | volatile int f2py_success = 1; | |||
| 38941 | /*decl*/ | |||
| 38942 | ||||
| 38943 | int n = 0; | |||
| 38944 | int nrhs = 0; | |||
| 38945 | float *a = NULL((void*)0); | |||
| 38946 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 38947 | const int a_Rank = 2; | |||
| 38948 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 38949 | int capi_a_intent = 0; | |||
| 38950 | int capi_overwrite_a = 0; | |||
| 38951 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 38952 | int lda = 0; | |||
| 38953 | int *ipiv = NULL((void*)0); | |||
| 38954 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 38955 | const int ipiv_Rank = 1; | |||
| 38956 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 38957 | int capi_ipiv_intent = 0; | |||
| 38958 | float *b = NULL((void*)0); | |||
| 38959 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 38960 | const int b_Rank = 2; | |||
| 38961 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 38962 | int capi_b_intent = 0; | |||
| 38963 | int capi_overwrite_b = 0; | |||
| 38964 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 38965 | int ldb = 0; | |||
| 38966 | float *work = NULL((void*)0); | |||
| 38967 | npy_intp work_Dims[1] = {-1}; | |||
| 38968 | const int work_Rank = 1; | |||
| 38969 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 38970 | int capi_work_intent = 0; | |||
| 38971 | int lwork = 0; | |||
| 38972 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 38973 | int info = 0; | |||
| 38974 | int lower = 0; | |||
| 38975 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 38976 | static char *capi_kwlist[] = {"a","b","lwork","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 38977 | ||||
| 38978 | /*routdebugenter*/ | |||
| 38979 | #ifdef F2PY_REPORT_ATEXIT | |||
| 38980 | f2py_start_clock(); | |||
| 38981 | #endif | |||
| 38982 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 38983 | "OO|OOii:_flapack.ssysv",\ | |||
| 38984 | capi_kwlist,&a_capi,&b_capi,&lwork_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 38985 | return NULL((void*)0); | |||
| 38986 | /*frompyobj*/ | |||
| 38987 | /* Processing variable lower */ | |||
| 38988 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 38989 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssysv() 2nd keyword (lower) can't be converted to int"); | |||
| 38990 | if (f2py_success) { | |||
| 38991 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssysv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssysv:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 38992 | /* Processing variable a */ | |||
| 38993 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 38994 | ; | |||
| 38995 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 38996 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 38997 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 38998 | if (!PyErr_Occurred()) | |||
| 38999 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssysv to C/Fortran array" ); | |||
| 39000 | } else { | |||
| 39001 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 39002 | ||||
| 39003 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 39004 | /* Processing variable info */ | |||
| 39005 | /* Processing variable n */ | |||
| 39006 | n = shape(a,0)a_Dims[0]; | |||
| 39007 | /* Processing variable lda */ | |||
| 39008 | lda = shape(a,0)a_Dims[0]; | |||
| 39009 | /* Processing variable ipiv */ | |||
| 39010 | ipiv_Dims[0]=n; | |||
| 39011 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 39012 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 39013 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 39014 | if (!PyErr_Occurred()) | |||
| 39015 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.ssysv to C/Fortran array" ); | |||
| 39016 | } else { | |||
| 39017 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 39018 | ||||
| 39019 | /* Processing variable b */ | |||
| 39020 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 39021 | b_Dims[0]=n; | |||
| 39022 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 39023 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 39024 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 39025 | if (!PyErr_Occurred()) | |||
| 39026 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ssysv to C/Fortran array" ); | |||
| 39027 | } else { | |||
| 39028 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 39029 | ||||
| 39030 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 39031 | /* Processing variable ldb */ | |||
| 39032 | ldb = shape(b,0)b_Dims[0]; | |||
| 39033 | /* Processing variable lwork */ | |||
| 39034 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else | |||
| 39035 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssysv() 1st keyword (lwork) can't be converted to int"); | |||
| 39036 | if (f2py_success) { | |||
| 39037 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","1st keyword lwork","ssysv:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssysv:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 39038 | /* Processing variable work */ | |||
| 39039 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 39040 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 39041 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 39042 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 39043 | if (!PyErr_Occurred()) | |||
| 39044 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssysv to C/Fortran array" ); | |||
| 39045 | } else { | |||
| 39046 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 39047 | ||||
| 39048 | /* Processing variable nrhs */ | |||
| 39049 | nrhs = shape(b,1)b_Dims[1]; | |||
| 39050 | /*end of frompyobj*/ | |||
| 39051 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39052 | f2py_start_call_clock(); | |||
| 39053 | #endif | |||
| 39054 | /*callfortranroutine*/ | |||
| 39055 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info) ; | |||
| 39056 | /*(*f2py_func)(&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info,&lower);*/ | |||
| 39057 | if (PyErr_Occurred()) | |||
| 39058 | f2py_success = 0; | |||
| 39059 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39060 | f2py_stop_call_clock(); | |||
| 39061 | #endif | |||
| 39062 | /*end of callfortranroutine*/ | |||
| 39063 | if (f2py_success) { | |||
| 39064 | /*pyobjfrom*/ | |||
| 39065 | /*end of pyobjfrom*/ | |||
| 39066 | CFUNCSMESS("Building return value.\n"); | |||
| 39067 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_b_tmp,info); | |||
| 39068 | /*closepyobjfrom*/ | |||
| 39069 | /*end of closepyobjfrom*/ | |||
| 39070 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 39071 | /*cleanupfrompyobj*/ | |||
| 39072 | /* End of cleaning variable nrhs */ | |||
| 39073 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 39074 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 39075 | /* End of cleaning variable work */ | |||
| 39076 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 39077 | } /*if (f2py_success) of lwork*/ | |||
| 39078 | /* End of cleaning variable lwork */ | |||
| 39079 | /* End of cleaning variable ldb */ | |||
| 39080 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 39081 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 39082 | /* End of cleaning variable b */ | |||
| 39083 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 39084 | /* End of cleaning variable ipiv */ | |||
| 39085 | /* End of cleaning variable lda */ | |||
| 39086 | /* End of cleaning variable n */ | |||
| 39087 | /* End of cleaning variable info */ | |||
| 39088 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 39089 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 39090 | /* End of cleaning variable a */ | |||
| 39091 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 39092 | } /*if (f2py_success) of lower*/ | |||
| 39093 | /* End of cleaning variable lower */ | |||
| 39094 | /*end of cleanupfrompyobj*/ | |||
| 39095 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 39096 | /*routdebugfailure*/ | |||
| 39097 | } else { | |||
| 39098 | /*routdebugleave*/ | |||
| 39099 | } | |||
| 39100 | CFUNCSMESS("Freeing memory.\n"); | |||
| 39101 | /*freemem*/ | |||
| 39102 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39103 | f2py_stop_clock(); | |||
| 39104 | #endif | |||
| 39105 | return capi_buildvalue; | |||
| 39106 | } | |||
| 39107 | /******************************** end of ssysv ********************************/ | |||
| 39108 | ||||
| 39109 | /*********************************** dsysv ***********************************/ | |||
| 39110 | static char doc_f2py_rout__flapack_dsysv[] = "\ | |||
| 39111 | udut,ipiv,x,info = dsysv(a,b,[lwork,lower,overwrite_a,overwrite_b])\n\nWrapper for ``dsysv``.\ | |||
| 39112 | \n\nParameters\n----------\n" | |||
| 39113 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 39114 | "b : input rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 39115 | "\nOther Parameters\n----------------\n" | |||
| 39116 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 39117 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 39118 | "lwork : input int, optional\n Default: max(n,1)\n" | |||
| 39119 | "lower : input int, optional\n Default: 0\n" | |||
| 39120 | "\nReturns\n-------\n" | |||
| 39121 | "udut : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 39122 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 39123 | "x : rank-2 array('d') with bounds (n,nrhs) and b storage\n" | |||
| 39124 | "info : int"; | |||
| 39125 | /* extern void F_FUNC(dsysv,DSYSV)(char*,F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 39126 | static PyObject *f2py_rout__flapack_dsysv(const PyObject *capi_self, | |||
| 39127 | PyObject *capi_args, | |||
| 39128 | PyObject *capi_keywds, | |||
| 39129 | void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 39130 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 39131 | volatile int f2py_success = 1; | |||
| 39132 | /*decl*/ | |||
| 39133 | ||||
| 39134 | int n = 0; | |||
| 39135 | int nrhs = 0; | |||
| 39136 | double *a = NULL((void*)0); | |||
| 39137 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 39138 | const int a_Rank = 2; | |||
| 39139 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 39140 | int capi_a_intent = 0; | |||
| 39141 | int capi_overwrite_a = 0; | |||
| 39142 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 39143 | int lda = 0; | |||
| 39144 | int *ipiv = NULL((void*)0); | |||
| 39145 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 39146 | const int ipiv_Rank = 1; | |||
| 39147 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 39148 | int capi_ipiv_intent = 0; | |||
| 39149 | double *b = NULL((void*)0); | |||
| 39150 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 39151 | const int b_Rank = 2; | |||
| 39152 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 39153 | int capi_b_intent = 0; | |||
| 39154 | int capi_overwrite_b = 0; | |||
| 39155 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 39156 | int ldb = 0; | |||
| 39157 | double *work = NULL((void*)0); | |||
| 39158 | npy_intp work_Dims[1] = {-1}; | |||
| 39159 | const int work_Rank = 1; | |||
| 39160 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 39161 | int capi_work_intent = 0; | |||
| 39162 | int lwork = 0; | |||
| 39163 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 39164 | int info = 0; | |||
| 39165 | int lower = 0; | |||
| 39166 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 39167 | static char *capi_kwlist[] = {"a","b","lwork","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 39168 | ||||
| 39169 | /*routdebugenter*/ | |||
| 39170 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39171 | f2py_start_clock(); | |||
| 39172 | #endif | |||
| 39173 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 39174 | "OO|OOii:_flapack.dsysv",\ | |||
| 39175 | capi_kwlist,&a_capi,&b_capi,&lwork_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 39176 | return NULL((void*)0); | |||
| 39177 | /*frompyobj*/ | |||
| 39178 | /* Processing variable lower */ | |||
| 39179 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 39180 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsysv() 2nd keyword (lower) can't be converted to int"); | |||
| 39181 | if (f2py_success) { | |||
| 39182 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsysv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsysv:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 39183 | /* Processing variable a */ | |||
| 39184 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 39185 | ; | |||
| 39186 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 39187 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 39188 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 39189 | if (!PyErr_Occurred()) | |||
| 39190 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsysv to C/Fortran array" ); | |||
| 39191 | } else { | |||
| 39192 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 39193 | ||||
| 39194 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 39195 | /* Processing variable info */ | |||
| 39196 | /* Processing variable n */ | |||
| 39197 | n = shape(a,0)a_Dims[0]; | |||
| 39198 | /* Processing variable lda */ | |||
| 39199 | lda = shape(a,0)a_Dims[0]; | |||
| 39200 | /* Processing variable ipiv */ | |||
| 39201 | ipiv_Dims[0]=n; | |||
| 39202 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 39203 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 39204 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 39205 | if (!PyErr_Occurred()) | |||
| 39206 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.dsysv to C/Fortran array" ); | |||
| 39207 | } else { | |||
| 39208 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 39209 | ||||
| 39210 | /* Processing variable b */ | |||
| 39211 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 39212 | b_Dims[0]=n; | |||
| 39213 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 39214 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 39215 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 39216 | if (!PyErr_Occurred()) | |||
| 39217 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dsysv to C/Fortran array" ); | |||
| 39218 | } else { | |||
| 39219 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 39220 | ||||
| 39221 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 39222 | /* Processing variable ldb */ | |||
| 39223 | ldb = shape(b,0)b_Dims[0]; | |||
| 39224 | /* Processing variable lwork */ | |||
| 39225 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else | |||
| 39226 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsysv() 1st keyword (lwork) can't be converted to int"); | |||
| 39227 | if (f2py_success) { | |||
| 39228 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","1st keyword lwork","dsysv:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsysv:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 39229 | /* Processing variable work */ | |||
| 39230 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 39231 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 39232 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 39233 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 39234 | if (!PyErr_Occurred()) | |||
| 39235 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsysv to C/Fortran array" ); | |||
| 39236 | } else { | |||
| 39237 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 39238 | ||||
| 39239 | /* Processing variable nrhs */ | |||
| 39240 | nrhs = shape(b,1)b_Dims[1]; | |||
| 39241 | /*end of frompyobj*/ | |||
| 39242 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39243 | f2py_start_call_clock(); | |||
| 39244 | #endif | |||
| 39245 | /*callfortranroutine*/ | |||
| 39246 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info) ; | |||
| 39247 | /*(*f2py_func)(&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info,&lower);*/ | |||
| 39248 | if (PyErr_Occurred()) | |||
| 39249 | f2py_success = 0; | |||
| 39250 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39251 | f2py_stop_call_clock(); | |||
| 39252 | #endif | |||
| 39253 | /*end of callfortranroutine*/ | |||
| 39254 | if (f2py_success) { | |||
| 39255 | /*pyobjfrom*/ | |||
| 39256 | /*end of pyobjfrom*/ | |||
| 39257 | CFUNCSMESS("Building return value.\n"); | |||
| 39258 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_b_tmp,info); | |||
| 39259 | /*closepyobjfrom*/ | |||
| 39260 | /*end of closepyobjfrom*/ | |||
| 39261 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 39262 | /*cleanupfrompyobj*/ | |||
| 39263 | /* End of cleaning variable nrhs */ | |||
| 39264 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 39265 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 39266 | /* End of cleaning variable work */ | |||
| 39267 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 39268 | } /*if (f2py_success) of lwork*/ | |||
| 39269 | /* End of cleaning variable lwork */ | |||
| 39270 | /* End of cleaning variable ldb */ | |||
| 39271 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 39272 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 39273 | /* End of cleaning variable b */ | |||
| 39274 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 39275 | /* End of cleaning variable ipiv */ | |||
| 39276 | /* End of cleaning variable lda */ | |||
| 39277 | /* End of cleaning variable n */ | |||
| 39278 | /* End of cleaning variable info */ | |||
| 39279 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 39280 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 39281 | /* End of cleaning variable a */ | |||
| 39282 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 39283 | } /*if (f2py_success) of lower*/ | |||
| 39284 | /* End of cleaning variable lower */ | |||
| 39285 | /*end of cleanupfrompyobj*/ | |||
| 39286 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 39287 | /*routdebugfailure*/ | |||
| 39288 | } else { | |||
| 39289 | /*routdebugleave*/ | |||
| 39290 | } | |||
| 39291 | CFUNCSMESS("Freeing memory.\n"); | |||
| 39292 | /*freemem*/ | |||
| 39293 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39294 | f2py_stop_clock(); | |||
| 39295 | #endif | |||
| 39296 | return capi_buildvalue; | |||
| 39297 | } | |||
| 39298 | /******************************** end of dsysv ********************************/ | |||
| 39299 | ||||
| 39300 | /*********************************** csysv ***********************************/ | |||
| 39301 | static char doc_f2py_rout__flapack_csysv[] = "\ | |||
| 39302 | udut,ipiv,x,info = csysv(a,b,[lwork,lower,overwrite_a,overwrite_b])\n\nWrapper for ``csysv``.\ | |||
| 39303 | \n\nParameters\n----------\n" | |||
| 39304 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 39305 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 39306 | "\nOther Parameters\n----------------\n" | |||
| 39307 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 39308 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 39309 | "lwork : input int, optional\n Default: max(n,1)\n" | |||
| 39310 | "lower : input int, optional\n Default: 0\n" | |||
| 39311 | "\nReturns\n-------\n" | |||
| 39312 | "udut : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 39313 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 39314 | "x : rank-2 array('F') with bounds (n,nrhs) and b storage\n" | |||
| 39315 | "info : int"; | |||
| 39316 | /* extern void F_FUNC(csysv,CSYSV)(char*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 39317 | static PyObject *f2py_rout__flapack_csysv(const PyObject *capi_self, | |||
| 39318 | PyObject *capi_args, | |||
| 39319 | PyObject *capi_keywds, | |||
| 39320 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 39321 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 39322 | volatile int f2py_success = 1; | |||
| 39323 | /*decl*/ | |||
| 39324 | ||||
| 39325 | int n = 0; | |||
| 39326 | int nrhs = 0; | |||
| 39327 | complex_float *a = NULL((void*)0); | |||
| 39328 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 39329 | const int a_Rank = 2; | |||
| 39330 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 39331 | int capi_a_intent = 0; | |||
| 39332 | int capi_overwrite_a = 0; | |||
| 39333 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 39334 | int lda = 0; | |||
| 39335 | int *ipiv = NULL((void*)0); | |||
| 39336 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 39337 | const int ipiv_Rank = 1; | |||
| 39338 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 39339 | int capi_ipiv_intent = 0; | |||
| 39340 | complex_float *b = NULL((void*)0); | |||
| 39341 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 39342 | const int b_Rank = 2; | |||
| 39343 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 39344 | int capi_b_intent = 0; | |||
| 39345 | int capi_overwrite_b = 0; | |||
| 39346 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 39347 | int ldb = 0; | |||
| 39348 | complex_float *work = NULL((void*)0); | |||
| 39349 | npy_intp work_Dims[1] = {-1}; | |||
| 39350 | const int work_Rank = 1; | |||
| 39351 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 39352 | int capi_work_intent = 0; | |||
| 39353 | int lwork = 0; | |||
| 39354 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 39355 | int info = 0; | |||
| 39356 | int lower = 0; | |||
| 39357 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 39358 | static char *capi_kwlist[] = {"a","b","lwork","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 39359 | ||||
| 39360 | /*routdebugenter*/ | |||
| 39361 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39362 | f2py_start_clock(); | |||
| 39363 | #endif | |||
| 39364 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 39365 | "OO|OOii:_flapack.csysv",\ | |||
| 39366 | capi_kwlist,&a_capi,&b_capi,&lwork_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 39367 | return NULL((void*)0); | |||
| 39368 | /*frompyobj*/ | |||
| 39369 | /* Processing variable lower */ | |||
| 39370 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 39371 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csysv() 2nd keyword (lower) can't be converted to int"); | |||
| 39372 | if (f2py_success) { | |||
| 39373 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","csysv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csysv:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 39374 | /* Processing variable a */ | |||
| 39375 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 39376 | ; | |||
| 39377 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 39378 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 39379 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 39380 | if (!PyErr_Occurred()) | |||
| 39381 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csysv to C/Fortran array" ); | |||
| 39382 | } else { | |||
| 39383 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 39384 | ||||
| 39385 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 39386 | /* Processing variable info */ | |||
| 39387 | /* Processing variable n */ | |||
| 39388 | n = shape(a,0)a_Dims[0]; | |||
| 39389 | /* Processing variable lda */ | |||
| 39390 | lda = shape(a,0)a_Dims[0]; | |||
| 39391 | /* Processing variable ipiv */ | |||
| 39392 | ipiv_Dims[0]=n; | |||
| 39393 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 39394 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 39395 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 39396 | if (!PyErr_Occurred()) | |||
| 39397 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.csysv to C/Fortran array" ); | |||
| 39398 | } else { | |||
| 39399 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 39400 | ||||
| 39401 | /* Processing variable b */ | |||
| 39402 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 39403 | b_Dims[0]=n; | |||
| 39404 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 39405 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 39406 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 39407 | if (!PyErr_Occurred()) | |||
| 39408 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.csysv to C/Fortran array" ); | |||
| 39409 | } else { | |||
| 39410 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 39411 | ||||
| 39412 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 39413 | /* Processing variable ldb */ | |||
| 39414 | ldb = shape(b,0)b_Dims[0]; | |||
| 39415 | /* Processing variable lwork */ | |||
| 39416 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else | |||
| 39417 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.csysv() 1st keyword (lwork) can't be converted to int"); | |||
| 39418 | if (f2py_success) { | |||
| 39419 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","1st keyword lwork","csysv:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csysv:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 39420 | /* Processing variable work */ | |||
| 39421 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 39422 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 39423 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 39424 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 39425 | if (!PyErr_Occurred()) | |||
| 39426 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.csysv to C/Fortran array" ); | |||
| 39427 | } else { | |||
| 39428 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 39429 | ||||
| 39430 | /* Processing variable nrhs */ | |||
| 39431 | nrhs = shape(b,1)b_Dims[1]; | |||
| 39432 | /*end of frompyobj*/ | |||
| 39433 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39434 | f2py_start_call_clock(); | |||
| 39435 | #endif | |||
| 39436 | /*callfortranroutine*/ | |||
| 39437 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info) ; | |||
| 39438 | /*(*f2py_func)(&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info,&lower);*/ | |||
| 39439 | if (PyErr_Occurred()) | |||
| 39440 | f2py_success = 0; | |||
| 39441 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39442 | f2py_stop_call_clock(); | |||
| 39443 | #endif | |||
| 39444 | /*end of callfortranroutine*/ | |||
| 39445 | if (f2py_success) { | |||
| 39446 | /*pyobjfrom*/ | |||
| 39447 | /*end of pyobjfrom*/ | |||
| 39448 | CFUNCSMESS("Building return value.\n"); | |||
| 39449 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_b_tmp,info); | |||
| 39450 | /*closepyobjfrom*/ | |||
| 39451 | /*end of closepyobjfrom*/ | |||
| 39452 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 39453 | /*cleanupfrompyobj*/ | |||
| 39454 | /* End of cleaning variable nrhs */ | |||
| 39455 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 39456 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 39457 | /* End of cleaning variable work */ | |||
| 39458 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 39459 | } /*if (f2py_success) of lwork*/ | |||
| 39460 | /* End of cleaning variable lwork */ | |||
| 39461 | /* End of cleaning variable ldb */ | |||
| 39462 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 39463 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 39464 | /* End of cleaning variable b */ | |||
| 39465 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 39466 | /* End of cleaning variable ipiv */ | |||
| 39467 | /* End of cleaning variable lda */ | |||
| 39468 | /* End of cleaning variable n */ | |||
| 39469 | /* End of cleaning variable info */ | |||
| 39470 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 39471 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 39472 | /* End of cleaning variable a */ | |||
| 39473 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 39474 | } /*if (f2py_success) of lower*/ | |||
| 39475 | /* End of cleaning variable lower */ | |||
| 39476 | /*end of cleanupfrompyobj*/ | |||
| 39477 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 39478 | /*routdebugfailure*/ | |||
| 39479 | } else { | |||
| 39480 | /*routdebugleave*/ | |||
| 39481 | } | |||
| 39482 | CFUNCSMESS("Freeing memory.\n"); | |||
| 39483 | /*freemem*/ | |||
| 39484 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39485 | f2py_stop_clock(); | |||
| 39486 | #endif | |||
| 39487 | return capi_buildvalue; | |||
| 39488 | } | |||
| 39489 | /******************************** end of csysv ********************************/ | |||
| 39490 | ||||
| 39491 | /*********************************** zsysv ***********************************/ | |||
| 39492 | static char doc_f2py_rout__flapack_zsysv[] = "\ | |||
| 39493 | udut,ipiv,x,info = zsysv(a,b,[lwork,lower,overwrite_a,overwrite_b])\n\nWrapper for ``zsysv``.\ | |||
| 39494 | \n\nParameters\n----------\n" | |||
| 39495 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 39496 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 39497 | "\nOther Parameters\n----------------\n" | |||
| 39498 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 39499 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 39500 | "lwork : input int, optional\n Default: max(n,1)\n" | |||
| 39501 | "lower : input int, optional\n Default: 0\n" | |||
| 39502 | "\nReturns\n-------\n" | |||
| 39503 | "udut : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 39504 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 39505 | "x : rank-2 array('D') with bounds (n,nrhs) and b storage\n" | |||
| 39506 | "info : int"; | |||
| 39507 | /* extern void F_FUNC(zsysv,ZSYSV)(char*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 39508 | static PyObject *f2py_rout__flapack_zsysv(const PyObject *capi_self, | |||
| 39509 | PyObject *capi_args, | |||
| 39510 | PyObject *capi_keywds, | |||
| 39511 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 39512 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 39513 | volatile int f2py_success = 1; | |||
| 39514 | /*decl*/ | |||
| 39515 | ||||
| 39516 | int n = 0; | |||
| 39517 | int nrhs = 0; | |||
| 39518 | complex_double *a = NULL((void*)0); | |||
| 39519 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 39520 | const int a_Rank = 2; | |||
| 39521 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 39522 | int capi_a_intent = 0; | |||
| 39523 | int capi_overwrite_a = 0; | |||
| 39524 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 39525 | int lda = 0; | |||
| 39526 | int *ipiv = NULL((void*)0); | |||
| 39527 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 39528 | const int ipiv_Rank = 1; | |||
| 39529 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 39530 | int capi_ipiv_intent = 0; | |||
| 39531 | complex_double *b = NULL((void*)0); | |||
| 39532 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 39533 | const int b_Rank = 2; | |||
| 39534 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 39535 | int capi_b_intent = 0; | |||
| 39536 | int capi_overwrite_b = 0; | |||
| 39537 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 39538 | int ldb = 0; | |||
| 39539 | complex_double *work = NULL((void*)0); | |||
| 39540 | npy_intp work_Dims[1] = {-1}; | |||
| 39541 | const int work_Rank = 1; | |||
| 39542 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 39543 | int capi_work_intent = 0; | |||
| 39544 | int lwork = 0; | |||
| 39545 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 39546 | int info = 0; | |||
| 39547 | int lower = 0; | |||
| 39548 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 39549 | static char *capi_kwlist[] = {"a","b","lwork","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 39550 | ||||
| 39551 | /*routdebugenter*/ | |||
| 39552 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39553 | f2py_start_clock(); | |||
| 39554 | #endif | |||
| 39555 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 39556 | "OO|OOii:_flapack.zsysv",\ | |||
| 39557 | capi_kwlist,&a_capi,&b_capi,&lwork_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 39558 | return NULL((void*)0); | |||
| 39559 | /*frompyobj*/ | |||
| 39560 | /* Processing variable lower */ | |||
| 39561 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 39562 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsysv() 2nd keyword (lower) can't be converted to int"); | |||
| 39563 | if (f2py_success) { | |||
| 39564 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zsysv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsysv:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 39565 | /* Processing variable a */ | |||
| 39566 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 39567 | ; | |||
| 39568 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 39569 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 39570 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 39571 | if (!PyErr_Occurred()) | |||
| 39572 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsysv to C/Fortran array" ); | |||
| 39573 | } else { | |||
| 39574 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 39575 | ||||
| 39576 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 39577 | /* Processing variable info */ | |||
| 39578 | /* Processing variable n */ | |||
| 39579 | n = shape(a,0)a_Dims[0]; | |||
| 39580 | /* Processing variable lda */ | |||
| 39581 | lda = shape(a,0)a_Dims[0]; | |||
| 39582 | /* Processing variable ipiv */ | |||
| 39583 | ipiv_Dims[0]=n; | |||
| 39584 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 39585 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 39586 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 39587 | if (!PyErr_Occurred()) | |||
| 39588 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zsysv to C/Fortran array" ); | |||
| 39589 | } else { | |||
| 39590 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 39591 | ||||
| 39592 | /* Processing variable b */ | |||
| 39593 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 39594 | b_Dims[0]=n; | |||
| 39595 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 39596 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 39597 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 39598 | if (!PyErr_Occurred()) | |||
| 39599 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zsysv to C/Fortran array" ); | |||
| 39600 | } else { | |||
| 39601 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 39602 | ||||
| 39603 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 39604 | /* Processing variable ldb */ | |||
| 39605 | ldb = shape(b,0)b_Dims[0]; | |||
| 39606 | /* Processing variable lwork */ | |||
| 39607 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else | |||
| 39608 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zsysv() 1st keyword (lwork) can't be converted to int"); | |||
| 39609 | if (f2py_success) { | |||
| 39610 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","1st keyword lwork","zsysv:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsysv:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 39611 | /* Processing variable work */ | |||
| 39612 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 39613 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 39614 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 39615 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 39616 | if (!PyErr_Occurred()) | |||
| 39617 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zsysv to C/Fortran array" ); | |||
| 39618 | } else { | |||
| 39619 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 39620 | ||||
| 39621 | /* Processing variable nrhs */ | |||
| 39622 | nrhs = shape(b,1)b_Dims[1]; | |||
| 39623 | /*end of frompyobj*/ | |||
| 39624 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39625 | f2py_start_call_clock(); | |||
| 39626 | #endif | |||
| 39627 | /*callfortranroutine*/ | |||
| 39628 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info) ; | |||
| 39629 | /*(*f2py_func)(&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info,&lower);*/ | |||
| 39630 | if (PyErr_Occurred()) | |||
| 39631 | f2py_success = 0; | |||
| 39632 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39633 | f2py_stop_call_clock(); | |||
| 39634 | #endif | |||
| 39635 | /*end of callfortranroutine*/ | |||
| 39636 | if (f2py_success) { | |||
| 39637 | /*pyobjfrom*/ | |||
| 39638 | /*end of pyobjfrom*/ | |||
| 39639 | CFUNCSMESS("Building return value.\n"); | |||
| 39640 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_b_tmp,info); | |||
| 39641 | /*closepyobjfrom*/ | |||
| 39642 | /*end of closepyobjfrom*/ | |||
| 39643 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 39644 | /*cleanupfrompyobj*/ | |||
| 39645 | /* End of cleaning variable nrhs */ | |||
| 39646 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 39647 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 39648 | /* End of cleaning variable work */ | |||
| 39649 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 39650 | } /*if (f2py_success) of lwork*/ | |||
| 39651 | /* End of cleaning variable lwork */ | |||
| 39652 | /* End of cleaning variable ldb */ | |||
| 39653 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 39654 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 39655 | /* End of cleaning variable b */ | |||
| 39656 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 39657 | /* End of cleaning variable ipiv */ | |||
| 39658 | /* End of cleaning variable lda */ | |||
| 39659 | /* End of cleaning variable n */ | |||
| 39660 | /* End of cleaning variable info */ | |||
| 39661 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 39662 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 39663 | /* End of cleaning variable a */ | |||
| 39664 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 39665 | } /*if (f2py_success) of lower*/ | |||
| 39666 | /* End of cleaning variable lower */ | |||
| 39667 | /*end of cleanupfrompyobj*/ | |||
| 39668 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 39669 | /*routdebugfailure*/ | |||
| 39670 | } else { | |||
| 39671 | /*routdebugleave*/ | |||
| 39672 | } | |||
| 39673 | CFUNCSMESS("Freeing memory.\n"); | |||
| 39674 | /*freemem*/ | |||
| 39675 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39676 | f2py_stop_clock(); | |||
| 39677 | #endif | |||
| 39678 | return capi_buildvalue; | |||
| 39679 | } | |||
| 39680 | /******************************** end of zsysv ********************************/ | |||
| 39681 | ||||
| 39682 | /******************************** ssysv_lwork ********************************/ | |||
| 39683 | static char doc_f2py_rout__flapack_ssysv_lwork[] = "\ | |||
| 39684 | work,info = ssysv_lwork(n,[lower])\n\nWrapper for ``ssysv_lwork``.\ | |||
| 39685 | \n\nParameters\n----------\n" | |||
| 39686 | "n : input int\n" | |||
| 39687 | "\nOther Parameters\n----------------\n" | |||
| 39688 | "lower : input int, optional\n Default: 0\n" | |||
| 39689 | "\nReturns\n-------\n" | |||
| 39690 | "work : float\n" | |||
| 39691 | "info : int"; | |||
| 39692 | /* extern void F_FUNC(ssysv ,SSYSV )(char*,F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 39693 | static PyObject *f2py_rout__flapack_ssysv_lwork(const PyObject *capi_self, | |||
| 39694 | PyObject *capi_args, | |||
| 39695 | PyObject *capi_keywds, | |||
| 39696 | void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 39697 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 39698 | volatile int f2py_success = 1; | |||
| 39699 | /*decl*/ | |||
| 39700 | ||||
| 39701 | int n = 0; | |||
| 39702 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 39703 | int nrhs = 0; | |||
| 39704 | float a = 0; | |||
| 39705 | int lda = 0; | |||
| 39706 | int ipiv = 0; | |||
| 39707 | float b = 0; | |||
| 39708 | int ldb = 0; | |||
| 39709 | float work = 0; | |||
| 39710 | int lwork = 0; | |||
| 39711 | int info = 0; | |||
| 39712 | int lower = 0; | |||
| 39713 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 39714 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 39715 | ||||
| 39716 | /*routdebugenter*/ | |||
| 39717 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39718 | f2py_start_clock(); | |||
| 39719 | #endif | |||
| 39720 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 39721 | "O|O:_flapack.ssysv_lwork",\ | |||
| 39722 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 39723 | return NULL((void*)0); | |||
| 39724 | /*frompyobj*/ | |||
| 39725 | /* Processing variable n */ | |||
| 39726 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssysv_lwork() 1st argument (n) can't be converted to int"); | |||
| 39727 | if (f2py_success) { | |||
| 39728 | /* Processing variable lower */ | |||
| 39729 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 39730 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssysv_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 39731 | if (f2py_success) { | |||
| 39732 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssysv_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssysv_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 39733 | /* Processing variable nrhs */ | |||
| 39734 | nrhs = 1; | |||
| 39735 | /* Processing variable a */ | |||
| 39736 | /* Processing variable ipiv */ | |||
| 39737 | /* Processing variable b */ | |||
| 39738 | /* Processing variable lwork */ | |||
| 39739 | lwork = -1; | |||
| 39740 | /* Processing variable work */ | |||
| 39741 | /* Processing variable info */ | |||
| 39742 | /* Processing variable lda */ | |||
| 39743 | lda = n; | |||
| 39744 | /* Processing variable ldb */ | |||
| 39745 | ldb = n; | |||
| 39746 | /*end of frompyobj*/ | |||
| 39747 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39748 | f2py_start_call_clock(); | |||
| 39749 | #endif | |||
| 39750 | /*callfortranroutine*/ | |||
| 39751 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info) ; | |||
| 39752 | /*(*f2py_func)(&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info,&lower);*/ | |||
| 39753 | if (PyErr_Occurred()) | |||
| 39754 | f2py_success = 0; | |||
| 39755 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39756 | f2py_stop_call_clock(); | |||
| 39757 | #endif | |||
| 39758 | /*end of callfortranroutine*/ | |||
| 39759 | if (f2py_success) { | |||
| 39760 | /*pyobjfrom*/ | |||
| 39761 | /*end of pyobjfrom*/ | |||
| 39762 | CFUNCSMESS("Building return value.\n"); | |||
| 39763 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 39764 | /*closepyobjfrom*/ | |||
| 39765 | /*end of closepyobjfrom*/ | |||
| 39766 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 39767 | /*cleanupfrompyobj*/ | |||
| 39768 | /* End of cleaning variable ldb */ | |||
| 39769 | /* End of cleaning variable lda */ | |||
| 39770 | /* End of cleaning variable info */ | |||
| 39771 | /* End of cleaning variable work */ | |||
| 39772 | /* End of cleaning variable lwork */ | |||
| 39773 | /* End of cleaning variable b */ | |||
| 39774 | /* End of cleaning variable ipiv */ | |||
| 39775 | /* End of cleaning variable a */ | |||
| 39776 | /* End of cleaning variable nrhs */ | |||
| 39777 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 39778 | } /*if (f2py_success) of lower*/ | |||
| 39779 | /* End of cleaning variable lower */ | |||
| 39780 | } /*if (f2py_success) of n*/ | |||
| 39781 | /* End of cleaning variable n */ | |||
| 39782 | /*end of cleanupfrompyobj*/ | |||
| 39783 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 39784 | /*routdebugfailure*/ | |||
| 39785 | } else { | |||
| 39786 | /*routdebugleave*/ | |||
| 39787 | } | |||
| 39788 | CFUNCSMESS("Freeing memory.\n"); | |||
| 39789 | /*freemem*/ | |||
| 39790 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39791 | f2py_stop_clock(); | |||
| 39792 | #endif | |||
| 39793 | return capi_buildvalue; | |||
| 39794 | } | |||
| 39795 | /***************************** end of ssysv_lwork *****************************/ | |||
| 39796 | ||||
| 39797 | /******************************** dsysv_lwork ********************************/ | |||
| 39798 | static char doc_f2py_rout__flapack_dsysv_lwork[] = "\ | |||
| 39799 | work,info = dsysv_lwork(n,[lower])\n\nWrapper for ``dsysv_lwork``.\ | |||
| 39800 | \n\nParameters\n----------\n" | |||
| 39801 | "n : input int\n" | |||
| 39802 | "\nOther Parameters\n----------------\n" | |||
| 39803 | "lower : input int, optional\n Default: 0\n" | |||
| 39804 | "\nReturns\n-------\n" | |||
| 39805 | "work : float\n" | |||
| 39806 | "info : int"; | |||
| 39807 | /* extern void F_FUNC(dsysv ,DSYSV )(char*,F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 39808 | static PyObject *f2py_rout__flapack_dsysv_lwork(const PyObject *capi_self, | |||
| 39809 | PyObject *capi_args, | |||
| 39810 | PyObject *capi_keywds, | |||
| 39811 | void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 39812 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 39813 | volatile int f2py_success = 1; | |||
| 39814 | /*decl*/ | |||
| 39815 | ||||
| 39816 | int n = 0; | |||
| 39817 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 39818 | int nrhs = 0; | |||
| 39819 | double a = 0; | |||
| 39820 | int lda = 0; | |||
| 39821 | int ipiv = 0; | |||
| 39822 | double b = 0; | |||
| 39823 | int ldb = 0; | |||
| 39824 | double work = 0; | |||
| 39825 | int lwork = 0; | |||
| 39826 | int info = 0; | |||
| 39827 | int lower = 0; | |||
| 39828 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 39829 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 39830 | ||||
| 39831 | /*routdebugenter*/ | |||
| 39832 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39833 | f2py_start_clock(); | |||
| 39834 | #endif | |||
| 39835 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 39836 | "O|O:_flapack.dsysv_lwork",\ | |||
| 39837 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 39838 | return NULL((void*)0); | |||
| 39839 | /*frompyobj*/ | |||
| 39840 | /* Processing variable n */ | |||
| 39841 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsysv_lwork() 1st argument (n) can't be converted to int"); | |||
| 39842 | if (f2py_success) { | |||
| 39843 | /* Processing variable lower */ | |||
| 39844 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 39845 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsysv_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 39846 | if (f2py_success) { | |||
| 39847 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsysv_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsysv_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 39848 | /* Processing variable nrhs */ | |||
| 39849 | nrhs = 1; | |||
| 39850 | /* Processing variable a */ | |||
| 39851 | /* Processing variable ipiv */ | |||
| 39852 | /* Processing variable b */ | |||
| 39853 | /* Processing variable lwork */ | |||
| 39854 | lwork = -1; | |||
| 39855 | /* Processing variable work */ | |||
| 39856 | /* Processing variable info */ | |||
| 39857 | /* Processing variable lda */ | |||
| 39858 | lda = n; | |||
| 39859 | /* Processing variable ldb */ | |||
| 39860 | ldb = n; | |||
| 39861 | /*end of frompyobj*/ | |||
| 39862 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39863 | f2py_start_call_clock(); | |||
| 39864 | #endif | |||
| 39865 | /*callfortranroutine*/ | |||
| 39866 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info) ; | |||
| 39867 | /*(*f2py_func)(&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info,&lower);*/ | |||
| 39868 | if (PyErr_Occurred()) | |||
| 39869 | f2py_success = 0; | |||
| 39870 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39871 | f2py_stop_call_clock(); | |||
| 39872 | #endif | |||
| 39873 | /*end of callfortranroutine*/ | |||
| 39874 | if (f2py_success) { | |||
| 39875 | /*pyobjfrom*/ | |||
| 39876 | /*end of pyobjfrom*/ | |||
| 39877 | CFUNCSMESS("Building return value.\n"); | |||
| 39878 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 39879 | /*closepyobjfrom*/ | |||
| 39880 | /*end of closepyobjfrom*/ | |||
| 39881 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 39882 | /*cleanupfrompyobj*/ | |||
| 39883 | /* End of cleaning variable ldb */ | |||
| 39884 | /* End of cleaning variable lda */ | |||
| 39885 | /* End of cleaning variable info */ | |||
| 39886 | /* End of cleaning variable work */ | |||
| 39887 | /* End of cleaning variable lwork */ | |||
| 39888 | /* End of cleaning variable b */ | |||
| 39889 | /* End of cleaning variable ipiv */ | |||
| 39890 | /* End of cleaning variable a */ | |||
| 39891 | /* End of cleaning variable nrhs */ | |||
| 39892 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 39893 | } /*if (f2py_success) of lower*/ | |||
| 39894 | /* End of cleaning variable lower */ | |||
| 39895 | } /*if (f2py_success) of n*/ | |||
| 39896 | /* End of cleaning variable n */ | |||
| 39897 | /*end of cleanupfrompyobj*/ | |||
| 39898 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 39899 | /*routdebugfailure*/ | |||
| 39900 | } else { | |||
| 39901 | /*routdebugleave*/ | |||
| 39902 | } | |||
| 39903 | CFUNCSMESS("Freeing memory.\n"); | |||
| 39904 | /*freemem*/ | |||
| 39905 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39906 | f2py_stop_clock(); | |||
| 39907 | #endif | |||
| 39908 | return capi_buildvalue; | |||
| 39909 | } | |||
| 39910 | /***************************** end of dsysv_lwork *****************************/ | |||
| 39911 | ||||
| 39912 | /******************************** csysv_lwork ********************************/ | |||
| 39913 | static char doc_f2py_rout__flapack_csysv_lwork[] = "\ | |||
| 39914 | work,info = csysv_lwork(n,[lower])\n\nWrapper for ``csysv_lwork``.\ | |||
| 39915 | \n\nParameters\n----------\n" | |||
| 39916 | "n : input int\n" | |||
| 39917 | "\nOther Parameters\n----------------\n" | |||
| 39918 | "lower : input int, optional\n Default: 0\n" | |||
| 39919 | "\nReturns\n-------\n" | |||
| 39920 | "work : complex\n" | |||
| 39921 | "info : int"; | |||
| 39922 | /* extern void F_FUNC(csysv ,CSYSV )(char*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 39923 | static PyObject *f2py_rout__flapack_csysv_lwork(const PyObject *capi_self, | |||
| 39924 | PyObject *capi_args, | |||
| 39925 | PyObject *capi_keywds, | |||
| 39926 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 39927 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 39928 | volatile int f2py_success = 1; | |||
| 39929 | /*decl*/ | |||
| 39930 | ||||
| 39931 | int n = 0; | |||
| 39932 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 39933 | int nrhs = 0; | |||
| 39934 | complex_float a; | |||
| 39935 | int lda = 0; | |||
| 39936 | int ipiv = 0; | |||
| 39937 | complex_float b; | |||
| 39938 | int ldb = 0; | |||
| 39939 | complex_float work; | |||
| 39940 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 39941 | int lwork = 0; | |||
| 39942 | int info = 0; | |||
| 39943 | int lower = 0; | |||
| 39944 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 39945 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 39946 | ||||
| 39947 | /*routdebugenter*/ | |||
| 39948 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39949 | f2py_start_clock(); | |||
| 39950 | #endif | |||
| 39951 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 39952 | "O|O:_flapack.csysv_lwork",\ | |||
| 39953 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 39954 | return NULL((void*)0); | |||
| 39955 | /*frompyobj*/ | |||
| 39956 | /* Processing variable n */ | |||
| 39957 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.csysv_lwork() 1st argument (n) can't be converted to int"); | |||
| 39958 | if (f2py_success) { | |||
| 39959 | /* Processing variable lower */ | |||
| 39960 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 39961 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csysv_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 39962 | if (f2py_success) { | |||
| 39963 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csysv_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csysv_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 39964 | /* Processing variable nrhs */ | |||
| 39965 | nrhs = 1; | |||
| 39966 | /* Processing variable a */ | |||
| 39967 | /* Processing variable ipiv */ | |||
| 39968 | /* Processing variable b */ | |||
| 39969 | /* Processing variable lwork */ | |||
| 39970 | lwork = -1; | |||
| 39971 | /* Processing variable work */ | |||
| 39972 | /* Processing variable info */ | |||
| 39973 | /* Processing variable lda */ | |||
| 39974 | lda = n; | |||
| 39975 | /* Processing variable ldb */ | |||
| 39976 | ldb = n; | |||
| 39977 | /*end of frompyobj*/ | |||
| 39978 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39979 | f2py_start_call_clock(); | |||
| 39980 | #endif | |||
| 39981 | /*callfortranroutine*/ | |||
| 39982 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info) ; | |||
| 39983 | /*(*f2py_func)(&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info,&lower);*/ | |||
| 39984 | if (PyErr_Occurred()) | |||
| 39985 | f2py_success = 0; | |||
| 39986 | #ifdef F2PY_REPORT_ATEXIT | |||
| 39987 | f2py_stop_call_clock(); | |||
| 39988 | #endif | |||
| 39989 | /*end of callfortranroutine*/ | |||
| 39990 | if (f2py_success) { | |||
| 39991 | /*pyobjfrom*/ | |||
| 39992 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 39993 | /*end of pyobjfrom*/ | |||
| 39994 | CFUNCSMESS("Building return value.\n"); | |||
| 39995 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 39996 | /*closepyobjfrom*/ | |||
| 39997 | /*end of closepyobjfrom*/ | |||
| 39998 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 39999 | /*cleanupfrompyobj*/ | |||
| 40000 | /* End of cleaning variable ldb */ | |||
| 40001 | /* End of cleaning variable lda */ | |||
| 40002 | /* End of cleaning variable info */ | |||
| 40003 | /* End of cleaning variable work */ | |||
| 40004 | /* End of cleaning variable lwork */ | |||
| 40005 | /* End of cleaning variable b */ | |||
| 40006 | /* End of cleaning variable ipiv */ | |||
| 40007 | /* End of cleaning variable a */ | |||
| 40008 | /* End of cleaning variable nrhs */ | |||
| 40009 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 40010 | } /*if (f2py_success) of lower*/ | |||
| 40011 | /* End of cleaning variable lower */ | |||
| 40012 | } /*if (f2py_success) of n*/ | |||
| 40013 | /* End of cleaning variable n */ | |||
| 40014 | /*end of cleanupfrompyobj*/ | |||
| 40015 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 40016 | /*routdebugfailure*/ | |||
| 40017 | } else { | |||
| 40018 | /*routdebugleave*/ | |||
| 40019 | } | |||
| 40020 | CFUNCSMESS("Freeing memory.\n"); | |||
| 40021 | /*freemem*/ | |||
| 40022 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40023 | f2py_stop_clock(); | |||
| 40024 | #endif | |||
| 40025 | return capi_buildvalue; | |||
| 40026 | } | |||
| 40027 | /***************************** end of csysv_lwork *****************************/ | |||
| 40028 | ||||
| 40029 | /******************************** zsysv_lwork ********************************/ | |||
| 40030 | static char doc_f2py_rout__flapack_zsysv_lwork[] = "\ | |||
| 40031 | work,info = zsysv_lwork(n,[lower])\n\nWrapper for ``zsysv_lwork``.\ | |||
| 40032 | \n\nParameters\n----------\n" | |||
| 40033 | "n : input int\n" | |||
| 40034 | "\nOther Parameters\n----------------\n" | |||
| 40035 | "lower : input int, optional\n Default: 0\n" | |||
| 40036 | "\nReturns\n-------\n" | |||
| 40037 | "work : complex\n" | |||
| 40038 | "info : int"; | |||
| 40039 | /* extern void F_FUNC(zsysv ,ZSYSV )(char*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 40040 | static PyObject *f2py_rout__flapack_zsysv_lwork(const PyObject *capi_self, | |||
| 40041 | PyObject *capi_args, | |||
| 40042 | PyObject *capi_keywds, | |||
| 40043 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 40044 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 40045 | volatile int f2py_success = 1; | |||
| 40046 | /*decl*/ | |||
| 40047 | ||||
| 40048 | int n = 0; | |||
| 40049 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 40050 | int nrhs = 0; | |||
| 40051 | complex_double a; | |||
| 40052 | int lda = 0; | |||
| 40053 | int ipiv = 0; | |||
| 40054 | complex_double b; | |||
| 40055 | int ldb = 0; | |||
| 40056 | complex_double work; | |||
| 40057 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 40058 | int lwork = 0; | |||
| 40059 | int info = 0; | |||
| 40060 | int lower = 0; | |||
| 40061 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 40062 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 40063 | ||||
| 40064 | /*routdebugenter*/ | |||
| 40065 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40066 | f2py_start_clock(); | |||
| 40067 | #endif | |||
| 40068 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 40069 | "O|O:_flapack.zsysv_lwork",\ | |||
| 40070 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 40071 | return NULL((void*)0); | |||
| 40072 | /*frompyobj*/ | |||
| 40073 | /* Processing variable n */ | |||
| 40074 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zsysv_lwork() 1st argument (n) can't be converted to int"); | |||
| 40075 | if (f2py_success) { | |||
| 40076 | /* Processing variable lower */ | |||
| 40077 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 40078 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsysv_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 40079 | if (f2py_success) { | |||
| 40080 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsysv_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsysv_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 40081 | /* Processing variable nrhs */ | |||
| 40082 | nrhs = 1; | |||
| 40083 | /* Processing variable a */ | |||
| 40084 | /* Processing variable ipiv */ | |||
| 40085 | /* Processing variable b */ | |||
| 40086 | /* Processing variable lwork */ | |||
| 40087 | lwork = -1; | |||
| 40088 | /* Processing variable work */ | |||
| 40089 | /* Processing variable info */ | |||
| 40090 | /* Processing variable lda */ | |||
| 40091 | lda = n; | |||
| 40092 | /* Processing variable ldb */ | |||
| 40093 | ldb = n; | |||
| 40094 | /*end of frompyobj*/ | |||
| 40095 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40096 | f2py_start_call_clock(); | |||
| 40097 | #endif | |||
| 40098 | /*callfortranroutine*/ | |||
| 40099 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info) ; | |||
| 40100 | /*(*f2py_func)(&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info,&lower);*/ | |||
| 40101 | if (PyErr_Occurred()) | |||
| 40102 | f2py_success = 0; | |||
| 40103 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40104 | f2py_stop_call_clock(); | |||
| 40105 | #endif | |||
| 40106 | /*end of callfortranroutine*/ | |||
| 40107 | if (f2py_success) { | |||
| 40108 | /*pyobjfrom*/ | |||
| 40109 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 40110 | /*end of pyobjfrom*/ | |||
| 40111 | CFUNCSMESS("Building return value.\n"); | |||
| 40112 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 40113 | /*closepyobjfrom*/ | |||
| 40114 | /*end of closepyobjfrom*/ | |||
| 40115 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 40116 | /*cleanupfrompyobj*/ | |||
| 40117 | /* End of cleaning variable ldb */ | |||
| 40118 | /* End of cleaning variable lda */ | |||
| 40119 | /* End of cleaning variable info */ | |||
| 40120 | /* End of cleaning variable work */ | |||
| 40121 | /* End of cleaning variable lwork */ | |||
| 40122 | /* End of cleaning variable b */ | |||
| 40123 | /* End of cleaning variable ipiv */ | |||
| 40124 | /* End of cleaning variable a */ | |||
| 40125 | /* End of cleaning variable nrhs */ | |||
| 40126 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 40127 | } /*if (f2py_success) of lower*/ | |||
| 40128 | /* End of cleaning variable lower */ | |||
| 40129 | } /*if (f2py_success) of n*/ | |||
| 40130 | /* End of cleaning variable n */ | |||
| 40131 | /*end of cleanupfrompyobj*/ | |||
| 40132 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 40133 | /*routdebugfailure*/ | |||
| 40134 | } else { | |||
| 40135 | /*routdebugleave*/ | |||
| 40136 | } | |||
| 40137 | CFUNCSMESS("Freeing memory.\n"); | |||
| 40138 | /*freemem*/ | |||
| 40139 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40140 | f2py_stop_clock(); | |||
| 40141 | #endif | |||
| 40142 | return capi_buildvalue; | |||
| 40143 | } | |||
| 40144 | /***************************** end of zsysv_lwork *****************************/ | |||
| 40145 | ||||
| 40146 | /*********************************** ssysvx ***********************************/ | |||
| 40147 | static char doc_f2py_rout__flapack_ssysvx[] = "\ | |||
| 40148 | a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = ssysvx(a,b,[af,ipiv,lwork,factored,lower,overwrite_a,overwrite_b])\n\nWrapper for ``ssysvx``.\ | |||
| 40149 | \n\nParameters\n----------\n" | |||
| 40150 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 40151 | "b : input rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 40152 | "\nOther Parameters\n----------------\n" | |||
| 40153 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 40154 | "af : input rank-2 array('f') with bounds (n,n)\n" | |||
| 40155 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 40156 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 40157 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 40158 | "factored : input int, optional\n Default: 0\n" | |||
| 40159 | "lower : input int, optional\n Default: 0\n" | |||
| 40160 | "\nReturns\n-------\n" | |||
| 40161 | "a_s : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 40162 | "udut : rank-2 array('f') with bounds (n,n) and af storage\n" | |||
| 40163 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 40164 | "b_s : rank-2 array('f') with bounds (n,nrhs) and b storage\n" | |||
| 40165 | "x : rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 40166 | "rcond : float\n" | |||
| 40167 | "ferr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 40168 | "berr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 40169 | "info : int"; | |||
| 40170 | /* extern void F_FUNC(ssysvx,SSYSVX)(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 40171 | static PyObject *f2py_rout__flapack_ssysvx(const PyObject *capi_self, | |||
| 40172 | PyObject *capi_args, | |||
| 40173 | PyObject *capi_keywds, | |||
| 40174 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 40175 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 40176 | volatile int f2py_success = 1; | |||
| 40177 | /*decl*/ | |||
| 40178 | ||||
| 40179 | int n = 0; | |||
| 40180 | int nrhs = 0; | |||
| 40181 | float *a = NULL((void*)0); | |||
| 40182 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 40183 | const int a_Rank = 2; | |||
| 40184 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 40185 | int capi_a_intent = 0; | |||
| 40186 | int capi_overwrite_a = 0; | |||
| 40187 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 40188 | int lda = 0; | |||
| 40189 | float *af = NULL((void*)0); | |||
| 40190 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 40191 | const int af_Rank = 2; | |||
| 40192 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 40193 | int capi_af_intent = 0; | |||
| 40194 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 40195 | int ldaf = 0; | |||
| 40196 | int *ipiv = NULL((void*)0); | |||
| 40197 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 40198 | const int ipiv_Rank = 1; | |||
| 40199 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 40200 | int capi_ipiv_intent = 0; | |||
| 40201 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 40202 | float *b = NULL((void*)0); | |||
| 40203 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 40204 | const int b_Rank = 2; | |||
| 40205 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 40206 | int capi_b_intent = 0; | |||
| 40207 | int capi_overwrite_b = 0; | |||
| 40208 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 40209 | int ldb = 0; | |||
| 40210 | float *x = NULL((void*)0); | |||
| 40211 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 40212 | const int x_Rank = 2; | |||
| 40213 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 40214 | int capi_x_intent = 0; | |||
| 40215 | int ldx = 0; | |||
| 40216 | float rcond = 0; | |||
| 40217 | float *ferr = NULL((void*)0); | |||
| 40218 | npy_intp ferr_Dims[1] = {-1}; | |||
| 40219 | const int ferr_Rank = 1; | |||
| 40220 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 40221 | int capi_ferr_intent = 0; | |||
| 40222 | float *berr = NULL((void*)0); | |||
| 40223 | npy_intp berr_Dims[1] = {-1}; | |||
| 40224 | const int berr_Rank = 1; | |||
| 40225 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 40226 | int capi_berr_intent = 0; | |||
| 40227 | float *work = NULL((void*)0); | |||
| 40228 | npy_intp work_Dims[1] = {-1}; | |||
| 40229 | const int work_Rank = 1; | |||
| 40230 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 40231 | int capi_work_intent = 0; | |||
| 40232 | int lwork = 0; | |||
| 40233 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 40234 | int *irwork = NULL((void*)0); | |||
| 40235 | npy_intp irwork_Dims[1] = {-1}; | |||
| 40236 | const int irwork_Rank = 1; | |||
| 40237 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 40238 | int capi_irwork_intent = 0; | |||
| 40239 | int info = 0; | |||
| 40240 | int factored = 0; | |||
| 40241 | PyObject *factored_capi = Py_None(&_Py_NoneStruct); | |||
| 40242 | int lower = 0; | |||
| 40243 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 40244 | static char *capi_kwlist[] = {"a","b","af","ipiv","lwork","factored","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 40245 | ||||
| 40246 | /*routdebugenter*/ | |||
| 40247 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40248 | f2py_start_clock(); | |||
| 40249 | #endif | |||
| 40250 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 40251 | "OO|OOOOOii:_flapack.ssysvx",\ | |||
| 40252 | capi_kwlist,&a_capi,&b_capi,&af_capi,&ipiv_capi,&lwork_capi,&factored_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 40253 | return NULL((void*)0); | |||
| 40254 | /*frompyobj*/ | |||
| 40255 | /* Processing variable factored */ | |||
| 40256 | if (factored_capi == Py_None(&_Py_NoneStruct)) factored = 0; else | |||
| 40257 | f2py_success = int_from_pyobj(&factored,factored_capi,"_flapack.ssysvx() 4th keyword (factored) can't be converted to int"); | |||
| 40258 | if (f2py_success) { | |||
| 40259 | CHECKSCALAR(factored==0||factored==1,"factored==0||factored==1","4th keyword factored","ssysvx:factored=%d",factored)if (!(factored==0||factored==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssysvx:factored=%d", "(""factored==0||factored==1"") failed for " "4th keyword factored", factored); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 40260 | /* Processing variable lower */ | |||
| 40261 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 40262 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssysvx() 5th keyword (lower) can't be converted to int"); | |||
| 40263 | if (f2py_success) { | |||
| 40264 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","ssysvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssysvx:lower=%d", "(""lower==0||lower==1"") failed for " "5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 40265 | /* Processing variable a */ | |||
| 40266 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 40267 | ; | |||
| 40268 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 40269 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 40270 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 40271 | if (!PyErr_Occurred()) | |||
| 40272 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssysvx to C/Fortran array" ); | |||
| 40273 | } else { | |||
| 40274 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 40275 | ||||
| 40276 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 40277 | /* Processing variable rcond */ | |||
| 40278 | /* Processing variable info */ | |||
| 40279 | /* Processing variable n */ | |||
| 40280 | n = shape(a,0)a_Dims[0]; | |||
| 40281 | /* Processing variable lda */ | |||
| 40282 | lda = shape(a,0)a_Dims[0]; | |||
| 40283 | /* Processing variable af */ | |||
| 40284 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 40285 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 40286 | capi_af_tmp = array_from_pyobj(NPY_FLOAT,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 40287 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 40288 | if (!PyErr_Occurred()) | |||
| 40289 | PyErr_SetString(_flapack_error,"failed in converting 1st keyword `af' of _flapack.ssysvx to C/Fortran array" ); | |||
| 40290 | } else { | |||
| 40291 | af = (float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 40292 | ||||
| 40293 | /* Processing variable ldaf */ | |||
| 40294 | ldaf = shape(af,0)af_Dims[0]; | |||
| 40295 | /* Processing variable ipiv */ | |||
| 40296 | ipiv_Dims[0]=n; | |||
| 40297 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 40298 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 40299 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 40300 | if (!PyErr_Occurred()) | |||
| 40301 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `ipiv' of _flapack.ssysvx to C/Fortran array" ); | |||
| 40302 | } else { | |||
| 40303 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 40304 | ||||
| 40305 | /* Processing variable b */ | |||
| 40306 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 40307 | b_Dims[0]=n; | |||
| 40308 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 40309 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 40310 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 40311 | if (!PyErr_Occurred()) | |||
| 40312 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ssysvx to C/Fortran array" ); | |||
| 40313 | } else { | |||
| 40314 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 40315 | ||||
| 40316 | /* Processing variable ldb */ | |||
| 40317 | ldb = shape(b,0)b_Dims[0]; | |||
| 40318 | /* Processing variable ldx */ | |||
| 40319 | ldx = n; | |||
| 40320 | /* Processing variable lwork */ | |||
| 40321 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 40322 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssysvx() 3rd keyword (lwork) can't be converted to int"); | |||
| 40323 | if (f2py_success) { | |||
| 40324 | CHECKSCALAR(lwork>=3*n||lwork==-1,"lwork>=3*n||lwork==-1","3rd keyword lwork","ssysvx:lwork=%d",lwork)if (!(lwork>=3*n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssysvx:lwork=%d", "(""lwork>=3*n||lwork==-1"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 40325 | /* Processing variable work */ | |||
| 40326 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 40327 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 40328 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 40329 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 40330 | if (!PyErr_Occurred()) | |||
| 40331 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssysvx to C/Fortran array" ); | |||
| 40332 | } else { | |||
| 40333 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 40334 | ||||
| 40335 | /* Processing variable irwork */ | |||
| 40336 | irwork_Dims[0]=n; | |||
| 40337 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 40338 | capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 40339 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 40340 | if (!PyErr_Occurred()) | |||
| 40341 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.ssysvx to C/Fortran array" ); | |||
| 40342 | } else { | |||
| 40343 | irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 40344 | ||||
| 40345 | /* Processing variable nrhs */ | |||
| 40346 | nrhs = shape(b,1)b_Dims[1]; | |||
| 40347 | /* Processing variable x */ | |||
| 40348 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 40349 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 40350 | capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 40351 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 40352 | if (!PyErr_Occurred()) | |||
| 40353 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.ssysvx to C/Fortran array" ); | |||
| 40354 | } else { | |||
| 40355 | x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 40356 | ||||
| 40357 | /* Processing variable ferr */ | |||
| 40358 | ferr_Dims[0]=nrhs; | |||
| 40359 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 40360 | capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 40361 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 40362 | if (!PyErr_Occurred()) | |||
| 40363 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.ssysvx to C/Fortran array" ); | |||
| 40364 | } else { | |||
| 40365 | ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 40366 | ||||
| 40367 | /* Processing variable berr */ | |||
| 40368 | berr_Dims[0]=nrhs; | |||
| 40369 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 40370 | capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 40371 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 40372 | if (!PyErr_Occurred()) | |||
| 40373 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.ssysvx to C/Fortran array" ); | |||
| 40374 | } else { | |||
| 40375 | berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 40376 | ||||
| 40377 | /*end of frompyobj*/ | |||
| 40378 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40379 | f2py_start_call_clock(); | |||
| 40380 | #endif | |||
| 40381 | /*callfortranroutine*/ | |||
| 40382 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 40383 | (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info) ; | |||
| 40384 | /*(*f2py_func)(&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info,&factored,&lower);*/ | |||
| 40385 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 40386 | if (PyErr_Occurred()) | |||
| 40387 | f2py_success = 0; | |||
| 40388 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40389 | f2py_stop_call_clock(); | |||
| 40390 | #endif | |||
| 40391 | /*end of callfortranroutine*/ | |||
| 40392 | if (f2py_success) { | |||
| 40393 | /*pyobjfrom*/ | |||
| 40394 | /*end of pyobjfrom*/ | |||
| 40395 | CFUNCSMESS("Building return value.\n"); | |||
| 40396 | capi_buildvalue = Py_BuildValue("NNNNNfNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 40397 | /*closepyobjfrom*/ | |||
| 40398 | /*end of closepyobjfrom*/ | |||
| 40399 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 40400 | /*cleanupfrompyobj*/ | |||
| 40401 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 40402 | /* End of cleaning variable berr */ | |||
| 40403 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 40404 | /* End of cleaning variable ferr */ | |||
| 40405 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 40406 | /* End of cleaning variable x */ | |||
| 40407 | /* End of cleaning variable nrhs */ | |||
| 40408 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 40409 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 40410 | /* End of cleaning variable irwork */ | |||
| 40411 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 40412 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 40413 | /* End of cleaning variable work */ | |||
| 40414 | } /*CHECKSCALAR(lwork>=3*n||lwork==-1)*/ | |||
| 40415 | } /*if (f2py_success) of lwork*/ | |||
| 40416 | /* End of cleaning variable lwork */ | |||
| 40417 | /* End of cleaning variable ldx */ | |||
| 40418 | /* End of cleaning variable ldb */ | |||
| 40419 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 40420 | /* End of cleaning variable b */ | |||
| 40421 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 40422 | /* End of cleaning variable ipiv */ | |||
| 40423 | /* End of cleaning variable ldaf */ | |||
| 40424 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 40425 | /* End of cleaning variable af */ | |||
| 40426 | /* End of cleaning variable lda */ | |||
| 40427 | /* End of cleaning variable n */ | |||
| 40428 | /* End of cleaning variable info */ | |||
| 40429 | /* End of cleaning variable rcond */ | |||
| 40430 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 40431 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 40432 | /* End of cleaning variable a */ | |||
| 40433 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 40434 | } /*if (f2py_success) of lower*/ | |||
| 40435 | /* End of cleaning variable lower */ | |||
| 40436 | } /*CHECKSCALAR(factored==0||factored==1)*/ | |||
| 40437 | } /*if (f2py_success) of factored*/ | |||
| 40438 | /* End of cleaning variable factored */ | |||
| 40439 | /*end of cleanupfrompyobj*/ | |||
| 40440 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 40441 | /*routdebugfailure*/ | |||
| 40442 | } else { | |||
| 40443 | /*routdebugleave*/ | |||
| 40444 | } | |||
| 40445 | CFUNCSMESS("Freeing memory.\n"); | |||
| 40446 | /*freemem*/ | |||
| 40447 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40448 | f2py_stop_clock(); | |||
| 40449 | #endif | |||
| 40450 | return capi_buildvalue; | |||
| 40451 | } | |||
| 40452 | /******************************* end of ssysvx *******************************/ | |||
| 40453 | ||||
| 40454 | /*********************************** dsysvx ***********************************/ | |||
| 40455 | static char doc_f2py_rout__flapack_dsysvx[] = "\ | |||
| 40456 | a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = dsysvx(a,b,[af,ipiv,lwork,factored,lower,overwrite_a,overwrite_b])\n\nWrapper for ``dsysvx``.\ | |||
| 40457 | \n\nParameters\n----------\n" | |||
| 40458 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 40459 | "b : input rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 40460 | "\nOther Parameters\n----------------\n" | |||
| 40461 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 40462 | "af : input rank-2 array('d') with bounds (n,n)\n" | |||
| 40463 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 40464 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 40465 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 40466 | "factored : input int, optional\n Default: 0\n" | |||
| 40467 | "lower : input int, optional\n Default: 0\n" | |||
| 40468 | "\nReturns\n-------\n" | |||
| 40469 | "a_s : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 40470 | "udut : rank-2 array('d') with bounds (n,n) and af storage\n" | |||
| 40471 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 40472 | "b_s : rank-2 array('d') with bounds (n,nrhs) and b storage\n" | |||
| 40473 | "x : rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 40474 | "rcond : float\n" | |||
| 40475 | "ferr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 40476 | "berr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 40477 | "info : int"; | |||
| 40478 | /* extern void F_FUNC(dsysvx,DSYSVX)(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 40479 | static PyObject *f2py_rout__flapack_dsysvx(const PyObject *capi_self, | |||
| 40480 | PyObject *capi_args, | |||
| 40481 | PyObject *capi_keywds, | |||
| 40482 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 40483 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 40484 | volatile int f2py_success = 1; | |||
| 40485 | /*decl*/ | |||
| 40486 | ||||
| 40487 | int n = 0; | |||
| 40488 | int nrhs = 0; | |||
| 40489 | double *a = NULL((void*)0); | |||
| 40490 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 40491 | const int a_Rank = 2; | |||
| 40492 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 40493 | int capi_a_intent = 0; | |||
| 40494 | int capi_overwrite_a = 0; | |||
| 40495 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 40496 | int lda = 0; | |||
| 40497 | double *af = NULL((void*)0); | |||
| 40498 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 40499 | const int af_Rank = 2; | |||
| 40500 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 40501 | int capi_af_intent = 0; | |||
| 40502 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 40503 | int ldaf = 0; | |||
| 40504 | int *ipiv = NULL((void*)0); | |||
| 40505 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 40506 | const int ipiv_Rank = 1; | |||
| 40507 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 40508 | int capi_ipiv_intent = 0; | |||
| 40509 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 40510 | double *b = NULL((void*)0); | |||
| 40511 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 40512 | const int b_Rank = 2; | |||
| 40513 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 40514 | int capi_b_intent = 0; | |||
| 40515 | int capi_overwrite_b = 0; | |||
| 40516 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 40517 | int ldb = 0; | |||
| 40518 | double *x = NULL((void*)0); | |||
| 40519 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 40520 | const int x_Rank = 2; | |||
| 40521 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 40522 | int capi_x_intent = 0; | |||
| 40523 | int ldx = 0; | |||
| 40524 | double rcond = 0; | |||
| 40525 | double *ferr = NULL((void*)0); | |||
| 40526 | npy_intp ferr_Dims[1] = {-1}; | |||
| 40527 | const int ferr_Rank = 1; | |||
| 40528 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 40529 | int capi_ferr_intent = 0; | |||
| 40530 | double *berr = NULL((void*)0); | |||
| 40531 | npy_intp berr_Dims[1] = {-1}; | |||
| 40532 | const int berr_Rank = 1; | |||
| 40533 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 40534 | int capi_berr_intent = 0; | |||
| 40535 | double *work = NULL((void*)0); | |||
| 40536 | npy_intp work_Dims[1] = {-1}; | |||
| 40537 | const int work_Rank = 1; | |||
| 40538 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 40539 | int capi_work_intent = 0; | |||
| 40540 | int lwork = 0; | |||
| 40541 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 40542 | int *irwork = NULL((void*)0); | |||
| 40543 | npy_intp irwork_Dims[1] = {-1}; | |||
| 40544 | const int irwork_Rank = 1; | |||
| 40545 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 40546 | int capi_irwork_intent = 0; | |||
| 40547 | int info = 0; | |||
| 40548 | int factored = 0; | |||
| 40549 | PyObject *factored_capi = Py_None(&_Py_NoneStruct); | |||
| 40550 | int lower = 0; | |||
| 40551 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 40552 | static char *capi_kwlist[] = {"a","b","af","ipiv","lwork","factored","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 40553 | ||||
| 40554 | /*routdebugenter*/ | |||
| 40555 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40556 | f2py_start_clock(); | |||
| 40557 | #endif | |||
| 40558 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 40559 | "OO|OOOOOii:_flapack.dsysvx",\ | |||
| 40560 | capi_kwlist,&a_capi,&b_capi,&af_capi,&ipiv_capi,&lwork_capi,&factored_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 40561 | return NULL((void*)0); | |||
| 40562 | /*frompyobj*/ | |||
| 40563 | /* Processing variable factored */ | |||
| 40564 | if (factored_capi == Py_None(&_Py_NoneStruct)) factored = 0; else | |||
| 40565 | f2py_success = int_from_pyobj(&factored,factored_capi,"_flapack.dsysvx() 4th keyword (factored) can't be converted to int"); | |||
| 40566 | if (f2py_success) { | |||
| 40567 | CHECKSCALAR(factored==0||factored==1,"factored==0||factored==1","4th keyword factored","dsysvx:factored=%d",factored)if (!(factored==0||factored==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsysvx:factored=%d", "(""factored==0||factored==1"") failed for " "4th keyword factored", factored); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 40568 | /* Processing variable lower */ | |||
| 40569 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 40570 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsysvx() 5th keyword (lower) can't be converted to int"); | |||
| 40571 | if (f2py_success) { | |||
| 40572 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","dsysvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsysvx:lower=%d", "(""lower==0||lower==1"") failed for " "5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 40573 | /* Processing variable a */ | |||
| 40574 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 40575 | ; | |||
| 40576 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 40577 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 40578 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 40579 | if (!PyErr_Occurred()) | |||
| 40580 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsysvx to C/Fortran array" ); | |||
| 40581 | } else { | |||
| 40582 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 40583 | ||||
| 40584 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 40585 | /* Processing variable rcond */ | |||
| 40586 | /* Processing variable info */ | |||
| 40587 | /* Processing variable n */ | |||
| 40588 | n = shape(a,0)a_Dims[0]; | |||
| 40589 | /* Processing variable lda */ | |||
| 40590 | lda = shape(a,0)a_Dims[0]; | |||
| 40591 | /* Processing variable af */ | |||
| 40592 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 40593 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 40594 | capi_af_tmp = array_from_pyobj(NPY_DOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 40595 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 40596 | if (!PyErr_Occurred()) | |||
| 40597 | PyErr_SetString(_flapack_error,"failed in converting 1st keyword `af' of _flapack.dsysvx to C/Fortran array" ); | |||
| 40598 | } else { | |||
| 40599 | af = (double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 40600 | ||||
| 40601 | /* Processing variable ldaf */ | |||
| 40602 | ldaf = shape(af,0)af_Dims[0]; | |||
| 40603 | /* Processing variable ipiv */ | |||
| 40604 | ipiv_Dims[0]=n; | |||
| 40605 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 40606 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 40607 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 40608 | if (!PyErr_Occurred()) | |||
| 40609 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `ipiv' of _flapack.dsysvx to C/Fortran array" ); | |||
| 40610 | } else { | |||
| 40611 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 40612 | ||||
| 40613 | /* Processing variable b */ | |||
| 40614 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 40615 | b_Dims[0]=n; | |||
| 40616 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 40617 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 40618 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 40619 | if (!PyErr_Occurred()) | |||
| 40620 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dsysvx to C/Fortran array" ); | |||
| 40621 | } else { | |||
| 40622 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 40623 | ||||
| 40624 | /* Processing variable ldb */ | |||
| 40625 | ldb = shape(b,0)b_Dims[0]; | |||
| 40626 | /* Processing variable ldx */ | |||
| 40627 | ldx = n; | |||
| 40628 | /* Processing variable lwork */ | |||
| 40629 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 40630 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsysvx() 3rd keyword (lwork) can't be converted to int"); | |||
| 40631 | if (f2py_success) { | |||
| 40632 | CHECKSCALAR(lwork>=3*n||lwork==-1,"lwork>=3*n||lwork==-1","3rd keyword lwork","dsysvx:lwork=%d",lwork)if (!(lwork>=3*n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsysvx:lwork=%d", "(""lwork>=3*n||lwork==-1"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 40633 | /* Processing variable work */ | |||
| 40634 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 40635 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 40636 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 40637 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 40638 | if (!PyErr_Occurred()) | |||
| 40639 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsysvx to C/Fortran array" ); | |||
| 40640 | } else { | |||
| 40641 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 40642 | ||||
| 40643 | /* Processing variable irwork */ | |||
| 40644 | irwork_Dims[0]=n; | |||
| 40645 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 40646 | capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 40647 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 40648 | if (!PyErr_Occurred()) | |||
| 40649 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.dsysvx to C/Fortran array" ); | |||
| 40650 | } else { | |||
| 40651 | irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 40652 | ||||
| 40653 | /* Processing variable nrhs */ | |||
| 40654 | nrhs = shape(b,1)b_Dims[1]; | |||
| 40655 | /* Processing variable x */ | |||
| 40656 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 40657 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 40658 | capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 40659 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 40660 | if (!PyErr_Occurred()) | |||
| 40661 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.dsysvx to C/Fortran array" ); | |||
| 40662 | } else { | |||
| 40663 | x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 40664 | ||||
| 40665 | /* Processing variable ferr */ | |||
| 40666 | ferr_Dims[0]=nrhs; | |||
| 40667 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 40668 | capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 40669 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 40670 | if (!PyErr_Occurred()) | |||
| 40671 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.dsysvx to C/Fortran array" ); | |||
| 40672 | } else { | |||
| 40673 | ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 40674 | ||||
| 40675 | /* Processing variable berr */ | |||
| 40676 | berr_Dims[0]=nrhs; | |||
| 40677 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 40678 | capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 40679 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 40680 | if (!PyErr_Occurred()) | |||
| 40681 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.dsysvx to C/Fortran array" ); | |||
| 40682 | } else { | |||
| 40683 | berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 40684 | ||||
| 40685 | /*end of frompyobj*/ | |||
| 40686 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40687 | f2py_start_call_clock(); | |||
| 40688 | #endif | |||
| 40689 | /*callfortranroutine*/ | |||
| 40690 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 40691 | (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info) ; | |||
| 40692 | /*(*f2py_func)(&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info,&factored,&lower);*/ | |||
| 40693 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 40694 | if (PyErr_Occurred()) | |||
| 40695 | f2py_success = 0; | |||
| 40696 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40697 | f2py_stop_call_clock(); | |||
| 40698 | #endif | |||
| 40699 | /*end of callfortranroutine*/ | |||
| 40700 | if (f2py_success) { | |||
| 40701 | /*pyobjfrom*/ | |||
| 40702 | /*end of pyobjfrom*/ | |||
| 40703 | CFUNCSMESS("Building return value.\n"); | |||
| 40704 | capi_buildvalue = Py_BuildValue("NNNNNdNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 40705 | /*closepyobjfrom*/ | |||
| 40706 | /*end of closepyobjfrom*/ | |||
| 40707 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 40708 | /*cleanupfrompyobj*/ | |||
| 40709 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 40710 | /* End of cleaning variable berr */ | |||
| 40711 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 40712 | /* End of cleaning variable ferr */ | |||
| 40713 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 40714 | /* End of cleaning variable x */ | |||
| 40715 | /* End of cleaning variable nrhs */ | |||
| 40716 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 40717 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 40718 | /* End of cleaning variable irwork */ | |||
| 40719 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 40720 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 40721 | /* End of cleaning variable work */ | |||
| 40722 | } /*CHECKSCALAR(lwork>=3*n||lwork==-1)*/ | |||
| 40723 | } /*if (f2py_success) of lwork*/ | |||
| 40724 | /* End of cleaning variable lwork */ | |||
| 40725 | /* End of cleaning variable ldx */ | |||
| 40726 | /* End of cleaning variable ldb */ | |||
| 40727 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 40728 | /* End of cleaning variable b */ | |||
| 40729 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 40730 | /* End of cleaning variable ipiv */ | |||
| 40731 | /* End of cleaning variable ldaf */ | |||
| 40732 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 40733 | /* End of cleaning variable af */ | |||
| 40734 | /* End of cleaning variable lda */ | |||
| 40735 | /* End of cleaning variable n */ | |||
| 40736 | /* End of cleaning variable info */ | |||
| 40737 | /* End of cleaning variable rcond */ | |||
| 40738 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 40739 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 40740 | /* End of cleaning variable a */ | |||
| 40741 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 40742 | } /*if (f2py_success) of lower*/ | |||
| 40743 | /* End of cleaning variable lower */ | |||
| 40744 | } /*CHECKSCALAR(factored==0||factored==1)*/ | |||
| 40745 | } /*if (f2py_success) of factored*/ | |||
| 40746 | /* End of cleaning variable factored */ | |||
| 40747 | /*end of cleanupfrompyobj*/ | |||
| 40748 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 40749 | /*routdebugfailure*/ | |||
| 40750 | } else { | |||
| 40751 | /*routdebugleave*/ | |||
| 40752 | } | |||
| 40753 | CFUNCSMESS("Freeing memory.\n"); | |||
| 40754 | /*freemem*/ | |||
| 40755 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40756 | f2py_stop_clock(); | |||
| 40757 | #endif | |||
| 40758 | return capi_buildvalue; | |||
| 40759 | } | |||
| 40760 | /******************************* end of dsysvx *******************************/ | |||
| 40761 | ||||
| 40762 | /*********************************** csysvx ***********************************/ | |||
| 40763 | static char doc_f2py_rout__flapack_csysvx[] = "\ | |||
| 40764 | a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = csysvx(a,b,[af,ipiv,lwork,factored,lower,overwrite_a,overwrite_b])\n\nWrapper for ``csysvx``.\ | |||
| 40765 | \n\nParameters\n----------\n" | |||
| 40766 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 40767 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 40768 | "\nOther Parameters\n----------------\n" | |||
| 40769 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 40770 | "af : input rank-2 array('F') with bounds (n,n)\n" | |||
| 40771 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 40772 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 40773 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 40774 | "factored : input int, optional\n Default: 0\n" | |||
| 40775 | "lower : input int, optional\n Default: 0\n" | |||
| 40776 | "\nReturns\n-------\n" | |||
| 40777 | "a_s : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 40778 | "udut : rank-2 array('F') with bounds (n,n) and af storage\n" | |||
| 40779 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 40780 | "b_s : rank-2 array('F') with bounds (n,nrhs) and b storage\n" | |||
| 40781 | "x : rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 40782 | "rcond : float\n" | |||
| 40783 | "ferr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 40784 | "berr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 40785 | "info : int"; | |||
| 40786 | /* extern void F_FUNC(csysvx,CSYSVX)(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 40787 | static PyObject *f2py_rout__flapack_csysvx(const PyObject *capi_self, | |||
| 40788 | PyObject *capi_args, | |||
| 40789 | PyObject *capi_keywds, | |||
| 40790 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 40791 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 40792 | volatile int f2py_success = 1; | |||
| 40793 | /*decl*/ | |||
| 40794 | ||||
| 40795 | int n = 0; | |||
| 40796 | int nrhs = 0; | |||
| 40797 | complex_float *a = NULL((void*)0); | |||
| 40798 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 40799 | const int a_Rank = 2; | |||
| 40800 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 40801 | int capi_a_intent = 0; | |||
| 40802 | int capi_overwrite_a = 0; | |||
| 40803 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 40804 | int lda = 0; | |||
| 40805 | complex_float *af = NULL((void*)0); | |||
| 40806 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 40807 | const int af_Rank = 2; | |||
| 40808 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 40809 | int capi_af_intent = 0; | |||
| 40810 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 40811 | int ldaf = 0; | |||
| 40812 | int *ipiv = NULL((void*)0); | |||
| 40813 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 40814 | const int ipiv_Rank = 1; | |||
| 40815 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 40816 | int capi_ipiv_intent = 0; | |||
| 40817 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 40818 | complex_float *b = NULL((void*)0); | |||
| 40819 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 40820 | const int b_Rank = 2; | |||
| 40821 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 40822 | int capi_b_intent = 0; | |||
| 40823 | int capi_overwrite_b = 0; | |||
| 40824 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 40825 | int ldb = 0; | |||
| 40826 | complex_float *x = NULL((void*)0); | |||
| 40827 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 40828 | const int x_Rank = 2; | |||
| 40829 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 40830 | int capi_x_intent = 0; | |||
| 40831 | int ldx = 0; | |||
| 40832 | float rcond = 0; | |||
| 40833 | float *ferr = NULL((void*)0); | |||
| 40834 | npy_intp ferr_Dims[1] = {-1}; | |||
| 40835 | const int ferr_Rank = 1; | |||
| 40836 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 40837 | int capi_ferr_intent = 0; | |||
| 40838 | float *berr = NULL((void*)0); | |||
| 40839 | npy_intp berr_Dims[1] = {-1}; | |||
| 40840 | const int berr_Rank = 1; | |||
| 40841 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 40842 | int capi_berr_intent = 0; | |||
| 40843 | complex_float *work = NULL((void*)0); | |||
| 40844 | npy_intp work_Dims[1] = {-1}; | |||
| 40845 | const int work_Rank = 1; | |||
| 40846 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 40847 | int capi_work_intent = 0; | |||
| 40848 | int lwork = 0; | |||
| 40849 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 40850 | float *irwork = NULL((void*)0); | |||
| 40851 | npy_intp irwork_Dims[1] = {-1}; | |||
| 40852 | const int irwork_Rank = 1; | |||
| 40853 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 40854 | int capi_irwork_intent = 0; | |||
| 40855 | int info = 0; | |||
| 40856 | int factored = 0; | |||
| 40857 | PyObject *factored_capi = Py_None(&_Py_NoneStruct); | |||
| 40858 | int lower = 0; | |||
| 40859 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 40860 | static char *capi_kwlist[] = {"a","b","af","ipiv","lwork","factored","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 40861 | ||||
| 40862 | /*routdebugenter*/ | |||
| 40863 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40864 | f2py_start_clock(); | |||
| 40865 | #endif | |||
| 40866 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 40867 | "OO|OOOOOii:_flapack.csysvx",\ | |||
| 40868 | capi_kwlist,&a_capi,&b_capi,&af_capi,&ipiv_capi,&lwork_capi,&factored_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 40869 | return NULL((void*)0); | |||
| 40870 | /*frompyobj*/ | |||
| 40871 | /* Processing variable factored */ | |||
| 40872 | if (factored_capi == Py_None(&_Py_NoneStruct)) factored = 0; else | |||
| 40873 | f2py_success = int_from_pyobj(&factored,factored_capi,"_flapack.csysvx() 4th keyword (factored) can't be converted to int"); | |||
| 40874 | if (f2py_success) { | |||
| 40875 | CHECKSCALAR(factored==0||factored==1,"factored==0||factored==1","4th keyword factored","csysvx:factored=%d",factored)if (!(factored==0||factored==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csysvx:factored=%d", "(""factored==0||factored==1"") failed for " "4th keyword factored", factored); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 40876 | /* Processing variable lower */ | |||
| 40877 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 40878 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csysvx() 5th keyword (lower) can't be converted to int"); | |||
| 40879 | if (f2py_success) { | |||
| 40880 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","csysvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csysvx:lower=%d", "(""lower==0||lower==1"") failed for " "5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 40881 | /* Processing variable a */ | |||
| 40882 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 40883 | ; | |||
| 40884 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 40885 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 40886 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 40887 | if (!PyErr_Occurred()) | |||
| 40888 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csysvx to C/Fortran array" ); | |||
| 40889 | } else { | |||
| 40890 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 40891 | ||||
| 40892 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 40893 | /* Processing variable rcond */ | |||
| 40894 | /* Processing variable info */ | |||
| 40895 | /* Processing variable n */ | |||
| 40896 | n = shape(a,0)a_Dims[0]; | |||
| 40897 | /* Processing variable lda */ | |||
| 40898 | lda = shape(a,0)a_Dims[0]; | |||
| 40899 | /* Processing variable af */ | |||
| 40900 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 40901 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 40902 | capi_af_tmp = array_from_pyobj(NPY_CFLOAT,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 40903 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 40904 | if (!PyErr_Occurred()) | |||
| 40905 | PyErr_SetString(_flapack_error,"failed in converting 1st keyword `af' of _flapack.csysvx to C/Fortran array" ); | |||
| 40906 | } else { | |||
| 40907 | af = (complex_float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 40908 | ||||
| 40909 | /* Processing variable ldaf */ | |||
| 40910 | ldaf = shape(af,0)af_Dims[0]; | |||
| 40911 | /* Processing variable ipiv */ | |||
| 40912 | ipiv_Dims[0]=n; | |||
| 40913 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 40914 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 40915 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 40916 | if (!PyErr_Occurred()) | |||
| 40917 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `ipiv' of _flapack.csysvx to C/Fortran array" ); | |||
| 40918 | } else { | |||
| 40919 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 40920 | ||||
| 40921 | /* Processing variable b */ | |||
| 40922 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 40923 | b_Dims[0]=n; | |||
| 40924 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 40925 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 40926 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 40927 | if (!PyErr_Occurred()) | |||
| 40928 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.csysvx to C/Fortran array" ); | |||
| 40929 | } else { | |||
| 40930 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 40931 | ||||
| 40932 | /* Processing variable ldb */ | |||
| 40933 | ldb = shape(b,0)b_Dims[0]; | |||
| 40934 | /* Processing variable ldx */ | |||
| 40935 | ldx = n; | |||
| 40936 | /* Processing variable lwork */ | |||
| 40937 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 40938 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.csysvx() 3rd keyword (lwork) can't be converted to int"); | |||
| 40939 | if (f2py_success) { | |||
| 40940 | CHECKSCALAR(lwork>=2*n||lwork==-1,"lwork>=2*n||lwork==-1","3rd keyword lwork","csysvx:lwork=%d",lwork)if (!(lwork>=2*n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csysvx:lwork=%d", "(""lwork>=2*n||lwork==-1"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 40941 | /* Processing variable work */ | |||
| 40942 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 40943 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 40944 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 40945 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 40946 | if (!PyErr_Occurred()) | |||
| 40947 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.csysvx to C/Fortran array" ); | |||
| 40948 | } else { | |||
| 40949 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 40950 | ||||
| 40951 | /* Processing variable irwork */ | |||
| 40952 | irwork_Dims[0]=n; | |||
| 40953 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 40954 | capi_irwork_tmp = array_from_pyobj(NPY_FLOAT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 40955 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 40956 | if (!PyErr_Occurred()) | |||
| 40957 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.csysvx to C/Fortran array" ); | |||
| 40958 | } else { | |||
| 40959 | irwork = (float *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 40960 | ||||
| 40961 | /* Processing variable nrhs */ | |||
| 40962 | nrhs = shape(b,1)b_Dims[1]; | |||
| 40963 | /* Processing variable x */ | |||
| 40964 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 40965 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 40966 | capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 40967 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 40968 | if (!PyErr_Occurred()) | |||
| 40969 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.csysvx to C/Fortran array" ); | |||
| 40970 | } else { | |||
| 40971 | x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 40972 | ||||
| 40973 | /* Processing variable ferr */ | |||
| 40974 | ferr_Dims[0]=nrhs; | |||
| 40975 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 40976 | capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 40977 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 40978 | if (!PyErr_Occurred()) | |||
| 40979 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.csysvx to C/Fortran array" ); | |||
| 40980 | } else { | |||
| 40981 | ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 40982 | ||||
| 40983 | /* Processing variable berr */ | |||
| 40984 | berr_Dims[0]=nrhs; | |||
| 40985 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 40986 | capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 40987 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 40988 | if (!PyErr_Occurred()) | |||
| 40989 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.csysvx to C/Fortran array" ); | |||
| 40990 | } else { | |||
| 40991 | berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 40992 | ||||
| 40993 | /*end of frompyobj*/ | |||
| 40994 | #ifdef F2PY_REPORT_ATEXIT | |||
| 40995 | f2py_start_call_clock(); | |||
| 40996 | #endif | |||
| 40997 | /*callfortranroutine*/ | |||
| 40998 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 40999 | (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info) ; | |||
| 41000 | /*(*f2py_func)(&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info,&factored,&lower);*/ | |||
| 41001 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 41002 | if (PyErr_Occurred()) | |||
| 41003 | f2py_success = 0; | |||
| 41004 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41005 | f2py_stop_call_clock(); | |||
| 41006 | #endif | |||
| 41007 | /*end of callfortranroutine*/ | |||
| 41008 | if (f2py_success) { | |||
| 41009 | /*pyobjfrom*/ | |||
| 41010 | /*end of pyobjfrom*/ | |||
| 41011 | CFUNCSMESS("Building return value.\n"); | |||
| 41012 | capi_buildvalue = Py_BuildValue("NNNNNfNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 41013 | /*closepyobjfrom*/ | |||
| 41014 | /*end of closepyobjfrom*/ | |||
| 41015 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 41016 | /*cleanupfrompyobj*/ | |||
| 41017 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 41018 | /* End of cleaning variable berr */ | |||
| 41019 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 41020 | /* End of cleaning variable ferr */ | |||
| 41021 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 41022 | /* End of cleaning variable x */ | |||
| 41023 | /* End of cleaning variable nrhs */ | |||
| 41024 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 41025 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 41026 | /* End of cleaning variable irwork */ | |||
| 41027 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 41028 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 41029 | /* End of cleaning variable work */ | |||
| 41030 | } /*CHECKSCALAR(lwork>=2*n||lwork==-1)*/ | |||
| 41031 | } /*if (f2py_success) of lwork*/ | |||
| 41032 | /* End of cleaning variable lwork */ | |||
| 41033 | /* End of cleaning variable ldx */ | |||
| 41034 | /* End of cleaning variable ldb */ | |||
| 41035 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 41036 | /* End of cleaning variable b */ | |||
| 41037 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 41038 | /* End of cleaning variable ipiv */ | |||
| 41039 | /* End of cleaning variable ldaf */ | |||
| 41040 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 41041 | /* End of cleaning variable af */ | |||
| 41042 | /* End of cleaning variable lda */ | |||
| 41043 | /* End of cleaning variable n */ | |||
| 41044 | /* End of cleaning variable info */ | |||
| 41045 | /* End of cleaning variable rcond */ | |||
| 41046 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 41047 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 41048 | /* End of cleaning variable a */ | |||
| 41049 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 41050 | } /*if (f2py_success) of lower*/ | |||
| 41051 | /* End of cleaning variable lower */ | |||
| 41052 | } /*CHECKSCALAR(factored==0||factored==1)*/ | |||
| 41053 | } /*if (f2py_success) of factored*/ | |||
| 41054 | /* End of cleaning variable factored */ | |||
| 41055 | /*end of cleanupfrompyobj*/ | |||
| 41056 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 41057 | /*routdebugfailure*/ | |||
| 41058 | } else { | |||
| 41059 | /*routdebugleave*/ | |||
| 41060 | } | |||
| 41061 | CFUNCSMESS("Freeing memory.\n"); | |||
| 41062 | /*freemem*/ | |||
| 41063 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41064 | f2py_stop_clock(); | |||
| 41065 | #endif | |||
| 41066 | return capi_buildvalue; | |||
| 41067 | } | |||
| 41068 | /******************************* end of csysvx *******************************/ | |||
| 41069 | ||||
| 41070 | /*********************************** zsysvx ***********************************/ | |||
| 41071 | static char doc_f2py_rout__flapack_zsysvx[] = "\ | |||
| 41072 | a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = zsysvx(a,b,[af,ipiv,lwork,factored,lower,overwrite_a,overwrite_b])\n\nWrapper for ``zsysvx``.\ | |||
| 41073 | \n\nParameters\n----------\n" | |||
| 41074 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 41075 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 41076 | "\nOther Parameters\n----------------\n" | |||
| 41077 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 41078 | "af : input rank-2 array('D') with bounds (n,n)\n" | |||
| 41079 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 41080 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 41081 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 41082 | "factored : input int, optional\n Default: 0\n" | |||
| 41083 | "lower : input int, optional\n Default: 0\n" | |||
| 41084 | "\nReturns\n-------\n" | |||
| 41085 | "a_s : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 41086 | "udut : rank-2 array('D') with bounds (n,n) and af storage\n" | |||
| 41087 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 41088 | "b_s : rank-2 array('D') with bounds (n,nrhs) and b storage\n" | |||
| 41089 | "x : rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 41090 | "rcond : float\n" | |||
| 41091 | "ferr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 41092 | "berr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 41093 | "info : int"; | |||
| 41094 | /* extern void F_FUNC(zsysvx,ZSYSVX)(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 41095 | static PyObject *f2py_rout__flapack_zsysvx(const PyObject *capi_self, | |||
| 41096 | PyObject *capi_args, | |||
| 41097 | PyObject *capi_keywds, | |||
| 41098 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 41099 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 41100 | volatile int f2py_success = 1; | |||
| 41101 | /*decl*/ | |||
| 41102 | ||||
| 41103 | int n = 0; | |||
| 41104 | int nrhs = 0; | |||
| 41105 | complex_double *a = NULL((void*)0); | |||
| 41106 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 41107 | const int a_Rank = 2; | |||
| 41108 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 41109 | int capi_a_intent = 0; | |||
| 41110 | int capi_overwrite_a = 0; | |||
| 41111 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 41112 | int lda = 0; | |||
| 41113 | complex_double *af = NULL((void*)0); | |||
| 41114 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 41115 | const int af_Rank = 2; | |||
| 41116 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 41117 | int capi_af_intent = 0; | |||
| 41118 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 41119 | int ldaf = 0; | |||
| 41120 | int *ipiv = NULL((void*)0); | |||
| 41121 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 41122 | const int ipiv_Rank = 1; | |||
| 41123 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 41124 | int capi_ipiv_intent = 0; | |||
| 41125 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 41126 | complex_double *b = NULL((void*)0); | |||
| 41127 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 41128 | const int b_Rank = 2; | |||
| 41129 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 41130 | int capi_b_intent = 0; | |||
| 41131 | int capi_overwrite_b = 0; | |||
| 41132 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 41133 | int ldb = 0; | |||
| 41134 | complex_double *x = NULL((void*)0); | |||
| 41135 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 41136 | const int x_Rank = 2; | |||
| 41137 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 41138 | int capi_x_intent = 0; | |||
| 41139 | int ldx = 0; | |||
| 41140 | double rcond = 0; | |||
| 41141 | double *ferr = NULL((void*)0); | |||
| 41142 | npy_intp ferr_Dims[1] = {-1}; | |||
| 41143 | const int ferr_Rank = 1; | |||
| 41144 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 41145 | int capi_ferr_intent = 0; | |||
| 41146 | double *berr = NULL((void*)0); | |||
| 41147 | npy_intp berr_Dims[1] = {-1}; | |||
| 41148 | const int berr_Rank = 1; | |||
| 41149 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 41150 | int capi_berr_intent = 0; | |||
| 41151 | complex_double *work = NULL((void*)0); | |||
| 41152 | npy_intp work_Dims[1] = {-1}; | |||
| 41153 | const int work_Rank = 1; | |||
| 41154 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 41155 | int capi_work_intent = 0; | |||
| 41156 | int lwork = 0; | |||
| 41157 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 41158 | double *irwork = NULL((void*)0); | |||
| 41159 | npy_intp irwork_Dims[1] = {-1}; | |||
| 41160 | const int irwork_Rank = 1; | |||
| 41161 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 41162 | int capi_irwork_intent = 0; | |||
| 41163 | int info = 0; | |||
| 41164 | int factored = 0; | |||
| 41165 | PyObject *factored_capi = Py_None(&_Py_NoneStruct); | |||
| 41166 | int lower = 0; | |||
| 41167 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 41168 | static char *capi_kwlist[] = {"a","b","af","ipiv","lwork","factored","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 41169 | ||||
| 41170 | /*routdebugenter*/ | |||
| 41171 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41172 | f2py_start_clock(); | |||
| 41173 | #endif | |||
| 41174 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 41175 | "OO|OOOOOii:_flapack.zsysvx",\ | |||
| 41176 | capi_kwlist,&a_capi,&b_capi,&af_capi,&ipiv_capi,&lwork_capi,&factored_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 41177 | return NULL((void*)0); | |||
| 41178 | /*frompyobj*/ | |||
| 41179 | /* Processing variable factored */ | |||
| 41180 | if (factored_capi == Py_None(&_Py_NoneStruct)) factored = 0; else | |||
| 41181 | f2py_success = int_from_pyobj(&factored,factored_capi,"_flapack.zsysvx() 4th keyword (factored) can't be converted to int"); | |||
| 41182 | if (f2py_success) { | |||
| 41183 | CHECKSCALAR(factored==0||factored==1,"factored==0||factored==1","4th keyword factored","zsysvx:factored=%d",factored)if (!(factored==0||factored==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsysvx:factored=%d", "(""factored==0||factored==1"") failed for " "4th keyword factored", factored); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 41184 | /* Processing variable lower */ | |||
| 41185 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 41186 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsysvx() 5th keyword (lower) can't be converted to int"); | |||
| 41187 | if (f2py_success) { | |||
| 41188 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","zsysvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsysvx:lower=%d", "(""lower==0||lower==1"") failed for " "5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 41189 | /* Processing variable a */ | |||
| 41190 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 41191 | ; | |||
| 41192 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 41193 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 41194 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 41195 | if (!PyErr_Occurred()) | |||
| 41196 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsysvx to C/Fortran array" ); | |||
| 41197 | } else { | |||
| 41198 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 41199 | ||||
| 41200 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 41201 | /* Processing variable rcond */ | |||
| 41202 | /* Processing variable info */ | |||
| 41203 | /* Processing variable n */ | |||
| 41204 | n = shape(a,0)a_Dims[0]; | |||
| 41205 | /* Processing variable lda */ | |||
| 41206 | lda = shape(a,0)a_Dims[0]; | |||
| 41207 | /* Processing variable af */ | |||
| 41208 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 41209 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 41210 | capi_af_tmp = array_from_pyobj(NPY_CDOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 41211 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 41212 | if (!PyErr_Occurred()) | |||
| 41213 | PyErr_SetString(_flapack_error,"failed in converting 1st keyword `af' of _flapack.zsysvx to C/Fortran array" ); | |||
| 41214 | } else { | |||
| 41215 | af = (complex_double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 41216 | ||||
| 41217 | /* Processing variable ldaf */ | |||
| 41218 | ldaf = shape(af,0)af_Dims[0]; | |||
| 41219 | /* Processing variable ipiv */ | |||
| 41220 | ipiv_Dims[0]=n; | |||
| 41221 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 41222 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 41223 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 41224 | if (!PyErr_Occurred()) | |||
| 41225 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `ipiv' of _flapack.zsysvx to C/Fortran array" ); | |||
| 41226 | } else { | |||
| 41227 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 41228 | ||||
| 41229 | /* Processing variable b */ | |||
| 41230 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 41231 | b_Dims[0]=n; | |||
| 41232 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 41233 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 41234 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 41235 | if (!PyErr_Occurred()) | |||
| 41236 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zsysvx to C/Fortran array" ); | |||
| 41237 | } else { | |||
| 41238 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 41239 | ||||
| 41240 | /* Processing variable ldb */ | |||
| 41241 | ldb = shape(b,0)b_Dims[0]; | |||
| 41242 | /* Processing variable ldx */ | |||
| 41243 | ldx = n; | |||
| 41244 | /* Processing variable lwork */ | |||
| 41245 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 41246 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zsysvx() 3rd keyword (lwork) can't be converted to int"); | |||
| 41247 | if (f2py_success) { | |||
| 41248 | CHECKSCALAR(lwork>=2*n||lwork==-1,"lwork>=2*n||lwork==-1","3rd keyword lwork","zsysvx:lwork=%d",lwork)if (!(lwork>=2*n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsysvx:lwork=%d", "(""lwork>=2*n||lwork==-1"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 41249 | /* Processing variable work */ | |||
| 41250 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 41251 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 41252 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 41253 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 41254 | if (!PyErr_Occurred()) | |||
| 41255 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zsysvx to C/Fortran array" ); | |||
| 41256 | } else { | |||
| 41257 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 41258 | ||||
| 41259 | /* Processing variable irwork */ | |||
| 41260 | irwork_Dims[0]=n; | |||
| 41261 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 41262 | capi_irwork_tmp = array_from_pyobj(NPY_DOUBLE,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 41263 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 41264 | if (!PyErr_Occurred()) | |||
| 41265 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.zsysvx to C/Fortran array" ); | |||
| 41266 | } else { | |||
| 41267 | irwork = (double *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 41268 | ||||
| 41269 | /* Processing variable nrhs */ | |||
| 41270 | nrhs = shape(b,1)b_Dims[1]; | |||
| 41271 | /* Processing variable x */ | |||
| 41272 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 41273 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 41274 | capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 41275 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 41276 | if (!PyErr_Occurred()) | |||
| 41277 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zsysvx to C/Fortran array" ); | |||
| 41278 | } else { | |||
| 41279 | x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 41280 | ||||
| 41281 | /* Processing variable ferr */ | |||
| 41282 | ferr_Dims[0]=nrhs; | |||
| 41283 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 41284 | capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 41285 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 41286 | if (!PyErr_Occurred()) | |||
| 41287 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.zsysvx to C/Fortran array" ); | |||
| 41288 | } else { | |||
| 41289 | ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 41290 | ||||
| 41291 | /* Processing variable berr */ | |||
| 41292 | berr_Dims[0]=nrhs; | |||
| 41293 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 41294 | capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 41295 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 41296 | if (!PyErr_Occurred()) | |||
| 41297 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.zsysvx to C/Fortran array" ); | |||
| 41298 | } else { | |||
| 41299 | berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 41300 | ||||
| 41301 | /*end of frompyobj*/ | |||
| 41302 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41303 | f2py_start_call_clock(); | |||
| 41304 | #endif | |||
| 41305 | /*callfortranroutine*/ | |||
| 41306 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 41307 | (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info) ; | |||
| 41308 | /*(*f2py_func)(&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info,&factored,&lower);*/ | |||
| 41309 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 41310 | if (PyErr_Occurred()) | |||
| 41311 | f2py_success = 0; | |||
| 41312 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41313 | f2py_stop_call_clock(); | |||
| 41314 | #endif | |||
| 41315 | /*end of callfortranroutine*/ | |||
| 41316 | if (f2py_success) { | |||
| 41317 | /*pyobjfrom*/ | |||
| 41318 | /*end of pyobjfrom*/ | |||
| 41319 | CFUNCSMESS("Building return value.\n"); | |||
| 41320 | capi_buildvalue = Py_BuildValue("NNNNNdNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 41321 | /*closepyobjfrom*/ | |||
| 41322 | /*end of closepyobjfrom*/ | |||
| 41323 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 41324 | /*cleanupfrompyobj*/ | |||
| 41325 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 41326 | /* End of cleaning variable berr */ | |||
| 41327 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 41328 | /* End of cleaning variable ferr */ | |||
| 41329 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 41330 | /* End of cleaning variable x */ | |||
| 41331 | /* End of cleaning variable nrhs */ | |||
| 41332 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 41333 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 41334 | /* End of cleaning variable irwork */ | |||
| 41335 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 41336 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 41337 | /* End of cleaning variable work */ | |||
| 41338 | } /*CHECKSCALAR(lwork>=2*n||lwork==-1)*/ | |||
| 41339 | } /*if (f2py_success) of lwork*/ | |||
| 41340 | /* End of cleaning variable lwork */ | |||
| 41341 | /* End of cleaning variable ldx */ | |||
| 41342 | /* End of cleaning variable ldb */ | |||
| 41343 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 41344 | /* End of cleaning variable b */ | |||
| 41345 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 41346 | /* End of cleaning variable ipiv */ | |||
| 41347 | /* End of cleaning variable ldaf */ | |||
| 41348 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 41349 | /* End of cleaning variable af */ | |||
| 41350 | /* End of cleaning variable lda */ | |||
| 41351 | /* End of cleaning variable n */ | |||
| 41352 | /* End of cleaning variable info */ | |||
| 41353 | /* End of cleaning variable rcond */ | |||
| 41354 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 41355 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 41356 | /* End of cleaning variable a */ | |||
| 41357 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 41358 | } /*if (f2py_success) of lower*/ | |||
| 41359 | /* End of cleaning variable lower */ | |||
| 41360 | } /*CHECKSCALAR(factored==0||factored==1)*/ | |||
| 41361 | } /*if (f2py_success) of factored*/ | |||
| 41362 | /* End of cleaning variable factored */ | |||
| 41363 | /*end of cleanupfrompyobj*/ | |||
| 41364 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 41365 | /*routdebugfailure*/ | |||
| 41366 | } else { | |||
| 41367 | /*routdebugleave*/ | |||
| 41368 | } | |||
| 41369 | CFUNCSMESS("Freeing memory.\n"); | |||
| 41370 | /*freemem*/ | |||
| 41371 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41372 | f2py_stop_clock(); | |||
| 41373 | #endif | |||
| 41374 | return capi_buildvalue; | |||
| 41375 | } | |||
| 41376 | /******************************* end of zsysvx *******************************/ | |||
| 41377 | ||||
| 41378 | /******************************** ssysvx_lwork ********************************/ | |||
| 41379 | static char doc_f2py_rout__flapack_ssysvx_lwork[] = "\ | |||
| 41380 | work,info = ssysvx_lwork(n,[lower])\n\nWrapper for ``ssysvx_lwork``.\ | |||
| 41381 | \n\nParameters\n----------\n" | |||
| 41382 | "n : input int\n" | |||
| 41383 | "\nOther Parameters\n----------------\n" | |||
| 41384 | "lower : input int, optional\n Default: 0\n" | |||
| 41385 | "\nReturns\n-------\n" | |||
| 41386 | "work : float\n" | |||
| 41387 | "info : int"; | |||
| 41388 | /* extern void F_FUNC(ssysvx ,SSYSVX )(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 41389 | static PyObject *f2py_rout__flapack_ssysvx_lwork(const PyObject *capi_self, | |||
| 41390 | PyObject *capi_args, | |||
| 41391 | PyObject *capi_keywds, | |||
| 41392 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 41393 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 41394 | volatile int f2py_success = 1; | |||
| 41395 | /*decl*/ | |||
| 41396 | ||||
| 41397 | int n = 0; | |||
| 41398 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 41399 | int nrhs = 0; | |||
| 41400 | float a = 0; | |||
| 41401 | int lda = 0; | |||
| 41402 | float af = 0; | |||
| 41403 | int ldaf = 0; | |||
| 41404 | int ipiv = 0; | |||
| 41405 | float b = 0; | |||
| 41406 | int ldb = 0; | |||
| 41407 | float x = 0; | |||
| 41408 | int ldx = 0; | |||
| 41409 | float rcond = 0; | |||
| 41410 | float ferr = 0; | |||
| 41411 | float berr = 0; | |||
| 41412 | float work = 0; | |||
| 41413 | int lwork = 0; | |||
| 41414 | int irwork = 0; | |||
| 41415 | int info = 0; | |||
| 41416 | int factored = 0; | |||
| 41417 | int lower = 0; | |||
| 41418 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 41419 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 41420 | ||||
| 41421 | /*routdebugenter*/ | |||
| 41422 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41423 | f2py_start_clock(); | |||
| 41424 | #endif | |||
| 41425 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 41426 | "O|O:_flapack.ssysvx_lwork",\ | |||
| 41427 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 41428 | return NULL((void*)0); | |||
| 41429 | /*frompyobj*/ | |||
| 41430 | /* Processing variable n */ | |||
| 41431 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssysvx_lwork() 1st argument (n) can't be converted to int"); | |||
| 41432 | if (f2py_success) { | |||
| 41433 | /* Processing variable lower */ | |||
| 41434 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 41435 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssysvx_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 41436 | if (f2py_success) { | |||
| 41437 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssysvx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssysvx_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 41438 | /* Processing variable factored */ | |||
| 41439 | factored = 0; | |||
| 41440 | /* Processing variable nrhs */ | |||
| 41441 | nrhs = 1; | |||
| 41442 | /* Processing variable a */ | |||
| 41443 | /* Processing variable af */ | |||
| 41444 | /* Processing variable ipiv */ | |||
| 41445 | /* Processing variable b */ | |||
| 41446 | /* Processing variable x */ | |||
| 41447 | /* Processing variable rcond */ | |||
| 41448 | /* Processing variable ferr */ | |||
| 41449 | /* Processing variable berr */ | |||
| 41450 | /* Processing variable lwork */ | |||
| 41451 | lwork = -1; | |||
| 41452 | /* Processing variable irwork */ | |||
| 41453 | /* Processing variable work */ | |||
| 41454 | /* Processing variable info */ | |||
| 41455 | /* Processing variable lda */ | |||
| 41456 | lda = n; | |||
| 41457 | /* Processing variable ldaf */ | |||
| 41458 | ldaf = n; | |||
| 41459 | /* Processing variable ldb */ | |||
| 41460 | ldb = n; | |||
| 41461 | /* Processing variable ldx */ | |||
| 41462 | ldx = n; | |||
| 41463 | /*end of frompyobj*/ | |||
| 41464 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41465 | f2py_start_call_clock(); | |||
| 41466 | #endif | |||
| 41467 | /*callfortranroutine*/ | |||
| 41468 | (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info) ; | |||
| 41469 | /*(*f2py_func)(&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info,&factored,&lower);*/ | |||
| 41470 | if (PyErr_Occurred()) | |||
| 41471 | f2py_success = 0; | |||
| 41472 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41473 | f2py_stop_call_clock(); | |||
| 41474 | #endif | |||
| 41475 | /*end of callfortranroutine*/ | |||
| 41476 | if (f2py_success) { | |||
| 41477 | /*pyobjfrom*/ | |||
| 41478 | /*end of pyobjfrom*/ | |||
| 41479 | CFUNCSMESS("Building return value.\n"); | |||
| 41480 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 41481 | /*closepyobjfrom*/ | |||
| 41482 | /*end of closepyobjfrom*/ | |||
| 41483 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 41484 | /*cleanupfrompyobj*/ | |||
| 41485 | /* End of cleaning variable ldx */ | |||
| 41486 | /* End of cleaning variable ldb */ | |||
| 41487 | /* End of cleaning variable ldaf */ | |||
| 41488 | /* End of cleaning variable lda */ | |||
| 41489 | /* End of cleaning variable info */ | |||
| 41490 | /* End of cleaning variable work */ | |||
| 41491 | /* End of cleaning variable irwork */ | |||
| 41492 | /* End of cleaning variable lwork */ | |||
| 41493 | /* End of cleaning variable berr */ | |||
| 41494 | /* End of cleaning variable ferr */ | |||
| 41495 | /* End of cleaning variable rcond */ | |||
| 41496 | /* End of cleaning variable x */ | |||
| 41497 | /* End of cleaning variable b */ | |||
| 41498 | /* End of cleaning variable ipiv */ | |||
| 41499 | /* End of cleaning variable af */ | |||
| 41500 | /* End of cleaning variable a */ | |||
| 41501 | /* End of cleaning variable nrhs */ | |||
| 41502 | /* End of cleaning variable factored */ | |||
| 41503 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 41504 | } /*if (f2py_success) of lower*/ | |||
| 41505 | /* End of cleaning variable lower */ | |||
| 41506 | } /*if (f2py_success) of n*/ | |||
| 41507 | /* End of cleaning variable n */ | |||
| 41508 | /*end of cleanupfrompyobj*/ | |||
| 41509 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 41510 | /*routdebugfailure*/ | |||
| 41511 | } else { | |||
| 41512 | /*routdebugleave*/ | |||
| 41513 | } | |||
| 41514 | CFUNCSMESS("Freeing memory.\n"); | |||
| 41515 | /*freemem*/ | |||
| 41516 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41517 | f2py_stop_clock(); | |||
| 41518 | #endif | |||
| 41519 | return capi_buildvalue; | |||
| 41520 | } | |||
| 41521 | /**************************** end of ssysvx_lwork ****************************/ | |||
| 41522 | ||||
| 41523 | /******************************** dsysvx_lwork ********************************/ | |||
| 41524 | static char doc_f2py_rout__flapack_dsysvx_lwork[] = "\ | |||
| 41525 | work,info = dsysvx_lwork(n,[lower])\n\nWrapper for ``dsysvx_lwork``.\ | |||
| 41526 | \n\nParameters\n----------\n" | |||
| 41527 | "n : input int\n" | |||
| 41528 | "\nOther Parameters\n----------------\n" | |||
| 41529 | "lower : input int, optional\n Default: 0\n" | |||
| 41530 | "\nReturns\n-------\n" | |||
| 41531 | "work : float\n" | |||
| 41532 | "info : int"; | |||
| 41533 | /* extern void F_FUNC(dsysvx ,DSYSVX )(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 41534 | static PyObject *f2py_rout__flapack_dsysvx_lwork(const PyObject *capi_self, | |||
| 41535 | PyObject *capi_args, | |||
| 41536 | PyObject *capi_keywds, | |||
| 41537 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 41538 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 41539 | volatile int f2py_success = 1; | |||
| 41540 | /*decl*/ | |||
| 41541 | ||||
| 41542 | int n = 0; | |||
| 41543 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 41544 | int nrhs = 0; | |||
| 41545 | double a = 0; | |||
| 41546 | int lda = 0; | |||
| 41547 | double af = 0; | |||
| 41548 | int ldaf = 0; | |||
| 41549 | int ipiv = 0; | |||
| 41550 | double b = 0; | |||
| 41551 | int ldb = 0; | |||
| 41552 | double x = 0; | |||
| 41553 | int ldx = 0; | |||
| 41554 | double rcond = 0; | |||
| 41555 | double ferr = 0; | |||
| 41556 | double berr = 0; | |||
| 41557 | double work = 0; | |||
| 41558 | int lwork = 0; | |||
| 41559 | int irwork = 0; | |||
| 41560 | int info = 0; | |||
| 41561 | int factored = 0; | |||
| 41562 | int lower = 0; | |||
| 41563 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 41564 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 41565 | ||||
| 41566 | /*routdebugenter*/ | |||
| 41567 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41568 | f2py_start_clock(); | |||
| 41569 | #endif | |||
| 41570 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 41571 | "O|O:_flapack.dsysvx_lwork",\ | |||
| 41572 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 41573 | return NULL((void*)0); | |||
| 41574 | /*frompyobj*/ | |||
| 41575 | /* Processing variable n */ | |||
| 41576 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsysvx_lwork() 1st argument (n) can't be converted to int"); | |||
| 41577 | if (f2py_success) { | |||
| 41578 | /* Processing variable lower */ | |||
| 41579 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 41580 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsysvx_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 41581 | if (f2py_success) { | |||
| 41582 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsysvx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsysvx_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 41583 | /* Processing variable factored */ | |||
| 41584 | factored = 0; | |||
| 41585 | /* Processing variable nrhs */ | |||
| 41586 | nrhs = 1; | |||
| 41587 | /* Processing variable a */ | |||
| 41588 | /* Processing variable af */ | |||
| 41589 | /* Processing variable ipiv */ | |||
| 41590 | /* Processing variable b */ | |||
| 41591 | /* Processing variable x */ | |||
| 41592 | /* Processing variable rcond */ | |||
| 41593 | /* Processing variable ferr */ | |||
| 41594 | /* Processing variable berr */ | |||
| 41595 | /* Processing variable lwork */ | |||
| 41596 | lwork = -1; | |||
| 41597 | /* Processing variable irwork */ | |||
| 41598 | /* Processing variable work */ | |||
| 41599 | /* Processing variable info */ | |||
| 41600 | /* Processing variable lda */ | |||
| 41601 | lda = n; | |||
| 41602 | /* Processing variable ldaf */ | |||
| 41603 | ldaf = n; | |||
| 41604 | /* Processing variable ldb */ | |||
| 41605 | ldb = n; | |||
| 41606 | /* Processing variable ldx */ | |||
| 41607 | ldx = n; | |||
| 41608 | /*end of frompyobj*/ | |||
| 41609 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41610 | f2py_start_call_clock(); | |||
| 41611 | #endif | |||
| 41612 | /*callfortranroutine*/ | |||
| 41613 | (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info) ; | |||
| 41614 | /*(*f2py_func)(&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info,&factored,&lower);*/ | |||
| 41615 | if (PyErr_Occurred()) | |||
| 41616 | f2py_success = 0; | |||
| 41617 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41618 | f2py_stop_call_clock(); | |||
| 41619 | #endif | |||
| 41620 | /*end of callfortranroutine*/ | |||
| 41621 | if (f2py_success) { | |||
| 41622 | /*pyobjfrom*/ | |||
| 41623 | /*end of pyobjfrom*/ | |||
| 41624 | CFUNCSMESS("Building return value.\n"); | |||
| 41625 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 41626 | /*closepyobjfrom*/ | |||
| 41627 | /*end of closepyobjfrom*/ | |||
| 41628 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 41629 | /*cleanupfrompyobj*/ | |||
| 41630 | /* End of cleaning variable ldx */ | |||
| 41631 | /* End of cleaning variable ldb */ | |||
| 41632 | /* End of cleaning variable ldaf */ | |||
| 41633 | /* End of cleaning variable lda */ | |||
| 41634 | /* End of cleaning variable info */ | |||
| 41635 | /* End of cleaning variable work */ | |||
| 41636 | /* End of cleaning variable irwork */ | |||
| 41637 | /* End of cleaning variable lwork */ | |||
| 41638 | /* End of cleaning variable berr */ | |||
| 41639 | /* End of cleaning variable ferr */ | |||
| 41640 | /* End of cleaning variable rcond */ | |||
| 41641 | /* End of cleaning variable x */ | |||
| 41642 | /* End of cleaning variable b */ | |||
| 41643 | /* End of cleaning variable ipiv */ | |||
| 41644 | /* End of cleaning variable af */ | |||
| 41645 | /* End of cleaning variable a */ | |||
| 41646 | /* End of cleaning variable nrhs */ | |||
| 41647 | /* End of cleaning variable factored */ | |||
| 41648 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 41649 | } /*if (f2py_success) of lower*/ | |||
| 41650 | /* End of cleaning variable lower */ | |||
| 41651 | } /*if (f2py_success) of n*/ | |||
| 41652 | /* End of cleaning variable n */ | |||
| 41653 | /*end of cleanupfrompyobj*/ | |||
| 41654 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 41655 | /*routdebugfailure*/ | |||
| 41656 | } else { | |||
| 41657 | /*routdebugleave*/ | |||
| 41658 | } | |||
| 41659 | CFUNCSMESS("Freeing memory.\n"); | |||
| 41660 | /*freemem*/ | |||
| 41661 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41662 | f2py_stop_clock(); | |||
| 41663 | #endif | |||
| 41664 | return capi_buildvalue; | |||
| 41665 | } | |||
| 41666 | /**************************** end of dsysvx_lwork ****************************/ | |||
| 41667 | ||||
| 41668 | /******************************** csysvx_lwork ********************************/ | |||
| 41669 | static char doc_f2py_rout__flapack_csysvx_lwork[] = "\ | |||
| 41670 | work,info = csysvx_lwork(n,[lower])\n\nWrapper for ``csysvx_lwork``.\ | |||
| 41671 | \n\nParameters\n----------\n" | |||
| 41672 | "n : input int\n" | |||
| 41673 | "\nOther Parameters\n----------------\n" | |||
| 41674 | "lower : input int, optional\n Default: 0\n" | |||
| 41675 | "\nReturns\n-------\n" | |||
| 41676 | "work : complex\n" | |||
| 41677 | "info : int"; | |||
| 41678 | /* extern void F_FUNC(csysvx ,CSYSVX )(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 41679 | static PyObject *f2py_rout__flapack_csysvx_lwork(const PyObject *capi_self, | |||
| 41680 | PyObject *capi_args, | |||
| 41681 | PyObject *capi_keywds, | |||
| 41682 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 41683 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 41684 | volatile int f2py_success = 1; | |||
| 41685 | /*decl*/ | |||
| 41686 | ||||
| 41687 | int n = 0; | |||
| 41688 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 41689 | int nrhs = 0; | |||
| 41690 | complex_float a; | |||
| 41691 | int lda = 0; | |||
| 41692 | complex_float af; | |||
| 41693 | int ldaf = 0; | |||
| 41694 | int ipiv = 0; | |||
| 41695 | complex_float b; | |||
| 41696 | int ldb = 0; | |||
| 41697 | complex_float x; | |||
| 41698 | int ldx = 0; | |||
| 41699 | float rcond = 0; | |||
| 41700 | float ferr = 0; | |||
| 41701 | float berr = 0; | |||
| 41702 | complex_float work; | |||
| 41703 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 41704 | int lwork = 0; | |||
| 41705 | float irwork = 0; | |||
| 41706 | int info = 0; | |||
| 41707 | int factored = 0; | |||
| 41708 | int lower = 0; | |||
| 41709 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 41710 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 41711 | ||||
| 41712 | /*routdebugenter*/ | |||
| 41713 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41714 | f2py_start_clock(); | |||
| 41715 | #endif | |||
| 41716 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 41717 | "O|O:_flapack.csysvx_lwork",\ | |||
| 41718 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 41719 | return NULL((void*)0); | |||
| 41720 | /*frompyobj*/ | |||
| 41721 | /* Processing variable n */ | |||
| 41722 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.csysvx_lwork() 1st argument (n) can't be converted to int"); | |||
| 41723 | if (f2py_success) { | |||
| 41724 | /* Processing variable lower */ | |||
| 41725 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 41726 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csysvx_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 41727 | if (f2py_success) { | |||
| 41728 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csysvx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csysvx_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 41729 | /* Processing variable factored */ | |||
| 41730 | factored = 0; | |||
| 41731 | /* Processing variable nrhs */ | |||
| 41732 | nrhs = 1; | |||
| 41733 | /* Processing variable a */ | |||
| 41734 | /* Processing variable af */ | |||
| 41735 | /* Processing variable ipiv */ | |||
| 41736 | /* Processing variable b */ | |||
| 41737 | /* Processing variable x */ | |||
| 41738 | /* Processing variable rcond */ | |||
| 41739 | /* Processing variable ferr */ | |||
| 41740 | /* Processing variable berr */ | |||
| 41741 | /* Processing variable lwork */ | |||
| 41742 | lwork = -1; | |||
| 41743 | /* Processing variable irwork */ | |||
| 41744 | /* Processing variable work */ | |||
| 41745 | /* Processing variable info */ | |||
| 41746 | /* Processing variable lda */ | |||
| 41747 | lda = n; | |||
| 41748 | /* Processing variable ldaf */ | |||
| 41749 | ldaf = n; | |||
| 41750 | /* Processing variable ldb */ | |||
| 41751 | ldb = n; | |||
| 41752 | /* Processing variable ldx */ | |||
| 41753 | ldx = n; | |||
| 41754 | /*end of frompyobj*/ | |||
| 41755 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41756 | f2py_start_call_clock(); | |||
| 41757 | #endif | |||
| 41758 | /*callfortranroutine*/ | |||
| 41759 | (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info) ; | |||
| 41760 | /*(*f2py_func)(&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info,&factored,&lower);*/ | |||
| 41761 | if (PyErr_Occurred()) | |||
| 41762 | f2py_success = 0; | |||
| 41763 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41764 | f2py_stop_call_clock(); | |||
| 41765 | #endif | |||
| 41766 | /*end of callfortranroutine*/ | |||
| 41767 | if (f2py_success) { | |||
| 41768 | /*pyobjfrom*/ | |||
| 41769 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 41770 | /*end of pyobjfrom*/ | |||
| 41771 | CFUNCSMESS("Building return value.\n"); | |||
| 41772 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 41773 | /*closepyobjfrom*/ | |||
| 41774 | /*end of closepyobjfrom*/ | |||
| 41775 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 41776 | /*cleanupfrompyobj*/ | |||
| 41777 | /* End of cleaning variable ldx */ | |||
| 41778 | /* End of cleaning variable ldb */ | |||
| 41779 | /* End of cleaning variable ldaf */ | |||
| 41780 | /* End of cleaning variable lda */ | |||
| 41781 | /* End of cleaning variable info */ | |||
| 41782 | /* End of cleaning variable work */ | |||
| 41783 | /* End of cleaning variable irwork */ | |||
| 41784 | /* End of cleaning variable lwork */ | |||
| 41785 | /* End of cleaning variable berr */ | |||
| 41786 | /* End of cleaning variable ferr */ | |||
| 41787 | /* End of cleaning variable rcond */ | |||
| 41788 | /* End of cleaning variable x */ | |||
| 41789 | /* End of cleaning variable b */ | |||
| 41790 | /* End of cleaning variable ipiv */ | |||
| 41791 | /* End of cleaning variable af */ | |||
| 41792 | /* End of cleaning variable a */ | |||
| 41793 | /* End of cleaning variable nrhs */ | |||
| 41794 | /* End of cleaning variable factored */ | |||
| 41795 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 41796 | } /*if (f2py_success) of lower*/ | |||
| 41797 | /* End of cleaning variable lower */ | |||
| 41798 | } /*if (f2py_success) of n*/ | |||
| 41799 | /* End of cleaning variable n */ | |||
| 41800 | /*end of cleanupfrompyobj*/ | |||
| 41801 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 41802 | /*routdebugfailure*/ | |||
| 41803 | } else { | |||
| 41804 | /*routdebugleave*/ | |||
| 41805 | } | |||
| 41806 | CFUNCSMESS("Freeing memory.\n"); | |||
| 41807 | /*freemem*/ | |||
| 41808 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41809 | f2py_stop_clock(); | |||
| 41810 | #endif | |||
| 41811 | return capi_buildvalue; | |||
| 41812 | } | |||
| 41813 | /**************************** end of csysvx_lwork ****************************/ | |||
| 41814 | ||||
| 41815 | /******************************** zsysvx_lwork ********************************/ | |||
| 41816 | static char doc_f2py_rout__flapack_zsysvx_lwork[] = "\ | |||
| 41817 | work,info = zsysvx_lwork(n,[lower])\n\nWrapper for ``zsysvx_lwork``.\ | |||
| 41818 | \n\nParameters\n----------\n" | |||
| 41819 | "n : input int\n" | |||
| 41820 | "\nOther Parameters\n----------------\n" | |||
| 41821 | "lower : input int, optional\n Default: 0\n" | |||
| 41822 | "\nReturns\n-------\n" | |||
| 41823 | "work : complex\n" | |||
| 41824 | "info : int"; | |||
| 41825 | /* extern void F_FUNC(zsysvx ,ZSYSVX )(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 41826 | static PyObject *f2py_rout__flapack_zsysvx_lwork(const PyObject *capi_self, | |||
| 41827 | PyObject *capi_args, | |||
| 41828 | PyObject *capi_keywds, | |||
| 41829 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 41830 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 41831 | volatile int f2py_success = 1; | |||
| 41832 | /*decl*/ | |||
| 41833 | ||||
| 41834 | int n = 0; | |||
| 41835 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 41836 | int nrhs = 0; | |||
| 41837 | complex_double a; | |||
| 41838 | int lda = 0; | |||
| 41839 | complex_double af; | |||
| 41840 | int ldaf = 0; | |||
| 41841 | int ipiv = 0; | |||
| 41842 | complex_double b; | |||
| 41843 | int ldb = 0; | |||
| 41844 | complex_double x; | |||
| 41845 | int ldx = 0; | |||
| 41846 | double rcond = 0; | |||
| 41847 | double ferr = 0; | |||
| 41848 | double berr = 0; | |||
| 41849 | complex_double work; | |||
| 41850 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 41851 | int lwork = 0; | |||
| 41852 | double irwork = 0; | |||
| 41853 | int info = 0; | |||
| 41854 | int factored = 0; | |||
| 41855 | int lower = 0; | |||
| 41856 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 41857 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 41858 | ||||
| 41859 | /*routdebugenter*/ | |||
| 41860 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41861 | f2py_start_clock(); | |||
| 41862 | #endif | |||
| 41863 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 41864 | "O|O:_flapack.zsysvx_lwork",\ | |||
| 41865 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 41866 | return NULL((void*)0); | |||
| 41867 | /*frompyobj*/ | |||
| 41868 | /* Processing variable n */ | |||
| 41869 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zsysvx_lwork() 1st argument (n) can't be converted to int"); | |||
| 41870 | if (f2py_success) { | |||
| 41871 | /* Processing variable lower */ | |||
| 41872 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 41873 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsysvx_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 41874 | if (f2py_success) { | |||
| 41875 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsysvx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsysvx_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 41876 | /* Processing variable factored */ | |||
| 41877 | factored = 0; | |||
| 41878 | /* Processing variable nrhs */ | |||
| 41879 | nrhs = 1; | |||
| 41880 | /* Processing variable a */ | |||
| 41881 | /* Processing variable af */ | |||
| 41882 | /* Processing variable ipiv */ | |||
| 41883 | /* Processing variable b */ | |||
| 41884 | /* Processing variable x */ | |||
| 41885 | /* Processing variable rcond */ | |||
| 41886 | /* Processing variable ferr */ | |||
| 41887 | /* Processing variable berr */ | |||
| 41888 | /* Processing variable lwork */ | |||
| 41889 | lwork = -1; | |||
| 41890 | /* Processing variable irwork */ | |||
| 41891 | /* Processing variable work */ | |||
| 41892 | /* Processing variable info */ | |||
| 41893 | /* Processing variable lda */ | |||
| 41894 | lda = n; | |||
| 41895 | /* Processing variable ldaf */ | |||
| 41896 | ldaf = n; | |||
| 41897 | /* Processing variable ldb */ | |||
| 41898 | ldb = n; | |||
| 41899 | /* Processing variable ldx */ | |||
| 41900 | ldx = n; | |||
| 41901 | /*end of frompyobj*/ | |||
| 41902 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41903 | f2py_start_call_clock(); | |||
| 41904 | #endif | |||
| 41905 | /*callfortranroutine*/ | |||
| 41906 | (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info) ; | |||
| 41907 | /*(*f2py_func)(&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info,&factored,&lower);*/ | |||
| 41908 | if (PyErr_Occurred()) | |||
| 41909 | f2py_success = 0; | |||
| 41910 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41911 | f2py_stop_call_clock(); | |||
| 41912 | #endif | |||
| 41913 | /*end of callfortranroutine*/ | |||
| 41914 | if (f2py_success) { | |||
| 41915 | /*pyobjfrom*/ | |||
| 41916 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 41917 | /*end of pyobjfrom*/ | |||
| 41918 | CFUNCSMESS("Building return value.\n"); | |||
| 41919 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 41920 | /*closepyobjfrom*/ | |||
| 41921 | /*end of closepyobjfrom*/ | |||
| 41922 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 41923 | /*cleanupfrompyobj*/ | |||
| 41924 | /* End of cleaning variable ldx */ | |||
| 41925 | /* End of cleaning variable ldb */ | |||
| 41926 | /* End of cleaning variable ldaf */ | |||
| 41927 | /* End of cleaning variable lda */ | |||
| 41928 | /* End of cleaning variable info */ | |||
| 41929 | /* End of cleaning variable work */ | |||
| 41930 | /* End of cleaning variable irwork */ | |||
| 41931 | /* End of cleaning variable lwork */ | |||
| 41932 | /* End of cleaning variable berr */ | |||
| 41933 | /* End of cleaning variable ferr */ | |||
| 41934 | /* End of cleaning variable rcond */ | |||
| 41935 | /* End of cleaning variable x */ | |||
| 41936 | /* End of cleaning variable b */ | |||
| 41937 | /* End of cleaning variable ipiv */ | |||
| 41938 | /* End of cleaning variable af */ | |||
| 41939 | /* End of cleaning variable a */ | |||
| 41940 | /* End of cleaning variable nrhs */ | |||
| 41941 | /* End of cleaning variable factored */ | |||
| 41942 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 41943 | } /*if (f2py_success) of lower*/ | |||
| 41944 | /* End of cleaning variable lower */ | |||
| 41945 | } /*if (f2py_success) of n*/ | |||
| 41946 | /* End of cleaning variable n */ | |||
| 41947 | /*end of cleanupfrompyobj*/ | |||
| 41948 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 41949 | /*routdebugfailure*/ | |||
| 41950 | } else { | |||
| 41951 | /*routdebugleave*/ | |||
| 41952 | } | |||
| 41953 | CFUNCSMESS("Freeing memory.\n"); | |||
| 41954 | /*freemem*/ | |||
| 41955 | #ifdef F2PY_REPORT_ATEXIT | |||
| 41956 | f2py_stop_clock(); | |||
| 41957 | #endif | |||
| 41958 | return capi_buildvalue; | |||
| 41959 | } | |||
| 41960 | /**************************** end of zsysvx_lwork ****************************/ | |||
| 41961 | ||||
| 41962 | /*********************************** ssycon ***********************************/ | |||
| 41963 | static char doc_f2py_rout__flapack_ssycon[] = "\ | |||
| 41964 | rcond,info = ssycon(a,ipiv,anorm,[lower])\n\nWrapper for ``ssycon``.\ | |||
| 41965 | \n\nParameters\n----------\n" | |||
| 41966 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 41967 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 41968 | "anorm : input float\n" | |||
| 41969 | "\nOther Parameters\n----------------\n" | |||
| 41970 | "lower : input int, optional\n Default: 0\n" | |||
| 41971 | "\nReturns\n-------\n" | |||
| 41972 | "rcond : float\n" | |||
| 41973 | "info : int"; | |||
| 41974 | /* extern void F_FUNC(ssycon,SSYCON)(char*,F_INT*,float*,F_INT*,F_INT*,float*,float*,float*,F_INT*,F_INT* ); */ | |||
| 41975 | static PyObject *f2py_rout__flapack_ssycon(const PyObject *capi_self, | |||
| 41976 | PyObject *capi_args, | |||
| 41977 | PyObject *capi_keywds, | |||
| 41978 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 41979 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 41980 | volatile int f2py_success = 1; | |||
| 41981 | /*decl*/ | |||
| 41982 | ||||
| 41983 | int n = 0; | |||
| 41984 | float *a = NULL((void*)0); | |||
| 41985 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 41986 | const int a_Rank = 2; | |||
| 41987 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 41988 | int capi_a_intent = 0; | |||
| 41989 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 41990 | int lda = 0; | |||
| 41991 | int *ipiv = NULL((void*)0); | |||
| 41992 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 41993 | const int ipiv_Rank = 1; | |||
| 41994 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 41995 | int capi_ipiv_intent = 0; | |||
| 41996 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 41997 | float anorm = 0; | |||
| 41998 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 41999 | float rcond = 0; | |||
| 42000 | float *work = NULL((void*)0); | |||
| 42001 | npy_intp work_Dims[1] = {-1}; | |||
| 42002 | const int work_Rank = 1; | |||
| 42003 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 42004 | int capi_work_intent = 0; | |||
| 42005 | int *iwork = NULL((void*)0); | |||
| 42006 | npy_intp iwork_Dims[1] = {-1}; | |||
| 42007 | const int iwork_Rank = 1; | |||
| 42008 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 42009 | int capi_iwork_intent = 0; | |||
| 42010 | int info = 0; | |||
| 42011 | int lower = 0; | |||
| 42012 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 42013 | static char *capi_kwlist[] = {"a","ipiv","anorm","lower",NULL((void*)0)}; | |||
| 42014 | ||||
| 42015 | /*routdebugenter*/ | |||
| 42016 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42017 | f2py_start_clock(); | |||
| 42018 | #endif | |||
| 42019 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 42020 | "OOO|O:_flapack.ssycon",\ | |||
| 42021 | capi_kwlist,&a_capi,&ipiv_capi,&anorm_capi,&lower_capi)) | |||
| 42022 | return NULL((void*)0); | |||
| 42023 | /*frompyobj*/ | |||
| 42024 | /* Processing variable lower */ | |||
| 42025 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 42026 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssycon() 1st keyword (lower) can't be converted to int"); | |||
| 42027 | if (f2py_success) { | |||
| 42028 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssycon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssycon:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 42029 | /* Processing variable a */ | |||
| 42030 | ; | |||
| 42031 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 42032 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 42033 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 42034 | if (!PyErr_Occurred()) | |||
| 42035 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssycon to C/Fortran array" ); | |||
| 42036 | } else { | |||
| 42037 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 42038 | ||||
| 42039 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 42040 | /* Processing variable anorm */ | |||
| 42041 | f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.ssycon() 3rd argument (anorm) can't be converted to float"); | |||
| 42042 | if (f2py_success) { | |||
| 42043 | /* Processing variable rcond */ | |||
| 42044 | /* Processing variable info */ | |||
| 42045 | /* Processing variable n */ | |||
| 42046 | n = shape(a,0)a_Dims[0]; | |||
| 42047 | /* Processing variable lda */ | |||
| 42048 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 42049 | /* Processing variable ipiv */ | |||
| 42050 | ipiv_Dims[0]=n; | |||
| 42051 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 42052 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 42053 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 42054 | if (!PyErr_Occurred()) | |||
| 42055 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.ssycon to C/Fortran array" ); | |||
| 42056 | } else { | |||
| 42057 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 42058 | ||||
| 42059 | /* Processing variable work */ | |||
| 42060 | work_Dims[0]=2 * n; | |||
| 42061 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 42062 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 42063 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 42064 | if (!PyErr_Occurred()) | |||
| 42065 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssycon to C/Fortran array" ); | |||
| 42066 | } else { | |||
| 42067 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 42068 | ||||
| 42069 | /* Processing variable iwork */ | |||
| 42070 | iwork_Dims[0]=n; | |||
| 42071 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 42072 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 42073 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 42074 | if (!PyErr_Occurred()) | |||
| 42075 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssycon to C/Fortran array" ); | |||
| 42076 | } else { | |||
| 42077 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 42078 | ||||
| 42079 | /*end of frompyobj*/ | |||
| 42080 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42081 | f2py_start_call_clock(); | |||
| 42082 | #endif | |||
| 42083 | /*callfortranroutine*/ | |||
| 42084 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&anorm,&rcond,work,iwork,&info) ; | |||
| 42085 | /*(*f2py_func)(&n,a,&lda,ipiv,&anorm,&rcond,work,iwork,&info,&lower);*/ | |||
| 42086 | if (PyErr_Occurred()) | |||
| 42087 | f2py_success = 0; | |||
| 42088 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42089 | f2py_stop_call_clock(); | |||
| 42090 | #endif | |||
| 42091 | /*end of callfortranroutine*/ | |||
| 42092 | if (f2py_success) { | |||
| 42093 | /*pyobjfrom*/ | |||
| 42094 | /*end of pyobjfrom*/ | |||
| 42095 | CFUNCSMESS("Building return value.\n"); | |||
| 42096 | capi_buildvalue = Py_BuildValue("fi",rcond,info); | |||
| 42097 | /*closepyobjfrom*/ | |||
| 42098 | /*end of closepyobjfrom*/ | |||
| 42099 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 42100 | /*cleanupfrompyobj*/ | |||
| 42101 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 42102 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 42103 | /* End of cleaning variable iwork */ | |||
| 42104 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 42105 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 42106 | /* End of cleaning variable work */ | |||
| 42107 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 42108 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 42109 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 42110 | /* End of cleaning variable ipiv */ | |||
| 42111 | /* End of cleaning variable lda */ | |||
| 42112 | /* End of cleaning variable n */ | |||
| 42113 | /* End of cleaning variable info */ | |||
| 42114 | /* End of cleaning variable rcond */ | |||
| 42115 | } /*if (f2py_success) of anorm*/ | |||
| 42116 | /* End of cleaning variable anorm */ | |||
| 42117 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 42118 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 42119 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 42120 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 42121 | /* End of cleaning variable a */ | |||
| 42122 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 42123 | } /*if (f2py_success) of lower*/ | |||
| 42124 | /* End of cleaning variable lower */ | |||
| 42125 | /*end of cleanupfrompyobj*/ | |||
| 42126 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 42127 | /*routdebugfailure*/ | |||
| 42128 | } else { | |||
| 42129 | /*routdebugleave*/ | |||
| 42130 | } | |||
| 42131 | CFUNCSMESS("Freeing memory.\n"); | |||
| 42132 | /*freemem*/ | |||
| 42133 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42134 | f2py_stop_clock(); | |||
| 42135 | #endif | |||
| 42136 | return capi_buildvalue; | |||
| 42137 | } | |||
| 42138 | /******************************* end of ssycon *******************************/ | |||
| 42139 | ||||
| 42140 | /*********************************** dsycon ***********************************/ | |||
| 42141 | static char doc_f2py_rout__flapack_dsycon[] = "\ | |||
| 42142 | rcond,info = dsycon(a,ipiv,anorm,[lower])\n\nWrapper for ``dsycon``.\ | |||
| 42143 | \n\nParameters\n----------\n" | |||
| 42144 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 42145 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 42146 | "anorm : input float\n" | |||
| 42147 | "\nOther Parameters\n----------------\n" | |||
| 42148 | "lower : input int, optional\n Default: 0\n" | |||
| 42149 | "\nReturns\n-------\n" | |||
| 42150 | "rcond : float\n" | |||
| 42151 | "info : int"; | |||
| 42152 | /* extern void F_FUNC(dsycon,DSYCON)(char*,F_INT*,double*,F_INT*,F_INT*,double*,double*,double*,F_INT*,F_INT* ); */ | |||
| 42153 | static PyObject *f2py_rout__flapack_dsycon(const PyObject *capi_self, | |||
| 42154 | PyObject *capi_args, | |||
| 42155 | PyObject *capi_keywds, | |||
| 42156 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 42157 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 42158 | volatile int f2py_success = 1; | |||
| 42159 | /*decl*/ | |||
| 42160 | ||||
| 42161 | int n = 0; | |||
| 42162 | double *a = NULL((void*)0); | |||
| 42163 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 42164 | const int a_Rank = 2; | |||
| 42165 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 42166 | int capi_a_intent = 0; | |||
| 42167 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 42168 | int lda = 0; | |||
| 42169 | int *ipiv = NULL((void*)0); | |||
| 42170 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 42171 | const int ipiv_Rank = 1; | |||
| 42172 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 42173 | int capi_ipiv_intent = 0; | |||
| 42174 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 42175 | double anorm = 0; | |||
| 42176 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 42177 | double rcond = 0; | |||
| 42178 | double *work = NULL((void*)0); | |||
| 42179 | npy_intp work_Dims[1] = {-1}; | |||
| 42180 | const int work_Rank = 1; | |||
| 42181 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 42182 | int capi_work_intent = 0; | |||
| 42183 | int *iwork = NULL((void*)0); | |||
| 42184 | npy_intp iwork_Dims[1] = {-1}; | |||
| 42185 | const int iwork_Rank = 1; | |||
| 42186 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 42187 | int capi_iwork_intent = 0; | |||
| 42188 | int info = 0; | |||
| 42189 | int lower = 0; | |||
| 42190 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 42191 | static char *capi_kwlist[] = {"a","ipiv","anorm","lower",NULL((void*)0)}; | |||
| 42192 | ||||
| 42193 | /*routdebugenter*/ | |||
| 42194 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42195 | f2py_start_clock(); | |||
| 42196 | #endif | |||
| 42197 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 42198 | "OOO|O:_flapack.dsycon",\ | |||
| 42199 | capi_kwlist,&a_capi,&ipiv_capi,&anorm_capi,&lower_capi)) | |||
| 42200 | return NULL((void*)0); | |||
| 42201 | /*frompyobj*/ | |||
| 42202 | /* Processing variable lower */ | |||
| 42203 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 42204 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsycon() 1st keyword (lower) can't be converted to int"); | |||
| 42205 | if (f2py_success) { | |||
| 42206 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsycon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsycon:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 42207 | /* Processing variable a */ | |||
| 42208 | ; | |||
| 42209 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 42210 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 42211 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 42212 | if (!PyErr_Occurred()) | |||
| 42213 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsycon to C/Fortran array" ); | |||
| 42214 | } else { | |||
| 42215 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 42216 | ||||
| 42217 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 42218 | /* Processing variable anorm */ | |||
| 42219 | f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.dsycon() 3rd argument (anorm) can't be converted to double"); | |||
| 42220 | if (f2py_success) { | |||
| 42221 | /* Processing variable rcond */ | |||
| 42222 | /* Processing variable info */ | |||
| 42223 | /* Processing variable n */ | |||
| 42224 | n = shape(a,0)a_Dims[0]; | |||
| 42225 | /* Processing variable lda */ | |||
| 42226 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 42227 | /* Processing variable ipiv */ | |||
| 42228 | ipiv_Dims[0]=n; | |||
| 42229 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 42230 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 42231 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 42232 | if (!PyErr_Occurred()) | |||
| 42233 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.dsycon to C/Fortran array" ); | |||
| 42234 | } else { | |||
| 42235 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 42236 | ||||
| 42237 | /* Processing variable work */ | |||
| 42238 | work_Dims[0]=2 * n; | |||
| 42239 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 42240 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 42241 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 42242 | if (!PyErr_Occurred()) | |||
| 42243 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsycon to C/Fortran array" ); | |||
| 42244 | } else { | |||
| 42245 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 42246 | ||||
| 42247 | /* Processing variable iwork */ | |||
| 42248 | iwork_Dims[0]=n; | |||
| 42249 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 42250 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 42251 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 42252 | if (!PyErr_Occurred()) | |||
| 42253 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsycon to C/Fortran array" ); | |||
| 42254 | } else { | |||
| 42255 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 42256 | ||||
| 42257 | /*end of frompyobj*/ | |||
| 42258 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42259 | f2py_start_call_clock(); | |||
| 42260 | #endif | |||
| 42261 | /*callfortranroutine*/ | |||
| 42262 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&anorm,&rcond,work,iwork,&info) ; | |||
| 42263 | /*(*f2py_func)(&n,a,&lda,ipiv,&anorm,&rcond,work,iwork,&info,&lower);*/ | |||
| 42264 | if (PyErr_Occurred()) | |||
| 42265 | f2py_success = 0; | |||
| 42266 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42267 | f2py_stop_call_clock(); | |||
| 42268 | #endif | |||
| 42269 | /*end of callfortranroutine*/ | |||
| 42270 | if (f2py_success) { | |||
| 42271 | /*pyobjfrom*/ | |||
| 42272 | /*end of pyobjfrom*/ | |||
| 42273 | CFUNCSMESS("Building return value.\n"); | |||
| 42274 | capi_buildvalue = Py_BuildValue("di",rcond,info); | |||
| 42275 | /*closepyobjfrom*/ | |||
| 42276 | /*end of closepyobjfrom*/ | |||
| 42277 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 42278 | /*cleanupfrompyobj*/ | |||
| 42279 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 42280 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 42281 | /* End of cleaning variable iwork */ | |||
| 42282 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 42283 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 42284 | /* End of cleaning variable work */ | |||
| 42285 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 42286 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 42287 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 42288 | /* End of cleaning variable ipiv */ | |||
| 42289 | /* End of cleaning variable lda */ | |||
| 42290 | /* End of cleaning variable n */ | |||
| 42291 | /* End of cleaning variable info */ | |||
| 42292 | /* End of cleaning variable rcond */ | |||
| 42293 | } /*if (f2py_success) of anorm*/ | |||
| 42294 | /* End of cleaning variable anorm */ | |||
| 42295 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 42296 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 42297 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 42298 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 42299 | /* End of cleaning variable a */ | |||
| 42300 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 42301 | } /*if (f2py_success) of lower*/ | |||
| 42302 | /* End of cleaning variable lower */ | |||
| 42303 | /*end of cleanupfrompyobj*/ | |||
| 42304 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 42305 | /*routdebugfailure*/ | |||
| 42306 | } else { | |||
| 42307 | /*routdebugleave*/ | |||
| 42308 | } | |||
| 42309 | CFUNCSMESS("Freeing memory.\n"); | |||
| 42310 | /*freemem*/ | |||
| 42311 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42312 | f2py_stop_clock(); | |||
| 42313 | #endif | |||
| 42314 | return capi_buildvalue; | |||
| 42315 | } | |||
| 42316 | /******************************* end of dsycon *******************************/ | |||
| 42317 | ||||
| 42318 | /*********************************** csycon ***********************************/ | |||
| 42319 | static char doc_f2py_rout__flapack_csycon[] = "\ | |||
| 42320 | rcond,info = csycon(a,ipiv,anorm,[lower])\n\nWrapper for ``csycon``.\ | |||
| 42321 | \n\nParameters\n----------\n" | |||
| 42322 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 42323 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 42324 | "anorm : input float\n" | |||
| 42325 | "\nOther Parameters\n----------------\n" | |||
| 42326 | "lower : input int, optional\n Default: 0\n" | |||
| 42327 | "\nReturns\n-------\n" | |||
| 42328 | "rcond : float\n" | |||
| 42329 | "info : int"; | |||
| 42330 | /* extern void F_FUNC(csycon,CSYCON)(char*,F_INT*,complex_float*,F_INT*,F_INT*,float*,float*,complex_float*,F_INT* ); */ | |||
| 42331 | static PyObject *f2py_rout__flapack_csycon(const PyObject *capi_self, | |||
| 42332 | PyObject *capi_args, | |||
| 42333 | PyObject *capi_keywds, | |||
| 42334 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,complex_float*,F_INTint* )) { | |||
| 42335 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 42336 | volatile int f2py_success = 1; | |||
| 42337 | /*decl*/ | |||
| 42338 | ||||
| 42339 | int n = 0; | |||
| 42340 | complex_float *a = NULL((void*)0); | |||
| 42341 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 42342 | const int a_Rank = 2; | |||
| 42343 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 42344 | int capi_a_intent = 0; | |||
| 42345 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 42346 | int lda = 0; | |||
| 42347 | int *ipiv = NULL((void*)0); | |||
| 42348 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 42349 | const int ipiv_Rank = 1; | |||
| 42350 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 42351 | int capi_ipiv_intent = 0; | |||
| 42352 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 42353 | float anorm = 0; | |||
| 42354 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 42355 | float rcond = 0; | |||
| 42356 | complex_float *work = NULL((void*)0); | |||
| 42357 | npy_intp work_Dims[1] = {-1}; | |||
| 42358 | const int work_Rank = 1; | |||
| 42359 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 42360 | int capi_work_intent = 0; | |||
| 42361 | int info = 0; | |||
| 42362 | int lower = 0; | |||
| 42363 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 42364 | static char *capi_kwlist[] = {"a","ipiv","anorm","lower",NULL((void*)0)}; | |||
| 42365 | ||||
| 42366 | /*routdebugenter*/ | |||
| 42367 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42368 | f2py_start_clock(); | |||
| 42369 | #endif | |||
| 42370 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 42371 | "OOO|O:_flapack.csycon",\ | |||
| 42372 | capi_kwlist,&a_capi,&ipiv_capi,&anorm_capi,&lower_capi)) | |||
| 42373 | return NULL((void*)0); | |||
| 42374 | /*frompyobj*/ | |||
| 42375 | /* Processing variable lower */ | |||
| 42376 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 42377 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csycon() 1st keyword (lower) can't be converted to int"); | |||
| 42378 | if (f2py_success) { | |||
| 42379 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csycon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csycon:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 42380 | /* Processing variable a */ | |||
| 42381 | ; | |||
| 42382 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 42383 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 42384 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 42385 | if (!PyErr_Occurred()) | |||
| 42386 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csycon to C/Fortran array" ); | |||
| 42387 | } else { | |||
| 42388 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 42389 | ||||
| 42390 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 42391 | /* Processing variable anorm */ | |||
| 42392 | f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.csycon() 3rd argument (anorm) can't be converted to float"); | |||
| 42393 | if (f2py_success) { | |||
| 42394 | /* Processing variable rcond */ | |||
| 42395 | /* Processing variable info */ | |||
| 42396 | /* Processing variable n */ | |||
| 42397 | n = shape(a,0)a_Dims[0]; | |||
| 42398 | /* Processing variable lda */ | |||
| 42399 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 42400 | /* Processing variable ipiv */ | |||
| 42401 | ipiv_Dims[0]=n; | |||
| 42402 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 42403 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 42404 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 42405 | if (!PyErr_Occurred()) | |||
| 42406 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.csycon to C/Fortran array" ); | |||
| 42407 | } else { | |||
| 42408 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 42409 | ||||
| 42410 | /* Processing variable work */ | |||
| 42411 | work_Dims[0]=2 * n; | |||
| 42412 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 42413 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 42414 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 42415 | if (!PyErr_Occurred()) | |||
| 42416 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.csycon to C/Fortran array" ); | |||
| 42417 | } else { | |||
| 42418 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 42419 | ||||
| 42420 | /*end of frompyobj*/ | |||
| 42421 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42422 | f2py_start_call_clock(); | |||
| 42423 | #endif | |||
| 42424 | /*callfortranroutine*/ | |||
| 42425 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&anorm,&rcond,work,&info) ; | |||
| 42426 | /*(*f2py_func)(&n,a,&lda,ipiv,&anorm,&rcond,work,&info,&lower);*/ | |||
| 42427 | if (PyErr_Occurred()) | |||
| 42428 | f2py_success = 0; | |||
| 42429 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42430 | f2py_stop_call_clock(); | |||
| 42431 | #endif | |||
| 42432 | /*end of callfortranroutine*/ | |||
| 42433 | if (f2py_success) { | |||
| 42434 | /*pyobjfrom*/ | |||
| 42435 | /*end of pyobjfrom*/ | |||
| 42436 | CFUNCSMESS("Building return value.\n"); | |||
| 42437 | capi_buildvalue = Py_BuildValue("fi",rcond,info); | |||
| 42438 | /*closepyobjfrom*/ | |||
| 42439 | /*end of closepyobjfrom*/ | |||
| 42440 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 42441 | /*cleanupfrompyobj*/ | |||
| 42442 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 42443 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 42444 | /* End of cleaning variable work */ | |||
| 42445 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 42446 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 42447 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 42448 | /* End of cleaning variable ipiv */ | |||
| 42449 | /* End of cleaning variable lda */ | |||
| 42450 | /* End of cleaning variable n */ | |||
| 42451 | /* End of cleaning variable info */ | |||
| 42452 | /* End of cleaning variable rcond */ | |||
| 42453 | } /*if (f2py_success) of anorm*/ | |||
| 42454 | /* End of cleaning variable anorm */ | |||
| 42455 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 42456 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 42457 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 42458 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 42459 | /* End of cleaning variable a */ | |||
| 42460 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 42461 | } /*if (f2py_success) of lower*/ | |||
| 42462 | /* End of cleaning variable lower */ | |||
| 42463 | /*end of cleanupfrompyobj*/ | |||
| 42464 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 42465 | /*routdebugfailure*/ | |||
| 42466 | } else { | |||
| 42467 | /*routdebugleave*/ | |||
| 42468 | } | |||
| 42469 | CFUNCSMESS("Freeing memory.\n"); | |||
| 42470 | /*freemem*/ | |||
| 42471 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42472 | f2py_stop_clock(); | |||
| 42473 | #endif | |||
| 42474 | return capi_buildvalue; | |||
| 42475 | } | |||
| 42476 | /******************************* end of csycon *******************************/ | |||
| 42477 | ||||
| 42478 | /*********************************** zsycon ***********************************/ | |||
| 42479 | static char doc_f2py_rout__flapack_zsycon[] = "\ | |||
| 42480 | rcond,info = zsycon(a,ipiv,anorm,[lower])\n\nWrapper for ``zsycon``.\ | |||
| 42481 | \n\nParameters\n----------\n" | |||
| 42482 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 42483 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 42484 | "anorm : input float\n" | |||
| 42485 | "\nOther Parameters\n----------------\n" | |||
| 42486 | "lower : input int, optional\n Default: 0\n" | |||
| 42487 | "\nReturns\n-------\n" | |||
| 42488 | "rcond : float\n" | |||
| 42489 | "info : int"; | |||
| 42490 | /* extern void F_FUNC(zsycon,ZSYCON)(char*,F_INT*,complex_double*,F_INT*,F_INT*,double*,double*,complex_double*,F_INT* ); */ | |||
| 42491 | static PyObject *f2py_rout__flapack_zsycon(const PyObject *capi_self, | |||
| 42492 | PyObject *capi_args, | |||
| 42493 | PyObject *capi_keywds, | |||
| 42494 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,complex_double*,F_INTint* )) { | |||
| 42495 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 42496 | volatile int f2py_success = 1; | |||
| 42497 | /*decl*/ | |||
| 42498 | ||||
| 42499 | int n = 0; | |||
| 42500 | complex_double *a = NULL((void*)0); | |||
| 42501 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 42502 | const int a_Rank = 2; | |||
| 42503 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 42504 | int capi_a_intent = 0; | |||
| 42505 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 42506 | int lda = 0; | |||
| 42507 | int *ipiv = NULL((void*)0); | |||
| 42508 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 42509 | const int ipiv_Rank = 1; | |||
| 42510 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 42511 | int capi_ipiv_intent = 0; | |||
| 42512 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 42513 | double anorm = 0; | |||
| 42514 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 42515 | double rcond = 0; | |||
| 42516 | complex_double *work = NULL((void*)0); | |||
| 42517 | npy_intp work_Dims[1] = {-1}; | |||
| 42518 | const int work_Rank = 1; | |||
| 42519 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 42520 | int capi_work_intent = 0; | |||
| 42521 | int info = 0; | |||
| 42522 | int lower = 0; | |||
| 42523 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 42524 | static char *capi_kwlist[] = {"a","ipiv","anorm","lower",NULL((void*)0)}; | |||
| 42525 | ||||
| 42526 | /*routdebugenter*/ | |||
| 42527 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42528 | f2py_start_clock(); | |||
| 42529 | #endif | |||
| 42530 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 42531 | "OOO|O:_flapack.zsycon",\ | |||
| 42532 | capi_kwlist,&a_capi,&ipiv_capi,&anorm_capi,&lower_capi)) | |||
| 42533 | return NULL((void*)0); | |||
| 42534 | /*frompyobj*/ | |||
| 42535 | /* Processing variable lower */ | |||
| 42536 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 42537 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsycon() 1st keyword (lower) can't be converted to int"); | |||
| 42538 | if (f2py_success) { | |||
| 42539 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsycon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsycon:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 42540 | /* Processing variable a */ | |||
| 42541 | ; | |||
| 42542 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 42543 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 42544 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 42545 | if (!PyErr_Occurred()) | |||
| 42546 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsycon to C/Fortran array" ); | |||
| 42547 | } else { | |||
| 42548 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 42549 | ||||
| 42550 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 42551 | /* Processing variable anorm */ | |||
| 42552 | f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.zsycon() 3rd argument (anorm) can't be converted to double"); | |||
| 42553 | if (f2py_success) { | |||
| 42554 | /* Processing variable rcond */ | |||
| 42555 | /* Processing variable info */ | |||
| 42556 | /* Processing variable n */ | |||
| 42557 | n = shape(a,0)a_Dims[0]; | |||
| 42558 | /* Processing variable lda */ | |||
| 42559 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 42560 | /* Processing variable ipiv */ | |||
| 42561 | ipiv_Dims[0]=n; | |||
| 42562 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 42563 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 42564 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 42565 | if (!PyErr_Occurred()) | |||
| 42566 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.zsycon to C/Fortran array" ); | |||
| 42567 | } else { | |||
| 42568 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 42569 | ||||
| 42570 | /* Processing variable work */ | |||
| 42571 | work_Dims[0]=2 * n; | |||
| 42572 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 42573 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 42574 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 42575 | if (!PyErr_Occurred()) | |||
| 42576 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zsycon to C/Fortran array" ); | |||
| 42577 | } else { | |||
| 42578 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 42579 | ||||
| 42580 | /*end of frompyobj*/ | |||
| 42581 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42582 | f2py_start_call_clock(); | |||
| 42583 | #endif | |||
| 42584 | /*callfortranroutine*/ | |||
| 42585 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&anorm,&rcond,work,&info) ; | |||
| 42586 | /*(*f2py_func)(&n,a,&lda,ipiv,&anorm,&rcond,work,&info,&lower);*/ | |||
| 42587 | if (PyErr_Occurred()) | |||
| 42588 | f2py_success = 0; | |||
| 42589 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42590 | f2py_stop_call_clock(); | |||
| 42591 | #endif | |||
| 42592 | /*end of callfortranroutine*/ | |||
| 42593 | if (f2py_success) { | |||
| 42594 | /*pyobjfrom*/ | |||
| 42595 | /*end of pyobjfrom*/ | |||
| 42596 | CFUNCSMESS("Building return value.\n"); | |||
| 42597 | capi_buildvalue = Py_BuildValue("di",rcond,info); | |||
| 42598 | /*closepyobjfrom*/ | |||
| 42599 | /*end of closepyobjfrom*/ | |||
| 42600 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 42601 | /*cleanupfrompyobj*/ | |||
| 42602 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 42603 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 42604 | /* End of cleaning variable work */ | |||
| 42605 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 42606 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 42607 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 42608 | /* End of cleaning variable ipiv */ | |||
| 42609 | /* End of cleaning variable lda */ | |||
| 42610 | /* End of cleaning variable n */ | |||
| 42611 | /* End of cleaning variable info */ | |||
| 42612 | /* End of cleaning variable rcond */ | |||
| 42613 | } /*if (f2py_success) of anorm*/ | |||
| 42614 | /* End of cleaning variable anorm */ | |||
| 42615 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 42616 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 42617 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 42618 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 42619 | /* End of cleaning variable a */ | |||
| 42620 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 42621 | } /*if (f2py_success) of lower*/ | |||
| 42622 | /* End of cleaning variable lower */ | |||
| 42623 | /*end of cleanupfrompyobj*/ | |||
| 42624 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 42625 | /*routdebugfailure*/ | |||
| 42626 | } else { | |||
| 42627 | /*routdebugleave*/ | |||
| 42628 | } | |||
| 42629 | CFUNCSMESS("Freeing memory.\n"); | |||
| 42630 | /*freemem*/ | |||
| 42631 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42632 | f2py_stop_clock(); | |||
| 42633 | #endif | |||
| 42634 | return capi_buildvalue; | |||
| 42635 | } | |||
| 42636 | /******************************* end of zsycon *******************************/ | |||
| 42637 | ||||
| 42638 | /*********************************** checon ***********************************/ | |||
| 42639 | static char doc_f2py_rout__flapack_checon[] = "\ | |||
| 42640 | rcond,info = checon(a,ipiv,anorm,[lower])\n\nWrapper for ``checon``.\ | |||
| 42641 | \n\nParameters\n----------\n" | |||
| 42642 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 42643 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 42644 | "anorm : input float\n" | |||
| 42645 | "\nOther Parameters\n----------------\n" | |||
| 42646 | "lower : input int, optional\n Default: 0\n" | |||
| 42647 | "\nReturns\n-------\n" | |||
| 42648 | "rcond : float\n" | |||
| 42649 | "info : int"; | |||
| 42650 | /* extern void F_FUNC(checon,CHECON)(char*,F_INT*,complex_float*,F_INT*,F_INT*,float*,float*,complex_float*,F_INT* ); */ | |||
| 42651 | static PyObject *f2py_rout__flapack_checon(const PyObject *capi_self, | |||
| 42652 | PyObject *capi_args, | |||
| 42653 | PyObject *capi_keywds, | |||
| 42654 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,complex_float*,F_INTint* )) { | |||
| 42655 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 42656 | volatile int f2py_success = 1; | |||
| 42657 | /*decl*/ | |||
| 42658 | ||||
| 42659 | int n = 0; | |||
| 42660 | complex_float *a = NULL((void*)0); | |||
| 42661 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 42662 | const int a_Rank = 2; | |||
| 42663 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 42664 | int capi_a_intent = 0; | |||
| 42665 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 42666 | int lda = 0; | |||
| 42667 | int *ipiv = NULL((void*)0); | |||
| 42668 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 42669 | const int ipiv_Rank = 1; | |||
| 42670 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 42671 | int capi_ipiv_intent = 0; | |||
| 42672 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 42673 | float anorm = 0; | |||
| 42674 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 42675 | float rcond = 0; | |||
| 42676 | complex_float *work = NULL((void*)0); | |||
| 42677 | npy_intp work_Dims[1] = {-1}; | |||
| 42678 | const int work_Rank = 1; | |||
| 42679 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 42680 | int capi_work_intent = 0; | |||
| 42681 | int info = 0; | |||
| 42682 | int lower = 0; | |||
| 42683 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 42684 | static char *capi_kwlist[] = {"a","ipiv","anorm","lower",NULL((void*)0)}; | |||
| 42685 | ||||
| 42686 | /*routdebugenter*/ | |||
| 42687 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42688 | f2py_start_clock(); | |||
| 42689 | #endif | |||
| 42690 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 42691 | "OOO|O:_flapack.checon",\ | |||
| 42692 | capi_kwlist,&a_capi,&ipiv_capi,&anorm_capi,&lower_capi)) | |||
| 42693 | return NULL((void*)0); | |||
| 42694 | /*frompyobj*/ | |||
| 42695 | /* Processing variable lower */ | |||
| 42696 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 42697 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.checon() 1st keyword (lower) can't be converted to int"); | |||
| 42698 | if (f2py_success) { | |||
| 42699 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","checon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""checon:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 42700 | /* Processing variable a */ | |||
| 42701 | ; | |||
| 42702 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 42703 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 42704 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 42705 | if (!PyErr_Occurred()) | |||
| 42706 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.checon to C/Fortran array" ); | |||
| 42707 | } else { | |||
| 42708 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 42709 | ||||
| 42710 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 42711 | /* Processing variable anorm */ | |||
| 42712 | f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.checon() 3rd argument (anorm) can't be converted to float"); | |||
| 42713 | if (f2py_success) { | |||
| 42714 | /* Processing variable rcond */ | |||
| 42715 | /* Processing variable info */ | |||
| 42716 | /* Processing variable n */ | |||
| 42717 | n = shape(a,0)a_Dims[0]; | |||
| 42718 | /* Processing variable lda */ | |||
| 42719 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 42720 | /* Processing variable ipiv */ | |||
| 42721 | ipiv_Dims[0]=n; | |||
| 42722 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 42723 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 42724 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 42725 | if (!PyErr_Occurred()) | |||
| 42726 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.checon to C/Fortran array" ); | |||
| 42727 | } else { | |||
| 42728 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 42729 | ||||
| 42730 | /* Processing variable work */ | |||
| 42731 | work_Dims[0]=2 * n; | |||
| 42732 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 42733 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 42734 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 42735 | if (!PyErr_Occurred()) | |||
| 42736 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.checon to C/Fortran array" ); | |||
| 42737 | } else { | |||
| 42738 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 42739 | ||||
| 42740 | /*end of frompyobj*/ | |||
| 42741 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42742 | f2py_start_call_clock(); | |||
| 42743 | #endif | |||
| 42744 | /*callfortranroutine*/ | |||
| 42745 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&anorm,&rcond,work,&info) ; | |||
| 42746 | /*(*f2py_func)(&n,a,&lda,ipiv,&anorm,&rcond,work,&info,&lower);*/ | |||
| 42747 | if (PyErr_Occurred()) | |||
| 42748 | f2py_success = 0; | |||
| 42749 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42750 | f2py_stop_call_clock(); | |||
| 42751 | #endif | |||
| 42752 | /*end of callfortranroutine*/ | |||
| 42753 | if (f2py_success) { | |||
| 42754 | /*pyobjfrom*/ | |||
| 42755 | /*end of pyobjfrom*/ | |||
| 42756 | CFUNCSMESS("Building return value.\n"); | |||
| 42757 | capi_buildvalue = Py_BuildValue("fi",rcond,info); | |||
| 42758 | /*closepyobjfrom*/ | |||
| 42759 | /*end of closepyobjfrom*/ | |||
| 42760 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 42761 | /*cleanupfrompyobj*/ | |||
| 42762 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 42763 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 42764 | /* End of cleaning variable work */ | |||
| 42765 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 42766 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 42767 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 42768 | /* End of cleaning variable ipiv */ | |||
| 42769 | /* End of cleaning variable lda */ | |||
| 42770 | /* End of cleaning variable n */ | |||
| 42771 | /* End of cleaning variable info */ | |||
| 42772 | /* End of cleaning variable rcond */ | |||
| 42773 | } /*if (f2py_success) of anorm*/ | |||
| 42774 | /* End of cleaning variable anorm */ | |||
| 42775 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 42776 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 42777 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 42778 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 42779 | /* End of cleaning variable a */ | |||
| 42780 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 42781 | } /*if (f2py_success) of lower*/ | |||
| 42782 | /* End of cleaning variable lower */ | |||
| 42783 | /*end of cleanupfrompyobj*/ | |||
| 42784 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 42785 | /*routdebugfailure*/ | |||
| 42786 | } else { | |||
| 42787 | /*routdebugleave*/ | |||
| 42788 | } | |||
| 42789 | CFUNCSMESS("Freeing memory.\n"); | |||
| 42790 | /*freemem*/ | |||
| 42791 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42792 | f2py_stop_clock(); | |||
| 42793 | #endif | |||
| 42794 | return capi_buildvalue; | |||
| 42795 | } | |||
| 42796 | /******************************* end of checon *******************************/ | |||
| 42797 | ||||
| 42798 | /*********************************** zhecon ***********************************/ | |||
| 42799 | static char doc_f2py_rout__flapack_zhecon[] = "\ | |||
| 42800 | rcond,info = zhecon(a,ipiv,anorm,[lower])\n\nWrapper for ``zhecon``.\ | |||
| 42801 | \n\nParameters\n----------\n" | |||
| 42802 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 42803 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 42804 | "anorm : input float\n" | |||
| 42805 | "\nOther Parameters\n----------------\n" | |||
| 42806 | "lower : input int, optional\n Default: 0\n" | |||
| 42807 | "\nReturns\n-------\n" | |||
| 42808 | "rcond : float\n" | |||
| 42809 | "info : int"; | |||
| 42810 | /* extern void F_FUNC(zhecon,ZHECON)(char*,F_INT*,complex_double*,F_INT*,F_INT*,double*,double*,complex_double*,F_INT* ); */ | |||
| 42811 | static PyObject *f2py_rout__flapack_zhecon(const PyObject *capi_self, | |||
| 42812 | PyObject *capi_args, | |||
| 42813 | PyObject *capi_keywds, | |||
| 42814 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,complex_double*,F_INTint* )) { | |||
| 42815 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 42816 | volatile int f2py_success = 1; | |||
| 42817 | /*decl*/ | |||
| 42818 | ||||
| 42819 | int n = 0; | |||
| 42820 | complex_double *a = NULL((void*)0); | |||
| 42821 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 42822 | const int a_Rank = 2; | |||
| 42823 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 42824 | int capi_a_intent = 0; | |||
| 42825 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 42826 | int lda = 0; | |||
| 42827 | int *ipiv = NULL((void*)0); | |||
| 42828 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 42829 | const int ipiv_Rank = 1; | |||
| 42830 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 42831 | int capi_ipiv_intent = 0; | |||
| 42832 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 42833 | double anorm = 0; | |||
| 42834 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 42835 | double rcond = 0; | |||
| 42836 | complex_double *work = NULL((void*)0); | |||
| 42837 | npy_intp work_Dims[1] = {-1}; | |||
| 42838 | const int work_Rank = 1; | |||
| 42839 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 42840 | int capi_work_intent = 0; | |||
| 42841 | int info = 0; | |||
| 42842 | int lower = 0; | |||
| 42843 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 42844 | static char *capi_kwlist[] = {"a","ipiv","anorm","lower",NULL((void*)0)}; | |||
| 42845 | ||||
| 42846 | /*routdebugenter*/ | |||
| 42847 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42848 | f2py_start_clock(); | |||
| 42849 | #endif | |||
| 42850 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 42851 | "OOO|O:_flapack.zhecon",\ | |||
| 42852 | capi_kwlist,&a_capi,&ipiv_capi,&anorm_capi,&lower_capi)) | |||
| 42853 | return NULL((void*)0); | |||
| 42854 | /*frompyobj*/ | |||
| 42855 | /* Processing variable lower */ | |||
| 42856 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 42857 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhecon() 1st keyword (lower) can't be converted to int"); | |||
| 42858 | if (f2py_success) { | |||
| 42859 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhecon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhecon:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 42860 | /* Processing variable a */ | |||
| 42861 | ; | |||
| 42862 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 42863 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 42864 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 42865 | if (!PyErr_Occurred()) | |||
| 42866 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhecon to C/Fortran array" ); | |||
| 42867 | } else { | |||
| 42868 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 42869 | ||||
| 42870 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 42871 | /* Processing variable anorm */ | |||
| 42872 | f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.zhecon() 3rd argument (anorm) can't be converted to double"); | |||
| 42873 | if (f2py_success) { | |||
| 42874 | /* Processing variable rcond */ | |||
| 42875 | /* Processing variable info */ | |||
| 42876 | /* Processing variable n */ | |||
| 42877 | n = shape(a,0)a_Dims[0]; | |||
| 42878 | /* Processing variable lda */ | |||
| 42879 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 42880 | /* Processing variable ipiv */ | |||
| 42881 | ipiv_Dims[0]=n; | |||
| 42882 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 42883 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 42884 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 42885 | if (!PyErr_Occurred()) | |||
| 42886 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.zhecon to C/Fortran array" ); | |||
| 42887 | } else { | |||
| 42888 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 42889 | ||||
| 42890 | /* Processing variable work */ | |||
| 42891 | work_Dims[0]=2 * n; | |||
| 42892 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 42893 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 42894 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 42895 | if (!PyErr_Occurred()) | |||
| 42896 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhecon to C/Fortran array" ); | |||
| 42897 | } else { | |||
| 42898 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 42899 | ||||
| 42900 | /*end of frompyobj*/ | |||
| 42901 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42902 | f2py_start_call_clock(); | |||
| 42903 | #endif | |||
| 42904 | /*callfortranroutine*/ | |||
| 42905 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&anorm,&rcond,work,&info) ; | |||
| 42906 | /*(*f2py_func)(&n,a,&lda,ipiv,&anorm,&rcond,work,&info,&lower);*/ | |||
| 42907 | if (PyErr_Occurred()) | |||
| 42908 | f2py_success = 0; | |||
| 42909 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42910 | f2py_stop_call_clock(); | |||
| 42911 | #endif | |||
| 42912 | /*end of callfortranroutine*/ | |||
| 42913 | if (f2py_success) { | |||
| 42914 | /*pyobjfrom*/ | |||
| 42915 | /*end of pyobjfrom*/ | |||
| 42916 | CFUNCSMESS("Building return value.\n"); | |||
| 42917 | capi_buildvalue = Py_BuildValue("di",rcond,info); | |||
| 42918 | /*closepyobjfrom*/ | |||
| 42919 | /*end of closepyobjfrom*/ | |||
| 42920 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 42921 | /*cleanupfrompyobj*/ | |||
| 42922 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 42923 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 42924 | /* End of cleaning variable work */ | |||
| 42925 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 42926 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 42927 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 42928 | /* End of cleaning variable ipiv */ | |||
| 42929 | /* End of cleaning variable lda */ | |||
| 42930 | /* End of cleaning variable n */ | |||
| 42931 | /* End of cleaning variable info */ | |||
| 42932 | /* End of cleaning variable rcond */ | |||
| 42933 | } /*if (f2py_success) of anorm*/ | |||
| 42934 | /* End of cleaning variable anorm */ | |||
| 42935 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 42936 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 42937 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 42938 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 42939 | /* End of cleaning variable a */ | |||
| 42940 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 42941 | } /*if (f2py_success) of lower*/ | |||
| 42942 | /* End of cleaning variable lower */ | |||
| 42943 | /*end of cleanupfrompyobj*/ | |||
| 42944 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 42945 | /*routdebugfailure*/ | |||
| 42946 | } else { | |||
| 42947 | /*routdebugleave*/ | |||
| 42948 | } | |||
| 42949 | CFUNCSMESS("Freeing memory.\n"); | |||
| 42950 | /*freemem*/ | |||
| 42951 | #ifdef F2PY_REPORT_ATEXIT | |||
| 42952 | f2py_stop_clock(); | |||
| 42953 | #endif | |||
| 42954 | return capi_buildvalue; | |||
| 42955 | } | |||
| 42956 | /******************************* end of zhecon *******************************/ | |||
| 42957 | ||||
| 42958 | /********************************** ssyconv **********************************/ | |||
| 42959 | static char doc_f2py_rout__flapack_ssyconv[] = "\ | |||
| 42960 | a,e,info = ssyconv(a,ipiv,[lower,way,overwrite_a])\n\nWrapper for ``ssyconv``.\ | |||
| 42961 | \n\nParameters\n----------\n" | |||
| 42962 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 42963 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 42964 | "\nOther Parameters\n----------------\n" | |||
| 42965 | "lower : input int, optional\n Default: 0\n" | |||
| 42966 | "way : input int, optional\n Default: 0\n" | |||
| 42967 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 42968 | "\nReturns\n-------\n" | |||
| 42969 | "a : rank-2 array('f') with bounds (n,n)\n" | |||
| 42970 | "e : rank-1 array('f') with bounds (n)\n" | |||
| 42971 | "info : int"; | |||
| 42972 | /* extern void F_FUNC(ssyconv,SSYCONV)(char*,char*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT* ); */ | |||
| 42973 | static PyObject *f2py_rout__flapack_ssyconv(const PyObject *capi_self, | |||
| 42974 | PyObject *capi_args, | |||
| 42975 | PyObject *capi_keywds, | |||
| 42976 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint* )) { | |||
| 42977 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 42978 | volatile int f2py_success = 1; | |||
| 42979 | /*decl*/ | |||
| 42980 | ||||
| 42981 | int lower = 0; | |||
| 42982 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 42983 | int way = 0; | |||
| 42984 | PyObject *way_capi = Py_None(&_Py_NoneStruct); | |||
| 42985 | int n = 0; | |||
| 42986 | float *a = NULL((void*)0); | |||
| 42987 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 42988 | const int a_Rank = 2; | |||
| 42989 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 42990 | int capi_a_intent = 0; | |||
| 42991 | int capi_overwrite_a = 0; | |||
| 42992 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 42993 | int lda = 0; | |||
| 42994 | int *ipiv = NULL((void*)0); | |||
| 42995 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 42996 | const int ipiv_Rank = 1; | |||
| 42997 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 42998 | int capi_ipiv_intent = 0; | |||
| 42999 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 43000 | float *e = NULL((void*)0); | |||
| 43001 | npy_intp e_Dims[1] = {-1}; | |||
| 43002 | const int e_Rank = 1; | |||
| 43003 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 43004 | int capi_e_intent = 0; | |||
| 43005 | int info = 0; | |||
| 43006 | static char *capi_kwlist[] = {"a","ipiv","lower","way","overwrite_a",NULL((void*)0)}; | |||
| 43007 | ||||
| 43008 | /*routdebugenter*/ | |||
| 43009 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43010 | f2py_start_clock(); | |||
| 43011 | #endif | |||
| 43012 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 43013 | "OO|OOi:_flapack.ssyconv",\ | |||
| 43014 | capi_kwlist,&a_capi,&ipiv_capi,&lower_capi,&way_capi,&capi_overwrite_a)) | |||
| 43015 | return NULL((void*)0); | |||
| 43016 | /*frompyobj*/ | |||
| 43017 | /* Processing variable lower */ | |||
| 43018 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 43019 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyconv() 1st keyword (lower) can't be converted to int"); | |||
| 43020 | if (f2py_success) { | |||
| 43021 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssyconv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyconv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 43022 | /* Processing variable way */ | |||
| 43023 | if (way_capi == Py_None(&_Py_NoneStruct)) way = 0; else | |||
| 43024 | f2py_success = int_from_pyobj(&way,way_capi,"_flapack.ssyconv() 2nd keyword (way) can't be converted to int"); | |||
| 43025 | if (f2py_success) { | |||
| 43026 | CHECKSCALAR(way==0||way==1,"way==0||way==1","2nd keyword way","ssyconv:way=%d",way)if (!(way==0||way==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyconv:way=%d", "(""way==0||way==1"") failed for " "2nd keyword way", way); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 43027 | /* Processing variable a */ | |||
| 43028 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 43029 | ; | |||
| 43030 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 43031 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 43032 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 43033 | if (!PyErr_Occurred()) | |||
| 43034 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssyconv to C/Fortran array" ); | |||
| 43035 | } else { | |||
| 43036 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 43037 | ||||
| 43038 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 43039 | /* Processing variable info */ | |||
| 43040 | /* Processing variable n */ | |||
| 43041 | n = shape(a,0)a_Dims[0]; | |||
| 43042 | /* Processing variable lda */ | |||
| 43043 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 43044 | /* Processing variable ipiv */ | |||
| 43045 | ipiv_Dims[0]=n; | |||
| 43046 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 43047 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 43048 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 43049 | if (!PyErr_Occurred()) | |||
| 43050 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.ssyconv to C/Fortran array" ); | |||
| 43051 | } else { | |||
| 43052 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 43053 | ||||
| 43054 | /* Processing variable e */ | |||
| 43055 | e_Dims[0]=n; | |||
| 43056 | capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 43057 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct)); | |||
| 43058 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 43059 | if (!PyErr_Occurred()) | |||
| 43060 | PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.ssyconv to C/Fortran array" ); | |||
| 43061 | } else { | |||
| 43062 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 43063 | ||||
| 43064 | /*end of frompyobj*/ | |||
| 43065 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43066 | f2py_start_call_clock(); | |||
| 43067 | #endif | |||
| 43068 | /*callfortranroutine*/ | |||
| 43069 | (*f2py_func)((lower?"L":"U"),(way?"R":"C"),&n,a,&lda,ipiv,e,&info) ; | |||
| 43070 | /*(*f2py_func)(&lower,&way,&n,a,&lda,ipiv,e,&info);*/ | |||
| 43071 | if (PyErr_Occurred()) | |||
| 43072 | f2py_success = 0; | |||
| 43073 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43074 | f2py_stop_call_clock(); | |||
| 43075 | #endif | |||
| 43076 | /*end of callfortranroutine*/ | |||
| 43077 | if (f2py_success) { | |||
| 43078 | /*pyobjfrom*/ | |||
| 43079 | /*end of pyobjfrom*/ | |||
| 43080 | CFUNCSMESS("Building return value.\n"); | |||
| 43081 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_e_tmp,info); | |||
| 43082 | /*closepyobjfrom*/ | |||
| 43083 | /*end of closepyobjfrom*/ | |||
| 43084 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 43085 | /*cleanupfrompyobj*/ | |||
| 43086 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 43087 | /* End of cleaning variable e */ | |||
| 43088 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 43089 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 43090 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 43091 | /* End of cleaning variable ipiv */ | |||
| 43092 | /* End of cleaning variable lda */ | |||
| 43093 | /* End of cleaning variable n */ | |||
| 43094 | /* End of cleaning variable info */ | |||
| 43095 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 43096 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 43097 | /* End of cleaning variable a */ | |||
| 43098 | } /*CHECKSCALAR(way==0||way==1)*/ | |||
| 43099 | } /*if (f2py_success) of way*/ | |||
| 43100 | /* End of cleaning variable way */ | |||
| 43101 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 43102 | } /*if (f2py_success) of lower*/ | |||
| 43103 | /* End of cleaning variable lower */ | |||
| 43104 | /*end of cleanupfrompyobj*/ | |||
| 43105 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 43106 | /*routdebugfailure*/ | |||
| 43107 | } else { | |||
| 43108 | /*routdebugleave*/ | |||
| 43109 | } | |||
| 43110 | CFUNCSMESS("Freeing memory.\n"); | |||
| 43111 | /*freemem*/ | |||
| 43112 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43113 | f2py_stop_clock(); | |||
| 43114 | #endif | |||
| 43115 | return capi_buildvalue; | |||
| 43116 | } | |||
| 43117 | /******************************* end of ssyconv *******************************/ | |||
| 43118 | ||||
| 43119 | /********************************** dsyconv **********************************/ | |||
| 43120 | static char doc_f2py_rout__flapack_dsyconv[] = "\ | |||
| 43121 | a,e,info = dsyconv(a,ipiv,[lower,way,overwrite_a])\n\nWrapper for ``dsyconv``.\ | |||
| 43122 | \n\nParameters\n----------\n" | |||
| 43123 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 43124 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 43125 | "\nOther Parameters\n----------------\n" | |||
| 43126 | "lower : input int, optional\n Default: 0\n" | |||
| 43127 | "way : input int, optional\n Default: 0\n" | |||
| 43128 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 43129 | "\nReturns\n-------\n" | |||
| 43130 | "a : rank-2 array('d') with bounds (n,n)\n" | |||
| 43131 | "e : rank-1 array('d') with bounds (n)\n" | |||
| 43132 | "info : int"; | |||
| 43133 | /* extern void F_FUNC(dsyconv,DSYCONV)(char*,char*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT* ); */ | |||
| 43134 | static PyObject *f2py_rout__flapack_dsyconv(const PyObject *capi_self, | |||
| 43135 | PyObject *capi_args, | |||
| 43136 | PyObject *capi_keywds, | |||
| 43137 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint* )) { | |||
| 43138 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 43139 | volatile int f2py_success = 1; | |||
| 43140 | /*decl*/ | |||
| 43141 | ||||
| 43142 | int lower = 0; | |||
| 43143 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 43144 | int way = 0; | |||
| 43145 | PyObject *way_capi = Py_None(&_Py_NoneStruct); | |||
| 43146 | int n = 0; | |||
| 43147 | double *a = NULL((void*)0); | |||
| 43148 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 43149 | const int a_Rank = 2; | |||
| 43150 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 43151 | int capi_a_intent = 0; | |||
| 43152 | int capi_overwrite_a = 0; | |||
| 43153 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 43154 | int lda = 0; | |||
| 43155 | int *ipiv = NULL((void*)0); | |||
| 43156 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 43157 | const int ipiv_Rank = 1; | |||
| 43158 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 43159 | int capi_ipiv_intent = 0; | |||
| 43160 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 43161 | double *e = NULL((void*)0); | |||
| 43162 | npy_intp e_Dims[1] = {-1}; | |||
| 43163 | const int e_Rank = 1; | |||
| 43164 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 43165 | int capi_e_intent = 0; | |||
| 43166 | int info = 0; | |||
| 43167 | static char *capi_kwlist[] = {"a","ipiv","lower","way","overwrite_a",NULL((void*)0)}; | |||
| 43168 | ||||
| 43169 | /*routdebugenter*/ | |||
| 43170 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43171 | f2py_start_clock(); | |||
| 43172 | #endif | |||
| 43173 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 43174 | "OO|OOi:_flapack.dsyconv",\ | |||
| 43175 | capi_kwlist,&a_capi,&ipiv_capi,&lower_capi,&way_capi,&capi_overwrite_a)) | |||
| 43176 | return NULL((void*)0); | |||
| 43177 | /*frompyobj*/ | |||
| 43178 | /* Processing variable lower */ | |||
| 43179 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 43180 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyconv() 1st keyword (lower) can't be converted to int"); | |||
| 43181 | if (f2py_success) { | |||
| 43182 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsyconv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyconv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 43183 | /* Processing variable way */ | |||
| 43184 | if (way_capi == Py_None(&_Py_NoneStruct)) way = 0; else | |||
| 43185 | f2py_success = int_from_pyobj(&way,way_capi,"_flapack.dsyconv() 2nd keyword (way) can't be converted to int"); | |||
| 43186 | if (f2py_success) { | |||
| 43187 | CHECKSCALAR(way==0||way==1,"way==0||way==1","2nd keyword way","dsyconv:way=%d",way)if (!(way==0||way==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyconv:way=%d", "(""way==0||way==1"") failed for " "2nd keyword way", way); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 43188 | /* Processing variable a */ | |||
| 43189 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 43190 | ; | |||
| 43191 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 43192 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 43193 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 43194 | if (!PyErr_Occurred()) | |||
| 43195 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsyconv to C/Fortran array" ); | |||
| 43196 | } else { | |||
| 43197 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 43198 | ||||
| 43199 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 43200 | /* Processing variable info */ | |||
| 43201 | /* Processing variable n */ | |||
| 43202 | n = shape(a,0)a_Dims[0]; | |||
| 43203 | /* Processing variable lda */ | |||
| 43204 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 43205 | /* Processing variable ipiv */ | |||
| 43206 | ipiv_Dims[0]=n; | |||
| 43207 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 43208 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 43209 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 43210 | if (!PyErr_Occurred()) | |||
| 43211 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.dsyconv to C/Fortran array" ); | |||
| 43212 | } else { | |||
| 43213 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 43214 | ||||
| 43215 | /* Processing variable e */ | |||
| 43216 | e_Dims[0]=n; | |||
| 43217 | capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 43218 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct)); | |||
| 43219 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 43220 | if (!PyErr_Occurred()) | |||
| 43221 | PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.dsyconv to C/Fortran array" ); | |||
| 43222 | } else { | |||
| 43223 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 43224 | ||||
| 43225 | /*end of frompyobj*/ | |||
| 43226 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43227 | f2py_start_call_clock(); | |||
| 43228 | #endif | |||
| 43229 | /*callfortranroutine*/ | |||
| 43230 | (*f2py_func)((lower?"L":"U"),(way?"R":"C"),&n,a,&lda,ipiv,e,&info) ; | |||
| 43231 | /*(*f2py_func)(&lower,&way,&n,a,&lda,ipiv,e,&info);*/ | |||
| 43232 | if (PyErr_Occurred()) | |||
| 43233 | f2py_success = 0; | |||
| 43234 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43235 | f2py_stop_call_clock(); | |||
| 43236 | #endif | |||
| 43237 | /*end of callfortranroutine*/ | |||
| 43238 | if (f2py_success) { | |||
| 43239 | /*pyobjfrom*/ | |||
| 43240 | /*end of pyobjfrom*/ | |||
| 43241 | CFUNCSMESS("Building return value.\n"); | |||
| 43242 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_e_tmp,info); | |||
| 43243 | /*closepyobjfrom*/ | |||
| 43244 | /*end of closepyobjfrom*/ | |||
| 43245 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 43246 | /*cleanupfrompyobj*/ | |||
| 43247 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 43248 | /* End of cleaning variable e */ | |||
| 43249 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 43250 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 43251 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 43252 | /* End of cleaning variable ipiv */ | |||
| 43253 | /* End of cleaning variable lda */ | |||
| 43254 | /* End of cleaning variable n */ | |||
| 43255 | /* End of cleaning variable info */ | |||
| 43256 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 43257 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 43258 | /* End of cleaning variable a */ | |||
| 43259 | } /*CHECKSCALAR(way==0||way==1)*/ | |||
| 43260 | } /*if (f2py_success) of way*/ | |||
| 43261 | /* End of cleaning variable way */ | |||
| 43262 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 43263 | } /*if (f2py_success) of lower*/ | |||
| 43264 | /* End of cleaning variable lower */ | |||
| 43265 | /*end of cleanupfrompyobj*/ | |||
| 43266 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 43267 | /*routdebugfailure*/ | |||
| 43268 | } else { | |||
| 43269 | /*routdebugleave*/ | |||
| 43270 | } | |||
| 43271 | CFUNCSMESS("Freeing memory.\n"); | |||
| 43272 | /*freemem*/ | |||
| 43273 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43274 | f2py_stop_clock(); | |||
| 43275 | #endif | |||
| 43276 | return capi_buildvalue; | |||
| 43277 | } | |||
| 43278 | /******************************* end of dsyconv *******************************/ | |||
| 43279 | ||||
| 43280 | /********************************** csyconv **********************************/ | |||
| 43281 | static char doc_f2py_rout__flapack_csyconv[] = "\ | |||
| 43282 | a,e,info = csyconv(a,ipiv,[lower,way,overwrite_a])\n\nWrapper for ``csyconv``.\ | |||
| 43283 | \n\nParameters\n----------\n" | |||
| 43284 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 43285 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 43286 | "\nOther Parameters\n----------------\n" | |||
| 43287 | "lower : input int, optional\n Default: 0\n" | |||
| 43288 | "way : input int, optional\n Default: 0\n" | |||
| 43289 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 43290 | "\nReturns\n-------\n" | |||
| 43291 | "a : rank-2 array('F') with bounds (n,n)\n" | |||
| 43292 | "e : rank-1 array('F') with bounds (n)\n" | |||
| 43293 | "info : int"; | |||
| 43294 | /* extern void F_FUNC(csyconv,CSYCONV)(char*,char*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT* ); */ | |||
| 43295 | static PyObject *f2py_rout__flapack_csyconv(const PyObject *capi_self, | |||
| 43296 | PyObject *capi_args, | |||
| 43297 | PyObject *capi_keywds, | |||
| 43298 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint* )) { | |||
| 43299 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 43300 | volatile int f2py_success = 1; | |||
| 43301 | /*decl*/ | |||
| 43302 | ||||
| 43303 | int lower = 0; | |||
| 43304 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 43305 | int way = 0; | |||
| 43306 | PyObject *way_capi = Py_None(&_Py_NoneStruct); | |||
| 43307 | int n = 0; | |||
| 43308 | complex_float *a = NULL((void*)0); | |||
| 43309 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 43310 | const int a_Rank = 2; | |||
| 43311 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 43312 | int capi_a_intent = 0; | |||
| 43313 | int capi_overwrite_a = 0; | |||
| 43314 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 43315 | int lda = 0; | |||
| 43316 | int *ipiv = NULL((void*)0); | |||
| 43317 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 43318 | const int ipiv_Rank = 1; | |||
| 43319 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 43320 | int capi_ipiv_intent = 0; | |||
| 43321 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 43322 | complex_float *e = NULL((void*)0); | |||
| 43323 | npy_intp e_Dims[1] = {-1}; | |||
| 43324 | const int e_Rank = 1; | |||
| 43325 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 43326 | int capi_e_intent = 0; | |||
| 43327 | int info = 0; | |||
| 43328 | static char *capi_kwlist[] = {"a","ipiv","lower","way","overwrite_a",NULL((void*)0)}; | |||
| 43329 | ||||
| 43330 | /*routdebugenter*/ | |||
| 43331 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43332 | f2py_start_clock(); | |||
| 43333 | #endif | |||
| 43334 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 43335 | "OO|OOi:_flapack.csyconv",\ | |||
| 43336 | capi_kwlist,&a_capi,&ipiv_capi,&lower_capi,&way_capi,&capi_overwrite_a)) | |||
| 43337 | return NULL((void*)0); | |||
| 43338 | /*frompyobj*/ | |||
| 43339 | /* Processing variable lower */ | |||
| 43340 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 43341 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csyconv() 1st keyword (lower) can't be converted to int"); | |||
| 43342 | if (f2py_success) { | |||
| 43343 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csyconv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csyconv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 43344 | /* Processing variable way */ | |||
| 43345 | if (way_capi == Py_None(&_Py_NoneStruct)) way = 0; else | |||
| 43346 | f2py_success = int_from_pyobj(&way,way_capi,"_flapack.csyconv() 2nd keyword (way) can't be converted to int"); | |||
| 43347 | if (f2py_success) { | |||
| 43348 | CHECKSCALAR(way==0||way==1,"way==0||way==1","2nd keyword way","csyconv:way=%d",way)if (!(way==0||way==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csyconv:way=%d", "(""way==0||way==1"") failed for " "2nd keyword way", way); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 43349 | /* Processing variable a */ | |||
| 43350 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 43351 | ; | |||
| 43352 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 43353 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 43354 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 43355 | if (!PyErr_Occurred()) | |||
| 43356 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csyconv to C/Fortran array" ); | |||
| 43357 | } else { | |||
| 43358 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 43359 | ||||
| 43360 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 43361 | /* Processing variable info */ | |||
| 43362 | /* Processing variable n */ | |||
| 43363 | n = shape(a,0)a_Dims[0]; | |||
| 43364 | /* Processing variable lda */ | |||
| 43365 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 43366 | /* Processing variable ipiv */ | |||
| 43367 | ipiv_Dims[0]=n; | |||
| 43368 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 43369 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 43370 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 43371 | if (!PyErr_Occurred()) | |||
| 43372 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.csyconv to C/Fortran array" ); | |||
| 43373 | } else { | |||
| 43374 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 43375 | ||||
| 43376 | /* Processing variable e */ | |||
| 43377 | e_Dims[0]=n; | |||
| 43378 | capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 43379 | capi_e_tmp = array_from_pyobj(NPY_CFLOAT,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct)); | |||
| 43380 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 43381 | if (!PyErr_Occurred()) | |||
| 43382 | PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.csyconv to C/Fortran array" ); | |||
| 43383 | } else { | |||
| 43384 | e = (complex_float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 43385 | ||||
| 43386 | /*end of frompyobj*/ | |||
| 43387 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43388 | f2py_start_call_clock(); | |||
| 43389 | #endif | |||
| 43390 | /*callfortranroutine*/ | |||
| 43391 | (*f2py_func)((lower?"L":"U"),(way?"R":"C"),&n,a,&lda,ipiv,e,&info) ; | |||
| 43392 | /*(*f2py_func)(&lower,&way,&n,a,&lda,ipiv,e,&info);*/ | |||
| 43393 | if (PyErr_Occurred()) | |||
| 43394 | f2py_success = 0; | |||
| 43395 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43396 | f2py_stop_call_clock(); | |||
| 43397 | #endif | |||
| 43398 | /*end of callfortranroutine*/ | |||
| 43399 | if (f2py_success) { | |||
| 43400 | /*pyobjfrom*/ | |||
| 43401 | /*end of pyobjfrom*/ | |||
| 43402 | CFUNCSMESS("Building return value.\n"); | |||
| 43403 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_e_tmp,info); | |||
| 43404 | /*closepyobjfrom*/ | |||
| 43405 | /*end of closepyobjfrom*/ | |||
| 43406 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 43407 | /*cleanupfrompyobj*/ | |||
| 43408 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 43409 | /* End of cleaning variable e */ | |||
| 43410 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 43411 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 43412 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 43413 | /* End of cleaning variable ipiv */ | |||
| 43414 | /* End of cleaning variable lda */ | |||
| 43415 | /* End of cleaning variable n */ | |||
| 43416 | /* End of cleaning variable info */ | |||
| 43417 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 43418 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 43419 | /* End of cleaning variable a */ | |||
| 43420 | } /*CHECKSCALAR(way==0||way==1)*/ | |||
| 43421 | } /*if (f2py_success) of way*/ | |||
| 43422 | /* End of cleaning variable way */ | |||
| 43423 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 43424 | } /*if (f2py_success) of lower*/ | |||
| 43425 | /* End of cleaning variable lower */ | |||
| 43426 | /*end of cleanupfrompyobj*/ | |||
| 43427 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 43428 | /*routdebugfailure*/ | |||
| 43429 | } else { | |||
| 43430 | /*routdebugleave*/ | |||
| 43431 | } | |||
| 43432 | CFUNCSMESS("Freeing memory.\n"); | |||
| 43433 | /*freemem*/ | |||
| 43434 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43435 | f2py_stop_clock(); | |||
| 43436 | #endif | |||
| 43437 | return capi_buildvalue; | |||
| 43438 | } | |||
| 43439 | /******************************* end of csyconv *******************************/ | |||
| 43440 | ||||
| 43441 | /********************************** zsyconv **********************************/ | |||
| 43442 | static char doc_f2py_rout__flapack_zsyconv[] = "\ | |||
| 43443 | a,e,info = zsyconv(a,ipiv,[lower,way,overwrite_a])\n\nWrapper for ``zsyconv``.\ | |||
| 43444 | \n\nParameters\n----------\n" | |||
| 43445 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 43446 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 43447 | "\nOther Parameters\n----------------\n" | |||
| 43448 | "lower : input int, optional\n Default: 0\n" | |||
| 43449 | "way : input int, optional\n Default: 0\n" | |||
| 43450 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 43451 | "\nReturns\n-------\n" | |||
| 43452 | "a : rank-2 array('D') with bounds (n,n)\n" | |||
| 43453 | "e : rank-1 array('D') with bounds (n)\n" | |||
| 43454 | "info : int"; | |||
| 43455 | /* extern void F_FUNC(zsyconv,ZSYCONV)(char*,char*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT* ); */ | |||
| 43456 | static PyObject *f2py_rout__flapack_zsyconv(const PyObject *capi_self, | |||
| 43457 | PyObject *capi_args, | |||
| 43458 | PyObject *capi_keywds, | |||
| 43459 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint* )) { | |||
| 43460 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 43461 | volatile int f2py_success = 1; | |||
| 43462 | /*decl*/ | |||
| 43463 | ||||
| 43464 | int lower = 0; | |||
| 43465 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 43466 | int way = 0; | |||
| 43467 | PyObject *way_capi = Py_None(&_Py_NoneStruct); | |||
| 43468 | int n = 0; | |||
| 43469 | complex_double *a = NULL((void*)0); | |||
| 43470 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 43471 | const int a_Rank = 2; | |||
| 43472 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 43473 | int capi_a_intent = 0; | |||
| 43474 | int capi_overwrite_a = 0; | |||
| 43475 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 43476 | int lda = 0; | |||
| 43477 | int *ipiv = NULL((void*)0); | |||
| 43478 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 43479 | const int ipiv_Rank = 1; | |||
| 43480 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 43481 | int capi_ipiv_intent = 0; | |||
| 43482 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 43483 | complex_double *e = NULL((void*)0); | |||
| 43484 | npy_intp e_Dims[1] = {-1}; | |||
| 43485 | const int e_Rank = 1; | |||
| 43486 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 43487 | int capi_e_intent = 0; | |||
| 43488 | int info = 0; | |||
| 43489 | static char *capi_kwlist[] = {"a","ipiv","lower","way","overwrite_a",NULL((void*)0)}; | |||
| 43490 | ||||
| 43491 | /*routdebugenter*/ | |||
| 43492 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43493 | f2py_start_clock(); | |||
| 43494 | #endif | |||
| 43495 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 43496 | "OO|OOi:_flapack.zsyconv",\ | |||
| 43497 | capi_kwlist,&a_capi,&ipiv_capi,&lower_capi,&way_capi,&capi_overwrite_a)) | |||
| 43498 | return NULL((void*)0); | |||
| 43499 | /*frompyobj*/ | |||
| 43500 | /* Processing variable lower */ | |||
| 43501 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 43502 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsyconv() 1st keyword (lower) can't be converted to int"); | |||
| 43503 | if (f2py_success) { | |||
| 43504 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsyconv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsyconv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 43505 | /* Processing variable way */ | |||
| 43506 | if (way_capi == Py_None(&_Py_NoneStruct)) way = 0; else | |||
| 43507 | f2py_success = int_from_pyobj(&way,way_capi,"_flapack.zsyconv() 2nd keyword (way) can't be converted to int"); | |||
| 43508 | if (f2py_success) { | |||
| 43509 | CHECKSCALAR(way==0||way==1,"way==0||way==1","2nd keyword way","zsyconv:way=%d",way)if (!(way==0||way==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsyconv:way=%d", "(""way==0||way==1"") failed for " "2nd keyword way", way); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 43510 | /* Processing variable a */ | |||
| 43511 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 43512 | ; | |||
| 43513 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 43514 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 43515 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 43516 | if (!PyErr_Occurred()) | |||
| 43517 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsyconv to C/Fortran array" ); | |||
| 43518 | } else { | |||
| 43519 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 43520 | ||||
| 43521 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 43522 | /* Processing variable info */ | |||
| 43523 | /* Processing variable n */ | |||
| 43524 | n = shape(a,0)a_Dims[0]; | |||
| 43525 | /* Processing variable lda */ | |||
| 43526 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 43527 | /* Processing variable ipiv */ | |||
| 43528 | ipiv_Dims[0]=n; | |||
| 43529 | capi_ipiv_intent |= F2PY_INTENT_IN1; | |||
| 43530 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 43531 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 43532 | if (!PyErr_Occurred()) | |||
| 43533 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.zsyconv to C/Fortran array" ); | |||
| 43534 | } else { | |||
| 43535 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 43536 | ||||
| 43537 | /* Processing variable e */ | |||
| 43538 | e_Dims[0]=n; | |||
| 43539 | capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 43540 | capi_e_tmp = array_from_pyobj(NPY_CDOUBLE,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct)); | |||
| 43541 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 43542 | if (!PyErr_Occurred()) | |||
| 43543 | PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.zsyconv to C/Fortran array" ); | |||
| 43544 | } else { | |||
| 43545 | e = (complex_double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 43546 | ||||
| 43547 | /*end of frompyobj*/ | |||
| 43548 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43549 | f2py_start_call_clock(); | |||
| 43550 | #endif | |||
| 43551 | /*callfortranroutine*/ | |||
| 43552 | (*f2py_func)((lower?"L":"U"),(way?"R":"C"),&n,a,&lda,ipiv,e,&info) ; | |||
| 43553 | /*(*f2py_func)(&lower,&way,&n,a,&lda,ipiv,e,&info);*/ | |||
| 43554 | if (PyErr_Occurred()) | |||
| 43555 | f2py_success = 0; | |||
| 43556 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43557 | f2py_stop_call_clock(); | |||
| 43558 | #endif | |||
| 43559 | /*end of callfortranroutine*/ | |||
| 43560 | if (f2py_success) { | |||
| 43561 | /*pyobjfrom*/ | |||
| 43562 | /*end of pyobjfrom*/ | |||
| 43563 | CFUNCSMESS("Building return value.\n"); | |||
| 43564 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_e_tmp,info); | |||
| 43565 | /*closepyobjfrom*/ | |||
| 43566 | /*end of closepyobjfrom*/ | |||
| 43567 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 43568 | /*cleanupfrompyobj*/ | |||
| 43569 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 43570 | /* End of cleaning variable e */ | |||
| 43571 | if((PyObject *)capi_ipiv_tmp!=ipiv_capi) { | |||
| 43572 | Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); } | |||
| 43573 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 43574 | /* End of cleaning variable ipiv */ | |||
| 43575 | /* End of cleaning variable lda */ | |||
| 43576 | /* End of cleaning variable n */ | |||
| 43577 | /* End of cleaning variable info */ | |||
| 43578 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 43579 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 43580 | /* End of cleaning variable a */ | |||
| 43581 | } /*CHECKSCALAR(way==0||way==1)*/ | |||
| 43582 | } /*if (f2py_success) of way*/ | |||
| 43583 | /* End of cleaning variable way */ | |||
| 43584 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 43585 | } /*if (f2py_success) of lower*/ | |||
| 43586 | /* End of cleaning variable lower */ | |||
| 43587 | /*end of cleanupfrompyobj*/ | |||
| 43588 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 43589 | /*routdebugfailure*/ | |||
| 43590 | } else { | |||
| 43591 | /*routdebugleave*/ | |||
| 43592 | } | |||
| 43593 | CFUNCSMESS("Freeing memory.\n"); | |||
| 43594 | /*freemem*/ | |||
| 43595 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43596 | f2py_stop_clock(); | |||
| 43597 | #endif | |||
| 43598 | return capi_buildvalue; | |||
| 43599 | } | |||
| 43600 | /******************************* end of zsyconv *******************************/ | |||
| 43601 | ||||
| 43602 | /*********************************** chegst ***********************************/ | |||
| 43603 | static char doc_f2py_rout__flapack_chegst[] = "\ | |||
| 43604 | c,info = chegst(a,b,[itype,lower,overwrite_a])\n\nWrapper for ``chegst``.\ | |||
| 43605 | \n\nParameters\n----------\n" | |||
| 43606 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 43607 | "b : input rank-2 array('F') with bounds (n,n)\n" | |||
| 43608 | "\nOther Parameters\n----------------\n" | |||
| 43609 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 43610 | "itype : input int, optional\n Default: 1\n" | |||
| 43611 | "lower : input int, optional\n Default: 0\n" | |||
| 43612 | "\nReturns\n-------\n" | |||
| 43613 | "c : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 43614 | "info : int"; | |||
| 43615 | /* extern void F_FUNC(chegst,CHEGST)(F_INT*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 43616 | static PyObject *f2py_rout__flapack_chegst(const PyObject *capi_self, | |||
| 43617 | PyObject *capi_args, | |||
| 43618 | PyObject *capi_keywds, | |||
| 43619 | void (*f2py_func)(F_INTint*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 43620 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 43621 | volatile int f2py_success = 1; | |||
| 43622 | /*decl*/ | |||
| 43623 | ||||
| 43624 | int n = 0; | |||
| 43625 | complex_float *a = NULL((void*)0); | |||
| 43626 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 43627 | const int a_Rank = 2; | |||
| 43628 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 43629 | int capi_a_intent = 0; | |||
| 43630 | int capi_overwrite_a = 0; | |||
| 43631 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 43632 | int lda = 0; | |||
| 43633 | complex_float *b = NULL((void*)0); | |||
| 43634 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 43635 | const int b_Rank = 2; | |||
| 43636 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 43637 | int capi_b_intent = 0; | |||
| 43638 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 43639 | int ldb = 0; | |||
| 43640 | int info = 0; | |||
| 43641 | int itype = 0; | |||
| 43642 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 43643 | int lower = 0; | |||
| 43644 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 43645 | static char *capi_kwlist[] = {"a","b","itype","lower","overwrite_a",NULL((void*)0)}; | |||
| 43646 | ||||
| 43647 | /*routdebugenter*/ | |||
| 43648 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43649 | f2py_start_clock(); | |||
| 43650 | #endif | |||
| 43651 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 43652 | "OO|OOi:_flapack.chegst",\ | |||
| 43653 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&lower_capi,&capi_overwrite_a)) | |||
| 43654 | return NULL((void*)0); | |||
| 43655 | /*frompyobj*/ | |||
| 43656 | /* Processing variable itype */ | |||
| 43657 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 43658 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.chegst() 1st keyword (itype) can't be converted to int"); | |||
| 43659 | if (f2py_success) { | |||
| 43660 | CHECKSCALAR(itype==1||itype==2||itype==3,"itype==1||itype==2||itype==3","1st keyword itype","chegst:itype=%d",itype)if (!(itype==1||itype==2||itype==3)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegst:itype=%d", "(""itype==1||itype==2||itype==3" ") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 43661 | /* Processing variable lower */ | |||
| 43662 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 43663 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chegst() 2nd keyword (lower) can't be converted to int"); | |||
| 43664 | if (f2py_success) { | |||
| 43665 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","chegst:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegst:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 43666 | /* Processing variable a */ | |||
| 43667 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 43668 | ; | |||
| 43669 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 43670 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 43671 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 43672 | if (!PyErr_Occurred()) | |||
| 43673 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chegst to C/Fortran array" ); | |||
| 43674 | } else { | |||
| 43675 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 43676 | ||||
| 43677 | /* Processing variable info */ | |||
| 43678 | /* Processing variable n */ | |||
| 43679 | n = shape(a,0)a_Dims[0]; | |||
| 43680 | /* Processing variable lda */ | |||
| 43681 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 43682 | /* Processing variable b */ | |||
| 43683 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 43684 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 43685 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 43686 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 43687 | if (!PyErr_Occurred()) | |||
| 43688 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.chegst to C/Fortran array" ); | |||
| 43689 | } else { | |||
| 43690 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 43691 | ||||
| 43692 | /* Processing variable ldb */ | |||
| 43693 | ldb = max(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 43694 | /*end of frompyobj*/ | |||
| 43695 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43696 | f2py_start_call_clock(); | |||
| 43697 | #endif | |||
| 43698 | /*callfortranroutine*/ | |||
| 43699 | (*f2py_func)(&itype,(lower?"L":"U"),&n,a,&lda,b,&ldb,&info) ; | |||
| 43700 | /*(*f2py_func)(&n,a,&lda,b,&ldb,&info,&itype,&lower);*/ | |||
| 43701 | if (PyErr_Occurred()) | |||
| 43702 | f2py_success = 0; | |||
| 43703 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43704 | f2py_stop_call_clock(); | |||
| 43705 | #endif | |||
| 43706 | /*end of callfortranroutine*/ | |||
| 43707 | if (f2py_success) { | |||
| 43708 | /*pyobjfrom*/ | |||
| 43709 | /*end of pyobjfrom*/ | |||
| 43710 | CFUNCSMESS("Building return value.\n"); | |||
| 43711 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 43712 | /*closepyobjfrom*/ | |||
| 43713 | /*end of closepyobjfrom*/ | |||
| 43714 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 43715 | /*cleanupfrompyobj*/ | |||
| 43716 | /* End of cleaning variable ldb */ | |||
| 43717 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 43718 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 43719 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 43720 | /* End of cleaning variable b */ | |||
| 43721 | /* End of cleaning variable lda */ | |||
| 43722 | /* End of cleaning variable n */ | |||
| 43723 | /* End of cleaning variable info */ | |||
| 43724 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 43725 | /* End of cleaning variable a */ | |||
| 43726 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 43727 | } /*if (f2py_success) of lower*/ | |||
| 43728 | /* End of cleaning variable lower */ | |||
| 43729 | } /*CHECKSCALAR(itype==1||itype==2||itype==3)*/ | |||
| 43730 | } /*if (f2py_success) of itype*/ | |||
| 43731 | /* End of cleaning variable itype */ | |||
| 43732 | /*end of cleanupfrompyobj*/ | |||
| 43733 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 43734 | /*routdebugfailure*/ | |||
| 43735 | } else { | |||
| 43736 | /*routdebugleave*/ | |||
| 43737 | } | |||
| 43738 | CFUNCSMESS("Freeing memory.\n"); | |||
| 43739 | /*freemem*/ | |||
| 43740 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43741 | f2py_stop_clock(); | |||
| 43742 | #endif | |||
| 43743 | return capi_buildvalue; | |||
| 43744 | } | |||
| 43745 | /******************************* end of chegst *******************************/ | |||
| 43746 | ||||
| 43747 | /*********************************** zhegst ***********************************/ | |||
| 43748 | static char doc_f2py_rout__flapack_zhegst[] = "\ | |||
| 43749 | c,info = zhegst(a,b,[itype,lower,overwrite_a])\n\nWrapper for ``zhegst``.\ | |||
| 43750 | \n\nParameters\n----------\n" | |||
| 43751 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 43752 | "b : input rank-2 array('D') with bounds (n,n)\n" | |||
| 43753 | "\nOther Parameters\n----------------\n" | |||
| 43754 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 43755 | "itype : input int, optional\n Default: 1\n" | |||
| 43756 | "lower : input int, optional\n Default: 0\n" | |||
| 43757 | "\nReturns\n-------\n" | |||
| 43758 | "c : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 43759 | "info : int"; | |||
| 43760 | /* extern void F_FUNC(zhegst,ZHEGST)(F_INT*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 43761 | static PyObject *f2py_rout__flapack_zhegst(const PyObject *capi_self, | |||
| 43762 | PyObject *capi_args, | |||
| 43763 | PyObject *capi_keywds, | |||
| 43764 | void (*f2py_func)(F_INTint*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 43765 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 43766 | volatile int f2py_success = 1; | |||
| 43767 | /*decl*/ | |||
| 43768 | ||||
| 43769 | int n = 0; | |||
| 43770 | complex_double *a = NULL((void*)0); | |||
| 43771 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 43772 | const int a_Rank = 2; | |||
| 43773 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 43774 | int capi_a_intent = 0; | |||
| 43775 | int capi_overwrite_a = 0; | |||
| 43776 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 43777 | int lda = 0; | |||
| 43778 | complex_double *b = NULL((void*)0); | |||
| 43779 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 43780 | const int b_Rank = 2; | |||
| 43781 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 43782 | int capi_b_intent = 0; | |||
| 43783 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 43784 | int ldb = 0; | |||
| 43785 | int info = 0; | |||
| 43786 | int itype = 0; | |||
| 43787 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 43788 | int lower = 0; | |||
| 43789 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 43790 | static char *capi_kwlist[] = {"a","b","itype","lower","overwrite_a",NULL((void*)0)}; | |||
| 43791 | ||||
| 43792 | /*routdebugenter*/ | |||
| 43793 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43794 | f2py_start_clock(); | |||
| 43795 | #endif | |||
| 43796 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 43797 | "OO|OOi:_flapack.zhegst",\ | |||
| 43798 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&lower_capi,&capi_overwrite_a)) | |||
| 43799 | return NULL((void*)0); | |||
| 43800 | /*frompyobj*/ | |||
| 43801 | /* Processing variable itype */ | |||
| 43802 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 43803 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.zhegst() 1st keyword (itype) can't be converted to int"); | |||
| 43804 | if (f2py_success) { | |||
| 43805 | CHECKSCALAR(itype==1||itype==2||itype==3,"itype==1||itype==2||itype==3","1st keyword itype","zhegst:itype=%d",itype)if (!(itype==1||itype==2||itype==3)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegst:itype=%d", "(""itype==1||itype==2||itype==3" ") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 43806 | /* Processing variable lower */ | |||
| 43807 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 43808 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhegst() 2nd keyword (lower) can't be converted to int"); | |||
| 43809 | if (f2py_success) { | |||
| 43810 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zhegst:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegst:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 43811 | /* Processing variable a */ | |||
| 43812 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 43813 | ; | |||
| 43814 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 43815 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 43816 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 43817 | if (!PyErr_Occurred()) | |||
| 43818 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhegst to C/Fortran array" ); | |||
| 43819 | } else { | |||
| 43820 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 43821 | ||||
| 43822 | /* Processing variable info */ | |||
| 43823 | /* Processing variable n */ | |||
| 43824 | n = shape(a,0)a_Dims[0]; | |||
| 43825 | /* Processing variable lda */ | |||
| 43826 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 43827 | /* Processing variable b */ | |||
| 43828 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 43829 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 43830 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 43831 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 43832 | if (!PyErr_Occurred()) | |||
| 43833 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zhegst to C/Fortran array" ); | |||
| 43834 | } else { | |||
| 43835 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 43836 | ||||
| 43837 | /* Processing variable ldb */ | |||
| 43838 | ldb = max(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 43839 | /*end of frompyobj*/ | |||
| 43840 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43841 | f2py_start_call_clock(); | |||
| 43842 | #endif | |||
| 43843 | /*callfortranroutine*/ | |||
| 43844 | (*f2py_func)(&itype,(lower?"L":"U"),&n,a,&lda,b,&ldb,&info) ; | |||
| 43845 | /*(*f2py_func)(&n,a,&lda,b,&ldb,&info,&itype,&lower);*/ | |||
| 43846 | if (PyErr_Occurred()) | |||
| 43847 | f2py_success = 0; | |||
| 43848 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43849 | f2py_stop_call_clock(); | |||
| 43850 | #endif | |||
| 43851 | /*end of callfortranroutine*/ | |||
| 43852 | if (f2py_success) { | |||
| 43853 | /*pyobjfrom*/ | |||
| 43854 | /*end of pyobjfrom*/ | |||
| 43855 | CFUNCSMESS("Building return value.\n"); | |||
| 43856 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 43857 | /*closepyobjfrom*/ | |||
| 43858 | /*end of closepyobjfrom*/ | |||
| 43859 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 43860 | /*cleanupfrompyobj*/ | |||
| 43861 | /* End of cleaning variable ldb */ | |||
| 43862 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 43863 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 43864 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 43865 | /* End of cleaning variable b */ | |||
| 43866 | /* End of cleaning variable lda */ | |||
| 43867 | /* End of cleaning variable n */ | |||
| 43868 | /* End of cleaning variable info */ | |||
| 43869 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 43870 | /* End of cleaning variable a */ | |||
| 43871 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 43872 | } /*if (f2py_success) of lower*/ | |||
| 43873 | /* End of cleaning variable lower */ | |||
| 43874 | } /*CHECKSCALAR(itype==1||itype==2||itype==3)*/ | |||
| 43875 | } /*if (f2py_success) of itype*/ | |||
| 43876 | /* End of cleaning variable itype */ | |||
| 43877 | /*end of cleanupfrompyobj*/ | |||
| 43878 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 43879 | /*routdebugfailure*/ | |||
| 43880 | } else { | |||
| 43881 | /*routdebugleave*/ | |||
| 43882 | } | |||
| 43883 | CFUNCSMESS("Freeing memory.\n"); | |||
| 43884 | /*freemem*/ | |||
| 43885 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43886 | f2py_stop_clock(); | |||
| 43887 | #endif | |||
| 43888 | return capi_buildvalue; | |||
| 43889 | } | |||
| 43890 | /******************************* end of zhegst *******************************/ | |||
| 43891 | ||||
| 43892 | /*********************************** chetrf ***********************************/ | |||
| 43893 | static char doc_f2py_rout__flapack_chetrf[] = "\ | |||
| 43894 | ldu,ipiv,info = chetrf(a,[lower,lwork,overwrite_a])\n\nWrapper for ``chetrf``.\ | |||
| 43895 | \n\nParameters\n----------\n" | |||
| 43896 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 43897 | "\nOther Parameters\n----------------\n" | |||
| 43898 | "lower : input int, optional\n Default: 0\n" | |||
| 43899 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 43900 | "lwork : input int, optional\n Default: max(n,1)\n" | |||
| 43901 | "\nReturns\n-------\n" | |||
| 43902 | "ldu : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 43903 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 43904 | "info : int"; | |||
| 43905 | /* extern void F_FUNC(chetrf,CHETRF)(char*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 43906 | static PyObject *f2py_rout__flapack_chetrf(const PyObject *capi_self, | |||
| 43907 | PyObject *capi_args, | |||
| 43908 | PyObject *capi_keywds, | |||
| 43909 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 43910 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 43911 | volatile int f2py_success = 1; | |||
| 43912 | /*decl*/ | |||
| 43913 | ||||
| 43914 | int lower = 0; | |||
| 43915 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 43916 | int n = 0; | |||
| 43917 | complex_float *a = NULL((void*)0); | |||
| 43918 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 43919 | const int a_Rank = 2; | |||
| 43920 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 43921 | int capi_a_intent = 0; | |||
| 43922 | int capi_overwrite_a = 0; | |||
| 43923 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 43924 | int lda = 0; | |||
| 43925 | int *ipiv = NULL((void*)0); | |||
| 43926 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 43927 | const int ipiv_Rank = 1; | |||
| 43928 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 43929 | int capi_ipiv_intent = 0; | |||
| 43930 | complex_float *work = NULL((void*)0); | |||
| 43931 | npy_intp work_Dims[1] = {-1}; | |||
| 43932 | const int work_Rank = 1; | |||
| 43933 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 43934 | int capi_work_intent = 0; | |||
| 43935 | int lwork = 0; | |||
| 43936 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 43937 | int info = 0; | |||
| 43938 | static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 43939 | ||||
| 43940 | /*routdebugenter*/ | |||
| 43941 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43942 | f2py_start_clock(); | |||
| 43943 | #endif | |||
| 43944 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 43945 | "O|OOi:_flapack.chetrf",\ | |||
| 43946 | capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 43947 | return NULL((void*)0); | |||
| 43948 | /*frompyobj*/ | |||
| 43949 | /* Processing variable lower */ | |||
| 43950 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 43951 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chetrf() 1st keyword (lower) can't be converted to int"); | |||
| 43952 | if (f2py_success) { | |||
| 43953 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","chetrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chetrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 43954 | /* Processing variable a */ | |||
| 43955 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 43956 | ; | |||
| 43957 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 43958 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 43959 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 43960 | if (!PyErr_Occurred()) | |||
| 43961 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chetrf to C/Fortran array" ); | |||
| 43962 | } else { | |||
| 43963 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 43964 | ||||
| 43965 | /* Processing variable info */ | |||
| 43966 | /* Processing variable n */ | |||
| 43967 | n = shape(a,0)a_Dims[0]; | |||
| 43968 | /* Processing variable lda */ | |||
| 43969 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 43970 | /* Processing variable ipiv */ | |||
| 43971 | ipiv_Dims[0]=n; | |||
| 43972 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 43973 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 43974 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 43975 | if (!PyErr_Occurred()) | |||
| 43976 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.chetrf to C/Fortran array" ); | |||
| 43977 | } else { | |||
| 43978 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 43979 | ||||
| 43980 | /* Processing variable lwork */ | |||
| 43981 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else | |||
| 43982 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chetrf() 2nd keyword (lwork) can't be converted to int"); | |||
| 43983 | if (f2py_success) { | |||
| 43984 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","2nd keyword lwork","chetrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chetrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 43985 | /* Processing variable work */ | |||
| 43986 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 43987 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 43988 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 43989 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 43990 | if (!PyErr_Occurred()) | |||
| 43991 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chetrf to C/Fortran array" ); | |||
| 43992 | } else { | |||
| 43993 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 43994 | ||||
| 43995 | /*end of frompyobj*/ | |||
| 43996 | #ifdef F2PY_REPORT_ATEXIT | |||
| 43997 | f2py_start_call_clock(); | |||
| 43998 | #endif | |||
| 43999 | /*callfortranroutine*/ | |||
| 44000 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,work,&lwork,&info) ; | |||
| 44001 | /*(*f2py_func)(&lower,&n,a,&lda,ipiv,work,&lwork,&info);*/ | |||
| 44002 | if (PyErr_Occurred()) | |||
| 44003 | f2py_success = 0; | |||
| 44004 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44005 | f2py_stop_call_clock(); | |||
| 44006 | #endif | |||
| 44007 | /*end of callfortranroutine*/ | |||
| 44008 | if (f2py_success) { | |||
| 44009 | /*pyobjfrom*/ | |||
| 44010 | /*end of pyobjfrom*/ | |||
| 44011 | CFUNCSMESS("Building return value.\n"); | |||
| 44012 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info); | |||
| 44013 | /*closepyobjfrom*/ | |||
| 44014 | /*end of closepyobjfrom*/ | |||
| 44015 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 44016 | /*cleanupfrompyobj*/ | |||
| 44017 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 44018 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 44019 | /* End of cleaning variable work */ | |||
| 44020 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 44021 | } /*if (f2py_success) of lwork*/ | |||
| 44022 | /* End of cleaning variable lwork */ | |||
| 44023 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 44024 | /* End of cleaning variable ipiv */ | |||
| 44025 | /* End of cleaning variable lda */ | |||
| 44026 | /* End of cleaning variable n */ | |||
| 44027 | /* End of cleaning variable info */ | |||
| 44028 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 44029 | /* End of cleaning variable a */ | |||
| 44030 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 44031 | } /*if (f2py_success) of lower*/ | |||
| 44032 | /* End of cleaning variable lower */ | |||
| 44033 | /*end of cleanupfrompyobj*/ | |||
| 44034 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 44035 | /*routdebugfailure*/ | |||
| 44036 | } else { | |||
| 44037 | /*routdebugleave*/ | |||
| 44038 | } | |||
| 44039 | CFUNCSMESS("Freeing memory.\n"); | |||
| 44040 | /*freemem*/ | |||
| 44041 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44042 | f2py_stop_clock(); | |||
| 44043 | #endif | |||
| 44044 | return capi_buildvalue; | |||
| 44045 | } | |||
| 44046 | /******************************* end of chetrf *******************************/ | |||
| 44047 | ||||
| 44048 | /*********************************** zhetrf ***********************************/ | |||
| 44049 | static char doc_f2py_rout__flapack_zhetrf[] = "\ | |||
| 44050 | ldu,ipiv,info = zhetrf(a,[lower,lwork,overwrite_a])\n\nWrapper for ``zhetrf``.\ | |||
| 44051 | \n\nParameters\n----------\n" | |||
| 44052 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 44053 | "\nOther Parameters\n----------------\n" | |||
| 44054 | "lower : input int, optional\n Default: 0\n" | |||
| 44055 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 44056 | "lwork : input int, optional\n Default: max(n,1)\n" | |||
| 44057 | "\nReturns\n-------\n" | |||
| 44058 | "ldu : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 44059 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 44060 | "info : int"; | |||
| 44061 | /* extern void F_FUNC(zhetrf,ZHETRF)(char*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 44062 | static PyObject *f2py_rout__flapack_zhetrf(const PyObject *capi_self, | |||
| 44063 | PyObject *capi_args, | |||
| 44064 | PyObject *capi_keywds, | |||
| 44065 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 44066 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 44067 | volatile int f2py_success = 1; | |||
| 44068 | /*decl*/ | |||
| 44069 | ||||
| 44070 | int lower = 0; | |||
| 44071 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 44072 | int n = 0; | |||
| 44073 | complex_double *a = NULL((void*)0); | |||
| 44074 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 44075 | const int a_Rank = 2; | |||
| 44076 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 44077 | int capi_a_intent = 0; | |||
| 44078 | int capi_overwrite_a = 0; | |||
| 44079 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 44080 | int lda = 0; | |||
| 44081 | int *ipiv = NULL((void*)0); | |||
| 44082 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 44083 | const int ipiv_Rank = 1; | |||
| 44084 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 44085 | int capi_ipiv_intent = 0; | |||
| 44086 | complex_double *work = NULL((void*)0); | |||
| 44087 | npy_intp work_Dims[1] = {-1}; | |||
| 44088 | const int work_Rank = 1; | |||
| 44089 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 44090 | int capi_work_intent = 0; | |||
| 44091 | int lwork = 0; | |||
| 44092 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 44093 | int info = 0; | |||
| 44094 | static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 44095 | ||||
| 44096 | /*routdebugenter*/ | |||
| 44097 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44098 | f2py_start_clock(); | |||
| 44099 | #endif | |||
| 44100 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 44101 | "O|OOi:_flapack.zhetrf",\ | |||
| 44102 | capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 44103 | return NULL((void*)0); | |||
| 44104 | /*frompyobj*/ | |||
| 44105 | /* Processing variable lower */ | |||
| 44106 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 44107 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhetrf() 1st keyword (lower) can't be converted to int"); | |||
| 44108 | if (f2py_success) { | |||
| 44109 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhetrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhetrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 44110 | /* Processing variable a */ | |||
| 44111 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 44112 | ; | |||
| 44113 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 44114 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 44115 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 44116 | if (!PyErr_Occurred()) | |||
| 44117 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhetrf to C/Fortran array" ); | |||
| 44118 | } else { | |||
| 44119 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 44120 | ||||
| 44121 | /* Processing variable info */ | |||
| 44122 | /* Processing variable n */ | |||
| 44123 | n = shape(a,0)a_Dims[0]; | |||
| 44124 | /* Processing variable lda */ | |||
| 44125 | lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 44126 | /* Processing variable ipiv */ | |||
| 44127 | ipiv_Dims[0]=n; | |||
| 44128 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 44129 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 44130 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 44131 | if (!PyErr_Occurred()) | |||
| 44132 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zhetrf to C/Fortran array" ); | |||
| 44133 | } else { | |||
| 44134 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 44135 | ||||
| 44136 | /* Processing variable lwork */ | |||
| 44137 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else | |||
| 44138 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhetrf() 2nd keyword (lwork) can't be converted to int"); | |||
| 44139 | if (f2py_success) { | |||
| 44140 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","2nd keyword lwork","zhetrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhetrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 44141 | /* Processing variable work */ | |||
| 44142 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 44143 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 44144 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 44145 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 44146 | if (!PyErr_Occurred()) | |||
| 44147 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhetrf to C/Fortran array" ); | |||
| 44148 | } else { | |||
| 44149 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 44150 | ||||
| 44151 | /*end of frompyobj*/ | |||
| 44152 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44153 | f2py_start_call_clock(); | |||
| 44154 | #endif | |||
| 44155 | /*callfortranroutine*/ | |||
| 44156 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,work,&lwork,&info) ; | |||
| 44157 | /*(*f2py_func)(&lower,&n,a,&lda,ipiv,work,&lwork,&info);*/ | |||
| 44158 | if (PyErr_Occurred()) | |||
| 44159 | f2py_success = 0; | |||
| 44160 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44161 | f2py_stop_call_clock(); | |||
| 44162 | #endif | |||
| 44163 | /*end of callfortranroutine*/ | |||
| 44164 | if (f2py_success) { | |||
| 44165 | /*pyobjfrom*/ | |||
| 44166 | /*end of pyobjfrom*/ | |||
| 44167 | CFUNCSMESS("Building return value.\n"); | |||
| 44168 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info); | |||
| 44169 | /*closepyobjfrom*/ | |||
| 44170 | /*end of closepyobjfrom*/ | |||
| 44171 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 44172 | /*cleanupfrompyobj*/ | |||
| 44173 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 44174 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 44175 | /* End of cleaning variable work */ | |||
| 44176 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 44177 | } /*if (f2py_success) of lwork*/ | |||
| 44178 | /* End of cleaning variable lwork */ | |||
| 44179 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 44180 | /* End of cleaning variable ipiv */ | |||
| 44181 | /* End of cleaning variable lda */ | |||
| 44182 | /* End of cleaning variable n */ | |||
| 44183 | /* End of cleaning variable info */ | |||
| 44184 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 44185 | /* End of cleaning variable a */ | |||
| 44186 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 44187 | } /*if (f2py_success) of lower*/ | |||
| 44188 | /* End of cleaning variable lower */ | |||
| 44189 | /*end of cleanupfrompyobj*/ | |||
| 44190 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 44191 | /*routdebugfailure*/ | |||
| 44192 | } else { | |||
| 44193 | /*routdebugleave*/ | |||
| 44194 | } | |||
| 44195 | CFUNCSMESS("Freeing memory.\n"); | |||
| 44196 | /*freemem*/ | |||
| 44197 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44198 | f2py_stop_clock(); | |||
| 44199 | #endif | |||
| 44200 | return capi_buildvalue; | |||
| 44201 | } | |||
| 44202 | /******************************* end of zhetrf *******************************/ | |||
| 44203 | ||||
| 44204 | /******************************** chetrf_lwork ********************************/ | |||
| 44205 | static char doc_f2py_rout__flapack_chetrf_lwork[] = "\ | |||
| 44206 | work,info = chetrf_lwork(n,[lower])\n\nWrapper for ``chetrf_lwork``.\ | |||
| 44207 | \n\nParameters\n----------\n" | |||
| 44208 | "n : input int\n" | |||
| 44209 | "\nOther Parameters\n----------------\n" | |||
| 44210 | "lower : input int, optional\n Default: 0\n" | |||
| 44211 | "\nReturns\n-------\n" | |||
| 44212 | "work : complex\n" | |||
| 44213 | "info : int"; | |||
| 44214 | /* extern void F_FUNC(chetrf ,CHETRF )(char*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 44215 | static PyObject *f2py_rout__flapack_chetrf_lwork(const PyObject *capi_self, | |||
| 44216 | PyObject *capi_args, | |||
| 44217 | PyObject *capi_keywds, | |||
| 44218 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 44219 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 44220 | volatile int f2py_success = 1; | |||
| 44221 | /*decl*/ | |||
| 44222 | ||||
| 44223 | int lower = 0; | |||
| 44224 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 44225 | int n = 0; | |||
| 44226 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 44227 | complex_float a; | |||
| 44228 | int lda = 0; | |||
| 44229 | int ipiv = 0; | |||
| 44230 | complex_float work; | |||
| 44231 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 44232 | int lwork = 0; | |||
| 44233 | int info = 0; | |||
| 44234 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 44235 | ||||
| 44236 | /*routdebugenter*/ | |||
| 44237 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44238 | f2py_start_clock(); | |||
| 44239 | #endif | |||
| 44240 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 44241 | "O|O:_flapack.chetrf_lwork",\ | |||
| 44242 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 44243 | return NULL((void*)0); | |||
| 44244 | /*frompyobj*/ | |||
| 44245 | /* Processing variable n */ | |||
| 44246 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chetrf_lwork() 1st argument (n) can't be converted to int"); | |||
| 44247 | if (f2py_success) { | |||
| 44248 | /* Processing variable lower */ | |||
| 44249 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 44250 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chetrf_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 44251 | if (f2py_success) { | |||
| 44252 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","chetrf_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chetrf_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 44253 | /* Processing variable a */ | |||
| 44254 | /* Processing variable ipiv */ | |||
| 44255 | /* Processing variable lwork */ | |||
| 44256 | lwork = -1; | |||
| 44257 | /* Processing variable work */ | |||
| 44258 | /* Processing variable info */ | |||
| 44259 | /* Processing variable lda */ | |||
| 44260 | lda = max(n,1)((n > 1) ? (n) : (1)); | |||
| 44261 | /*end of frompyobj*/ | |||
| 44262 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44263 | f2py_start_call_clock(); | |||
| 44264 | #endif | |||
| 44265 | /*callfortranroutine*/ | |||
| 44266 | (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&ipiv,&work,&lwork,&info) ; | |||
| 44267 | /*(*f2py_func)(&lower,&n,&a,&lda,&ipiv,&work,&lwork,&info);*/ | |||
| 44268 | if (PyErr_Occurred()) | |||
| 44269 | f2py_success = 0; | |||
| 44270 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44271 | f2py_stop_call_clock(); | |||
| 44272 | #endif | |||
| 44273 | /*end of callfortranroutine*/ | |||
| 44274 | if (f2py_success) { | |||
| 44275 | /*pyobjfrom*/ | |||
| 44276 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 44277 | /*end of pyobjfrom*/ | |||
| 44278 | CFUNCSMESS("Building return value.\n"); | |||
| 44279 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 44280 | /*closepyobjfrom*/ | |||
| 44281 | /*end of closepyobjfrom*/ | |||
| 44282 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 44283 | /*cleanupfrompyobj*/ | |||
| 44284 | /* End of cleaning variable lda */ | |||
| 44285 | /* End of cleaning variable info */ | |||
| 44286 | /* End of cleaning variable work */ | |||
| 44287 | /* End of cleaning variable lwork */ | |||
| 44288 | /* End of cleaning variable ipiv */ | |||
| 44289 | /* End of cleaning variable a */ | |||
| 44290 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 44291 | } /*if (f2py_success) of lower*/ | |||
| 44292 | /* End of cleaning variable lower */ | |||
| 44293 | } /*if (f2py_success) of n*/ | |||
| 44294 | /* End of cleaning variable n */ | |||
| 44295 | /*end of cleanupfrompyobj*/ | |||
| 44296 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 44297 | /*routdebugfailure*/ | |||
| 44298 | } else { | |||
| 44299 | /*routdebugleave*/ | |||
| 44300 | } | |||
| 44301 | CFUNCSMESS("Freeing memory.\n"); | |||
| 44302 | /*freemem*/ | |||
| 44303 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44304 | f2py_stop_clock(); | |||
| 44305 | #endif | |||
| 44306 | return capi_buildvalue; | |||
| 44307 | } | |||
| 44308 | /**************************** end of chetrf_lwork ****************************/ | |||
| 44309 | ||||
| 44310 | /******************************** zhetrf_lwork ********************************/ | |||
| 44311 | static char doc_f2py_rout__flapack_zhetrf_lwork[] = "\ | |||
| 44312 | work,info = zhetrf_lwork(n,[lower])\n\nWrapper for ``zhetrf_lwork``.\ | |||
| 44313 | \n\nParameters\n----------\n" | |||
| 44314 | "n : input int\n" | |||
| 44315 | "\nOther Parameters\n----------------\n" | |||
| 44316 | "lower : input int, optional\n Default: 0\n" | |||
| 44317 | "\nReturns\n-------\n" | |||
| 44318 | "work : complex\n" | |||
| 44319 | "info : int"; | |||
| 44320 | /* extern void F_FUNC(zhetrf ,ZHETRF )(char*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 44321 | static PyObject *f2py_rout__flapack_zhetrf_lwork(const PyObject *capi_self, | |||
| 44322 | PyObject *capi_args, | |||
| 44323 | PyObject *capi_keywds, | |||
| 44324 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 44325 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 44326 | volatile int f2py_success = 1; | |||
| 44327 | /*decl*/ | |||
| 44328 | ||||
| 44329 | int lower = 0; | |||
| 44330 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 44331 | int n = 0; | |||
| 44332 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 44333 | complex_double a; | |||
| 44334 | int lda = 0; | |||
| 44335 | int ipiv = 0; | |||
| 44336 | complex_double work; | |||
| 44337 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 44338 | int lwork = 0; | |||
| 44339 | int info = 0; | |||
| 44340 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 44341 | ||||
| 44342 | /*routdebugenter*/ | |||
| 44343 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44344 | f2py_start_clock(); | |||
| 44345 | #endif | |||
| 44346 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 44347 | "O|O:_flapack.zhetrf_lwork",\ | |||
| 44348 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 44349 | return NULL((void*)0); | |||
| 44350 | /*frompyobj*/ | |||
| 44351 | /* Processing variable n */ | |||
| 44352 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhetrf_lwork() 1st argument (n) can't be converted to int"); | |||
| 44353 | if (f2py_success) { | |||
| 44354 | /* Processing variable lower */ | |||
| 44355 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 44356 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhetrf_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 44357 | if (f2py_success) { | |||
| 44358 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhetrf_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhetrf_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 44359 | /* Processing variable a */ | |||
| 44360 | /* Processing variable ipiv */ | |||
| 44361 | /* Processing variable lwork */ | |||
| 44362 | lwork = -1; | |||
| 44363 | /* Processing variable work */ | |||
| 44364 | /* Processing variable info */ | |||
| 44365 | /* Processing variable lda */ | |||
| 44366 | lda = max(n,1)((n > 1) ? (n) : (1)); | |||
| 44367 | /*end of frompyobj*/ | |||
| 44368 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44369 | f2py_start_call_clock(); | |||
| 44370 | #endif | |||
| 44371 | /*callfortranroutine*/ | |||
| 44372 | (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&ipiv,&work,&lwork,&info) ; | |||
| 44373 | /*(*f2py_func)(&lower,&n,&a,&lda,&ipiv,&work,&lwork,&info);*/ | |||
| 44374 | if (PyErr_Occurred()) | |||
| 44375 | f2py_success = 0; | |||
| 44376 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44377 | f2py_stop_call_clock(); | |||
| 44378 | #endif | |||
| 44379 | /*end of callfortranroutine*/ | |||
| 44380 | if (f2py_success) { | |||
| 44381 | /*pyobjfrom*/ | |||
| 44382 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 44383 | /*end of pyobjfrom*/ | |||
| 44384 | CFUNCSMESS("Building return value.\n"); | |||
| 44385 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 44386 | /*closepyobjfrom*/ | |||
| 44387 | /*end of closepyobjfrom*/ | |||
| 44388 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 44389 | /*cleanupfrompyobj*/ | |||
| 44390 | /* End of cleaning variable lda */ | |||
| 44391 | /* End of cleaning variable info */ | |||
| 44392 | /* End of cleaning variable work */ | |||
| 44393 | /* End of cleaning variable lwork */ | |||
| 44394 | /* End of cleaning variable ipiv */ | |||
| 44395 | /* End of cleaning variable a */ | |||
| 44396 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 44397 | } /*if (f2py_success) of lower*/ | |||
| 44398 | /* End of cleaning variable lower */ | |||
| 44399 | } /*if (f2py_success) of n*/ | |||
| 44400 | /* End of cleaning variable n */ | |||
| 44401 | /*end of cleanupfrompyobj*/ | |||
| 44402 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 44403 | /*routdebugfailure*/ | |||
| 44404 | } else { | |||
| 44405 | /*routdebugleave*/ | |||
| 44406 | } | |||
| 44407 | CFUNCSMESS("Freeing memory.\n"); | |||
| 44408 | /*freemem*/ | |||
| 44409 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44410 | f2py_stop_clock(); | |||
| 44411 | #endif | |||
| 44412 | return capi_buildvalue; | |||
| 44413 | } | |||
| 44414 | /**************************** end of zhetrf_lwork ****************************/ | |||
| 44415 | ||||
| 44416 | /*********************************** chesv ***********************************/ | |||
| 44417 | static char doc_f2py_rout__flapack_chesv[] = "\ | |||
| 44418 | uduh,ipiv,x,info = chesv(a,b,[lwork,lower,overwrite_a,overwrite_b])\n\nWrapper for ``chesv``.\ | |||
| 44419 | \n\nParameters\n----------\n" | |||
| 44420 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 44421 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 44422 | "\nOther Parameters\n----------------\n" | |||
| 44423 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 44424 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 44425 | "lwork : input int, optional\n Default: max(n,1)\n" | |||
| 44426 | "lower : input int, optional\n Default: 0\n" | |||
| 44427 | "\nReturns\n-------\n" | |||
| 44428 | "uduh : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 44429 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 44430 | "x : rank-2 array('F') with bounds (n,nrhs) and b storage\n" | |||
| 44431 | "info : int"; | |||
| 44432 | /* extern void F_FUNC(chesv,CHESV)(char*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 44433 | static PyObject *f2py_rout__flapack_chesv(const PyObject *capi_self, | |||
| 44434 | PyObject *capi_args, | |||
| 44435 | PyObject *capi_keywds, | |||
| 44436 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 44437 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 44438 | volatile int f2py_success = 1; | |||
| 44439 | /*decl*/ | |||
| 44440 | ||||
| 44441 | int n = 0; | |||
| 44442 | int nrhs = 0; | |||
| 44443 | complex_float *a = NULL((void*)0); | |||
| 44444 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 44445 | const int a_Rank = 2; | |||
| 44446 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 44447 | int capi_a_intent = 0; | |||
| 44448 | int capi_overwrite_a = 0; | |||
| 44449 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 44450 | int lda = 0; | |||
| 44451 | int *ipiv = NULL((void*)0); | |||
| 44452 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 44453 | const int ipiv_Rank = 1; | |||
| 44454 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 44455 | int capi_ipiv_intent = 0; | |||
| 44456 | complex_float *b = NULL((void*)0); | |||
| 44457 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 44458 | const int b_Rank = 2; | |||
| 44459 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 44460 | int capi_b_intent = 0; | |||
| 44461 | int capi_overwrite_b = 0; | |||
| 44462 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 44463 | int ldb = 0; | |||
| 44464 | complex_float *work = NULL((void*)0); | |||
| 44465 | npy_intp work_Dims[1] = {-1}; | |||
| 44466 | const int work_Rank = 1; | |||
| 44467 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 44468 | int capi_work_intent = 0; | |||
| 44469 | int lwork = 0; | |||
| 44470 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 44471 | int info = 0; | |||
| 44472 | int lower = 0; | |||
| 44473 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 44474 | static char *capi_kwlist[] = {"a","b","lwork","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 44475 | ||||
| 44476 | /*routdebugenter*/ | |||
| 44477 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44478 | f2py_start_clock(); | |||
| 44479 | #endif | |||
| 44480 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 44481 | "OO|OOii:_flapack.chesv",\ | |||
| 44482 | capi_kwlist,&a_capi,&b_capi,&lwork_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 44483 | return NULL((void*)0); | |||
| 44484 | /*frompyobj*/ | |||
| 44485 | /* Processing variable lower */ | |||
| 44486 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 44487 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chesv() 2nd keyword (lower) can't be converted to int"); | |||
| 44488 | if (f2py_success) { | |||
| 44489 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","chesv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chesv:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 44490 | /* Processing variable a */ | |||
| 44491 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 44492 | ; | |||
| 44493 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 44494 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 44495 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 44496 | if (!PyErr_Occurred()) | |||
| 44497 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chesv to C/Fortran array" ); | |||
| 44498 | } else { | |||
| 44499 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 44500 | ||||
| 44501 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 44502 | /* Processing variable info */ | |||
| 44503 | /* Processing variable n */ | |||
| 44504 | n = shape(a,0)a_Dims[0]; | |||
| 44505 | /* Processing variable lda */ | |||
| 44506 | lda = shape(a,0)a_Dims[0]; | |||
| 44507 | /* Processing variable ipiv */ | |||
| 44508 | ipiv_Dims[0]=n; | |||
| 44509 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 44510 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 44511 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 44512 | if (!PyErr_Occurred()) | |||
| 44513 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.chesv to C/Fortran array" ); | |||
| 44514 | } else { | |||
| 44515 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 44516 | ||||
| 44517 | /* Processing variable b */ | |||
| 44518 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 44519 | b_Dims[0]=n; | |||
| 44520 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 44521 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 44522 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 44523 | if (!PyErr_Occurred()) | |||
| 44524 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.chesv to C/Fortran array" ); | |||
| 44525 | } else { | |||
| 44526 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 44527 | ||||
| 44528 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 44529 | /* Processing variable ldb */ | |||
| 44530 | ldb = shape(b,0)b_Dims[0]; | |||
| 44531 | /* Processing variable lwork */ | |||
| 44532 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else | |||
| 44533 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chesv() 1st keyword (lwork) can't be converted to int"); | |||
| 44534 | if (f2py_success) { | |||
| 44535 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","1st keyword lwork","chesv:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chesv:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 44536 | /* Processing variable work */ | |||
| 44537 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 44538 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 44539 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 44540 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 44541 | if (!PyErr_Occurred()) | |||
| 44542 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chesv to C/Fortran array" ); | |||
| 44543 | } else { | |||
| 44544 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 44545 | ||||
| 44546 | /* Processing variable nrhs */ | |||
| 44547 | nrhs = shape(b,1)b_Dims[1]; | |||
| 44548 | /*end of frompyobj*/ | |||
| 44549 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44550 | f2py_start_call_clock(); | |||
| 44551 | #endif | |||
| 44552 | /*callfortranroutine*/ | |||
| 44553 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 44554 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info) ; | |||
| 44555 | /*(*f2py_func)(&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info,&lower);*/ | |||
| 44556 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 44557 | if (PyErr_Occurred()) | |||
| 44558 | f2py_success = 0; | |||
| 44559 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44560 | f2py_stop_call_clock(); | |||
| 44561 | #endif | |||
| 44562 | /*end of callfortranroutine*/ | |||
| 44563 | if (f2py_success) { | |||
| 44564 | /*pyobjfrom*/ | |||
| 44565 | /*end of pyobjfrom*/ | |||
| 44566 | CFUNCSMESS("Building return value.\n"); | |||
| 44567 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_b_tmp,info); | |||
| 44568 | /*closepyobjfrom*/ | |||
| 44569 | /*end of closepyobjfrom*/ | |||
| 44570 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 44571 | /*cleanupfrompyobj*/ | |||
| 44572 | /* End of cleaning variable nrhs */ | |||
| 44573 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 44574 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 44575 | /* End of cleaning variable work */ | |||
| 44576 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 44577 | } /*if (f2py_success) of lwork*/ | |||
| 44578 | /* End of cleaning variable lwork */ | |||
| 44579 | /* End of cleaning variable ldb */ | |||
| 44580 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 44581 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 44582 | /* End of cleaning variable b */ | |||
| 44583 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 44584 | /* End of cleaning variable ipiv */ | |||
| 44585 | /* End of cleaning variable lda */ | |||
| 44586 | /* End of cleaning variable n */ | |||
| 44587 | /* End of cleaning variable info */ | |||
| 44588 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 44589 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 44590 | /* End of cleaning variable a */ | |||
| 44591 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 44592 | } /*if (f2py_success) of lower*/ | |||
| 44593 | /* End of cleaning variable lower */ | |||
| 44594 | /*end of cleanupfrompyobj*/ | |||
| 44595 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 44596 | /*routdebugfailure*/ | |||
| 44597 | } else { | |||
| 44598 | /*routdebugleave*/ | |||
| 44599 | } | |||
| 44600 | CFUNCSMESS("Freeing memory.\n"); | |||
| 44601 | /*freemem*/ | |||
| 44602 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44603 | f2py_stop_clock(); | |||
| 44604 | #endif | |||
| 44605 | return capi_buildvalue; | |||
| 44606 | } | |||
| 44607 | /******************************** end of chesv ********************************/ | |||
| 44608 | ||||
| 44609 | /*********************************** zhesv ***********************************/ | |||
| 44610 | static char doc_f2py_rout__flapack_zhesv[] = "\ | |||
| 44611 | uduh,ipiv,x,info = zhesv(a,b,[lwork,lower,overwrite_a,overwrite_b])\n\nWrapper for ``zhesv``.\ | |||
| 44612 | \n\nParameters\n----------\n" | |||
| 44613 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 44614 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 44615 | "\nOther Parameters\n----------------\n" | |||
| 44616 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 44617 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 44618 | "lwork : input int, optional\n Default: max(n,1)\n" | |||
| 44619 | "lower : input int, optional\n Default: 0\n" | |||
| 44620 | "\nReturns\n-------\n" | |||
| 44621 | "uduh : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 44622 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 44623 | "x : rank-2 array('D') with bounds (n,nrhs) and b storage\n" | |||
| 44624 | "info : int"; | |||
| 44625 | /* extern void F_FUNC(zhesv,ZHESV)(char*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 44626 | static PyObject *f2py_rout__flapack_zhesv(const PyObject *capi_self, | |||
| 44627 | PyObject *capi_args, | |||
| 44628 | PyObject *capi_keywds, | |||
| 44629 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 44630 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 44631 | volatile int f2py_success = 1; | |||
| 44632 | /*decl*/ | |||
| 44633 | ||||
| 44634 | int n = 0; | |||
| 44635 | int nrhs = 0; | |||
| 44636 | complex_double *a = NULL((void*)0); | |||
| 44637 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 44638 | const int a_Rank = 2; | |||
| 44639 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 44640 | int capi_a_intent = 0; | |||
| 44641 | int capi_overwrite_a = 0; | |||
| 44642 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 44643 | int lda = 0; | |||
| 44644 | int *ipiv = NULL((void*)0); | |||
| 44645 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 44646 | const int ipiv_Rank = 1; | |||
| 44647 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 44648 | int capi_ipiv_intent = 0; | |||
| 44649 | complex_double *b = NULL((void*)0); | |||
| 44650 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 44651 | const int b_Rank = 2; | |||
| 44652 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 44653 | int capi_b_intent = 0; | |||
| 44654 | int capi_overwrite_b = 0; | |||
| 44655 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 44656 | int ldb = 0; | |||
| 44657 | complex_double *work = NULL((void*)0); | |||
| 44658 | npy_intp work_Dims[1] = {-1}; | |||
| 44659 | const int work_Rank = 1; | |||
| 44660 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 44661 | int capi_work_intent = 0; | |||
| 44662 | int lwork = 0; | |||
| 44663 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 44664 | int info = 0; | |||
| 44665 | int lower = 0; | |||
| 44666 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 44667 | static char *capi_kwlist[] = {"a","b","lwork","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 44668 | ||||
| 44669 | /*routdebugenter*/ | |||
| 44670 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44671 | f2py_start_clock(); | |||
| 44672 | #endif | |||
| 44673 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 44674 | "OO|OOii:_flapack.zhesv",\ | |||
| 44675 | capi_kwlist,&a_capi,&b_capi,&lwork_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 44676 | return NULL((void*)0); | |||
| 44677 | /*frompyobj*/ | |||
| 44678 | /* Processing variable lower */ | |||
| 44679 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 44680 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhesv() 2nd keyword (lower) can't be converted to int"); | |||
| 44681 | if (f2py_success) { | |||
| 44682 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zhesv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhesv:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 44683 | /* Processing variable a */ | |||
| 44684 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 44685 | ; | |||
| 44686 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 44687 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 44688 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 44689 | if (!PyErr_Occurred()) | |||
| 44690 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhesv to C/Fortran array" ); | |||
| 44691 | } else { | |||
| 44692 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 44693 | ||||
| 44694 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 44695 | /* Processing variable info */ | |||
| 44696 | /* Processing variable n */ | |||
| 44697 | n = shape(a,0)a_Dims[0]; | |||
| 44698 | /* Processing variable lda */ | |||
| 44699 | lda = shape(a,0)a_Dims[0]; | |||
| 44700 | /* Processing variable ipiv */ | |||
| 44701 | ipiv_Dims[0]=n; | |||
| 44702 | capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 44703 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct)); | |||
| 44704 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 44705 | if (!PyErr_Occurred()) | |||
| 44706 | PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zhesv to C/Fortran array" ); | |||
| 44707 | } else { | |||
| 44708 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 44709 | ||||
| 44710 | /* Processing variable b */ | |||
| 44711 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 44712 | b_Dims[0]=n; | |||
| 44713 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 44714 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 44715 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 44716 | if (!PyErr_Occurred()) | |||
| 44717 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zhesv to C/Fortran array" ); | |||
| 44718 | } else { | |||
| 44719 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 44720 | ||||
| 44721 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 44722 | /* Processing variable ldb */ | |||
| 44723 | ldb = shape(b,0)b_Dims[0]; | |||
| 44724 | /* Processing variable lwork */ | |||
| 44725 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else | |||
| 44726 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhesv() 1st keyword (lwork) can't be converted to int"); | |||
| 44727 | if (f2py_success) { | |||
| 44728 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","1st keyword lwork","zhesv:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhesv:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 44729 | /* Processing variable work */ | |||
| 44730 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 44731 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 44732 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 44733 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 44734 | if (!PyErr_Occurred()) | |||
| 44735 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhesv to C/Fortran array" ); | |||
| 44736 | } else { | |||
| 44737 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 44738 | ||||
| 44739 | /* Processing variable nrhs */ | |||
| 44740 | nrhs = shape(b,1)b_Dims[1]; | |||
| 44741 | /*end of frompyobj*/ | |||
| 44742 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44743 | f2py_start_call_clock(); | |||
| 44744 | #endif | |||
| 44745 | /*callfortranroutine*/ | |||
| 44746 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 44747 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info) ; | |||
| 44748 | /*(*f2py_func)(&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info,&lower);*/ | |||
| 44749 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 44750 | if (PyErr_Occurred()) | |||
| 44751 | f2py_success = 0; | |||
| 44752 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44753 | f2py_stop_call_clock(); | |||
| 44754 | #endif | |||
| 44755 | /*end of callfortranroutine*/ | |||
| 44756 | if (f2py_success) { | |||
| 44757 | /*pyobjfrom*/ | |||
| 44758 | /*end of pyobjfrom*/ | |||
| 44759 | CFUNCSMESS("Building return value.\n"); | |||
| 44760 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_b_tmp,info); | |||
| 44761 | /*closepyobjfrom*/ | |||
| 44762 | /*end of closepyobjfrom*/ | |||
| 44763 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 44764 | /*cleanupfrompyobj*/ | |||
| 44765 | /* End of cleaning variable nrhs */ | |||
| 44766 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 44767 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 44768 | /* End of cleaning variable work */ | |||
| 44769 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 44770 | } /*if (f2py_success) of lwork*/ | |||
| 44771 | /* End of cleaning variable lwork */ | |||
| 44772 | /* End of cleaning variable ldb */ | |||
| 44773 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 44774 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 44775 | /* End of cleaning variable b */ | |||
| 44776 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 44777 | /* End of cleaning variable ipiv */ | |||
| 44778 | /* End of cleaning variable lda */ | |||
| 44779 | /* End of cleaning variable n */ | |||
| 44780 | /* End of cleaning variable info */ | |||
| 44781 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 44782 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 44783 | /* End of cleaning variable a */ | |||
| 44784 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 44785 | } /*if (f2py_success) of lower*/ | |||
| 44786 | /* End of cleaning variable lower */ | |||
| 44787 | /*end of cleanupfrompyobj*/ | |||
| 44788 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 44789 | /*routdebugfailure*/ | |||
| 44790 | } else { | |||
| 44791 | /*routdebugleave*/ | |||
| 44792 | } | |||
| 44793 | CFUNCSMESS("Freeing memory.\n"); | |||
| 44794 | /*freemem*/ | |||
| 44795 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44796 | f2py_stop_clock(); | |||
| 44797 | #endif | |||
| 44798 | return capi_buildvalue; | |||
| 44799 | } | |||
| 44800 | /******************************** end of zhesv ********************************/ | |||
| 44801 | ||||
| 44802 | /******************************** chesv_lwork ********************************/ | |||
| 44803 | static char doc_f2py_rout__flapack_chesv_lwork[] = "\ | |||
| 44804 | work,info = chesv_lwork(n,[lower])\n\nWrapper for ``chesv_lwork``.\ | |||
| 44805 | \n\nParameters\n----------\n" | |||
| 44806 | "n : input int\n" | |||
| 44807 | "\nOther Parameters\n----------------\n" | |||
| 44808 | "lower : input int, optional\n Default: 0\n" | |||
| 44809 | "\nReturns\n-------\n" | |||
| 44810 | "work : complex\n" | |||
| 44811 | "info : int"; | |||
| 44812 | /* extern void F_FUNC(chesv ,CHESV )(char*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 44813 | static PyObject *f2py_rout__flapack_chesv_lwork(const PyObject *capi_self, | |||
| 44814 | PyObject *capi_args, | |||
| 44815 | PyObject *capi_keywds, | |||
| 44816 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 44817 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 44818 | volatile int f2py_success = 1; | |||
| 44819 | /*decl*/ | |||
| 44820 | ||||
| 44821 | int n = 0; | |||
| 44822 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 44823 | int nrhs = 0; | |||
| 44824 | complex_float a; | |||
| 44825 | int lda = 0; | |||
| 44826 | int ipiv = 0; | |||
| 44827 | complex_float b; | |||
| 44828 | int ldb = 0; | |||
| 44829 | complex_float work; | |||
| 44830 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 44831 | int lwork = 0; | |||
| 44832 | int info = 0; | |||
| 44833 | int lower = 0; | |||
| 44834 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 44835 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 44836 | ||||
| 44837 | /*routdebugenter*/ | |||
| 44838 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44839 | f2py_start_clock(); | |||
| 44840 | #endif | |||
| 44841 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 44842 | "O|O:_flapack.chesv_lwork",\ | |||
| 44843 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 44844 | return NULL((void*)0); | |||
| 44845 | /*frompyobj*/ | |||
| 44846 | /* Processing variable lower */ | |||
| 44847 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 44848 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chesv_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 44849 | if (f2py_success) { | |||
| 44850 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","chesv_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chesv_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 44851 | /* Processing variable n */ | |||
| 44852 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chesv_lwork() 1st argument (n) can't be converted to int"); | |||
| 44853 | if (f2py_success) { | |||
| 44854 | /* Processing variable nrhs */ | |||
| 44855 | nrhs = 1; | |||
| 44856 | /* Processing variable a */ | |||
| 44857 | /* Processing variable ipiv */ | |||
| 44858 | /* Processing variable b */ | |||
| 44859 | /* Processing variable lwork */ | |||
| 44860 | lwork = -1; | |||
| 44861 | /* Processing variable work */ | |||
| 44862 | /* Processing variable info */ | |||
| 44863 | /* Processing variable lda */ | |||
| 44864 | lda = n; | |||
| 44865 | /* Processing variable ldb */ | |||
| 44866 | ldb = n; | |||
| 44867 | /*end of frompyobj*/ | |||
| 44868 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44869 | f2py_start_call_clock(); | |||
| 44870 | #endif | |||
| 44871 | /*callfortranroutine*/ | |||
| 44872 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info) ; | |||
| 44873 | /*(*f2py_func)(&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info,&lower);*/ | |||
| 44874 | if (PyErr_Occurred()) | |||
| 44875 | f2py_success = 0; | |||
| 44876 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44877 | f2py_stop_call_clock(); | |||
| 44878 | #endif | |||
| 44879 | /*end of callfortranroutine*/ | |||
| 44880 | if (f2py_success) { | |||
| 44881 | /*pyobjfrom*/ | |||
| 44882 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 44883 | /*end of pyobjfrom*/ | |||
| 44884 | CFUNCSMESS("Building return value.\n"); | |||
| 44885 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 44886 | /*closepyobjfrom*/ | |||
| 44887 | /*end of closepyobjfrom*/ | |||
| 44888 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 44889 | /*cleanupfrompyobj*/ | |||
| 44890 | /* End of cleaning variable ldb */ | |||
| 44891 | /* End of cleaning variable lda */ | |||
| 44892 | /* End of cleaning variable info */ | |||
| 44893 | /* End of cleaning variable work */ | |||
| 44894 | /* End of cleaning variable lwork */ | |||
| 44895 | /* End of cleaning variable b */ | |||
| 44896 | /* End of cleaning variable ipiv */ | |||
| 44897 | /* End of cleaning variable a */ | |||
| 44898 | /* End of cleaning variable nrhs */ | |||
| 44899 | } /*if (f2py_success) of n*/ | |||
| 44900 | /* End of cleaning variable n */ | |||
| 44901 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 44902 | } /*if (f2py_success) of lower*/ | |||
| 44903 | /* End of cleaning variable lower */ | |||
| 44904 | /*end of cleanupfrompyobj*/ | |||
| 44905 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 44906 | /*routdebugfailure*/ | |||
| 44907 | } else { | |||
| 44908 | /*routdebugleave*/ | |||
| 44909 | } | |||
| 44910 | CFUNCSMESS("Freeing memory.\n"); | |||
| 44911 | /*freemem*/ | |||
| 44912 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44913 | f2py_stop_clock(); | |||
| 44914 | #endif | |||
| 44915 | return capi_buildvalue; | |||
| 44916 | } | |||
| 44917 | /***************************** end of chesv_lwork *****************************/ | |||
| 44918 | ||||
| 44919 | /******************************** zhesv_lwork ********************************/ | |||
| 44920 | static char doc_f2py_rout__flapack_zhesv_lwork[] = "\ | |||
| 44921 | work,info = zhesv_lwork(n,[lower])\n\nWrapper for ``zhesv_lwork``.\ | |||
| 44922 | \n\nParameters\n----------\n" | |||
| 44923 | "n : input int\n" | |||
| 44924 | "\nOther Parameters\n----------------\n" | |||
| 44925 | "lower : input int, optional\n Default: 0\n" | |||
| 44926 | "\nReturns\n-------\n" | |||
| 44927 | "work : complex\n" | |||
| 44928 | "info : int"; | |||
| 44929 | /* extern void F_FUNC(zhesv ,ZHESV )(char*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 44930 | static PyObject *f2py_rout__flapack_zhesv_lwork(const PyObject *capi_self, | |||
| 44931 | PyObject *capi_args, | |||
| 44932 | PyObject *capi_keywds, | |||
| 44933 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 44934 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 44935 | volatile int f2py_success = 1; | |||
| 44936 | /*decl*/ | |||
| 44937 | ||||
| 44938 | int n = 0; | |||
| 44939 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 44940 | int nrhs = 0; | |||
| 44941 | complex_double a; | |||
| 44942 | int lda = 0; | |||
| 44943 | int ipiv = 0; | |||
| 44944 | complex_double b; | |||
| 44945 | int ldb = 0; | |||
| 44946 | complex_double work; | |||
| 44947 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 44948 | int lwork = 0; | |||
| 44949 | int info = 0; | |||
| 44950 | int lower = 0; | |||
| 44951 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 44952 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 44953 | ||||
| 44954 | /*routdebugenter*/ | |||
| 44955 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44956 | f2py_start_clock(); | |||
| 44957 | #endif | |||
| 44958 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 44959 | "O|O:_flapack.zhesv_lwork",\ | |||
| 44960 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 44961 | return NULL((void*)0); | |||
| 44962 | /*frompyobj*/ | |||
| 44963 | /* Processing variable lower */ | |||
| 44964 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 44965 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhesv_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 44966 | if (f2py_success) { | |||
| 44967 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhesv_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhesv_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 44968 | /* Processing variable n */ | |||
| 44969 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhesv_lwork() 1st argument (n) can't be converted to int"); | |||
| 44970 | if (f2py_success) { | |||
| 44971 | /* Processing variable nrhs */ | |||
| 44972 | nrhs = 1; | |||
| 44973 | /* Processing variable a */ | |||
| 44974 | /* Processing variable ipiv */ | |||
| 44975 | /* Processing variable b */ | |||
| 44976 | /* Processing variable lwork */ | |||
| 44977 | lwork = -1; | |||
| 44978 | /* Processing variable work */ | |||
| 44979 | /* Processing variable info */ | |||
| 44980 | /* Processing variable lda */ | |||
| 44981 | lda = n; | |||
| 44982 | /* Processing variable ldb */ | |||
| 44983 | ldb = n; | |||
| 44984 | /*end of frompyobj*/ | |||
| 44985 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44986 | f2py_start_call_clock(); | |||
| 44987 | #endif | |||
| 44988 | /*callfortranroutine*/ | |||
| 44989 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info) ; | |||
| 44990 | /*(*f2py_func)(&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info,&lower);*/ | |||
| 44991 | if (PyErr_Occurred()) | |||
| 44992 | f2py_success = 0; | |||
| 44993 | #ifdef F2PY_REPORT_ATEXIT | |||
| 44994 | f2py_stop_call_clock(); | |||
| 44995 | #endif | |||
| 44996 | /*end of callfortranroutine*/ | |||
| 44997 | if (f2py_success) { | |||
| 44998 | /*pyobjfrom*/ | |||
| 44999 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 45000 | /*end of pyobjfrom*/ | |||
| 45001 | CFUNCSMESS("Building return value.\n"); | |||
| 45002 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 45003 | /*closepyobjfrom*/ | |||
| 45004 | /*end of closepyobjfrom*/ | |||
| 45005 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 45006 | /*cleanupfrompyobj*/ | |||
| 45007 | /* End of cleaning variable ldb */ | |||
| 45008 | /* End of cleaning variable lda */ | |||
| 45009 | /* End of cleaning variable info */ | |||
| 45010 | /* End of cleaning variable work */ | |||
| 45011 | /* End of cleaning variable lwork */ | |||
| 45012 | /* End of cleaning variable b */ | |||
| 45013 | /* End of cleaning variable ipiv */ | |||
| 45014 | /* End of cleaning variable a */ | |||
| 45015 | /* End of cleaning variable nrhs */ | |||
| 45016 | } /*if (f2py_success) of n*/ | |||
| 45017 | /* End of cleaning variable n */ | |||
| 45018 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 45019 | } /*if (f2py_success) of lower*/ | |||
| 45020 | /* End of cleaning variable lower */ | |||
| 45021 | /*end of cleanupfrompyobj*/ | |||
| 45022 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 45023 | /*routdebugfailure*/ | |||
| 45024 | } else { | |||
| 45025 | /*routdebugleave*/ | |||
| 45026 | } | |||
| 45027 | CFUNCSMESS("Freeing memory.\n"); | |||
| 45028 | /*freemem*/ | |||
| 45029 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45030 | f2py_stop_clock(); | |||
| 45031 | #endif | |||
| 45032 | return capi_buildvalue; | |||
| 45033 | } | |||
| 45034 | /***************************** end of zhesv_lwork *****************************/ | |||
| 45035 | ||||
| 45036 | /*********************************** chesvx ***********************************/ | |||
| 45037 | static char doc_f2py_rout__flapack_chesvx[] = "\ | |||
| 45038 | uduh,ipiv,x,rcond,ferr,berr,info = chesvx(a,b,[af,ipiv,lwork,factored,lower,overwrite_a,overwrite_b])\n\nWrapper for ``chesvx``.\ | |||
| 45039 | \n\nParameters\n----------\n" | |||
| 45040 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 45041 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 45042 | "\nOther Parameters\n----------------\n" | |||
| 45043 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 45044 | "af : input rank-2 array('F') with bounds (n,n)\n" | |||
| 45045 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 45046 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 45047 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 45048 | "factored : input int, optional\n Default: 0\n" | |||
| 45049 | "lower : input int, optional\n Default: 0\n" | |||
| 45050 | "\nReturns\n-------\n" | |||
| 45051 | "uduh : rank-2 array('F') with bounds (n,n) and af storage\n" | |||
| 45052 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 45053 | "x : rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 45054 | "rcond : float\n" | |||
| 45055 | "ferr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 45056 | "berr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 45057 | "info : int"; | |||
| 45058 | /* extern void F_FUNC(chesvx,CHESVX)(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 45059 | static PyObject *f2py_rout__flapack_chesvx(const PyObject *capi_self, | |||
| 45060 | PyObject *capi_args, | |||
| 45061 | PyObject *capi_keywds, | |||
| 45062 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 45063 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 45064 | volatile int f2py_success = 1; | |||
| 45065 | /*decl*/ | |||
| 45066 | ||||
| 45067 | int n = 0; | |||
| 45068 | int nrhs = 0; | |||
| 45069 | complex_float *a = NULL((void*)0); | |||
| 45070 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 45071 | const int a_Rank = 2; | |||
| 45072 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 45073 | int capi_a_intent = 0; | |||
| 45074 | int capi_overwrite_a = 0; | |||
| 45075 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 45076 | int lda = 0; | |||
| 45077 | complex_float *af = NULL((void*)0); | |||
| 45078 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 45079 | const int af_Rank = 2; | |||
| 45080 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 45081 | int capi_af_intent = 0; | |||
| 45082 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 45083 | int ldaf = 0; | |||
| 45084 | int *ipiv = NULL((void*)0); | |||
| 45085 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 45086 | const int ipiv_Rank = 1; | |||
| 45087 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 45088 | int capi_ipiv_intent = 0; | |||
| 45089 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 45090 | complex_float *b = NULL((void*)0); | |||
| 45091 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 45092 | const int b_Rank = 2; | |||
| 45093 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 45094 | int capi_b_intent = 0; | |||
| 45095 | int capi_overwrite_b = 0; | |||
| 45096 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 45097 | int ldb = 0; | |||
| 45098 | complex_float *x = NULL((void*)0); | |||
| 45099 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 45100 | const int x_Rank = 2; | |||
| 45101 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 45102 | int capi_x_intent = 0; | |||
| 45103 | int ldx = 0; | |||
| 45104 | float rcond = 0; | |||
| 45105 | float *ferr = NULL((void*)0); | |||
| 45106 | npy_intp ferr_Dims[1] = {-1}; | |||
| 45107 | const int ferr_Rank = 1; | |||
| 45108 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 45109 | int capi_ferr_intent = 0; | |||
| 45110 | float *berr = NULL((void*)0); | |||
| 45111 | npy_intp berr_Dims[1] = {-1}; | |||
| 45112 | const int berr_Rank = 1; | |||
| 45113 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 45114 | int capi_berr_intent = 0; | |||
| 45115 | complex_float *work = NULL((void*)0); | |||
| 45116 | npy_intp work_Dims[1] = {-1}; | |||
| 45117 | const int work_Rank = 1; | |||
| 45118 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 45119 | int capi_work_intent = 0; | |||
| 45120 | int lwork = 0; | |||
| 45121 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 45122 | float *rwork = NULL((void*)0); | |||
| 45123 | npy_intp rwork_Dims[1] = {-1}; | |||
| 45124 | const int rwork_Rank = 1; | |||
| 45125 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 45126 | int capi_rwork_intent = 0; | |||
| 45127 | int info = 0; | |||
| 45128 | int factored = 0; | |||
| 45129 | PyObject *factored_capi = Py_None(&_Py_NoneStruct); | |||
| 45130 | int lower = 0; | |||
| 45131 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 45132 | static char *capi_kwlist[] = {"a","b","af","ipiv","lwork","factored","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 45133 | ||||
| 45134 | /*routdebugenter*/ | |||
| 45135 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45136 | f2py_start_clock(); | |||
| 45137 | #endif | |||
| 45138 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 45139 | "OO|OOOOOii:_flapack.chesvx",\ | |||
| 45140 | capi_kwlist,&a_capi,&b_capi,&af_capi,&ipiv_capi,&lwork_capi,&factored_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 45141 | return NULL((void*)0); | |||
| 45142 | /*frompyobj*/ | |||
| 45143 | /* Processing variable factored */ | |||
| 45144 | if (factored_capi == Py_None(&_Py_NoneStruct)) factored = 0; else | |||
| 45145 | f2py_success = int_from_pyobj(&factored,factored_capi,"_flapack.chesvx() 4th keyword (factored) can't be converted to int"); | |||
| 45146 | if (f2py_success) { | |||
| 45147 | CHECKSCALAR(factored==0||factored==1,"factored==0||factored==1","4th keyword factored","chesvx:factored=%d",factored)if (!(factored==0||factored==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chesvx:factored=%d", "(""factored==0||factored==1"") failed for " "4th keyword factored", factored); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 45148 | /* Processing variable lower */ | |||
| 45149 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 45150 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chesvx() 5th keyword (lower) can't be converted to int"); | |||
| 45151 | if (f2py_success) { | |||
| 45152 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","chesvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chesvx:lower=%d", "(""lower==0||lower==1"") failed for " "5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 45153 | /* Processing variable a */ | |||
| 45154 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 45155 | ; | |||
| 45156 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 45157 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 45158 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 45159 | if (!PyErr_Occurred()) | |||
| 45160 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chesvx to C/Fortran array" ); | |||
| 45161 | } else { | |||
| 45162 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 45163 | ||||
| 45164 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 45165 | /* Processing variable rcond */ | |||
| 45166 | /* Processing variable info */ | |||
| 45167 | /* Processing variable n */ | |||
| 45168 | n = shape(a,0)a_Dims[0]; | |||
| 45169 | /* Processing variable lda */ | |||
| 45170 | lda = shape(a,0)a_Dims[0]; | |||
| 45171 | /* Processing variable af */ | |||
| 45172 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 45173 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 45174 | capi_af_tmp = array_from_pyobj(NPY_CFLOAT,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 45175 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 45176 | if (!PyErr_Occurred()) | |||
| 45177 | PyErr_SetString(_flapack_error,"failed in converting 1st keyword `af' of _flapack.chesvx to C/Fortran array" ); | |||
| 45178 | } else { | |||
| 45179 | af = (complex_float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 45180 | ||||
| 45181 | /* Processing variable ldaf */ | |||
| 45182 | ldaf = shape(af,0)af_Dims[0]; | |||
| 45183 | /* Processing variable ipiv */ | |||
| 45184 | ipiv_Dims[0]=n; | |||
| 45185 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 45186 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 45187 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 45188 | if (!PyErr_Occurred()) | |||
| 45189 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `ipiv' of _flapack.chesvx to C/Fortran array" ); | |||
| 45190 | } else { | |||
| 45191 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 45192 | ||||
| 45193 | /* Processing variable b */ | |||
| 45194 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 45195 | b_Dims[0]=n; | |||
| 45196 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 45197 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 45198 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 45199 | if (!PyErr_Occurred()) | |||
| 45200 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.chesvx to C/Fortran array" ); | |||
| 45201 | } else { | |||
| 45202 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 45203 | ||||
| 45204 | /* Processing variable ldb */ | |||
| 45205 | ldb = shape(b,0)b_Dims[0]; | |||
| 45206 | /* Processing variable lwork */ | |||
| 45207 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 45208 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chesvx() 3rd keyword (lwork) can't be converted to int"); | |||
| 45209 | if (f2py_success) { | |||
| 45210 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","3rd keyword lwork","chesvx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chesvx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 45211 | /* Processing variable rwork */ | |||
| 45212 | rwork_Dims[0]=n; | |||
| 45213 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 45214 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 45215 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 45216 | if (!PyErr_Occurred()) | |||
| 45217 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.chesvx to C/Fortran array" ); | |||
| 45218 | } else { | |||
| 45219 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 45220 | ||||
| 45221 | /* Processing variable nrhs */ | |||
| 45222 | nrhs = shape(b,1)b_Dims[1]; | |||
| 45223 | /* Processing variable x */ | |||
| 45224 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 45225 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 45226 | capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 45227 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 45228 | if (!PyErr_Occurred()) | |||
| 45229 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.chesvx to C/Fortran array" ); | |||
| 45230 | } else { | |||
| 45231 | x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 45232 | ||||
| 45233 | /* Processing variable ldx */ | |||
| 45234 | ldx = shape(x,0)x_Dims[0]; | |||
| 45235 | /* Processing variable ferr */ | |||
| 45236 | ferr_Dims[0]=nrhs; | |||
| 45237 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 45238 | capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 45239 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 45240 | if (!PyErr_Occurred()) | |||
| 45241 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.chesvx to C/Fortran array" ); | |||
| 45242 | } else { | |||
| 45243 | ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 45244 | ||||
| 45245 | /* Processing variable berr */ | |||
| 45246 | berr_Dims[0]=nrhs; | |||
| 45247 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 45248 | capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 45249 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 45250 | if (!PyErr_Occurred()) | |||
| 45251 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.chesvx to C/Fortran array" ); | |||
| 45252 | } else { | |||
| 45253 | berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 45254 | ||||
| 45255 | /* Processing variable work */ | |||
| 45256 | work_Dims[0]=MAX(1,lwork)((1 > lwork) ? (1) : (lwork)); | |||
| 45257 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 45258 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 45259 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 45260 | if (!PyErr_Occurred()) | |||
| 45261 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chesvx to C/Fortran array" ); | |||
| 45262 | } else { | |||
| 45263 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 45264 | ||||
| 45265 | /*end of frompyobj*/ | |||
| 45266 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45267 | f2py_start_call_clock(); | |||
| 45268 | #endif | |||
| 45269 | /*callfortranroutine*/ | |||
| 45270 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 45271 | (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,rwork,&info) ; | |||
| 45272 | /*(*f2py_func)(&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,rwork,&info,&factored,&lower);*/ | |||
| 45273 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 45274 | if (PyErr_Occurred()) | |||
| 45275 | f2py_success = 0; | |||
| 45276 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45277 | f2py_stop_call_clock(); | |||
| 45278 | #endif | |||
| 45279 | /*end of callfortranroutine*/ | |||
| 45280 | if (f2py_success) { | |||
| 45281 | /*pyobjfrom*/ | |||
| 45282 | /*end of pyobjfrom*/ | |||
| 45283 | CFUNCSMESS("Building return value.\n"); | |||
| 45284 | capi_buildvalue = Py_BuildValue("NNNfNNi",capi_af_tmp,capi_ipiv_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 45285 | /*closepyobjfrom*/ | |||
| 45286 | /*end of closepyobjfrom*/ | |||
| 45287 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 45288 | /*cleanupfrompyobj*/ | |||
| 45289 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 45290 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 45291 | /* End of cleaning variable work */ | |||
| 45292 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 45293 | /* End of cleaning variable berr */ | |||
| 45294 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 45295 | /* End of cleaning variable ferr */ | |||
| 45296 | /* End of cleaning variable ldx */ | |||
| 45297 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 45298 | /* End of cleaning variable x */ | |||
| 45299 | /* End of cleaning variable nrhs */ | |||
| 45300 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 45301 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 45302 | /* End of cleaning variable rwork */ | |||
| 45303 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 45304 | } /*if (f2py_success) of lwork*/ | |||
| 45305 | /* End of cleaning variable lwork */ | |||
| 45306 | /* End of cleaning variable ldb */ | |||
| 45307 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 45308 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 45309 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 45310 | /* End of cleaning variable b */ | |||
| 45311 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 45312 | /* End of cleaning variable ipiv */ | |||
| 45313 | /* End of cleaning variable ldaf */ | |||
| 45314 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 45315 | /* End of cleaning variable af */ | |||
| 45316 | /* End of cleaning variable lda */ | |||
| 45317 | /* End of cleaning variable n */ | |||
| 45318 | /* End of cleaning variable info */ | |||
| 45319 | /* End of cleaning variable rcond */ | |||
| 45320 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 45321 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 45322 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 45323 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 45324 | /* End of cleaning variable a */ | |||
| 45325 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 45326 | } /*if (f2py_success) of lower*/ | |||
| 45327 | /* End of cleaning variable lower */ | |||
| 45328 | } /*CHECKSCALAR(factored==0||factored==1)*/ | |||
| 45329 | } /*if (f2py_success) of factored*/ | |||
| 45330 | /* End of cleaning variable factored */ | |||
| 45331 | /*end of cleanupfrompyobj*/ | |||
| 45332 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 45333 | /*routdebugfailure*/ | |||
| 45334 | } else { | |||
| 45335 | /*routdebugleave*/ | |||
| 45336 | } | |||
| 45337 | CFUNCSMESS("Freeing memory.\n"); | |||
| 45338 | /*freemem*/ | |||
| 45339 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45340 | f2py_stop_clock(); | |||
| 45341 | #endif | |||
| 45342 | return capi_buildvalue; | |||
| 45343 | } | |||
| 45344 | /******************************* end of chesvx *******************************/ | |||
| 45345 | ||||
| 45346 | /*********************************** zhesvx ***********************************/ | |||
| 45347 | static char doc_f2py_rout__flapack_zhesvx[] = "\ | |||
| 45348 | uduh,ipiv,x,rcond,ferr,berr,info = zhesvx(a,b,[af,ipiv,lwork,factored,lower,overwrite_a,overwrite_b])\n\nWrapper for ``zhesvx``.\ | |||
| 45349 | \n\nParameters\n----------\n" | |||
| 45350 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 45351 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 45352 | "\nOther Parameters\n----------------\n" | |||
| 45353 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 45354 | "af : input rank-2 array('D') with bounds (n,n)\n" | |||
| 45355 | "ipiv : input rank-1 array('i') with bounds (n)\n" | |||
| 45356 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 45357 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 45358 | "factored : input int, optional\n Default: 0\n" | |||
| 45359 | "lower : input int, optional\n Default: 0\n" | |||
| 45360 | "\nReturns\n-------\n" | |||
| 45361 | "uduh : rank-2 array('D') with bounds (n,n) and af storage\n" | |||
| 45362 | "ipiv : rank-1 array('i') with bounds (n)\n" | |||
| 45363 | "x : rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 45364 | "rcond : float\n" | |||
| 45365 | "ferr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 45366 | "berr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 45367 | "info : int"; | |||
| 45368 | /* extern void F_FUNC(zhesvx,ZHESVX)(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 45369 | static PyObject *f2py_rout__flapack_zhesvx(const PyObject *capi_self, | |||
| 45370 | PyObject *capi_args, | |||
| 45371 | PyObject *capi_keywds, | |||
| 45372 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 45373 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 45374 | volatile int f2py_success = 1; | |||
| 45375 | /*decl*/ | |||
| 45376 | ||||
| 45377 | int n = 0; | |||
| 45378 | int nrhs = 0; | |||
| 45379 | complex_double *a = NULL((void*)0); | |||
| 45380 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 45381 | const int a_Rank = 2; | |||
| 45382 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 45383 | int capi_a_intent = 0; | |||
| 45384 | int capi_overwrite_a = 0; | |||
| 45385 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 45386 | int lda = 0; | |||
| 45387 | complex_double *af = NULL((void*)0); | |||
| 45388 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 45389 | const int af_Rank = 2; | |||
| 45390 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 45391 | int capi_af_intent = 0; | |||
| 45392 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 45393 | int ldaf = 0; | |||
| 45394 | int *ipiv = NULL((void*)0); | |||
| 45395 | npy_intp ipiv_Dims[1] = {-1}; | |||
| 45396 | const int ipiv_Rank = 1; | |||
| 45397 | PyArrayObject *capi_ipiv_tmp = NULL((void*)0); | |||
| 45398 | int capi_ipiv_intent = 0; | |||
| 45399 | PyObject *ipiv_capi = Py_None(&_Py_NoneStruct); | |||
| 45400 | complex_double *b = NULL((void*)0); | |||
| 45401 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 45402 | const int b_Rank = 2; | |||
| 45403 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 45404 | int capi_b_intent = 0; | |||
| 45405 | int capi_overwrite_b = 0; | |||
| 45406 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 45407 | int ldb = 0; | |||
| 45408 | complex_double *x = NULL((void*)0); | |||
| 45409 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 45410 | const int x_Rank = 2; | |||
| 45411 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 45412 | int capi_x_intent = 0; | |||
| 45413 | int ldx = 0; | |||
| 45414 | double rcond = 0; | |||
| 45415 | double *ferr = NULL((void*)0); | |||
| 45416 | npy_intp ferr_Dims[1] = {-1}; | |||
| 45417 | const int ferr_Rank = 1; | |||
| 45418 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 45419 | int capi_ferr_intent = 0; | |||
| 45420 | double *berr = NULL((void*)0); | |||
| 45421 | npy_intp berr_Dims[1] = {-1}; | |||
| 45422 | const int berr_Rank = 1; | |||
| 45423 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 45424 | int capi_berr_intent = 0; | |||
| 45425 | complex_double *work = NULL((void*)0); | |||
| 45426 | npy_intp work_Dims[1] = {-1}; | |||
| 45427 | const int work_Rank = 1; | |||
| 45428 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 45429 | int capi_work_intent = 0; | |||
| 45430 | int lwork = 0; | |||
| 45431 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 45432 | double *rwork = NULL((void*)0); | |||
| 45433 | npy_intp rwork_Dims[1] = {-1}; | |||
| 45434 | const int rwork_Rank = 1; | |||
| 45435 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 45436 | int capi_rwork_intent = 0; | |||
| 45437 | int info = 0; | |||
| 45438 | int factored = 0; | |||
| 45439 | PyObject *factored_capi = Py_None(&_Py_NoneStruct); | |||
| 45440 | int lower = 0; | |||
| 45441 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 45442 | static char *capi_kwlist[] = {"a","b","af","ipiv","lwork","factored","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 45443 | ||||
| 45444 | /*routdebugenter*/ | |||
| 45445 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45446 | f2py_start_clock(); | |||
| 45447 | #endif | |||
| 45448 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 45449 | "OO|OOOOOii:_flapack.zhesvx",\ | |||
| 45450 | capi_kwlist,&a_capi,&b_capi,&af_capi,&ipiv_capi,&lwork_capi,&factored_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 45451 | return NULL((void*)0); | |||
| 45452 | /*frompyobj*/ | |||
| 45453 | /* Processing variable factored */ | |||
| 45454 | if (factored_capi == Py_None(&_Py_NoneStruct)) factored = 0; else | |||
| 45455 | f2py_success = int_from_pyobj(&factored,factored_capi,"_flapack.zhesvx() 4th keyword (factored) can't be converted to int"); | |||
| 45456 | if (f2py_success) { | |||
| 45457 | CHECKSCALAR(factored==0||factored==1,"factored==0||factored==1","4th keyword factored","zhesvx:factored=%d",factored)if (!(factored==0||factored==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhesvx:factored=%d", "(""factored==0||factored==1"") failed for " "4th keyword factored", factored); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 45458 | /* Processing variable lower */ | |||
| 45459 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 45460 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhesvx() 5th keyword (lower) can't be converted to int"); | |||
| 45461 | if (f2py_success) { | |||
| 45462 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","zhesvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhesvx:lower=%d", "(""lower==0||lower==1"") failed for " "5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 45463 | /* Processing variable a */ | |||
| 45464 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 45465 | ; | |||
| 45466 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 45467 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 45468 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 45469 | if (!PyErr_Occurred()) | |||
| 45470 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhesvx to C/Fortran array" ); | |||
| 45471 | } else { | |||
| 45472 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 45473 | ||||
| 45474 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 45475 | /* Processing variable rcond */ | |||
| 45476 | /* Processing variable info */ | |||
| 45477 | /* Processing variable n */ | |||
| 45478 | n = shape(a,0)a_Dims[0]; | |||
| 45479 | /* Processing variable lda */ | |||
| 45480 | lda = shape(a,0)a_Dims[0]; | |||
| 45481 | /* Processing variable af */ | |||
| 45482 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 45483 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 45484 | capi_af_tmp = array_from_pyobj(NPY_CDOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 45485 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 45486 | if (!PyErr_Occurred()) | |||
| 45487 | PyErr_SetString(_flapack_error,"failed in converting 1st keyword `af' of _flapack.zhesvx to C/Fortran array" ); | |||
| 45488 | } else { | |||
| 45489 | af = (complex_double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 45490 | ||||
| 45491 | /* Processing variable ldaf */ | |||
| 45492 | ldaf = shape(af,0)af_Dims[0]; | |||
| 45493 | /* Processing variable ipiv */ | |||
| 45494 | ipiv_Dims[0]=n; | |||
| 45495 | capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 45496 | capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi); | |||
| 45497 | if (capi_ipiv_tmp == NULL((void*)0)) { | |||
| 45498 | if (!PyErr_Occurred()) | |||
| 45499 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `ipiv' of _flapack.zhesvx to C/Fortran array" ); | |||
| 45500 | } else { | |||
| 45501 | ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data)); | |||
| 45502 | ||||
| 45503 | /* Processing variable b */ | |||
| 45504 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 45505 | b_Dims[0]=n; | |||
| 45506 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 45507 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 45508 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 45509 | if (!PyErr_Occurred()) | |||
| 45510 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zhesvx to C/Fortran array" ); | |||
| 45511 | } else { | |||
| 45512 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 45513 | ||||
| 45514 | /* Processing variable ldb */ | |||
| 45515 | ldb = shape(b,0)b_Dims[0]; | |||
| 45516 | /* Processing variable lwork */ | |||
| 45517 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 45518 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhesvx() 3rd keyword (lwork) can't be converted to int"); | |||
| 45519 | if (f2py_success) { | |||
| 45520 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","3rd keyword lwork","zhesvx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhesvx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 45521 | /* Processing variable rwork */ | |||
| 45522 | rwork_Dims[0]=n; | |||
| 45523 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 45524 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 45525 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 45526 | if (!PyErr_Occurred()) | |||
| 45527 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zhesvx to C/Fortran array" ); | |||
| 45528 | } else { | |||
| 45529 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 45530 | ||||
| 45531 | /* Processing variable nrhs */ | |||
| 45532 | nrhs = shape(b,1)b_Dims[1]; | |||
| 45533 | /* Processing variable x */ | |||
| 45534 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 45535 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 45536 | capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 45537 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 45538 | if (!PyErr_Occurred()) | |||
| 45539 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zhesvx to C/Fortran array" ); | |||
| 45540 | } else { | |||
| 45541 | x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 45542 | ||||
| 45543 | /* Processing variable ldx */ | |||
| 45544 | ldx = shape(x,0)x_Dims[0]; | |||
| 45545 | /* Processing variable ferr */ | |||
| 45546 | ferr_Dims[0]=nrhs; | |||
| 45547 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 45548 | capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 45549 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 45550 | if (!PyErr_Occurred()) | |||
| 45551 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.zhesvx to C/Fortran array" ); | |||
| 45552 | } else { | |||
| 45553 | ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 45554 | ||||
| 45555 | /* Processing variable berr */ | |||
| 45556 | berr_Dims[0]=nrhs; | |||
| 45557 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 45558 | capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 45559 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 45560 | if (!PyErr_Occurred()) | |||
| 45561 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.zhesvx to C/Fortran array" ); | |||
| 45562 | } else { | |||
| 45563 | berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 45564 | ||||
| 45565 | /* Processing variable work */ | |||
| 45566 | work_Dims[0]=MAX(1,lwork)((1 > lwork) ? (1) : (lwork)); | |||
| 45567 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 45568 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 45569 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 45570 | if (!PyErr_Occurred()) | |||
| 45571 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhesvx to C/Fortran array" ); | |||
| 45572 | } else { | |||
| 45573 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 45574 | ||||
| 45575 | /*end of frompyobj*/ | |||
| 45576 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45577 | f2py_start_call_clock(); | |||
| 45578 | #endif | |||
| 45579 | /*callfortranroutine*/ | |||
| 45580 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 45581 | (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,rwork,&info) ; | |||
| 45582 | /*(*f2py_func)(&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,rwork,&info,&factored,&lower);*/ | |||
| 45583 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 45584 | if (PyErr_Occurred()) | |||
| 45585 | f2py_success = 0; | |||
| 45586 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45587 | f2py_stop_call_clock(); | |||
| 45588 | #endif | |||
| 45589 | /*end of callfortranroutine*/ | |||
| 45590 | if (f2py_success) { | |||
| 45591 | /*pyobjfrom*/ | |||
| 45592 | /*end of pyobjfrom*/ | |||
| 45593 | CFUNCSMESS("Building return value.\n"); | |||
| 45594 | capi_buildvalue = Py_BuildValue("NNNdNNi",capi_af_tmp,capi_ipiv_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 45595 | /*closepyobjfrom*/ | |||
| 45596 | /*end of closepyobjfrom*/ | |||
| 45597 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 45598 | /*cleanupfrompyobj*/ | |||
| 45599 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 45600 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 45601 | /* End of cleaning variable work */ | |||
| 45602 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 45603 | /* End of cleaning variable berr */ | |||
| 45604 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 45605 | /* End of cleaning variable ferr */ | |||
| 45606 | /* End of cleaning variable ldx */ | |||
| 45607 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 45608 | /* End of cleaning variable x */ | |||
| 45609 | /* End of cleaning variable nrhs */ | |||
| 45610 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 45611 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 45612 | /* End of cleaning variable rwork */ | |||
| 45613 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 45614 | } /*if (f2py_success) of lwork*/ | |||
| 45615 | /* End of cleaning variable lwork */ | |||
| 45616 | /* End of cleaning variable ldb */ | |||
| 45617 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 45618 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 45619 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 45620 | /* End of cleaning variable b */ | |||
| 45621 | } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/ | |||
| 45622 | /* End of cleaning variable ipiv */ | |||
| 45623 | /* End of cleaning variable ldaf */ | |||
| 45624 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 45625 | /* End of cleaning variable af */ | |||
| 45626 | /* End of cleaning variable lda */ | |||
| 45627 | /* End of cleaning variable n */ | |||
| 45628 | /* End of cleaning variable info */ | |||
| 45629 | /* End of cleaning variable rcond */ | |||
| 45630 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 45631 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 45632 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 45633 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 45634 | /* End of cleaning variable a */ | |||
| 45635 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 45636 | } /*if (f2py_success) of lower*/ | |||
| 45637 | /* End of cleaning variable lower */ | |||
| 45638 | } /*CHECKSCALAR(factored==0||factored==1)*/ | |||
| 45639 | } /*if (f2py_success) of factored*/ | |||
| 45640 | /* End of cleaning variable factored */ | |||
| 45641 | /*end of cleanupfrompyobj*/ | |||
| 45642 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 45643 | /*routdebugfailure*/ | |||
| 45644 | } else { | |||
| 45645 | /*routdebugleave*/ | |||
| 45646 | } | |||
| 45647 | CFUNCSMESS("Freeing memory.\n"); | |||
| 45648 | /*freemem*/ | |||
| 45649 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45650 | f2py_stop_clock(); | |||
| 45651 | #endif | |||
| 45652 | return capi_buildvalue; | |||
| 45653 | } | |||
| 45654 | /******************************* end of zhesvx *******************************/ | |||
| 45655 | ||||
| 45656 | /******************************** chesvx_lwork ********************************/ | |||
| 45657 | static char doc_f2py_rout__flapack_chesvx_lwork[] = "\ | |||
| 45658 | work,info = chesvx_lwork(n,[lower])\n\nWrapper for ``chesvx_lwork``.\ | |||
| 45659 | \n\nParameters\n----------\n" | |||
| 45660 | "n : input int\n" | |||
| 45661 | "\nOther Parameters\n----------------\n" | |||
| 45662 | "lower : input int, optional\n Default: 0\n" | |||
| 45663 | "\nReturns\n-------\n" | |||
| 45664 | "work : complex\n" | |||
| 45665 | "info : int"; | |||
| 45666 | /* extern void F_FUNC(chesvx ,CHESVX )(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 45667 | static PyObject *f2py_rout__flapack_chesvx_lwork(const PyObject *capi_self, | |||
| 45668 | PyObject *capi_args, | |||
| 45669 | PyObject *capi_keywds, | |||
| 45670 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 45671 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 45672 | volatile int f2py_success = 1; | |||
| 45673 | /*decl*/ | |||
| 45674 | ||||
| 45675 | int n = 0; | |||
| 45676 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 45677 | int nrhs = 0; | |||
| 45678 | complex_float a; | |||
| 45679 | int lda = 0; | |||
| 45680 | complex_float af; | |||
| 45681 | int ldaf = 0; | |||
| 45682 | int ipiv = 0; | |||
| 45683 | complex_float b; | |||
| 45684 | int ldb = 0; | |||
| 45685 | complex_float x; | |||
| 45686 | int ldx = 0; | |||
| 45687 | float rcond = 0; | |||
| 45688 | float ferr = 0; | |||
| 45689 | float berr = 0; | |||
| 45690 | complex_float work; | |||
| 45691 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 45692 | int lwork = 0; | |||
| 45693 | float rwork = 0; | |||
| 45694 | int info = 0; | |||
| 45695 | int factored = 0; | |||
| 45696 | int lower = 0; | |||
| 45697 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 45698 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 45699 | ||||
| 45700 | /*routdebugenter*/ | |||
| 45701 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45702 | f2py_start_clock(); | |||
| 45703 | #endif | |||
| 45704 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 45705 | "O|O:_flapack.chesvx_lwork",\ | |||
| 45706 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 45707 | return NULL((void*)0); | |||
| 45708 | /*frompyobj*/ | |||
| 45709 | /* Processing variable lower */ | |||
| 45710 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 45711 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chesvx_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 45712 | if (f2py_success) { | |||
| 45713 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","chesvx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chesvx_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 45714 | /* Processing variable n */ | |||
| 45715 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chesvx_lwork() 1st argument (n) can't be converted to int"); | |||
| 45716 | if (f2py_success) { | |||
| 45717 | /* Processing variable factored */ | |||
| 45718 | factored = 0; | |||
| 45719 | /* Processing variable a */ | |||
| 45720 | /* Processing variable af */ | |||
| 45721 | /* Processing variable ipiv */ | |||
| 45722 | /* Processing variable b */ | |||
| 45723 | /* Processing variable x */ | |||
| 45724 | /* Processing variable rcond */ | |||
| 45725 | /* Processing variable ferr */ | |||
| 45726 | /* Processing variable berr */ | |||
| 45727 | /* Processing variable lwork */ | |||
| 45728 | lwork = -1; | |||
| 45729 | /* Processing variable rwork */ | |||
| 45730 | /* Processing variable work */ | |||
| 45731 | /* Processing variable info */ | |||
| 45732 | /* Processing variable nrhs */ | |||
| 45733 | nrhs = 1; | |||
| 45734 | /* Processing variable lda */ | |||
| 45735 | lda = n; | |||
| 45736 | /* Processing variable ldaf */ | |||
| 45737 | ldaf = n; | |||
| 45738 | /* Processing variable ldb */ | |||
| 45739 | ldb = n; | |||
| 45740 | /* Processing variable ldx */ | |||
| 45741 | ldx = n; | |||
| 45742 | /*end of frompyobj*/ | |||
| 45743 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45744 | f2py_start_call_clock(); | |||
| 45745 | #endif | |||
| 45746 | /*callfortranroutine*/ | |||
| 45747 | (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&rwork,&info) ; | |||
| 45748 | /*(*f2py_func)(&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&rwork,&info,&factored,&lower);*/ | |||
| 45749 | if (PyErr_Occurred()) | |||
| 45750 | f2py_success = 0; | |||
| 45751 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45752 | f2py_stop_call_clock(); | |||
| 45753 | #endif | |||
| 45754 | /*end of callfortranroutine*/ | |||
| 45755 | if (f2py_success) { | |||
| 45756 | /*pyobjfrom*/ | |||
| 45757 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 45758 | /*end of pyobjfrom*/ | |||
| 45759 | CFUNCSMESS("Building return value.\n"); | |||
| 45760 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 45761 | /*closepyobjfrom*/ | |||
| 45762 | /*end of closepyobjfrom*/ | |||
| 45763 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 45764 | /*cleanupfrompyobj*/ | |||
| 45765 | /* End of cleaning variable ldx */ | |||
| 45766 | /* End of cleaning variable ldb */ | |||
| 45767 | /* End of cleaning variable ldaf */ | |||
| 45768 | /* End of cleaning variable lda */ | |||
| 45769 | /* End of cleaning variable nrhs */ | |||
| 45770 | /* End of cleaning variable info */ | |||
| 45771 | /* End of cleaning variable work */ | |||
| 45772 | /* End of cleaning variable rwork */ | |||
| 45773 | /* End of cleaning variable lwork */ | |||
| 45774 | /* End of cleaning variable berr */ | |||
| 45775 | /* End of cleaning variable ferr */ | |||
| 45776 | /* End of cleaning variable rcond */ | |||
| 45777 | /* End of cleaning variable x */ | |||
| 45778 | /* End of cleaning variable b */ | |||
| 45779 | /* End of cleaning variable ipiv */ | |||
| 45780 | /* End of cleaning variable af */ | |||
| 45781 | /* End of cleaning variable a */ | |||
| 45782 | /* End of cleaning variable factored */ | |||
| 45783 | } /*if (f2py_success) of n*/ | |||
| 45784 | /* End of cleaning variable n */ | |||
| 45785 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 45786 | } /*if (f2py_success) of lower*/ | |||
| 45787 | /* End of cleaning variable lower */ | |||
| 45788 | /*end of cleanupfrompyobj*/ | |||
| 45789 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 45790 | /*routdebugfailure*/ | |||
| 45791 | } else { | |||
| 45792 | /*routdebugleave*/ | |||
| 45793 | } | |||
| 45794 | CFUNCSMESS("Freeing memory.\n"); | |||
| 45795 | /*freemem*/ | |||
| 45796 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45797 | f2py_stop_clock(); | |||
| 45798 | #endif | |||
| 45799 | return capi_buildvalue; | |||
| 45800 | } | |||
| 45801 | /**************************** end of chesvx_lwork ****************************/ | |||
| 45802 | ||||
| 45803 | /******************************** zhesvx_lwork ********************************/ | |||
| 45804 | static char doc_f2py_rout__flapack_zhesvx_lwork[] = "\ | |||
| 45805 | work,info = zhesvx_lwork(n,[lower])\n\nWrapper for ``zhesvx_lwork``.\ | |||
| 45806 | \n\nParameters\n----------\n" | |||
| 45807 | "n : input int\n" | |||
| 45808 | "\nOther Parameters\n----------------\n" | |||
| 45809 | "lower : input int, optional\n Default: 0\n" | |||
| 45810 | "\nReturns\n-------\n" | |||
| 45811 | "work : complex\n" | |||
| 45812 | "info : int"; | |||
| 45813 | /* extern void F_FUNC(zhesvx ,ZHESVX )(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 45814 | static PyObject *f2py_rout__flapack_zhesvx_lwork(const PyObject *capi_self, | |||
| 45815 | PyObject *capi_args, | |||
| 45816 | PyObject *capi_keywds, | |||
| 45817 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 45818 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 45819 | volatile int f2py_success = 1; | |||
| 45820 | /*decl*/ | |||
| 45821 | ||||
| 45822 | int n = 0; | |||
| 45823 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 45824 | int nrhs = 0; | |||
| 45825 | complex_double a; | |||
| 45826 | int lda = 0; | |||
| 45827 | complex_double af; | |||
| 45828 | int ldaf = 0; | |||
| 45829 | int ipiv = 0; | |||
| 45830 | complex_double b; | |||
| 45831 | int ldb = 0; | |||
| 45832 | complex_double x; | |||
| 45833 | int ldx = 0; | |||
| 45834 | double rcond = 0; | |||
| 45835 | double ferr = 0; | |||
| 45836 | double berr = 0; | |||
| 45837 | complex_double work; | |||
| 45838 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 45839 | int lwork = 0; | |||
| 45840 | double rwork = 0; | |||
| 45841 | int info = 0; | |||
| 45842 | int factored = 0; | |||
| 45843 | int lower = 0; | |||
| 45844 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 45845 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 45846 | ||||
| 45847 | /*routdebugenter*/ | |||
| 45848 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45849 | f2py_start_clock(); | |||
| 45850 | #endif | |||
| 45851 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 45852 | "O|O:_flapack.zhesvx_lwork",\ | |||
| 45853 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 45854 | return NULL((void*)0); | |||
| 45855 | /*frompyobj*/ | |||
| 45856 | /* Processing variable lower */ | |||
| 45857 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 45858 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhesvx_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 45859 | if (f2py_success) { | |||
| 45860 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhesvx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhesvx_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 45861 | /* Processing variable n */ | |||
| 45862 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhesvx_lwork() 1st argument (n) can't be converted to int"); | |||
| 45863 | if (f2py_success) { | |||
| 45864 | /* Processing variable factored */ | |||
| 45865 | factored = 0; | |||
| 45866 | /* Processing variable a */ | |||
| 45867 | /* Processing variable af */ | |||
| 45868 | /* Processing variable ipiv */ | |||
| 45869 | /* Processing variable b */ | |||
| 45870 | /* Processing variable x */ | |||
| 45871 | /* Processing variable rcond */ | |||
| 45872 | /* Processing variable ferr */ | |||
| 45873 | /* Processing variable berr */ | |||
| 45874 | /* Processing variable lwork */ | |||
| 45875 | lwork = -1; | |||
| 45876 | /* Processing variable rwork */ | |||
| 45877 | /* Processing variable work */ | |||
| 45878 | /* Processing variable info */ | |||
| 45879 | /* Processing variable nrhs */ | |||
| 45880 | nrhs = 1; | |||
| 45881 | /* Processing variable lda */ | |||
| 45882 | lda = n; | |||
| 45883 | /* Processing variable ldaf */ | |||
| 45884 | ldaf = n; | |||
| 45885 | /* Processing variable ldb */ | |||
| 45886 | ldb = n; | |||
| 45887 | /* Processing variable ldx */ | |||
| 45888 | ldx = n; | |||
| 45889 | /*end of frompyobj*/ | |||
| 45890 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45891 | f2py_start_call_clock(); | |||
| 45892 | #endif | |||
| 45893 | /*callfortranroutine*/ | |||
| 45894 | (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&rwork,&info) ; | |||
| 45895 | /*(*f2py_func)(&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&rwork,&info,&factored,&lower);*/ | |||
| 45896 | if (PyErr_Occurred()) | |||
| 45897 | f2py_success = 0; | |||
| 45898 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45899 | f2py_stop_call_clock(); | |||
| 45900 | #endif | |||
| 45901 | /*end of callfortranroutine*/ | |||
| 45902 | if (f2py_success) { | |||
| 45903 | /*pyobjfrom*/ | |||
| 45904 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 45905 | /*end of pyobjfrom*/ | |||
| 45906 | CFUNCSMESS("Building return value.\n"); | |||
| 45907 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 45908 | /*closepyobjfrom*/ | |||
| 45909 | /*end of closepyobjfrom*/ | |||
| 45910 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 45911 | /*cleanupfrompyobj*/ | |||
| 45912 | /* End of cleaning variable ldx */ | |||
| 45913 | /* End of cleaning variable ldb */ | |||
| 45914 | /* End of cleaning variable ldaf */ | |||
| 45915 | /* End of cleaning variable lda */ | |||
| 45916 | /* End of cleaning variable nrhs */ | |||
| 45917 | /* End of cleaning variable info */ | |||
| 45918 | /* End of cleaning variable work */ | |||
| 45919 | /* End of cleaning variable rwork */ | |||
| 45920 | /* End of cleaning variable lwork */ | |||
| 45921 | /* End of cleaning variable berr */ | |||
| 45922 | /* End of cleaning variable ferr */ | |||
| 45923 | /* End of cleaning variable rcond */ | |||
| 45924 | /* End of cleaning variable x */ | |||
| 45925 | /* End of cleaning variable b */ | |||
| 45926 | /* End of cleaning variable ipiv */ | |||
| 45927 | /* End of cleaning variable af */ | |||
| 45928 | /* End of cleaning variable a */ | |||
| 45929 | /* End of cleaning variable factored */ | |||
| 45930 | } /*if (f2py_success) of n*/ | |||
| 45931 | /* End of cleaning variable n */ | |||
| 45932 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 45933 | } /*if (f2py_success) of lower*/ | |||
| 45934 | /* End of cleaning variable lower */ | |||
| 45935 | /*end of cleanupfrompyobj*/ | |||
| 45936 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 45937 | /*routdebugfailure*/ | |||
| 45938 | } else { | |||
| 45939 | /*routdebugleave*/ | |||
| 45940 | } | |||
| 45941 | CFUNCSMESS("Freeing memory.\n"); | |||
| 45942 | /*freemem*/ | |||
| 45943 | #ifdef F2PY_REPORT_ATEXIT | |||
| 45944 | f2py_stop_clock(); | |||
| 45945 | #endif | |||
| 45946 | return capi_buildvalue; | |||
| 45947 | } | |||
| 45948 | /**************************** end of zhesvx_lwork ****************************/ | |||
| 45949 | ||||
| 45950 | /*********************************** ssytrd ***********************************/ | |||
| 45951 | static char doc_f2py_rout__flapack_ssytrd[] = "\ | |||
| 45952 | c,d,e,tau,info = ssytrd(a,[lower,lwork,overwrite_a])\n\nWrapper for ``ssytrd``.\ | |||
| 45953 | \n\nParameters\n----------\n" | |||
| 45954 | "a : input rank-2 array('f') with bounds (lda,n)\n" | |||
| 45955 | "\nOther Parameters\n----------------\n" | |||
| 45956 | "lower : input int, optional\n Default: 0\n" | |||
| 45957 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 45958 | "lwork : input int, optional\n Default: MAX(n,1)\n" | |||
| 45959 | "\nReturns\n-------\n" | |||
| 45960 | "c : rank-2 array('f') with bounds (lda,n) and a storage\n" | |||
| 45961 | "d : rank-1 array('f') with bounds (n)\n" | |||
| 45962 | "e : rank-1 array('f') with bounds (n - 1)\n" | |||
| 45963 | "tau : rank-1 array('f') with bounds (n - 1)\n" | |||
| 45964 | "info : int"; | |||
| 45965 | /* extern void F_FUNC(ssytrd,SSYTRD)(char*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */ | |||
| 45966 | static PyObject *f2py_rout__flapack_ssytrd(const PyObject *capi_self, | |||
| 45967 | PyObject *capi_args, | |||
| 45968 | PyObject *capi_keywds, | |||
| 45969 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 45970 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 45971 | volatile int f2py_success = 1; | |||
| 45972 | /*decl*/ | |||
| 45973 | ||||
| 45974 | int lower = 0; | |||
| 45975 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 45976 | int n = 0; | |||
| 45977 | float *a = NULL((void*)0); | |||
| 45978 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 45979 | const int a_Rank = 2; | |||
| 45980 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 45981 | int capi_a_intent = 0; | |||
| 45982 | int capi_overwrite_a = 0; | |||
| 45983 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 45984 | int lda = 0; | |||
| 45985 | float *d = NULL((void*)0); | |||
| 45986 | npy_intp d_Dims[1] = {-1}; | |||
| 45987 | const int d_Rank = 1; | |||
| 45988 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 45989 | int capi_d_intent = 0; | |||
| 45990 | float *e = NULL((void*)0); | |||
| 45991 | npy_intp e_Dims[1] = {-1}; | |||
| 45992 | const int e_Rank = 1; | |||
| 45993 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 45994 | int capi_e_intent = 0; | |||
| 45995 | float *tau = NULL((void*)0); | |||
| 45996 | npy_intp tau_Dims[1] = {-1}; | |||
| 45997 | const int tau_Rank = 1; | |||
| 45998 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 45999 | int capi_tau_intent = 0; | |||
| 46000 | float *work = NULL((void*)0); | |||
| 46001 | npy_intp work_Dims[1] = {-1}; | |||
| 46002 | const int work_Rank = 1; | |||
| 46003 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 46004 | int capi_work_intent = 0; | |||
| 46005 | int lwork = 0; | |||
| 46006 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 46007 | int info = 0; | |||
| 46008 | static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 46009 | ||||
| 46010 | /*routdebugenter*/ | |||
| 46011 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46012 | f2py_start_clock(); | |||
| 46013 | #endif | |||
| 46014 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 46015 | "O|OOi:_flapack.ssytrd",\ | |||
| 46016 | capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 46017 | return NULL((void*)0); | |||
| 46018 | /*frompyobj*/ | |||
| 46019 | /* Processing variable lower */ | |||
| 46020 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 46021 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssytrd() 1st keyword (lower) can't be converted to int"); | |||
| 46022 | if (f2py_success) { | |||
| 46023 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssytrd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssytrd:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 46024 | /* Processing variable a */ | |||
| 46025 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 46026 | ; | |||
| 46027 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 46028 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 46029 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 46030 | if (!PyErr_Occurred()) | |||
| 46031 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssytrd to C/Fortran array" ); | |||
| 46032 | } else { | |||
| 46033 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 46034 | ||||
| 46035 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 46036 | /* Processing variable info */ | |||
| 46037 | /* Processing variable lda */ | |||
| 46038 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 46039 | /* Processing variable n */ | |||
| 46040 | n = shape(a,1)a_Dims[1]; | |||
| 46041 | /* Processing variable d */ | |||
| 46042 | d_Dims[0]=n; | |||
| 46043 | capi_d_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 46044 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,Py_None(&_Py_NoneStruct)); | |||
| 46045 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 46046 | if (!PyErr_Occurred()) | |||
| 46047 | PyErr_SetString(_flapack_error,"failed in converting hidden `d' of _flapack.ssytrd to C/Fortran array" ); | |||
| 46048 | } else { | |||
| 46049 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 46050 | ||||
| 46051 | /* Processing variable e */ | |||
| 46052 | e_Dims[0]=n - 1; | |||
| 46053 | capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 46054 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct)); | |||
| 46055 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 46056 | if (!PyErr_Occurred()) | |||
| 46057 | PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.ssytrd to C/Fortran array" ); | |||
| 46058 | } else { | |||
| 46059 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 46060 | ||||
| 46061 | /* Processing variable tau */ | |||
| 46062 | tau_Dims[0]=n - 1; | |||
| 46063 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 46064 | capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 46065 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 46066 | if (!PyErr_Occurred()) | |||
| 46067 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.ssytrd to C/Fortran array" ); | |||
| 46068 | } else { | |||
| 46069 | tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 46070 | ||||
| 46071 | /* Processing variable lwork */ | |||
| 46072 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else | |||
| 46073 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssytrd() 2nd keyword (lwork) can't be converted to int"); | |||
| 46074 | if (f2py_success) { | |||
| 46075 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","ssytrd:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssytrd:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 46076 | /* Processing variable work */ | |||
| 46077 | work_Dims[0]=lwork; | |||
| 46078 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 46079 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 46080 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 46081 | if (!PyErr_Occurred()) | |||
| 46082 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssytrd to C/Fortran array" ); | |||
| 46083 | } else { | |||
| 46084 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 46085 | ||||
| 46086 | /*end of frompyobj*/ | |||
| 46087 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46088 | f2py_start_call_clock(); | |||
| 46089 | #endif | |||
| 46090 | /*callfortranroutine*/ | |||
| 46091 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,d,e,tau,work,&lwork,&info); ; | |||
| 46092 | /*(*f2py_func)(&lower,&n,a,&lda,d,e,tau,work,&lwork,&info);*/ | |||
| 46093 | if (PyErr_Occurred()) | |||
| 46094 | f2py_success = 0; | |||
| 46095 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46096 | f2py_stop_call_clock(); | |||
| 46097 | #endif | |||
| 46098 | /*end of callfortranroutine*/ | |||
| 46099 | if (f2py_success) { | |||
| 46100 | /*pyobjfrom*/ | |||
| 46101 | /*end of pyobjfrom*/ | |||
| 46102 | CFUNCSMESS("Building return value.\n"); | |||
| 46103 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_d_tmp,capi_e_tmp,capi_tau_tmp,info); | |||
| 46104 | /*closepyobjfrom*/ | |||
| 46105 | /*end of closepyobjfrom*/ | |||
| 46106 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 46107 | /*cleanupfrompyobj*/ | |||
| 46108 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 46109 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 46110 | /* End of cleaning variable work */ | |||
| 46111 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 46112 | } /*if (f2py_success) of lwork*/ | |||
| 46113 | /* End of cleaning variable lwork */ | |||
| 46114 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 46115 | /* End of cleaning variable tau */ | |||
| 46116 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 46117 | /* End of cleaning variable e */ | |||
| 46118 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 46119 | /* End of cleaning variable d */ | |||
| 46120 | /* End of cleaning variable n */ | |||
| 46121 | /* End of cleaning variable lda */ | |||
| 46122 | /* End of cleaning variable info */ | |||
| 46123 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 46124 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 46125 | /* End of cleaning variable a */ | |||
| 46126 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 46127 | } /*if (f2py_success) of lower*/ | |||
| 46128 | /* End of cleaning variable lower */ | |||
| 46129 | /*end of cleanupfrompyobj*/ | |||
| 46130 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 46131 | /*routdebugfailure*/ | |||
| 46132 | } else { | |||
| 46133 | /*routdebugleave*/ | |||
| 46134 | } | |||
| 46135 | CFUNCSMESS("Freeing memory.\n"); | |||
| 46136 | /*freemem*/ | |||
| 46137 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46138 | f2py_stop_clock(); | |||
| 46139 | #endif | |||
| 46140 | return capi_buildvalue; | |||
| 46141 | } | |||
| 46142 | /******************************* end of ssytrd *******************************/ | |||
| 46143 | ||||
| 46144 | /*********************************** dsytrd ***********************************/ | |||
| 46145 | static char doc_f2py_rout__flapack_dsytrd[] = "\ | |||
| 46146 | c,d,e,tau,info = dsytrd(a,[lower,lwork,overwrite_a])\n\nWrapper for ``dsytrd``.\ | |||
| 46147 | \n\nParameters\n----------\n" | |||
| 46148 | "a : input rank-2 array('d') with bounds (lda,n)\n" | |||
| 46149 | "\nOther Parameters\n----------------\n" | |||
| 46150 | "lower : input int, optional\n Default: 0\n" | |||
| 46151 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 46152 | "lwork : input int, optional\n Default: MAX(n,1)\n" | |||
| 46153 | "\nReturns\n-------\n" | |||
| 46154 | "c : rank-2 array('d') with bounds (lda,n) and a storage\n" | |||
| 46155 | "d : rank-1 array('d') with bounds (n)\n" | |||
| 46156 | "e : rank-1 array('d') with bounds (n - 1)\n" | |||
| 46157 | "tau : rank-1 array('d') with bounds (n - 1)\n" | |||
| 46158 | "info : int"; | |||
| 46159 | /* extern void F_FUNC(dsytrd,DSYTRD)(char*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */ | |||
| 46160 | static PyObject *f2py_rout__flapack_dsytrd(const PyObject *capi_self, | |||
| 46161 | PyObject *capi_args, | |||
| 46162 | PyObject *capi_keywds, | |||
| 46163 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 46164 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 46165 | volatile int f2py_success = 1; | |||
| 46166 | /*decl*/ | |||
| 46167 | ||||
| 46168 | int lower = 0; | |||
| 46169 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 46170 | int n = 0; | |||
| 46171 | double *a = NULL((void*)0); | |||
| 46172 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 46173 | const int a_Rank = 2; | |||
| 46174 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 46175 | int capi_a_intent = 0; | |||
| 46176 | int capi_overwrite_a = 0; | |||
| 46177 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 46178 | int lda = 0; | |||
| 46179 | double *d = NULL((void*)0); | |||
| 46180 | npy_intp d_Dims[1] = {-1}; | |||
| 46181 | const int d_Rank = 1; | |||
| 46182 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 46183 | int capi_d_intent = 0; | |||
| 46184 | double *e = NULL((void*)0); | |||
| 46185 | npy_intp e_Dims[1] = {-1}; | |||
| 46186 | const int e_Rank = 1; | |||
| 46187 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 46188 | int capi_e_intent = 0; | |||
| 46189 | double *tau = NULL((void*)0); | |||
| 46190 | npy_intp tau_Dims[1] = {-1}; | |||
| 46191 | const int tau_Rank = 1; | |||
| 46192 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 46193 | int capi_tau_intent = 0; | |||
| 46194 | double *work = NULL((void*)0); | |||
| 46195 | npy_intp work_Dims[1] = {-1}; | |||
| 46196 | const int work_Rank = 1; | |||
| 46197 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 46198 | int capi_work_intent = 0; | |||
| 46199 | int lwork = 0; | |||
| 46200 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 46201 | int info = 0; | |||
| 46202 | static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 46203 | ||||
| 46204 | /*routdebugenter*/ | |||
| 46205 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46206 | f2py_start_clock(); | |||
| 46207 | #endif | |||
| 46208 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 46209 | "O|OOi:_flapack.dsytrd",\ | |||
| 46210 | capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 46211 | return NULL((void*)0); | |||
| 46212 | /*frompyobj*/ | |||
| 46213 | /* Processing variable lower */ | |||
| 46214 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 46215 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsytrd() 1st keyword (lower) can't be converted to int"); | |||
| 46216 | if (f2py_success) { | |||
| 46217 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsytrd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsytrd:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 46218 | /* Processing variable a */ | |||
| 46219 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 46220 | ; | |||
| 46221 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 46222 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 46223 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 46224 | if (!PyErr_Occurred()) | |||
| 46225 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsytrd to C/Fortran array" ); | |||
| 46226 | } else { | |||
| 46227 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 46228 | ||||
| 46229 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 46230 | /* Processing variable info */ | |||
| 46231 | /* Processing variable lda */ | |||
| 46232 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 46233 | /* Processing variable n */ | |||
| 46234 | n = shape(a,1)a_Dims[1]; | |||
| 46235 | /* Processing variable d */ | |||
| 46236 | d_Dims[0]=n; | |||
| 46237 | capi_d_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 46238 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,Py_None(&_Py_NoneStruct)); | |||
| 46239 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 46240 | if (!PyErr_Occurred()) | |||
| 46241 | PyErr_SetString(_flapack_error,"failed in converting hidden `d' of _flapack.dsytrd to C/Fortran array" ); | |||
| 46242 | } else { | |||
| 46243 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 46244 | ||||
| 46245 | /* Processing variable e */ | |||
| 46246 | e_Dims[0]=n - 1; | |||
| 46247 | capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 46248 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct)); | |||
| 46249 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 46250 | if (!PyErr_Occurred()) | |||
| 46251 | PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.dsytrd to C/Fortran array" ); | |||
| 46252 | } else { | |||
| 46253 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 46254 | ||||
| 46255 | /* Processing variable tau */ | |||
| 46256 | tau_Dims[0]=n - 1; | |||
| 46257 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 46258 | capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 46259 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 46260 | if (!PyErr_Occurred()) | |||
| 46261 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dsytrd to C/Fortran array" ); | |||
| 46262 | } else { | |||
| 46263 | tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 46264 | ||||
| 46265 | /* Processing variable lwork */ | |||
| 46266 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else | |||
| 46267 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsytrd() 2nd keyword (lwork) can't be converted to int"); | |||
| 46268 | if (f2py_success) { | |||
| 46269 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","dsytrd:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsytrd:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 46270 | /* Processing variable work */ | |||
| 46271 | work_Dims[0]=lwork; | |||
| 46272 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 46273 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 46274 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 46275 | if (!PyErr_Occurred()) | |||
| 46276 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsytrd to C/Fortran array" ); | |||
| 46277 | } else { | |||
| 46278 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 46279 | ||||
| 46280 | /*end of frompyobj*/ | |||
| 46281 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46282 | f2py_start_call_clock(); | |||
| 46283 | #endif | |||
| 46284 | /*callfortranroutine*/ | |||
| 46285 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,d,e,tau,work,&lwork,&info); ; | |||
| 46286 | /*(*f2py_func)(&lower,&n,a,&lda,d,e,tau,work,&lwork,&info);*/ | |||
| 46287 | if (PyErr_Occurred()) | |||
| 46288 | f2py_success = 0; | |||
| 46289 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46290 | f2py_stop_call_clock(); | |||
| 46291 | #endif | |||
| 46292 | /*end of callfortranroutine*/ | |||
| 46293 | if (f2py_success) { | |||
| 46294 | /*pyobjfrom*/ | |||
| 46295 | /*end of pyobjfrom*/ | |||
| 46296 | CFUNCSMESS("Building return value.\n"); | |||
| 46297 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_d_tmp,capi_e_tmp,capi_tau_tmp,info); | |||
| 46298 | /*closepyobjfrom*/ | |||
| 46299 | /*end of closepyobjfrom*/ | |||
| 46300 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 46301 | /*cleanupfrompyobj*/ | |||
| 46302 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 46303 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 46304 | /* End of cleaning variable work */ | |||
| 46305 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 46306 | } /*if (f2py_success) of lwork*/ | |||
| 46307 | /* End of cleaning variable lwork */ | |||
| 46308 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 46309 | /* End of cleaning variable tau */ | |||
| 46310 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 46311 | /* End of cleaning variable e */ | |||
| 46312 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 46313 | /* End of cleaning variable d */ | |||
| 46314 | /* End of cleaning variable n */ | |||
| 46315 | /* End of cleaning variable lda */ | |||
| 46316 | /* End of cleaning variable info */ | |||
| 46317 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 46318 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 46319 | /* End of cleaning variable a */ | |||
| 46320 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 46321 | } /*if (f2py_success) of lower*/ | |||
| 46322 | /* End of cleaning variable lower */ | |||
| 46323 | /*end of cleanupfrompyobj*/ | |||
| 46324 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 46325 | /*routdebugfailure*/ | |||
| 46326 | } else { | |||
| 46327 | /*routdebugleave*/ | |||
| 46328 | } | |||
| 46329 | CFUNCSMESS("Freeing memory.\n"); | |||
| 46330 | /*freemem*/ | |||
| 46331 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46332 | f2py_stop_clock(); | |||
| 46333 | #endif | |||
| 46334 | return capi_buildvalue; | |||
| 46335 | } | |||
| 46336 | /******************************* end of dsytrd *******************************/ | |||
| 46337 | ||||
| 46338 | /******************************** ssytrd_lwork ********************************/ | |||
| 46339 | static char doc_f2py_rout__flapack_ssytrd_lwork[] = "\ | |||
| 46340 | work,info = ssytrd_lwork(n,[lower])\n\nWrapper for ``ssytrd_lwork``.\ | |||
| 46341 | \n\nParameters\n----------\n" | |||
| 46342 | "n : input int\n" | |||
| 46343 | "\nOther Parameters\n----------------\n" | |||
| 46344 | "lower : input int, optional\n Default: 0\n" | |||
| 46345 | "\nReturns\n-------\n" | |||
| 46346 | "work : float\n" | |||
| 46347 | "info : int"; | |||
| 46348 | /* extern void F_FUNC(ssytrd ,SSYTRD )(char*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */ | |||
| 46349 | static PyObject *f2py_rout__flapack_ssytrd_lwork(const PyObject *capi_self, | |||
| 46350 | PyObject *capi_args, | |||
| 46351 | PyObject *capi_keywds, | |||
| 46352 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 46353 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 46354 | volatile int f2py_success = 1; | |||
| 46355 | /*decl*/ | |||
| 46356 | ||||
| 46357 | int lower = 0; | |||
| 46358 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 46359 | int n = 0; | |||
| 46360 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 46361 | float a = 0; | |||
| 46362 | int lda = 0; | |||
| 46363 | float d = 0; | |||
| 46364 | float e = 0; | |||
| 46365 | float tau = 0; | |||
| 46366 | float work = 0; | |||
| 46367 | int lwork = 0; | |||
| 46368 | int info = 0; | |||
| 46369 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 46370 | ||||
| 46371 | /*routdebugenter*/ | |||
| 46372 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46373 | f2py_start_clock(); | |||
| 46374 | #endif | |||
| 46375 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 46376 | "O|O:_flapack.ssytrd_lwork",\ | |||
| 46377 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 46378 | return NULL((void*)0); | |||
| 46379 | /*frompyobj*/ | |||
| 46380 | /* Processing variable n */ | |||
| 46381 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssytrd_lwork() 1st argument (n) can't be converted to int"); | |||
| 46382 | if (f2py_success) { | |||
| 46383 | /* Processing variable lower */ | |||
| 46384 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 46385 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssytrd_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 46386 | if (f2py_success) { | |||
| 46387 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssytrd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssytrd_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 46388 | /* Processing variable a */ | |||
| 46389 | /* Processing variable d */ | |||
| 46390 | /* Processing variable e */ | |||
| 46391 | /* Processing variable tau */ | |||
| 46392 | /* Processing variable work */ | |||
| 46393 | /* Processing variable lwork */ | |||
| 46394 | lwork = -1; | |||
| 46395 | /* Processing variable info */ | |||
| 46396 | /* Processing variable lda */ | |||
| 46397 | lda = MAX(n,1)((n > 1) ? (n) : (1)); | |||
| 46398 | /*end of frompyobj*/ | |||
| 46399 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46400 | f2py_start_call_clock(); | |||
| 46401 | #endif | |||
| 46402 | /*callfortranroutine*/ | |||
| 46403 | (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info); ; | |||
| 46404 | /*(*f2py_func)(&lower,&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info);*/ | |||
| 46405 | if (PyErr_Occurred()) | |||
| 46406 | f2py_success = 0; | |||
| 46407 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46408 | f2py_stop_call_clock(); | |||
| 46409 | #endif | |||
| 46410 | /*end of callfortranroutine*/ | |||
| 46411 | if (f2py_success) { | |||
| 46412 | /*pyobjfrom*/ | |||
| 46413 | /*end of pyobjfrom*/ | |||
| 46414 | CFUNCSMESS("Building return value.\n"); | |||
| 46415 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 46416 | /*closepyobjfrom*/ | |||
| 46417 | /*end of closepyobjfrom*/ | |||
| 46418 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 46419 | /*cleanupfrompyobj*/ | |||
| 46420 | /* End of cleaning variable lda */ | |||
| 46421 | /* End of cleaning variable info */ | |||
| 46422 | /* End of cleaning variable lwork */ | |||
| 46423 | /* End of cleaning variable work */ | |||
| 46424 | /* End of cleaning variable tau */ | |||
| 46425 | /* End of cleaning variable e */ | |||
| 46426 | /* End of cleaning variable d */ | |||
| 46427 | /* End of cleaning variable a */ | |||
| 46428 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 46429 | } /*if (f2py_success) of lower*/ | |||
| 46430 | /* End of cleaning variable lower */ | |||
| 46431 | } /*if (f2py_success) of n*/ | |||
| 46432 | /* End of cleaning variable n */ | |||
| 46433 | /*end of cleanupfrompyobj*/ | |||
| 46434 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 46435 | /*routdebugfailure*/ | |||
| 46436 | } else { | |||
| 46437 | /*routdebugleave*/ | |||
| 46438 | } | |||
| 46439 | CFUNCSMESS("Freeing memory.\n"); | |||
| 46440 | /*freemem*/ | |||
| 46441 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46442 | f2py_stop_clock(); | |||
| 46443 | #endif | |||
| 46444 | return capi_buildvalue; | |||
| 46445 | } | |||
| 46446 | /**************************** end of ssytrd_lwork ****************************/ | |||
| 46447 | ||||
| 46448 | /******************************** dsytrd_lwork ********************************/ | |||
| 46449 | static char doc_f2py_rout__flapack_dsytrd_lwork[] = "\ | |||
| 46450 | work,info = dsytrd_lwork(n,[lower])\n\nWrapper for ``dsytrd_lwork``.\ | |||
| 46451 | \n\nParameters\n----------\n" | |||
| 46452 | "n : input int\n" | |||
| 46453 | "\nOther Parameters\n----------------\n" | |||
| 46454 | "lower : input int, optional\n Default: 0\n" | |||
| 46455 | "\nReturns\n-------\n" | |||
| 46456 | "work : float\n" | |||
| 46457 | "info : int"; | |||
| 46458 | /* extern void F_FUNC(dsytrd ,DSYTRD )(char*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */ | |||
| 46459 | static PyObject *f2py_rout__flapack_dsytrd_lwork(const PyObject *capi_self, | |||
| 46460 | PyObject *capi_args, | |||
| 46461 | PyObject *capi_keywds, | |||
| 46462 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 46463 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 46464 | volatile int f2py_success = 1; | |||
| 46465 | /*decl*/ | |||
| 46466 | ||||
| 46467 | int lower = 0; | |||
| 46468 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 46469 | int n = 0; | |||
| 46470 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 46471 | double a = 0; | |||
| 46472 | int lda = 0; | |||
| 46473 | double d = 0; | |||
| 46474 | double e = 0; | |||
| 46475 | double tau = 0; | |||
| 46476 | double work = 0; | |||
| 46477 | int lwork = 0; | |||
| 46478 | int info = 0; | |||
| 46479 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 46480 | ||||
| 46481 | /*routdebugenter*/ | |||
| 46482 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46483 | f2py_start_clock(); | |||
| 46484 | #endif | |||
| 46485 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 46486 | "O|O:_flapack.dsytrd_lwork",\ | |||
| 46487 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 46488 | return NULL((void*)0); | |||
| 46489 | /*frompyobj*/ | |||
| 46490 | /* Processing variable n */ | |||
| 46491 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsytrd_lwork() 1st argument (n) can't be converted to int"); | |||
| 46492 | if (f2py_success) { | |||
| 46493 | /* Processing variable lower */ | |||
| 46494 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 46495 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsytrd_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 46496 | if (f2py_success) { | |||
| 46497 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsytrd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsytrd_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 46498 | /* Processing variable a */ | |||
| 46499 | /* Processing variable d */ | |||
| 46500 | /* Processing variable e */ | |||
| 46501 | /* Processing variable tau */ | |||
| 46502 | /* Processing variable work */ | |||
| 46503 | /* Processing variable lwork */ | |||
| 46504 | lwork = -1; | |||
| 46505 | /* Processing variable info */ | |||
| 46506 | /* Processing variable lda */ | |||
| 46507 | lda = MAX(n,1)((n > 1) ? (n) : (1)); | |||
| 46508 | /*end of frompyobj*/ | |||
| 46509 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46510 | f2py_start_call_clock(); | |||
| 46511 | #endif | |||
| 46512 | /*callfortranroutine*/ | |||
| 46513 | (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info); ; | |||
| 46514 | /*(*f2py_func)(&lower,&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info);*/ | |||
| 46515 | if (PyErr_Occurred()) | |||
| 46516 | f2py_success = 0; | |||
| 46517 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46518 | f2py_stop_call_clock(); | |||
| 46519 | #endif | |||
| 46520 | /*end of callfortranroutine*/ | |||
| 46521 | if (f2py_success) { | |||
| 46522 | /*pyobjfrom*/ | |||
| 46523 | /*end of pyobjfrom*/ | |||
| 46524 | CFUNCSMESS("Building return value.\n"); | |||
| 46525 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 46526 | /*closepyobjfrom*/ | |||
| 46527 | /*end of closepyobjfrom*/ | |||
| 46528 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 46529 | /*cleanupfrompyobj*/ | |||
| 46530 | /* End of cleaning variable lda */ | |||
| 46531 | /* End of cleaning variable info */ | |||
| 46532 | /* End of cleaning variable lwork */ | |||
| 46533 | /* End of cleaning variable work */ | |||
| 46534 | /* End of cleaning variable tau */ | |||
| 46535 | /* End of cleaning variable e */ | |||
| 46536 | /* End of cleaning variable d */ | |||
| 46537 | /* End of cleaning variable a */ | |||
| 46538 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 46539 | } /*if (f2py_success) of lower*/ | |||
| 46540 | /* End of cleaning variable lower */ | |||
| 46541 | } /*if (f2py_success) of n*/ | |||
| 46542 | /* End of cleaning variable n */ | |||
| 46543 | /*end of cleanupfrompyobj*/ | |||
| 46544 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 46545 | /*routdebugfailure*/ | |||
| 46546 | } else { | |||
| 46547 | /*routdebugleave*/ | |||
| 46548 | } | |||
| 46549 | CFUNCSMESS("Freeing memory.\n"); | |||
| 46550 | /*freemem*/ | |||
| 46551 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46552 | f2py_stop_clock(); | |||
| 46553 | #endif | |||
| 46554 | return capi_buildvalue; | |||
| 46555 | } | |||
| 46556 | /**************************** end of dsytrd_lwork ****************************/ | |||
| 46557 | ||||
| 46558 | /*********************************** chetrd ***********************************/ | |||
| 46559 | static char doc_f2py_rout__flapack_chetrd[] = "\ | |||
| 46560 | c,d,e,tau,info = chetrd(a,[lower,lwork,overwrite_a])\n\nWrapper for ``chetrd``.\ | |||
| 46561 | \n\nParameters\n----------\n" | |||
| 46562 | "a : input rank-2 array('F') with bounds (lda,n)\n" | |||
| 46563 | "\nOther Parameters\n----------------\n" | |||
| 46564 | "lower : input int, optional\n Default: 0\n" | |||
| 46565 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 46566 | "lwork : input int, optional\n Default: MAX(n,1)\n" | |||
| 46567 | "\nReturns\n-------\n" | |||
| 46568 | "c : rank-2 array('F') with bounds (lda,n) and a storage\n" | |||
| 46569 | "d : rank-1 array('f') with bounds (n)\n" | |||
| 46570 | "e : rank-1 array('f') with bounds (n - 1)\n" | |||
| 46571 | "tau : rank-1 array('F') with bounds (n - 1)\n" | |||
| 46572 | "info : int"; | |||
| 46573 | /* extern void F_FUNC(chetrd,CHETRD)(char*,F_INT*,complex_float*,F_INT*,float*,float*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 46574 | static PyObject *f2py_rout__flapack_chetrd(const PyObject *capi_self, | |||
| 46575 | PyObject *capi_args, | |||
| 46576 | PyObject *capi_keywds, | |||
| 46577 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 46578 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 46579 | volatile int f2py_success = 1; | |||
| 46580 | /*decl*/ | |||
| 46581 | ||||
| 46582 | int lower = 0; | |||
| 46583 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 46584 | int n = 0; | |||
| 46585 | complex_float *a = NULL((void*)0); | |||
| 46586 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 46587 | const int a_Rank = 2; | |||
| 46588 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 46589 | int capi_a_intent = 0; | |||
| 46590 | int capi_overwrite_a = 0; | |||
| 46591 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 46592 | int lda = 0; | |||
| 46593 | float *d = NULL((void*)0); | |||
| 46594 | npy_intp d_Dims[1] = {-1}; | |||
| 46595 | const int d_Rank = 1; | |||
| 46596 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 46597 | int capi_d_intent = 0; | |||
| 46598 | float *e = NULL((void*)0); | |||
| 46599 | npy_intp e_Dims[1] = {-1}; | |||
| 46600 | const int e_Rank = 1; | |||
| 46601 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 46602 | int capi_e_intent = 0; | |||
| 46603 | complex_float *tau = NULL((void*)0); | |||
| 46604 | npy_intp tau_Dims[1] = {-1}; | |||
| 46605 | const int tau_Rank = 1; | |||
| 46606 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 46607 | int capi_tau_intent = 0; | |||
| 46608 | complex_float *work = NULL((void*)0); | |||
| 46609 | npy_intp work_Dims[1] = {-1}; | |||
| 46610 | const int work_Rank = 1; | |||
| 46611 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 46612 | int capi_work_intent = 0; | |||
| 46613 | int lwork = 0; | |||
| 46614 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 46615 | int info = 0; | |||
| 46616 | static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 46617 | ||||
| 46618 | /*routdebugenter*/ | |||
| 46619 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46620 | f2py_start_clock(); | |||
| 46621 | #endif | |||
| 46622 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 46623 | "O|OOi:_flapack.chetrd",\ | |||
| 46624 | capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 46625 | return NULL((void*)0); | |||
| 46626 | /*frompyobj*/ | |||
| 46627 | /* Processing variable lower */ | |||
| 46628 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 46629 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chetrd() 1st keyword (lower) can't be converted to int"); | |||
| 46630 | if (f2py_success) { | |||
| 46631 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","chetrd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chetrd:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 46632 | /* Processing variable a */ | |||
| 46633 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 46634 | ; | |||
| 46635 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 46636 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 46637 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 46638 | if (!PyErr_Occurred()) | |||
| 46639 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chetrd to C/Fortran array" ); | |||
| 46640 | } else { | |||
| 46641 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 46642 | ||||
| 46643 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 46644 | /* Processing variable info */ | |||
| 46645 | /* Processing variable lda */ | |||
| 46646 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 46647 | /* Processing variable n */ | |||
| 46648 | n = shape(a,1)a_Dims[1]; | |||
| 46649 | /* Processing variable d */ | |||
| 46650 | d_Dims[0]=n; | |||
| 46651 | capi_d_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 46652 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,Py_None(&_Py_NoneStruct)); | |||
| 46653 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 46654 | if (!PyErr_Occurred()) | |||
| 46655 | PyErr_SetString(_flapack_error,"failed in converting hidden `d' of _flapack.chetrd to C/Fortran array" ); | |||
| 46656 | } else { | |||
| 46657 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 46658 | ||||
| 46659 | /* Processing variable e */ | |||
| 46660 | e_Dims[0]=n - 1; | |||
| 46661 | capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 46662 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct)); | |||
| 46663 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 46664 | if (!PyErr_Occurred()) | |||
| 46665 | PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.chetrd to C/Fortran array" ); | |||
| 46666 | } else { | |||
| 46667 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 46668 | ||||
| 46669 | /* Processing variable tau */ | |||
| 46670 | tau_Dims[0]=n - 1; | |||
| 46671 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 46672 | capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 46673 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 46674 | if (!PyErr_Occurred()) | |||
| 46675 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.chetrd to C/Fortran array" ); | |||
| 46676 | } else { | |||
| 46677 | tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 46678 | ||||
| 46679 | /* Processing variable lwork */ | |||
| 46680 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else | |||
| 46681 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chetrd() 2nd keyword (lwork) can't be converted to int"); | |||
| 46682 | if (f2py_success) { | |||
| 46683 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","chetrd:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chetrd:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 46684 | /* Processing variable work */ | |||
| 46685 | work_Dims[0]=lwork; | |||
| 46686 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 46687 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 46688 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 46689 | if (!PyErr_Occurred()) | |||
| 46690 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chetrd to C/Fortran array" ); | |||
| 46691 | } else { | |||
| 46692 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 46693 | ||||
| 46694 | /*end of frompyobj*/ | |||
| 46695 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46696 | f2py_start_call_clock(); | |||
| 46697 | #endif | |||
| 46698 | /*callfortranroutine*/ | |||
| 46699 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,d,e,tau,work,&lwork,&info); ; | |||
| 46700 | /*(*f2py_func)(&lower,&n,a,&lda,d,e,tau,work,&lwork,&info);*/ | |||
| 46701 | if (PyErr_Occurred()) | |||
| 46702 | f2py_success = 0; | |||
| 46703 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46704 | f2py_stop_call_clock(); | |||
| 46705 | #endif | |||
| 46706 | /*end of callfortranroutine*/ | |||
| 46707 | if (f2py_success) { | |||
| 46708 | /*pyobjfrom*/ | |||
| 46709 | /*end of pyobjfrom*/ | |||
| 46710 | CFUNCSMESS("Building return value.\n"); | |||
| 46711 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_d_tmp,capi_e_tmp,capi_tau_tmp,info); | |||
| 46712 | /*closepyobjfrom*/ | |||
| 46713 | /*end of closepyobjfrom*/ | |||
| 46714 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 46715 | /*cleanupfrompyobj*/ | |||
| 46716 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 46717 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 46718 | /* End of cleaning variable work */ | |||
| 46719 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 46720 | } /*if (f2py_success) of lwork*/ | |||
| 46721 | /* End of cleaning variable lwork */ | |||
| 46722 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 46723 | /* End of cleaning variable tau */ | |||
| 46724 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 46725 | /* End of cleaning variable e */ | |||
| 46726 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 46727 | /* End of cleaning variable d */ | |||
| 46728 | /* End of cleaning variable n */ | |||
| 46729 | /* End of cleaning variable lda */ | |||
| 46730 | /* End of cleaning variable info */ | |||
| 46731 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 46732 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 46733 | /* End of cleaning variable a */ | |||
| 46734 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 46735 | } /*if (f2py_success) of lower*/ | |||
| 46736 | /* End of cleaning variable lower */ | |||
| 46737 | /*end of cleanupfrompyobj*/ | |||
| 46738 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 46739 | /*routdebugfailure*/ | |||
| 46740 | } else { | |||
| 46741 | /*routdebugleave*/ | |||
| 46742 | } | |||
| 46743 | CFUNCSMESS("Freeing memory.\n"); | |||
| 46744 | /*freemem*/ | |||
| 46745 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46746 | f2py_stop_clock(); | |||
| 46747 | #endif | |||
| 46748 | return capi_buildvalue; | |||
| 46749 | } | |||
| 46750 | /******************************* end of chetrd *******************************/ | |||
| 46751 | ||||
| 46752 | /*********************************** zhetrd ***********************************/ | |||
| 46753 | static char doc_f2py_rout__flapack_zhetrd[] = "\ | |||
| 46754 | c,d,e,tau,info = zhetrd(a,[lower,lwork,overwrite_a])\n\nWrapper for ``zhetrd``.\ | |||
| 46755 | \n\nParameters\n----------\n" | |||
| 46756 | "a : input rank-2 array('D') with bounds (lda,n)\n" | |||
| 46757 | "\nOther Parameters\n----------------\n" | |||
| 46758 | "lower : input int, optional\n Default: 0\n" | |||
| 46759 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 46760 | "lwork : input int, optional\n Default: MAX(n,1)\n" | |||
| 46761 | "\nReturns\n-------\n" | |||
| 46762 | "c : rank-2 array('D') with bounds (lda,n) and a storage\n" | |||
| 46763 | "d : rank-1 array('d') with bounds (n)\n" | |||
| 46764 | "e : rank-1 array('d') with bounds (n - 1)\n" | |||
| 46765 | "tau : rank-1 array('D') with bounds (n - 1)\n" | |||
| 46766 | "info : int"; | |||
| 46767 | /* extern void F_FUNC(zhetrd,ZHETRD)(char*,F_INT*,complex_double*,F_INT*,double*,double*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 46768 | static PyObject *f2py_rout__flapack_zhetrd(const PyObject *capi_self, | |||
| 46769 | PyObject *capi_args, | |||
| 46770 | PyObject *capi_keywds, | |||
| 46771 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 46772 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 46773 | volatile int f2py_success = 1; | |||
| 46774 | /*decl*/ | |||
| 46775 | ||||
| 46776 | int lower = 0; | |||
| 46777 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 46778 | int n = 0; | |||
| 46779 | complex_double *a = NULL((void*)0); | |||
| 46780 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 46781 | const int a_Rank = 2; | |||
| 46782 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 46783 | int capi_a_intent = 0; | |||
| 46784 | int capi_overwrite_a = 0; | |||
| 46785 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 46786 | int lda = 0; | |||
| 46787 | double *d = NULL((void*)0); | |||
| 46788 | npy_intp d_Dims[1] = {-1}; | |||
| 46789 | const int d_Rank = 1; | |||
| 46790 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 46791 | int capi_d_intent = 0; | |||
| 46792 | double *e = NULL((void*)0); | |||
| 46793 | npy_intp e_Dims[1] = {-1}; | |||
| 46794 | const int e_Rank = 1; | |||
| 46795 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 46796 | int capi_e_intent = 0; | |||
| 46797 | complex_double *tau = NULL((void*)0); | |||
| 46798 | npy_intp tau_Dims[1] = {-1}; | |||
| 46799 | const int tau_Rank = 1; | |||
| 46800 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 46801 | int capi_tau_intent = 0; | |||
| 46802 | complex_double *work = NULL((void*)0); | |||
| 46803 | npy_intp work_Dims[1] = {-1}; | |||
| 46804 | const int work_Rank = 1; | |||
| 46805 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 46806 | int capi_work_intent = 0; | |||
| 46807 | int lwork = 0; | |||
| 46808 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 46809 | int info = 0; | |||
| 46810 | static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)}; | |||
| 46811 | ||||
| 46812 | /*routdebugenter*/ | |||
| 46813 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46814 | f2py_start_clock(); | |||
| 46815 | #endif | |||
| 46816 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 46817 | "O|OOi:_flapack.zhetrd",\ | |||
| 46818 | capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 46819 | return NULL((void*)0); | |||
| 46820 | /*frompyobj*/ | |||
| 46821 | /* Processing variable lower */ | |||
| 46822 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 46823 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhetrd() 1st keyword (lower) can't be converted to int"); | |||
| 46824 | if (f2py_success) { | |||
| 46825 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhetrd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhetrd:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 46826 | /* Processing variable a */ | |||
| 46827 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 46828 | ; | |||
| 46829 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 46830 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 46831 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 46832 | if (!PyErr_Occurred()) | |||
| 46833 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhetrd to C/Fortran array" ); | |||
| 46834 | } else { | |||
| 46835 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 46836 | ||||
| 46837 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 46838 | /* Processing variable info */ | |||
| 46839 | /* Processing variable lda */ | |||
| 46840 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 46841 | /* Processing variable n */ | |||
| 46842 | n = shape(a,1)a_Dims[1]; | |||
| 46843 | /* Processing variable d */ | |||
| 46844 | d_Dims[0]=n; | |||
| 46845 | capi_d_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 46846 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,Py_None(&_Py_NoneStruct)); | |||
| 46847 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 46848 | if (!PyErr_Occurred()) | |||
| 46849 | PyErr_SetString(_flapack_error,"failed in converting hidden `d' of _flapack.zhetrd to C/Fortran array" ); | |||
| 46850 | } else { | |||
| 46851 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 46852 | ||||
| 46853 | /* Processing variable e */ | |||
| 46854 | e_Dims[0]=n - 1; | |||
| 46855 | capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 46856 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct)); | |||
| 46857 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 46858 | if (!PyErr_Occurred()) | |||
| 46859 | PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.zhetrd to C/Fortran array" ); | |||
| 46860 | } else { | |||
| 46861 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 46862 | ||||
| 46863 | /* Processing variable tau */ | |||
| 46864 | tau_Dims[0]=n - 1; | |||
| 46865 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 46866 | capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 46867 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 46868 | if (!PyErr_Occurred()) | |||
| 46869 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.zhetrd to C/Fortran array" ); | |||
| 46870 | } else { | |||
| 46871 | tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 46872 | ||||
| 46873 | /* Processing variable lwork */ | |||
| 46874 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else | |||
| 46875 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhetrd() 2nd keyword (lwork) can't be converted to int"); | |||
| 46876 | if (f2py_success) { | |||
| 46877 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","zhetrd:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhetrd:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 46878 | /* Processing variable work */ | |||
| 46879 | work_Dims[0]=lwork; | |||
| 46880 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 46881 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 46882 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 46883 | if (!PyErr_Occurred()) | |||
| 46884 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhetrd to C/Fortran array" ); | |||
| 46885 | } else { | |||
| 46886 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 46887 | ||||
| 46888 | /*end of frompyobj*/ | |||
| 46889 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46890 | f2py_start_call_clock(); | |||
| 46891 | #endif | |||
| 46892 | /*callfortranroutine*/ | |||
| 46893 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,d,e,tau,work,&lwork,&info); ; | |||
| 46894 | /*(*f2py_func)(&lower,&n,a,&lda,d,e,tau,work,&lwork,&info);*/ | |||
| 46895 | if (PyErr_Occurred()) | |||
| 46896 | f2py_success = 0; | |||
| 46897 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46898 | f2py_stop_call_clock(); | |||
| 46899 | #endif | |||
| 46900 | /*end of callfortranroutine*/ | |||
| 46901 | if (f2py_success) { | |||
| 46902 | /*pyobjfrom*/ | |||
| 46903 | /*end of pyobjfrom*/ | |||
| 46904 | CFUNCSMESS("Building return value.\n"); | |||
| 46905 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_d_tmp,capi_e_tmp,capi_tau_tmp,info); | |||
| 46906 | /*closepyobjfrom*/ | |||
| 46907 | /*end of closepyobjfrom*/ | |||
| 46908 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 46909 | /*cleanupfrompyobj*/ | |||
| 46910 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 46911 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 46912 | /* End of cleaning variable work */ | |||
| 46913 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 46914 | } /*if (f2py_success) of lwork*/ | |||
| 46915 | /* End of cleaning variable lwork */ | |||
| 46916 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 46917 | /* End of cleaning variable tau */ | |||
| 46918 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 46919 | /* End of cleaning variable e */ | |||
| 46920 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 46921 | /* End of cleaning variable d */ | |||
| 46922 | /* End of cleaning variable n */ | |||
| 46923 | /* End of cleaning variable lda */ | |||
| 46924 | /* End of cleaning variable info */ | |||
| 46925 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 46926 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 46927 | /* End of cleaning variable a */ | |||
| 46928 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 46929 | } /*if (f2py_success) of lower*/ | |||
| 46930 | /* End of cleaning variable lower */ | |||
| 46931 | /*end of cleanupfrompyobj*/ | |||
| 46932 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 46933 | /*routdebugfailure*/ | |||
| 46934 | } else { | |||
| 46935 | /*routdebugleave*/ | |||
| 46936 | } | |||
| 46937 | CFUNCSMESS("Freeing memory.\n"); | |||
| 46938 | /*freemem*/ | |||
| 46939 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46940 | f2py_stop_clock(); | |||
| 46941 | #endif | |||
| 46942 | return capi_buildvalue; | |||
| 46943 | } | |||
| 46944 | /******************************* end of zhetrd *******************************/ | |||
| 46945 | ||||
| 46946 | /******************************** chetrd_lwork ********************************/ | |||
| 46947 | static char doc_f2py_rout__flapack_chetrd_lwork[] = "\ | |||
| 46948 | work,info = chetrd_lwork(n,[lower])\n\nWrapper for ``chetrd_lwork``.\ | |||
| 46949 | \n\nParameters\n----------\n" | |||
| 46950 | "n : input int\n" | |||
| 46951 | "\nOther Parameters\n----------------\n" | |||
| 46952 | "lower : input int, optional\n Default: 0\n" | |||
| 46953 | "\nReturns\n-------\n" | |||
| 46954 | "work : complex\n" | |||
| 46955 | "info : int"; | |||
| 46956 | /* extern void F_FUNC(chetrd ,CHETRD )(char*,F_INT*,complex_float*,F_INT*,float*,float*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 46957 | static PyObject *f2py_rout__flapack_chetrd_lwork(const PyObject *capi_self, | |||
| 46958 | PyObject *capi_args, | |||
| 46959 | PyObject *capi_keywds, | |||
| 46960 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 46961 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 46962 | volatile int f2py_success = 1; | |||
| 46963 | /*decl*/ | |||
| 46964 | ||||
| 46965 | int lower = 0; | |||
| 46966 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 46967 | int n = 0; | |||
| 46968 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 46969 | complex_float a; | |||
| 46970 | int lda = 0; | |||
| 46971 | float d = 0; | |||
| 46972 | float e = 0; | |||
| 46973 | complex_float tau; | |||
| 46974 | complex_float work; | |||
| 46975 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 46976 | int lwork = 0; | |||
| 46977 | int info = 0; | |||
| 46978 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 46979 | ||||
| 46980 | /*routdebugenter*/ | |||
| 46981 | #ifdef F2PY_REPORT_ATEXIT | |||
| 46982 | f2py_start_clock(); | |||
| 46983 | #endif | |||
| 46984 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 46985 | "O|O:_flapack.chetrd_lwork",\ | |||
| 46986 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 46987 | return NULL((void*)0); | |||
| 46988 | /*frompyobj*/ | |||
| 46989 | /* Processing variable n */ | |||
| 46990 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chetrd_lwork() 1st argument (n) can't be converted to int"); | |||
| 46991 | if (f2py_success) { | |||
| 46992 | /* Processing variable lower */ | |||
| 46993 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 46994 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chetrd_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 46995 | if (f2py_success) { | |||
| 46996 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","chetrd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chetrd_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 46997 | /* Processing variable a */ | |||
| 46998 | /* Processing variable d */ | |||
| 46999 | /* Processing variable e */ | |||
| 47000 | /* Processing variable tau */ | |||
| 47001 | /* Processing variable work */ | |||
| 47002 | /* Processing variable lwork */ | |||
| 47003 | lwork = -1; | |||
| 47004 | /* Processing variable info */ | |||
| 47005 | /* Processing variable lda */ | |||
| 47006 | lda = MAX(n,1)((n > 1) ? (n) : (1)); | |||
| 47007 | /*end of frompyobj*/ | |||
| 47008 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47009 | f2py_start_call_clock(); | |||
| 47010 | #endif | |||
| 47011 | /*callfortranroutine*/ | |||
| 47012 | (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info); ; | |||
| 47013 | /*(*f2py_func)(&lower,&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info);*/ | |||
| 47014 | if (PyErr_Occurred()) | |||
| 47015 | f2py_success = 0; | |||
| 47016 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47017 | f2py_stop_call_clock(); | |||
| 47018 | #endif | |||
| 47019 | /*end of callfortranroutine*/ | |||
| 47020 | if (f2py_success) { | |||
| 47021 | /*pyobjfrom*/ | |||
| 47022 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 47023 | /*end of pyobjfrom*/ | |||
| 47024 | CFUNCSMESS("Building return value.\n"); | |||
| 47025 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 47026 | /*closepyobjfrom*/ | |||
| 47027 | /*end of closepyobjfrom*/ | |||
| 47028 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 47029 | /*cleanupfrompyobj*/ | |||
| 47030 | /* End of cleaning variable lda */ | |||
| 47031 | /* End of cleaning variable info */ | |||
| 47032 | /* End of cleaning variable lwork */ | |||
| 47033 | /* End of cleaning variable work */ | |||
| 47034 | /* End of cleaning variable tau */ | |||
| 47035 | /* End of cleaning variable e */ | |||
| 47036 | /* End of cleaning variable d */ | |||
| 47037 | /* End of cleaning variable a */ | |||
| 47038 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 47039 | } /*if (f2py_success) of lower*/ | |||
| 47040 | /* End of cleaning variable lower */ | |||
| 47041 | } /*if (f2py_success) of n*/ | |||
| 47042 | /* End of cleaning variable n */ | |||
| 47043 | /*end of cleanupfrompyobj*/ | |||
| 47044 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 47045 | /*routdebugfailure*/ | |||
| 47046 | } else { | |||
| 47047 | /*routdebugleave*/ | |||
| 47048 | } | |||
| 47049 | CFUNCSMESS("Freeing memory.\n"); | |||
| 47050 | /*freemem*/ | |||
| 47051 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47052 | f2py_stop_clock(); | |||
| 47053 | #endif | |||
| 47054 | return capi_buildvalue; | |||
| 47055 | } | |||
| 47056 | /**************************** end of chetrd_lwork ****************************/ | |||
| 47057 | ||||
| 47058 | /******************************** zhetrd_lwork ********************************/ | |||
| 47059 | static char doc_f2py_rout__flapack_zhetrd_lwork[] = "\ | |||
| 47060 | work,info = zhetrd_lwork(n,[lower])\n\nWrapper for ``zhetrd_lwork``.\ | |||
| 47061 | \n\nParameters\n----------\n" | |||
| 47062 | "n : input int\n" | |||
| 47063 | "\nOther Parameters\n----------------\n" | |||
| 47064 | "lower : input int, optional\n Default: 0\n" | |||
| 47065 | "\nReturns\n-------\n" | |||
| 47066 | "work : complex\n" | |||
| 47067 | "info : int"; | |||
| 47068 | /* extern void F_FUNC(zhetrd ,ZHETRD )(char*,F_INT*,complex_double*,F_INT*,double*,double*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 47069 | static PyObject *f2py_rout__flapack_zhetrd_lwork(const PyObject *capi_self, | |||
| 47070 | PyObject *capi_args, | |||
| 47071 | PyObject *capi_keywds, | |||
| 47072 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 47073 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 47074 | volatile int f2py_success = 1; | |||
| 47075 | /*decl*/ | |||
| 47076 | ||||
| 47077 | int lower = 0; | |||
| 47078 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 47079 | int n = 0; | |||
| 47080 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 47081 | complex_double a; | |||
| 47082 | int lda = 0; | |||
| 47083 | double d = 0; | |||
| 47084 | double e = 0; | |||
| 47085 | complex_double tau; | |||
| 47086 | complex_double work; | |||
| 47087 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 47088 | int lwork = 0; | |||
| 47089 | int info = 0; | |||
| 47090 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 47091 | ||||
| 47092 | /*routdebugenter*/ | |||
| 47093 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47094 | f2py_start_clock(); | |||
| 47095 | #endif | |||
| 47096 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 47097 | "O|O:_flapack.zhetrd_lwork",\ | |||
| 47098 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 47099 | return NULL((void*)0); | |||
| 47100 | /*frompyobj*/ | |||
| 47101 | /* Processing variable n */ | |||
| 47102 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhetrd_lwork() 1st argument (n) can't be converted to int"); | |||
| 47103 | if (f2py_success) { | |||
| 47104 | /* Processing variable lower */ | |||
| 47105 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 47106 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhetrd_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 47107 | if (f2py_success) { | |||
| 47108 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhetrd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhetrd_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 47109 | /* Processing variable a */ | |||
| 47110 | /* Processing variable d */ | |||
| 47111 | /* Processing variable e */ | |||
| 47112 | /* Processing variable tau */ | |||
| 47113 | /* Processing variable work */ | |||
| 47114 | /* Processing variable lwork */ | |||
| 47115 | lwork = -1; | |||
| 47116 | /* Processing variable info */ | |||
| 47117 | /* Processing variable lda */ | |||
| 47118 | lda = MAX(n,1)((n > 1) ? (n) : (1)); | |||
| 47119 | /*end of frompyobj*/ | |||
| 47120 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47121 | f2py_start_call_clock(); | |||
| 47122 | #endif | |||
| 47123 | /*callfortranroutine*/ | |||
| 47124 | (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info); ; | |||
| 47125 | /*(*f2py_func)(&lower,&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info);*/ | |||
| 47126 | if (PyErr_Occurred()) | |||
| 47127 | f2py_success = 0; | |||
| 47128 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47129 | f2py_stop_call_clock(); | |||
| 47130 | #endif | |||
| 47131 | /*end of callfortranroutine*/ | |||
| 47132 | if (f2py_success) { | |||
| 47133 | /*pyobjfrom*/ | |||
| 47134 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 47135 | /*end of pyobjfrom*/ | |||
| 47136 | CFUNCSMESS("Building return value.\n"); | |||
| 47137 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 47138 | /*closepyobjfrom*/ | |||
| 47139 | /*end of closepyobjfrom*/ | |||
| 47140 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 47141 | /*cleanupfrompyobj*/ | |||
| 47142 | /* End of cleaning variable lda */ | |||
| 47143 | /* End of cleaning variable info */ | |||
| 47144 | /* End of cleaning variable lwork */ | |||
| 47145 | /* End of cleaning variable work */ | |||
| 47146 | /* End of cleaning variable tau */ | |||
| 47147 | /* End of cleaning variable e */ | |||
| 47148 | /* End of cleaning variable d */ | |||
| 47149 | /* End of cleaning variable a */ | |||
| 47150 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 47151 | } /*if (f2py_success) of lower*/ | |||
| 47152 | /* End of cleaning variable lower */ | |||
| 47153 | } /*if (f2py_success) of n*/ | |||
| 47154 | /* End of cleaning variable n */ | |||
| 47155 | /*end of cleanupfrompyobj*/ | |||
| 47156 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 47157 | /*routdebugfailure*/ | |||
| 47158 | } else { | |||
| 47159 | /*routdebugleave*/ | |||
| 47160 | } | |||
| 47161 | CFUNCSMESS("Freeing memory.\n"); | |||
| 47162 | /*freemem*/ | |||
| 47163 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47164 | f2py_stop_clock(); | |||
| 47165 | #endif | |||
| 47166 | return capi_buildvalue; | |||
| 47167 | } | |||
| 47168 | /**************************** end of zhetrd_lwork ****************************/ | |||
| 47169 | ||||
| 47170 | /*********************************** ssyevr ***********************************/ | |||
| 47171 | static char doc_f2py_rout__flapack_ssyevr[] = "\ | |||
| 47172 | w,z,m,isuppz,info = ssyevr(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,liwork,overwrite_a])\n\nWrapper for ``ssyevr``.\ | |||
| 47173 | \n\nParameters\n----------\n" | |||
| 47174 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 47175 | "\nOther Parameters\n----------------\n" | |||
| 47176 | "compute_v : input int, optional\n Default: 1\n" | |||
| 47177 | "range : input string(len=1), optional\n Default: 'A'\n" | |||
| 47178 | "lower : input int, optional\n Default: 0\n" | |||
| 47179 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 47180 | "vl : input float, optional\n Default: 0.0\n" | |||
| 47181 | "vu : input float, optional\n Default: 1.0\n" | |||
| 47182 | "il : input int, optional\n Default: 1\n" | |||
| 47183 | "iu : input int, optional\n Default: n\n" | |||
| 47184 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 47185 | "lwork : input int, optional\n Default: max(26*n,1)\n" | |||
| 47186 | "liwork : input int, optional\n Default: max(1,10*n)\n" | |||
| 47187 | "\nReturns\n-------\n" | |||
| 47188 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 47189 | "z : rank-2 array('f') with bounds ((compute_v?MAX(0,n):0),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n" | |||
| 47190 | "m : int\n" | |||
| 47191 | "isuppz : rank-1 array('i') with bounds ((compute_v?(2*(*range=='A'||(*range=='I' && iu-il+1==n)?n:0)):0))\n" | |||
| 47192 | "info : int"; | |||
| 47193 | /* extern void F_FUNC(ssyevr,SSYEVR)(char*,char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 47194 | static PyObject *f2py_rout__flapack_ssyevr(const PyObject *capi_self, | |||
| 47195 | PyObject *capi_args, | |||
| 47196 | PyObject *capi_keywds, | |||
| 47197 | void (*f2py_func)(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 47198 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 47199 | volatile int f2py_success = 1; | |||
| 47200 | /*decl*/ | |||
| 47201 | ||||
| 47202 | int compute_v = 0; | |||
| 47203 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 47204 | string range = NULL((void*)0); | |||
| 47205 | int slen(range)capi_range_len; | |||
| 47206 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 47207 | int lower = 0; | |||
| 47208 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 47209 | int n = 0; | |||
| 47210 | float *a = NULL((void*)0); | |||
| 47211 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 47212 | const int a_Rank = 2; | |||
| 47213 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 47214 | int capi_a_intent = 0; | |||
| 47215 | int capi_overwrite_a = 0; | |||
| 47216 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 47217 | int lda = 0; | |||
| 47218 | float vl = 0; | |||
| 47219 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 47220 | float vu = 0; | |||
| 47221 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 47222 | int il = 0; | |||
| 47223 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 47224 | int iu = 0; | |||
| 47225 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 47226 | float abstol = 0; | |||
| 47227 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 47228 | float *w = NULL((void*)0); | |||
| 47229 | npy_intp w_Dims[1] = {-1}; | |||
| 47230 | const int w_Rank = 1; | |||
| 47231 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 47232 | int capi_w_intent = 0; | |||
| 47233 | float *z = NULL((void*)0); | |||
| 47234 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 47235 | const int z_Rank = 2; | |||
| 47236 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 47237 | int capi_z_intent = 0; | |||
| 47238 | int m = 0; | |||
| 47239 | int ldz = 0; | |||
| 47240 | int *isuppz = NULL((void*)0); | |||
| 47241 | npy_intp isuppz_Dims[1] = {-1}; | |||
| 47242 | const int isuppz_Rank = 1; | |||
| 47243 | PyArrayObject *capi_isuppz_tmp = NULL((void*)0); | |||
| 47244 | int capi_isuppz_intent = 0; | |||
| 47245 | float *work = NULL((void*)0); | |||
| 47246 | npy_intp work_Dims[1] = {-1}; | |||
| 47247 | const int work_Rank = 1; | |||
| 47248 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 47249 | int capi_work_intent = 0; | |||
| 47250 | int lwork = 0; | |||
| 47251 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 47252 | int *iwork = NULL((void*)0); | |||
| 47253 | npy_intp iwork_Dims[1] = {-1}; | |||
| 47254 | const int iwork_Rank = 1; | |||
| 47255 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 47256 | int capi_iwork_intent = 0; | |||
| 47257 | int liwork = 0; | |||
| 47258 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 47259 | int info = 0; | |||
| 47260 | static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","liwork","overwrite_a",NULL((void*)0)}; | |||
| 47261 | ||||
| 47262 | /*routdebugenter*/ | |||
| 47263 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47264 | f2py_start_clock(); | |||
| 47265 | #endif | |||
| 47266 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 47267 | "O|OOOOOOOOOOi:_flapack.ssyevr",\ | |||
| 47268 | capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a)) | |||
| 47269 | return NULL((void*)0); | |||
| 47270 | /*frompyobj*/ | |||
| 47271 | /* Processing variable a */ | |||
| 47272 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 47273 | ; | |||
| 47274 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 47275 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 47276 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 47277 | if (!PyErr_Occurred()) | |||
| 47278 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssyevr to C/Fortran array" ); | |||
| 47279 | } else { | |||
| 47280 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 47281 | ||||
| 47282 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 47283 | /* Processing variable compute_v */ | |||
| 47284 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 47285 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssyevr() 1st keyword (compute_v) can't be converted to int"); | |||
| 47286 | if (f2py_success) { | |||
| 47287 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","ssyevr:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevr:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 47288 | /* Processing variable lower */ | |||
| 47289 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 47290 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyevr() 3rd keyword (lower) can't be converted to int"); | |||
| 47291 | if (f2py_success) { | |||
| 47292 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","ssyevr:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevr:lower=%d", "(""lower==0||lower==1"") failed for " "3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 47293 | /* Processing variable vl */ | |||
| 47294 | if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else | |||
| 47295 | f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.ssyevr() 4th keyword (vl) can't be converted to float"); | |||
| 47296 | if (f2py_success) { | |||
| 47297 | /* Processing variable abstol */ | |||
| 47298 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 47299 | f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.ssyevr() 8th keyword (abstol) can't be converted to float"); | |||
| 47300 | if (f2py_success) { | |||
| 47301 | /* Processing variable m */ | |||
| 47302 | /* Processing variable info */ | |||
| 47303 | /* Processing variable range */ | |||
| 47304 | slen(range)capi_range_len = 1; | |||
| 47305 | f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.ssyevr to C string"); | |||
| 47306 | if (f2py_success) { | |||
| 47307 | CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","ssyevr:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ssyevr:slen(range)=%d range=\"%s\"" , "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range" , capi_range_len, range); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 47308 | /* Processing variable vu */ | |||
| 47309 | if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else | |||
| 47310 | f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.ssyevr() 5th keyword (vu) can't be converted to float"); | |||
| 47311 | if (f2py_success) { | |||
| 47312 | CHECKSCALAR(vu>=vl,"vu>=vl","5th keyword vu","ssyevr:vu=%g",vu)if (!(vu>=vl)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevr:vu=%g", "(""vu>=vl"") failed for ""5th keyword vu" , vu); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 47313 | /* Processing variable n */ | |||
| 47314 | n = shape(a,0)a_Dims[0]; | |||
| 47315 | /* Processing variable lda */ | |||
| 47316 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 47317 | /* Processing variable w */ | |||
| 47318 | w_Dims[0]=n; | |||
| 47319 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 47320 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 47321 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 47322 | if (!PyErr_Occurred()) | |||
| 47323 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssyevr to C/Fortran array" ); | |||
| 47324 | } else { | |||
| 47325 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 47326 | ||||
| 47327 | /* Processing variable il */ | |||
| 47328 | if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else | |||
| 47329 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.ssyevr() 6th keyword (il) can't be converted to int"); | |||
| 47330 | if (f2py_success) { | |||
| 47331 | CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","ssyevr:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevr:il=%d", "(""il>=1&&il<=n"") failed for " "6th keyword il", il); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 47332 | /* Processing variable iu */ | |||
| 47333 | if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else | |||
| 47334 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.ssyevr() 7th keyword (iu) can't be converted to int"); | |||
| 47335 | if (f2py_success) { | |||
| 47336 | CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","ssyevr:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevr:iu=%d", "(""n>=iu&&iu>=il"") failed for " "7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 47337 | /* Processing variable lwork */ | |||
| 47338 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(26*n,1)((26*n > 1) ? (26*n) : (1)); else | |||
| 47339 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssyevr() 9th keyword (lwork) can't be converted to int"); | |||
| 47340 | if (f2py_success) { | |||
| 47341 | CHECKSCALAR(lwork>=max(1,26*n)||lwork==-1,"lwork>=max(1,26*n)||lwork==-1","9th keyword lwork","ssyevr:lwork=%d",lwork)if (!(lwork>=((1 > 26*n) ? (1) : (26*n))||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ssyevr:lwork=%d" , "(""lwork>=max(1,26*n)||lwork==-1"") failed for ""9th keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 47342 | /* Processing variable liwork */ | |||
| 47343 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = max(1,10*n)((1 > 10*n) ? (1) : (10*n)); else | |||
| 47344 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.ssyevr() 10th keyword (liwork) can't be converted to int"); | |||
| 47345 | if (f2py_success) { | |||
| 47346 | CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1,"liwork>=max(1,10*n)||liwork==-1","10th keyword liwork","ssyevr:liwork=%d",liwork)if (!(liwork>=((1 > 10*n) ? (1) : (10*n))||liwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ssyevr:liwork=%d" , "(""liwork>=max(1,10*n)||liwork==-1"") failed for ""10th keyword liwork" , liwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 47347 | /* Processing variable work */ | |||
| 47348 | work_Dims[0]=lwork; | |||
| 47349 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 47350 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 47351 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 47352 | if (!PyErr_Occurred()) | |||
| 47353 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssyevr to C/Fortran array" ); | |||
| 47354 | } else { | |||
| 47355 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 47356 | ||||
| 47357 | /* Processing variable iwork */ | |||
| 47358 | iwork_Dims[0]=liwork; | |||
| 47359 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 47360 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 47361 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 47362 | if (!PyErr_Occurred()) | |||
| 47363 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssyevr to C/Fortran array" ); | |||
| 47364 | } else { | |||
| 47365 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 47366 | ||||
| 47367 | /* Processing variable z */ | |||
| 47368 | z_Dims[0]=(compute_v?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0); | |||
| 47369 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 47370 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 47371 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 47372 | if (!PyErr_Occurred()) | |||
| 47373 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.ssyevr to C/Fortran array" ); | |||
| 47374 | } else { | |||
| 47375 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 47376 | ||||
| 47377 | /* Processing variable isuppz */ | |||
| 47378 | isuppz_Dims[0]=(compute_v?(2*(*range=='A'||(*range=='I' && iu-il+1==n)?n:0)):0); | |||
| 47379 | capi_isuppz_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 47380 | capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct)); | |||
| 47381 | if (capi_isuppz_tmp == NULL((void*)0)) { | |||
| 47382 | if (!PyErr_Occurred()) | |||
| 47383 | PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.ssyevr to C/Fortran array" ); | |||
| 47384 | } else { | |||
| 47385 | isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data )); | |||
| 47386 | ||||
| 47387 | /* Processing variable ldz */ | |||
| 47388 | ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 47389 | /*end of frompyobj*/ | |||
| 47390 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47391 | f2py_start_call_clock(); | |||
| 47392 | #endif | |||
| 47393 | /*callfortranroutine*/ | |||
| 47394 | (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,isuppz,work,&lwork,iwork,&liwork,&info) ; | |||
| 47395 | /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,isuppz,work,&lwork,iwork,&liwork,&info,slen(range));*/ | |||
| 47396 | if (PyErr_Occurred()) | |||
| 47397 | f2py_success = 0; | |||
| 47398 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47399 | f2py_stop_call_clock(); | |||
| 47400 | #endif | |||
| 47401 | /*end of callfortranroutine*/ | |||
| 47402 | if (f2py_success) { | |||
| 47403 | /*pyobjfrom*/ | |||
| 47404 | /*end of pyobjfrom*/ | |||
| 47405 | CFUNCSMESS("Building return value.\n"); | |||
| 47406 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_isuppz_tmp,info); | |||
| 47407 | /*closepyobjfrom*/ | |||
| 47408 | /*end of closepyobjfrom*/ | |||
| 47409 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 47410 | /*cleanupfrompyobj*/ | |||
| 47411 | /* End of cleaning variable ldz */ | |||
| 47412 | } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/ | |||
| 47413 | /* End of cleaning variable isuppz */ | |||
| 47414 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 47415 | /* End of cleaning variable z */ | |||
| 47416 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 47417 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 47418 | /* End of cleaning variable iwork */ | |||
| 47419 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 47420 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 47421 | /* End of cleaning variable work */ | |||
| 47422 | } /*CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1)*/ | |||
| 47423 | } /*if (f2py_success) of liwork*/ | |||
| 47424 | /* End of cleaning variable liwork */ | |||
| 47425 | } /*CHECKSCALAR(lwork>=max(1,26*n)||lwork==-1)*/ | |||
| 47426 | } /*if (f2py_success) of lwork*/ | |||
| 47427 | /* End of cleaning variable lwork */ | |||
| 47428 | } /*CHECKSCALAR(n>=iu&&iu>=il)*/ | |||
| 47429 | } /*if (f2py_success) of iu*/ | |||
| 47430 | /* End of cleaning variable iu */ | |||
| 47431 | } /*CHECKSCALAR(il>=1&&il<=n)*/ | |||
| 47432 | } /*if (f2py_success) of il*/ | |||
| 47433 | /* End of cleaning variable il */ | |||
| 47434 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 47435 | /* End of cleaning variable w */ | |||
| 47436 | /* End of cleaning variable lda */ | |||
| 47437 | /* End of cleaning variable n */ | |||
| 47438 | } /*CHECKSCALAR(vu>=vl)*/ | |||
| 47439 | } /*if (f2py_success) of vu*/ | |||
| 47440 | /* End of cleaning variable vu */ | |||
| 47441 | } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/ | |||
| 47442 | STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0); | |||
| 47443 | } /*if (f2py_success) of range*/ | |||
| 47444 | /* End of cleaning variable range */ | |||
| 47445 | /* End of cleaning variable info */ | |||
| 47446 | /* End of cleaning variable m */ | |||
| 47447 | } /*if (f2py_success) of abstol*/ | |||
| 47448 | /* End of cleaning variable abstol */ | |||
| 47449 | } /*if (f2py_success) of vl*/ | |||
| 47450 | /* End of cleaning variable vl */ | |||
| 47451 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 47452 | } /*if (f2py_success) of lower*/ | |||
| 47453 | /* End of cleaning variable lower */ | |||
| 47454 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 47455 | } /*if (f2py_success) of compute_v*/ | |||
| 47456 | /* End of cleaning variable compute_v */ | |||
| 47457 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 47458 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 47459 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 47460 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 47461 | /* End of cleaning variable a */ | |||
| 47462 | /*end of cleanupfrompyobj*/ | |||
| 47463 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 47464 | /*routdebugfailure*/ | |||
| 47465 | } else { | |||
| 47466 | /*routdebugleave*/ | |||
| 47467 | } | |||
| 47468 | CFUNCSMESS("Freeing memory.\n"); | |||
| 47469 | /*freemem*/ | |||
| 47470 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47471 | f2py_stop_clock(); | |||
| 47472 | #endif | |||
| 47473 | return capi_buildvalue; | |||
| 47474 | } | |||
| 47475 | /******************************* end of ssyevr *******************************/ | |||
| 47476 | ||||
| 47477 | /*********************************** dsyevr ***********************************/ | |||
| 47478 | static char doc_f2py_rout__flapack_dsyevr[] = "\ | |||
| 47479 | w,z,m,isuppz,info = dsyevr(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,liwork,overwrite_a])\n\nWrapper for ``dsyevr``.\ | |||
| 47480 | \n\nParameters\n----------\n" | |||
| 47481 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 47482 | "\nOther Parameters\n----------------\n" | |||
| 47483 | "compute_v : input int, optional\n Default: 1\n" | |||
| 47484 | "range : input string(len=1), optional\n Default: 'A'\n" | |||
| 47485 | "lower : input int, optional\n Default: 0\n" | |||
| 47486 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 47487 | "vl : input float, optional\n Default: 0.0\n" | |||
| 47488 | "vu : input float, optional\n Default: 1.0\n" | |||
| 47489 | "il : input int, optional\n Default: 1\n" | |||
| 47490 | "iu : input int, optional\n Default: n\n" | |||
| 47491 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 47492 | "lwork : input int, optional\n Default: max(26*n,1)\n" | |||
| 47493 | "liwork : input int, optional\n Default: max(1,10*n)\n" | |||
| 47494 | "\nReturns\n-------\n" | |||
| 47495 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 47496 | "z : rank-2 array('d') with bounds ((compute_v?MAX(0,n):0),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n" | |||
| 47497 | "m : int\n" | |||
| 47498 | "isuppz : rank-1 array('i') with bounds ((compute_v?(2*(*range=='A'||(*range=='I' && iu-il+1==n)?n:0)):0))\n" | |||
| 47499 | "info : int"; | |||
| 47500 | /* extern void F_FUNC(dsyevr,DSYEVR)(char*,char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 47501 | static PyObject *f2py_rout__flapack_dsyevr(const PyObject *capi_self, | |||
| 47502 | PyObject *capi_args, | |||
| 47503 | PyObject *capi_keywds, | |||
| 47504 | void (*f2py_func)(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 47505 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 47506 | volatile int f2py_success = 1; | |||
| 47507 | /*decl*/ | |||
| 47508 | ||||
| 47509 | int compute_v = 0; | |||
| 47510 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 47511 | string range = NULL((void*)0); | |||
| 47512 | int slen(range)capi_range_len; | |||
| 47513 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 47514 | int lower = 0; | |||
| 47515 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 47516 | int n = 0; | |||
| 47517 | double *a = NULL((void*)0); | |||
| 47518 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 47519 | const int a_Rank = 2; | |||
| 47520 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 47521 | int capi_a_intent = 0; | |||
| 47522 | int capi_overwrite_a = 0; | |||
| 47523 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 47524 | int lda = 0; | |||
| 47525 | double vl = 0; | |||
| 47526 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 47527 | double vu = 0; | |||
| 47528 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 47529 | int il = 0; | |||
| 47530 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 47531 | int iu = 0; | |||
| 47532 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 47533 | double abstol = 0; | |||
| 47534 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 47535 | double *w = NULL((void*)0); | |||
| 47536 | npy_intp w_Dims[1] = {-1}; | |||
| 47537 | const int w_Rank = 1; | |||
| 47538 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 47539 | int capi_w_intent = 0; | |||
| 47540 | double *z = NULL((void*)0); | |||
| 47541 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 47542 | const int z_Rank = 2; | |||
| 47543 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 47544 | int capi_z_intent = 0; | |||
| 47545 | int m = 0; | |||
| 47546 | int ldz = 0; | |||
| 47547 | int *isuppz = NULL((void*)0); | |||
| 47548 | npy_intp isuppz_Dims[1] = {-1}; | |||
| 47549 | const int isuppz_Rank = 1; | |||
| 47550 | PyArrayObject *capi_isuppz_tmp = NULL((void*)0); | |||
| 47551 | int capi_isuppz_intent = 0; | |||
| 47552 | double *work = NULL((void*)0); | |||
| 47553 | npy_intp work_Dims[1] = {-1}; | |||
| 47554 | const int work_Rank = 1; | |||
| 47555 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 47556 | int capi_work_intent = 0; | |||
| 47557 | int lwork = 0; | |||
| 47558 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 47559 | int *iwork = NULL((void*)0); | |||
| 47560 | npy_intp iwork_Dims[1] = {-1}; | |||
| 47561 | const int iwork_Rank = 1; | |||
| 47562 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 47563 | int capi_iwork_intent = 0; | |||
| 47564 | int liwork = 0; | |||
| 47565 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 47566 | int info = 0; | |||
| 47567 | static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","liwork","overwrite_a",NULL((void*)0)}; | |||
| 47568 | ||||
| 47569 | /*routdebugenter*/ | |||
| 47570 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47571 | f2py_start_clock(); | |||
| 47572 | #endif | |||
| 47573 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 47574 | "O|OOOOOOOOOOi:_flapack.dsyevr",\ | |||
| 47575 | capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a)) | |||
| 47576 | return NULL((void*)0); | |||
| 47577 | /*frompyobj*/ | |||
| 47578 | /* Processing variable a */ | |||
| 47579 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 47580 | ; | |||
| 47581 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 47582 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 47583 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 47584 | if (!PyErr_Occurred()) | |||
| 47585 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsyevr to C/Fortran array" ); | |||
| 47586 | } else { | |||
| 47587 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 47588 | ||||
| 47589 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 47590 | /* Processing variable compute_v */ | |||
| 47591 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 47592 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsyevr() 1st keyword (compute_v) can't be converted to int"); | |||
| 47593 | if (f2py_success) { | |||
| 47594 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","dsyevr:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevr:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 47595 | /* Processing variable lower */ | |||
| 47596 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 47597 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyevr() 3rd keyword (lower) can't be converted to int"); | |||
| 47598 | if (f2py_success) { | |||
| 47599 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","dsyevr:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevr:lower=%d", "(""lower==0||lower==1"") failed for " "3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 47600 | /* Processing variable vl */ | |||
| 47601 | if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else | |||
| 47602 | f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dsyevr() 4th keyword (vl) can't be converted to double"); | |||
| 47603 | if (f2py_success) { | |||
| 47604 | /* Processing variable abstol */ | |||
| 47605 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 47606 | f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.dsyevr() 8th keyword (abstol) can't be converted to double"); | |||
| 47607 | if (f2py_success) { | |||
| 47608 | /* Processing variable m */ | |||
| 47609 | /* Processing variable info */ | |||
| 47610 | /* Processing variable range */ | |||
| 47611 | slen(range)capi_range_len = 1; | |||
| 47612 | f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.dsyevr to C string"); | |||
| 47613 | if (f2py_success) { | |||
| 47614 | CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","dsyevr:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dsyevr:slen(range)=%d range=\"%s\"" , "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range" , capi_range_len, range); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 47615 | /* Processing variable vu */ | |||
| 47616 | if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else | |||
| 47617 | f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dsyevr() 5th keyword (vu) can't be converted to double"); | |||
| 47618 | if (f2py_success) { | |||
| 47619 | CHECKSCALAR(vu>=vl,"vu>=vl","5th keyword vu","dsyevr:vu=%g",vu)if (!(vu>=vl)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevr:vu=%g", "(""vu>=vl"") failed for ""5th keyword vu" , vu); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 47620 | /* Processing variable n */ | |||
| 47621 | n = shape(a,0)a_Dims[0]; | |||
| 47622 | /* Processing variable lda */ | |||
| 47623 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 47624 | /* Processing variable w */ | |||
| 47625 | w_Dims[0]=n; | |||
| 47626 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 47627 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 47628 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 47629 | if (!PyErr_Occurred()) | |||
| 47630 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsyevr to C/Fortran array" ); | |||
| 47631 | } else { | |||
| 47632 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 47633 | ||||
| 47634 | /* Processing variable il */ | |||
| 47635 | if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else | |||
| 47636 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dsyevr() 6th keyword (il) can't be converted to int"); | |||
| 47637 | if (f2py_success) { | |||
| 47638 | CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","dsyevr:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevr:il=%d", "(""il>=1&&il<=n"") failed for " "6th keyword il", il); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 47639 | /* Processing variable iu */ | |||
| 47640 | if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else | |||
| 47641 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dsyevr() 7th keyword (iu) can't be converted to int"); | |||
| 47642 | if (f2py_success) { | |||
| 47643 | CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","dsyevr:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevr:iu=%d", "(""n>=iu&&iu>=il"") failed for " "7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 47644 | /* Processing variable lwork */ | |||
| 47645 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(26*n,1)((26*n > 1) ? (26*n) : (1)); else | |||
| 47646 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsyevr() 9th keyword (lwork) can't be converted to int"); | |||
| 47647 | if (f2py_success) { | |||
| 47648 | CHECKSCALAR(lwork>=max(1,26*n)||lwork==-1,"lwork>=max(1,26*n)||lwork==-1","9th keyword lwork","dsyevr:lwork=%d",lwork)if (!(lwork>=((1 > 26*n) ? (1) : (26*n))||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dsyevr:lwork=%d" , "(""lwork>=max(1,26*n)||lwork==-1"") failed for ""9th keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 47649 | /* Processing variable liwork */ | |||
| 47650 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = max(1,10*n)((1 > 10*n) ? (1) : (10*n)); else | |||
| 47651 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.dsyevr() 10th keyword (liwork) can't be converted to int"); | |||
| 47652 | if (f2py_success) { | |||
| 47653 | CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1,"liwork>=max(1,10*n)||liwork==-1","10th keyword liwork","dsyevr:liwork=%d",liwork)if (!(liwork>=((1 > 10*n) ? (1) : (10*n))||liwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dsyevr:liwork=%d" , "(""liwork>=max(1,10*n)||liwork==-1"") failed for ""10th keyword liwork" , liwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 47654 | /* Processing variable work */ | |||
| 47655 | work_Dims[0]=lwork; | |||
| 47656 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 47657 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 47658 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 47659 | if (!PyErr_Occurred()) | |||
| 47660 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsyevr to C/Fortran array" ); | |||
| 47661 | } else { | |||
| 47662 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 47663 | ||||
| 47664 | /* Processing variable iwork */ | |||
| 47665 | iwork_Dims[0]=liwork; | |||
| 47666 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 47667 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 47668 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 47669 | if (!PyErr_Occurred()) | |||
| 47670 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsyevr to C/Fortran array" ); | |||
| 47671 | } else { | |||
| 47672 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 47673 | ||||
| 47674 | /* Processing variable z */ | |||
| 47675 | z_Dims[0]=(compute_v?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0); | |||
| 47676 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 47677 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 47678 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 47679 | if (!PyErr_Occurred()) | |||
| 47680 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dsyevr to C/Fortran array" ); | |||
| 47681 | } else { | |||
| 47682 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 47683 | ||||
| 47684 | /* Processing variable isuppz */ | |||
| 47685 | isuppz_Dims[0]=(compute_v?(2*(*range=='A'||(*range=='I' && iu-il+1==n)?n:0)):0); | |||
| 47686 | capi_isuppz_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 47687 | capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct)); | |||
| 47688 | if (capi_isuppz_tmp == NULL((void*)0)) { | |||
| 47689 | if (!PyErr_Occurred()) | |||
| 47690 | PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.dsyevr to C/Fortran array" ); | |||
| 47691 | } else { | |||
| 47692 | isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data )); | |||
| 47693 | ||||
| 47694 | /* Processing variable ldz */ | |||
| 47695 | ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 47696 | /*end of frompyobj*/ | |||
| 47697 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47698 | f2py_start_call_clock(); | |||
| 47699 | #endif | |||
| 47700 | /*callfortranroutine*/ | |||
| 47701 | (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,isuppz,work,&lwork,iwork,&liwork,&info) ; | |||
| 47702 | /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,isuppz,work,&lwork,iwork,&liwork,&info,slen(range));*/ | |||
| 47703 | if (PyErr_Occurred()) | |||
| 47704 | f2py_success = 0; | |||
| 47705 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47706 | f2py_stop_call_clock(); | |||
| 47707 | #endif | |||
| 47708 | /*end of callfortranroutine*/ | |||
| 47709 | if (f2py_success) { | |||
| 47710 | /*pyobjfrom*/ | |||
| 47711 | /*end of pyobjfrom*/ | |||
| 47712 | CFUNCSMESS("Building return value.\n"); | |||
| 47713 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_isuppz_tmp,info); | |||
| 47714 | /*closepyobjfrom*/ | |||
| 47715 | /*end of closepyobjfrom*/ | |||
| 47716 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 47717 | /*cleanupfrompyobj*/ | |||
| 47718 | /* End of cleaning variable ldz */ | |||
| 47719 | } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/ | |||
| 47720 | /* End of cleaning variable isuppz */ | |||
| 47721 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 47722 | /* End of cleaning variable z */ | |||
| 47723 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 47724 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 47725 | /* End of cleaning variable iwork */ | |||
| 47726 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 47727 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 47728 | /* End of cleaning variable work */ | |||
| 47729 | } /*CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1)*/ | |||
| 47730 | } /*if (f2py_success) of liwork*/ | |||
| 47731 | /* End of cleaning variable liwork */ | |||
| 47732 | } /*CHECKSCALAR(lwork>=max(1,26*n)||lwork==-1)*/ | |||
| 47733 | } /*if (f2py_success) of lwork*/ | |||
| 47734 | /* End of cleaning variable lwork */ | |||
| 47735 | } /*CHECKSCALAR(n>=iu&&iu>=il)*/ | |||
| 47736 | } /*if (f2py_success) of iu*/ | |||
| 47737 | /* End of cleaning variable iu */ | |||
| 47738 | } /*CHECKSCALAR(il>=1&&il<=n)*/ | |||
| 47739 | } /*if (f2py_success) of il*/ | |||
| 47740 | /* End of cleaning variable il */ | |||
| 47741 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 47742 | /* End of cleaning variable w */ | |||
| 47743 | /* End of cleaning variable lda */ | |||
| 47744 | /* End of cleaning variable n */ | |||
| 47745 | } /*CHECKSCALAR(vu>=vl)*/ | |||
| 47746 | } /*if (f2py_success) of vu*/ | |||
| 47747 | /* End of cleaning variable vu */ | |||
| 47748 | } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/ | |||
| 47749 | STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0); | |||
| 47750 | } /*if (f2py_success) of range*/ | |||
| 47751 | /* End of cleaning variable range */ | |||
| 47752 | /* End of cleaning variable info */ | |||
| 47753 | /* End of cleaning variable m */ | |||
| 47754 | } /*if (f2py_success) of abstol*/ | |||
| 47755 | /* End of cleaning variable abstol */ | |||
| 47756 | } /*if (f2py_success) of vl*/ | |||
| 47757 | /* End of cleaning variable vl */ | |||
| 47758 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 47759 | } /*if (f2py_success) of lower*/ | |||
| 47760 | /* End of cleaning variable lower */ | |||
| 47761 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 47762 | } /*if (f2py_success) of compute_v*/ | |||
| 47763 | /* End of cleaning variable compute_v */ | |||
| 47764 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 47765 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 47766 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 47767 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 47768 | /* End of cleaning variable a */ | |||
| 47769 | /*end of cleanupfrompyobj*/ | |||
| 47770 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 47771 | /*routdebugfailure*/ | |||
| 47772 | } else { | |||
| 47773 | /*routdebugleave*/ | |||
| 47774 | } | |||
| 47775 | CFUNCSMESS("Freeing memory.\n"); | |||
| 47776 | /*freemem*/ | |||
| 47777 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47778 | f2py_stop_clock(); | |||
| 47779 | #endif | |||
| 47780 | return capi_buildvalue; | |||
| 47781 | } | |||
| 47782 | /******************************* end of dsyevr *******************************/ | |||
| 47783 | ||||
| 47784 | /******************************** ssyevr_lwork ********************************/ | |||
| 47785 | static char doc_f2py_rout__flapack_ssyevr_lwork[] = "\ | |||
| 47786 | work,iwork,info = ssyevr_lwork(n,[lower])\n\nWrapper for ``ssyevr_lwork``.\ | |||
| 47787 | \n\nParameters\n----------\n" | |||
| 47788 | "n : input int\n" | |||
| 47789 | "\nOther Parameters\n----------------\n" | |||
| 47790 | "lower : input int, optional\n Default: 0\n" | |||
| 47791 | "\nReturns\n-------\n" | |||
| 47792 | "work : float\n" | |||
| 47793 | "iwork : int\n" | |||
| 47794 | "info : int"; | |||
| 47795 | /* extern void F_FUNC(ssyevr ,SSYEVR )(char*,char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 47796 | static PyObject *f2py_rout__flapack_ssyevr_lwork(const PyObject *capi_self, | |||
| 47797 | PyObject *capi_args, | |||
| 47798 | PyObject *capi_keywds, | |||
| 47799 | void (*f2py_func)(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 47800 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 47801 | volatile int f2py_success = 1; | |||
| 47802 | /*decl*/ | |||
| 47803 | ||||
| 47804 | int lower = 0; | |||
| 47805 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 47806 | int n = 0; | |||
| 47807 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 47808 | float a = 0; | |||
| 47809 | int lda = 0; | |||
| 47810 | float vl = 0; | |||
| 47811 | float vu = 0; | |||
| 47812 | int il = 0; | |||
| 47813 | int iu = 0; | |||
| 47814 | float abstol = 0; | |||
| 47815 | int m = 0; | |||
| 47816 | float w = 0; | |||
| 47817 | float z = 0; | |||
| 47818 | int ldz = 0; | |||
| 47819 | int isuppz = 0; | |||
| 47820 | float work = 0; | |||
| 47821 | int lwork = 0; | |||
| 47822 | int iwork = 0; | |||
| 47823 | int liwork = 0; | |||
| 47824 | int info = 0; | |||
| 47825 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 47826 | ||||
| 47827 | /*routdebugenter*/ | |||
| 47828 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47829 | f2py_start_clock(); | |||
| 47830 | #endif | |||
| 47831 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 47832 | "O|O:_flapack.ssyevr_lwork",\ | |||
| 47833 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 47834 | return NULL((void*)0); | |||
| 47835 | /*frompyobj*/ | |||
| 47836 | /* Processing variable n */ | |||
| 47837 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssyevr_lwork() 1st argument (n) can't be converted to int"); | |||
| 47838 | if (f2py_success) { | |||
| 47839 | /* Processing variable lower */ | |||
| 47840 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 47841 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyevr_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 47842 | if (f2py_success) { | |||
| 47843 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssyevr_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevr_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 47844 | /* Processing variable a */ | |||
| 47845 | /* Processing variable vl */ | |||
| 47846 | vl = 0.0; | |||
| 47847 | /* Processing variable vu */ | |||
| 47848 | vu = 1.0; | |||
| 47849 | /* Processing variable il */ | |||
| 47850 | il = 1; | |||
| 47851 | /* Processing variable iu */ | |||
| 47852 | iu = 2; | |||
| 47853 | /* Processing variable abstol */ | |||
| 47854 | abstol = 0.0; | |||
| 47855 | /* Processing variable m */ | |||
| 47856 | m = 1; | |||
| 47857 | /* Processing variable w */ | |||
| 47858 | /* Processing variable z */ | |||
| 47859 | /* Processing variable isuppz */ | |||
| 47860 | /* Processing variable lwork */ | |||
| 47861 | lwork = -1; | |||
| 47862 | /* Processing variable liwork */ | |||
| 47863 | liwork = -1; | |||
| 47864 | /* Processing variable work */ | |||
| 47865 | /* Processing variable iwork */ | |||
| 47866 | /* Processing variable info */ | |||
| 47867 | /* Processing variable lda */ | |||
| 47868 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 47869 | /* Processing variable ldz */ | |||
| 47870 | ldz = max(1,n)((1 > n) ? (1) : (n)); | |||
| 47871 | /*end of frompyobj*/ | |||
| 47872 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47873 | f2py_start_call_clock(); | |||
| 47874 | #endif | |||
| 47875 | /*callfortranroutine*/ | |||
| 47876 | (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&iwork,&liwork,&info) ; | |||
| 47877 | /*(*f2py_func)(&lower,&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&iwork,&liwork,&info);*/ | |||
| 47878 | if (PyErr_Occurred()) | |||
| 47879 | f2py_success = 0; | |||
| 47880 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47881 | f2py_stop_call_clock(); | |||
| 47882 | #endif | |||
| 47883 | /*end of callfortranroutine*/ | |||
| 47884 | if (f2py_success) { | |||
| 47885 | /*pyobjfrom*/ | |||
| 47886 | /*end of pyobjfrom*/ | |||
| 47887 | CFUNCSMESS("Building return value.\n"); | |||
| 47888 | capi_buildvalue = Py_BuildValue("fii",work,iwork,info); | |||
| 47889 | /*closepyobjfrom*/ | |||
| 47890 | /*end of closepyobjfrom*/ | |||
| 47891 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 47892 | /*cleanupfrompyobj*/ | |||
| 47893 | /* End of cleaning variable ldz */ | |||
| 47894 | /* End of cleaning variable lda */ | |||
| 47895 | /* End of cleaning variable info */ | |||
| 47896 | /* End of cleaning variable iwork */ | |||
| 47897 | /* End of cleaning variable work */ | |||
| 47898 | /* End of cleaning variable liwork */ | |||
| 47899 | /* End of cleaning variable lwork */ | |||
| 47900 | /* End of cleaning variable isuppz */ | |||
| 47901 | /* End of cleaning variable z */ | |||
| 47902 | /* End of cleaning variable w */ | |||
| 47903 | /* End of cleaning variable m */ | |||
| 47904 | /* End of cleaning variable abstol */ | |||
| 47905 | /* End of cleaning variable iu */ | |||
| 47906 | /* End of cleaning variable il */ | |||
| 47907 | /* End of cleaning variable vu */ | |||
| 47908 | /* End of cleaning variable vl */ | |||
| 47909 | /* End of cleaning variable a */ | |||
| 47910 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 47911 | } /*if (f2py_success) of lower*/ | |||
| 47912 | /* End of cleaning variable lower */ | |||
| 47913 | } /*if (f2py_success) of n*/ | |||
| 47914 | /* End of cleaning variable n */ | |||
| 47915 | /*end of cleanupfrompyobj*/ | |||
| 47916 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 47917 | /*routdebugfailure*/ | |||
| 47918 | } else { | |||
| 47919 | /*routdebugleave*/ | |||
| 47920 | } | |||
| 47921 | CFUNCSMESS("Freeing memory.\n"); | |||
| 47922 | /*freemem*/ | |||
| 47923 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47924 | f2py_stop_clock(); | |||
| 47925 | #endif | |||
| 47926 | return capi_buildvalue; | |||
| 47927 | } | |||
| 47928 | /**************************** end of ssyevr_lwork ****************************/ | |||
| 47929 | ||||
| 47930 | /******************************** dsyevr_lwork ********************************/ | |||
| 47931 | static char doc_f2py_rout__flapack_dsyevr_lwork[] = "\ | |||
| 47932 | work,iwork,info = dsyevr_lwork(n,[lower])\n\nWrapper for ``dsyevr_lwork``.\ | |||
| 47933 | \n\nParameters\n----------\n" | |||
| 47934 | "n : input int\n" | |||
| 47935 | "\nOther Parameters\n----------------\n" | |||
| 47936 | "lower : input int, optional\n Default: 0\n" | |||
| 47937 | "\nReturns\n-------\n" | |||
| 47938 | "work : float\n" | |||
| 47939 | "iwork : int\n" | |||
| 47940 | "info : int"; | |||
| 47941 | /* extern void F_FUNC(dsyevr ,DSYEVR )(char*,char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 47942 | static PyObject *f2py_rout__flapack_dsyevr_lwork(const PyObject *capi_self, | |||
| 47943 | PyObject *capi_args, | |||
| 47944 | PyObject *capi_keywds, | |||
| 47945 | void (*f2py_func)(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 47946 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 47947 | volatile int f2py_success = 1; | |||
| 47948 | /*decl*/ | |||
| 47949 | ||||
| 47950 | int lower = 0; | |||
| 47951 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 47952 | int n = 0; | |||
| 47953 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 47954 | double a = 0; | |||
| 47955 | int lda = 0; | |||
| 47956 | double vl = 0; | |||
| 47957 | double vu = 0; | |||
| 47958 | int il = 0; | |||
| 47959 | int iu = 0; | |||
| 47960 | double abstol = 0; | |||
| 47961 | int m = 0; | |||
| 47962 | double w = 0; | |||
| 47963 | double z = 0; | |||
| 47964 | int ldz = 0; | |||
| 47965 | int isuppz = 0; | |||
| 47966 | double work = 0; | |||
| 47967 | int lwork = 0; | |||
| 47968 | int iwork = 0; | |||
| 47969 | int liwork = 0; | |||
| 47970 | int info = 0; | |||
| 47971 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 47972 | ||||
| 47973 | /*routdebugenter*/ | |||
| 47974 | #ifdef F2PY_REPORT_ATEXIT | |||
| 47975 | f2py_start_clock(); | |||
| 47976 | #endif | |||
| 47977 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 47978 | "O|O:_flapack.dsyevr_lwork",\ | |||
| 47979 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 47980 | return NULL((void*)0); | |||
| 47981 | /*frompyobj*/ | |||
| 47982 | /* Processing variable n */ | |||
| 47983 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsyevr_lwork() 1st argument (n) can't be converted to int"); | |||
| 47984 | if (f2py_success) { | |||
| 47985 | /* Processing variable lower */ | |||
| 47986 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 47987 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyevr_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 47988 | if (f2py_success) { | |||
| 47989 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsyevr_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevr_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 47990 | /* Processing variable a */ | |||
| 47991 | /* Processing variable vl */ | |||
| 47992 | vl = 0.0; | |||
| 47993 | /* Processing variable vu */ | |||
| 47994 | vu = 1.0; | |||
| 47995 | /* Processing variable il */ | |||
| 47996 | il = 1; | |||
| 47997 | /* Processing variable iu */ | |||
| 47998 | iu = 2; | |||
| 47999 | /* Processing variable abstol */ | |||
| 48000 | abstol = 0.0; | |||
| 48001 | /* Processing variable m */ | |||
| 48002 | m = 1; | |||
| 48003 | /* Processing variable w */ | |||
| 48004 | /* Processing variable z */ | |||
| 48005 | /* Processing variable isuppz */ | |||
| 48006 | /* Processing variable lwork */ | |||
| 48007 | lwork = -1; | |||
| 48008 | /* Processing variable liwork */ | |||
| 48009 | liwork = -1; | |||
| 48010 | /* Processing variable work */ | |||
| 48011 | /* Processing variable iwork */ | |||
| 48012 | /* Processing variable info */ | |||
| 48013 | /* Processing variable lda */ | |||
| 48014 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 48015 | /* Processing variable ldz */ | |||
| 48016 | ldz = max(1,n)((1 > n) ? (1) : (n)); | |||
| 48017 | /*end of frompyobj*/ | |||
| 48018 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48019 | f2py_start_call_clock(); | |||
| 48020 | #endif | |||
| 48021 | /*callfortranroutine*/ | |||
| 48022 | (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&iwork,&liwork,&info) ; | |||
| 48023 | /*(*f2py_func)(&lower,&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&iwork,&liwork,&info);*/ | |||
| 48024 | if (PyErr_Occurred()) | |||
| 48025 | f2py_success = 0; | |||
| 48026 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48027 | f2py_stop_call_clock(); | |||
| 48028 | #endif | |||
| 48029 | /*end of callfortranroutine*/ | |||
| 48030 | if (f2py_success) { | |||
| 48031 | /*pyobjfrom*/ | |||
| 48032 | /*end of pyobjfrom*/ | |||
| 48033 | CFUNCSMESS("Building return value.\n"); | |||
| 48034 | capi_buildvalue = Py_BuildValue("dii",work,iwork,info); | |||
| 48035 | /*closepyobjfrom*/ | |||
| 48036 | /*end of closepyobjfrom*/ | |||
| 48037 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 48038 | /*cleanupfrompyobj*/ | |||
| 48039 | /* End of cleaning variable ldz */ | |||
| 48040 | /* End of cleaning variable lda */ | |||
| 48041 | /* End of cleaning variable info */ | |||
| 48042 | /* End of cleaning variable iwork */ | |||
| 48043 | /* End of cleaning variable work */ | |||
| 48044 | /* End of cleaning variable liwork */ | |||
| 48045 | /* End of cleaning variable lwork */ | |||
| 48046 | /* End of cleaning variable isuppz */ | |||
| 48047 | /* End of cleaning variable z */ | |||
| 48048 | /* End of cleaning variable w */ | |||
| 48049 | /* End of cleaning variable m */ | |||
| 48050 | /* End of cleaning variable abstol */ | |||
| 48051 | /* End of cleaning variable iu */ | |||
| 48052 | /* End of cleaning variable il */ | |||
| 48053 | /* End of cleaning variable vu */ | |||
| 48054 | /* End of cleaning variable vl */ | |||
| 48055 | /* End of cleaning variable a */ | |||
| 48056 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 48057 | } /*if (f2py_success) of lower*/ | |||
| 48058 | /* End of cleaning variable lower */ | |||
| 48059 | } /*if (f2py_success) of n*/ | |||
| 48060 | /* End of cleaning variable n */ | |||
| 48061 | /*end of cleanupfrompyobj*/ | |||
| 48062 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 48063 | /*routdebugfailure*/ | |||
| 48064 | } else { | |||
| 48065 | /*routdebugleave*/ | |||
| 48066 | } | |||
| 48067 | CFUNCSMESS("Freeing memory.\n"); | |||
| 48068 | /*freemem*/ | |||
| 48069 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48070 | f2py_stop_clock(); | |||
| 48071 | #endif | |||
| 48072 | return capi_buildvalue; | |||
| 48073 | } | |||
| 48074 | /**************************** end of dsyevr_lwork ****************************/ | |||
| 48075 | ||||
| 48076 | /*********************************** cheevr ***********************************/ | |||
| 48077 | static char doc_f2py_rout__flapack_cheevr[] = "\ | |||
| 48078 | w,z,m,isuppz,info = cheevr(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,lrwork,liwork,overwrite_a])\n\nWrapper for ``cheevr``.\ | |||
| 48079 | \n\nParameters\n----------\n" | |||
| 48080 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 48081 | "\nOther Parameters\n----------------\n" | |||
| 48082 | "compute_v : input int, optional\n Default: 1\n" | |||
| 48083 | "range : input string(len=1), optional\n Default: 'A'\n" | |||
| 48084 | "lower : input int, optional\n Default: 0\n" | |||
| 48085 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 48086 | "vl : input float, optional\n Default: 0.0\n" | |||
| 48087 | "vu : input float, optional\n Default: 1.0\n" | |||
| 48088 | "il : input int, optional\n Default: 1\n" | |||
| 48089 | "iu : input int, optional\n Default: n\n" | |||
| 48090 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 48091 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 48092 | "lrwork : input int, optional\n Default: max(24*n,1)\n" | |||
| 48093 | "liwork : input int, optional\n Default: max(1,10*n)\n" | |||
| 48094 | "\nReturns\n-------\n" | |||
| 48095 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 48096 | "z : rank-2 array('F') with bounds ((compute_v?MAX(0,n):0),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n" | |||
| 48097 | "m : int\n" | |||
| 48098 | "isuppz : rank-1 array('i') with bounds (2*max(1,n))\n" | |||
| 48099 | "info : int"; | |||
| 48100 | /* extern void F_FUNC(cheevr,CHEEVR)(char*,char*,char*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 48101 | static PyObject *f2py_rout__flapack_cheevr(const PyObject *capi_self, | |||
| 48102 | PyObject *capi_args, | |||
| 48103 | PyObject *capi_keywds, | |||
| 48104 | void (*f2py_func)(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 48105 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 48106 | volatile int f2py_success = 1; | |||
| 48107 | /*decl*/ | |||
| 48108 | ||||
| 48109 | int compute_v = 0; | |||
| 48110 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 48111 | string range = NULL((void*)0); | |||
| 48112 | int slen(range)capi_range_len; | |||
| 48113 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 48114 | int lower = 0; | |||
| 48115 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 48116 | int n = 0; | |||
| 48117 | complex_float *a = NULL((void*)0); | |||
| 48118 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 48119 | const int a_Rank = 2; | |||
| 48120 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 48121 | int capi_a_intent = 0; | |||
| 48122 | int capi_overwrite_a = 0; | |||
| 48123 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 48124 | int lda = 0; | |||
| 48125 | float vl = 0; | |||
| 48126 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 48127 | float vu = 0; | |||
| 48128 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 48129 | int il = 0; | |||
| 48130 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 48131 | int iu = 0; | |||
| 48132 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 48133 | float abstol = 0; | |||
| 48134 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 48135 | float *w = NULL((void*)0); | |||
| 48136 | npy_intp w_Dims[1] = {-1}; | |||
| 48137 | const int w_Rank = 1; | |||
| 48138 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 48139 | int capi_w_intent = 0; | |||
| 48140 | complex_float *z = NULL((void*)0); | |||
| 48141 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 48142 | const int z_Rank = 2; | |||
| 48143 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 48144 | int capi_z_intent = 0; | |||
| 48145 | int m = 0; | |||
| 48146 | int ldz = 0; | |||
| 48147 | int *isuppz = NULL((void*)0); | |||
| 48148 | npy_intp isuppz_Dims[1] = {-1}; | |||
| 48149 | const int isuppz_Rank = 1; | |||
| 48150 | PyArrayObject *capi_isuppz_tmp = NULL((void*)0); | |||
| 48151 | int capi_isuppz_intent = 0; | |||
| 48152 | complex_float *work = NULL((void*)0); | |||
| 48153 | npy_intp work_Dims[1] = {-1}; | |||
| 48154 | const int work_Rank = 1; | |||
| 48155 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 48156 | int capi_work_intent = 0; | |||
| 48157 | int lwork = 0; | |||
| 48158 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 48159 | float *rwork = NULL((void*)0); | |||
| 48160 | npy_intp rwork_Dims[1] = {-1}; | |||
| 48161 | const int rwork_Rank = 1; | |||
| 48162 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 48163 | int capi_rwork_intent = 0; | |||
| 48164 | int lrwork = 0; | |||
| 48165 | PyObject *lrwork_capi = Py_None(&_Py_NoneStruct); | |||
| 48166 | int *iwork = NULL((void*)0); | |||
| 48167 | npy_intp iwork_Dims[1] = {-1}; | |||
| 48168 | const int iwork_Rank = 1; | |||
| 48169 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 48170 | int capi_iwork_intent = 0; | |||
| 48171 | int liwork = 0; | |||
| 48172 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 48173 | int info = 0; | |||
| 48174 | static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","lrwork","liwork","overwrite_a",NULL((void*)0)}; | |||
| 48175 | ||||
| 48176 | /*routdebugenter*/ | |||
| 48177 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48178 | f2py_start_clock(); | |||
| 48179 | #endif | |||
| 48180 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 48181 | "O|OOOOOOOOOOOi:_flapack.cheevr",\ | |||
| 48182 | capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&lrwork_capi,&liwork_capi,&capi_overwrite_a)) | |||
| 48183 | return NULL((void*)0); | |||
| 48184 | /*frompyobj*/ | |||
| 48185 | /* Processing variable a */ | |||
| 48186 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 48187 | ; | |||
| 48188 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 48189 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 48190 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 48191 | if (!PyErr_Occurred()) | |||
| 48192 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cheevr to C/Fortran array" ); | |||
| 48193 | } else { | |||
| 48194 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 48195 | ||||
| 48196 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 48197 | /* Processing variable compute_v */ | |||
| 48198 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 48199 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.cheevr() 1st keyword (compute_v) can't be converted to int"); | |||
| 48200 | if (f2py_success) { | |||
| 48201 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","cheevr:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevr:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 48202 | /* Processing variable lower */ | |||
| 48203 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 48204 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheevr() 3rd keyword (lower) can't be converted to int"); | |||
| 48205 | if (f2py_success) { | |||
| 48206 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","cheevr:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevr:lower=%d", "(""lower==0||lower==1"") failed for " "3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 48207 | /* Processing variable vl */ | |||
| 48208 | if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else | |||
| 48209 | f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.cheevr() 4th keyword (vl) can't be converted to float"); | |||
| 48210 | if (f2py_success) { | |||
| 48211 | /* Processing variable abstol */ | |||
| 48212 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 48213 | f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.cheevr() 8th keyword (abstol) can't be converted to float"); | |||
| 48214 | if (f2py_success) { | |||
| 48215 | /* Processing variable m */ | |||
| 48216 | /* Processing variable info */ | |||
| 48217 | /* Processing variable range */ | |||
| 48218 | slen(range)capi_range_len = 1; | |||
| 48219 | f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.cheevr to C string"); | |||
| 48220 | if (f2py_success) { | |||
| 48221 | CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","cheevr:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cheevr:slen(range)=%d range=\"%s\"" , "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range" , capi_range_len, range); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 48222 | /* Processing variable vu */ | |||
| 48223 | if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else | |||
| 48224 | f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.cheevr() 5th keyword (vu) can't be converted to float"); | |||
| 48225 | if (f2py_success) { | |||
| 48226 | CHECKSCALAR(vu>vl,"vu>vl","5th keyword vu","cheevr:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevr:vu=%g", "(""vu>vl"") failed for ""5th keyword vu" , vu); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 48227 | /* Processing variable n */ | |||
| 48228 | n = shape(a,0)a_Dims[0]; | |||
| 48229 | /* Processing variable lda */ | |||
| 48230 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 48231 | /* Processing variable w */ | |||
| 48232 | w_Dims[0]=n; | |||
| 48233 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 48234 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 48235 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 48236 | if (!PyErr_Occurred()) | |||
| 48237 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.cheevr to C/Fortran array" ); | |||
| 48238 | } else { | |||
| 48239 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 48240 | ||||
| 48241 | /* Processing variable isuppz */ | |||
| 48242 | isuppz_Dims[0]=2*max(1,n)((1 > n) ? (1) : (n)); | |||
| 48243 | capi_isuppz_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 48244 | capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct)); | |||
| 48245 | if (capi_isuppz_tmp == NULL((void*)0)) { | |||
| 48246 | if (!PyErr_Occurred()) | |||
| 48247 | PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.cheevr to C/Fortran array" ); | |||
| 48248 | } else { | |||
| 48249 | isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data )); | |||
| 48250 | ||||
| 48251 | /* Processing variable il */ | |||
| 48252 | if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else | |||
| 48253 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.cheevr() 6th keyword (il) can't be converted to int"); | |||
| 48254 | if (f2py_success) { | |||
| 48255 | CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","cheevr:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevr:il=%d", "(""il>=1&&il<=n"") failed for " "6th keyword il", il); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 48256 | /* Processing variable iu */ | |||
| 48257 | if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else | |||
| 48258 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.cheevr() 7th keyword (iu) can't be converted to int"); | |||
| 48259 | if (f2py_success) { | |||
| 48260 | CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","cheevr:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevr:iu=%d", "(""n>=iu&&iu>=il"") failed for " "7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 48261 | /* Processing variable lwork */ | |||
| 48262 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 48263 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cheevr() 9th keyword (lwork) can't be converted to int"); | |||
| 48264 | if (f2py_success) { | |||
| 48265 | CHECKSCALAR(lwork>=max(2*n,1)||lwork==-1,"lwork>=max(2*n,1)||lwork==-1","9th keyword lwork","cheevr:lwork=%d",lwork)if (!(lwork>=((2*n > 1) ? (2*n) : (1))||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cheevr:lwork=%d", "(""lwork>=max(2*n,1)||lwork==-1" ") failed for ""9th keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 48266 | /* Processing variable lrwork */ | |||
| 48267 | if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = max(24*n,1)((24*n > 1) ? (24*n) : (1)); else | |||
| 48268 | f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.cheevr() 10th keyword (lrwork) can't be converted to int"); | |||
| 48269 | if (f2py_success) { | |||
| 48270 | CHECKSCALAR(lrwork>=max(24*n,1)||lrwork==-1,"lrwork>=max(24*n,1)||lrwork==-1","10th keyword lrwork","cheevr:lrwork=%d",lrwork)if (!(lrwork>=((24*n > 1) ? (24*n) : (1))||lrwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cheevr:lrwork=%d" , "(""lrwork>=max(24*n,1)||lrwork==-1"") failed for ""10th keyword lrwork" , lrwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 48271 | /* Processing variable liwork */ | |||
| 48272 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = max(1,10*n)((1 > 10*n) ? (1) : (10*n)); else | |||
| 48273 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.cheevr() 11st keyword (liwork) can't be converted to int"); | |||
| 48274 | if (f2py_success) { | |||
| 48275 | CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1,"liwork>=max(1,10*n)||liwork==-1","11st keyword liwork","cheevr:liwork=%d",liwork)if (!(liwork>=((1 > 10*n) ? (1) : (10*n))||liwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cheevr:liwork=%d" , "(""liwork>=max(1,10*n)||liwork==-1"") failed for ""11st keyword liwork" , liwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 48276 | /* Processing variable work */ | |||
| 48277 | work_Dims[0]=lwork; | |||
| 48278 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 48279 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 48280 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 48281 | if (!PyErr_Occurred()) | |||
| 48282 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cheevr to C/Fortran array" ); | |||
| 48283 | } else { | |||
| 48284 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 48285 | ||||
| 48286 | /* Processing variable rwork */ | |||
| 48287 | rwork_Dims[0]=lrwork; | |||
| 48288 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 48289 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 48290 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 48291 | if (!PyErr_Occurred()) | |||
| 48292 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cheevr to C/Fortran array" ); | |||
| 48293 | } else { | |||
| 48294 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 48295 | ||||
| 48296 | /* Processing variable iwork */ | |||
| 48297 | iwork_Dims[0]=liwork; | |||
| 48298 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 48299 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 48300 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 48301 | if (!PyErr_Occurred()) | |||
| 48302 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.cheevr to C/Fortran array" ); | |||
| 48303 | } else { | |||
| 48304 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 48305 | ||||
| 48306 | /* Processing variable z */ | |||
| 48307 | z_Dims[0]=(compute_v?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0); | |||
| 48308 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 48309 | capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 48310 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 48311 | if (!PyErr_Occurred()) | |||
| 48312 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.cheevr to C/Fortran array" ); | |||
| 48313 | } else { | |||
| 48314 | z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 48315 | ||||
| 48316 | /* Processing variable ldz */ | |||
| 48317 | ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 48318 | /*end of frompyobj*/ | |||
| 48319 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48320 | f2py_start_call_clock(); | |||
| 48321 | #endif | |||
| 48322 | /*callfortranroutine*/ | |||
| 48323 | (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,isuppz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ; | |||
| 48324 | /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,isuppz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info,slen(range));*/ | |||
| 48325 | if (PyErr_Occurred()) | |||
| 48326 | f2py_success = 0; | |||
| 48327 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48328 | f2py_stop_call_clock(); | |||
| 48329 | #endif | |||
| 48330 | /*end of callfortranroutine*/ | |||
| 48331 | if (f2py_success) { | |||
| 48332 | /*pyobjfrom*/ | |||
| 48333 | /*end of pyobjfrom*/ | |||
| 48334 | CFUNCSMESS("Building return value.\n"); | |||
| 48335 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_isuppz_tmp,info); | |||
| 48336 | /*closepyobjfrom*/ | |||
| 48337 | /*end of closepyobjfrom*/ | |||
| 48338 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 48339 | /*cleanupfrompyobj*/ | |||
| 48340 | /* End of cleaning variable ldz */ | |||
| 48341 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 48342 | /* End of cleaning variable z */ | |||
| 48343 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 48344 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 48345 | /* End of cleaning variable iwork */ | |||
| 48346 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 48347 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 48348 | /* End of cleaning variable rwork */ | |||
| 48349 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 48350 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 48351 | /* End of cleaning variable work */ | |||
| 48352 | } /*CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1)*/ | |||
| 48353 | } /*if (f2py_success) of liwork*/ | |||
| 48354 | /* End of cleaning variable liwork */ | |||
| 48355 | } /*CHECKSCALAR(lrwork>=max(24*n,1)||lrwork==-1)*/ | |||
| 48356 | } /*if (f2py_success) of lrwork*/ | |||
| 48357 | /* End of cleaning variable lrwork */ | |||
| 48358 | } /*CHECKSCALAR(lwork>=max(2*n,1)||lwork==-1)*/ | |||
| 48359 | } /*if (f2py_success) of lwork*/ | |||
| 48360 | /* End of cleaning variable lwork */ | |||
| 48361 | } /*CHECKSCALAR(n>=iu&&iu>=il)*/ | |||
| 48362 | } /*if (f2py_success) of iu*/ | |||
| 48363 | /* End of cleaning variable iu */ | |||
| 48364 | } /*CHECKSCALAR(il>=1&&il<=n)*/ | |||
| 48365 | } /*if (f2py_success) of il*/ | |||
| 48366 | /* End of cleaning variable il */ | |||
| 48367 | } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/ | |||
| 48368 | /* End of cleaning variable isuppz */ | |||
| 48369 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 48370 | /* End of cleaning variable w */ | |||
| 48371 | /* End of cleaning variable lda */ | |||
| 48372 | /* End of cleaning variable n */ | |||
| 48373 | } /*CHECKSCALAR(vu>vl)*/ | |||
| 48374 | } /*if (f2py_success) of vu*/ | |||
| 48375 | /* End of cleaning variable vu */ | |||
| 48376 | } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/ | |||
| 48377 | STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0); | |||
| 48378 | } /*if (f2py_success) of range*/ | |||
| 48379 | /* End of cleaning variable range */ | |||
| 48380 | /* End of cleaning variable info */ | |||
| 48381 | /* End of cleaning variable m */ | |||
| 48382 | } /*if (f2py_success) of abstol*/ | |||
| 48383 | /* End of cleaning variable abstol */ | |||
| 48384 | } /*if (f2py_success) of vl*/ | |||
| 48385 | /* End of cleaning variable vl */ | |||
| 48386 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 48387 | } /*if (f2py_success) of lower*/ | |||
| 48388 | /* End of cleaning variable lower */ | |||
| 48389 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 48390 | } /*if (f2py_success) of compute_v*/ | |||
| 48391 | /* End of cleaning variable compute_v */ | |||
| 48392 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 48393 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 48394 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 48395 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 48396 | /* End of cleaning variable a */ | |||
| 48397 | /*end of cleanupfrompyobj*/ | |||
| 48398 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 48399 | /*routdebugfailure*/ | |||
| 48400 | } else { | |||
| 48401 | /*routdebugleave*/ | |||
| 48402 | } | |||
| 48403 | CFUNCSMESS("Freeing memory.\n"); | |||
| 48404 | /*freemem*/ | |||
| 48405 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48406 | f2py_stop_clock(); | |||
| 48407 | #endif | |||
| 48408 | return capi_buildvalue; | |||
| 48409 | } | |||
| 48410 | /******************************* end of cheevr *******************************/ | |||
| 48411 | ||||
| 48412 | /*********************************** zheevr ***********************************/ | |||
| 48413 | static char doc_f2py_rout__flapack_zheevr[] = "\ | |||
| 48414 | w,z,m,isuppz,info = zheevr(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,lrwork,liwork,overwrite_a])\n\nWrapper for ``zheevr``.\ | |||
| 48415 | \n\nParameters\n----------\n" | |||
| 48416 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 48417 | "\nOther Parameters\n----------------\n" | |||
| 48418 | "compute_v : input int, optional\n Default: 1\n" | |||
| 48419 | "range : input string(len=1), optional\n Default: 'A'\n" | |||
| 48420 | "lower : input int, optional\n Default: 0\n" | |||
| 48421 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 48422 | "vl : input float, optional\n Default: 0.0\n" | |||
| 48423 | "vu : input float, optional\n Default: 1.0\n" | |||
| 48424 | "il : input int, optional\n Default: 1\n" | |||
| 48425 | "iu : input int, optional\n Default: n\n" | |||
| 48426 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 48427 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 48428 | "lrwork : input int, optional\n Default: max(24*n,1)\n" | |||
| 48429 | "liwork : input int, optional\n Default: max(1,10*n)\n" | |||
| 48430 | "\nReturns\n-------\n" | |||
| 48431 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 48432 | "z : rank-2 array('D') with bounds ((compute_v?MAX(0,n):0),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n" | |||
| 48433 | "m : int\n" | |||
| 48434 | "isuppz : rank-1 array('i') with bounds (2*max(1,n))\n" | |||
| 48435 | "info : int"; | |||
| 48436 | /* extern void F_FUNC(zheevr,ZHEEVR)(char*,char*,char*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 48437 | static PyObject *f2py_rout__flapack_zheevr(const PyObject *capi_self, | |||
| 48438 | PyObject *capi_args, | |||
| 48439 | PyObject *capi_keywds, | |||
| 48440 | void (*f2py_func)(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 48441 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 48442 | volatile int f2py_success = 1; | |||
| 48443 | /*decl*/ | |||
| 48444 | ||||
| 48445 | int compute_v = 0; | |||
| 48446 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 48447 | string range = NULL((void*)0); | |||
| 48448 | int slen(range)capi_range_len; | |||
| 48449 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 48450 | int lower = 0; | |||
| 48451 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 48452 | int n = 0; | |||
| 48453 | complex_double *a = NULL((void*)0); | |||
| 48454 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 48455 | const int a_Rank = 2; | |||
| 48456 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 48457 | int capi_a_intent = 0; | |||
| 48458 | int capi_overwrite_a = 0; | |||
| 48459 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 48460 | int lda = 0; | |||
| 48461 | double vl = 0; | |||
| 48462 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 48463 | double vu = 0; | |||
| 48464 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 48465 | int il = 0; | |||
| 48466 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 48467 | int iu = 0; | |||
| 48468 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 48469 | double abstol = 0; | |||
| 48470 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 48471 | double *w = NULL((void*)0); | |||
| 48472 | npy_intp w_Dims[1] = {-1}; | |||
| 48473 | const int w_Rank = 1; | |||
| 48474 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 48475 | int capi_w_intent = 0; | |||
| 48476 | complex_double *z = NULL((void*)0); | |||
| 48477 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 48478 | const int z_Rank = 2; | |||
| 48479 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 48480 | int capi_z_intent = 0; | |||
| 48481 | int m = 0; | |||
| 48482 | int ldz = 0; | |||
| 48483 | int *isuppz = NULL((void*)0); | |||
| 48484 | npy_intp isuppz_Dims[1] = {-1}; | |||
| 48485 | const int isuppz_Rank = 1; | |||
| 48486 | PyArrayObject *capi_isuppz_tmp = NULL((void*)0); | |||
| 48487 | int capi_isuppz_intent = 0; | |||
| 48488 | complex_double *work = NULL((void*)0); | |||
| 48489 | npy_intp work_Dims[1] = {-1}; | |||
| 48490 | const int work_Rank = 1; | |||
| 48491 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 48492 | int capi_work_intent = 0; | |||
| 48493 | int lwork = 0; | |||
| 48494 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 48495 | double *rwork = NULL((void*)0); | |||
| 48496 | npy_intp rwork_Dims[1] = {-1}; | |||
| 48497 | const int rwork_Rank = 1; | |||
| 48498 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 48499 | int capi_rwork_intent = 0; | |||
| 48500 | int lrwork = 0; | |||
| 48501 | PyObject *lrwork_capi = Py_None(&_Py_NoneStruct); | |||
| 48502 | int *iwork = NULL((void*)0); | |||
| 48503 | npy_intp iwork_Dims[1] = {-1}; | |||
| 48504 | const int iwork_Rank = 1; | |||
| 48505 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 48506 | int capi_iwork_intent = 0; | |||
| 48507 | int liwork = 0; | |||
| 48508 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 48509 | int info = 0; | |||
| 48510 | static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","lrwork","liwork","overwrite_a",NULL((void*)0)}; | |||
| 48511 | ||||
| 48512 | /*routdebugenter*/ | |||
| 48513 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48514 | f2py_start_clock(); | |||
| 48515 | #endif | |||
| 48516 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 48517 | "O|OOOOOOOOOOOi:_flapack.zheevr",\ | |||
| 48518 | capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&lrwork_capi,&liwork_capi,&capi_overwrite_a)) | |||
| 48519 | return NULL((void*)0); | |||
| 48520 | /*frompyobj*/ | |||
| 48521 | /* Processing variable a */ | |||
| 48522 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 48523 | ; | |||
| 48524 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 48525 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 48526 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 48527 | if (!PyErr_Occurred()) | |||
| 48528 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zheevr to C/Fortran array" ); | |||
| 48529 | } else { | |||
| 48530 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 48531 | ||||
| 48532 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 48533 | /* Processing variable compute_v */ | |||
| 48534 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 48535 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zheevr() 1st keyword (compute_v) can't be converted to int"); | |||
| 48536 | if (f2py_success) { | |||
| 48537 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","zheevr:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevr:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 48538 | /* Processing variable lower */ | |||
| 48539 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 48540 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheevr() 3rd keyword (lower) can't be converted to int"); | |||
| 48541 | if (f2py_success) { | |||
| 48542 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","zheevr:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevr:lower=%d", "(""lower==0||lower==1"") failed for " "3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 48543 | /* Processing variable vl */ | |||
| 48544 | if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else | |||
| 48545 | f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.zheevr() 4th keyword (vl) can't be converted to double"); | |||
| 48546 | if (f2py_success) { | |||
| 48547 | /* Processing variable abstol */ | |||
| 48548 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 48549 | f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.zheevr() 8th keyword (abstol) can't be converted to double"); | |||
| 48550 | if (f2py_success) { | |||
| 48551 | /* Processing variable m */ | |||
| 48552 | /* Processing variable info */ | |||
| 48553 | /* Processing variable range */ | |||
| 48554 | slen(range)capi_range_len = 1; | |||
| 48555 | f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.zheevr to C string"); | |||
| 48556 | if (f2py_success) { | |||
| 48557 | CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","zheevr:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zheevr:slen(range)=%d range=\"%s\"" , "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range" , capi_range_len, range); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 48558 | /* Processing variable vu */ | |||
| 48559 | if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else | |||
| 48560 | f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.zheevr() 5th keyword (vu) can't be converted to double"); | |||
| 48561 | if (f2py_success) { | |||
| 48562 | CHECKSCALAR(vu>vl,"vu>vl","5th keyword vu","zheevr:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevr:vu=%g", "(""vu>vl"") failed for ""5th keyword vu" , vu); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 48563 | /* Processing variable n */ | |||
| 48564 | n = shape(a,0)a_Dims[0]; | |||
| 48565 | /* Processing variable lda */ | |||
| 48566 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 48567 | /* Processing variable w */ | |||
| 48568 | w_Dims[0]=n; | |||
| 48569 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 48570 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 48571 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 48572 | if (!PyErr_Occurred()) | |||
| 48573 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zheevr to C/Fortran array" ); | |||
| 48574 | } else { | |||
| 48575 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 48576 | ||||
| 48577 | /* Processing variable isuppz */ | |||
| 48578 | isuppz_Dims[0]=2*max(1,n)((1 > n) ? (1) : (n)); | |||
| 48579 | capi_isuppz_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 48580 | capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct)); | |||
| 48581 | if (capi_isuppz_tmp == NULL((void*)0)) { | |||
| 48582 | if (!PyErr_Occurred()) | |||
| 48583 | PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.zheevr to C/Fortran array" ); | |||
| 48584 | } else { | |||
| 48585 | isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data )); | |||
| 48586 | ||||
| 48587 | /* Processing variable il */ | |||
| 48588 | if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else | |||
| 48589 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.zheevr() 6th keyword (il) can't be converted to int"); | |||
| 48590 | if (f2py_success) { | |||
| 48591 | CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","zheevr:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevr:il=%d", "(""il>=1&&il<=n"") failed for " "6th keyword il", il); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 48592 | /* Processing variable iu */ | |||
| 48593 | if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else | |||
| 48594 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.zheevr() 7th keyword (iu) can't be converted to int"); | |||
| 48595 | if (f2py_success) { | |||
| 48596 | CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","zheevr:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevr:iu=%d", "(""n>=iu&&iu>=il"") failed for " "7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 48597 | /* Processing variable lwork */ | |||
| 48598 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 48599 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zheevr() 9th keyword (lwork) can't be converted to int"); | |||
| 48600 | if (f2py_success) { | |||
| 48601 | CHECKSCALAR(lwork>=max(2*n,1)||lwork==-1,"lwork>=max(2*n,1)||lwork==-1","9th keyword lwork","zheevr:lwork=%d",lwork)if (!(lwork>=((2*n > 1) ? (2*n) : (1))||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zheevr:lwork=%d", "(""lwork>=max(2*n,1)||lwork==-1" ") failed for ""9th keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 48602 | /* Processing variable lrwork */ | |||
| 48603 | if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = max(24*n,1)((24*n > 1) ? (24*n) : (1)); else | |||
| 48604 | f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.zheevr() 10th keyword (lrwork) can't be converted to int"); | |||
| 48605 | if (f2py_success) { | |||
| 48606 | CHECKSCALAR(lrwork>=max(24*n,1)||lrwork==-1,"lrwork>=max(24*n,1)||lrwork==-1","10th keyword lrwork","zheevr:lrwork=%d",lrwork)if (!(lrwork>=((24*n > 1) ? (24*n) : (1))||lrwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zheevr:lrwork=%d" , "(""lrwork>=max(24*n,1)||lrwork==-1"") failed for ""10th keyword lrwork" , lrwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 48607 | /* Processing variable liwork */ | |||
| 48608 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = max(1,10*n)((1 > 10*n) ? (1) : (10*n)); else | |||
| 48609 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.zheevr() 11st keyword (liwork) can't be converted to int"); | |||
| 48610 | if (f2py_success) { | |||
| 48611 | CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1,"liwork>=max(1,10*n)||liwork==-1","11st keyword liwork","zheevr:liwork=%d",liwork)if (!(liwork>=((1 > 10*n) ? (1) : (10*n))||liwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zheevr:liwork=%d" , "(""liwork>=max(1,10*n)||liwork==-1"") failed for ""11st keyword liwork" , liwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 48612 | /* Processing variable work */ | |||
| 48613 | work_Dims[0]=lwork; | |||
| 48614 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 48615 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 48616 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 48617 | if (!PyErr_Occurred()) | |||
| 48618 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zheevr to C/Fortran array" ); | |||
| 48619 | } else { | |||
| 48620 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 48621 | ||||
| 48622 | /* Processing variable rwork */ | |||
| 48623 | rwork_Dims[0]=lrwork; | |||
| 48624 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 48625 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 48626 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 48627 | if (!PyErr_Occurred()) | |||
| 48628 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zheevr to C/Fortran array" ); | |||
| 48629 | } else { | |||
| 48630 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 48631 | ||||
| 48632 | /* Processing variable iwork */ | |||
| 48633 | iwork_Dims[0]=liwork; | |||
| 48634 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 48635 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 48636 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 48637 | if (!PyErr_Occurred()) | |||
| 48638 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zheevr to C/Fortran array" ); | |||
| 48639 | } else { | |||
| 48640 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 48641 | ||||
| 48642 | /* Processing variable z */ | |||
| 48643 | z_Dims[0]=(compute_v?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0); | |||
| 48644 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 48645 | capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 48646 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 48647 | if (!PyErr_Occurred()) | |||
| 48648 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.zheevr to C/Fortran array" ); | |||
| 48649 | } else { | |||
| 48650 | z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 48651 | ||||
| 48652 | /* Processing variable ldz */ | |||
| 48653 | ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 48654 | /*end of frompyobj*/ | |||
| 48655 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48656 | f2py_start_call_clock(); | |||
| 48657 | #endif | |||
| 48658 | /*callfortranroutine*/ | |||
| 48659 | (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,isuppz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ; | |||
| 48660 | /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,isuppz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info,slen(range));*/ | |||
| 48661 | if (PyErr_Occurred()) | |||
| 48662 | f2py_success = 0; | |||
| 48663 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48664 | f2py_stop_call_clock(); | |||
| 48665 | #endif | |||
| 48666 | /*end of callfortranroutine*/ | |||
| 48667 | if (f2py_success) { | |||
| 48668 | /*pyobjfrom*/ | |||
| 48669 | /*end of pyobjfrom*/ | |||
| 48670 | CFUNCSMESS("Building return value.\n"); | |||
| 48671 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_isuppz_tmp,info); | |||
| 48672 | /*closepyobjfrom*/ | |||
| 48673 | /*end of closepyobjfrom*/ | |||
| 48674 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 48675 | /*cleanupfrompyobj*/ | |||
| 48676 | /* End of cleaning variable ldz */ | |||
| 48677 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 48678 | /* End of cleaning variable z */ | |||
| 48679 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 48680 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 48681 | /* End of cleaning variable iwork */ | |||
| 48682 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 48683 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 48684 | /* End of cleaning variable rwork */ | |||
| 48685 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 48686 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 48687 | /* End of cleaning variable work */ | |||
| 48688 | } /*CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1)*/ | |||
| 48689 | } /*if (f2py_success) of liwork*/ | |||
| 48690 | /* End of cleaning variable liwork */ | |||
| 48691 | } /*CHECKSCALAR(lrwork>=max(24*n,1)||lrwork==-1)*/ | |||
| 48692 | } /*if (f2py_success) of lrwork*/ | |||
| 48693 | /* End of cleaning variable lrwork */ | |||
| 48694 | } /*CHECKSCALAR(lwork>=max(2*n,1)||lwork==-1)*/ | |||
| 48695 | } /*if (f2py_success) of lwork*/ | |||
| 48696 | /* End of cleaning variable lwork */ | |||
| 48697 | } /*CHECKSCALAR(n>=iu&&iu>=il)*/ | |||
| 48698 | } /*if (f2py_success) of iu*/ | |||
| 48699 | /* End of cleaning variable iu */ | |||
| 48700 | } /*CHECKSCALAR(il>=1&&il<=n)*/ | |||
| 48701 | } /*if (f2py_success) of il*/ | |||
| 48702 | /* End of cleaning variable il */ | |||
| 48703 | } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/ | |||
| 48704 | /* End of cleaning variable isuppz */ | |||
| 48705 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 48706 | /* End of cleaning variable w */ | |||
| 48707 | /* End of cleaning variable lda */ | |||
| 48708 | /* End of cleaning variable n */ | |||
| 48709 | } /*CHECKSCALAR(vu>vl)*/ | |||
| 48710 | } /*if (f2py_success) of vu*/ | |||
| 48711 | /* End of cleaning variable vu */ | |||
| 48712 | } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/ | |||
| 48713 | STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0); | |||
| 48714 | } /*if (f2py_success) of range*/ | |||
| 48715 | /* End of cleaning variable range */ | |||
| 48716 | /* End of cleaning variable info */ | |||
| 48717 | /* End of cleaning variable m */ | |||
| 48718 | } /*if (f2py_success) of abstol*/ | |||
| 48719 | /* End of cleaning variable abstol */ | |||
| 48720 | } /*if (f2py_success) of vl*/ | |||
| 48721 | /* End of cleaning variable vl */ | |||
| 48722 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 48723 | } /*if (f2py_success) of lower*/ | |||
| 48724 | /* End of cleaning variable lower */ | |||
| 48725 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 48726 | } /*if (f2py_success) of compute_v*/ | |||
| 48727 | /* End of cleaning variable compute_v */ | |||
| 48728 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 48729 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 48730 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 48731 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 48732 | /* End of cleaning variable a */ | |||
| 48733 | /*end of cleanupfrompyobj*/ | |||
| 48734 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 48735 | /*routdebugfailure*/ | |||
| 48736 | } else { | |||
| 48737 | /*routdebugleave*/ | |||
| 48738 | } | |||
| 48739 | CFUNCSMESS("Freeing memory.\n"); | |||
| 48740 | /*freemem*/ | |||
| 48741 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48742 | f2py_stop_clock(); | |||
| 48743 | #endif | |||
| 48744 | return capi_buildvalue; | |||
| 48745 | } | |||
| 48746 | /******************************* end of zheevr *******************************/ | |||
| 48747 | ||||
| 48748 | /******************************** cheevr_lwork ********************************/ | |||
| 48749 | static char doc_f2py_rout__flapack_cheevr_lwork[] = "\ | |||
| 48750 | work,rwork,iwork,info = cheevr_lwork(n,[lower])\n\nWrapper for ``cheevr_lwork``.\ | |||
| 48751 | \n\nParameters\n----------\n" | |||
| 48752 | "n : input int\n" | |||
| 48753 | "\nOther Parameters\n----------------\n" | |||
| 48754 | "lower : input int, optional\n Default: 0\n" | |||
| 48755 | "\nReturns\n-------\n" | |||
| 48756 | "work : complex\n" | |||
| 48757 | "rwork : float\n" | |||
| 48758 | "iwork : int\n" | |||
| 48759 | "info : int"; | |||
| 48760 | /* extern void F_FUNC(cheevr ,CHEEVR )(char*,char*,char*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 48761 | static PyObject *f2py_rout__flapack_cheevr_lwork(const PyObject *capi_self, | |||
| 48762 | PyObject *capi_args, | |||
| 48763 | PyObject *capi_keywds, | |||
| 48764 | void (*f2py_func)(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 48765 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 48766 | volatile int f2py_success = 1; | |||
| 48767 | /*decl*/ | |||
| 48768 | ||||
| 48769 | int n = 0; | |||
| 48770 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 48771 | int lower = 0; | |||
| 48772 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 48773 | complex_float a; | |||
| 48774 | int lda = 0; | |||
| 48775 | float vl = 0; | |||
| 48776 | float vu = 0; | |||
| 48777 | int il = 0; | |||
| 48778 | int iu = 0; | |||
| 48779 | float abstol = 0; | |||
| 48780 | int m = 0; | |||
| 48781 | float w = 0; | |||
| 48782 | complex_float z; | |||
| 48783 | int ldz = 0; | |||
| 48784 | int isuppz = 0; | |||
| 48785 | complex_float work; | |||
| 48786 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 48787 | int lwork = 0; | |||
| 48788 | float rwork = 0; | |||
| 48789 | int lrwork = 0; | |||
| 48790 | int iwork = 0; | |||
| 48791 | int liwork = 0; | |||
| 48792 | int info = 0; | |||
| 48793 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 48794 | ||||
| 48795 | /*routdebugenter*/ | |||
| 48796 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48797 | f2py_start_clock(); | |||
| 48798 | #endif | |||
| 48799 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 48800 | "O|O:_flapack.cheevr_lwork",\ | |||
| 48801 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 48802 | return NULL((void*)0); | |||
| 48803 | /*frompyobj*/ | |||
| 48804 | /* Processing variable n */ | |||
| 48805 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cheevr_lwork() 1st argument (n) can't be converted to int"); | |||
| 48806 | if (f2py_success) { | |||
| 48807 | /* Processing variable lower */ | |||
| 48808 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 48809 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheevr_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 48810 | if (f2py_success) { | |||
| 48811 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cheevr_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevr_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 48812 | /* Processing variable a */ | |||
| 48813 | /* Processing variable vl */ | |||
| 48814 | vl = 0.0; | |||
| 48815 | /* Processing variable vu */ | |||
| 48816 | vu = 1.0; | |||
| 48817 | /* Processing variable il */ | |||
| 48818 | il = 1; | |||
| 48819 | /* Processing variable iu */ | |||
| 48820 | iu = 2; | |||
| 48821 | /* Processing variable abstol */ | |||
| 48822 | abstol = 0.0; | |||
| 48823 | /* Processing variable m */ | |||
| 48824 | m = 1; | |||
| 48825 | /* Processing variable w */ | |||
| 48826 | /* Processing variable z */ | |||
| 48827 | /* Processing variable isuppz */ | |||
| 48828 | /* Processing variable lwork */ | |||
| 48829 | lwork = -1; | |||
| 48830 | /* Processing variable lrwork */ | |||
| 48831 | lrwork = -1; | |||
| 48832 | /* Processing variable liwork */ | |||
| 48833 | liwork = -1; | |||
| 48834 | /* Processing variable work */ | |||
| 48835 | /* Processing variable rwork */ | |||
| 48836 | /* Processing variable iwork */ | |||
| 48837 | /* Processing variable info */ | |||
| 48838 | /* Processing variable lda */ | |||
| 48839 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 48840 | /* Processing variable ldz */ | |||
| 48841 | ldz = max(1,n)((1 > n) ? (1) : (n)); | |||
| 48842 | /*end of frompyobj*/ | |||
| 48843 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48844 | f2py_start_call_clock(); | |||
| 48845 | #endif | |||
| 48846 | /*callfortranroutine*/ | |||
| 48847 | (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&rwork,&lrwork,&iwork,&liwork,&info) ; | |||
| 48848 | /*(*f2py_func)(&n,&lower,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&rwork,&lrwork,&iwork,&liwork,&info);*/ | |||
| 48849 | if (PyErr_Occurred()) | |||
| 48850 | f2py_success = 0; | |||
| 48851 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48852 | f2py_stop_call_clock(); | |||
| 48853 | #endif | |||
| 48854 | /*end of callfortranroutine*/ | |||
| 48855 | if (f2py_success) { | |||
| 48856 | /*pyobjfrom*/ | |||
| 48857 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 48858 | /*end of pyobjfrom*/ | |||
| 48859 | CFUNCSMESS("Building return value.\n"); | |||
| 48860 | capi_buildvalue = Py_BuildValue("Nfii",work_capi,rwork,iwork,info); | |||
| 48861 | /*closepyobjfrom*/ | |||
| 48862 | /*end of closepyobjfrom*/ | |||
| 48863 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 48864 | /*cleanupfrompyobj*/ | |||
| 48865 | /* End of cleaning variable ldz */ | |||
| 48866 | /* End of cleaning variable lda */ | |||
| 48867 | /* End of cleaning variable info */ | |||
| 48868 | /* End of cleaning variable iwork */ | |||
| 48869 | /* End of cleaning variable rwork */ | |||
| 48870 | /* End of cleaning variable work */ | |||
| 48871 | /* End of cleaning variable liwork */ | |||
| 48872 | /* End of cleaning variable lrwork */ | |||
| 48873 | /* End of cleaning variable lwork */ | |||
| 48874 | /* End of cleaning variable isuppz */ | |||
| 48875 | /* End of cleaning variable z */ | |||
| 48876 | /* End of cleaning variable w */ | |||
| 48877 | /* End of cleaning variable m */ | |||
| 48878 | /* End of cleaning variable abstol */ | |||
| 48879 | /* End of cleaning variable iu */ | |||
| 48880 | /* End of cleaning variable il */ | |||
| 48881 | /* End of cleaning variable vu */ | |||
| 48882 | /* End of cleaning variable vl */ | |||
| 48883 | /* End of cleaning variable a */ | |||
| 48884 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 48885 | } /*if (f2py_success) of lower*/ | |||
| 48886 | /* End of cleaning variable lower */ | |||
| 48887 | } /*if (f2py_success) of n*/ | |||
| 48888 | /* End of cleaning variable n */ | |||
| 48889 | /*end of cleanupfrompyobj*/ | |||
| 48890 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 48891 | /*routdebugfailure*/ | |||
| 48892 | } else { | |||
| 48893 | /*routdebugleave*/ | |||
| 48894 | } | |||
| 48895 | CFUNCSMESS("Freeing memory.\n"); | |||
| 48896 | /*freemem*/ | |||
| 48897 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48898 | f2py_stop_clock(); | |||
| 48899 | #endif | |||
| 48900 | return capi_buildvalue; | |||
| 48901 | } | |||
| 48902 | /**************************** end of cheevr_lwork ****************************/ | |||
| 48903 | ||||
| 48904 | /******************************** zheevr_lwork ********************************/ | |||
| 48905 | static char doc_f2py_rout__flapack_zheevr_lwork[] = "\ | |||
| 48906 | work,rwork,iwork,info = zheevr_lwork(n,[lower])\n\nWrapper for ``zheevr_lwork``.\ | |||
| 48907 | \n\nParameters\n----------\n" | |||
| 48908 | "n : input int\n" | |||
| 48909 | "\nOther Parameters\n----------------\n" | |||
| 48910 | "lower : input int, optional\n Default: 0\n" | |||
| 48911 | "\nReturns\n-------\n" | |||
| 48912 | "work : complex\n" | |||
| 48913 | "rwork : float\n" | |||
| 48914 | "iwork : int\n" | |||
| 48915 | "info : int"; | |||
| 48916 | /* extern void F_FUNC(zheevr ,ZHEEVR )(char*,char*,char*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 48917 | static PyObject *f2py_rout__flapack_zheevr_lwork(const PyObject *capi_self, | |||
| 48918 | PyObject *capi_args, | |||
| 48919 | PyObject *capi_keywds, | |||
| 48920 | void (*f2py_func)(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 48921 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 48922 | volatile int f2py_success = 1; | |||
| 48923 | /*decl*/ | |||
| 48924 | ||||
| 48925 | int n = 0; | |||
| 48926 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 48927 | int lower = 0; | |||
| 48928 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 48929 | complex_double a; | |||
| 48930 | int lda = 0; | |||
| 48931 | double vl = 0; | |||
| 48932 | double vu = 0; | |||
| 48933 | int il = 0; | |||
| 48934 | int iu = 0; | |||
| 48935 | double abstol = 0; | |||
| 48936 | int m = 0; | |||
| 48937 | double w = 0; | |||
| 48938 | complex_double z; | |||
| 48939 | int ldz = 0; | |||
| 48940 | int isuppz = 0; | |||
| 48941 | complex_double work; | |||
| 48942 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 48943 | int lwork = 0; | |||
| 48944 | double rwork = 0; | |||
| 48945 | int lrwork = 0; | |||
| 48946 | int iwork = 0; | |||
| 48947 | int liwork = 0; | |||
| 48948 | int info = 0; | |||
| 48949 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 48950 | ||||
| 48951 | /*routdebugenter*/ | |||
| 48952 | #ifdef F2PY_REPORT_ATEXIT | |||
| 48953 | f2py_start_clock(); | |||
| 48954 | #endif | |||
| 48955 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 48956 | "O|O:_flapack.zheevr_lwork",\ | |||
| 48957 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 48958 | return NULL((void*)0); | |||
| 48959 | /*frompyobj*/ | |||
| 48960 | /* Processing variable n */ | |||
| 48961 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zheevr_lwork() 1st argument (n) can't be converted to int"); | |||
| 48962 | if (f2py_success) { | |||
| 48963 | /* Processing variable lower */ | |||
| 48964 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 48965 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheevr_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 48966 | if (f2py_success) { | |||
| 48967 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zheevr_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevr_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 48968 | /* Processing variable a */ | |||
| 48969 | /* Processing variable vl */ | |||
| 48970 | vl = 0.0; | |||
| 48971 | /* Processing variable vu */ | |||
| 48972 | vu = 1.0; | |||
| 48973 | /* Processing variable il */ | |||
| 48974 | il = 1; | |||
| 48975 | /* Processing variable iu */ | |||
| 48976 | iu = 2; | |||
| 48977 | /* Processing variable abstol */ | |||
| 48978 | abstol = 0.0; | |||
| 48979 | /* Processing variable m */ | |||
| 48980 | m = 1; | |||
| 48981 | /* Processing variable w */ | |||
| 48982 | /* Processing variable z */ | |||
| 48983 | /* Processing variable isuppz */ | |||
| 48984 | /* Processing variable lwork */ | |||
| 48985 | lwork = -1; | |||
| 48986 | /* Processing variable lrwork */ | |||
| 48987 | lrwork = -1; | |||
| 48988 | /* Processing variable liwork */ | |||
| 48989 | liwork = -1; | |||
| 48990 | /* Processing variable work */ | |||
| 48991 | /* Processing variable rwork */ | |||
| 48992 | /* Processing variable iwork */ | |||
| 48993 | /* Processing variable info */ | |||
| 48994 | /* Processing variable lda */ | |||
| 48995 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 48996 | /* Processing variable ldz */ | |||
| 48997 | ldz = max(1,n)((1 > n) ? (1) : (n)); | |||
| 48998 | /*end of frompyobj*/ | |||
| 48999 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49000 | f2py_start_call_clock(); | |||
| 49001 | #endif | |||
| 49002 | /*callfortranroutine*/ | |||
| 49003 | (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&rwork,&lrwork,&iwork,&liwork,&info) ; | |||
| 49004 | /*(*f2py_func)(&n,&lower,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&rwork,&lrwork,&iwork,&liwork,&info);*/ | |||
| 49005 | if (PyErr_Occurred()) | |||
| 49006 | f2py_success = 0; | |||
| 49007 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49008 | f2py_stop_call_clock(); | |||
| 49009 | #endif | |||
| 49010 | /*end of callfortranroutine*/ | |||
| 49011 | if (f2py_success) { | |||
| 49012 | /*pyobjfrom*/ | |||
| 49013 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 49014 | /*end of pyobjfrom*/ | |||
| 49015 | CFUNCSMESS("Building return value.\n"); | |||
| 49016 | capi_buildvalue = Py_BuildValue("Ndii",work_capi,rwork,iwork,info); | |||
| 49017 | /*closepyobjfrom*/ | |||
| 49018 | /*end of closepyobjfrom*/ | |||
| 49019 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 49020 | /*cleanupfrompyobj*/ | |||
| 49021 | /* End of cleaning variable ldz */ | |||
| 49022 | /* End of cleaning variable lda */ | |||
| 49023 | /* End of cleaning variable info */ | |||
| 49024 | /* End of cleaning variable iwork */ | |||
| 49025 | /* End of cleaning variable rwork */ | |||
| 49026 | /* End of cleaning variable work */ | |||
| 49027 | /* End of cleaning variable liwork */ | |||
| 49028 | /* End of cleaning variable lrwork */ | |||
| 49029 | /* End of cleaning variable lwork */ | |||
| 49030 | /* End of cleaning variable isuppz */ | |||
| 49031 | /* End of cleaning variable z */ | |||
| 49032 | /* End of cleaning variable w */ | |||
| 49033 | /* End of cleaning variable m */ | |||
| 49034 | /* End of cleaning variable abstol */ | |||
| 49035 | /* End of cleaning variable iu */ | |||
| 49036 | /* End of cleaning variable il */ | |||
| 49037 | /* End of cleaning variable vu */ | |||
| 49038 | /* End of cleaning variable vl */ | |||
| 49039 | /* End of cleaning variable a */ | |||
| 49040 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 49041 | } /*if (f2py_success) of lower*/ | |||
| 49042 | /* End of cleaning variable lower */ | |||
| 49043 | } /*if (f2py_success) of n*/ | |||
| 49044 | /* End of cleaning variable n */ | |||
| 49045 | /*end of cleanupfrompyobj*/ | |||
| 49046 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 49047 | /*routdebugfailure*/ | |||
| 49048 | } else { | |||
| 49049 | /*routdebugleave*/ | |||
| 49050 | } | |||
| 49051 | CFUNCSMESS("Freeing memory.\n"); | |||
| 49052 | /*freemem*/ | |||
| 49053 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49054 | f2py_stop_clock(); | |||
| 49055 | #endif | |||
| 49056 | return capi_buildvalue; | |||
| 49057 | } | |||
| 49058 | /**************************** end of zheevr_lwork ****************************/ | |||
| 49059 | ||||
| 49060 | /*********************************** ssyevx ***********************************/ | |||
| 49061 | static char doc_f2py_rout__flapack_ssyevx[] = "\ | |||
| 49062 | w,z,m,ifail,info = ssyevx(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,overwrite_a])\n\nWrapper for ``ssyevx``.\ | |||
| 49063 | \n\nParameters\n----------\n" | |||
| 49064 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 49065 | "\nOther Parameters\n----------------\n" | |||
| 49066 | "compute_v : input int, optional\n Default: 1\n" | |||
| 49067 | "range : input string(len=1), optional\n Default: 'A'\n" | |||
| 49068 | "lower : input int, optional\n Default: 0\n" | |||
| 49069 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 49070 | "vl : input float, optional\n Default: 0.0\n" | |||
| 49071 | "vu : input float, optional\n Default: 1.0\n" | |||
| 49072 | "il : input int, optional\n Default: 1\n" | |||
| 49073 | "iu : input int, optional\n Default: n\n" | |||
| 49074 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 49075 | "lwork : input int, optional\n Default: max(8*n,1)\n" | |||
| 49076 | "\nReturns\n-------\n" | |||
| 49077 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 49078 | "z : rank-2 array('f') with bounds ((compute_v?MAX(0,n):0),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n" | |||
| 49079 | "m : int\n" | |||
| 49080 | "ifail : rank-1 array('i') with bounds ((compute_v?n:0))\n" | |||
| 49081 | "info : int"; | |||
| 49082 | /* extern void F_FUNC(ssyevx,SSYEVX)(char*,char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 49083 | static PyObject *f2py_rout__flapack_ssyevx(const PyObject *capi_self, | |||
| 49084 | PyObject *capi_args, | |||
| 49085 | PyObject *capi_keywds, | |||
| 49086 | void (*f2py_func)(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 49087 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 49088 | volatile int f2py_success = 1; | |||
| 49089 | /*decl*/ | |||
| 49090 | ||||
| 49091 | int compute_v = 0; | |||
| 49092 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 49093 | string range = NULL((void*)0); | |||
| 49094 | int slen(range)capi_range_len; | |||
| 49095 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 49096 | int lower = 0; | |||
| 49097 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 49098 | int n = 0; | |||
| 49099 | float *a = NULL((void*)0); | |||
| 49100 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 49101 | const int a_Rank = 2; | |||
| 49102 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 49103 | int capi_a_intent = 0; | |||
| 49104 | int capi_overwrite_a = 0; | |||
| 49105 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 49106 | int lda = 0; | |||
| 49107 | float vl = 0; | |||
| 49108 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 49109 | float vu = 0; | |||
| 49110 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 49111 | int il = 0; | |||
| 49112 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 49113 | int iu = 0; | |||
| 49114 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 49115 | float abstol = 0; | |||
| 49116 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 49117 | float *w = NULL((void*)0); | |||
| 49118 | npy_intp w_Dims[1] = {-1}; | |||
| 49119 | const int w_Rank = 1; | |||
| 49120 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 49121 | int capi_w_intent = 0; | |||
| 49122 | float *z = NULL((void*)0); | |||
| 49123 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 49124 | const int z_Rank = 2; | |||
| 49125 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 49126 | int capi_z_intent = 0; | |||
| 49127 | int m = 0; | |||
| 49128 | int ldz = 0; | |||
| 49129 | float *work = NULL((void*)0); | |||
| 49130 | npy_intp work_Dims[1] = {-1}; | |||
| 49131 | const int work_Rank = 1; | |||
| 49132 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 49133 | int capi_work_intent = 0; | |||
| 49134 | int lwork = 0; | |||
| 49135 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 49136 | int *iwork = NULL((void*)0); | |||
| 49137 | npy_intp iwork_Dims[1] = {-1}; | |||
| 49138 | const int iwork_Rank = 1; | |||
| 49139 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 49140 | int capi_iwork_intent = 0; | |||
| 49141 | int *ifail = NULL((void*)0); | |||
| 49142 | npy_intp ifail_Dims[1] = {-1}; | |||
| 49143 | const int ifail_Rank = 1; | |||
| 49144 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 49145 | int capi_ifail_intent = 0; | |||
| 49146 | int info = 0; | |||
| 49147 | static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","overwrite_a",NULL((void*)0)}; | |||
| 49148 | ||||
| 49149 | /*routdebugenter*/ | |||
| 49150 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49151 | f2py_start_clock(); | |||
| 49152 | #endif | |||
| 49153 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 49154 | "O|OOOOOOOOOi:_flapack.ssyevx",\ | |||
| 49155 | capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 49156 | return NULL((void*)0); | |||
| 49157 | /*frompyobj*/ | |||
| 49158 | /* Processing variable compute_v */ | |||
| 49159 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 49160 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssyevx() 1st keyword (compute_v) can't be converted to int"); | |||
| 49161 | if (f2py_success) { | |||
| 49162 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","ssyevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevx:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 49163 | /* Processing variable lower */ | |||
| 49164 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 49165 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyevx() 3rd keyword (lower) can't be converted to int"); | |||
| 49166 | if (f2py_success) { | |||
| 49167 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","ssyevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevx:lower=%d", "(""lower==0||lower==1"") failed for " "3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 49168 | /* Processing variable vl */ | |||
| 49169 | if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else | |||
| 49170 | f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.ssyevx() 4th keyword (vl) can't be converted to float"); | |||
| 49171 | if (f2py_success) { | |||
| 49172 | /* Processing variable abstol */ | |||
| 49173 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 49174 | f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.ssyevx() 8th keyword (abstol) can't be converted to float"); | |||
| 49175 | if (f2py_success) { | |||
| 49176 | /* Processing variable a */ | |||
| 49177 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 49178 | ; | |||
| 49179 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 49180 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 49181 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 49182 | if (!PyErr_Occurred()) | |||
| 49183 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssyevx to C/Fortran array" ); | |||
| 49184 | } else { | |||
| 49185 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 49186 | ||||
| 49187 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 49188 | /* Processing variable m */ | |||
| 49189 | /* Processing variable info */ | |||
| 49190 | /* Processing variable range */ | |||
| 49191 | slen(range)capi_range_len = 1; | |||
| 49192 | f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.ssyevx to C string"); | |||
| 49193 | if (f2py_success) { | |||
| 49194 | CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","ssyevx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ssyevx:slen(range)=%d range=\"%s\"" , "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range" , capi_range_len, range); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 49195 | /* Processing variable n */ | |||
| 49196 | n = shape(a,0)a_Dims[0]; | |||
| 49197 | /* Processing variable il */ | |||
| 49198 | if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else | |||
| 49199 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.ssyevx() 6th keyword (il) can't be converted to int"); | |||
| 49200 | if (f2py_success) { | |||
| 49201 | CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","ssyevx:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevx:il=%d", "(""il>=1&&il<=n"") failed for " "6th keyword il", il); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 49202 | /* Processing variable iu */ | |||
| 49203 | if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else | |||
| 49204 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.ssyevx() 7th keyword (iu) can't be converted to int"); | |||
| 49205 | if (f2py_success) { | |||
| 49206 | CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","ssyevx:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevx:iu=%d", "(""n>=iu&&iu>=il"") failed for " "7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 49207 | /* Processing variable vu */ | |||
| 49208 | if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else | |||
| 49209 | f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.ssyevx() 5th keyword (vu) can't be converted to float"); | |||
| 49210 | if (f2py_success) { | |||
| 49211 | CHECKSCALAR(vu>vl,"vu>vl","5th keyword vu","ssyevx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevx:vu=%g", "(""vu>vl"") failed for ""5th keyword vu" , vu); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 49212 | /* Processing variable lwork */ | |||
| 49213 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else | |||
| 49214 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssyevx() 9th keyword (lwork) can't be converted to int"); | |||
| 49215 | if (f2py_success) { | |||
| 49216 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","9th keyword lwork","ssyevx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "9th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 49217 | /* Processing variable lda */ | |||
| 49218 | lda = max(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 49219 | /* Processing variable work */ | |||
| 49220 | work_Dims[0]=lwork; | |||
| 49221 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 49222 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 49223 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 49224 | if (!PyErr_Occurred()) | |||
| 49225 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssyevx to C/Fortran array" ); | |||
| 49226 | } else { | |||
| 49227 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 49228 | ||||
| 49229 | /* Processing variable iwork */ | |||
| 49230 | iwork_Dims[0]=5 * n; | |||
| 49231 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 49232 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 49233 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 49234 | if (!PyErr_Occurred()) | |||
| 49235 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssyevx to C/Fortran array" ); | |||
| 49236 | } else { | |||
| 49237 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 49238 | ||||
| 49239 | /* Processing variable w */ | |||
| 49240 | w_Dims[0]=n; | |||
| 49241 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 49242 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 49243 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 49244 | if (!PyErr_Occurred()) | |||
| 49245 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssyevx to C/Fortran array" ); | |||
| 49246 | } else { | |||
| 49247 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 49248 | ||||
| 49249 | /* Processing variable z */ | |||
| 49250 | z_Dims[0]=(compute_v?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0); | |||
| 49251 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 49252 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 49253 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 49254 | if (!PyErr_Occurred()) | |||
| 49255 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.ssyevx to C/Fortran array" ); | |||
| 49256 | } else { | |||
| 49257 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 49258 | ||||
| 49259 | /* Processing variable ifail */ | |||
| 49260 | ifail_Dims[0]=(compute_v?n:0); | |||
| 49261 | capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 49262 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 49263 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 49264 | if (!PyErr_Occurred()) | |||
| 49265 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.ssyevx to C/Fortran array" ); | |||
| 49266 | } else { | |||
| 49267 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 49268 | ||||
| 49269 | /* Processing variable ldz */ | |||
| 49270 | ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 49271 | /*end of frompyobj*/ | |||
| 49272 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49273 | f2py_start_call_clock(); | |||
| 49274 | #endif | |||
| 49275 | /*callfortranroutine*/ | |||
| 49276 | (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,iwork,ifail,&info) ; | |||
| 49277 | /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,iwork,ifail,&info,slen(range));*/ | |||
| 49278 | if (PyErr_Occurred()) | |||
| 49279 | f2py_success = 0; | |||
| 49280 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49281 | f2py_stop_call_clock(); | |||
| 49282 | #endif | |||
| 49283 | /*end of callfortranroutine*/ | |||
| 49284 | if (f2py_success) { | |||
| 49285 | /*pyobjfrom*/ | |||
| 49286 | /*end of pyobjfrom*/ | |||
| 49287 | CFUNCSMESS("Building return value.\n"); | |||
| 49288 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info); | |||
| 49289 | /*closepyobjfrom*/ | |||
| 49290 | /*end of closepyobjfrom*/ | |||
| 49291 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 49292 | /*cleanupfrompyobj*/ | |||
| 49293 | /* End of cleaning variable ldz */ | |||
| 49294 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 49295 | /* End of cleaning variable ifail */ | |||
| 49296 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 49297 | /* End of cleaning variable z */ | |||
| 49298 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 49299 | /* End of cleaning variable w */ | |||
| 49300 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 49301 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 49302 | /* End of cleaning variable iwork */ | |||
| 49303 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 49304 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 49305 | /* End of cleaning variable work */ | |||
| 49306 | /* End of cleaning variable lda */ | |||
| 49307 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 49308 | } /*if (f2py_success) of lwork*/ | |||
| 49309 | /* End of cleaning variable lwork */ | |||
| 49310 | } /*CHECKSCALAR(vu>vl)*/ | |||
| 49311 | } /*if (f2py_success) of vu*/ | |||
| 49312 | /* End of cleaning variable vu */ | |||
| 49313 | } /*CHECKSCALAR(n>=iu&&iu>=il)*/ | |||
| 49314 | } /*if (f2py_success) of iu*/ | |||
| 49315 | /* End of cleaning variable iu */ | |||
| 49316 | } /*CHECKSCALAR(il>=1&&il<=n)*/ | |||
| 49317 | } /*if (f2py_success) of il*/ | |||
| 49318 | /* End of cleaning variable il */ | |||
| 49319 | /* End of cleaning variable n */ | |||
| 49320 | } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/ | |||
| 49321 | STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0); | |||
| 49322 | } /*if (f2py_success) of range*/ | |||
| 49323 | /* End of cleaning variable range */ | |||
| 49324 | /* End of cleaning variable info */ | |||
| 49325 | /* End of cleaning variable m */ | |||
| 49326 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 49327 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 49328 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 49329 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 49330 | /* End of cleaning variable a */ | |||
| 49331 | } /*if (f2py_success) of abstol*/ | |||
| 49332 | /* End of cleaning variable abstol */ | |||
| 49333 | } /*if (f2py_success) of vl*/ | |||
| 49334 | /* End of cleaning variable vl */ | |||
| 49335 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 49336 | } /*if (f2py_success) of lower*/ | |||
| 49337 | /* End of cleaning variable lower */ | |||
| 49338 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 49339 | } /*if (f2py_success) of compute_v*/ | |||
| 49340 | /* End of cleaning variable compute_v */ | |||
| 49341 | /*end of cleanupfrompyobj*/ | |||
| 49342 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 49343 | /*routdebugfailure*/ | |||
| 49344 | } else { | |||
| 49345 | /*routdebugleave*/ | |||
| 49346 | } | |||
| 49347 | CFUNCSMESS("Freeing memory.\n"); | |||
| 49348 | /*freemem*/ | |||
| 49349 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49350 | f2py_stop_clock(); | |||
| 49351 | #endif | |||
| 49352 | return capi_buildvalue; | |||
| 49353 | } | |||
| 49354 | /******************************* end of ssyevx *******************************/ | |||
| 49355 | ||||
| 49356 | /*********************************** dsyevx ***********************************/ | |||
| 49357 | static char doc_f2py_rout__flapack_dsyevx[] = "\ | |||
| 49358 | w,z,m,ifail,info = dsyevx(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,overwrite_a])\n\nWrapper for ``dsyevx``.\ | |||
| 49359 | \n\nParameters\n----------\n" | |||
| 49360 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 49361 | "\nOther Parameters\n----------------\n" | |||
| 49362 | "compute_v : input int, optional\n Default: 1\n" | |||
| 49363 | "range : input string(len=1), optional\n Default: 'A'\n" | |||
| 49364 | "lower : input int, optional\n Default: 0\n" | |||
| 49365 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 49366 | "vl : input float, optional\n Default: 0.0\n" | |||
| 49367 | "vu : input float, optional\n Default: 1.0\n" | |||
| 49368 | "il : input int, optional\n Default: 1\n" | |||
| 49369 | "iu : input int, optional\n Default: n\n" | |||
| 49370 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 49371 | "lwork : input int, optional\n Default: max(8*n,1)\n" | |||
| 49372 | "\nReturns\n-------\n" | |||
| 49373 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 49374 | "z : rank-2 array('d') with bounds ((compute_v?MAX(0,n):0),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n" | |||
| 49375 | "m : int\n" | |||
| 49376 | "ifail : rank-1 array('i') with bounds ((compute_v?n:0))\n" | |||
| 49377 | "info : int"; | |||
| 49378 | /* extern void F_FUNC(dsyevx,DSYEVX)(char*,char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 49379 | static PyObject *f2py_rout__flapack_dsyevx(const PyObject *capi_self, | |||
| 49380 | PyObject *capi_args, | |||
| 49381 | PyObject *capi_keywds, | |||
| 49382 | void (*f2py_func)(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 49383 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 49384 | volatile int f2py_success = 1; | |||
| 49385 | /*decl*/ | |||
| 49386 | ||||
| 49387 | int compute_v = 0; | |||
| 49388 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 49389 | string range = NULL((void*)0); | |||
| 49390 | int slen(range)capi_range_len; | |||
| 49391 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 49392 | int lower = 0; | |||
| 49393 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 49394 | int n = 0; | |||
| 49395 | double *a = NULL((void*)0); | |||
| 49396 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 49397 | const int a_Rank = 2; | |||
| 49398 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 49399 | int capi_a_intent = 0; | |||
| 49400 | int capi_overwrite_a = 0; | |||
| 49401 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 49402 | int lda = 0; | |||
| 49403 | double vl = 0; | |||
| 49404 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 49405 | double vu = 0; | |||
| 49406 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 49407 | int il = 0; | |||
| 49408 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 49409 | int iu = 0; | |||
| 49410 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 49411 | double abstol = 0; | |||
| 49412 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 49413 | double *w = NULL((void*)0); | |||
| 49414 | npy_intp w_Dims[1] = {-1}; | |||
| 49415 | const int w_Rank = 1; | |||
| 49416 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 49417 | int capi_w_intent = 0; | |||
| 49418 | double *z = NULL((void*)0); | |||
| 49419 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 49420 | const int z_Rank = 2; | |||
| 49421 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 49422 | int capi_z_intent = 0; | |||
| 49423 | int m = 0; | |||
| 49424 | int ldz = 0; | |||
| 49425 | double *work = NULL((void*)0); | |||
| 49426 | npy_intp work_Dims[1] = {-1}; | |||
| 49427 | const int work_Rank = 1; | |||
| 49428 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 49429 | int capi_work_intent = 0; | |||
| 49430 | int lwork = 0; | |||
| 49431 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 49432 | int *iwork = NULL((void*)0); | |||
| 49433 | npy_intp iwork_Dims[1] = {-1}; | |||
| 49434 | const int iwork_Rank = 1; | |||
| 49435 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 49436 | int capi_iwork_intent = 0; | |||
| 49437 | int *ifail = NULL((void*)0); | |||
| 49438 | npy_intp ifail_Dims[1] = {-1}; | |||
| 49439 | const int ifail_Rank = 1; | |||
| 49440 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 49441 | int capi_ifail_intent = 0; | |||
| 49442 | int info = 0; | |||
| 49443 | static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","overwrite_a",NULL((void*)0)}; | |||
| 49444 | ||||
| 49445 | /*routdebugenter*/ | |||
| 49446 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49447 | f2py_start_clock(); | |||
| 49448 | #endif | |||
| 49449 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 49450 | "O|OOOOOOOOOi:_flapack.dsyevx",\ | |||
| 49451 | capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 49452 | return NULL((void*)0); | |||
| 49453 | /*frompyobj*/ | |||
| 49454 | /* Processing variable compute_v */ | |||
| 49455 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 49456 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsyevx() 1st keyword (compute_v) can't be converted to int"); | |||
| 49457 | if (f2py_success) { | |||
| 49458 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","dsyevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevx:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 49459 | /* Processing variable lower */ | |||
| 49460 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 49461 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyevx() 3rd keyword (lower) can't be converted to int"); | |||
| 49462 | if (f2py_success) { | |||
| 49463 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","dsyevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevx:lower=%d", "(""lower==0||lower==1"") failed for " "3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 49464 | /* Processing variable vl */ | |||
| 49465 | if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else | |||
| 49466 | f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dsyevx() 4th keyword (vl) can't be converted to double"); | |||
| 49467 | if (f2py_success) { | |||
| 49468 | /* Processing variable abstol */ | |||
| 49469 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 49470 | f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.dsyevx() 8th keyword (abstol) can't be converted to double"); | |||
| 49471 | if (f2py_success) { | |||
| 49472 | /* Processing variable a */ | |||
| 49473 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 49474 | ; | |||
| 49475 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 49476 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 49477 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 49478 | if (!PyErr_Occurred()) | |||
| 49479 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsyevx to C/Fortran array" ); | |||
| 49480 | } else { | |||
| 49481 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 49482 | ||||
| 49483 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 49484 | /* Processing variable m */ | |||
| 49485 | /* Processing variable info */ | |||
| 49486 | /* Processing variable range */ | |||
| 49487 | slen(range)capi_range_len = 1; | |||
| 49488 | f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.dsyevx to C string"); | |||
| 49489 | if (f2py_success) { | |||
| 49490 | CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","dsyevx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dsyevx:slen(range)=%d range=\"%s\"" , "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range" , capi_range_len, range); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 49491 | /* Processing variable n */ | |||
| 49492 | n = shape(a,0)a_Dims[0]; | |||
| 49493 | /* Processing variable il */ | |||
| 49494 | if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else | |||
| 49495 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dsyevx() 6th keyword (il) can't be converted to int"); | |||
| 49496 | if (f2py_success) { | |||
| 49497 | CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","dsyevx:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevx:il=%d", "(""il>=1&&il<=n"") failed for " "6th keyword il", il); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 49498 | /* Processing variable iu */ | |||
| 49499 | if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else | |||
| 49500 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dsyevx() 7th keyword (iu) can't be converted to int"); | |||
| 49501 | if (f2py_success) { | |||
| 49502 | CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","dsyevx:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevx:iu=%d", "(""n>=iu&&iu>=il"") failed for " "7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 49503 | /* Processing variable vu */ | |||
| 49504 | if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else | |||
| 49505 | f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dsyevx() 5th keyword (vu) can't be converted to double"); | |||
| 49506 | if (f2py_success) { | |||
| 49507 | CHECKSCALAR(vu>vl,"vu>vl","5th keyword vu","dsyevx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevx:vu=%g", "(""vu>vl"") failed for ""5th keyword vu" , vu); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 49508 | /* Processing variable lwork */ | |||
| 49509 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else | |||
| 49510 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsyevx() 9th keyword (lwork) can't be converted to int"); | |||
| 49511 | if (f2py_success) { | |||
| 49512 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","9th keyword lwork","dsyevx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "9th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 49513 | /* Processing variable lda */ | |||
| 49514 | lda = max(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 49515 | /* Processing variable work */ | |||
| 49516 | work_Dims[0]=lwork; | |||
| 49517 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 49518 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 49519 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 49520 | if (!PyErr_Occurred()) | |||
| 49521 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsyevx to C/Fortran array" ); | |||
| 49522 | } else { | |||
| 49523 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 49524 | ||||
| 49525 | /* Processing variable iwork */ | |||
| 49526 | iwork_Dims[0]=5 * n; | |||
| 49527 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 49528 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 49529 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 49530 | if (!PyErr_Occurred()) | |||
| 49531 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsyevx to C/Fortran array" ); | |||
| 49532 | } else { | |||
| 49533 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 49534 | ||||
| 49535 | /* Processing variable w */ | |||
| 49536 | w_Dims[0]=n; | |||
| 49537 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 49538 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 49539 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 49540 | if (!PyErr_Occurred()) | |||
| 49541 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsyevx to C/Fortran array" ); | |||
| 49542 | } else { | |||
| 49543 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 49544 | ||||
| 49545 | /* Processing variable z */ | |||
| 49546 | z_Dims[0]=(compute_v?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0); | |||
| 49547 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 49548 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 49549 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 49550 | if (!PyErr_Occurred()) | |||
| 49551 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dsyevx to C/Fortran array" ); | |||
| 49552 | } else { | |||
| 49553 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 49554 | ||||
| 49555 | /* Processing variable ifail */ | |||
| 49556 | ifail_Dims[0]=(compute_v?n:0); | |||
| 49557 | capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 49558 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 49559 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 49560 | if (!PyErr_Occurred()) | |||
| 49561 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.dsyevx to C/Fortran array" ); | |||
| 49562 | } else { | |||
| 49563 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 49564 | ||||
| 49565 | /* Processing variable ldz */ | |||
| 49566 | ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 49567 | /*end of frompyobj*/ | |||
| 49568 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49569 | f2py_start_call_clock(); | |||
| 49570 | #endif | |||
| 49571 | /*callfortranroutine*/ | |||
| 49572 | (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,iwork,ifail,&info) ; | |||
| 49573 | /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,iwork,ifail,&info,slen(range));*/ | |||
| 49574 | if (PyErr_Occurred()) | |||
| 49575 | f2py_success = 0; | |||
| 49576 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49577 | f2py_stop_call_clock(); | |||
| 49578 | #endif | |||
| 49579 | /*end of callfortranroutine*/ | |||
| 49580 | if (f2py_success) { | |||
| 49581 | /*pyobjfrom*/ | |||
| 49582 | /*end of pyobjfrom*/ | |||
| 49583 | CFUNCSMESS("Building return value.\n"); | |||
| 49584 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info); | |||
| 49585 | /*closepyobjfrom*/ | |||
| 49586 | /*end of closepyobjfrom*/ | |||
| 49587 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 49588 | /*cleanupfrompyobj*/ | |||
| 49589 | /* End of cleaning variable ldz */ | |||
| 49590 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 49591 | /* End of cleaning variable ifail */ | |||
| 49592 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 49593 | /* End of cleaning variable z */ | |||
| 49594 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 49595 | /* End of cleaning variable w */ | |||
| 49596 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 49597 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 49598 | /* End of cleaning variable iwork */ | |||
| 49599 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 49600 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 49601 | /* End of cleaning variable work */ | |||
| 49602 | /* End of cleaning variable lda */ | |||
| 49603 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 49604 | } /*if (f2py_success) of lwork*/ | |||
| 49605 | /* End of cleaning variable lwork */ | |||
| 49606 | } /*CHECKSCALAR(vu>vl)*/ | |||
| 49607 | } /*if (f2py_success) of vu*/ | |||
| 49608 | /* End of cleaning variable vu */ | |||
| 49609 | } /*CHECKSCALAR(n>=iu&&iu>=il)*/ | |||
| 49610 | } /*if (f2py_success) of iu*/ | |||
| 49611 | /* End of cleaning variable iu */ | |||
| 49612 | } /*CHECKSCALAR(il>=1&&il<=n)*/ | |||
| 49613 | } /*if (f2py_success) of il*/ | |||
| 49614 | /* End of cleaning variable il */ | |||
| 49615 | /* End of cleaning variable n */ | |||
| 49616 | } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/ | |||
| 49617 | STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0); | |||
| 49618 | } /*if (f2py_success) of range*/ | |||
| 49619 | /* End of cleaning variable range */ | |||
| 49620 | /* End of cleaning variable info */ | |||
| 49621 | /* End of cleaning variable m */ | |||
| 49622 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 49623 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 49624 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 49625 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 49626 | /* End of cleaning variable a */ | |||
| 49627 | } /*if (f2py_success) of abstol*/ | |||
| 49628 | /* End of cleaning variable abstol */ | |||
| 49629 | } /*if (f2py_success) of vl*/ | |||
| 49630 | /* End of cleaning variable vl */ | |||
| 49631 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 49632 | } /*if (f2py_success) of lower*/ | |||
| 49633 | /* End of cleaning variable lower */ | |||
| 49634 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 49635 | } /*if (f2py_success) of compute_v*/ | |||
| 49636 | /* End of cleaning variable compute_v */ | |||
| 49637 | /*end of cleanupfrompyobj*/ | |||
| 49638 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 49639 | /*routdebugfailure*/ | |||
| 49640 | } else { | |||
| 49641 | /*routdebugleave*/ | |||
| 49642 | } | |||
| 49643 | CFUNCSMESS("Freeing memory.\n"); | |||
| 49644 | /*freemem*/ | |||
| 49645 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49646 | f2py_stop_clock(); | |||
| 49647 | #endif | |||
| 49648 | return capi_buildvalue; | |||
| 49649 | } | |||
| 49650 | /******************************* end of dsyevx *******************************/ | |||
| 49651 | ||||
| 49652 | /******************************** ssyevx_lwork ********************************/ | |||
| 49653 | static char doc_f2py_rout__flapack_ssyevx_lwork[] = "\ | |||
| 49654 | work,info = ssyevx_lwork(n,[lower])\n\nWrapper for ``ssyevx_lwork``.\ | |||
| 49655 | \n\nParameters\n----------\n" | |||
| 49656 | "n : input int\n" | |||
| 49657 | "\nOther Parameters\n----------------\n" | |||
| 49658 | "lower : input int, optional\n Default: 0\n" | |||
| 49659 | "\nReturns\n-------\n" | |||
| 49660 | "work : float\n" | |||
| 49661 | "info : int"; | |||
| 49662 | /* extern void F_FUNC(ssyevx ,SSYEVX )(char*,char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 49663 | static PyObject *f2py_rout__flapack_ssyevx_lwork(const PyObject *capi_self, | |||
| 49664 | PyObject *capi_args, | |||
| 49665 | PyObject *capi_keywds, | |||
| 49666 | void (*f2py_func)(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 49667 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 49668 | volatile int f2py_success = 1; | |||
| 49669 | /*decl*/ | |||
| 49670 | ||||
| 49671 | int lower = 0; | |||
| 49672 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 49673 | int n = 0; | |||
| 49674 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 49675 | float a = 0; | |||
| 49676 | int lda = 0; | |||
| 49677 | float vl = 0; | |||
| 49678 | float vu = 0; | |||
| 49679 | int il = 0; | |||
| 49680 | int iu = 0; | |||
| 49681 | float abstol = 0; | |||
| 49682 | int m = 0; | |||
| 49683 | float w = 0; | |||
| 49684 | float z = 0; | |||
| 49685 | int ldz = 0; | |||
| 49686 | float work = 0; | |||
| 49687 | int lwork = 0; | |||
| 49688 | int iwork = 0; | |||
| 49689 | int ifail = 0; | |||
| 49690 | int info = 0; | |||
| 49691 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 49692 | ||||
| 49693 | /*routdebugenter*/ | |||
| 49694 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49695 | f2py_start_clock(); | |||
| 49696 | #endif | |||
| 49697 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 49698 | "O|O:_flapack.ssyevx_lwork",\ | |||
| 49699 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 49700 | return NULL((void*)0); | |||
| 49701 | /*frompyobj*/ | |||
| 49702 | /* Processing variable n */ | |||
| 49703 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssyevx_lwork() 1st argument (n) can't be converted to int"); | |||
| 49704 | if (f2py_success) { | |||
| 49705 | /* Processing variable lower */ | |||
| 49706 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 49707 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyevx_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 49708 | if (f2py_success) { | |||
| 49709 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssyevx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyevx_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 49710 | /* Processing variable a */ | |||
| 49711 | /* Processing variable il */ | |||
| 49712 | il = 1; | |||
| 49713 | /* Processing variable iu */ | |||
| 49714 | iu = 0; | |||
| 49715 | /* Processing variable vl */ | |||
| 49716 | vl = 0.0; | |||
| 49717 | /* Processing variable vu */ | |||
| 49718 | vu = 1.0; | |||
| 49719 | /* Processing variable abstol */ | |||
| 49720 | abstol = 0.0; | |||
| 49721 | /* Processing variable m */ | |||
| 49722 | /* Processing variable w */ | |||
| 49723 | /* Processing variable z */ | |||
| 49724 | /* Processing variable lwork */ | |||
| 49725 | lwork = -1; | |||
| 49726 | /* Processing variable iwork */ | |||
| 49727 | /* Processing variable ifail */ | |||
| 49728 | /* Processing variable work */ | |||
| 49729 | /* Processing variable info */ | |||
| 49730 | /* Processing variable lda */ | |||
| 49731 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 49732 | /* Processing variable ldz */ | |||
| 49733 | ldz = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 49734 | /*end of frompyobj*/ | |||
| 49735 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49736 | f2py_start_call_clock(); | |||
| 49737 | #endif | |||
| 49738 | /*callfortranroutine*/ | |||
| 49739 | (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info) ; | |||
| 49740 | /*(*f2py_func)(&lower,&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info);*/ | |||
| 49741 | if (PyErr_Occurred()) | |||
| 49742 | f2py_success = 0; | |||
| 49743 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49744 | f2py_stop_call_clock(); | |||
| 49745 | #endif | |||
| 49746 | /*end of callfortranroutine*/ | |||
| 49747 | if (f2py_success) { | |||
| 49748 | /*pyobjfrom*/ | |||
| 49749 | /*end of pyobjfrom*/ | |||
| 49750 | CFUNCSMESS("Building return value.\n"); | |||
| 49751 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 49752 | /*closepyobjfrom*/ | |||
| 49753 | /*end of closepyobjfrom*/ | |||
| 49754 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 49755 | /*cleanupfrompyobj*/ | |||
| 49756 | /* End of cleaning variable ldz */ | |||
| 49757 | /* End of cleaning variable lda */ | |||
| 49758 | /* End of cleaning variable info */ | |||
| 49759 | /* End of cleaning variable work */ | |||
| 49760 | /* End of cleaning variable ifail */ | |||
| 49761 | /* End of cleaning variable iwork */ | |||
| 49762 | /* End of cleaning variable lwork */ | |||
| 49763 | /* End of cleaning variable z */ | |||
| 49764 | /* End of cleaning variable w */ | |||
| 49765 | /* End of cleaning variable m */ | |||
| 49766 | /* End of cleaning variable abstol */ | |||
| 49767 | /* End of cleaning variable vu */ | |||
| 49768 | /* End of cleaning variable vl */ | |||
| 49769 | /* End of cleaning variable iu */ | |||
| 49770 | /* End of cleaning variable il */ | |||
| 49771 | /* End of cleaning variable a */ | |||
| 49772 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 49773 | } /*if (f2py_success) of lower*/ | |||
| 49774 | /* End of cleaning variable lower */ | |||
| 49775 | } /*if (f2py_success) of n*/ | |||
| 49776 | /* End of cleaning variable n */ | |||
| 49777 | /*end of cleanupfrompyobj*/ | |||
| 49778 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 49779 | /*routdebugfailure*/ | |||
| 49780 | } else { | |||
| 49781 | /*routdebugleave*/ | |||
| 49782 | } | |||
| 49783 | CFUNCSMESS("Freeing memory.\n"); | |||
| 49784 | /*freemem*/ | |||
| 49785 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49786 | f2py_stop_clock(); | |||
| 49787 | #endif | |||
| 49788 | return capi_buildvalue; | |||
| 49789 | } | |||
| 49790 | /**************************** end of ssyevx_lwork ****************************/ | |||
| 49791 | ||||
| 49792 | /******************************** dsyevx_lwork ********************************/ | |||
| 49793 | static char doc_f2py_rout__flapack_dsyevx_lwork[] = "\ | |||
| 49794 | work,info = dsyevx_lwork(n,[lower])\n\nWrapper for ``dsyevx_lwork``.\ | |||
| 49795 | \n\nParameters\n----------\n" | |||
| 49796 | "n : input int\n" | |||
| 49797 | "\nOther Parameters\n----------------\n" | |||
| 49798 | "lower : input int, optional\n Default: 0\n" | |||
| 49799 | "\nReturns\n-------\n" | |||
| 49800 | "work : float\n" | |||
| 49801 | "info : int"; | |||
| 49802 | /* extern void F_FUNC(dsyevx ,DSYEVX )(char*,char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 49803 | static PyObject *f2py_rout__flapack_dsyevx_lwork(const PyObject *capi_self, | |||
| 49804 | PyObject *capi_args, | |||
| 49805 | PyObject *capi_keywds, | |||
| 49806 | void (*f2py_func)(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 49807 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 49808 | volatile int f2py_success = 1; | |||
| 49809 | /*decl*/ | |||
| 49810 | ||||
| 49811 | int lower = 0; | |||
| 49812 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 49813 | int n = 0; | |||
| 49814 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 49815 | double a = 0; | |||
| 49816 | int lda = 0; | |||
| 49817 | double vl = 0; | |||
| 49818 | double vu = 0; | |||
| 49819 | int il = 0; | |||
| 49820 | int iu = 0; | |||
| 49821 | double abstol = 0; | |||
| 49822 | int m = 0; | |||
| 49823 | double w = 0; | |||
| 49824 | double z = 0; | |||
| 49825 | int ldz = 0; | |||
| 49826 | double work = 0; | |||
| 49827 | int lwork = 0; | |||
| 49828 | int iwork = 0; | |||
| 49829 | int ifail = 0; | |||
| 49830 | int info = 0; | |||
| 49831 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 49832 | ||||
| 49833 | /*routdebugenter*/ | |||
| 49834 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49835 | f2py_start_clock(); | |||
| 49836 | #endif | |||
| 49837 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 49838 | "O|O:_flapack.dsyevx_lwork",\ | |||
| 49839 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 49840 | return NULL((void*)0); | |||
| 49841 | /*frompyobj*/ | |||
| 49842 | /* Processing variable n */ | |||
| 49843 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsyevx_lwork() 1st argument (n) can't be converted to int"); | |||
| 49844 | if (f2py_success) { | |||
| 49845 | /* Processing variable lower */ | |||
| 49846 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 49847 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyevx_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 49848 | if (f2py_success) { | |||
| 49849 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsyevx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyevx_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 49850 | /* Processing variable a */ | |||
| 49851 | /* Processing variable il */ | |||
| 49852 | il = 1; | |||
| 49853 | /* Processing variable iu */ | |||
| 49854 | iu = 0; | |||
| 49855 | /* Processing variable vl */ | |||
| 49856 | vl = 0.0; | |||
| 49857 | /* Processing variable vu */ | |||
| 49858 | vu = 1.0; | |||
| 49859 | /* Processing variable abstol */ | |||
| 49860 | abstol = 0.0; | |||
| 49861 | /* Processing variable m */ | |||
| 49862 | /* Processing variable w */ | |||
| 49863 | /* Processing variable z */ | |||
| 49864 | /* Processing variable lwork */ | |||
| 49865 | lwork = -1; | |||
| 49866 | /* Processing variable iwork */ | |||
| 49867 | /* Processing variable ifail */ | |||
| 49868 | /* Processing variable work */ | |||
| 49869 | /* Processing variable info */ | |||
| 49870 | /* Processing variable lda */ | |||
| 49871 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 49872 | /* Processing variable ldz */ | |||
| 49873 | ldz = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 49874 | /*end of frompyobj*/ | |||
| 49875 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49876 | f2py_start_call_clock(); | |||
| 49877 | #endif | |||
| 49878 | /*callfortranroutine*/ | |||
| 49879 | (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info) ; | |||
| 49880 | /*(*f2py_func)(&lower,&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info);*/ | |||
| 49881 | if (PyErr_Occurred()) | |||
| 49882 | f2py_success = 0; | |||
| 49883 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49884 | f2py_stop_call_clock(); | |||
| 49885 | #endif | |||
| 49886 | /*end of callfortranroutine*/ | |||
| 49887 | if (f2py_success) { | |||
| 49888 | /*pyobjfrom*/ | |||
| 49889 | /*end of pyobjfrom*/ | |||
| 49890 | CFUNCSMESS("Building return value.\n"); | |||
| 49891 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 49892 | /*closepyobjfrom*/ | |||
| 49893 | /*end of closepyobjfrom*/ | |||
| 49894 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 49895 | /*cleanupfrompyobj*/ | |||
| 49896 | /* End of cleaning variable ldz */ | |||
| 49897 | /* End of cleaning variable lda */ | |||
| 49898 | /* End of cleaning variable info */ | |||
| 49899 | /* End of cleaning variable work */ | |||
| 49900 | /* End of cleaning variable ifail */ | |||
| 49901 | /* End of cleaning variable iwork */ | |||
| 49902 | /* End of cleaning variable lwork */ | |||
| 49903 | /* End of cleaning variable z */ | |||
| 49904 | /* End of cleaning variable w */ | |||
| 49905 | /* End of cleaning variable m */ | |||
| 49906 | /* End of cleaning variable abstol */ | |||
| 49907 | /* End of cleaning variable vu */ | |||
| 49908 | /* End of cleaning variable vl */ | |||
| 49909 | /* End of cleaning variable iu */ | |||
| 49910 | /* End of cleaning variable il */ | |||
| 49911 | /* End of cleaning variable a */ | |||
| 49912 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 49913 | } /*if (f2py_success) of lower*/ | |||
| 49914 | /* End of cleaning variable lower */ | |||
| 49915 | } /*if (f2py_success) of n*/ | |||
| 49916 | /* End of cleaning variable n */ | |||
| 49917 | /*end of cleanupfrompyobj*/ | |||
| 49918 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 49919 | /*routdebugfailure*/ | |||
| 49920 | } else { | |||
| 49921 | /*routdebugleave*/ | |||
| 49922 | } | |||
| 49923 | CFUNCSMESS("Freeing memory.\n"); | |||
| 49924 | /*freemem*/ | |||
| 49925 | #ifdef F2PY_REPORT_ATEXIT | |||
| 49926 | f2py_stop_clock(); | |||
| 49927 | #endif | |||
| 49928 | return capi_buildvalue; | |||
| 49929 | } | |||
| 49930 | /**************************** end of dsyevx_lwork ****************************/ | |||
| 49931 | ||||
| 49932 | /*********************************** cheevx ***********************************/ | |||
| 49933 | static char doc_f2py_rout__flapack_cheevx[] = "\ | |||
| 49934 | w,z,m,ifail,info = cheevx(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,overwrite_a])\n\nWrapper for ``cheevx``.\ | |||
| 49935 | \n\nParameters\n----------\n" | |||
| 49936 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 49937 | "\nOther Parameters\n----------------\n" | |||
| 49938 | "compute_v : input int, optional\n Default: 1\n" | |||
| 49939 | "range : input string(len=1), optional\n Default: 'A'\n" | |||
| 49940 | "lower : input int, optional\n Default: 0\n" | |||
| 49941 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 49942 | "vl : input float, optional\n Default: 0.0\n" | |||
| 49943 | "vu : input float, optional\n Default: 1.0\n" | |||
| 49944 | "il : input int, optional\n Default: 1\n" | |||
| 49945 | "iu : input int, optional\n Default: n\n" | |||
| 49946 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 49947 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 49948 | "\nReturns\n-------\n" | |||
| 49949 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 49950 | "z : rank-2 array('F') with bounds ((compute_v*n),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n" | |||
| 49951 | "m : int\n" | |||
| 49952 | "ifail : rank-1 array('i') with bounds (compute_v*n)\n" | |||
| 49953 | "info : int"; | |||
| 49954 | /* extern void F_FUNC(cheevx,CHEEVX)(char*,char*,char*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 49955 | static PyObject *f2py_rout__flapack_cheevx(const PyObject *capi_self, | |||
| 49956 | PyObject *capi_args, | |||
| 49957 | PyObject *capi_keywds, | |||
| 49958 | void (*f2py_func)(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 49959 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 49960 | volatile int f2py_success = 1; | |||
| 49961 | /*decl*/ | |||
| 49962 | ||||
| 49963 | int compute_v = 0; | |||
| 49964 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 49965 | string range = NULL((void*)0); | |||
| 49966 | int slen(range)capi_range_len; | |||
| 49967 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 49968 | int lower = 0; | |||
| 49969 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 49970 | int n = 0; | |||
| 49971 | complex_float *a = NULL((void*)0); | |||
| 49972 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 49973 | const int a_Rank = 2; | |||
| 49974 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 49975 | int capi_a_intent = 0; | |||
| 49976 | int capi_overwrite_a = 0; | |||
| 49977 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 49978 | int lda = 0; | |||
| 49979 | float vl = 0; | |||
| 49980 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 49981 | float vu = 0; | |||
| 49982 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 49983 | int il = 0; | |||
| 49984 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 49985 | int iu = 0; | |||
| 49986 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 49987 | float abstol = 0; | |||
| 49988 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 49989 | float *w = NULL((void*)0); | |||
| 49990 | npy_intp w_Dims[1] = {-1}; | |||
| 49991 | const int w_Rank = 1; | |||
| 49992 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 49993 | int capi_w_intent = 0; | |||
| 49994 | complex_float *z = NULL((void*)0); | |||
| 49995 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 49996 | const int z_Rank = 2; | |||
| 49997 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 49998 | int capi_z_intent = 0; | |||
| 49999 | int m = 0; | |||
| 50000 | int ldz = 0; | |||
| 50001 | complex_float *work = NULL((void*)0); | |||
| 50002 | npy_intp work_Dims[1] = {-1}; | |||
| 50003 | const int work_Rank = 1; | |||
| 50004 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 50005 | int capi_work_intent = 0; | |||
| 50006 | int lwork = 0; | |||
| 50007 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 50008 | float *rwork = NULL((void*)0); | |||
| 50009 | npy_intp rwork_Dims[1] = {-1}; | |||
| 50010 | const int rwork_Rank = 1; | |||
| 50011 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 50012 | int capi_rwork_intent = 0; | |||
| 50013 | int *iwork = NULL((void*)0); | |||
| 50014 | npy_intp iwork_Dims[1] = {-1}; | |||
| 50015 | const int iwork_Rank = 1; | |||
| 50016 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 50017 | int capi_iwork_intent = 0; | |||
| 50018 | int *ifail = NULL((void*)0); | |||
| 50019 | npy_intp ifail_Dims[1] = {-1}; | |||
| 50020 | const int ifail_Rank = 1; | |||
| 50021 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 50022 | int capi_ifail_intent = 0; | |||
| 50023 | int info = 0; | |||
| 50024 | static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","overwrite_a",NULL((void*)0)}; | |||
| 50025 | ||||
| 50026 | /*routdebugenter*/ | |||
| 50027 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50028 | f2py_start_clock(); | |||
| 50029 | #endif | |||
| 50030 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 50031 | "O|OOOOOOOOOi:_flapack.cheevx",\ | |||
| 50032 | capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 50033 | return NULL((void*)0); | |||
| 50034 | /*frompyobj*/ | |||
| 50035 | /* Processing variable compute_v */ | |||
| 50036 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 50037 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.cheevx() 1st keyword (compute_v) can't be converted to int"); | |||
| 50038 | if (f2py_success) { | |||
| 50039 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","cheevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevx:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 50040 | /* Processing variable lower */ | |||
| 50041 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 50042 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheevx() 3rd keyword (lower) can't be converted to int"); | |||
| 50043 | if (f2py_success) { | |||
| 50044 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","cheevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevx:lower=%d", "(""lower==0||lower==1"") failed for " "3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 50045 | /* Processing variable vl */ | |||
| 50046 | if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else | |||
| 50047 | f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.cheevx() 4th keyword (vl) can't be converted to float"); | |||
| 50048 | if (f2py_success) { | |||
| 50049 | /* Processing variable abstol */ | |||
| 50050 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 50051 | f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.cheevx() 8th keyword (abstol) can't be converted to float"); | |||
| 50052 | if (f2py_success) { | |||
| 50053 | /* Processing variable a */ | |||
| 50054 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 50055 | ; | |||
| 50056 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 50057 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 50058 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 50059 | if (!PyErr_Occurred()) | |||
| 50060 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cheevx to C/Fortran array" ); | |||
| 50061 | } else { | |||
| 50062 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 50063 | ||||
| 50064 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 50065 | /* Processing variable m */ | |||
| 50066 | /* Processing variable info */ | |||
| 50067 | /* Processing variable range */ | |||
| 50068 | slen(range)capi_range_len = 1; | |||
| 50069 | f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.cheevx to C string"); | |||
| 50070 | if (f2py_success) { | |||
| 50071 | CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","cheevx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cheevx:slen(range)=%d range=\"%s\"" , "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range" , capi_range_len, range); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 50072 | /* Processing variable vu */ | |||
| 50073 | if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else | |||
| 50074 | f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.cheevx() 5th keyword (vu) can't be converted to float"); | |||
| 50075 | if (f2py_success) { | |||
| 50076 | CHECKSCALAR(vu>vl,"vu>vl","5th keyword vu","cheevx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevx:vu=%g", "(""vu>vl"") failed for ""5th keyword vu" , vu); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 50077 | /* Processing variable n */ | |||
| 50078 | n = shape(a,0)a_Dims[0]; | |||
| 50079 | /* Processing variable lda */ | |||
| 50080 | lda = max(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 50081 | /* Processing variable iwork */ | |||
| 50082 | iwork_Dims[0]=5 * n; | |||
| 50083 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 50084 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 50085 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 50086 | if (!PyErr_Occurred()) | |||
| 50087 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.cheevx to C/Fortran array" ); | |||
| 50088 | } else { | |||
| 50089 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 50090 | ||||
| 50091 | /* Processing variable rwork */ | |||
| 50092 | rwork_Dims[0]=7 * n; | |||
| 50093 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 50094 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 50095 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 50096 | if (!PyErr_Occurred()) | |||
| 50097 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cheevx to C/Fortran array" ); | |||
| 50098 | } else { | |||
| 50099 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 50100 | ||||
| 50101 | /* Processing variable w */ | |||
| 50102 | w_Dims[0]=n; | |||
| 50103 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 50104 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 50105 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 50106 | if (!PyErr_Occurred()) | |||
| 50107 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.cheevx to C/Fortran array" ); | |||
| 50108 | } else { | |||
| 50109 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 50110 | ||||
| 50111 | /* Processing variable ifail */ | |||
| 50112 | ifail_Dims[0]=compute_v*n; | |||
| 50113 | capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 50114 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 50115 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 50116 | if (!PyErr_Occurred()) | |||
| 50117 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.cheevx to C/Fortran array" ); | |||
| 50118 | } else { | |||
| 50119 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 50120 | ||||
| 50121 | /* Processing variable il */ | |||
| 50122 | if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else | |||
| 50123 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.cheevx() 6th keyword (il) can't be converted to int"); | |||
| 50124 | if (f2py_success) { | |||
| 50125 | CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","cheevx:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevx:il=%d", "(""il>=1&&il<=n"") failed for " "6th keyword il", il); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 50126 | /* Processing variable iu */ | |||
| 50127 | if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else | |||
| 50128 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.cheevx() 7th keyword (iu) can't be converted to int"); | |||
| 50129 | if (f2py_success) { | |||
| 50130 | CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","cheevx:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevx:iu=%d", "(""n>=iu&&iu>=il"") failed for " "7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 50131 | /* Processing variable lwork */ | |||
| 50132 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 50133 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cheevx() 9th keyword (lwork) can't be converted to int"); | |||
| 50134 | if (f2py_success) { | |||
| 50135 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","9th keyword lwork","cheevx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "9th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 50136 | /* Processing variable work */ | |||
| 50137 | work_Dims[0]=lwork; | |||
| 50138 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 50139 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 50140 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 50141 | if (!PyErr_Occurred()) | |||
| 50142 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cheevx to C/Fortran array" ); | |||
| 50143 | } else { | |||
| 50144 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 50145 | ||||
| 50146 | /* Processing variable z */ | |||
| 50147 | z_Dims[0]=(compute_v*n),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0); | |||
| 50148 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 50149 | capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 50150 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 50151 | if (!PyErr_Occurred()) | |||
| 50152 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.cheevx to C/Fortran array" ); | |||
| 50153 | } else { | |||
| 50154 | z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 50155 | ||||
| 50156 | /* Processing variable ldz */ | |||
| 50157 | ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 50158 | /*end of frompyobj*/ | |||
| 50159 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50160 | f2py_start_call_clock(); | |||
| 50161 | #endif | |||
| 50162 | /*callfortranroutine*/ | |||
| 50163 | (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,rwork,iwork,ifail,&info) ; | |||
| 50164 | /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,rwork,iwork,ifail,&info,slen(range));*/ | |||
| 50165 | if (PyErr_Occurred()) | |||
| 50166 | f2py_success = 0; | |||
| 50167 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50168 | f2py_stop_call_clock(); | |||
| 50169 | #endif | |||
| 50170 | /*end of callfortranroutine*/ | |||
| 50171 | if (f2py_success) { | |||
| 50172 | /*pyobjfrom*/ | |||
| 50173 | /*end of pyobjfrom*/ | |||
| 50174 | CFUNCSMESS("Building return value.\n"); | |||
| 50175 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info); | |||
| 50176 | /*closepyobjfrom*/ | |||
| 50177 | /*end of closepyobjfrom*/ | |||
| 50178 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 50179 | /*cleanupfrompyobj*/ | |||
| 50180 | /* End of cleaning variable ldz */ | |||
| 50181 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 50182 | /* End of cleaning variable z */ | |||
| 50183 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 50184 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 50185 | /* End of cleaning variable work */ | |||
| 50186 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 50187 | } /*if (f2py_success) of lwork*/ | |||
| 50188 | /* End of cleaning variable lwork */ | |||
| 50189 | } /*CHECKSCALAR(n>=iu&&iu>=il)*/ | |||
| 50190 | } /*if (f2py_success) of iu*/ | |||
| 50191 | /* End of cleaning variable iu */ | |||
| 50192 | } /*CHECKSCALAR(il>=1&&il<=n)*/ | |||
| 50193 | } /*if (f2py_success) of il*/ | |||
| 50194 | /* End of cleaning variable il */ | |||
| 50195 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 50196 | /* End of cleaning variable ifail */ | |||
| 50197 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 50198 | /* End of cleaning variable w */ | |||
| 50199 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 50200 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 50201 | /* End of cleaning variable rwork */ | |||
| 50202 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 50203 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 50204 | /* End of cleaning variable iwork */ | |||
| 50205 | /* End of cleaning variable lda */ | |||
| 50206 | /* End of cleaning variable n */ | |||
| 50207 | } /*CHECKSCALAR(vu>vl)*/ | |||
| 50208 | } /*if (f2py_success) of vu*/ | |||
| 50209 | /* End of cleaning variable vu */ | |||
| 50210 | } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/ | |||
| 50211 | STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0); | |||
| 50212 | } /*if (f2py_success) of range*/ | |||
| 50213 | /* End of cleaning variable range */ | |||
| 50214 | /* End of cleaning variable info */ | |||
| 50215 | /* End of cleaning variable m */ | |||
| 50216 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 50217 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 50218 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 50219 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 50220 | /* End of cleaning variable a */ | |||
| 50221 | } /*if (f2py_success) of abstol*/ | |||
| 50222 | /* End of cleaning variable abstol */ | |||
| 50223 | } /*if (f2py_success) of vl*/ | |||
| 50224 | /* End of cleaning variable vl */ | |||
| 50225 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 50226 | } /*if (f2py_success) of lower*/ | |||
| 50227 | /* End of cleaning variable lower */ | |||
| 50228 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 50229 | } /*if (f2py_success) of compute_v*/ | |||
| 50230 | /* End of cleaning variable compute_v */ | |||
| 50231 | /*end of cleanupfrompyobj*/ | |||
| 50232 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 50233 | /*routdebugfailure*/ | |||
| 50234 | } else { | |||
| 50235 | /*routdebugleave*/ | |||
| 50236 | } | |||
| 50237 | CFUNCSMESS("Freeing memory.\n"); | |||
| 50238 | /*freemem*/ | |||
| 50239 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50240 | f2py_stop_clock(); | |||
| 50241 | #endif | |||
| 50242 | return capi_buildvalue; | |||
| 50243 | } | |||
| 50244 | /******************************* end of cheevx *******************************/ | |||
| 50245 | ||||
| 50246 | /*********************************** zheevx ***********************************/ | |||
| 50247 | static char doc_f2py_rout__flapack_zheevx[] = "\ | |||
| 50248 | w,z,m,ifail,info = zheevx(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,overwrite_a])\n\nWrapper for ``zheevx``.\ | |||
| 50249 | \n\nParameters\n----------\n" | |||
| 50250 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 50251 | "\nOther Parameters\n----------------\n" | |||
| 50252 | "compute_v : input int, optional\n Default: 1\n" | |||
| 50253 | "range : input string(len=1), optional\n Default: 'A'\n" | |||
| 50254 | "lower : input int, optional\n Default: 0\n" | |||
| 50255 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 50256 | "vl : input float, optional\n Default: 0.0\n" | |||
| 50257 | "vu : input float, optional\n Default: 1.0\n" | |||
| 50258 | "il : input int, optional\n Default: 1\n" | |||
| 50259 | "iu : input int, optional\n Default: n\n" | |||
| 50260 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 50261 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 50262 | "\nReturns\n-------\n" | |||
| 50263 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 50264 | "z : rank-2 array('D') with bounds ((compute_v*n),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n" | |||
| 50265 | "m : int\n" | |||
| 50266 | "ifail : rank-1 array('i') with bounds (compute_v*n)\n" | |||
| 50267 | "info : int"; | |||
| 50268 | /* extern void F_FUNC(zheevx,ZHEEVX)(char*,char*,char*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 50269 | static PyObject *f2py_rout__flapack_zheevx(const PyObject *capi_self, | |||
| 50270 | PyObject *capi_args, | |||
| 50271 | PyObject *capi_keywds, | |||
| 50272 | void (*f2py_func)(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 50273 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 50274 | volatile int f2py_success = 1; | |||
| 50275 | /*decl*/ | |||
| 50276 | ||||
| 50277 | int compute_v = 0; | |||
| 50278 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 50279 | string range = NULL((void*)0); | |||
| 50280 | int slen(range)capi_range_len; | |||
| 50281 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 50282 | int lower = 0; | |||
| 50283 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 50284 | int n = 0; | |||
| 50285 | complex_double *a = NULL((void*)0); | |||
| 50286 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 50287 | const int a_Rank = 2; | |||
| 50288 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 50289 | int capi_a_intent = 0; | |||
| 50290 | int capi_overwrite_a = 0; | |||
| 50291 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 50292 | int lda = 0; | |||
| 50293 | double vl = 0; | |||
| 50294 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 50295 | double vu = 0; | |||
| 50296 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 50297 | int il = 0; | |||
| 50298 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 50299 | int iu = 0; | |||
| 50300 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 50301 | double abstol = 0; | |||
| 50302 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 50303 | double *w = NULL((void*)0); | |||
| 50304 | npy_intp w_Dims[1] = {-1}; | |||
| 50305 | const int w_Rank = 1; | |||
| 50306 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 50307 | int capi_w_intent = 0; | |||
| 50308 | complex_double *z = NULL((void*)0); | |||
| 50309 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 50310 | const int z_Rank = 2; | |||
| 50311 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 50312 | int capi_z_intent = 0; | |||
| 50313 | int m = 0; | |||
| 50314 | int ldz = 0; | |||
| 50315 | complex_double *work = NULL((void*)0); | |||
| 50316 | npy_intp work_Dims[1] = {-1}; | |||
| 50317 | const int work_Rank = 1; | |||
| 50318 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 50319 | int capi_work_intent = 0; | |||
| 50320 | int lwork = 0; | |||
| 50321 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 50322 | double *rwork = NULL((void*)0); | |||
| 50323 | npy_intp rwork_Dims[1] = {-1}; | |||
| 50324 | const int rwork_Rank = 1; | |||
| 50325 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 50326 | int capi_rwork_intent = 0; | |||
| 50327 | int *iwork = NULL((void*)0); | |||
| 50328 | npy_intp iwork_Dims[1] = {-1}; | |||
| 50329 | const int iwork_Rank = 1; | |||
| 50330 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 50331 | int capi_iwork_intent = 0; | |||
| 50332 | int *ifail = NULL((void*)0); | |||
| 50333 | npy_intp ifail_Dims[1] = {-1}; | |||
| 50334 | const int ifail_Rank = 1; | |||
| 50335 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 50336 | int capi_ifail_intent = 0; | |||
| 50337 | int info = 0; | |||
| 50338 | static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","overwrite_a",NULL((void*)0)}; | |||
| 50339 | ||||
| 50340 | /*routdebugenter*/ | |||
| 50341 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50342 | f2py_start_clock(); | |||
| 50343 | #endif | |||
| 50344 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 50345 | "O|OOOOOOOOOi:_flapack.zheevx",\ | |||
| 50346 | capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 50347 | return NULL((void*)0); | |||
| 50348 | /*frompyobj*/ | |||
| 50349 | /* Processing variable compute_v */ | |||
| 50350 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 50351 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zheevx() 1st keyword (compute_v) can't be converted to int"); | |||
| 50352 | if (f2py_success) { | |||
| 50353 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","zheevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevx:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 50354 | /* Processing variable lower */ | |||
| 50355 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 50356 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheevx() 3rd keyword (lower) can't be converted to int"); | |||
| 50357 | if (f2py_success) { | |||
| 50358 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","zheevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevx:lower=%d", "(""lower==0||lower==1"") failed for " "3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 50359 | /* Processing variable vl */ | |||
| 50360 | if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else | |||
| 50361 | f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.zheevx() 4th keyword (vl) can't be converted to double"); | |||
| 50362 | if (f2py_success) { | |||
| 50363 | /* Processing variable abstol */ | |||
| 50364 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 50365 | f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.zheevx() 8th keyword (abstol) can't be converted to double"); | |||
| 50366 | if (f2py_success) { | |||
| 50367 | /* Processing variable a */ | |||
| 50368 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 50369 | ; | |||
| 50370 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 50371 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 50372 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 50373 | if (!PyErr_Occurred()) | |||
| 50374 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zheevx to C/Fortran array" ); | |||
| 50375 | } else { | |||
| 50376 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 50377 | ||||
| 50378 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 50379 | /* Processing variable m */ | |||
| 50380 | /* Processing variable info */ | |||
| 50381 | /* Processing variable range */ | |||
| 50382 | slen(range)capi_range_len = 1; | |||
| 50383 | f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.zheevx to C string"); | |||
| 50384 | if (f2py_success) { | |||
| 50385 | CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","zheevx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zheevx:slen(range)=%d range=\"%s\"" , "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range" , capi_range_len, range); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 50386 | /* Processing variable vu */ | |||
| 50387 | if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else | |||
| 50388 | f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.zheevx() 5th keyword (vu) can't be converted to double"); | |||
| 50389 | if (f2py_success) { | |||
| 50390 | CHECKSCALAR(vu>vl,"vu>vl","5th keyword vu","zheevx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevx:vu=%g", "(""vu>vl"") failed for ""5th keyword vu" , vu); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 50391 | /* Processing variable n */ | |||
| 50392 | n = shape(a,0)a_Dims[0]; | |||
| 50393 | /* Processing variable lda */ | |||
| 50394 | lda = max(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 50395 | /* Processing variable iwork */ | |||
| 50396 | iwork_Dims[0]=5 * n; | |||
| 50397 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 50398 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 50399 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 50400 | if (!PyErr_Occurred()) | |||
| 50401 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zheevx to C/Fortran array" ); | |||
| 50402 | } else { | |||
| 50403 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 50404 | ||||
| 50405 | /* Processing variable rwork */ | |||
| 50406 | rwork_Dims[0]=7 * n; | |||
| 50407 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 50408 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 50409 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 50410 | if (!PyErr_Occurred()) | |||
| 50411 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zheevx to C/Fortran array" ); | |||
| 50412 | } else { | |||
| 50413 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 50414 | ||||
| 50415 | /* Processing variable w */ | |||
| 50416 | w_Dims[0]=n; | |||
| 50417 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 50418 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 50419 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 50420 | if (!PyErr_Occurred()) | |||
| 50421 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zheevx to C/Fortran array" ); | |||
| 50422 | } else { | |||
| 50423 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 50424 | ||||
| 50425 | /* Processing variable ifail */ | |||
| 50426 | ifail_Dims[0]=compute_v*n; | |||
| 50427 | capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 50428 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 50429 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 50430 | if (!PyErr_Occurred()) | |||
| 50431 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.zheevx to C/Fortran array" ); | |||
| 50432 | } else { | |||
| 50433 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 50434 | ||||
| 50435 | /* Processing variable il */ | |||
| 50436 | if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else | |||
| 50437 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.zheevx() 6th keyword (il) can't be converted to int"); | |||
| 50438 | if (f2py_success) { | |||
| 50439 | CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","zheevx:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevx:il=%d", "(""il>=1&&il<=n"") failed for " "6th keyword il", il); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 50440 | /* Processing variable iu */ | |||
| 50441 | if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else | |||
| 50442 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.zheevx() 7th keyword (iu) can't be converted to int"); | |||
| 50443 | if (f2py_success) { | |||
| 50444 | CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","zheevx:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevx:iu=%d", "(""n>=iu&&iu>=il"") failed for " "7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 50445 | /* Processing variable lwork */ | |||
| 50446 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 50447 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zheevx() 9th keyword (lwork) can't be converted to int"); | |||
| 50448 | if (f2py_success) { | |||
| 50449 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","9th keyword lwork","zheevx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "9th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 50450 | /* Processing variable work */ | |||
| 50451 | work_Dims[0]=lwork; | |||
| 50452 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 50453 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 50454 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 50455 | if (!PyErr_Occurred()) | |||
| 50456 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zheevx to C/Fortran array" ); | |||
| 50457 | } else { | |||
| 50458 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 50459 | ||||
| 50460 | /* Processing variable z */ | |||
| 50461 | z_Dims[0]=(compute_v*n),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0); | |||
| 50462 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 50463 | capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 50464 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 50465 | if (!PyErr_Occurred()) | |||
| 50466 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.zheevx to C/Fortran array" ); | |||
| 50467 | } else { | |||
| 50468 | z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 50469 | ||||
| 50470 | /* Processing variable ldz */ | |||
| 50471 | ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 50472 | /*end of frompyobj*/ | |||
| 50473 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50474 | f2py_start_call_clock(); | |||
| 50475 | #endif | |||
| 50476 | /*callfortranroutine*/ | |||
| 50477 | (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,rwork,iwork,ifail,&info) ; | |||
| 50478 | /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,rwork,iwork,ifail,&info,slen(range));*/ | |||
| 50479 | if (PyErr_Occurred()) | |||
| 50480 | f2py_success = 0; | |||
| 50481 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50482 | f2py_stop_call_clock(); | |||
| 50483 | #endif | |||
| 50484 | /*end of callfortranroutine*/ | |||
| 50485 | if (f2py_success) { | |||
| 50486 | /*pyobjfrom*/ | |||
| 50487 | /*end of pyobjfrom*/ | |||
| 50488 | CFUNCSMESS("Building return value.\n"); | |||
| 50489 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info); | |||
| 50490 | /*closepyobjfrom*/ | |||
| 50491 | /*end of closepyobjfrom*/ | |||
| 50492 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 50493 | /*cleanupfrompyobj*/ | |||
| 50494 | /* End of cleaning variable ldz */ | |||
| 50495 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 50496 | /* End of cleaning variable z */ | |||
| 50497 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 50498 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 50499 | /* End of cleaning variable work */ | |||
| 50500 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 50501 | } /*if (f2py_success) of lwork*/ | |||
| 50502 | /* End of cleaning variable lwork */ | |||
| 50503 | } /*CHECKSCALAR(n>=iu&&iu>=il)*/ | |||
| 50504 | } /*if (f2py_success) of iu*/ | |||
| 50505 | /* End of cleaning variable iu */ | |||
| 50506 | } /*CHECKSCALAR(il>=1&&il<=n)*/ | |||
| 50507 | } /*if (f2py_success) of il*/ | |||
| 50508 | /* End of cleaning variable il */ | |||
| 50509 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 50510 | /* End of cleaning variable ifail */ | |||
| 50511 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 50512 | /* End of cleaning variable w */ | |||
| 50513 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 50514 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 50515 | /* End of cleaning variable rwork */ | |||
| 50516 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 50517 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 50518 | /* End of cleaning variable iwork */ | |||
| 50519 | /* End of cleaning variable lda */ | |||
| 50520 | /* End of cleaning variable n */ | |||
| 50521 | } /*CHECKSCALAR(vu>vl)*/ | |||
| 50522 | } /*if (f2py_success) of vu*/ | |||
| 50523 | /* End of cleaning variable vu */ | |||
| 50524 | } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/ | |||
| 50525 | STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0); | |||
| 50526 | } /*if (f2py_success) of range*/ | |||
| 50527 | /* End of cleaning variable range */ | |||
| 50528 | /* End of cleaning variable info */ | |||
| 50529 | /* End of cleaning variable m */ | |||
| 50530 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 50531 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 50532 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 50533 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 50534 | /* End of cleaning variable a */ | |||
| 50535 | } /*if (f2py_success) of abstol*/ | |||
| 50536 | /* End of cleaning variable abstol */ | |||
| 50537 | } /*if (f2py_success) of vl*/ | |||
| 50538 | /* End of cleaning variable vl */ | |||
| 50539 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 50540 | } /*if (f2py_success) of lower*/ | |||
| 50541 | /* End of cleaning variable lower */ | |||
| 50542 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 50543 | } /*if (f2py_success) of compute_v*/ | |||
| 50544 | /* End of cleaning variable compute_v */ | |||
| 50545 | /*end of cleanupfrompyobj*/ | |||
| 50546 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 50547 | /*routdebugfailure*/ | |||
| 50548 | } else { | |||
| 50549 | /*routdebugleave*/ | |||
| 50550 | } | |||
| 50551 | CFUNCSMESS("Freeing memory.\n"); | |||
| 50552 | /*freemem*/ | |||
| 50553 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50554 | f2py_stop_clock(); | |||
| 50555 | #endif | |||
| 50556 | return capi_buildvalue; | |||
| 50557 | } | |||
| 50558 | /******************************* end of zheevx *******************************/ | |||
| 50559 | ||||
| 50560 | /******************************** cheevx_lwork ********************************/ | |||
| 50561 | static char doc_f2py_rout__flapack_cheevx_lwork[] = "\ | |||
| 50562 | work,info = cheevx_lwork(n,[lower])\n\nWrapper for ``cheevx_lwork``.\ | |||
| 50563 | \n\nParameters\n----------\n" | |||
| 50564 | "n : input int\n" | |||
| 50565 | "\nOther Parameters\n----------------\n" | |||
| 50566 | "lower : input int, optional\n Default: 0\n" | |||
| 50567 | "\nReturns\n-------\n" | |||
| 50568 | "work : complex\n" | |||
| 50569 | "info : int"; | |||
| 50570 | /* extern void F_FUNC(cheevx ,CHEEVX )(char*,char*,char*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 50571 | static PyObject *f2py_rout__flapack_cheevx_lwork(const PyObject *capi_self, | |||
| 50572 | PyObject *capi_args, | |||
| 50573 | PyObject *capi_keywds, | |||
| 50574 | void (*f2py_func)(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 50575 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 50576 | volatile int f2py_success = 1; | |||
| 50577 | /*decl*/ | |||
| 50578 | ||||
| 50579 | int lower = 0; | |||
| 50580 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 50581 | int n = 0; | |||
| 50582 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 50583 | complex_float a; | |||
| 50584 | int lda = 0; | |||
| 50585 | float vl = 0; | |||
| 50586 | float vu = 0; | |||
| 50587 | int il = 0; | |||
| 50588 | int iu = 0; | |||
| 50589 | float abstol = 0; | |||
| 50590 | int m = 0; | |||
| 50591 | float w = 0; | |||
| 50592 | complex_float z; | |||
| 50593 | int ldz = 0; | |||
| 50594 | complex_float work; | |||
| 50595 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 50596 | int lwork = 0; | |||
| 50597 | float rwork = 0; | |||
| 50598 | int iwork = 0; | |||
| 50599 | int ifail = 0; | |||
| 50600 | int info = 0; | |||
| 50601 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 50602 | ||||
| 50603 | /*routdebugenter*/ | |||
| 50604 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50605 | f2py_start_clock(); | |||
| 50606 | #endif | |||
| 50607 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 50608 | "O|O:_flapack.cheevx_lwork",\ | |||
| 50609 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 50610 | return NULL((void*)0); | |||
| 50611 | /*frompyobj*/ | |||
| 50612 | /* Processing variable n */ | |||
| 50613 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cheevx_lwork() 1st argument (n) can't be converted to int"); | |||
| 50614 | if (f2py_success) { | |||
| 50615 | /* Processing variable lower */ | |||
| 50616 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 50617 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheevx_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 50618 | if (f2py_success) { | |||
| 50619 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cheevx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheevx_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 50620 | /* Processing variable a */ | |||
| 50621 | /* Processing variable il */ | |||
| 50622 | il = 1; | |||
| 50623 | /* Processing variable iu */ | |||
| 50624 | iu = 0; | |||
| 50625 | /* Processing variable vl */ | |||
| 50626 | vl = 0.0; | |||
| 50627 | /* Processing variable vu */ | |||
| 50628 | vu = 1.0; | |||
| 50629 | /* Processing variable abstol */ | |||
| 50630 | abstol = 0.0; | |||
| 50631 | /* Processing variable m */ | |||
| 50632 | /* Processing variable w */ | |||
| 50633 | /* Processing variable z */ | |||
| 50634 | /* Processing variable lwork */ | |||
| 50635 | lwork = -1; | |||
| 50636 | /* Processing variable rwork */ | |||
| 50637 | /* Processing variable iwork */ | |||
| 50638 | /* Processing variable ifail */ | |||
| 50639 | /* Processing variable work */ | |||
| 50640 | /* Processing variable info */ | |||
| 50641 | /* Processing variable lda */ | |||
| 50642 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 50643 | /* Processing variable ldz */ | |||
| 50644 | ldz = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 50645 | /*end of frompyobj*/ | |||
| 50646 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50647 | f2py_start_call_clock(); | |||
| 50648 | #endif | |||
| 50649 | /*callfortranroutine*/ | |||
| 50650 | (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info) ; | |||
| 50651 | /*(*f2py_func)(&lower,&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info);*/ | |||
| 50652 | if (PyErr_Occurred()) | |||
| 50653 | f2py_success = 0; | |||
| 50654 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50655 | f2py_stop_call_clock(); | |||
| 50656 | #endif | |||
| 50657 | /*end of callfortranroutine*/ | |||
| 50658 | if (f2py_success) { | |||
| 50659 | /*pyobjfrom*/ | |||
| 50660 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 50661 | /*end of pyobjfrom*/ | |||
| 50662 | CFUNCSMESS("Building return value.\n"); | |||
| 50663 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 50664 | /*closepyobjfrom*/ | |||
| 50665 | /*end of closepyobjfrom*/ | |||
| 50666 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 50667 | /*cleanupfrompyobj*/ | |||
| 50668 | /* End of cleaning variable ldz */ | |||
| 50669 | /* End of cleaning variable lda */ | |||
| 50670 | /* End of cleaning variable info */ | |||
| 50671 | /* End of cleaning variable work */ | |||
| 50672 | /* End of cleaning variable ifail */ | |||
| 50673 | /* End of cleaning variable iwork */ | |||
| 50674 | /* End of cleaning variable rwork */ | |||
| 50675 | /* End of cleaning variable lwork */ | |||
| 50676 | /* End of cleaning variable z */ | |||
| 50677 | /* End of cleaning variable w */ | |||
| 50678 | /* End of cleaning variable m */ | |||
| 50679 | /* End of cleaning variable abstol */ | |||
| 50680 | /* End of cleaning variable vu */ | |||
| 50681 | /* End of cleaning variable vl */ | |||
| 50682 | /* End of cleaning variable iu */ | |||
| 50683 | /* End of cleaning variable il */ | |||
| 50684 | /* End of cleaning variable a */ | |||
| 50685 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 50686 | } /*if (f2py_success) of lower*/ | |||
| 50687 | /* End of cleaning variable lower */ | |||
| 50688 | } /*if (f2py_success) of n*/ | |||
| 50689 | /* End of cleaning variable n */ | |||
| 50690 | /*end of cleanupfrompyobj*/ | |||
| 50691 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 50692 | /*routdebugfailure*/ | |||
| 50693 | } else { | |||
| 50694 | /*routdebugleave*/ | |||
| 50695 | } | |||
| 50696 | CFUNCSMESS("Freeing memory.\n"); | |||
| 50697 | /*freemem*/ | |||
| 50698 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50699 | f2py_stop_clock(); | |||
| 50700 | #endif | |||
| 50701 | return capi_buildvalue; | |||
| 50702 | } | |||
| 50703 | /**************************** end of cheevx_lwork ****************************/ | |||
| 50704 | ||||
| 50705 | /******************************** zheevx_lwork ********************************/ | |||
| 50706 | static char doc_f2py_rout__flapack_zheevx_lwork[] = "\ | |||
| 50707 | work,info = zheevx_lwork(n,[lower])\n\nWrapper for ``zheevx_lwork``.\ | |||
| 50708 | \n\nParameters\n----------\n" | |||
| 50709 | "n : input int\n" | |||
| 50710 | "\nOther Parameters\n----------------\n" | |||
| 50711 | "lower : input int, optional\n Default: 0\n" | |||
| 50712 | "\nReturns\n-------\n" | |||
| 50713 | "work : complex\n" | |||
| 50714 | "info : int"; | |||
| 50715 | /* extern void F_FUNC(zheevx ,ZHEEVX )(char*,char*,char*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 50716 | static PyObject *f2py_rout__flapack_zheevx_lwork(const PyObject *capi_self, | |||
| 50717 | PyObject *capi_args, | |||
| 50718 | PyObject *capi_keywds, | |||
| 50719 | void (*f2py_func)(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 50720 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 50721 | volatile int f2py_success = 1; | |||
| 50722 | /*decl*/ | |||
| 50723 | ||||
| 50724 | int lower = 0; | |||
| 50725 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 50726 | int n = 0; | |||
| 50727 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 50728 | complex_double a; | |||
| 50729 | int lda = 0; | |||
| 50730 | double vl = 0; | |||
| 50731 | double vu = 0; | |||
| 50732 | int il = 0; | |||
| 50733 | int iu = 0; | |||
| 50734 | double abstol = 0; | |||
| 50735 | int m = 0; | |||
| 50736 | double w = 0; | |||
| 50737 | complex_double z; | |||
| 50738 | int ldz = 0; | |||
| 50739 | complex_double work; | |||
| 50740 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 50741 | int lwork = 0; | |||
| 50742 | double rwork = 0; | |||
| 50743 | int iwork = 0; | |||
| 50744 | int ifail = 0; | |||
| 50745 | int info = 0; | |||
| 50746 | static char *capi_kwlist[] = {"n","lower",NULL((void*)0)}; | |||
| 50747 | ||||
| 50748 | /*routdebugenter*/ | |||
| 50749 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50750 | f2py_start_clock(); | |||
| 50751 | #endif | |||
| 50752 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 50753 | "O|O:_flapack.zheevx_lwork",\ | |||
| 50754 | capi_kwlist,&n_capi,&lower_capi)) | |||
| 50755 | return NULL((void*)0); | |||
| 50756 | /*frompyobj*/ | |||
| 50757 | /* Processing variable n */ | |||
| 50758 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zheevx_lwork() 1st argument (n) can't be converted to int"); | |||
| 50759 | if (f2py_success) { | |||
| 50760 | /* Processing variable lower */ | |||
| 50761 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 50762 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheevx_lwork() 1st keyword (lower) can't be converted to int"); | |||
| 50763 | if (f2py_success) { | |||
| 50764 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zheevx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheevx_lwork:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 50765 | /* Processing variable a */ | |||
| 50766 | /* Processing variable il */ | |||
| 50767 | il = 1; | |||
| 50768 | /* Processing variable iu */ | |||
| 50769 | iu = 0; | |||
| 50770 | /* Processing variable vl */ | |||
| 50771 | vl = 0.0; | |||
| 50772 | /* Processing variable vu */ | |||
| 50773 | vu = 1.0; | |||
| 50774 | /* Processing variable abstol */ | |||
| 50775 | abstol = 0.0; | |||
| 50776 | /* Processing variable m */ | |||
| 50777 | /* Processing variable w */ | |||
| 50778 | /* Processing variable z */ | |||
| 50779 | /* Processing variable lwork */ | |||
| 50780 | lwork = -1; | |||
| 50781 | /* Processing variable rwork */ | |||
| 50782 | /* Processing variable iwork */ | |||
| 50783 | /* Processing variable ifail */ | |||
| 50784 | /* Processing variable work */ | |||
| 50785 | /* Processing variable info */ | |||
| 50786 | /* Processing variable lda */ | |||
| 50787 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 50788 | /* Processing variable ldz */ | |||
| 50789 | ldz = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 50790 | /*end of frompyobj*/ | |||
| 50791 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50792 | f2py_start_call_clock(); | |||
| 50793 | #endif | |||
| 50794 | /*callfortranroutine*/ | |||
| 50795 | (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info) ; | |||
| 50796 | /*(*f2py_func)(&lower,&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info);*/ | |||
| 50797 | if (PyErr_Occurred()) | |||
| 50798 | f2py_success = 0; | |||
| 50799 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50800 | f2py_stop_call_clock(); | |||
| 50801 | #endif | |||
| 50802 | /*end of callfortranroutine*/ | |||
| 50803 | if (f2py_success) { | |||
| 50804 | /*pyobjfrom*/ | |||
| 50805 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 50806 | /*end of pyobjfrom*/ | |||
| 50807 | CFUNCSMESS("Building return value.\n"); | |||
| 50808 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 50809 | /*closepyobjfrom*/ | |||
| 50810 | /*end of closepyobjfrom*/ | |||
| 50811 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 50812 | /*cleanupfrompyobj*/ | |||
| 50813 | /* End of cleaning variable ldz */ | |||
| 50814 | /* End of cleaning variable lda */ | |||
| 50815 | /* End of cleaning variable info */ | |||
| 50816 | /* End of cleaning variable work */ | |||
| 50817 | /* End of cleaning variable ifail */ | |||
| 50818 | /* End of cleaning variable iwork */ | |||
| 50819 | /* End of cleaning variable rwork */ | |||
| 50820 | /* End of cleaning variable lwork */ | |||
| 50821 | /* End of cleaning variable z */ | |||
| 50822 | /* End of cleaning variable w */ | |||
| 50823 | /* End of cleaning variable m */ | |||
| 50824 | /* End of cleaning variable abstol */ | |||
| 50825 | /* End of cleaning variable vu */ | |||
| 50826 | /* End of cleaning variable vl */ | |||
| 50827 | /* End of cleaning variable iu */ | |||
| 50828 | /* End of cleaning variable il */ | |||
| 50829 | /* End of cleaning variable a */ | |||
| 50830 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 50831 | } /*if (f2py_success) of lower*/ | |||
| 50832 | /* End of cleaning variable lower */ | |||
| 50833 | } /*if (f2py_success) of n*/ | |||
| 50834 | /* End of cleaning variable n */ | |||
| 50835 | /*end of cleanupfrompyobj*/ | |||
| 50836 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 50837 | /*routdebugfailure*/ | |||
| 50838 | } else { | |||
| 50839 | /*routdebugleave*/ | |||
| 50840 | } | |||
| 50841 | CFUNCSMESS("Freeing memory.\n"); | |||
| 50842 | /*freemem*/ | |||
| 50843 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50844 | f2py_stop_clock(); | |||
| 50845 | #endif | |||
| 50846 | return capi_buildvalue; | |||
| 50847 | } | |||
| 50848 | /**************************** end of zheevx_lwork ****************************/ | |||
| 50849 | ||||
| 50850 | /*********************************** ssygv ***********************************/ | |||
| 50851 | static char doc_f2py_rout__flapack_ssygv[] = "\ | |||
| 50852 | w,v,info = ssygv(a,b,[itype,jobz,uplo,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``ssygv``.\ | |||
| 50853 | \n\nParameters\n----------\n" | |||
| 50854 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 50855 | "b : input rank-2 array('f') with bounds (n,n)\n" | |||
| 50856 | "\nOther Parameters\n----------------\n" | |||
| 50857 | "itype : input int, optional\n Default: 1\n" | |||
| 50858 | "jobz : input string(len=1), optional\n Default: 'V'\n" | |||
| 50859 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 50860 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 50861 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 50862 | "lwork : input int, optional\n Default: max(3*n-1,1)\n" | |||
| 50863 | "\nReturns\n-------\n" | |||
| 50864 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 50865 | "v : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 50866 | "info : int"; | |||
| 50867 | /* extern void F_FUNC(ssygv,SSYGV)(F_INT*,char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 50868 | static PyObject *f2py_rout__flapack_ssygv(const PyObject *capi_self, | |||
| 50869 | PyObject *capi_args, | |||
| 50870 | PyObject *capi_keywds, | |||
| 50871 | void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 50872 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 50873 | volatile int f2py_success = 1; | |||
| 50874 | /*decl*/ | |||
| 50875 | ||||
| 50876 | int itype = 0; | |||
| 50877 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 50878 | string jobz = NULL((void*)0); | |||
| 50879 | int slen(jobz)capi_jobz_len; | |||
| 50880 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 50881 | string uplo = NULL((void*)0); | |||
| 50882 | int slen(uplo)capi_uplo_len; | |||
| 50883 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 50884 | int n = 0; | |||
| 50885 | int lda = 0; | |||
| 50886 | int ldb = 0; | |||
| 50887 | float *w = NULL((void*)0); | |||
| 50888 | npy_intp w_Dims[1] = {-1}; | |||
| 50889 | const int w_Rank = 1; | |||
| 50890 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 50891 | int capi_w_intent = 0; | |||
| 50892 | float *a = NULL((void*)0); | |||
| 50893 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 50894 | const int a_Rank = 2; | |||
| 50895 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 50896 | int capi_a_intent = 0; | |||
| 50897 | int capi_overwrite_a = 0; | |||
| 50898 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 50899 | float *b = NULL((void*)0); | |||
| 50900 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 50901 | const int b_Rank = 2; | |||
| 50902 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 50903 | int capi_b_intent = 0; | |||
| 50904 | int capi_overwrite_b = 0; | |||
| 50905 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 50906 | float *work = NULL((void*)0); | |||
| 50907 | npy_intp work_Dims[1] = {-1}; | |||
| 50908 | const int work_Rank = 1; | |||
| 50909 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 50910 | int capi_work_intent = 0; | |||
| 50911 | int lwork = 0; | |||
| 50912 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 50913 | int info = 0; | |||
| 50914 | static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 50915 | ||||
| 50916 | /*routdebugenter*/ | |||
| 50917 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50918 | f2py_start_clock(); | |||
| 50919 | #endif | |||
| 50920 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 50921 | "OO|OOOOii:_flapack.ssygv",\ | |||
| 50922 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 50923 | return NULL((void*)0); | |||
| 50924 | /*frompyobj*/ | |||
| 50925 | /* Processing variable a */ | |||
| 50926 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 50927 | ; | |||
| 50928 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 50929 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 50930 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 50931 | if (!PyErr_Occurred()) | |||
| 50932 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssygv to C/Fortran array" ); | |||
| 50933 | } else { | |||
| 50934 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 50935 | ||||
| 50936 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 50937 | /* Processing variable itype */ | |||
| 50938 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 50939 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.ssygv() 1st keyword (itype) can't be converted to int"); | |||
| 50940 | if (f2py_success) { | |||
| 50941 | CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","ssygv:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygv:itype=%d", "(""itype > 0 || itype < 4"") failed for " "1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 50942 | /* Processing variable jobz */ | |||
| 50943 | slen(jobz)capi_jobz_len = 1; | |||
| 50944 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.ssygv to C string"); | |||
| 50945 | if (f2py_success) { | |||
| 50946 | CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","ssygv:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygv:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'" ") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 50947 | /* Processing variable uplo */ | |||
| 50948 | slen(uplo)capi_uplo_len = 1; | |||
| 50949 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.ssygv to C string"); | |||
| 50950 | if (f2py_success) { | |||
| 50951 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","ssygv:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygv:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 50952 | /* Processing variable info */ | |||
| 50953 | /* Processing variable n */ | |||
| 50954 | n = shape(a,0)a_Dims[0]; | |||
| 50955 | /* Processing variable lda */ | |||
| 50956 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 50957 | /* Processing variable w */ | |||
| 50958 | w_Dims[0]=n; | |||
| 50959 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 50960 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 50961 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 50962 | if (!PyErr_Occurred()) | |||
| 50963 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssygv to C/Fortran array" ); | |||
| 50964 | } else { | |||
| 50965 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 50966 | ||||
| 50967 | /* Processing variable b */ | |||
| 50968 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 50969 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 50970 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 50971 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 50972 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 50973 | if (!PyErr_Occurred()) | |||
| 50974 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ssygv to C/Fortran array" ); | |||
| 50975 | } else { | |||
| 50976 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 50977 | ||||
| 50978 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 50979 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 50980 | /* Processing variable lwork */ | |||
| 50981 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n-1,1)((3*n-1 > 1) ? (3*n-1) : (1)); else | |||
| 50982 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssygv() 4th keyword (lwork) can't be converted to int"); | |||
| 50983 | if (f2py_success) { | |||
| 50984 | CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","ssygv:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygv:lwork=%d", "(""lwork>0||lwork==-1"") failed for " "4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 50985 | /* Processing variable ldb */ | |||
| 50986 | ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 50987 | /* Processing variable work */ | |||
| 50988 | work_Dims[0]=lwork; | |||
| 50989 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 50990 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 50991 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 50992 | if (!PyErr_Occurred()) | |||
| 50993 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssygv to C/Fortran array" ); | |||
| 50994 | } else { | |||
| 50995 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 50996 | ||||
| 50997 | /*end of frompyobj*/ | |||
| 50998 | #ifdef F2PY_REPORT_ATEXIT | |||
| 50999 | f2py_start_call_clock(); | |||
| 51000 | #endif | |||
| 51001 | /*callfortranroutine*/ | |||
| 51002 | (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,&info) ; | |||
| 51003 | /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,&info,slen(jobz),slen(uplo));*/ | |||
| 51004 | if (PyErr_Occurred()) | |||
| 51005 | f2py_success = 0; | |||
| 51006 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51007 | f2py_stop_call_clock(); | |||
| 51008 | #endif | |||
| 51009 | /*end of callfortranroutine*/ | |||
| 51010 | if (f2py_success) { | |||
| 51011 | /*pyobjfrom*/ | |||
| 51012 | /*end of pyobjfrom*/ | |||
| 51013 | CFUNCSMESS("Building return value.\n"); | |||
| 51014 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 51015 | /*closepyobjfrom*/ | |||
| 51016 | /*end of closepyobjfrom*/ | |||
| 51017 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 51018 | /*cleanupfrompyobj*/ | |||
| 51019 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 51020 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 51021 | /* End of cleaning variable work */ | |||
| 51022 | /* End of cleaning variable ldb */ | |||
| 51023 | } /*CHECKSCALAR(lwork>0||lwork==-1)*/ | |||
| 51024 | } /*if (f2py_success) of lwork*/ | |||
| 51025 | /* End of cleaning variable lwork */ | |||
| 51026 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 51027 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 51028 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 51029 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 51030 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 51031 | /* End of cleaning variable b */ | |||
| 51032 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 51033 | /* End of cleaning variable w */ | |||
| 51034 | /* End of cleaning variable lda */ | |||
| 51035 | /* End of cleaning variable n */ | |||
| 51036 | /* End of cleaning variable info */ | |||
| 51037 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 51038 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 51039 | } /*if (f2py_success) of uplo*/ | |||
| 51040 | /* End of cleaning variable uplo */ | |||
| 51041 | } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/ | |||
| 51042 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 51043 | } /*if (f2py_success) of jobz*/ | |||
| 51044 | /* End of cleaning variable jobz */ | |||
| 51045 | } /*CHECKSCALAR(itype > 0 || itype < 4)*/ | |||
| 51046 | } /*if (f2py_success) of itype*/ | |||
| 51047 | /* End of cleaning variable itype */ | |||
| 51048 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 51049 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 51050 | /* End of cleaning variable a */ | |||
| 51051 | /*end of cleanupfrompyobj*/ | |||
| 51052 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 51053 | /*routdebugfailure*/ | |||
| 51054 | } else { | |||
| 51055 | /*routdebugleave*/ | |||
| 51056 | } | |||
| 51057 | CFUNCSMESS("Freeing memory.\n"); | |||
| 51058 | /*freemem*/ | |||
| 51059 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51060 | f2py_stop_clock(); | |||
| 51061 | #endif | |||
| 51062 | return capi_buildvalue; | |||
| 51063 | } | |||
| 51064 | /******************************** end of ssygv ********************************/ | |||
| 51065 | ||||
| 51066 | /*********************************** dsygv ***********************************/ | |||
| 51067 | static char doc_f2py_rout__flapack_dsygv[] = "\ | |||
| 51068 | w,v,info = dsygv(a,b,[itype,jobz,uplo,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``dsygv``.\ | |||
| 51069 | \n\nParameters\n----------\n" | |||
| 51070 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 51071 | "b : input rank-2 array('d') with bounds (n,n)\n" | |||
| 51072 | "\nOther Parameters\n----------------\n" | |||
| 51073 | "itype : input int, optional\n Default: 1\n" | |||
| 51074 | "jobz : input string(len=1), optional\n Default: 'V'\n" | |||
| 51075 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 51076 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 51077 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 51078 | "lwork : input int, optional\n Default: max(3*n-1,1)\n" | |||
| 51079 | "\nReturns\n-------\n" | |||
| 51080 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 51081 | "v : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 51082 | "info : int"; | |||
| 51083 | /* extern void F_FUNC(dsygv,DSYGV)(F_INT*,char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 51084 | static PyObject *f2py_rout__flapack_dsygv(const PyObject *capi_self, | |||
| 51085 | PyObject *capi_args, | |||
| 51086 | PyObject *capi_keywds, | |||
| 51087 | void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 51088 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 51089 | volatile int f2py_success = 1; | |||
| 51090 | /*decl*/ | |||
| 51091 | ||||
| 51092 | int itype = 0; | |||
| 51093 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 51094 | string jobz = NULL((void*)0); | |||
| 51095 | int slen(jobz)capi_jobz_len; | |||
| 51096 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 51097 | string uplo = NULL((void*)0); | |||
| 51098 | int slen(uplo)capi_uplo_len; | |||
| 51099 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 51100 | int n = 0; | |||
| 51101 | int lda = 0; | |||
| 51102 | int ldb = 0; | |||
| 51103 | double *w = NULL((void*)0); | |||
| 51104 | npy_intp w_Dims[1] = {-1}; | |||
| 51105 | const int w_Rank = 1; | |||
| 51106 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 51107 | int capi_w_intent = 0; | |||
| 51108 | double *a = NULL((void*)0); | |||
| 51109 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 51110 | const int a_Rank = 2; | |||
| 51111 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 51112 | int capi_a_intent = 0; | |||
| 51113 | int capi_overwrite_a = 0; | |||
| 51114 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 51115 | double *b = NULL((void*)0); | |||
| 51116 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 51117 | const int b_Rank = 2; | |||
| 51118 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 51119 | int capi_b_intent = 0; | |||
| 51120 | int capi_overwrite_b = 0; | |||
| 51121 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 51122 | double *work = NULL((void*)0); | |||
| 51123 | npy_intp work_Dims[1] = {-1}; | |||
| 51124 | const int work_Rank = 1; | |||
| 51125 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 51126 | int capi_work_intent = 0; | |||
| 51127 | int lwork = 0; | |||
| 51128 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 51129 | int info = 0; | |||
| 51130 | static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 51131 | ||||
| 51132 | /*routdebugenter*/ | |||
| 51133 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51134 | f2py_start_clock(); | |||
| 51135 | #endif | |||
| 51136 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 51137 | "OO|OOOOii:_flapack.dsygv",\ | |||
| 51138 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 51139 | return NULL((void*)0); | |||
| 51140 | /*frompyobj*/ | |||
| 51141 | /* Processing variable a */ | |||
| 51142 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 51143 | ; | |||
| 51144 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 51145 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 51146 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 51147 | if (!PyErr_Occurred()) | |||
| 51148 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsygv to C/Fortran array" ); | |||
| 51149 | } else { | |||
| 51150 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 51151 | ||||
| 51152 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 51153 | /* Processing variable itype */ | |||
| 51154 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 51155 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.dsygv() 1st keyword (itype) can't be converted to int"); | |||
| 51156 | if (f2py_success) { | |||
| 51157 | CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","dsygv:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygv:itype=%d", "(""itype > 0 || itype < 4"") failed for " "1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 51158 | /* Processing variable jobz */ | |||
| 51159 | slen(jobz)capi_jobz_len = 1; | |||
| 51160 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.dsygv to C string"); | |||
| 51161 | if (f2py_success) { | |||
| 51162 | CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","dsygv:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygv:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'" ") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 51163 | /* Processing variable uplo */ | |||
| 51164 | slen(uplo)capi_uplo_len = 1; | |||
| 51165 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.dsygv to C string"); | |||
| 51166 | if (f2py_success) { | |||
| 51167 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","dsygv:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygv:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 51168 | /* Processing variable info */ | |||
| 51169 | /* Processing variable n */ | |||
| 51170 | n = shape(a,0)a_Dims[0]; | |||
| 51171 | /* Processing variable lda */ | |||
| 51172 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 51173 | /* Processing variable w */ | |||
| 51174 | w_Dims[0]=n; | |||
| 51175 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 51176 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 51177 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 51178 | if (!PyErr_Occurred()) | |||
| 51179 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsygv to C/Fortran array" ); | |||
| 51180 | } else { | |||
| 51181 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 51182 | ||||
| 51183 | /* Processing variable b */ | |||
| 51184 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 51185 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 51186 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 51187 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 51188 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 51189 | if (!PyErr_Occurred()) | |||
| 51190 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dsygv to C/Fortran array" ); | |||
| 51191 | } else { | |||
| 51192 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 51193 | ||||
| 51194 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 51195 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 51196 | /* Processing variable lwork */ | |||
| 51197 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n-1,1)((3*n-1 > 1) ? (3*n-1) : (1)); else | |||
| 51198 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsygv() 4th keyword (lwork) can't be converted to int"); | |||
| 51199 | if (f2py_success) { | |||
| 51200 | CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","dsygv:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygv:lwork=%d", "(""lwork>0||lwork==-1"") failed for " "4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 51201 | /* Processing variable ldb */ | |||
| 51202 | ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 51203 | /* Processing variable work */ | |||
| 51204 | work_Dims[0]=lwork; | |||
| 51205 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 51206 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 51207 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 51208 | if (!PyErr_Occurred()) | |||
| 51209 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsygv to C/Fortran array" ); | |||
| 51210 | } else { | |||
| 51211 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 51212 | ||||
| 51213 | /*end of frompyobj*/ | |||
| 51214 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51215 | f2py_start_call_clock(); | |||
| 51216 | #endif | |||
| 51217 | /*callfortranroutine*/ | |||
| 51218 | (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,&info) ; | |||
| 51219 | /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,&info,slen(jobz),slen(uplo));*/ | |||
| 51220 | if (PyErr_Occurred()) | |||
| 51221 | f2py_success = 0; | |||
| 51222 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51223 | f2py_stop_call_clock(); | |||
| 51224 | #endif | |||
| 51225 | /*end of callfortranroutine*/ | |||
| 51226 | if (f2py_success) { | |||
| 51227 | /*pyobjfrom*/ | |||
| 51228 | /*end of pyobjfrom*/ | |||
| 51229 | CFUNCSMESS("Building return value.\n"); | |||
| 51230 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 51231 | /*closepyobjfrom*/ | |||
| 51232 | /*end of closepyobjfrom*/ | |||
| 51233 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 51234 | /*cleanupfrompyobj*/ | |||
| 51235 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 51236 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 51237 | /* End of cleaning variable work */ | |||
| 51238 | /* End of cleaning variable ldb */ | |||
| 51239 | } /*CHECKSCALAR(lwork>0||lwork==-1)*/ | |||
| 51240 | } /*if (f2py_success) of lwork*/ | |||
| 51241 | /* End of cleaning variable lwork */ | |||
| 51242 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 51243 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 51244 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 51245 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 51246 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 51247 | /* End of cleaning variable b */ | |||
| 51248 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 51249 | /* End of cleaning variable w */ | |||
| 51250 | /* End of cleaning variable lda */ | |||
| 51251 | /* End of cleaning variable n */ | |||
| 51252 | /* End of cleaning variable info */ | |||
| 51253 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 51254 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 51255 | } /*if (f2py_success) of uplo*/ | |||
| 51256 | /* End of cleaning variable uplo */ | |||
| 51257 | } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/ | |||
| 51258 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 51259 | } /*if (f2py_success) of jobz*/ | |||
| 51260 | /* End of cleaning variable jobz */ | |||
| 51261 | } /*CHECKSCALAR(itype > 0 || itype < 4)*/ | |||
| 51262 | } /*if (f2py_success) of itype*/ | |||
| 51263 | /* End of cleaning variable itype */ | |||
| 51264 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 51265 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 51266 | /* End of cleaning variable a */ | |||
| 51267 | /*end of cleanupfrompyobj*/ | |||
| 51268 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 51269 | /*routdebugfailure*/ | |||
| 51270 | } else { | |||
| 51271 | /*routdebugleave*/ | |||
| 51272 | } | |||
| 51273 | CFUNCSMESS("Freeing memory.\n"); | |||
| 51274 | /*freemem*/ | |||
| 51275 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51276 | f2py_stop_clock(); | |||
| 51277 | #endif | |||
| 51278 | return capi_buildvalue; | |||
| 51279 | } | |||
| 51280 | /******************************** end of dsygv ********************************/ | |||
| 51281 | ||||
| 51282 | /******************************** ssygv_lwork ********************************/ | |||
| 51283 | static char doc_f2py_rout__flapack_ssygv_lwork[] = "\ | |||
| 51284 | work,info = ssygv_lwork(n,[uplo])\n\nWrapper for ``ssygv_lwork``.\ | |||
| 51285 | \n\nParameters\n----------\n" | |||
| 51286 | "n : input int\n" | |||
| 51287 | "\nOther Parameters\n----------------\n" | |||
| 51288 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 51289 | "\nReturns\n-------\n" | |||
| 51290 | "work : float\n" | |||
| 51291 | "info : int"; | |||
| 51292 | /* extern void F_FUNC(ssygv ,SSYGV )(F_INT*,char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 51293 | static PyObject *f2py_rout__flapack_ssygv_lwork(const PyObject *capi_self, | |||
| 51294 | PyObject *capi_args, | |||
| 51295 | PyObject *capi_keywds, | |||
| 51296 | void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 51297 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 51298 | volatile int f2py_success = 1; | |||
| 51299 | /*decl*/ | |||
| 51300 | ||||
| 51301 | int itype = 0; | |||
| 51302 | string jobz = NULL((void*)0); | |||
| 51303 | int slen(jobz)capi_jobz_len; | |||
| 51304 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 51305 | string uplo = NULL((void*)0); | |||
| 51306 | int slen(uplo)capi_uplo_len; | |||
| 51307 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 51308 | int n = 0; | |||
| 51309 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 51310 | float a = 0; | |||
| 51311 | int lda = 0; | |||
| 51312 | float b = 0; | |||
| 51313 | int ldb = 0; | |||
| 51314 | float w = 0; | |||
| 51315 | float work = 0; | |||
| 51316 | int lwork = 0; | |||
| 51317 | int info = 0; | |||
| 51318 | static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)}; | |||
| 51319 | ||||
| 51320 | /*routdebugenter*/ | |||
| 51321 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51322 | f2py_start_clock(); | |||
| 51323 | #endif | |||
| 51324 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 51325 | "O|O:_flapack.ssygv_lwork",\ | |||
| 51326 | capi_kwlist,&n_capi,&uplo_capi)) | |||
| 51327 | return NULL((void*)0); | |||
| 51328 | /*frompyobj*/ | |||
| 51329 | /* Processing variable n */ | |||
| 51330 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssygv_lwork() 1st argument (n) can't be converted to int"); | |||
| 51331 | if (f2py_success) { | |||
| 51332 | /* Processing variable uplo */ | |||
| 51333 | slen(uplo)capi_uplo_len = 1; | |||
| 51334 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ssygv_lwork to C string"); | |||
| 51335 | if (f2py_success) { | |||
| 51336 | CHECKSTRING(*uplo=='U' || *uplo=='L',"*uplo=='U' || *uplo=='L'","1st keyword uplo","ssygv_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U' || *uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygv_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U' || *uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 51337 | /* Processing variable itype */ | |||
| 51338 | itype = 1; | |||
| 51339 | /* Processing variable a */ | |||
| 51340 | /* Processing variable b */ | |||
| 51341 | /* Processing variable lwork */ | |||
| 51342 | lwork = -1; | |||
| 51343 | /* Processing variable w */ | |||
| 51344 | /* Processing variable work */ | |||
| 51345 | /* Processing variable info */ | |||
| 51346 | /* Processing variable jobz */ | |||
| 51347 | slen(jobz)capi_jobz_len = 1; | |||
| 51348 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"N",jobz_capi,"string_from_pyobj failed in converting hidden `jobz' of _flapack.ssygv_lwork to C string"); | |||
| 51349 | if (f2py_success) { | |||
| 51350 | /* Processing variable lda */ | |||
| 51351 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 51352 | /* Processing variable ldb */ | |||
| 51353 | ldb = max(1,n)((1 > n) ? (1) : (n)); | |||
| 51354 | /*end of frompyobj*/ | |||
| 51355 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51356 | f2py_start_call_clock(); | |||
| 51357 | #endif | |||
| 51358 | /*callfortranroutine*/ | |||
| 51359 | (*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&info) ; | |||
| 51360 | /*(*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&info,slen(jobz),slen(uplo));*/ | |||
| 51361 | if (PyErr_Occurred()) | |||
| 51362 | f2py_success = 0; | |||
| 51363 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51364 | f2py_stop_call_clock(); | |||
| 51365 | #endif | |||
| 51366 | /*end of callfortranroutine*/ | |||
| 51367 | if (f2py_success) { | |||
| 51368 | /*pyobjfrom*/ | |||
| 51369 | /*end of pyobjfrom*/ | |||
| 51370 | CFUNCSMESS("Building return value.\n"); | |||
| 51371 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 51372 | /*closepyobjfrom*/ | |||
| 51373 | /*end of closepyobjfrom*/ | |||
| 51374 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 51375 | /*cleanupfrompyobj*/ | |||
| 51376 | /* End of cleaning variable ldb */ | |||
| 51377 | /* End of cleaning variable lda */ | |||
| 51378 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 51379 | } /*if (f2py_success) of jobz*/ | |||
| 51380 | /* End of cleaning variable jobz */ | |||
| 51381 | /* End of cleaning variable info */ | |||
| 51382 | /* End of cleaning variable work */ | |||
| 51383 | /* End of cleaning variable w */ | |||
| 51384 | /* End of cleaning variable lwork */ | |||
| 51385 | /* End of cleaning variable b */ | |||
| 51386 | /* End of cleaning variable a */ | |||
| 51387 | /* End of cleaning variable itype */ | |||
| 51388 | } /*CHECKSTRING(*uplo=='U' || *uplo=='L')*/ | |||
| 51389 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 51390 | } /*if (f2py_success) of uplo*/ | |||
| 51391 | /* End of cleaning variable uplo */ | |||
| 51392 | } /*if (f2py_success) of n*/ | |||
| 51393 | /* End of cleaning variable n */ | |||
| 51394 | /*end of cleanupfrompyobj*/ | |||
| 51395 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 51396 | /*routdebugfailure*/ | |||
| 51397 | } else { | |||
| 51398 | /*routdebugleave*/ | |||
| 51399 | } | |||
| 51400 | CFUNCSMESS("Freeing memory.\n"); | |||
| 51401 | /*freemem*/ | |||
| 51402 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51403 | f2py_stop_clock(); | |||
| 51404 | #endif | |||
| 51405 | return capi_buildvalue; | |||
| 51406 | } | |||
| 51407 | /***************************** end of ssygv_lwork *****************************/ | |||
| 51408 | ||||
| 51409 | /******************************** dsygv_lwork ********************************/ | |||
| 51410 | static char doc_f2py_rout__flapack_dsygv_lwork[] = "\ | |||
| 51411 | work,info = dsygv_lwork(n,[uplo])\n\nWrapper for ``dsygv_lwork``.\ | |||
| 51412 | \n\nParameters\n----------\n" | |||
| 51413 | "n : input int\n" | |||
| 51414 | "\nOther Parameters\n----------------\n" | |||
| 51415 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 51416 | "\nReturns\n-------\n" | |||
| 51417 | "work : float\n" | |||
| 51418 | "info : int"; | |||
| 51419 | /* extern void F_FUNC(dsygv ,DSYGV )(F_INT*,char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 51420 | static PyObject *f2py_rout__flapack_dsygv_lwork(const PyObject *capi_self, | |||
| 51421 | PyObject *capi_args, | |||
| 51422 | PyObject *capi_keywds, | |||
| 51423 | void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 51424 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 51425 | volatile int f2py_success = 1; | |||
| 51426 | /*decl*/ | |||
| 51427 | ||||
| 51428 | int itype = 0; | |||
| 51429 | string jobz = NULL((void*)0); | |||
| 51430 | int slen(jobz)capi_jobz_len; | |||
| 51431 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 51432 | string uplo = NULL((void*)0); | |||
| 51433 | int slen(uplo)capi_uplo_len; | |||
| 51434 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 51435 | int n = 0; | |||
| 51436 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 51437 | double a = 0; | |||
| 51438 | int lda = 0; | |||
| 51439 | double b = 0; | |||
| 51440 | int ldb = 0; | |||
| 51441 | double w = 0; | |||
| 51442 | double work = 0; | |||
| 51443 | int lwork = 0; | |||
| 51444 | int info = 0; | |||
| 51445 | static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)}; | |||
| 51446 | ||||
| 51447 | /*routdebugenter*/ | |||
| 51448 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51449 | f2py_start_clock(); | |||
| 51450 | #endif | |||
| 51451 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 51452 | "O|O:_flapack.dsygv_lwork",\ | |||
| 51453 | capi_kwlist,&n_capi,&uplo_capi)) | |||
| 51454 | return NULL((void*)0); | |||
| 51455 | /*frompyobj*/ | |||
| 51456 | /* Processing variable n */ | |||
| 51457 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsygv_lwork() 1st argument (n) can't be converted to int"); | |||
| 51458 | if (f2py_success) { | |||
| 51459 | /* Processing variable uplo */ | |||
| 51460 | slen(uplo)capi_uplo_len = 1; | |||
| 51461 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.dsygv_lwork to C string"); | |||
| 51462 | if (f2py_success) { | |||
| 51463 | CHECKSTRING(*uplo=='U' || *uplo=='L',"*uplo=='U' || *uplo=='L'","1st keyword uplo","dsygv_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U' || *uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygv_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U' || *uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 51464 | /* Processing variable itype */ | |||
| 51465 | itype = 1; | |||
| 51466 | /* Processing variable a */ | |||
| 51467 | /* Processing variable b */ | |||
| 51468 | /* Processing variable lwork */ | |||
| 51469 | lwork = -1; | |||
| 51470 | /* Processing variable w */ | |||
| 51471 | /* Processing variable work */ | |||
| 51472 | /* Processing variable info */ | |||
| 51473 | /* Processing variable jobz */ | |||
| 51474 | slen(jobz)capi_jobz_len = 1; | |||
| 51475 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"N",jobz_capi,"string_from_pyobj failed in converting hidden `jobz' of _flapack.dsygv_lwork to C string"); | |||
| 51476 | if (f2py_success) { | |||
| 51477 | /* Processing variable lda */ | |||
| 51478 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 51479 | /* Processing variable ldb */ | |||
| 51480 | ldb = max(1,n)((1 > n) ? (1) : (n)); | |||
| 51481 | /*end of frompyobj*/ | |||
| 51482 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51483 | f2py_start_call_clock(); | |||
| 51484 | #endif | |||
| 51485 | /*callfortranroutine*/ | |||
| 51486 | (*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&info) ; | |||
| 51487 | /*(*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&info,slen(jobz),slen(uplo));*/ | |||
| 51488 | if (PyErr_Occurred()) | |||
| 51489 | f2py_success = 0; | |||
| 51490 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51491 | f2py_stop_call_clock(); | |||
| 51492 | #endif | |||
| 51493 | /*end of callfortranroutine*/ | |||
| 51494 | if (f2py_success) { | |||
| 51495 | /*pyobjfrom*/ | |||
| 51496 | /*end of pyobjfrom*/ | |||
| 51497 | CFUNCSMESS("Building return value.\n"); | |||
| 51498 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 51499 | /*closepyobjfrom*/ | |||
| 51500 | /*end of closepyobjfrom*/ | |||
| 51501 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 51502 | /*cleanupfrompyobj*/ | |||
| 51503 | /* End of cleaning variable ldb */ | |||
| 51504 | /* End of cleaning variable lda */ | |||
| 51505 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 51506 | } /*if (f2py_success) of jobz*/ | |||
| 51507 | /* End of cleaning variable jobz */ | |||
| 51508 | /* End of cleaning variable info */ | |||
| 51509 | /* End of cleaning variable work */ | |||
| 51510 | /* End of cleaning variable w */ | |||
| 51511 | /* End of cleaning variable lwork */ | |||
| 51512 | /* End of cleaning variable b */ | |||
| 51513 | /* End of cleaning variable a */ | |||
| 51514 | /* End of cleaning variable itype */ | |||
| 51515 | } /*CHECKSTRING(*uplo=='U' || *uplo=='L')*/ | |||
| 51516 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 51517 | } /*if (f2py_success) of uplo*/ | |||
| 51518 | /* End of cleaning variable uplo */ | |||
| 51519 | } /*if (f2py_success) of n*/ | |||
| 51520 | /* End of cleaning variable n */ | |||
| 51521 | /*end of cleanupfrompyobj*/ | |||
| 51522 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 51523 | /*routdebugfailure*/ | |||
| 51524 | } else { | |||
| 51525 | /*routdebugleave*/ | |||
| 51526 | } | |||
| 51527 | CFUNCSMESS("Freeing memory.\n"); | |||
| 51528 | /*freemem*/ | |||
| 51529 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51530 | f2py_stop_clock(); | |||
| 51531 | #endif | |||
| 51532 | return capi_buildvalue; | |||
| 51533 | } | |||
| 51534 | /***************************** end of dsygv_lwork *****************************/ | |||
| 51535 | ||||
| 51536 | /*********************************** chegv ***********************************/ | |||
| 51537 | static char doc_f2py_rout__flapack_chegv[] = "\ | |||
| 51538 | w,v,info = chegv(a,b,[itype,jobz,uplo,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``chegv``.\ | |||
| 51539 | \n\nParameters\n----------\n" | |||
| 51540 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 51541 | "b : input rank-2 array('F') with bounds (n,n)\n" | |||
| 51542 | "\nOther Parameters\n----------------\n" | |||
| 51543 | "itype : input int, optional\n Default: 1\n" | |||
| 51544 | "jobz : input string(len=1), optional\n Default: 'V'\n" | |||
| 51545 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 51546 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 51547 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 51548 | "lwork : input int, optional\n Default: max(2*n-1,1)\n" | |||
| 51549 | "\nReturns\n-------\n" | |||
| 51550 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 51551 | "v : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 51552 | "info : int"; | |||
| 51553 | /* extern void F_FUNC(chegv,CHEGV)(F_INT*,char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 51554 | static PyObject *f2py_rout__flapack_chegv(const PyObject *capi_self, | |||
| 51555 | PyObject *capi_args, | |||
| 51556 | PyObject *capi_keywds, | |||
| 51557 | void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 51558 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 51559 | volatile int f2py_success = 1; | |||
| 51560 | /*decl*/ | |||
| 51561 | ||||
| 51562 | int itype = 0; | |||
| 51563 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 51564 | string jobz = NULL((void*)0); | |||
| 51565 | int slen(jobz)capi_jobz_len; | |||
| 51566 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 51567 | string uplo = NULL((void*)0); | |||
| 51568 | int slen(uplo)capi_uplo_len; | |||
| 51569 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 51570 | int n = 0; | |||
| 51571 | int lda = 0; | |||
| 51572 | int ldb = 0; | |||
| 51573 | float *w = NULL((void*)0); | |||
| 51574 | npy_intp w_Dims[1] = {-1}; | |||
| 51575 | const int w_Rank = 1; | |||
| 51576 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 51577 | int capi_w_intent = 0; | |||
| 51578 | complex_float *a = NULL((void*)0); | |||
| 51579 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 51580 | const int a_Rank = 2; | |||
| 51581 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 51582 | int capi_a_intent = 0; | |||
| 51583 | int capi_overwrite_a = 0; | |||
| 51584 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 51585 | complex_float *b = NULL((void*)0); | |||
| 51586 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 51587 | const int b_Rank = 2; | |||
| 51588 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 51589 | int capi_b_intent = 0; | |||
| 51590 | int capi_overwrite_b = 0; | |||
| 51591 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 51592 | complex_float *work = NULL((void*)0); | |||
| 51593 | npy_intp work_Dims[1] = {-1}; | |||
| 51594 | const int work_Rank = 1; | |||
| 51595 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 51596 | int capi_work_intent = 0; | |||
| 51597 | int lwork = 0; | |||
| 51598 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 51599 | float *rwork = NULL((void*)0); | |||
| 51600 | npy_intp rwork_Dims[1] = {-1}; | |||
| 51601 | const int rwork_Rank = 1; | |||
| 51602 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 51603 | int capi_rwork_intent = 0; | |||
| 51604 | int info = 0; | |||
| 51605 | static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 51606 | ||||
| 51607 | /*routdebugenter*/ | |||
| 51608 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51609 | f2py_start_clock(); | |||
| 51610 | #endif | |||
| 51611 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 51612 | "OO|OOOOii:_flapack.chegv",\ | |||
| 51613 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 51614 | return NULL((void*)0); | |||
| 51615 | /*frompyobj*/ | |||
| 51616 | /* Processing variable a */ | |||
| 51617 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 51618 | ; | |||
| 51619 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 51620 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 51621 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 51622 | if (!PyErr_Occurred()) | |||
| 51623 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chegv to C/Fortran array" ); | |||
| 51624 | } else { | |||
| 51625 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 51626 | ||||
| 51627 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 51628 | /* Processing variable itype */ | |||
| 51629 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 51630 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.chegv() 1st keyword (itype) can't be converted to int"); | |||
| 51631 | if (f2py_success) { | |||
| 51632 | CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","chegv:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegv:itype=%d", "(""itype > 0 || itype < 4"") failed for " "1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 51633 | /* Processing variable jobz */ | |||
| 51634 | slen(jobz)capi_jobz_len = 1; | |||
| 51635 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.chegv to C string"); | |||
| 51636 | if (f2py_success) { | |||
| 51637 | CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","chegv:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegv:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'" ") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 51638 | /* Processing variable uplo */ | |||
| 51639 | slen(uplo)capi_uplo_len = 1; | |||
| 51640 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.chegv to C string"); | |||
| 51641 | if (f2py_success) { | |||
| 51642 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","chegv:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegv:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 51643 | /* Processing variable info */ | |||
| 51644 | /* Processing variable n */ | |||
| 51645 | n = shape(a,0)a_Dims[0]; | |||
| 51646 | /* Processing variable lda */ | |||
| 51647 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 51648 | /* Processing variable rwork */ | |||
| 51649 | rwork_Dims[0]=MAX(1,3*n-2)((1 > 3*n-2) ? (1) : (3*n-2)); | |||
| 51650 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 51651 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 51652 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 51653 | if (!PyErr_Occurred()) | |||
| 51654 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.chegv to C/Fortran array" ); | |||
| 51655 | } else { | |||
| 51656 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 51657 | ||||
| 51658 | /* Processing variable w */ | |||
| 51659 | w_Dims[0]=n; | |||
| 51660 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 51661 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 51662 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 51663 | if (!PyErr_Occurred()) | |||
| 51664 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.chegv to C/Fortran array" ); | |||
| 51665 | } else { | |||
| 51666 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 51667 | ||||
| 51668 | /* Processing variable b */ | |||
| 51669 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 51670 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 51671 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 51672 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 51673 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 51674 | if (!PyErr_Occurred()) | |||
| 51675 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.chegv to C/Fortran array" ); | |||
| 51676 | } else { | |||
| 51677 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 51678 | ||||
| 51679 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 51680 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 51681 | /* Processing variable lwork */ | |||
| 51682 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n-1,1)((2*n-1 > 1) ? (2*n-1) : (1)); else | |||
| 51683 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chegv() 4th keyword (lwork) can't be converted to int"); | |||
| 51684 | if (f2py_success) { | |||
| 51685 | CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","chegv:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegv:lwork=%d", "(""lwork>0||lwork==-1"") failed for " "4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 51686 | /* Processing variable ldb */ | |||
| 51687 | ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 51688 | /* Processing variable work */ | |||
| 51689 | work_Dims[0]=lwork; | |||
| 51690 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 51691 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 51692 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 51693 | if (!PyErr_Occurred()) | |||
| 51694 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chegv to C/Fortran array" ); | |||
| 51695 | } else { | |||
| 51696 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 51697 | ||||
| 51698 | /*end of frompyobj*/ | |||
| 51699 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51700 | f2py_start_call_clock(); | |||
| 51701 | #endif | |||
| 51702 | /*callfortranroutine*/ | |||
| 51703 | (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,rwork,&info) ; | |||
| 51704 | /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,rwork,&info,slen(jobz),slen(uplo));*/ | |||
| 51705 | if (PyErr_Occurred()) | |||
| 51706 | f2py_success = 0; | |||
| 51707 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51708 | f2py_stop_call_clock(); | |||
| 51709 | #endif | |||
| 51710 | /*end of callfortranroutine*/ | |||
| 51711 | if (f2py_success) { | |||
| 51712 | /*pyobjfrom*/ | |||
| 51713 | /*end of pyobjfrom*/ | |||
| 51714 | CFUNCSMESS("Building return value.\n"); | |||
| 51715 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 51716 | /*closepyobjfrom*/ | |||
| 51717 | /*end of closepyobjfrom*/ | |||
| 51718 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 51719 | /*cleanupfrompyobj*/ | |||
| 51720 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 51721 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 51722 | /* End of cleaning variable work */ | |||
| 51723 | /* End of cleaning variable ldb */ | |||
| 51724 | } /*CHECKSCALAR(lwork>0||lwork==-1)*/ | |||
| 51725 | } /*if (f2py_success) of lwork*/ | |||
| 51726 | /* End of cleaning variable lwork */ | |||
| 51727 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 51728 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 51729 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 51730 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 51731 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 51732 | /* End of cleaning variable b */ | |||
| 51733 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 51734 | /* End of cleaning variable w */ | |||
| 51735 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 51736 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 51737 | /* End of cleaning variable rwork */ | |||
| 51738 | /* End of cleaning variable lda */ | |||
| 51739 | /* End of cleaning variable n */ | |||
| 51740 | /* End of cleaning variable info */ | |||
| 51741 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 51742 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 51743 | } /*if (f2py_success) of uplo*/ | |||
| 51744 | /* End of cleaning variable uplo */ | |||
| 51745 | } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/ | |||
| 51746 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 51747 | } /*if (f2py_success) of jobz*/ | |||
| 51748 | /* End of cleaning variable jobz */ | |||
| 51749 | } /*CHECKSCALAR(itype > 0 || itype < 4)*/ | |||
| 51750 | } /*if (f2py_success) of itype*/ | |||
| 51751 | /* End of cleaning variable itype */ | |||
| 51752 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 51753 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 51754 | /* End of cleaning variable a */ | |||
| 51755 | /*end of cleanupfrompyobj*/ | |||
| 51756 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 51757 | /*routdebugfailure*/ | |||
| 51758 | } else { | |||
| 51759 | /*routdebugleave*/ | |||
| 51760 | } | |||
| 51761 | CFUNCSMESS("Freeing memory.\n"); | |||
| 51762 | /*freemem*/ | |||
| 51763 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51764 | f2py_stop_clock(); | |||
| 51765 | #endif | |||
| 51766 | return capi_buildvalue; | |||
| 51767 | } | |||
| 51768 | /******************************** end of chegv ********************************/ | |||
| 51769 | ||||
| 51770 | /*********************************** zhegv ***********************************/ | |||
| 51771 | static char doc_f2py_rout__flapack_zhegv[] = "\ | |||
| 51772 | w,v,info = zhegv(a,b,[itype,jobz,uplo,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``zhegv``.\ | |||
| 51773 | \n\nParameters\n----------\n" | |||
| 51774 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 51775 | "b : input rank-2 array('D') with bounds (n,n)\n" | |||
| 51776 | "\nOther Parameters\n----------------\n" | |||
| 51777 | "itype : input int, optional\n Default: 1\n" | |||
| 51778 | "jobz : input string(len=1), optional\n Default: 'V'\n" | |||
| 51779 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 51780 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 51781 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 51782 | "lwork : input int, optional\n Default: max(2*n-1,1)\n" | |||
| 51783 | "\nReturns\n-------\n" | |||
| 51784 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 51785 | "v : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 51786 | "info : int"; | |||
| 51787 | /* extern void F_FUNC(zhegv,ZHEGV)(F_INT*,char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 51788 | static PyObject *f2py_rout__flapack_zhegv(const PyObject *capi_self, | |||
| 51789 | PyObject *capi_args, | |||
| 51790 | PyObject *capi_keywds, | |||
| 51791 | void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 51792 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 51793 | volatile int f2py_success = 1; | |||
| 51794 | /*decl*/ | |||
| 51795 | ||||
| 51796 | int itype = 0; | |||
| 51797 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 51798 | string jobz = NULL((void*)0); | |||
| 51799 | int slen(jobz)capi_jobz_len; | |||
| 51800 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 51801 | string uplo = NULL((void*)0); | |||
| 51802 | int slen(uplo)capi_uplo_len; | |||
| 51803 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 51804 | int n = 0; | |||
| 51805 | int lda = 0; | |||
| 51806 | int ldb = 0; | |||
| 51807 | double *w = NULL((void*)0); | |||
| 51808 | npy_intp w_Dims[1] = {-1}; | |||
| 51809 | const int w_Rank = 1; | |||
| 51810 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 51811 | int capi_w_intent = 0; | |||
| 51812 | complex_double *a = NULL((void*)0); | |||
| 51813 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 51814 | const int a_Rank = 2; | |||
| 51815 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 51816 | int capi_a_intent = 0; | |||
| 51817 | int capi_overwrite_a = 0; | |||
| 51818 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 51819 | complex_double *b = NULL((void*)0); | |||
| 51820 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 51821 | const int b_Rank = 2; | |||
| 51822 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 51823 | int capi_b_intent = 0; | |||
| 51824 | int capi_overwrite_b = 0; | |||
| 51825 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 51826 | complex_double *work = NULL((void*)0); | |||
| 51827 | npy_intp work_Dims[1] = {-1}; | |||
| 51828 | const int work_Rank = 1; | |||
| 51829 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 51830 | int capi_work_intent = 0; | |||
| 51831 | int lwork = 0; | |||
| 51832 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 51833 | double *rwork = NULL((void*)0); | |||
| 51834 | npy_intp rwork_Dims[1] = {-1}; | |||
| 51835 | const int rwork_Rank = 1; | |||
| 51836 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 51837 | int capi_rwork_intent = 0; | |||
| 51838 | int info = 0; | |||
| 51839 | static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 51840 | ||||
| 51841 | /*routdebugenter*/ | |||
| 51842 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51843 | f2py_start_clock(); | |||
| 51844 | #endif | |||
| 51845 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 51846 | "OO|OOOOii:_flapack.zhegv",\ | |||
| 51847 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 51848 | return NULL((void*)0); | |||
| 51849 | /*frompyobj*/ | |||
| 51850 | /* Processing variable a */ | |||
| 51851 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 51852 | ; | |||
| 51853 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 51854 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 51855 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 51856 | if (!PyErr_Occurred()) | |||
| 51857 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhegv to C/Fortran array" ); | |||
| 51858 | } else { | |||
| 51859 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 51860 | ||||
| 51861 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 51862 | /* Processing variable itype */ | |||
| 51863 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 51864 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.zhegv() 1st keyword (itype) can't be converted to int"); | |||
| 51865 | if (f2py_success) { | |||
| 51866 | CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","zhegv:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegv:itype=%d", "(""itype > 0 || itype < 4"") failed for " "1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 51867 | /* Processing variable jobz */ | |||
| 51868 | slen(jobz)capi_jobz_len = 1; | |||
| 51869 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.zhegv to C string"); | |||
| 51870 | if (f2py_success) { | |||
| 51871 | CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","zhegv:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegv:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'" ") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 51872 | /* Processing variable uplo */ | |||
| 51873 | slen(uplo)capi_uplo_len = 1; | |||
| 51874 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.zhegv to C string"); | |||
| 51875 | if (f2py_success) { | |||
| 51876 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","zhegv:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegv:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 51877 | /* Processing variable info */ | |||
| 51878 | /* Processing variable n */ | |||
| 51879 | n = shape(a,0)a_Dims[0]; | |||
| 51880 | /* Processing variable lda */ | |||
| 51881 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 51882 | /* Processing variable rwork */ | |||
| 51883 | rwork_Dims[0]=MAX(1,3*n-2)((1 > 3*n-2) ? (1) : (3*n-2)); | |||
| 51884 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 51885 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 51886 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 51887 | if (!PyErr_Occurred()) | |||
| 51888 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zhegv to C/Fortran array" ); | |||
| 51889 | } else { | |||
| 51890 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 51891 | ||||
| 51892 | /* Processing variable w */ | |||
| 51893 | w_Dims[0]=n; | |||
| 51894 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 51895 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 51896 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 51897 | if (!PyErr_Occurred()) | |||
| 51898 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zhegv to C/Fortran array" ); | |||
| 51899 | } else { | |||
| 51900 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 51901 | ||||
| 51902 | /* Processing variable b */ | |||
| 51903 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 51904 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 51905 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 51906 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 51907 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 51908 | if (!PyErr_Occurred()) | |||
| 51909 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zhegv to C/Fortran array" ); | |||
| 51910 | } else { | |||
| 51911 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 51912 | ||||
| 51913 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 51914 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 51915 | /* Processing variable lwork */ | |||
| 51916 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n-1,1)((2*n-1 > 1) ? (2*n-1) : (1)); else | |||
| 51917 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhegv() 4th keyword (lwork) can't be converted to int"); | |||
| 51918 | if (f2py_success) { | |||
| 51919 | CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","zhegv:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegv:lwork=%d", "(""lwork>0||lwork==-1"") failed for " "4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 51920 | /* Processing variable ldb */ | |||
| 51921 | ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 51922 | /* Processing variable work */ | |||
| 51923 | work_Dims[0]=lwork; | |||
| 51924 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 51925 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 51926 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 51927 | if (!PyErr_Occurred()) | |||
| 51928 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhegv to C/Fortran array" ); | |||
| 51929 | } else { | |||
| 51930 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 51931 | ||||
| 51932 | /*end of frompyobj*/ | |||
| 51933 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51934 | f2py_start_call_clock(); | |||
| 51935 | #endif | |||
| 51936 | /*callfortranroutine*/ | |||
| 51937 | (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,rwork,&info) ; | |||
| 51938 | /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,rwork,&info,slen(jobz),slen(uplo));*/ | |||
| 51939 | if (PyErr_Occurred()) | |||
| 51940 | f2py_success = 0; | |||
| 51941 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51942 | f2py_stop_call_clock(); | |||
| 51943 | #endif | |||
| 51944 | /*end of callfortranroutine*/ | |||
| 51945 | if (f2py_success) { | |||
| 51946 | /*pyobjfrom*/ | |||
| 51947 | /*end of pyobjfrom*/ | |||
| 51948 | CFUNCSMESS("Building return value.\n"); | |||
| 51949 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 51950 | /*closepyobjfrom*/ | |||
| 51951 | /*end of closepyobjfrom*/ | |||
| 51952 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 51953 | /*cleanupfrompyobj*/ | |||
| 51954 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 51955 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 51956 | /* End of cleaning variable work */ | |||
| 51957 | /* End of cleaning variable ldb */ | |||
| 51958 | } /*CHECKSCALAR(lwork>0||lwork==-1)*/ | |||
| 51959 | } /*if (f2py_success) of lwork*/ | |||
| 51960 | /* End of cleaning variable lwork */ | |||
| 51961 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 51962 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 51963 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 51964 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 51965 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 51966 | /* End of cleaning variable b */ | |||
| 51967 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 51968 | /* End of cleaning variable w */ | |||
| 51969 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 51970 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 51971 | /* End of cleaning variable rwork */ | |||
| 51972 | /* End of cleaning variable lda */ | |||
| 51973 | /* End of cleaning variable n */ | |||
| 51974 | /* End of cleaning variable info */ | |||
| 51975 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 51976 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 51977 | } /*if (f2py_success) of uplo*/ | |||
| 51978 | /* End of cleaning variable uplo */ | |||
| 51979 | } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/ | |||
| 51980 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 51981 | } /*if (f2py_success) of jobz*/ | |||
| 51982 | /* End of cleaning variable jobz */ | |||
| 51983 | } /*CHECKSCALAR(itype > 0 || itype < 4)*/ | |||
| 51984 | } /*if (f2py_success) of itype*/ | |||
| 51985 | /* End of cleaning variable itype */ | |||
| 51986 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 51987 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 51988 | /* End of cleaning variable a */ | |||
| 51989 | /*end of cleanupfrompyobj*/ | |||
| 51990 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 51991 | /*routdebugfailure*/ | |||
| 51992 | } else { | |||
| 51993 | /*routdebugleave*/ | |||
| 51994 | } | |||
| 51995 | CFUNCSMESS("Freeing memory.\n"); | |||
| 51996 | /*freemem*/ | |||
| 51997 | #ifdef F2PY_REPORT_ATEXIT | |||
| 51998 | f2py_stop_clock(); | |||
| 51999 | #endif | |||
| 52000 | return capi_buildvalue; | |||
| 52001 | } | |||
| 52002 | /******************************** end of zhegv ********************************/ | |||
| 52003 | ||||
| 52004 | /******************************** chegv_lwork ********************************/ | |||
| 52005 | static char doc_f2py_rout__flapack_chegv_lwork[] = "\ | |||
| 52006 | work,info = chegv_lwork(n,[uplo])\n\nWrapper for ``chegv_lwork``.\ | |||
| 52007 | \n\nParameters\n----------\n" | |||
| 52008 | "n : input int\n" | |||
| 52009 | "\nOther Parameters\n----------------\n" | |||
| 52010 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 52011 | "\nReturns\n-------\n" | |||
| 52012 | "work : complex\n" | |||
| 52013 | "info : int"; | |||
| 52014 | /* extern void F_FUNC(chegv ,CHEGV )(F_INT*,char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 52015 | static PyObject *f2py_rout__flapack_chegv_lwork(const PyObject *capi_self, | |||
| 52016 | PyObject *capi_args, | |||
| 52017 | PyObject *capi_keywds, | |||
| 52018 | void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 52019 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 52020 | volatile int f2py_success = 1; | |||
| 52021 | /*decl*/ | |||
| 52022 | ||||
| 52023 | int itype = 0; | |||
| 52024 | string jobz = NULL((void*)0); | |||
| 52025 | int slen(jobz)capi_jobz_len; | |||
| 52026 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 52027 | string uplo = NULL((void*)0); | |||
| 52028 | int slen(uplo)capi_uplo_len; | |||
| 52029 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 52030 | int n = 0; | |||
| 52031 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 52032 | complex_float a; | |||
| 52033 | int lda = 0; | |||
| 52034 | complex_float b; | |||
| 52035 | int ldb = 0; | |||
| 52036 | float w = 0; | |||
| 52037 | complex_float work; | |||
| 52038 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 52039 | int lwork = 0; | |||
| 52040 | float rwork = 0; | |||
| 52041 | int info = 0; | |||
| 52042 | static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)}; | |||
| 52043 | ||||
| 52044 | /*routdebugenter*/ | |||
| 52045 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52046 | f2py_start_clock(); | |||
| 52047 | #endif | |||
| 52048 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 52049 | "O|O:_flapack.chegv_lwork",\ | |||
| 52050 | capi_kwlist,&n_capi,&uplo_capi)) | |||
| 52051 | return NULL((void*)0); | |||
| 52052 | /*frompyobj*/ | |||
| 52053 | /* Processing variable n */ | |||
| 52054 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chegv_lwork() 1st argument (n) can't be converted to int"); | |||
| 52055 | if (f2py_success) { | |||
| 52056 | /* Processing variable uplo */ | |||
| 52057 | slen(uplo)capi_uplo_len = 1; | |||
| 52058 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.chegv_lwork to C string"); | |||
| 52059 | if (f2py_success) { | |||
| 52060 | CHECKSTRING(*uplo=='U' || *uplo=='L',"*uplo=='U' || *uplo=='L'","1st keyword uplo","chegv_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U' || *uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegv_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U' || *uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 52061 | /* Processing variable itype */ | |||
| 52062 | itype = 1; | |||
| 52063 | /* Processing variable a */ | |||
| 52064 | /* Processing variable b */ | |||
| 52065 | /* Processing variable lwork */ | |||
| 52066 | lwork = -1; | |||
| 52067 | /* Processing variable w */ | |||
| 52068 | /* Processing variable rwork */ | |||
| 52069 | /* Processing variable work */ | |||
| 52070 | /* Processing variable info */ | |||
| 52071 | /* Processing variable jobz */ | |||
| 52072 | slen(jobz)capi_jobz_len = 1; | |||
| 52073 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"N",jobz_capi,"string_from_pyobj failed in converting hidden `jobz' of _flapack.chegv_lwork to C string"); | |||
| 52074 | if (f2py_success) { | |||
| 52075 | /* Processing variable lda */ | |||
| 52076 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 52077 | /* Processing variable ldb */ | |||
| 52078 | ldb = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 52079 | /*end of frompyobj*/ | |||
| 52080 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52081 | f2py_start_call_clock(); | |||
| 52082 | #endif | |||
| 52083 | /*callfortranroutine*/ | |||
| 52084 | (*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&rwork,&info) ; | |||
| 52085 | /*(*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&rwork,&info,slen(jobz),slen(uplo));*/ | |||
| 52086 | if (PyErr_Occurred()) | |||
| 52087 | f2py_success = 0; | |||
| 52088 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52089 | f2py_stop_call_clock(); | |||
| 52090 | #endif | |||
| 52091 | /*end of callfortranroutine*/ | |||
| 52092 | if (f2py_success) { | |||
| 52093 | /*pyobjfrom*/ | |||
| 52094 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 52095 | /*end of pyobjfrom*/ | |||
| 52096 | CFUNCSMESS("Building return value.\n"); | |||
| 52097 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 52098 | /*closepyobjfrom*/ | |||
| 52099 | /*end of closepyobjfrom*/ | |||
| 52100 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 52101 | /*cleanupfrompyobj*/ | |||
| 52102 | /* End of cleaning variable ldb */ | |||
| 52103 | /* End of cleaning variable lda */ | |||
| 52104 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 52105 | } /*if (f2py_success) of jobz*/ | |||
| 52106 | /* End of cleaning variable jobz */ | |||
| 52107 | /* End of cleaning variable info */ | |||
| 52108 | /* End of cleaning variable work */ | |||
| 52109 | /* End of cleaning variable rwork */ | |||
| 52110 | /* End of cleaning variable w */ | |||
| 52111 | /* End of cleaning variable lwork */ | |||
| 52112 | /* End of cleaning variable b */ | |||
| 52113 | /* End of cleaning variable a */ | |||
| 52114 | /* End of cleaning variable itype */ | |||
| 52115 | } /*CHECKSTRING(*uplo=='U' || *uplo=='L')*/ | |||
| 52116 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 52117 | } /*if (f2py_success) of uplo*/ | |||
| 52118 | /* End of cleaning variable uplo */ | |||
| 52119 | } /*if (f2py_success) of n*/ | |||
| 52120 | /* End of cleaning variable n */ | |||
| 52121 | /*end of cleanupfrompyobj*/ | |||
| 52122 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 52123 | /*routdebugfailure*/ | |||
| 52124 | } else { | |||
| 52125 | /*routdebugleave*/ | |||
| 52126 | } | |||
| 52127 | CFUNCSMESS("Freeing memory.\n"); | |||
| 52128 | /*freemem*/ | |||
| 52129 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52130 | f2py_stop_clock(); | |||
| 52131 | #endif | |||
| 52132 | return capi_buildvalue; | |||
| 52133 | } | |||
| 52134 | /***************************** end of chegv_lwork *****************************/ | |||
| 52135 | ||||
| 52136 | /******************************** zhegv_lwork ********************************/ | |||
| 52137 | static char doc_f2py_rout__flapack_zhegv_lwork[] = "\ | |||
| 52138 | work,info = zhegv_lwork(n,[uplo])\n\nWrapper for ``zhegv_lwork``.\ | |||
| 52139 | \n\nParameters\n----------\n" | |||
| 52140 | "n : input int\n" | |||
| 52141 | "\nOther Parameters\n----------------\n" | |||
| 52142 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 52143 | "\nReturns\n-------\n" | |||
| 52144 | "work : complex\n" | |||
| 52145 | "info : int"; | |||
| 52146 | /* extern void F_FUNC(zhegv ,ZHEGV )(F_INT*,char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 52147 | static PyObject *f2py_rout__flapack_zhegv_lwork(const PyObject *capi_self, | |||
| 52148 | PyObject *capi_args, | |||
| 52149 | PyObject *capi_keywds, | |||
| 52150 | void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 52151 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 52152 | volatile int f2py_success = 1; | |||
| 52153 | /*decl*/ | |||
| 52154 | ||||
| 52155 | int itype = 0; | |||
| 52156 | string jobz = NULL((void*)0); | |||
| 52157 | int slen(jobz)capi_jobz_len; | |||
| 52158 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 52159 | string uplo = NULL((void*)0); | |||
| 52160 | int slen(uplo)capi_uplo_len; | |||
| 52161 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 52162 | int n = 0; | |||
| 52163 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 52164 | complex_double a; | |||
| 52165 | int lda = 0; | |||
| 52166 | complex_double b; | |||
| 52167 | int ldb = 0; | |||
| 52168 | double w = 0; | |||
| 52169 | complex_double work; | |||
| 52170 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 52171 | int lwork = 0; | |||
| 52172 | double rwork = 0; | |||
| 52173 | int info = 0; | |||
| 52174 | static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)}; | |||
| 52175 | ||||
| 52176 | /*routdebugenter*/ | |||
| 52177 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52178 | f2py_start_clock(); | |||
| 52179 | #endif | |||
| 52180 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 52181 | "O|O:_flapack.zhegv_lwork",\ | |||
| 52182 | capi_kwlist,&n_capi,&uplo_capi)) | |||
| 52183 | return NULL((void*)0); | |||
| 52184 | /*frompyobj*/ | |||
| 52185 | /* Processing variable n */ | |||
| 52186 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhegv_lwork() 1st argument (n) can't be converted to int"); | |||
| 52187 | if (f2py_success) { | |||
| 52188 | /* Processing variable uplo */ | |||
| 52189 | slen(uplo)capi_uplo_len = 1; | |||
| 52190 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.zhegv_lwork to C string"); | |||
| 52191 | if (f2py_success) { | |||
| 52192 | CHECKSTRING(*uplo=='U' || *uplo=='L',"*uplo=='U' || *uplo=='L'","1st keyword uplo","zhegv_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U' || *uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegv_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U' || *uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 52193 | /* Processing variable itype */ | |||
| 52194 | itype = 1; | |||
| 52195 | /* Processing variable a */ | |||
| 52196 | /* Processing variable b */ | |||
| 52197 | /* Processing variable lwork */ | |||
| 52198 | lwork = -1; | |||
| 52199 | /* Processing variable w */ | |||
| 52200 | /* Processing variable rwork */ | |||
| 52201 | /* Processing variable work */ | |||
| 52202 | /* Processing variable info */ | |||
| 52203 | /* Processing variable jobz */ | |||
| 52204 | slen(jobz)capi_jobz_len = 1; | |||
| 52205 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"N",jobz_capi,"string_from_pyobj failed in converting hidden `jobz' of _flapack.zhegv_lwork to C string"); | |||
| 52206 | if (f2py_success) { | |||
| 52207 | /* Processing variable lda */ | |||
| 52208 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 52209 | /* Processing variable ldb */ | |||
| 52210 | ldb = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 52211 | /*end of frompyobj*/ | |||
| 52212 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52213 | f2py_start_call_clock(); | |||
| 52214 | #endif | |||
| 52215 | /*callfortranroutine*/ | |||
| 52216 | (*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&rwork,&info) ; | |||
| 52217 | /*(*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&rwork,&info,slen(jobz),slen(uplo));*/ | |||
| 52218 | if (PyErr_Occurred()) | |||
| 52219 | f2py_success = 0; | |||
| 52220 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52221 | f2py_stop_call_clock(); | |||
| 52222 | #endif | |||
| 52223 | /*end of callfortranroutine*/ | |||
| 52224 | if (f2py_success) { | |||
| 52225 | /*pyobjfrom*/ | |||
| 52226 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 52227 | /*end of pyobjfrom*/ | |||
| 52228 | CFUNCSMESS("Building return value.\n"); | |||
| 52229 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 52230 | /*closepyobjfrom*/ | |||
| 52231 | /*end of closepyobjfrom*/ | |||
| 52232 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 52233 | /*cleanupfrompyobj*/ | |||
| 52234 | /* End of cleaning variable ldb */ | |||
| 52235 | /* End of cleaning variable lda */ | |||
| 52236 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 52237 | } /*if (f2py_success) of jobz*/ | |||
| 52238 | /* End of cleaning variable jobz */ | |||
| 52239 | /* End of cleaning variable info */ | |||
| 52240 | /* End of cleaning variable work */ | |||
| 52241 | /* End of cleaning variable rwork */ | |||
| 52242 | /* End of cleaning variable w */ | |||
| 52243 | /* End of cleaning variable lwork */ | |||
| 52244 | /* End of cleaning variable b */ | |||
| 52245 | /* End of cleaning variable a */ | |||
| 52246 | /* End of cleaning variable itype */ | |||
| 52247 | } /*CHECKSTRING(*uplo=='U' || *uplo=='L')*/ | |||
| 52248 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 52249 | } /*if (f2py_success) of uplo*/ | |||
| 52250 | /* End of cleaning variable uplo */ | |||
| 52251 | } /*if (f2py_success) of n*/ | |||
| 52252 | /* End of cleaning variable n */ | |||
| 52253 | /*end of cleanupfrompyobj*/ | |||
| 52254 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 52255 | /*routdebugfailure*/ | |||
| 52256 | } else { | |||
| 52257 | /*routdebugleave*/ | |||
| 52258 | } | |||
| 52259 | CFUNCSMESS("Freeing memory.\n"); | |||
| 52260 | /*freemem*/ | |||
| 52261 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52262 | f2py_stop_clock(); | |||
| 52263 | #endif | |||
| 52264 | return capi_buildvalue; | |||
| 52265 | } | |||
| 52266 | /***************************** end of zhegv_lwork *****************************/ | |||
| 52267 | ||||
| 52268 | /*********************************** ssygvd ***********************************/ | |||
| 52269 | static char doc_f2py_rout__flapack_ssygvd[] = "\ | |||
| 52270 | w,v,info = ssygvd(a,b,[itype,jobz,uplo,lwork,liwork,overwrite_a,overwrite_b])\n\nWrapper for ``ssygvd``.\ | |||
| 52271 | \n\nParameters\n----------\n" | |||
| 52272 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 52273 | "b : input rank-2 array('f') with bounds (n,n)\n" | |||
| 52274 | "\nOther Parameters\n----------------\n" | |||
| 52275 | "itype : input int, optional\n Default: 1\n" | |||
| 52276 | "jobz : input string(len=1), optional\n Default: 'V'\n" | |||
| 52277 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 52278 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 52279 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 52280 | "lwork : input int, optional\n Default: (*jobz=='N'?2*n+1:1+6*n+2*n*n)\n" | |||
| 52281 | "liwork : input int, optional\n Default: (*jobz=='N'?1:5*n+3)\n" | |||
| 52282 | "\nReturns\n-------\n" | |||
| 52283 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 52284 | "v : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 52285 | "info : int"; | |||
| 52286 | /* extern void F_FUNC(ssygvd,SSYGVD)(F_INT*,char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 52287 | static PyObject *f2py_rout__flapack_ssygvd(const PyObject *capi_self, | |||
| 52288 | PyObject *capi_args, | |||
| 52289 | PyObject *capi_keywds, | |||
| 52290 | void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 52291 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 52292 | volatile int f2py_success = 1; | |||
| 52293 | /*decl*/ | |||
| 52294 | ||||
| 52295 | int itype = 0; | |||
| 52296 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 52297 | string jobz = NULL((void*)0); | |||
| 52298 | int slen(jobz)capi_jobz_len; | |||
| 52299 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 52300 | string uplo = NULL((void*)0); | |||
| 52301 | int slen(uplo)capi_uplo_len; | |||
| 52302 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 52303 | int n = 0; | |||
| 52304 | int lda = 0; | |||
| 52305 | int ldb = 0; | |||
| 52306 | float *w = NULL((void*)0); | |||
| 52307 | npy_intp w_Dims[1] = {-1}; | |||
| 52308 | const int w_Rank = 1; | |||
| 52309 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 52310 | int capi_w_intent = 0; | |||
| 52311 | float *a = NULL((void*)0); | |||
| 52312 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 52313 | const int a_Rank = 2; | |||
| 52314 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 52315 | int capi_a_intent = 0; | |||
| 52316 | int capi_overwrite_a = 0; | |||
| 52317 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 52318 | float *b = NULL((void*)0); | |||
| 52319 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 52320 | const int b_Rank = 2; | |||
| 52321 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 52322 | int capi_b_intent = 0; | |||
| 52323 | int capi_overwrite_b = 0; | |||
| 52324 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 52325 | float *work = NULL((void*)0); | |||
| 52326 | npy_intp work_Dims[1] = {-1}; | |||
| 52327 | const int work_Rank = 1; | |||
| 52328 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 52329 | int capi_work_intent = 0; | |||
| 52330 | int lwork = 0; | |||
| 52331 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 52332 | int *iwork = NULL((void*)0); | |||
| 52333 | npy_intp iwork_Dims[1] = {-1}; | |||
| 52334 | const int iwork_Rank = 1; | |||
| 52335 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 52336 | int capi_iwork_intent = 0; | |||
| 52337 | int liwork = 0; | |||
| 52338 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 52339 | int info = 0; | |||
| 52340 | static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","liwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 52341 | ||||
| 52342 | /*routdebugenter*/ | |||
| 52343 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52344 | f2py_start_clock(); | |||
| 52345 | #endif | |||
| 52346 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 52347 | "OO|OOOOOii:_flapack.ssygvd",\ | |||
| 52348 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 52349 | return NULL((void*)0); | |||
| 52350 | /*frompyobj*/ | |||
| 52351 | /* Processing variable a */ | |||
| 52352 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 52353 | ; | |||
| 52354 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 52355 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 52356 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 52357 | if (!PyErr_Occurred()) | |||
| 52358 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssygvd to C/Fortran array" ); | |||
| 52359 | } else { | |||
| 52360 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 52361 | ||||
| 52362 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 52363 | /* Processing variable itype */ | |||
| 52364 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 52365 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.ssygvd() 1st keyword (itype) can't be converted to int"); | |||
| 52366 | if (f2py_success) { | |||
| 52367 | CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","ssygvd:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygvd:itype=%d", "(""itype > 0 || itype < 4" ") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 52368 | /* Processing variable jobz */ | |||
| 52369 | slen(jobz)capi_jobz_len = 1; | |||
| 52370 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.ssygvd to C string"); | |||
| 52371 | if (f2py_success) { | |||
| 52372 | CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","ssygvd:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygvd:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'" ") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 52373 | /* Processing variable uplo */ | |||
| 52374 | slen(uplo)capi_uplo_len = 1; | |||
| 52375 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.ssygvd to C string"); | |||
| 52376 | if (f2py_success) { | |||
| 52377 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","ssygvd:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygvd:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 52378 | /* Processing variable info */ | |||
| 52379 | /* Processing variable n */ | |||
| 52380 | n = shape(a,0)a_Dims[0]; | |||
| 52381 | /* Processing variable lda */ | |||
| 52382 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 52383 | /* Processing variable w */ | |||
| 52384 | w_Dims[0]=n; | |||
| 52385 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 52386 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 52387 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 52388 | if (!PyErr_Occurred()) | |||
| 52389 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssygvd to C/Fortran array" ); | |||
| 52390 | } else { | |||
| 52391 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 52392 | ||||
| 52393 | /* Processing variable b */ | |||
| 52394 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 52395 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 52396 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 52397 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 52398 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 52399 | if (!PyErr_Occurred()) | |||
| 52400 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ssygvd to C/Fortran array" ); | |||
| 52401 | } else { | |||
| 52402 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 52403 | ||||
| 52404 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 52405 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 52406 | /* Processing variable lwork */ | |||
| 52407 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = (*jobz=='N'?2*n+1:1+6*n+2*n*n); else | |||
| 52408 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssygvd() 4th keyword (lwork) can't be converted to int"); | |||
| 52409 | if (f2py_success) { | |||
| 52410 | CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","ssygvd:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygvd:lwork=%d", "(""lwork>0||lwork==-1"") failed for " "4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 52411 | /* Processing variable liwork */ | |||
| 52412 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (*jobz=='N'?1:5*n+3); else | |||
| 52413 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.ssygvd() 5th keyword (liwork) can't be converted to int"); | |||
| 52414 | if (f2py_success) { | |||
| 52415 | CHECKSCALAR(liwork>0||liwork==-1,"liwork>0||liwork==-1","5th keyword liwork","ssygvd:liwork=%d",liwork)if (!(liwork>0||liwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygvd:liwork=%d", "(""liwork>0||liwork==-1"") failed for " "5th keyword liwork", liwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 52416 | /* Processing variable ldb */ | |||
| 52417 | ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 52418 | /* Processing variable work */ | |||
| 52419 | work_Dims[0]=lwork; | |||
| 52420 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 52421 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 52422 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 52423 | if (!PyErr_Occurred()) | |||
| 52424 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssygvd to C/Fortran array" ); | |||
| 52425 | } else { | |||
| 52426 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 52427 | ||||
| 52428 | /* Processing variable iwork */ | |||
| 52429 | iwork_Dims[0]=liwork; | |||
| 52430 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 52431 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 52432 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 52433 | if (!PyErr_Occurred()) | |||
| 52434 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssygvd to C/Fortran array" ); | |||
| 52435 | } else { | |||
| 52436 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 52437 | ||||
| 52438 | /*end of frompyobj*/ | |||
| 52439 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52440 | f2py_start_call_clock(); | |||
| 52441 | #endif | |||
| 52442 | /*callfortranroutine*/ | |||
| 52443 | (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,iwork,&liwork,&info) ; | |||
| 52444 | /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,iwork,&liwork,&info,slen(jobz),slen(uplo));*/ | |||
| 52445 | if (PyErr_Occurred()) | |||
| 52446 | f2py_success = 0; | |||
| 52447 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52448 | f2py_stop_call_clock(); | |||
| 52449 | #endif | |||
| 52450 | /*end of callfortranroutine*/ | |||
| 52451 | if (f2py_success) { | |||
| 52452 | /*pyobjfrom*/ | |||
| 52453 | /*end of pyobjfrom*/ | |||
| 52454 | CFUNCSMESS("Building return value.\n"); | |||
| 52455 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 52456 | /*closepyobjfrom*/ | |||
| 52457 | /*end of closepyobjfrom*/ | |||
| 52458 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 52459 | /*cleanupfrompyobj*/ | |||
| 52460 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 52461 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 52462 | /* End of cleaning variable iwork */ | |||
| 52463 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 52464 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 52465 | /* End of cleaning variable work */ | |||
| 52466 | /* End of cleaning variable ldb */ | |||
| 52467 | } /*CHECKSCALAR(liwork>0||liwork==-1)*/ | |||
| 52468 | } /*if (f2py_success) of liwork*/ | |||
| 52469 | /* End of cleaning variable liwork */ | |||
| 52470 | } /*CHECKSCALAR(lwork>0||lwork==-1)*/ | |||
| 52471 | } /*if (f2py_success) of lwork*/ | |||
| 52472 | /* End of cleaning variable lwork */ | |||
| 52473 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 52474 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 52475 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 52476 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 52477 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 52478 | /* End of cleaning variable b */ | |||
| 52479 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 52480 | /* End of cleaning variable w */ | |||
| 52481 | /* End of cleaning variable lda */ | |||
| 52482 | /* End of cleaning variable n */ | |||
| 52483 | /* End of cleaning variable info */ | |||
| 52484 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 52485 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 52486 | } /*if (f2py_success) of uplo*/ | |||
| 52487 | /* End of cleaning variable uplo */ | |||
| 52488 | } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/ | |||
| 52489 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 52490 | } /*if (f2py_success) of jobz*/ | |||
| 52491 | /* End of cleaning variable jobz */ | |||
| 52492 | } /*CHECKSCALAR(itype > 0 || itype < 4)*/ | |||
| 52493 | } /*if (f2py_success) of itype*/ | |||
| 52494 | /* End of cleaning variable itype */ | |||
| 52495 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 52496 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 52497 | /* End of cleaning variable a */ | |||
| 52498 | /*end of cleanupfrompyobj*/ | |||
| 52499 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 52500 | /*routdebugfailure*/ | |||
| 52501 | } else { | |||
| 52502 | /*routdebugleave*/ | |||
| 52503 | } | |||
| 52504 | CFUNCSMESS("Freeing memory.\n"); | |||
| 52505 | /*freemem*/ | |||
| 52506 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52507 | f2py_stop_clock(); | |||
| 52508 | #endif | |||
| 52509 | return capi_buildvalue; | |||
| 52510 | } | |||
| 52511 | /******************************* end of ssygvd *******************************/ | |||
| 52512 | ||||
| 52513 | /*********************************** dsygvd ***********************************/ | |||
| 52514 | static char doc_f2py_rout__flapack_dsygvd[] = "\ | |||
| 52515 | w,v,info = dsygvd(a,b,[itype,jobz,uplo,lwork,liwork,overwrite_a,overwrite_b])\n\nWrapper for ``dsygvd``.\ | |||
| 52516 | \n\nParameters\n----------\n" | |||
| 52517 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 52518 | "b : input rank-2 array('d') with bounds (n,n)\n" | |||
| 52519 | "\nOther Parameters\n----------------\n" | |||
| 52520 | "itype : input int, optional\n Default: 1\n" | |||
| 52521 | "jobz : input string(len=1), optional\n Default: 'V'\n" | |||
| 52522 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 52523 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 52524 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 52525 | "lwork : input int, optional\n Default: (*jobz=='N'?2*n+1:1+6*n+2*n*n)\n" | |||
| 52526 | "liwork : input int, optional\n Default: (*jobz=='N'?1:5*n+3)\n" | |||
| 52527 | "\nReturns\n-------\n" | |||
| 52528 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 52529 | "v : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 52530 | "info : int"; | |||
| 52531 | /* extern void F_FUNC(dsygvd,DSYGVD)(F_INT*,char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 52532 | static PyObject *f2py_rout__flapack_dsygvd(const PyObject *capi_self, | |||
| 52533 | PyObject *capi_args, | |||
| 52534 | PyObject *capi_keywds, | |||
| 52535 | void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 52536 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 52537 | volatile int f2py_success = 1; | |||
| 52538 | /*decl*/ | |||
| 52539 | ||||
| 52540 | int itype = 0; | |||
| 52541 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 52542 | string jobz = NULL((void*)0); | |||
| 52543 | int slen(jobz)capi_jobz_len; | |||
| 52544 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 52545 | string uplo = NULL((void*)0); | |||
| 52546 | int slen(uplo)capi_uplo_len; | |||
| 52547 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 52548 | int n = 0; | |||
| 52549 | int lda = 0; | |||
| 52550 | int ldb = 0; | |||
| 52551 | double *w = NULL((void*)0); | |||
| 52552 | npy_intp w_Dims[1] = {-1}; | |||
| 52553 | const int w_Rank = 1; | |||
| 52554 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 52555 | int capi_w_intent = 0; | |||
| 52556 | double *a = NULL((void*)0); | |||
| 52557 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 52558 | const int a_Rank = 2; | |||
| 52559 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 52560 | int capi_a_intent = 0; | |||
| 52561 | int capi_overwrite_a = 0; | |||
| 52562 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 52563 | double *b = NULL((void*)0); | |||
| 52564 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 52565 | const int b_Rank = 2; | |||
| 52566 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 52567 | int capi_b_intent = 0; | |||
| 52568 | int capi_overwrite_b = 0; | |||
| 52569 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 52570 | double *work = NULL((void*)0); | |||
| 52571 | npy_intp work_Dims[1] = {-1}; | |||
| 52572 | const int work_Rank = 1; | |||
| 52573 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 52574 | int capi_work_intent = 0; | |||
| 52575 | int lwork = 0; | |||
| 52576 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 52577 | int *iwork = NULL((void*)0); | |||
| 52578 | npy_intp iwork_Dims[1] = {-1}; | |||
| 52579 | const int iwork_Rank = 1; | |||
| 52580 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 52581 | int capi_iwork_intent = 0; | |||
| 52582 | int liwork = 0; | |||
| 52583 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 52584 | int info = 0; | |||
| 52585 | static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","liwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 52586 | ||||
| 52587 | /*routdebugenter*/ | |||
| 52588 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52589 | f2py_start_clock(); | |||
| 52590 | #endif | |||
| 52591 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 52592 | "OO|OOOOOii:_flapack.dsygvd",\ | |||
| 52593 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 52594 | return NULL((void*)0); | |||
| 52595 | /*frompyobj*/ | |||
| 52596 | /* Processing variable a */ | |||
| 52597 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 52598 | ; | |||
| 52599 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 52600 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 52601 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 52602 | if (!PyErr_Occurred()) | |||
| 52603 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsygvd to C/Fortran array" ); | |||
| 52604 | } else { | |||
| 52605 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 52606 | ||||
| 52607 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 52608 | /* Processing variable itype */ | |||
| 52609 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 52610 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.dsygvd() 1st keyword (itype) can't be converted to int"); | |||
| 52611 | if (f2py_success) { | |||
| 52612 | CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","dsygvd:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygvd:itype=%d", "(""itype > 0 || itype < 4" ") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 52613 | /* Processing variable jobz */ | |||
| 52614 | slen(jobz)capi_jobz_len = 1; | |||
| 52615 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.dsygvd to C string"); | |||
| 52616 | if (f2py_success) { | |||
| 52617 | CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","dsygvd:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygvd:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'" ") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 52618 | /* Processing variable uplo */ | |||
| 52619 | slen(uplo)capi_uplo_len = 1; | |||
| 52620 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.dsygvd to C string"); | |||
| 52621 | if (f2py_success) { | |||
| 52622 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","dsygvd:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygvd:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 52623 | /* Processing variable info */ | |||
| 52624 | /* Processing variable n */ | |||
| 52625 | n = shape(a,0)a_Dims[0]; | |||
| 52626 | /* Processing variable lda */ | |||
| 52627 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 52628 | /* Processing variable w */ | |||
| 52629 | w_Dims[0]=n; | |||
| 52630 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 52631 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 52632 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 52633 | if (!PyErr_Occurred()) | |||
| 52634 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsygvd to C/Fortran array" ); | |||
| 52635 | } else { | |||
| 52636 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 52637 | ||||
| 52638 | /* Processing variable b */ | |||
| 52639 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 52640 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 52641 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 52642 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 52643 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 52644 | if (!PyErr_Occurred()) | |||
| 52645 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dsygvd to C/Fortran array" ); | |||
| 52646 | } else { | |||
| 52647 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 52648 | ||||
| 52649 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 52650 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 52651 | /* Processing variable lwork */ | |||
| 52652 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = (*jobz=='N'?2*n+1:1+6*n+2*n*n); else | |||
| 52653 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsygvd() 4th keyword (lwork) can't be converted to int"); | |||
| 52654 | if (f2py_success) { | |||
| 52655 | CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","dsygvd:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygvd:lwork=%d", "(""lwork>0||lwork==-1"") failed for " "4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 52656 | /* Processing variable liwork */ | |||
| 52657 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (*jobz=='N'?1:5*n+3); else | |||
| 52658 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.dsygvd() 5th keyword (liwork) can't be converted to int"); | |||
| 52659 | if (f2py_success) { | |||
| 52660 | CHECKSCALAR(liwork>0||liwork==-1,"liwork>0||liwork==-1","5th keyword liwork","dsygvd:liwork=%d",liwork)if (!(liwork>0||liwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygvd:liwork=%d", "(""liwork>0||liwork==-1"") failed for " "5th keyword liwork", liwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 52661 | /* Processing variable ldb */ | |||
| 52662 | ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 52663 | /* Processing variable work */ | |||
| 52664 | work_Dims[0]=lwork; | |||
| 52665 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 52666 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 52667 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 52668 | if (!PyErr_Occurred()) | |||
| 52669 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsygvd to C/Fortran array" ); | |||
| 52670 | } else { | |||
| 52671 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 52672 | ||||
| 52673 | /* Processing variable iwork */ | |||
| 52674 | iwork_Dims[0]=liwork; | |||
| 52675 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 52676 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 52677 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 52678 | if (!PyErr_Occurred()) | |||
| 52679 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsygvd to C/Fortran array" ); | |||
| 52680 | } else { | |||
| 52681 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 52682 | ||||
| 52683 | /*end of frompyobj*/ | |||
| 52684 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52685 | f2py_start_call_clock(); | |||
| 52686 | #endif | |||
| 52687 | /*callfortranroutine*/ | |||
| 52688 | (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,iwork,&liwork,&info) ; | |||
| 52689 | /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,iwork,&liwork,&info,slen(jobz),slen(uplo));*/ | |||
| 52690 | if (PyErr_Occurred()) | |||
| 52691 | f2py_success = 0; | |||
| 52692 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52693 | f2py_stop_call_clock(); | |||
| 52694 | #endif | |||
| 52695 | /*end of callfortranroutine*/ | |||
| 52696 | if (f2py_success) { | |||
| 52697 | /*pyobjfrom*/ | |||
| 52698 | /*end of pyobjfrom*/ | |||
| 52699 | CFUNCSMESS("Building return value.\n"); | |||
| 52700 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 52701 | /*closepyobjfrom*/ | |||
| 52702 | /*end of closepyobjfrom*/ | |||
| 52703 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 52704 | /*cleanupfrompyobj*/ | |||
| 52705 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 52706 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 52707 | /* End of cleaning variable iwork */ | |||
| 52708 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 52709 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 52710 | /* End of cleaning variable work */ | |||
| 52711 | /* End of cleaning variable ldb */ | |||
| 52712 | } /*CHECKSCALAR(liwork>0||liwork==-1)*/ | |||
| 52713 | } /*if (f2py_success) of liwork*/ | |||
| 52714 | /* End of cleaning variable liwork */ | |||
| 52715 | } /*CHECKSCALAR(lwork>0||lwork==-1)*/ | |||
| 52716 | } /*if (f2py_success) of lwork*/ | |||
| 52717 | /* End of cleaning variable lwork */ | |||
| 52718 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 52719 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 52720 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 52721 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 52722 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 52723 | /* End of cleaning variable b */ | |||
| 52724 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 52725 | /* End of cleaning variable w */ | |||
| 52726 | /* End of cleaning variable lda */ | |||
| 52727 | /* End of cleaning variable n */ | |||
| 52728 | /* End of cleaning variable info */ | |||
| 52729 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 52730 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 52731 | } /*if (f2py_success) of uplo*/ | |||
| 52732 | /* End of cleaning variable uplo */ | |||
| 52733 | } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/ | |||
| 52734 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 52735 | } /*if (f2py_success) of jobz*/ | |||
| 52736 | /* End of cleaning variable jobz */ | |||
| 52737 | } /*CHECKSCALAR(itype > 0 || itype < 4)*/ | |||
| 52738 | } /*if (f2py_success) of itype*/ | |||
| 52739 | /* End of cleaning variable itype */ | |||
| 52740 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 52741 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 52742 | /* End of cleaning variable a */ | |||
| 52743 | /*end of cleanupfrompyobj*/ | |||
| 52744 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 52745 | /*routdebugfailure*/ | |||
| 52746 | } else { | |||
| 52747 | /*routdebugleave*/ | |||
| 52748 | } | |||
| 52749 | CFUNCSMESS("Freeing memory.\n"); | |||
| 52750 | /*freemem*/ | |||
| 52751 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52752 | f2py_stop_clock(); | |||
| 52753 | #endif | |||
| 52754 | return capi_buildvalue; | |||
| 52755 | } | |||
| 52756 | /******************************* end of dsygvd *******************************/ | |||
| 52757 | ||||
| 52758 | /*********************************** chegvd ***********************************/ | |||
| 52759 | static char doc_f2py_rout__flapack_chegvd[] = "\ | |||
| 52760 | w,v,info = chegvd(a,b,[itype,jobz,uplo,lwork,lrwork,liwork,overwrite_a,overwrite_b])\n\nWrapper for ``chegvd``.\ | |||
| 52761 | \n\nParameters\n----------\n" | |||
| 52762 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 52763 | "b : input rank-2 array('F') with bounds (n,n)\n" | |||
| 52764 | "\nOther Parameters\n----------------\n" | |||
| 52765 | "itype : input int, optional\n Default: 1\n" | |||
| 52766 | "jobz : input string(len=1), optional\n Default: 'V'\n" | |||
| 52767 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 52768 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 52769 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 52770 | "lwork : input int, optional\n Default: (*jobz=='N'?n+1:n*(n+2))\n" | |||
| 52771 | "lrwork : input int, optional\n Default: max((*jobz=='N'?n:2*n*n+5*n+1),1)\n" | |||
| 52772 | "liwork : input int, optional\n Default: (*jobz=='N'?1:5*n+3)\n" | |||
| 52773 | "\nReturns\n-------\n" | |||
| 52774 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 52775 | "v : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 52776 | "info : int"; | |||
| 52777 | /* extern void F_FUNC(chegvd,CHEGVD)(F_INT*,char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 52778 | static PyObject *f2py_rout__flapack_chegvd(const PyObject *capi_self, | |||
| 52779 | PyObject *capi_args, | |||
| 52780 | PyObject *capi_keywds, | |||
| 52781 | void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 52782 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 52783 | volatile int f2py_success = 1; | |||
| 52784 | /*decl*/ | |||
| 52785 | ||||
| 52786 | int itype = 0; | |||
| 52787 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 52788 | string jobz = NULL((void*)0); | |||
| 52789 | int slen(jobz)capi_jobz_len; | |||
| 52790 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 52791 | string uplo = NULL((void*)0); | |||
| 52792 | int slen(uplo)capi_uplo_len; | |||
| 52793 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 52794 | int n = 0; | |||
| 52795 | int lda = 0; | |||
| 52796 | int ldb = 0; | |||
| 52797 | float *w = NULL((void*)0); | |||
| 52798 | npy_intp w_Dims[1] = {-1}; | |||
| 52799 | const int w_Rank = 1; | |||
| 52800 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 52801 | int capi_w_intent = 0; | |||
| 52802 | complex_float *a = NULL((void*)0); | |||
| 52803 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 52804 | const int a_Rank = 2; | |||
| 52805 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 52806 | int capi_a_intent = 0; | |||
| 52807 | int capi_overwrite_a = 0; | |||
| 52808 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 52809 | complex_float *b = NULL((void*)0); | |||
| 52810 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 52811 | const int b_Rank = 2; | |||
| 52812 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 52813 | int capi_b_intent = 0; | |||
| 52814 | int capi_overwrite_b = 0; | |||
| 52815 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 52816 | complex_float *work = NULL((void*)0); | |||
| 52817 | npy_intp work_Dims[1] = {-1}; | |||
| 52818 | const int work_Rank = 1; | |||
| 52819 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 52820 | int capi_work_intent = 0; | |||
| 52821 | int lwork = 0; | |||
| 52822 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 52823 | float *rwork = NULL((void*)0); | |||
| 52824 | npy_intp rwork_Dims[1] = {-1}; | |||
| 52825 | const int rwork_Rank = 1; | |||
| 52826 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 52827 | int capi_rwork_intent = 0; | |||
| 52828 | int lrwork = 0; | |||
| 52829 | PyObject *lrwork_capi = Py_None(&_Py_NoneStruct); | |||
| 52830 | int *iwork = NULL((void*)0); | |||
| 52831 | npy_intp iwork_Dims[1] = {-1}; | |||
| 52832 | const int iwork_Rank = 1; | |||
| 52833 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 52834 | int capi_iwork_intent = 0; | |||
| 52835 | int liwork = 0; | |||
| 52836 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 52837 | int info = 0; | |||
| 52838 | static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","lrwork","liwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 52839 | ||||
| 52840 | /*routdebugenter*/ | |||
| 52841 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52842 | f2py_start_clock(); | |||
| 52843 | #endif | |||
| 52844 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 52845 | "OO|OOOOOOii:_flapack.chegvd",\ | |||
| 52846 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&lrwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 52847 | return NULL((void*)0); | |||
| 52848 | /*frompyobj*/ | |||
| 52849 | /* Processing variable a */ | |||
| 52850 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 52851 | ; | |||
| 52852 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 52853 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 52854 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 52855 | if (!PyErr_Occurred()) | |||
| 52856 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chegvd to C/Fortran array" ); | |||
| 52857 | } else { | |||
| 52858 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 52859 | ||||
| 52860 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 52861 | /* Processing variable itype */ | |||
| 52862 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 52863 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.chegvd() 1st keyword (itype) can't be converted to int"); | |||
| 52864 | if (f2py_success) { | |||
| 52865 | CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","chegvd:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegvd:itype=%d", "(""itype > 0 || itype < 4" ") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 52866 | /* Processing variable jobz */ | |||
| 52867 | slen(jobz)capi_jobz_len = 1; | |||
| 52868 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.chegvd to C string"); | |||
| 52869 | if (f2py_success) { | |||
| 52870 | CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","chegvd:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegvd:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'" ") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 52871 | /* Processing variable uplo */ | |||
| 52872 | slen(uplo)capi_uplo_len = 1; | |||
| 52873 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.chegvd to C string"); | |||
| 52874 | if (f2py_success) { | |||
| 52875 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","chegvd:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegvd:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 52876 | /* Processing variable info */ | |||
| 52877 | /* Processing variable n */ | |||
| 52878 | n = shape(a,0)a_Dims[0]; | |||
| 52879 | /* Processing variable lda */ | |||
| 52880 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 52881 | /* Processing variable w */ | |||
| 52882 | w_Dims[0]=n; | |||
| 52883 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 52884 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 52885 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 52886 | if (!PyErr_Occurred()) | |||
| 52887 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.chegvd to C/Fortran array" ); | |||
| 52888 | } else { | |||
| 52889 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 52890 | ||||
| 52891 | /* Processing variable b */ | |||
| 52892 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 52893 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 52894 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 52895 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 52896 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 52897 | if (!PyErr_Occurred()) | |||
| 52898 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.chegvd to C/Fortran array" ); | |||
| 52899 | } else { | |||
| 52900 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 52901 | ||||
| 52902 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 52903 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 52904 | /* Processing variable lwork */ | |||
| 52905 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = (*jobz=='N'?n+1:n*(n+2)); else | |||
| 52906 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chegvd() 4th keyword (lwork) can't be converted to int"); | |||
| 52907 | if (f2py_success) { | |||
| 52908 | CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","chegvd:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegvd:lwork=%d", "(""lwork>0||lwork==-1"") failed for " "4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 52909 | /* Processing variable lrwork */ | |||
| 52910 | if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = max((*jobz=='N'?n:2*n*n+5*n+1),1)(((*jobz=='N'?n:2*n*n+5*n+1) > 1) ? ((*jobz=='N'?n:2*n*n+5 *n+1)) : (1)); else | |||
| 52911 | f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.chegvd() 5th keyword (lrwork) can't be converted to int"); | |||
| 52912 | if (f2py_success) { | |||
| 52913 | CHECKSCALAR(lrwork>0||lrwork==-1,"lrwork>0||lrwork==-1","5th keyword lrwork","chegvd:lrwork=%d",lrwork)if (!(lrwork>0||lrwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegvd:lrwork=%d", "(""lrwork>0||lrwork==-1"") failed for " "5th keyword lrwork", lrwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 52914 | /* Processing variable liwork */ | |||
| 52915 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (*jobz=='N'?1:5*n+3); else | |||
| 52916 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.chegvd() 6th keyword (liwork) can't be converted to int"); | |||
| 52917 | if (f2py_success) { | |||
| 52918 | CHECKSCALAR(liwork>0||liwork==-1,"liwork>0||liwork==-1","6th keyword liwork","chegvd:liwork=%d",liwork)if (!(liwork>0||liwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegvd:liwork=%d", "(""liwork>0||liwork==-1"") failed for " "6th keyword liwork", liwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 52919 | /* Processing variable ldb */ | |||
| 52920 | ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 52921 | /* Processing variable work */ | |||
| 52922 | work_Dims[0]=lwork; | |||
| 52923 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 52924 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 52925 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 52926 | if (!PyErr_Occurred()) | |||
| 52927 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chegvd to C/Fortran array" ); | |||
| 52928 | } else { | |||
| 52929 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 52930 | ||||
| 52931 | /* Processing variable rwork */ | |||
| 52932 | rwork_Dims[0]=lrwork; | |||
| 52933 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 52934 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 52935 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 52936 | if (!PyErr_Occurred()) | |||
| 52937 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.chegvd to C/Fortran array" ); | |||
| 52938 | } else { | |||
| 52939 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 52940 | ||||
| 52941 | /* Processing variable iwork */ | |||
| 52942 | iwork_Dims[0]=liwork; | |||
| 52943 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 52944 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 52945 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 52946 | if (!PyErr_Occurred()) | |||
| 52947 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.chegvd to C/Fortran array" ); | |||
| 52948 | } else { | |||
| 52949 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 52950 | ||||
| 52951 | /*end of frompyobj*/ | |||
| 52952 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52953 | f2py_start_call_clock(); | |||
| 52954 | #endif | |||
| 52955 | /*callfortranroutine*/ | |||
| 52956 | (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ; | |||
| 52957 | /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,rwork,&lrwork,iwork,&liwork,&info,slen(jobz),slen(uplo));*/ | |||
| 52958 | if (PyErr_Occurred()) | |||
| 52959 | f2py_success = 0; | |||
| 52960 | #ifdef F2PY_REPORT_ATEXIT | |||
| 52961 | f2py_stop_call_clock(); | |||
| 52962 | #endif | |||
| 52963 | /*end of callfortranroutine*/ | |||
| 52964 | if (f2py_success) { | |||
| 52965 | /*pyobjfrom*/ | |||
| 52966 | /*end of pyobjfrom*/ | |||
| 52967 | CFUNCSMESS("Building return value.\n"); | |||
| 52968 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 52969 | /*closepyobjfrom*/ | |||
| 52970 | /*end of closepyobjfrom*/ | |||
| 52971 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 52972 | /*cleanupfrompyobj*/ | |||
| 52973 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 52974 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 52975 | /* End of cleaning variable iwork */ | |||
| 52976 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 52977 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 52978 | /* End of cleaning variable rwork */ | |||
| 52979 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 52980 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 52981 | /* End of cleaning variable work */ | |||
| 52982 | /* End of cleaning variable ldb */ | |||
| 52983 | } /*CHECKSCALAR(liwork>0||liwork==-1)*/ | |||
| 52984 | } /*if (f2py_success) of liwork*/ | |||
| 52985 | /* End of cleaning variable liwork */ | |||
| 52986 | } /*CHECKSCALAR(lrwork>0||lrwork==-1)*/ | |||
| 52987 | } /*if (f2py_success) of lrwork*/ | |||
| 52988 | /* End of cleaning variable lrwork */ | |||
| 52989 | } /*CHECKSCALAR(lwork>0||lwork==-1)*/ | |||
| 52990 | } /*if (f2py_success) of lwork*/ | |||
| 52991 | /* End of cleaning variable lwork */ | |||
| 52992 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 52993 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 52994 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 52995 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 52996 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 52997 | /* End of cleaning variable b */ | |||
| 52998 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 52999 | /* End of cleaning variable w */ | |||
| 53000 | /* End of cleaning variable lda */ | |||
| 53001 | /* End of cleaning variable n */ | |||
| 53002 | /* End of cleaning variable info */ | |||
| 53003 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 53004 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 53005 | } /*if (f2py_success) of uplo*/ | |||
| 53006 | /* End of cleaning variable uplo */ | |||
| 53007 | } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/ | |||
| 53008 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 53009 | } /*if (f2py_success) of jobz*/ | |||
| 53010 | /* End of cleaning variable jobz */ | |||
| 53011 | } /*CHECKSCALAR(itype > 0 || itype < 4)*/ | |||
| 53012 | } /*if (f2py_success) of itype*/ | |||
| 53013 | /* End of cleaning variable itype */ | |||
| 53014 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 53015 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 53016 | /* End of cleaning variable a */ | |||
| 53017 | /*end of cleanupfrompyobj*/ | |||
| 53018 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 53019 | /*routdebugfailure*/ | |||
| 53020 | } else { | |||
| 53021 | /*routdebugleave*/ | |||
| 53022 | } | |||
| 53023 | CFUNCSMESS("Freeing memory.\n"); | |||
| 53024 | /*freemem*/ | |||
| 53025 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53026 | f2py_stop_clock(); | |||
| 53027 | #endif | |||
| 53028 | return capi_buildvalue; | |||
| 53029 | } | |||
| 53030 | /******************************* end of chegvd *******************************/ | |||
| 53031 | ||||
| 53032 | /*********************************** zhegvd ***********************************/ | |||
| 53033 | static char doc_f2py_rout__flapack_zhegvd[] = "\ | |||
| 53034 | w,v,info = zhegvd(a,b,[itype,jobz,uplo,lwork,lrwork,liwork,overwrite_a,overwrite_b])\n\nWrapper for ``zhegvd``.\ | |||
| 53035 | \n\nParameters\n----------\n" | |||
| 53036 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 53037 | "b : input rank-2 array('D') with bounds (n,n)\n" | |||
| 53038 | "\nOther Parameters\n----------------\n" | |||
| 53039 | "itype : input int, optional\n Default: 1\n" | |||
| 53040 | "jobz : input string(len=1), optional\n Default: 'V'\n" | |||
| 53041 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 53042 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 53043 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 53044 | "lwork : input int, optional\n Default: (*jobz=='N'?n+1:n*(n+2))\n" | |||
| 53045 | "lrwork : input int, optional\n Default: max((*jobz=='N'?n:2*n*n+5*n+1),1)\n" | |||
| 53046 | "liwork : input int, optional\n Default: (*jobz=='N'?1:5*n+3)\n" | |||
| 53047 | "\nReturns\n-------\n" | |||
| 53048 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 53049 | "v : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 53050 | "info : int"; | |||
| 53051 | /* extern void F_FUNC(zhegvd,ZHEGVD)(F_INT*,char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 53052 | static PyObject *f2py_rout__flapack_zhegvd(const PyObject *capi_self, | |||
| 53053 | PyObject *capi_args, | |||
| 53054 | PyObject *capi_keywds, | |||
| 53055 | void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 53056 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 53057 | volatile int f2py_success = 1; | |||
| 53058 | /*decl*/ | |||
| 53059 | ||||
| 53060 | int itype = 0; | |||
| 53061 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 53062 | string jobz = NULL((void*)0); | |||
| 53063 | int slen(jobz)capi_jobz_len; | |||
| 53064 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 53065 | string uplo = NULL((void*)0); | |||
| 53066 | int slen(uplo)capi_uplo_len; | |||
| 53067 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 53068 | int n = 0; | |||
| 53069 | int lda = 0; | |||
| 53070 | int ldb = 0; | |||
| 53071 | double *w = NULL((void*)0); | |||
| 53072 | npy_intp w_Dims[1] = {-1}; | |||
| 53073 | const int w_Rank = 1; | |||
| 53074 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 53075 | int capi_w_intent = 0; | |||
| 53076 | complex_double *a = NULL((void*)0); | |||
| 53077 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 53078 | const int a_Rank = 2; | |||
| 53079 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 53080 | int capi_a_intent = 0; | |||
| 53081 | int capi_overwrite_a = 0; | |||
| 53082 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 53083 | complex_double *b = NULL((void*)0); | |||
| 53084 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 53085 | const int b_Rank = 2; | |||
| 53086 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 53087 | int capi_b_intent = 0; | |||
| 53088 | int capi_overwrite_b = 0; | |||
| 53089 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 53090 | complex_double *work = NULL((void*)0); | |||
| 53091 | npy_intp work_Dims[1] = {-1}; | |||
| 53092 | const int work_Rank = 1; | |||
| 53093 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 53094 | int capi_work_intent = 0; | |||
| 53095 | int lwork = 0; | |||
| 53096 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 53097 | double *rwork = NULL((void*)0); | |||
| 53098 | npy_intp rwork_Dims[1] = {-1}; | |||
| 53099 | const int rwork_Rank = 1; | |||
| 53100 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 53101 | int capi_rwork_intent = 0; | |||
| 53102 | int lrwork = 0; | |||
| 53103 | PyObject *lrwork_capi = Py_None(&_Py_NoneStruct); | |||
| 53104 | int *iwork = NULL((void*)0); | |||
| 53105 | npy_intp iwork_Dims[1] = {-1}; | |||
| 53106 | const int iwork_Rank = 1; | |||
| 53107 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 53108 | int capi_iwork_intent = 0; | |||
| 53109 | int liwork = 0; | |||
| 53110 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 53111 | int info = 0; | |||
| 53112 | static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","lrwork","liwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 53113 | ||||
| 53114 | /*routdebugenter*/ | |||
| 53115 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53116 | f2py_start_clock(); | |||
| 53117 | #endif | |||
| 53118 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 53119 | "OO|OOOOOOii:_flapack.zhegvd",\ | |||
| 53120 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&lrwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 53121 | return NULL((void*)0); | |||
| 53122 | /*frompyobj*/ | |||
| 53123 | /* Processing variable a */ | |||
| 53124 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 53125 | ; | |||
| 53126 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 53127 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 53128 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 53129 | if (!PyErr_Occurred()) | |||
| 53130 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhegvd to C/Fortran array" ); | |||
| 53131 | } else { | |||
| 53132 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 53133 | ||||
| 53134 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 53135 | /* Processing variable itype */ | |||
| 53136 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 53137 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.zhegvd() 1st keyword (itype) can't be converted to int"); | |||
| 53138 | if (f2py_success) { | |||
| 53139 | CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","zhegvd:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegvd:itype=%d", "(""itype > 0 || itype < 4" ") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 53140 | /* Processing variable jobz */ | |||
| 53141 | slen(jobz)capi_jobz_len = 1; | |||
| 53142 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.zhegvd to C string"); | |||
| 53143 | if (f2py_success) { | |||
| 53144 | CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","zhegvd:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegvd:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'" ") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 53145 | /* Processing variable uplo */ | |||
| 53146 | slen(uplo)capi_uplo_len = 1; | |||
| 53147 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.zhegvd to C string"); | |||
| 53148 | if (f2py_success) { | |||
| 53149 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","zhegvd:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegvd:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 53150 | /* Processing variable info */ | |||
| 53151 | /* Processing variable n */ | |||
| 53152 | n = shape(a,0)a_Dims[0]; | |||
| 53153 | /* Processing variable lda */ | |||
| 53154 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 53155 | /* Processing variable w */ | |||
| 53156 | w_Dims[0]=n; | |||
| 53157 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 53158 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 53159 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 53160 | if (!PyErr_Occurred()) | |||
| 53161 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zhegvd to C/Fortran array" ); | |||
| 53162 | } else { | |||
| 53163 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 53164 | ||||
| 53165 | /* Processing variable b */ | |||
| 53166 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 53167 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 53168 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 53169 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 53170 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 53171 | if (!PyErr_Occurred()) | |||
| 53172 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zhegvd to C/Fortran array" ); | |||
| 53173 | } else { | |||
| 53174 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 53175 | ||||
| 53176 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 53177 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 53178 | /* Processing variable lwork */ | |||
| 53179 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = (*jobz=='N'?n+1:n*(n+2)); else | |||
| 53180 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhegvd() 4th keyword (lwork) can't be converted to int"); | |||
| 53181 | if (f2py_success) { | |||
| 53182 | CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","zhegvd:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegvd:lwork=%d", "(""lwork>0||lwork==-1"") failed for " "4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 53183 | /* Processing variable lrwork */ | |||
| 53184 | if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = max((*jobz=='N'?n:2*n*n+5*n+1),1)(((*jobz=='N'?n:2*n*n+5*n+1) > 1) ? ((*jobz=='N'?n:2*n*n+5 *n+1)) : (1)); else | |||
| 53185 | f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.zhegvd() 5th keyword (lrwork) can't be converted to int"); | |||
| 53186 | if (f2py_success) { | |||
| 53187 | CHECKSCALAR(lrwork>0||lrwork==-1,"lrwork>0||lrwork==-1","5th keyword lrwork","zhegvd:lrwork=%d",lrwork)if (!(lrwork>0||lrwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegvd:lrwork=%d", "(""lrwork>0||lrwork==-1"") failed for " "5th keyword lrwork", lrwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 53188 | /* Processing variable liwork */ | |||
| 53189 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (*jobz=='N'?1:5*n+3); else | |||
| 53190 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.zhegvd() 6th keyword (liwork) can't be converted to int"); | |||
| 53191 | if (f2py_success) { | |||
| 53192 | CHECKSCALAR(liwork>0||liwork==-1,"liwork>0||liwork==-1","6th keyword liwork","zhegvd:liwork=%d",liwork)if (!(liwork>0||liwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegvd:liwork=%d", "(""liwork>0||liwork==-1"") failed for " "6th keyword liwork", liwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 53193 | /* Processing variable ldb */ | |||
| 53194 | ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 53195 | /* Processing variable work */ | |||
| 53196 | work_Dims[0]=lwork; | |||
| 53197 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 53198 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 53199 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 53200 | if (!PyErr_Occurred()) | |||
| 53201 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhegvd to C/Fortran array" ); | |||
| 53202 | } else { | |||
| 53203 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 53204 | ||||
| 53205 | /* Processing variable rwork */ | |||
| 53206 | rwork_Dims[0]=lrwork; | |||
| 53207 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 53208 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 53209 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 53210 | if (!PyErr_Occurred()) | |||
| 53211 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zhegvd to C/Fortran array" ); | |||
| 53212 | } else { | |||
| 53213 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 53214 | ||||
| 53215 | /* Processing variable iwork */ | |||
| 53216 | iwork_Dims[0]=liwork; | |||
| 53217 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 53218 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 53219 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 53220 | if (!PyErr_Occurred()) | |||
| 53221 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zhegvd to C/Fortran array" ); | |||
| 53222 | } else { | |||
| 53223 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 53224 | ||||
| 53225 | /*end of frompyobj*/ | |||
| 53226 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53227 | f2py_start_call_clock(); | |||
| 53228 | #endif | |||
| 53229 | /*callfortranroutine*/ | |||
| 53230 | (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ; | |||
| 53231 | /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,rwork,&lrwork,iwork,&liwork,&info,slen(jobz),slen(uplo));*/ | |||
| 53232 | if (PyErr_Occurred()) | |||
| 53233 | f2py_success = 0; | |||
| 53234 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53235 | f2py_stop_call_clock(); | |||
| 53236 | #endif | |||
| 53237 | /*end of callfortranroutine*/ | |||
| 53238 | if (f2py_success) { | |||
| 53239 | /*pyobjfrom*/ | |||
| 53240 | /*end of pyobjfrom*/ | |||
| 53241 | CFUNCSMESS("Building return value.\n"); | |||
| 53242 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info); | |||
| 53243 | /*closepyobjfrom*/ | |||
| 53244 | /*end of closepyobjfrom*/ | |||
| 53245 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 53246 | /*cleanupfrompyobj*/ | |||
| 53247 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 53248 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 53249 | /* End of cleaning variable iwork */ | |||
| 53250 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 53251 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 53252 | /* End of cleaning variable rwork */ | |||
| 53253 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 53254 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 53255 | /* End of cleaning variable work */ | |||
| 53256 | /* End of cleaning variable ldb */ | |||
| 53257 | } /*CHECKSCALAR(liwork>0||liwork==-1)*/ | |||
| 53258 | } /*if (f2py_success) of liwork*/ | |||
| 53259 | /* End of cleaning variable liwork */ | |||
| 53260 | } /*CHECKSCALAR(lrwork>0||lrwork==-1)*/ | |||
| 53261 | } /*if (f2py_success) of lrwork*/ | |||
| 53262 | /* End of cleaning variable lrwork */ | |||
| 53263 | } /*CHECKSCALAR(lwork>0||lwork==-1)*/ | |||
| 53264 | } /*if (f2py_success) of lwork*/ | |||
| 53265 | /* End of cleaning variable lwork */ | |||
| 53266 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 53267 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 53268 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 53269 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 53270 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 53271 | /* End of cleaning variable b */ | |||
| 53272 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 53273 | /* End of cleaning variable w */ | |||
| 53274 | /* End of cleaning variable lda */ | |||
| 53275 | /* End of cleaning variable n */ | |||
| 53276 | /* End of cleaning variable info */ | |||
| 53277 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 53278 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 53279 | } /*if (f2py_success) of uplo*/ | |||
| 53280 | /* End of cleaning variable uplo */ | |||
| 53281 | } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/ | |||
| 53282 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 53283 | } /*if (f2py_success) of jobz*/ | |||
| 53284 | /* End of cleaning variable jobz */ | |||
| 53285 | } /*CHECKSCALAR(itype > 0 || itype < 4)*/ | |||
| 53286 | } /*if (f2py_success) of itype*/ | |||
| 53287 | /* End of cleaning variable itype */ | |||
| 53288 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 53289 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 53290 | /* End of cleaning variable a */ | |||
| 53291 | /*end of cleanupfrompyobj*/ | |||
| 53292 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 53293 | /*routdebugfailure*/ | |||
| 53294 | } else { | |||
| 53295 | /*routdebugleave*/ | |||
| 53296 | } | |||
| 53297 | CFUNCSMESS("Freeing memory.\n"); | |||
| 53298 | /*freemem*/ | |||
| 53299 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53300 | f2py_stop_clock(); | |||
| 53301 | #endif | |||
| 53302 | return capi_buildvalue; | |||
| 53303 | } | |||
| 53304 | /******************************* end of zhegvd *******************************/ | |||
| 53305 | ||||
| 53306 | /*********************************** ssygvx ***********************************/ | |||
| 53307 | static char doc_f2py_rout__flapack_ssygvx[] = "\ | |||
| 53308 | w,z,m,ifail,info = ssygvx(a,b,[itype,jobz,range,uplo,vl,vu,il,iu,abstol,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``ssygvx``.\ | |||
| 53309 | \n\nParameters\n----------\n" | |||
| 53310 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 53311 | "b : input rank-2 array('f') with bounds (n,n)\n" | |||
| 53312 | "\nOther Parameters\n----------------\n" | |||
| 53313 | "itype : input int, optional\n Default: 1\n" | |||
| 53314 | "jobz : input string(len=1), optional\n Default: 'V'\n" | |||
| 53315 | "range : input string(len=1), optional\n Default: 'A'\n" | |||
| 53316 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 53317 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 53318 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 53319 | "vl : input float, optional\n Default: 0.0\n" | |||
| 53320 | "vu : input float, optional\n Default: 1.0\n" | |||
| 53321 | "il : input int, optional\n Default: 1\n" | |||
| 53322 | "iu : input int, optional\n Default: n\n" | |||
| 53323 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 53324 | "lwork : input int, optional\n Default: max(8*n,1)\n" | |||
| 53325 | "\nReturns\n-------\n" | |||
| 53326 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 53327 | "z : rank-2 array('f') with bounds ((jobz[0]=='V'?MAX(0,n):0),(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)):0))\n" | |||
| 53328 | "m : int\n" | |||
| 53329 | "ifail : rank-1 array('i') with bounds ((jobz[0]=='N'?0:n))\n" | |||
| 53330 | "info : int"; | |||
| 53331 | /* extern void F_FUNC(ssygvx,SSYGVX)(F_INT*,char*,char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 53332 | static PyObject *f2py_rout__flapack_ssygvx(const PyObject *capi_self, | |||
| 53333 | PyObject *capi_args, | |||
| 53334 | PyObject *capi_keywds, | |||
| 53335 | void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 53336 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 53337 | volatile int f2py_success = 1; | |||
| 53338 | /*decl*/ | |||
| 53339 | ||||
| 53340 | int itype = 0; | |||
| 53341 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 53342 | string jobz = NULL((void*)0); | |||
| 53343 | int slen(jobz)capi_jobz_len; | |||
| 53344 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 53345 | string range = NULL((void*)0); | |||
| 53346 | int slen(range)capi_range_len; | |||
| 53347 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 53348 | string uplo = NULL((void*)0); | |||
| 53349 | int slen(uplo)capi_uplo_len; | |||
| 53350 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 53351 | int n = 0; | |||
| 53352 | float *a = NULL((void*)0); | |||
| 53353 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 53354 | const int a_Rank = 2; | |||
| 53355 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 53356 | int capi_a_intent = 0; | |||
| 53357 | int capi_overwrite_a = 0; | |||
| 53358 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 53359 | int lda = 0; | |||
| 53360 | float *b = NULL((void*)0); | |||
| 53361 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 53362 | const int b_Rank = 2; | |||
| 53363 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 53364 | int capi_b_intent = 0; | |||
| 53365 | int capi_overwrite_b = 0; | |||
| 53366 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 53367 | int ldb = 0; | |||
| 53368 | float vl = 0; | |||
| 53369 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 53370 | float vu = 0; | |||
| 53371 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 53372 | int il = 0; | |||
| 53373 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 53374 | int iu = 0; | |||
| 53375 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 53376 | float abstol = 0; | |||
| 53377 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 53378 | float *w = NULL((void*)0); | |||
| 53379 | npy_intp w_Dims[1] = {-1}; | |||
| 53380 | const int w_Rank = 1; | |||
| 53381 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 53382 | int capi_w_intent = 0; | |||
| 53383 | float *z = NULL((void*)0); | |||
| 53384 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 53385 | const int z_Rank = 2; | |||
| 53386 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 53387 | int capi_z_intent = 0; | |||
| 53388 | int m = 0; | |||
| 53389 | int ldz = 0; | |||
| 53390 | float *work = NULL((void*)0); | |||
| 53391 | npy_intp work_Dims[1] = {-1}; | |||
| 53392 | const int work_Rank = 1; | |||
| 53393 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 53394 | int capi_work_intent = 0; | |||
| 53395 | int lwork = 0; | |||
| 53396 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 53397 | int *iwork = NULL((void*)0); | |||
| 53398 | npy_intp iwork_Dims[1] = {-1}; | |||
| 53399 | const int iwork_Rank = 1; | |||
| 53400 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 53401 | int capi_iwork_intent = 0; | |||
| 53402 | int *ifail = NULL((void*)0); | |||
| 53403 | npy_intp ifail_Dims[1] = {-1}; | |||
| 53404 | const int ifail_Rank = 1; | |||
| 53405 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 53406 | int capi_ifail_intent = 0; | |||
| 53407 | int info = 0; | |||
| 53408 | static char *capi_kwlist[] = {"a","b","itype","jobz","range","uplo","vl","vu","il","iu","abstol","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 53409 | ||||
| 53410 | /*routdebugenter*/ | |||
| 53411 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53412 | f2py_start_clock(); | |||
| 53413 | #endif | |||
| 53414 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 53415 | "OO|OOOOOOOOOOii:_flapack.ssygvx",\ | |||
| 53416 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&range_capi,&uplo_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 53417 | return NULL((void*)0); | |||
| 53418 | /*frompyobj*/ | |||
| 53419 | /* Processing variable itype */ | |||
| 53420 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 53421 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.ssygvx() 1st keyword (itype) can't be converted to int"); | |||
| 53422 | if (f2py_success) { | |||
| 53423 | CHECKSCALAR(itype>0||itype<4,"itype>0||itype<4","1st keyword itype","ssygvx:itype=%d",itype)if (!(itype>0||itype<4)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygvx:itype=%d", "(""itype>0||itype<4"") failed for " "1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 53424 | /* Processing variable jobz */ | |||
| 53425 | slen(jobz)capi_jobz_len = 1; | |||
| 53426 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.ssygvx to C string"); | |||
| 53427 | if (f2py_success) { | |||
| 53428 | CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","ssygvx:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygvx:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'" ") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 53429 | /* Processing variable uplo */ | |||
| 53430 | slen(uplo)capi_uplo_len = 1; | |||
| 53431 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 4th keyword `uplo' of _flapack.ssygvx to C string"); | |||
| 53432 | if (f2py_success) { | |||
| 53433 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","4th keyword uplo","ssygvx:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygvx:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""4th keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 53434 | /* Processing variable il */ | |||
| 53435 | if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else | |||
| 53436 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.ssygvx() 7th keyword (il) can't be converted to int"); | |||
| 53437 | if (f2py_success) { | |||
| 53438 | /* Processing variable vl */ | |||
| 53439 | if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else | |||
| 53440 | f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.ssygvx() 5th keyword (vl) can't be converted to float"); | |||
| 53441 | if (f2py_success) { | |||
| 53442 | /* Processing variable abstol */ | |||
| 53443 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 53444 | f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.ssygvx() 9th keyword (abstol) can't be converted to float"); | |||
| 53445 | if (f2py_success) { | |||
| 53446 | /* Processing variable a */ | |||
| 53447 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 53448 | ; | |||
| 53449 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 53450 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 53451 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 53452 | if (!PyErr_Occurred()) | |||
| 53453 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssygvx to C/Fortran array" ); | |||
| 53454 | } else { | |||
| 53455 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 53456 | ||||
| 53457 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 53458 | /* Processing variable m */ | |||
| 53459 | /* Processing variable info */ | |||
| 53460 | /* Processing variable range */ | |||
| 53461 | slen(range)capi_range_len = 1; | |||
| 53462 | f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 3rd keyword `range' of _flapack.ssygvx to C string"); | |||
| 53463 | if (f2py_success) { | |||
| 53464 | CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","3rd keyword range","ssygvx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ssygvx:slen(range)=%d range=\"%s\"" , "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""3rd keyword range" , capi_range_len, range); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 53465 | /* Processing variable n */ | |||
| 53466 | n = shape(a,0)a_Dims[0]; | |||
| 53467 | /* Processing variable iu */ | |||
| 53468 | if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else | |||
| 53469 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.ssygvx() 8th keyword (iu) can't be converted to int"); | |||
| 53470 | if (f2py_success) { | |||
| 53471 | /* Processing variable vu */ | |||
| 53472 | if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else | |||
| 53473 | f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.ssygvx() 6th keyword (vu) can't be converted to float"); | |||
| 53474 | if (f2py_success) { | |||
| 53475 | CHECKSCALAR(vu>vl,"vu>vl","6th keyword vu","ssygvx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygvx:vu=%g", "(""vu>vl"") failed for ""6th keyword vu" , vu); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 53476 | /* Processing variable lwork */ | |||
| 53477 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else | |||
| 53478 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssygvx() 10th keyword (lwork) can't be converted to int"); | |||
| 53479 | if (f2py_success) { | |||
| 53480 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","10th keyword lwork","ssygvx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygvx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "10th keyword lwork", lwork); PyErr_SetString(_flapack_error, errstring); } else { | |||
| 53481 | /* Processing variable b */ | |||
| 53482 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 53483 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 53484 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 53485 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 53486 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 53487 | if (!PyErr_Occurred()) | |||
| 53488 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ssygvx to C/Fortran array" ); | |||
| 53489 | } else { | |||
| 53490 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 53491 | ||||
| 53492 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 53493 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 53494 | /* Processing variable lda */ | |||
| 53495 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 53496 | /* Processing variable ldb */ | |||
| 53497 | ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 53498 | /* Processing variable work */ | |||
| 53499 | work_Dims[0]=lwork; | |||
| 53500 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 53501 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 53502 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 53503 | if (!PyErr_Occurred()) | |||
| 53504 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssygvx to C/Fortran array" ); | |||
| 53505 | } else { | |||
| 53506 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 53507 | ||||
| 53508 | /* Processing variable iwork */ | |||
| 53509 | iwork_Dims[0]=5 * n; | |||
| 53510 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 53511 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 53512 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 53513 | if (!PyErr_Occurred()) | |||
| 53514 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssygvx to C/Fortran array" ); | |||
| 53515 | } else { | |||
| 53516 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 53517 | ||||
| 53518 | /* Processing variable w */ | |||
| 53519 | w_Dims[0]=n; | |||
| 53520 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 53521 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 53522 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 53523 | if (!PyErr_Occurred()) | |||
| 53524 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssygvx to C/Fortran array" ); | |||
| 53525 | } else { | |||
| 53526 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 53527 | ||||
| 53528 | /* Processing variable z */ | |||
| 53529 | z_Dims[0]=(jobz[0]=='V'?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0); | |||
| 53530 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 53531 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 53532 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 53533 | if (!PyErr_Occurred()) | |||
| 53534 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.ssygvx to C/Fortran array" ); | |||
| 53535 | } else { | |||
| 53536 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 53537 | ||||
| 53538 | /* Processing variable ifail */ | |||
| 53539 | ifail_Dims[0]=(jobz[0]=='N'?0:n); | |||
| 53540 | capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 53541 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 53542 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 53543 | if (!PyErr_Occurred()) | |||
| 53544 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.ssygvx to C/Fortran array" ); | |||
| 53545 | } else { | |||
| 53546 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 53547 | ||||
| 53548 | /* Processing variable ldz */ | |||
| 53549 | ldz = MAX(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 53550 | /*end of frompyobj*/ | |||
| 53551 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53552 | f2py_start_call_clock(); | |||
| 53553 | #endif | |||
| 53554 | /*callfortranroutine*/ | |||
| 53555 | (*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,iwork,ifail,&info) ; | |||
| 53556 | /*(*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,iwork,ifail,&info,slen(jobz),slen(range),slen(uplo));*/ | |||
| 53557 | if (PyErr_Occurred()) | |||
| 53558 | f2py_success = 0; | |||
| 53559 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53560 | f2py_stop_call_clock(); | |||
| 53561 | #endif | |||
| 53562 | /*end of callfortranroutine*/ | |||
| 53563 | if (f2py_success) { | |||
| 53564 | /*pyobjfrom*/ | |||
| 53565 | /*end of pyobjfrom*/ | |||
| 53566 | CFUNCSMESS("Building return value.\n"); | |||
| 53567 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info); | |||
| 53568 | /*closepyobjfrom*/ | |||
| 53569 | /*end of closepyobjfrom*/ | |||
| 53570 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 53571 | /*cleanupfrompyobj*/ | |||
| 53572 | /* End of cleaning variable ldz */ | |||
| 53573 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 53574 | /* End of cleaning variable ifail */ | |||
| 53575 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 53576 | /* End of cleaning variable z */ | |||
| 53577 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 53578 | /* End of cleaning variable w */ | |||
| 53579 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 53580 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 53581 | /* End of cleaning variable iwork */ | |||
| 53582 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 53583 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 53584 | /* End of cleaning variable work */ | |||
| 53585 | /* End of cleaning variable ldb */ | |||
| 53586 | /* End of cleaning variable lda */ | |||
| 53587 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 53588 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 53589 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 53590 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 53591 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 53592 | /* End of cleaning variable b */ | |||
| 53593 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 53594 | } /*if (f2py_success) of lwork*/ | |||
| 53595 | /* End of cleaning variable lwork */ | |||
| 53596 | } /*CHECKSCALAR(vu>vl)*/ | |||
| 53597 | } /*if (f2py_success) of vu*/ | |||
| 53598 | /* End of cleaning variable vu */ | |||
| 53599 | } /*if (f2py_success) of iu*/ | |||
| 53600 | /* End of cleaning variable iu */ | |||
| 53601 | /* End of cleaning variable n */ | |||
| 53602 | } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/ | |||
| 53603 | STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0); | |||
| 53604 | } /*if (f2py_success) of range*/ | |||
| 53605 | /* End of cleaning variable range */ | |||
| 53606 | /* End of cleaning variable info */ | |||
| 53607 | /* End of cleaning variable m */ | |||
| 53608 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 53609 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 53610 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 53611 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 53612 | /* End of cleaning variable a */ | |||
| 53613 | } /*if (f2py_success) of abstol*/ | |||
| 53614 | /* End of cleaning variable abstol */ | |||
| 53615 | } /*if (f2py_success) of vl*/ | |||
| 53616 | /* End of cleaning variable vl */ | |||
| 53617 | } /*if (f2py_success) of il*/ | |||
| 53618 | /* End of cleaning variable il */ | |||
| 53619 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 53620 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 53621 | } /*if (f2py_success) of uplo*/ | |||
| 53622 | /* End of cleaning variable uplo */ | |||
| 53623 | } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/ | |||
| 53624 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 53625 | } /*if (f2py_success) of jobz*/ | |||
| 53626 | /* End of cleaning variable jobz */ | |||
| 53627 | } /*CHECKSCALAR(itype>0||itype<4)*/ | |||
| 53628 | } /*if (f2py_success) of itype*/ | |||
| 53629 | /* End of cleaning variable itype */ | |||
| 53630 | /*end of cleanupfrompyobj*/ | |||
| 53631 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 53632 | /*routdebugfailure*/ | |||
| 53633 | } else { | |||
| 53634 | /*routdebugleave*/ | |||
| 53635 | } | |||
| 53636 | CFUNCSMESS("Freeing memory.\n"); | |||
| 53637 | /*freemem*/ | |||
| 53638 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53639 | f2py_stop_clock(); | |||
| 53640 | #endif | |||
| 53641 | return capi_buildvalue; | |||
| 53642 | } | |||
| 53643 | /******************************* end of ssygvx *******************************/ | |||
| 53644 | ||||
| 53645 | /*********************************** dsygvx ***********************************/ | |||
| 53646 | static char doc_f2py_rout__flapack_dsygvx[] = "\ | |||
| 53647 | w,z,m,ifail,info = dsygvx(a,b,[itype,jobz,range,uplo,vl,vu,il,iu,abstol,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``dsygvx``.\ | |||
| 53648 | \n\nParameters\n----------\n" | |||
| 53649 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 53650 | "b : input rank-2 array('d') with bounds (n,n)\n" | |||
| 53651 | "\nOther Parameters\n----------------\n" | |||
| 53652 | "itype : input int, optional\n Default: 1\n" | |||
| 53653 | "jobz : input string(len=1), optional\n Default: 'V'\n" | |||
| 53654 | "range : input string(len=1), optional\n Default: 'A'\n" | |||
| 53655 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 53656 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 53657 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 53658 | "vl : input float, optional\n Default: 0.0\n" | |||
| 53659 | "vu : input float, optional\n Default: 1.0\n" | |||
| 53660 | "il : input int, optional\n Default: 1\n" | |||
| 53661 | "iu : input int, optional\n Default: n\n" | |||
| 53662 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 53663 | "lwork : input int, optional\n Default: max(8*n,1)\n" | |||
| 53664 | "\nReturns\n-------\n" | |||
| 53665 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 53666 | "z : rank-2 array('d') with bounds ((jobz[0]=='V'?MAX(0,n):0),(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)):0))\n" | |||
| 53667 | "m : int\n" | |||
| 53668 | "ifail : rank-1 array('i') with bounds ((jobz[0]=='N'?0:n))\n" | |||
| 53669 | "info : int"; | |||
| 53670 | /* extern void F_FUNC(dsygvx,DSYGVX)(F_INT*,char*,char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 53671 | static PyObject *f2py_rout__flapack_dsygvx(const PyObject *capi_self, | |||
| 53672 | PyObject *capi_args, | |||
| 53673 | PyObject *capi_keywds, | |||
| 53674 | void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 53675 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 53676 | volatile int f2py_success = 1; | |||
| 53677 | /*decl*/ | |||
| 53678 | ||||
| 53679 | int itype = 0; | |||
| 53680 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 53681 | string jobz = NULL((void*)0); | |||
| 53682 | int slen(jobz)capi_jobz_len; | |||
| 53683 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 53684 | string range = NULL((void*)0); | |||
| 53685 | int slen(range)capi_range_len; | |||
| 53686 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 53687 | string uplo = NULL((void*)0); | |||
| 53688 | int slen(uplo)capi_uplo_len; | |||
| 53689 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 53690 | int n = 0; | |||
| 53691 | double *a = NULL((void*)0); | |||
| 53692 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 53693 | const int a_Rank = 2; | |||
| 53694 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 53695 | int capi_a_intent = 0; | |||
| 53696 | int capi_overwrite_a = 0; | |||
| 53697 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 53698 | int lda = 0; | |||
| 53699 | double *b = NULL((void*)0); | |||
| 53700 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 53701 | const int b_Rank = 2; | |||
| 53702 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 53703 | int capi_b_intent = 0; | |||
| 53704 | int capi_overwrite_b = 0; | |||
| 53705 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 53706 | int ldb = 0; | |||
| 53707 | double vl = 0; | |||
| 53708 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 53709 | double vu = 0; | |||
| 53710 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 53711 | int il = 0; | |||
| 53712 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 53713 | int iu = 0; | |||
| 53714 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 53715 | double abstol = 0; | |||
| 53716 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 53717 | double *w = NULL((void*)0); | |||
| 53718 | npy_intp w_Dims[1] = {-1}; | |||
| 53719 | const int w_Rank = 1; | |||
| 53720 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 53721 | int capi_w_intent = 0; | |||
| 53722 | double *z = NULL((void*)0); | |||
| 53723 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 53724 | const int z_Rank = 2; | |||
| 53725 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 53726 | int capi_z_intent = 0; | |||
| 53727 | int m = 0; | |||
| 53728 | int ldz = 0; | |||
| 53729 | double *work = NULL((void*)0); | |||
| 53730 | npy_intp work_Dims[1] = {-1}; | |||
| 53731 | const int work_Rank = 1; | |||
| 53732 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 53733 | int capi_work_intent = 0; | |||
| 53734 | int lwork = 0; | |||
| 53735 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 53736 | int *iwork = NULL((void*)0); | |||
| 53737 | npy_intp iwork_Dims[1] = {-1}; | |||
| 53738 | const int iwork_Rank = 1; | |||
| 53739 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 53740 | int capi_iwork_intent = 0; | |||
| 53741 | int *ifail = NULL((void*)0); | |||
| 53742 | npy_intp ifail_Dims[1] = {-1}; | |||
| 53743 | const int ifail_Rank = 1; | |||
| 53744 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 53745 | int capi_ifail_intent = 0; | |||
| 53746 | int info = 0; | |||
| 53747 | static char *capi_kwlist[] = {"a","b","itype","jobz","range","uplo","vl","vu","il","iu","abstol","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 53748 | ||||
| 53749 | /*routdebugenter*/ | |||
| 53750 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53751 | f2py_start_clock(); | |||
| 53752 | #endif | |||
| 53753 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 53754 | "OO|OOOOOOOOOOii:_flapack.dsygvx",\ | |||
| 53755 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&range_capi,&uplo_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 53756 | return NULL((void*)0); | |||
| 53757 | /*frompyobj*/ | |||
| 53758 | /* Processing variable itype */ | |||
| 53759 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 53760 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.dsygvx() 1st keyword (itype) can't be converted to int"); | |||
| 53761 | if (f2py_success) { | |||
| 53762 | CHECKSCALAR(itype>0||itype<4,"itype>0||itype<4","1st keyword itype","dsygvx:itype=%d",itype)if (!(itype>0||itype<4)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygvx:itype=%d", "(""itype>0||itype<4"") failed for " "1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 53763 | /* Processing variable jobz */ | |||
| 53764 | slen(jobz)capi_jobz_len = 1; | |||
| 53765 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.dsygvx to C string"); | |||
| 53766 | if (f2py_success) { | |||
| 53767 | CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","dsygvx:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygvx:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'" ") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 53768 | /* Processing variable uplo */ | |||
| 53769 | slen(uplo)capi_uplo_len = 1; | |||
| 53770 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 4th keyword `uplo' of _flapack.dsygvx to C string"); | |||
| 53771 | if (f2py_success) { | |||
| 53772 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","4th keyword uplo","dsygvx:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygvx:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""4th keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 53773 | /* Processing variable il */ | |||
| 53774 | if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else | |||
| 53775 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dsygvx() 7th keyword (il) can't be converted to int"); | |||
| 53776 | if (f2py_success) { | |||
| 53777 | /* Processing variable vl */ | |||
| 53778 | if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else | |||
| 53779 | f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dsygvx() 5th keyword (vl) can't be converted to double"); | |||
| 53780 | if (f2py_success) { | |||
| 53781 | /* Processing variable abstol */ | |||
| 53782 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 53783 | f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.dsygvx() 9th keyword (abstol) can't be converted to double"); | |||
| 53784 | if (f2py_success) { | |||
| 53785 | /* Processing variable a */ | |||
| 53786 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 53787 | ; | |||
| 53788 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 53789 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 53790 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 53791 | if (!PyErr_Occurred()) | |||
| 53792 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsygvx to C/Fortran array" ); | |||
| 53793 | } else { | |||
| 53794 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 53795 | ||||
| 53796 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 53797 | /* Processing variable m */ | |||
| 53798 | /* Processing variable info */ | |||
| 53799 | /* Processing variable range */ | |||
| 53800 | slen(range)capi_range_len = 1; | |||
| 53801 | f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 3rd keyword `range' of _flapack.dsygvx to C string"); | |||
| 53802 | if (f2py_success) { | |||
| 53803 | CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","3rd keyword range","dsygvx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dsygvx:slen(range)=%d range=\"%s\"" , "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""3rd keyword range" , capi_range_len, range); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 53804 | /* Processing variable n */ | |||
| 53805 | n = shape(a,0)a_Dims[0]; | |||
| 53806 | /* Processing variable iu */ | |||
| 53807 | if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else | |||
| 53808 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dsygvx() 8th keyword (iu) can't be converted to int"); | |||
| 53809 | if (f2py_success) { | |||
| 53810 | /* Processing variable vu */ | |||
| 53811 | if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else | |||
| 53812 | f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dsygvx() 6th keyword (vu) can't be converted to double"); | |||
| 53813 | if (f2py_success) { | |||
| 53814 | CHECKSCALAR(vu>vl,"vu>vl","6th keyword vu","dsygvx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygvx:vu=%g", "(""vu>vl"") failed for ""6th keyword vu" , vu); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 53815 | /* Processing variable lwork */ | |||
| 53816 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else | |||
| 53817 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsygvx() 10th keyword (lwork) can't be converted to int"); | |||
| 53818 | if (f2py_success) { | |||
| 53819 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","10th keyword lwork","dsygvx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygvx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "10th keyword lwork", lwork); PyErr_SetString(_flapack_error, errstring); } else { | |||
| 53820 | /* Processing variable b */ | |||
| 53821 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 53822 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 53823 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 53824 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 53825 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 53826 | if (!PyErr_Occurred()) | |||
| 53827 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dsygvx to C/Fortran array" ); | |||
| 53828 | } else { | |||
| 53829 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 53830 | ||||
| 53831 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 53832 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 53833 | /* Processing variable lda */ | |||
| 53834 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 53835 | /* Processing variable ldb */ | |||
| 53836 | ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 53837 | /* Processing variable work */ | |||
| 53838 | work_Dims[0]=lwork; | |||
| 53839 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 53840 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 53841 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 53842 | if (!PyErr_Occurred()) | |||
| 53843 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsygvx to C/Fortran array" ); | |||
| 53844 | } else { | |||
| 53845 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 53846 | ||||
| 53847 | /* Processing variable iwork */ | |||
| 53848 | iwork_Dims[0]=5 * n; | |||
| 53849 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 53850 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 53851 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 53852 | if (!PyErr_Occurred()) | |||
| 53853 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsygvx to C/Fortran array" ); | |||
| 53854 | } else { | |||
| 53855 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 53856 | ||||
| 53857 | /* Processing variable w */ | |||
| 53858 | w_Dims[0]=n; | |||
| 53859 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 53860 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 53861 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 53862 | if (!PyErr_Occurred()) | |||
| 53863 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsygvx to C/Fortran array" ); | |||
| 53864 | } else { | |||
| 53865 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 53866 | ||||
| 53867 | /* Processing variable z */ | |||
| 53868 | z_Dims[0]=(jobz[0]=='V'?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0); | |||
| 53869 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 53870 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 53871 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 53872 | if (!PyErr_Occurred()) | |||
| 53873 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dsygvx to C/Fortran array" ); | |||
| 53874 | } else { | |||
| 53875 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 53876 | ||||
| 53877 | /* Processing variable ifail */ | |||
| 53878 | ifail_Dims[0]=(jobz[0]=='N'?0:n); | |||
| 53879 | capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 53880 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 53881 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 53882 | if (!PyErr_Occurred()) | |||
| 53883 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.dsygvx to C/Fortran array" ); | |||
| 53884 | } else { | |||
| 53885 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 53886 | ||||
| 53887 | /* Processing variable ldz */ | |||
| 53888 | ldz = MAX(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 53889 | /*end of frompyobj*/ | |||
| 53890 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53891 | f2py_start_call_clock(); | |||
| 53892 | #endif | |||
| 53893 | /*callfortranroutine*/ | |||
| 53894 | (*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,iwork,ifail,&info) ; | |||
| 53895 | /*(*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,iwork,ifail,&info,slen(jobz),slen(range),slen(uplo));*/ | |||
| 53896 | if (PyErr_Occurred()) | |||
| 53897 | f2py_success = 0; | |||
| 53898 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53899 | f2py_stop_call_clock(); | |||
| 53900 | #endif | |||
| 53901 | /*end of callfortranroutine*/ | |||
| 53902 | if (f2py_success) { | |||
| 53903 | /*pyobjfrom*/ | |||
| 53904 | /*end of pyobjfrom*/ | |||
| 53905 | CFUNCSMESS("Building return value.\n"); | |||
| 53906 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info); | |||
| 53907 | /*closepyobjfrom*/ | |||
| 53908 | /*end of closepyobjfrom*/ | |||
| 53909 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 53910 | /*cleanupfrompyobj*/ | |||
| 53911 | /* End of cleaning variable ldz */ | |||
| 53912 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 53913 | /* End of cleaning variable ifail */ | |||
| 53914 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 53915 | /* End of cleaning variable z */ | |||
| 53916 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 53917 | /* End of cleaning variable w */ | |||
| 53918 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 53919 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 53920 | /* End of cleaning variable iwork */ | |||
| 53921 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 53922 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 53923 | /* End of cleaning variable work */ | |||
| 53924 | /* End of cleaning variable ldb */ | |||
| 53925 | /* End of cleaning variable lda */ | |||
| 53926 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 53927 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 53928 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 53929 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 53930 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 53931 | /* End of cleaning variable b */ | |||
| 53932 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 53933 | } /*if (f2py_success) of lwork*/ | |||
| 53934 | /* End of cleaning variable lwork */ | |||
| 53935 | } /*CHECKSCALAR(vu>vl)*/ | |||
| 53936 | } /*if (f2py_success) of vu*/ | |||
| 53937 | /* End of cleaning variable vu */ | |||
| 53938 | } /*if (f2py_success) of iu*/ | |||
| 53939 | /* End of cleaning variable iu */ | |||
| 53940 | /* End of cleaning variable n */ | |||
| 53941 | } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/ | |||
| 53942 | STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0); | |||
| 53943 | } /*if (f2py_success) of range*/ | |||
| 53944 | /* End of cleaning variable range */ | |||
| 53945 | /* End of cleaning variable info */ | |||
| 53946 | /* End of cleaning variable m */ | |||
| 53947 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 53948 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 53949 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 53950 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 53951 | /* End of cleaning variable a */ | |||
| 53952 | } /*if (f2py_success) of abstol*/ | |||
| 53953 | /* End of cleaning variable abstol */ | |||
| 53954 | } /*if (f2py_success) of vl*/ | |||
| 53955 | /* End of cleaning variable vl */ | |||
| 53956 | } /*if (f2py_success) of il*/ | |||
| 53957 | /* End of cleaning variable il */ | |||
| 53958 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 53959 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 53960 | } /*if (f2py_success) of uplo*/ | |||
| 53961 | /* End of cleaning variable uplo */ | |||
| 53962 | } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/ | |||
| 53963 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 53964 | } /*if (f2py_success) of jobz*/ | |||
| 53965 | /* End of cleaning variable jobz */ | |||
| 53966 | } /*CHECKSCALAR(itype>0||itype<4)*/ | |||
| 53967 | } /*if (f2py_success) of itype*/ | |||
| 53968 | /* End of cleaning variable itype */ | |||
| 53969 | /*end of cleanupfrompyobj*/ | |||
| 53970 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 53971 | /*routdebugfailure*/ | |||
| 53972 | } else { | |||
| 53973 | /*routdebugleave*/ | |||
| 53974 | } | |||
| 53975 | CFUNCSMESS("Freeing memory.\n"); | |||
| 53976 | /*freemem*/ | |||
| 53977 | #ifdef F2PY_REPORT_ATEXIT | |||
| 53978 | f2py_stop_clock(); | |||
| 53979 | #endif | |||
| 53980 | return capi_buildvalue; | |||
| 53981 | } | |||
| 53982 | /******************************* end of dsygvx *******************************/ | |||
| 53983 | ||||
| 53984 | /******************************** ssygvx_lwork ********************************/ | |||
| 53985 | static char doc_f2py_rout__flapack_ssygvx_lwork[] = "\ | |||
| 53986 | work,info = ssygvx_lwork(n,[uplo])\n\nWrapper for ``ssygvx_lwork``.\ | |||
| 53987 | \n\nParameters\n----------\n" | |||
| 53988 | "n : input int\n" | |||
| 53989 | "\nOther Parameters\n----------------\n" | |||
| 53990 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 53991 | "\nReturns\n-------\n" | |||
| 53992 | "work : float\n" | |||
| 53993 | "info : int"; | |||
| 53994 | /* extern void F_FUNC(ssygvx ,SSYGVX )(F_INT*,char*,char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 53995 | static PyObject *f2py_rout__flapack_ssygvx_lwork(const PyObject *capi_self, | |||
| 53996 | PyObject *capi_args, | |||
| 53997 | PyObject *capi_keywds, | |||
| 53998 | void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 53999 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 54000 | volatile int f2py_success = 1; | |||
| 54001 | /*decl*/ | |||
| 54002 | ||||
| 54003 | int itype = 0; | |||
| 54004 | string uplo = NULL((void*)0); | |||
| 54005 | int slen(uplo)capi_uplo_len; | |||
| 54006 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 54007 | int n = 0; | |||
| 54008 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 54009 | float a = 0; | |||
| 54010 | int lda = 0; | |||
| 54011 | float b = 0; | |||
| 54012 | int ldb = 0; | |||
| 54013 | float vl = 0; | |||
| 54014 | float vu = 0; | |||
| 54015 | int il = 0; | |||
| 54016 | int iu = 0; | |||
| 54017 | float abstol = 0; | |||
| 54018 | int m = 0; | |||
| 54019 | float w = 0; | |||
| 54020 | float z = 0; | |||
| 54021 | int ldz = 0; | |||
| 54022 | float work = 0; | |||
| 54023 | int lwork = 0; | |||
| 54024 | int iwork = 0; | |||
| 54025 | int ifail = 0; | |||
| 54026 | int info = 0; | |||
| 54027 | static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)}; | |||
| 54028 | ||||
| 54029 | /*routdebugenter*/ | |||
| 54030 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54031 | f2py_start_clock(); | |||
| 54032 | #endif | |||
| 54033 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 54034 | "O|O:_flapack.ssygvx_lwork",\ | |||
| 54035 | capi_kwlist,&n_capi,&uplo_capi)) | |||
| 54036 | return NULL((void*)0); | |||
| 54037 | /*frompyobj*/ | |||
| 54038 | /* Processing variable n */ | |||
| 54039 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssygvx_lwork() 1st argument (n) can't be converted to int"); | |||
| 54040 | if (f2py_success) { | |||
| 54041 | /* Processing variable uplo */ | |||
| 54042 | slen(uplo)capi_uplo_len = 1; | |||
| 54043 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ssygvx_lwork to C string"); | |||
| 54044 | if (f2py_success) { | |||
| 54045 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ssygvx_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssygvx_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 54046 | /* Processing variable itype */ | |||
| 54047 | itype = 1; | |||
| 54048 | /* Processing variable a */ | |||
| 54049 | /* Processing variable b */ | |||
| 54050 | /* Processing variable il */ | |||
| 54051 | il = 1; | |||
| 54052 | /* Processing variable iu */ | |||
| 54053 | iu = 0; | |||
| 54054 | /* Processing variable vl */ | |||
| 54055 | vl = 0.0; | |||
| 54056 | /* Processing variable vu */ | |||
| 54057 | vu = 1.0; | |||
| 54058 | /* Processing variable abstol */ | |||
| 54059 | abstol = 0.0; | |||
| 54060 | /* Processing variable m */ | |||
| 54061 | /* Processing variable w */ | |||
| 54062 | /* Processing variable z */ | |||
| 54063 | /* Processing variable lwork */ | |||
| 54064 | lwork = -1; | |||
| 54065 | /* Processing variable iwork */ | |||
| 54066 | /* Processing variable ifail */ | |||
| 54067 | /* Processing variable work */ | |||
| 54068 | /* Processing variable info */ | |||
| 54069 | /* Processing variable lda */ | |||
| 54070 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 54071 | /* Processing variable ldb */ | |||
| 54072 | ldb = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 54073 | /* Processing variable ldz */ | |||
| 54074 | ldz = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 54075 | /*end of frompyobj*/ | |||
| 54076 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54077 | f2py_start_call_clock(); | |||
| 54078 | #endif | |||
| 54079 | /*callfortranroutine*/ | |||
| 54080 | (*f2py_func)(&itype,"N","A",uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info) ; | |||
| 54081 | /*(*f2py_func)(&itype,uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info,slen(uplo));*/ | |||
| 54082 | if (PyErr_Occurred()) | |||
| 54083 | f2py_success = 0; | |||
| 54084 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54085 | f2py_stop_call_clock(); | |||
| 54086 | #endif | |||
| 54087 | /*end of callfortranroutine*/ | |||
| 54088 | if (f2py_success) { | |||
| 54089 | /*pyobjfrom*/ | |||
| 54090 | /*end of pyobjfrom*/ | |||
| 54091 | CFUNCSMESS("Building return value.\n"); | |||
| 54092 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 54093 | /*closepyobjfrom*/ | |||
| 54094 | /*end of closepyobjfrom*/ | |||
| 54095 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 54096 | /*cleanupfrompyobj*/ | |||
| 54097 | /* End of cleaning variable ldz */ | |||
| 54098 | /* End of cleaning variable ldb */ | |||
| 54099 | /* End of cleaning variable lda */ | |||
| 54100 | /* End of cleaning variable info */ | |||
| 54101 | /* End of cleaning variable work */ | |||
| 54102 | /* End of cleaning variable ifail */ | |||
| 54103 | /* End of cleaning variable iwork */ | |||
| 54104 | /* End of cleaning variable lwork */ | |||
| 54105 | /* End of cleaning variable z */ | |||
| 54106 | /* End of cleaning variable w */ | |||
| 54107 | /* End of cleaning variable m */ | |||
| 54108 | /* End of cleaning variable abstol */ | |||
| 54109 | /* End of cleaning variable vu */ | |||
| 54110 | /* End of cleaning variable vl */ | |||
| 54111 | /* End of cleaning variable iu */ | |||
| 54112 | /* End of cleaning variable il */ | |||
| 54113 | /* End of cleaning variable b */ | |||
| 54114 | /* End of cleaning variable a */ | |||
| 54115 | /* End of cleaning variable itype */ | |||
| 54116 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 54117 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 54118 | } /*if (f2py_success) of uplo*/ | |||
| 54119 | /* End of cleaning variable uplo */ | |||
| 54120 | } /*if (f2py_success) of n*/ | |||
| 54121 | /* End of cleaning variable n */ | |||
| 54122 | /*end of cleanupfrompyobj*/ | |||
| 54123 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 54124 | /*routdebugfailure*/ | |||
| 54125 | } else { | |||
| 54126 | /*routdebugleave*/ | |||
| 54127 | } | |||
| 54128 | CFUNCSMESS("Freeing memory.\n"); | |||
| 54129 | /*freemem*/ | |||
| 54130 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54131 | f2py_stop_clock(); | |||
| 54132 | #endif | |||
| 54133 | return capi_buildvalue; | |||
| 54134 | } | |||
| 54135 | /**************************** end of ssygvx_lwork ****************************/ | |||
| 54136 | ||||
| 54137 | /******************************** dsygvx_lwork ********************************/ | |||
| 54138 | static char doc_f2py_rout__flapack_dsygvx_lwork[] = "\ | |||
| 54139 | work,info = dsygvx_lwork(n,[uplo])\n\nWrapper for ``dsygvx_lwork``.\ | |||
| 54140 | \n\nParameters\n----------\n" | |||
| 54141 | "n : input int\n" | |||
| 54142 | "\nOther Parameters\n----------------\n" | |||
| 54143 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 54144 | "\nReturns\n-------\n" | |||
| 54145 | "work : float\n" | |||
| 54146 | "info : int"; | |||
| 54147 | /* extern void F_FUNC(dsygvx ,DSYGVX )(F_INT*,char*,char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 54148 | static PyObject *f2py_rout__flapack_dsygvx_lwork(const PyObject *capi_self, | |||
| 54149 | PyObject *capi_args, | |||
| 54150 | PyObject *capi_keywds, | |||
| 54151 | void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 54152 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 54153 | volatile int f2py_success = 1; | |||
| 54154 | /*decl*/ | |||
| 54155 | ||||
| 54156 | int itype = 0; | |||
| 54157 | string uplo = NULL((void*)0); | |||
| 54158 | int slen(uplo)capi_uplo_len; | |||
| 54159 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 54160 | int n = 0; | |||
| 54161 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 54162 | double a = 0; | |||
| 54163 | int lda = 0; | |||
| 54164 | double b = 0; | |||
| 54165 | int ldb = 0; | |||
| 54166 | double vl = 0; | |||
| 54167 | double vu = 0; | |||
| 54168 | int il = 0; | |||
| 54169 | int iu = 0; | |||
| 54170 | double abstol = 0; | |||
| 54171 | int m = 0; | |||
| 54172 | double w = 0; | |||
| 54173 | double z = 0; | |||
| 54174 | int ldz = 0; | |||
| 54175 | double work = 0; | |||
| 54176 | int lwork = 0; | |||
| 54177 | int iwork = 0; | |||
| 54178 | int ifail = 0; | |||
| 54179 | int info = 0; | |||
| 54180 | static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)}; | |||
| 54181 | ||||
| 54182 | /*routdebugenter*/ | |||
| 54183 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54184 | f2py_start_clock(); | |||
| 54185 | #endif | |||
| 54186 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 54187 | "O|O:_flapack.dsygvx_lwork",\ | |||
| 54188 | capi_kwlist,&n_capi,&uplo_capi)) | |||
| 54189 | return NULL((void*)0); | |||
| 54190 | /*frompyobj*/ | |||
| 54191 | /* Processing variable n */ | |||
| 54192 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsygvx_lwork() 1st argument (n) can't be converted to int"); | |||
| 54193 | if (f2py_success) { | |||
| 54194 | /* Processing variable uplo */ | |||
| 54195 | slen(uplo)capi_uplo_len = 1; | |||
| 54196 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.dsygvx_lwork to C string"); | |||
| 54197 | if (f2py_success) { | |||
| 54198 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","dsygvx_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsygvx_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 54199 | /* Processing variable itype */ | |||
| 54200 | itype = 1; | |||
| 54201 | /* Processing variable a */ | |||
| 54202 | /* Processing variable b */ | |||
| 54203 | /* Processing variable il */ | |||
| 54204 | il = 1; | |||
| 54205 | /* Processing variable iu */ | |||
| 54206 | iu = 0; | |||
| 54207 | /* Processing variable vl */ | |||
| 54208 | vl = 0.0; | |||
| 54209 | /* Processing variable vu */ | |||
| 54210 | vu = 1.0; | |||
| 54211 | /* Processing variable abstol */ | |||
| 54212 | abstol = 0.0; | |||
| 54213 | /* Processing variable m */ | |||
| 54214 | /* Processing variable w */ | |||
| 54215 | /* Processing variable z */ | |||
| 54216 | /* Processing variable lwork */ | |||
| 54217 | lwork = -1; | |||
| 54218 | /* Processing variable iwork */ | |||
| 54219 | /* Processing variable ifail */ | |||
| 54220 | /* Processing variable work */ | |||
| 54221 | /* Processing variable info */ | |||
| 54222 | /* Processing variable lda */ | |||
| 54223 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 54224 | /* Processing variable ldb */ | |||
| 54225 | ldb = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 54226 | /* Processing variable ldz */ | |||
| 54227 | ldz = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 54228 | /*end of frompyobj*/ | |||
| 54229 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54230 | f2py_start_call_clock(); | |||
| 54231 | #endif | |||
| 54232 | /*callfortranroutine*/ | |||
| 54233 | (*f2py_func)(&itype,"N","A",uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info) ; | |||
| 54234 | /*(*f2py_func)(&itype,uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info,slen(uplo));*/ | |||
| 54235 | if (PyErr_Occurred()) | |||
| 54236 | f2py_success = 0; | |||
| 54237 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54238 | f2py_stop_call_clock(); | |||
| 54239 | #endif | |||
| 54240 | /*end of callfortranroutine*/ | |||
| 54241 | if (f2py_success) { | |||
| 54242 | /*pyobjfrom*/ | |||
| 54243 | /*end of pyobjfrom*/ | |||
| 54244 | CFUNCSMESS("Building return value.\n"); | |||
| 54245 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 54246 | /*closepyobjfrom*/ | |||
| 54247 | /*end of closepyobjfrom*/ | |||
| 54248 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 54249 | /*cleanupfrompyobj*/ | |||
| 54250 | /* End of cleaning variable ldz */ | |||
| 54251 | /* End of cleaning variable ldb */ | |||
| 54252 | /* End of cleaning variable lda */ | |||
| 54253 | /* End of cleaning variable info */ | |||
| 54254 | /* End of cleaning variable work */ | |||
| 54255 | /* End of cleaning variable ifail */ | |||
| 54256 | /* End of cleaning variable iwork */ | |||
| 54257 | /* End of cleaning variable lwork */ | |||
| 54258 | /* End of cleaning variable z */ | |||
| 54259 | /* End of cleaning variable w */ | |||
| 54260 | /* End of cleaning variable m */ | |||
| 54261 | /* End of cleaning variable abstol */ | |||
| 54262 | /* End of cleaning variable vu */ | |||
| 54263 | /* End of cleaning variable vl */ | |||
| 54264 | /* End of cleaning variable iu */ | |||
| 54265 | /* End of cleaning variable il */ | |||
| 54266 | /* End of cleaning variable b */ | |||
| 54267 | /* End of cleaning variable a */ | |||
| 54268 | /* End of cleaning variable itype */ | |||
| 54269 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 54270 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 54271 | } /*if (f2py_success) of uplo*/ | |||
| 54272 | /* End of cleaning variable uplo */ | |||
| 54273 | } /*if (f2py_success) of n*/ | |||
| 54274 | /* End of cleaning variable n */ | |||
| 54275 | /*end of cleanupfrompyobj*/ | |||
| 54276 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 54277 | /*routdebugfailure*/ | |||
| 54278 | } else { | |||
| 54279 | /*routdebugleave*/ | |||
| 54280 | } | |||
| 54281 | CFUNCSMESS("Freeing memory.\n"); | |||
| 54282 | /*freemem*/ | |||
| 54283 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54284 | f2py_stop_clock(); | |||
| 54285 | #endif | |||
| 54286 | return capi_buildvalue; | |||
| 54287 | } | |||
| 54288 | /**************************** end of dsygvx_lwork ****************************/ | |||
| 54289 | ||||
| 54290 | /*********************************** chegvx ***********************************/ | |||
| 54291 | static char doc_f2py_rout__flapack_chegvx[] = "\ | |||
| 54292 | w,z,m,ifail,info = chegvx(a,b,[itype,jobz,range,uplo,vl,vu,il,iu,abstol,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``chegvx``.\ | |||
| 54293 | \n\nParameters\n----------\n" | |||
| 54294 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 54295 | "b : input rank-2 array('F') with bounds (n,n)\n" | |||
| 54296 | "\nOther Parameters\n----------------\n" | |||
| 54297 | "itype : input int, optional\n Default: 1\n" | |||
| 54298 | "jobz : input string(len=1), optional\n Default: 'V'\n" | |||
| 54299 | "range : input string(len=1), optional\n Default: 'A'\n" | |||
| 54300 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 54301 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 54302 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 54303 | "vl : input float, optional\n Default: 0.0\n" | |||
| 54304 | "vu : input float, optional\n Default: 1.0\n" | |||
| 54305 | "il : input int, optional\n Default: 1\n" | |||
| 54306 | "iu : input int, optional\n Default: n\n" | |||
| 54307 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 54308 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 54309 | "\nReturns\n-------\n" | |||
| 54310 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 54311 | "z : rank-2 array('F') with bounds ((jobz[0]=='V'?MAX(0,n):0),(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)):0))\n" | |||
| 54312 | "m : int\n" | |||
| 54313 | "ifail : rank-1 array('i') with bounds ((jobz[0]=='N'?0:n))\n" | |||
| 54314 | "info : int"; | |||
| 54315 | /* extern void F_FUNC(chegvx,CHEGVX)(F_INT*,char*,char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 54316 | static PyObject *f2py_rout__flapack_chegvx(const PyObject *capi_self, | |||
| 54317 | PyObject *capi_args, | |||
| 54318 | PyObject *capi_keywds, | |||
| 54319 | void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 54320 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 54321 | volatile int f2py_success = 1; | |||
| 54322 | /*decl*/ | |||
| 54323 | ||||
| 54324 | int itype = 0; | |||
| 54325 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 54326 | string jobz = NULL((void*)0); | |||
| 54327 | int slen(jobz)capi_jobz_len; | |||
| 54328 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 54329 | string range = NULL((void*)0); | |||
| 54330 | int slen(range)capi_range_len; | |||
| 54331 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 54332 | string uplo = NULL((void*)0); | |||
| 54333 | int slen(uplo)capi_uplo_len; | |||
| 54334 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 54335 | int n = 0; | |||
| 54336 | complex_float *a = NULL((void*)0); | |||
| 54337 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 54338 | const int a_Rank = 2; | |||
| 54339 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 54340 | int capi_a_intent = 0; | |||
| 54341 | int capi_overwrite_a = 0; | |||
| 54342 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 54343 | int lda = 0; | |||
| 54344 | complex_float *b = NULL((void*)0); | |||
| 54345 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 54346 | const int b_Rank = 2; | |||
| 54347 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 54348 | int capi_b_intent = 0; | |||
| 54349 | int capi_overwrite_b = 0; | |||
| 54350 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 54351 | int ldb = 0; | |||
| 54352 | float vl = 0; | |||
| 54353 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 54354 | float vu = 0; | |||
| 54355 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 54356 | int il = 0; | |||
| 54357 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 54358 | int iu = 0; | |||
| 54359 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 54360 | float abstol = 0; | |||
| 54361 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 54362 | float *w = NULL((void*)0); | |||
| 54363 | npy_intp w_Dims[1] = {-1}; | |||
| 54364 | const int w_Rank = 1; | |||
| 54365 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 54366 | int capi_w_intent = 0; | |||
| 54367 | complex_float *z = NULL((void*)0); | |||
| 54368 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 54369 | const int z_Rank = 2; | |||
| 54370 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 54371 | int capi_z_intent = 0; | |||
| 54372 | int m = 0; | |||
| 54373 | int ldz = 0; | |||
| 54374 | complex_float *work = NULL((void*)0); | |||
| 54375 | npy_intp work_Dims[1] = {-1}; | |||
| 54376 | const int work_Rank = 1; | |||
| 54377 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 54378 | int capi_work_intent = 0; | |||
| 54379 | int lwork = 0; | |||
| 54380 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 54381 | float *rwork = NULL((void*)0); | |||
| 54382 | npy_intp rwork_Dims[1] = {-1}; | |||
| 54383 | const int rwork_Rank = 1; | |||
| 54384 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 54385 | int capi_rwork_intent = 0; | |||
| 54386 | int *iwork = NULL((void*)0); | |||
| 54387 | npy_intp iwork_Dims[1] = {-1}; | |||
| 54388 | const int iwork_Rank = 1; | |||
| 54389 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 54390 | int capi_iwork_intent = 0; | |||
| 54391 | int *ifail = NULL((void*)0); | |||
| 54392 | npy_intp ifail_Dims[1] = {-1}; | |||
| 54393 | const int ifail_Rank = 1; | |||
| 54394 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 54395 | int capi_ifail_intent = 0; | |||
| 54396 | int info = 0; | |||
| 54397 | static char *capi_kwlist[] = {"a","b","itype","jobz","range","uplo","vl","vu","il","iu","abstol","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 54398 | ||||
| 54399 | /*routdebugenter*/ | |||
| 54400 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54401 | f2py_start_clock(); | |||
| 54402 | #endif | |||
| 54403 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 54404 | "OO|OOOOOOOOOOii:_flapack.chegvx",\ | |||
| 54405 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&range_capi,&uplo_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 54406 | return NULL((void*)0); | |||
| 54407 | /*frompyobj*/ | |||
| 54408 | /* Processing variable itype */ | |||
| 54409 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 54410 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.chegvx() 1st keyword (itype) can't be converted to int"); | |||
| 54411 | if (f2py_success) { | |||
| 54412 | CHECKSCALAR(itype>0||itype<4,"itype>0||itype<4","1st keyword itype","chegvx:itype=%d",itype)if (!(itype>0||itype<4)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegvx:itype=%d", "(""itype>0||itype<4"") failed for " "1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 54413 | /* Processing variable jobz */ | |||
| 54414 | slen(jobz)capi_jobz_len = 1; | |||
| 54415 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.chegvx to C string"); | |||
| 54416 | if (f2py_success) { | |||
| 54417 | CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","chegvx:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegvx:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'" ") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 54418 | /* Processing variable uplo */ | |||
| 54419 | slen(uplo)capi_uplo_len = 1; | |||
| 54420 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 4th keyword `uplo' of _flapack.chegvx to C string"); | |||
| 54421 | if (f2py_success) { | |||
| 54422 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","4th keyword uplo","chegvx:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegvx:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""4th keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 54423 | /* Processing variable il */ | |||
| 54424 | if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else | |||
| 54425 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.chegvx() 7th keyword (il) can't be converted to int"); | |||
| 54426 | if (f2py_success) { | |||
| 54427 | /* Processing variable vl */ | |||
| 54428 | if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else | |||
| 54429 | f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.chegvx() 5th keyword (vl) can't be converted to float"); | |||
| 54430 | if (f2py_success) { | |||
| 54431 | /* Processing variable abstol */ | |||
| 54432 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 54433 | f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.chegvx() 9th keyword (abstol) can't be converted to float"); | |||
| 54434 | if (f2py_success) { | |||
| 54435 | /* Processing variable a */ | |||
| 54436 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 54437 | ; | |||
| 54438 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 54439 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 54440 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 54441 | if (!PyErr_Occurred()) | |||
| 54442 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chegvx to C/Fortran array" ); | |||
| 54443 | } else { | |||
| 54444 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 54445 | ||||
| 54446 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 54447 | /* Processing variable m */ | |||
| 54448 | /* Processing variable info */ | |||
| 54449 | /* Processing variable range */ | |||
| 54450 | slen(range)capi_range_len = 1; | |||
| 54451 | f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 3rd keyword `range' of _flapack.chegvx to C string"); | |||
| 54452 | if (f2py_success) { | |||
| 54453 | CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","3rd keyword range","chegvx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""chegvx:slen(range)=%d range=\"%s\"" , "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""3rd keyword range" , capi_range_len, range); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 54454 | /* Processing variable n */ | |||
| 54455 | n = shape(a,0)a_Dims[0]; | |||
| 54456 | /* Processing variable iu */ | |||
| 54457 | if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else | |||
| 54458 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.chegvx() 8th keyword (iu) can't be converted to int"); | |||
| 54459 | if (f2py_success) { | |||
| 54460 | /* Processing variable vu */ | |||
| 54461 | if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else | |||
| 54462 | f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.chegvx() 6th keyword (vu) can't be converted to float"); | |||
| 54463 | if (f2py_success) { | |||
| 54464 | CHECKSCALAR(vu>vl,"vu>vl","6th keyword vu","chegvx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegvx:vu=%g", "(""vu>vl"") failed for ""6th keyword vu" , vu); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 54465 | /* Processing variable lwork */ | |||
| 54466 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 54467 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chegvx() 10th keyword (lwork) can't be converted to int"); | |||
| 54468 | if (f2py_success) { | |||
| 54469 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","10th keyword lwork","chegvx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegvx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "10th keyword lwork", lwork); PyErr_SetString(_flapack_error, errstring); } else { | |||
| 54470 | /* Processing variable b */ | |||
| 54471 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 54472 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 54473 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 54474 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 54475 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 54476 | if (!PyErr_Occurred()) | |||
| 54477 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.chegvx to C/Fortran array" ); | |||
| 54478 | } else { | |||
| 54479 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 54480 | ||||
| 54481 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 54482 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 54483 | /* Processing variable lda */ | |||
| 54484 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 54485 | /* Processing variable ldb */ | |||
| 54486 | ldb = max(1,n)((1 > n) ? (1) : (n)); | |||
| 54487 | /* Processing variable work */ | |||
| 54488 | work_Dims[0]=lwork; | |||
| 54489 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 54490 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 54491 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 54492 | if (!PyErr_Occurred()) | |||
| 54493 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chegvx to C/Fortran array" ); | |||
| 54494 | } else { | |||
| 54495 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 54496 | ||||
| 54497 | /* Processing variable iwork */ | |||
| 54498 | iwork_Dims[0]=5 * n; | |||
| 54499 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 54500 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 54501 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 54502 | if (!PyErr_Occurred()) | |||
| 54503 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.chegvx to C/Fortran array" ); | |||
| 54504 | } else { | |||
| 54505 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 54506 | ||||
| 54507 | /* Processing variable rwork */ | |||
| 54508 | rwork_Dims[0]=7 * n; | |||
| 54509 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 54510 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 54511 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 54512 | if (!PyErr_Occurred()) | |||
| 54513 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.chegvx to C/Fortran array" ); | |||
| 54514 | } else { | |||
| 54515 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 54516 | ||||
| 54517 | /* Processing variable w */ | |||
| 54518 | w_Dims[0]=n; | |||
| 54519 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 54520 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 54521 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 54522 | if (!PyErr_Occurred()) | |||
| 54523 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.chegvx to C/Fortran array" ); | |||
| 54524 | } else { | |||
| 54525 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 54526 | ||||
| 54527 | /* Processing variable z */ | |||
| 54528 | z_Dims[0]=(jobz[0]=='V'?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0); | |||
| 54529 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 54530 | capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 54531 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 54532 | if (!PyErr_Occurred()) | |||
| 54533 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.chegvx to C/Fortran array" ); | |||
| 54534 | } else { | |||
| 54535 | z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 54536 | ||||
| 54537 | /* Processing variable ifail */ | |||
| 54538 | ifail_Dims[0]=(jobz[0]=='N'?0:n); | |||
| 54539 | capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 54540 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 54541 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 54542 | if (!PyErr_Occurred()) | |||
| 54543 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.chegvx to C/Fortran array" ); | |||
| 54544 | } else { | |||
| 54545 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 54546 | ||||
| 54547 | /* Processing variable ldz */ | |||
| 54548 | ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 54549 | /*end of frompyobj*/ | |||
| 54550 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54551 | f2py_start_call_clock(); | |||
| 54552 | #endif | |||
| 54553 | /*callfortranroutine*/ | |||
| 54554 | (*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,rwork,iwork,ifail,&info) ; | |||
| 54555 | /*(*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,rwork,iwork,ifail,&info,slen(jobz),slen(range),slen(uplo));*/ | |||
| 54556 | if (PyErr_Occurred()) | |||
| 54557 | f2py_success = 0; | |||
| 54558 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54559 | f2py_stop_call_clock(); | |||
| 54560 | #endif | |||
| 54561 | /*end of callfortranroutine*/ | |||
| 54562 | if (f2py_success) { | |||
| 54563 | /*pyobjfrom*/ | |||
| 54564 | /*end of pyobjfrom*/ | |||
| 54565 | CFUNCSMESS("Building return value.\n"); | |||
| 54566 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info); | |||
| 54567 | /*closepyobjfrom*/ | |||
| 54568 | /*end of closepyobjfrom*/ | |||
| 54569 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 54570 | /*cleanupfrompyobj*/ | |||
| 54571 | /* End of cleaning variable ldz */ | |||
| 54572 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 54573 | /* End of cleaning variable ifail */ | |||
| 54574 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 54575 | /* End of cleaning variable z */ | |||
| 54576 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 54577 | /* End of cleaning variable w */ | |||
| 54578 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 54579 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 54580 | /* End of cleaning variable rwork */ | |||
| 54581 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 54582 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 54583 | /* End of cleaning variable iwork */ | |||
| 54584 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 54585 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 54586 | /* End of cleaning variable work */ | |||
| 54587 | /* End of cleaning variable ldb */ | |||
| 54588 | /* End of cleaning variable lda */ | |||
| 54589 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 54590 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 54591 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 54592 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 54593 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 54594 | /* End of cleaning variable b */ | |||
| 54595 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 54596 | } /*if (f2py_success) of lwork*/ | |||
| 54597 | /* End of cleaning variable lwork */ | |||
| 54598 | } /*CHECKSCALAR(vu>vl)*/ | |||
| 54599 | } /*if (f2py_success) of vu*/ | |||
| 54600 | /* End of cleaning variable vu */ | |||
| 54601 | } /*if (f2py_success) of iu*/ | |||
| 54602 | /* End of cleaning variable iu */ | |||
| 54603 | /* End of cleaning variable n */ | |||
| 54604 | } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/ | |||
| 54605 | STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0); | |||
| 54606 | } /*if (f2py_success) of range*/ | |||
| 54607 | /* End of cleaning variable range */ | |||
| 54608 | /* End of cleaning variable info */ | |||
| 54609 | /* End of cleaning variable m */ | |||
| 54610 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 54611 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 54612 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 54613 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 54614 | /* End of cleaning variable a */ | |||
| 54615 | } /*if (f2py_success) of abstol*/ | |||
| 54616 | /* End of cleaning variable abstol */ | |||
| 54617 | } /*if (f2py_success) of vl*/ | |||
| 54618 | /* End of cleaning variable vl */ | |||
| 54619 | } /*if (f2py_success) of il*/ | |||
| 54620 | /* End of cleaning variable il */ | |||
| 54621 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 54622 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 54623 | } /*if (f2py_success) of uplo*/ | |||
| 54624 | /* End of cleaning variable uplo */ | |||
| 54625 | } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/ | |||
| 54626 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 54627 | } /*if (f2py_success) of jobz*/ | |||
| 54628 | /* End of cleaning variable jobz */ | |||
| 54629 | } /*CHECKSCALAR(itype>0||itype<4)*/ | |||
| 54630 | } /*if (f2py_success) of itype*/ | |||
| 54631 | /* End of cleaning variable itype */ | |||
| 54632 | /*end of cleanupfrompyobj*/ | |||
| 54633 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 54634 | /*routdebugfailure*/ | |||
| 54635 | } else { | |||
| 54636 | /*routdebugleave*/ | |||
| 54637 | } | |||
| 54638 | CFUNCSMESS("Freeing memory.\n"); | |||
| 54639 | /*freemem*/ | |||
| 54640 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54641 | f2py_stop_clock(); | |||
| 54642 | #endif | |||
| 54643 | return capi_buildvalue; | |||
| 54644 | } | |||
| 54645 | /******************************* end of chegvx *******************************/ | |||
| 54646 | ||||
| 54647 | /*********************************** zhegvx ***********************************/ | |||
| 54648 | static char doc_f2py_rout__flapack_zhegvx[] = "\ | |||
| 54649 | w,z,m,ifail,info = zhegvx(a,b,[itype,jobz,range,uplo,vl,vu,il,iu,abstol,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``zhegvx``.\ | |||
| 54650 | \n\nParameters\n----------\n" | |||
| 54651 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 54652 | "b : input rank-2 array('D') with bounds (n,n)\n" | |||
| 54653 | "\nOther Parameters\n----------------\n" | |||
| 54654 | "itype : input int, optional\n Default: 1\n" | |||
| 54655 | "jobz : input string(len=1), optional\n Default: 'V'\n" | |||
| 54656 | "range : input string(len=1), optional\n Default: 'A'\n" | |||
| 54657 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 54658 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 54659 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 54660 | "vl : input float, optional\n Default: 0.0\n" | |||
| 54661 | "vu : input float, optional\n Default: 1.0\n" | |||
| 54662 | "il : input int, optional\n Default: 1\n" | |||
| 54663 | "iu : input int, optional\n Default: n\n" | |||
| 54664 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 54665 | "lwork : input int, optional\n Default: max(2*n,1)\n" | |||
| 54666 | "\nReturns\n-------\n" | |||
| 54667 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 54668 | "z : rank-2 array('D') with bounds ((jobz[0]=='V'?MAX(0,n):0),(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)):0))\n" | |||
| 54669 | "m : int\n" | |||
| 54670 | "ifail : rank-1 array('i') with bounds ((jobz[0]=='N'?0:n))\n" | |||
| 54671 | "info : int"; | |||
| 54672 | /* extern void F_FUNC(zhegvx,ZHEGVX)(F_INT*,char*,char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 54673 | static PyObject *f2py_rout__flapack_zhegvx(const PyObject *capi_self, | |||
| 54674 | PyObject *capi_args, | |||
| 54675 | PyObject *capi_keywds, | |||
| 54676 | void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 54677 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 54678 | volatile int f2py_success = 1; | |||
| 54679 | /*decl*/ | |||
| 54680 | ||||
| 54681 | int itype = 0; | |||
| 54682 | PyObject *itype_capi = Py_None(&_Py_NoneStruct); | |||
| 54683 | string jobz = NULL((void*)0); | |||
| 54684 | int slen(jobz)capi_jobz_len; | |||
| 54685 | PyObject *jobz_capi = Py_None(&_Py_NoneStruct); | |||
| 54686 | string range = NULL((void*)0); | |||
| 54687 | int slen(range)capi_range_len; | |||
| 54688 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 54689 | string uplo = NULL((void*)0); | |||
| 54690 | int slen(uplo)capi_uplo_len; | |||
| 54691 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 54692 | int n = 0; | |||
| 54693 | complex_double *a = NULL((void*)0); | |||
| 54694 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 54695 | const int a_Rank = 2; | |||
| 54696 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 54697 | int capi_a_intent = 0; | |||
| 54698 | int capi_overwrite_a = 0; | |||
| 54699 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 54700 | int lda = 0; | |||
| 54701 | complex_double *b = NULL((void*)0); | |||
| 54702 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 54703 | const int b_Rank = 2; | |||
| 54704 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 54705 | int capi_b_intent = 0; | |||
| 54706 | int capi_overwrite_b = 0; | |||
| 54707 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 54708 | int ldb = 0; | |||
| 54709 | double vl = 0; | |||
| 54710 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 54711 | double vu = 0; | |||
| 54712 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 54713 | int il = 0; | |||
| 54714 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 54715 | int iu = 0; | |||
| 54716 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 54717 | double abstol = 0; | |||
| 54718 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 54719 | double *w = NULL((void*)0); | |||
| 54720 | npy_intp w_Dims[1] = {-1}; | |||
| 54721 | const int w_Rank = 1; | |||
| 54722 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 54723 | int capi_w_intent = 0; | |||
| 54724 | complex_double *z = NULL((void*)0); | |||
| 54725 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 54726 | const int z_Rank = 2; | |||
| 54727 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 54728 | int capi_z_intent = 0; | |||
| 54729 | int m = 0; | |||
| 54730 | int ldz = 0; | |||
| 54731 | complex_double *work = NULL((void*)0); | |||
| 54732 | npy_intp work_Dims[1] = {-1}; | |||
| 54733 | const int work_Rank = 1; | |||
| 54734 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 54735 | int capi_work_intent = 0; | |||
| 54736 | int lwork = 0; | |||
| 54737 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 54738 | double *rwork = NULL((void*)0); | |||
| 54739 | npy_intp rwork_Dims[1] = {-1}; | |||
| 54740 | const int rwork_Rank = 1; | |||
| 54741 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 54742 | int capi_rwork_intent = 0; | |||
| 54743 | int *iwork = NULL((void*)0); | |||
| 54744 | npy_intp iwork_Dims[1] = {-1}; | |||
| 54745 | const int iwork_Rank = 1; | |||
| 54746 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 54747 | int capi_iwork_intent = 0; | |||
| 54748 | int *ifail = NULL((void*)0); | |||
| 54749 | npy_intp ifail_Dims[1] = {-1}; | |||
| 54750 | const int ifail_Rank = 1; | |||
| 54751 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 54752 | int capi_ifail_intent = 0; | |||
| 54753 | int info = 0; | |||
| 54754 | static char *capi_kwlist[] = {"a","b","itype","jobz","range","uplo","vl","vu","il","iu","abstol","lwork","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 54755 | ||||
| 54756 | /*routdebugenter*/ | |||
| 54757 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54758 | f2py_start_clock(); | |||
| 54759 | #endif | |||
| 54760 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 54761 | "OO|OOOOOOOOOOii:_flapack.zhegvx",\ | |||
| 54762 | capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&range_capi,&uplo_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 54763 | return NULL((void*)0); | |||
| 54764 | /*frompyobj*/ | |||
| 54765 | /* Processing variable itype */ | |||
| 54766 | if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else | |||
| 54767 | f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.zhegvx() 1st keyword (itype) can't be converted to int"); | |||
| 54768 | if (f2py_success) { | |||
| 54769 | CHECKSCALAR(itype>0||itype<4,"itype>0||itype<4","1st keyword itype","zhegvx:itype=%d",itype)if (!(itype>0||itype<4)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegvx:itype=%d", "(""itype>0||itype<4"") failed for " "1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 54770 | /* Processing variable jobz */ | |||
| 54771 | slen(jobz)capi_jobz_len = 1; | |||
| 54772 | f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.zhegvx to C string"); | |||
| 54773 | if (f2py_success) { | |||
| 54774 | CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","zhegvx:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegvx:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'" ") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 54775 | /* Processing variable uplo */ | |||
| 54776 | slen(uplo)capi_uplo_len = 1; | |||
| 54777 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 4th keyword `uplo' of _flapack.zhegvx to C string"); | |||
| 54778 | if (f2py_success) { | |||
| 54779 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","4th keyword uplo","zhegvx:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegvx:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""4th keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 54780 | /* Processing variable il */ | |||
| 54781 | if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else | |||
| 54782 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.zhegvx() 7th keyword (il) can't be converted to int"); | |||
| 54783 | if (f2py_success) { | |||
| 54784 | /* Processing variable vl */ | |||
| 54785 | if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else | |||
| 54786 | f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.zhegvx() 5th keyword (vl) can't be converted to double"); | |||
| 54787 | if (f2py_success) { | |||
| 54788 | /* Processing variable abstol */ | |||
| 54789 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 54790 | f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.zhegvx() 9th keyword (abstol) can't be converted to double"); | |||
| 54791 | if (f2py_success) { | |||
| 54792 | /* Processing variable a */ | |||
| 54793 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 54794 | ; | |||
| 54795 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 54796 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 54797 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 54798 | if (!PyErr_Occurred()) | |||
| 54799 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhegvx to C/Fortran array" ); | |||
| 54800 | } else { | |||
| 54801 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 54802 | ||||
| 54803 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 54804 | /* Processing variable m */ | |||
| 54805 | /* Processing variable info */ | |||
| 54806 | /* Processing variable range */ | |||
| 54807 | slen(range)capi_range_len = 1; | |||
| 54808 | f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 3rd keyword `range' of _flapack.zhegvx to C string"); | |||
| 54809 | if (f2py_success) { | |||
| 54810 | CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","3rd keyword range","zhegvx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zhegvx:slen(range)=%d range=\"%s\"" , "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""3rd keyword range" , capi_range_len, range); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 54811 | /* Processing variable n */ | |||
| 54812 | n = shape(a,0)a_Dims[0]; | |||
| 54813 | /* Processing variable iu */ | |||
| 54814 | if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else | |||
| 54815 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.zhegvx() 8th keyword (iu) can't be converted to int"); | |||
| 54816 | if (f2py_success) { | |||
| 54817 | /* Processing variable vu */ | |||
| 54818 | if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else | |||
| 54819 | f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.zhegvx() 6th keyword (vu) can't be converted to double"); | |||
| 54820 | if (f2py_success) { | |||
| 54821 | CHECKSCALAR(vu>vl,"vu>vl","6th keyword vu","zhegvx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegvx:vu=%g", "(""vu>vl"") failed for ""6th keyword vu" , vu); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 54822 | /* Processing variable lwork */ | |||
| 54823 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else | |||
| 54824 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhegvx() 10th keyword (lwork) can't be converted to int"); | |||
| 54825 | if (f2py_success) { | |||
| 54826 | CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","10th keyword lwork","zhegvx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegvx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for " "10th keyword lwork", lwork); PyErr_SetString(_flapack_error, errstring); } else { | |||
| 54827 | /* Processing variable b */ | |||
| 54828 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 54829 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 54830 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024; | |||
| 54831 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 54832 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 54833 | if (!PyErr_Occurred()) | |||
| 54834 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zhegvx to C/Fortran array" ); | |||
| 54835 | } else { | |||
| 54836 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 54837 | ||||
| 54838 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 54839 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 54840 | /* Processing variable lda */ | |||
| 54841 | lda = max(1,n)((1 > n) ? (1) : (n)); | |||
| 54842 | /* Processing variable ldb */ | |||
| 54843 | ldb = max(1,n)((1 > n) ? (1) : (n)); | |||
| 54844 | /* Processing variable work */ | |||
| 54845 | work_Dims[0]=lwork; | |||
| 54846 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 54847 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 54848 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 54849 | if (!PyErr_Occurred()) | |||
| 54850 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhegvx to C/Fortran array" ); | |||
| 54851 | } else { | |||
| 54852 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 54853 | ||||
| 54854 | /* Processing variable iwork */ | |||
| 54855 | iwork_Dims[0]=5 * n; | |||
| 54856 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 54857 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 54858 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 54859 | if (!PyErr_Occurred()) | |||
| 54860 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zhegvx to C/Fortran array" ); | |||
| 54861 | } else { | |||
| 54862 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 54863 | ||||
| 54864 | /* Processing variable rwork */ | |||
| 54865 | rwork_Dims[0]=7 * n; | |||
| 54866 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 54867 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 54868 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 54869 | if (!PyErr_Occurred()) | |||
| 54870 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zhegvx to C/Fortran array" ); | |||
| 54871 | } else { | |||
| 54872 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 54873 | ||||
| 54874 | /* Processing variable w */ | |||
| 54875 | w_Dims[0]=n; | |||
| 54876 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 54877 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 54878 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 54879 | if (!PyErr_Occurred()) | |||
| 54880 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zhegvx to C/Fortran array" ); | |||
| 54881 | } else { | |||
| 54882 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 54883 | ||||
| 54884 | /* Processing variable z */ | |||
| 54885 | z_Dims[0]=(jobz[0]=='V'?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0); | |||
| 54886 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 54887 | capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 54888 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 54889 | if (!PyErr_Occurred()) | |||
| 54890 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.zhegvx to C/Fortran array" ); | |||
| 54891 | } else { | |||
| 54892 | z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 54893 | ||||
| 54894 | /* Processing variable ifail */ | |||
| 54895 | ifail_Dims[0]=(jobz[0]=='N'?0:n); | |||
| 54896 | capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 54897 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 54898 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 54899 | if (!PyErr_Occurred()) | |||
| 54900 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.zhegvx to C/Fortran array" ); | |||
| 54901 | } else { | |||
| 54902 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 54903 | ||||
| 54904 | /* Processing variable ldz */ | |||
| 54905 | ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 54906 | /*end of frompyobj*/ | |||
| 54907 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54908 | f2py_start_call_clock(); | |||
| 54909 | #endif | |||
| 54910 | /*callfortranroutine*/ | |||
| 54911 | (*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,rwork,iwork,ifail,&info) ; | |||
| 54912 | /*(*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,rwork,iwork,ifail,&info,slen(jobz),slen(range),slen(uplo));*/ | |||
| 54913 | if (PyErr_Occurred()) | |||
| 54914 | f2py_success = 0; | |||
| 54915 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54916 | f2py_stop_call_clock(); | |||
| 54917 | #endif | |||
| 54918 | /*end of callfortranroutine*/ | |||
| 54919 | if (f2py_success) { | |||
| 54920 | /*pyobjfrom*/ | |||
| 54921 | /*end of pyobjfrom*/ | |||
| 54922 | CFUNCSMESS("Building return value.\n"); | |||
| 54923 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info); | |||
| 54924 | /*closepyobjfrom*/ | |||
| 54925 | /*end of closepyobjfrom*/ | |||
| 54926 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 54927 | /*cleanupfrompyobj*/ | |||
| 54928 | /* End of cleaning variable ldz */ | |||
| 54929 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 54930 | /* End of cleaning variable ifail */ | |||
| 54931 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 54932 | /* End of cleaning variable z */ | |||
| 54933 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 54934 | /* End of cleaning variable w */ | |||
| 54935 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 54936 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 54937 | /* End of cleaning variable rwork */ | |||
| 54938 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 54939 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 54940 | /* End of cleaning variable iwork */ | |||
| 54941 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 54942 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 54943 | /* End of cleaning variable work */ | |||
| 54944 | /* End of cleaning variable ldb */ | |||
| 54945 | /* End of cleaning variable lda */ | |||
| 54946 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 54947 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 54948 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 54949 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 54950 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 54951 | /* End of cleaning variable b */ | |||
| 54952 | } /*CHECKSCALAR(lwork>=1||lwork==-1)*/ | |||
| 54953 | } /*if (f2py_success) of lwork*/ | |||
| 54954 | /* End of cleaning variable lwork */ | |||
| 54955 | } /*CHECKSCALAR(vu>vl)*/ | |||
| 54956 | } /*if (f2py_success) of vu*/ | |||
| 54957 | /* End of cleaning variable vu */ | |||
| 54958 | } /*if (f2py_success) of iu*/ | |||
| 54959 | /* End of cleaning variable iu */ | |||
| 54960 | /* End of cleaning variable n */ | |||
| 54961 | } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/ | |||
| 54962 | STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0); | |||
| 54963 | } /*if (f2py_success) of range*/ | |||
| 54964 | /* End of cleaning variable range */ | |||
| 54965 | /* End of cleaning variable info */ | |||
| 54966 | /* End of cleaning variable m */ | |||
| 54967 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 54968 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 54969 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 54970 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 54971 | /* End of cleaning variable a */ | |||
| 54972 | } /*if (f2py_success) of abstol*/ | |||
| 54973 | /* End of cleaning variable abstol */ | |||
| 54974 | } /*if (f2py_success) of vl*/ | |||
| 54975 | /* End of cleaning variable vl */ | |||
| 54976 | } /*if (f2py_success) of il*/ | |||
| 54977 | /* End of cleaning variable il */ | |||
| 54978 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 54979 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 54980 | } /*if (f2py_success) of uplo*/ | |||
| 54981 | /* End of cleaning variable uplo */ | |||
| 54982 | } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/ | |||
| 54983 | STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0); | |||
| 54984 | } /*if (f2py_success) of jobz*/ | |||
| 54985 | /* End of cleaning variable jobz */ | |||
| 54986 | } /*CHECKSCALAR(itype>0||itype<4)*/ | |||
| 54987 | } /*if (f2py_success) of itype*/ | |||
| 54988 | /* End of cleaning variable itype */ | |||
| 54989 | /*end of cleanupfrompyobj*/ | |||
| 54990 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 54991 | /*routdebugfailure*/ | |||
| 54992 | } else { | |||
| 54993 | /*routdebugleave*/ | |||
| 54994 | } | |||
| 54995 | CFUNCSMESS("Freeing memory.\n"); | |||
| 54996 | /*freemem*/ | |||
| 54997 | #ifdef F2PY_REPORT_ATEXIT | |||
| 54998 | f2py_stop_clock(); | |||
| 54999 | #endif | |||
| 55000 | return capi_buildvalue; | |||
| 55001 | } | |||
| 55002 | /******************************* end of zhegvx *******************************/ | |||
| 55003 | ||||
| 55004 | /******************************** chegvx_lwork ********************************/ | |||
| 55005 | static char doc_f2py_rout__flapack_chegvx_lwork[] = "\ | |||
| 55006 | work,info = chegvx_lwork(n,[uplo])\n\nWrapper for ``chegvx_lwork``.\ | |||
| 55007 | \n\nParameters\n----------\n" | |||
| 55008 | "n : input int\n" | |||
| 55009 | "\nOther Parameters\n----------------\n" | |||
| 55010 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 55011 | "\nReturns\n-------\n" | |||
| 55012 | "work : complex\n" | |||
| 55013 | "info : int"; | |||
| 55014 | /* extern void F_FUNC(chegvx ,CHEGVX )(F_INT*,char*,char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 55015 | static PyObject *f2py_rout__flapack_chegvx_lwork(const PyObject *capi_self, | |||
| 55016 | PyObject *capi_args, | |||
| 55017 | PyObject *capi_keywds, | |||
| 55018 | void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 55019 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 55020 | volatile int f2py_success = 1; | |||
| 55021 | /*decl*/ | |||
| 55022 | ||||
| 55023 | int itype = 0; | |||
| 55024 | string uplo = NULL((void*)0); | |||
| 55025 | int slen(uplo)capi_uplo_len; | |||
| 55026 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 55027 | int n = 0; | |||
| 55028 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 55029 | complex_float a; | |||
| 55030 | int lda = 0; | |||
| 55031 | complex_float b; | |||
| 55032 | int ldb = 0; | |||
| 55033 | float vl = 0; | |||
| 55034 | float vu = 0; | |||
| 55035 | int il = 0; | |||
| 55036 | int iu = 0; | |||
| 55037 | float abstol = 0; | |||
| 55038 | int m = 0; | |||
| 55039 | float w = 0; | |||
| 55040 | complex_float z; | |||
| 55041 | int ldz = 0; | |||
| 55042 | complex_float work; | |||
| 55043 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 55044 | int lwork = 0; | |||
| 55045 | float rwork = 0; | |||
| 55046 | int iwork = 0; | |||
| 55047 | int ifail = 0; | |||
| 55048 | int info = 0; | |||
| 55049 | static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)}; | |||
| 55050 | ||||
| 55051 | /*routdebugenter*/ | |||
| 55052 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55053 | f2py_start_clock(); | |||
| 55054 | #endif | |||
| 55055 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 55056 | "O|O:_flapack.chegvx_lwork",\ | |||
| 55057 | capi_kwlist,&n_capi,&uplo_capi)) | |||
| 55058 | return NULL((void*)0); | |||
| 55059 | /*frompyobj*/ | |||
| 55060 | /* Processing variable n */ | |||
| 55061 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chegvx_lwork() 1st argument (n) can't be converted to int"); | |||
| 55062 | if (f2py_success) { | |||
| 55063 | /* Processing variable uplo */ | |||
| 55064 | slen(uplo)capi_uplo_len = 1; | |||
| 55065 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.chegvx_lwork to C string"); | |||
| 55066 | if (f2py_success) { | |||
| 55067 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","chegvx_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chegvx_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 55068 | /* Processing variable itype */ | |||
| 55069 | itype = 1; | |||
| 55070 | /* Processing variable a */ | |||
| 55071 | /* Processing variable b */ | |||
| 55072 | /* Processing variable il */ | |||
| 55073 | il = 1; | |||
| 55074 | /* Processing variable iu */ | |||
| 55075 | iu = 0; | |||
| 55076 | /* Processing variable vl */ | |||
| 55077 | vl = 0.0; | |||
| 55078 | /* Processing variable vu */ | |||
| 55079 | vu = 1.0; | |||
| 55080 | /* Processing variable abstol */ | |||
| 55081 | abstol = 0.0; | |||
| 55082 | /* Processing variable m */ | |||
| 55083 | /* Processing variable w */ | |||
| 55084 | /* Processing variable z */ | |||
| 55085 | /* Processing variable lwork */ | |||
| 55086 | lwork = -1; | |||
| 55087 | /* Processing variable rwork */ | |||
| 55088 | /* Processing variable iwork */ | |||
| 55089 | /* Processing variable ifail */ | |||
| 55090 | /* Processing variable work */ | |||
| 55091 | /* Processing variable info */ | |||
| 55092 | /* Processing variable lda */ | |||
| 55093 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 55094 | /* Processing variable ldb */ | |||
| 55095 | ldb = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 55096 | /* Processing variable ldz */ | |||
| 55097 | ldz = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 55098 | /*end of frompyobj*/ | |||
| 55099 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55100 | f2py_start_call_clock(); | |||
| 55101 | #endif | |||
| 55102 | /*callfortranroutine*/ | |||
| 55103 | (*f2py_func)(&itype,"N","A",uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info) ; | |||
| 55104 | /*(*f2py_func)(&itype,uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info,slen(uplo));*/ | |||
| 55105 | if (PyErr_Occurred()) | |||
| 55106 | f2py_success = 0; | |||
| 55107 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55108 | f2py_stop_call_clock(); | |||
| 55109 | #endif | |||
| 55110 | /*end of callfortranroutine*/ | |||
| 55111 | if (f2py_success) { | |||
| 55112 | /*pyobjfrom*/ | |||
| 55113 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 55114 | /*end of pyobjfrom*/ | |||
| 55115 | CFUNCSMESS("Building return value.\n"); | |||
| 55116 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 55117 | /*closepyobjfrom*/ | |||
| 55118 | /*end of closepyobjfrom*/ | |||
| 55119 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 55120 | /*cleanupfrompyobj*/ | |||
| 55121 | /* End of cleaning variable ldz */ | |||
| 55122 | /* End of cleaning variable ldb */ | |||
| 55123 | /* End of cleaning variable lda */ | |||
| 55124 | /* End of cleaning variable info */ | |||
| 55125 | /* End of cleaning variable work */ | |||
| 55126 | /* End of cleaning variable ifail */ | |||
| 55127 | /* End of cleaning variable iwork */ | |||
| 55128 | /* End of cleaning variable rwork */ | |||
| 55129 | /* End of cleaning variable lwork */ | |||
| 55130 | /* End of cleaning variable z */ | |||
| 55131 | /* End of cleaning variable w */ | |||
| 55132 | /* End of cleaning variable m */ | |||
| 55133 | /* End of cleaning variable abstol */ | |||
| 55134 | /* End of cleaning variable vu */ | |||
| 55135 | /* End of cleaning variable vl */ | |||
| 55136 | /* End of cleaning variable iu */ | |||
| 55137 | /* End of cleaning variable il */ | |||
| 55138 | /* End of cleaning variable b */ | |||
| 55139 | /* End of cleaning variable a */ | |||
| 55140 | /* End of cleaning variable itype */ | |||
| 55141 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 55142 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 55143 | } /*if (f2py_success) of uplo*/ | |||
| 55144 | /* End of cleaning variable uplo */ | |||
| 55145 | } /*if (f2py_success) of n*/ | |||
| 55146 | /* End of cleaning variable n */ | |||
| 55147 | /*end of cleanupfrompyobj*/ | |||
| 55148 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 55149 | /*routdebugfailure*/ | |||
| 55150 | } else { | |||
| 55151 | /*routdebugleave*/ | |||
| 55152 | } | |||
| 55153 | CFUNCSMESS("Freeing memory.\n"); | |||
| 55154 | /*freemem*/ | |||
| 55155 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55156 | f2py_stop_clock(); | |||
| 55157 | #endif | |||
| 55158 | return capi_buildvalue; | |||
| 55159 | } | |||
| 55160 | /**************************** end of chegvx_lwork ****************************/ | |||
| 55161 | ||||
| 55162 | /******************************** zhegvx_lwork ********************************/ | |||
| 55163 | static char doc_f2py_rout__flapack_zhegvx_lwork[] = "\ | |||
| 55164 | work,info = zhegvx_lwork(n,[uplo])\n\nWrapper for ``zhegvx_lwork``.\ | |||
| 55165 | \n\nParameters\n----------\n" | |||
| 55166 | "n : input int\n" | |||
| 55167 | "\nOther Parameters\n----------------\n" | |||
| 55168 | "uplo : input string(len=1), optional\n Default: 'L'\n" | |||
| 55169 | "\nReturns\n-------\n" | |||
| 55170 | "work : complex\n" | |||
| 55171 | "info : int"; | |||
| 55172 | /* extern void F_FUNC(zhegvx ,ZHEGVX )(F_INT*,char*,char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 55173 | static PyObject *f2py_rout__flapack_zhegvx_lwork(const PyObject *capi_self, | |||
| 55174 | PyObject *capi_args, | |||
| 55175 | PyObject *capi_keywds, | |||
| 55176 | void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 55177 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 55178 | volatile int f2py_success = 1; | |||
| 55179 | /*decl*/ | |||
| 55180 | ||||
| 55181 | int itype = 0; | |||
| 55182 | string uplo = NULL((void*)0); | |||
| 55183 | int slen(uplo)capi_uplo_len; | |||
| 55184 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 55185 | int n = 0; | |||
| 55186 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 55187 | complex_double a; | |||
| 55188 | int lda = 0; | |||
| 55189 | complex_double b; | |||
| 55190 | int ldb = 0; | |||
| 55191 | double vl = 0; | |||
| 55192 | double vu = 0; | |||
| 55193 | int il = 0; | |||
| 55194 | int iu = 0; | |||
| 55195 | double abstol = 0; | |||
| 55196 | int m = 0; | |||
| 55197 | double w = 0; | |||
| 55198 | complex_double z; | |||
| 55199 | int ldz = 0; | |||
| 55200 | complex_double work; | |||
| 55201 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 55202 | int lwork = 0; | |||
| 55203 | double rwork = 0; | |||
| 55204 | int iwork = 0; | |||
| 55205 | int ifail = 0; | |||
| 55206 | int info = 0; | |||
| 55207 | static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)}; | |||
| 55208 | ||||
| 55209 | /*routdebugenter*/ | |||
| 55210 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55211 | f2py_start_clock(); | |||
| 55212 | #endif | |||
| 55213 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 55214 | "O|O:_flapack.zhegvx_lwork",\ | |||
| 55215 | capi_kwlist,&n_capi,&uplo_capi)) | |||
| 55216 | return NULL((void*)0); | |||
| 55217 | /*frompyobj*/ | |||
| 55218 | /* Processing variable n */ | |||
| 55219 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhegvx_lwork() 1st argument (n) can't be converted to int"); | |||
| 55220 | if (f2py_success) { | |||
| 55221 | /* Processing variable uplo */ | |||
| 55222 | slen(uplo)capi_uplo_len = 1; | |||
| 55223 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.zhegvx_lwork to C string"); | |||
| 55224 | if (f2py_success) { | |||
| 55225 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","zhegvx_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhegvx_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 55226 | /* Processing variable itype */ | |||
| 55227 | itype = 1; | |||
| 55228 | /* Processing variable a */ | |||
| 55229 | /* Processing variable b */ | |||
| 55230 | /* Processing variable il */ | |||
| 55231 | il = 1; | |||
| 55232 | /* Processing variable iu */ | |||
| 55233 | iu = 0; | |||
| 55234 | /* Processing variable vl */ | |||
| 55235 | vl = 0.0; | |||
| 55236 | /* Processing variable vu */ | |||
| 55237 | vu = 1.0; | |||
| 55238 | /* Processing variable abstol */ | |||
| 55239 | abstol = 0.0; | |||
| 55240 | /* Processing variable m */ | |||
| 55241 | /* Processing variable w */ | |||
| 55242 | /* Processing variable z */ | |||
| 55243 | /* Processing variable lwork */ | |||
| 55244 | lwork = -1; | |||
| 55245 | /* Processing variable rwork */ | |||
| 55246 | /* Processing variable iwork */ | |||
| 55247 | /* Processing variable ifail */ | |||
| 55248 | /* Processing variable work */ | |||
| 55249 | /* Processing variable info */ | |||
| 55250 | /* Processing variable lda */ | |||
| 55251 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 55252 | /* Processing variable ldb */ | |||
| 55253 | ldb = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 55254 | /* Processing variable ldz */ | |||
| 55255 | ldz = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 55256 | /*end of frompyobj*/ | |||
| 55257 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55258 | f2py_start_call_clock(); | |||
| 55259 | #endif | |||
| 55260 | /*callfortranroutine*/ | |||
| 55261 | (*f2py_func)(&itype,"N","A",uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info) ; | |||
| 55262 | /*(*f2py_func)(&itype,uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info,slen(uplo));*/ | |||
| 55263 | if (PyErr_Occurred()) | |||
| 55264 | f2py_success = 0; | |||
| 55265 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55266 | f2py_stop_call_clock(); | |||
| 55267 | #endif | |||
| 55268 | /*end of callfortranroutine*/ | |||
| 55269 | if (f2py_success) { | |||
| 55270 | /*pyobjfrom*/ | |||
| 55271 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 55272 | /*end of pyobjfrom*/ | |||
| 55273 | CFUNCSMESS("Building return value.\n"); | |||
| 55274 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 55275 | /*closepyobjfrom*/ | |||
| 55276 | /*end of closepyobjfrom*/ | |||
| 55277 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 55278 | /*cleanupfrompyobj*/ | |||
| 55279 | /* End of cleaning variable ldz */ | |||
| 55280 | /* End of cleaning variable ldb */ | |||
| 55281 | /* End of cleaning variable lda */ | |||
| 55282 | /* End of cleaning variable info */ | |||
| 55283 | /* End of cleaning variable work */ | |||
| 55284 | /* End of cleaning variable ifail */ | |||
| 55285 | /* End of cleaning variable iwork */ | |||
| 55286 | /* End of cleaning variable rwork */ | |||
| 55287 | /* End of cleaning variable lwork */ | |||
| 55288 | /* End of cleaning variable z */ | |||
| 55289 | /* End of cleaning variable w */ | |||
| 55290 | /* End of cleaning variable m */ | |||
| 55291 | /* End of cleaning variable abstol */ | |||
| 55292 | /* End of cleaning variable vu */ | |||
| 55293 | /* End of cleaning variable vl */ | |||
| 55294 | /* End of cleaning variable iu */ | |||
| 55295 | /* End of cleaning variable il */ | |||
| 55296 | /* End of cleaning variable b */ | |||
| 55297 | /* End of cleaning variable a */ | |||
| 55298 | /* End of cleaning variable itype */ | |||
| 55299 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 55300 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 55301 | } /*if (f2py_success) of uplo*/ | |||
| 55302 | /* End of cleaning variable uplo */ | |||
| 55303 | } /*if (f2py_success) of n*/ | |||
| 55304 | /* End of cleaning variable n */ | |||
| 55305 | /*end of cleanupfrompyobj*/ | |||
| 55306 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 55307 | /*routdebugfailure*/ | |||
| 55308 | } else { | |||
| 55309 | /*routdebugleave*/ | |||
| 55310 | } | |||
| 55311 | CFUNCSMESS("Freeing memory.\n"); | |||
| 55312 | /*freemem*/ | |||
| 55313 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55314 | f2py_stop_clock(); | |||
| 55315 | #endif | |||
| 55316 | return capi_buildvalue; | |||
| 55317 | } | |||
| 55318 | /**************************** end of zhegvx_lwork ****************************/ | |||
| 55319 | ||||
| 55320 | /********************************** ssyequb **********************************/ | |||
| 55321 | static char doc_f2py_rout__flapack_ssyequb[] = "\ | |||
| 55322 | s,scond,amax,info = ssyequb(a,[lower])\n\nWrapper for ``ssyequb``.\ | |||
| 55323 | \n\nParameters\n----------\n" | |||
| 55324 | "a : input rank-2 array('f') with bounds (lda,n)\n" | |||
| 55325 | "\nOther Parameters\n----------------\n" | |||
| 55326 | "lower : input int, optional\n Default: 0\n" | |||
| 55327 | "\nReturns\n-------\n" | |||
| 55328 | "s : rank-1 array('f') with bounds (n)\n" | |||
| 55329 | "scond : float\n" | |||
| 55330 | "amax : float\n" | |||
| 55331 | "info : int"; | |||
| 55332 | /* extern void F_FUNC(ssyequb,SSYEQUB)(char*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT* ); */ | |||
| 55333 | static PyObject *f2py_rout__flapack_ssyequb(const PyObject *capi_self, | |||
| 55334 | PyObject *capi_args, | |||
| 55335 | PyObject *capi_keywds, | |||
| 55336 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint* )) { | |||
| 55337 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 55338 | volatile int f2py_success = 1; | |||
| 55339 | /*decl*/ | |||
| 55340 | ||||
| 55341 | int lower = 0; | |||
| 55342 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 55343 | int n = 0; | |||
| 55344 | float *a = NULL((void*)0); | |||
| 55345 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 55346 | const int a_Rank = 2; | |||
| 55347 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 55348 | int capi_a_intent = 0; | |||
| 55349 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 55350 | int lda = 0; | |||
| 55351 | float *s = NULL((void*)0); | |||
| 55352 | npy_intp s_Dims[1] = {-1}; | |||
| 55353 | const int s_Rank = 1; | |||
| 55354 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 55355 | int capi_s_intent = 0; | |||
| 55356 | float scond = 0; | |||
| 55357 | float amax = 0; | |||
| 55358 | float *work = NULL((void*)0); | |||
| 55359 | npy_intp work_Dims[1] = {-1}; | |||
| 55360 | const int work_Rank = 1; | |||
| 55361 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 55362 | int capi_work_intent = 0; | |||
| 55363 | int info = 0; | |||
| 55364 | static char *capi_kwlist[] = {"a","lower",NULL((void*)0)}; | |||
| 55365 | ||||
| 55366 | /*routdebugenter*/ | |||
| 55367 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55368 | f2py_start_clock(); | |||
| 55369 | #endif | |||
| 55370 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 55371 | "O|O:_flapack.ssyequb",\ | |||
| 55372 | capi_kwlist,&a_capi,&lower_capi)) | |||
| 55373 | return NULL((void*)0); | |||
| 55374 | /*frompyobj*/ | |||
| 55375 | /* Processing variable lower */ | |||
| 55376 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 55377 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyequb() 1st keyword (lower) can't be converted to int"); | |||
| 55378 | if (f2py_success) { | |||
| 55379 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssyequb:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssyequb:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 55380 | /* Processing variable a */ | |||
| 55381 | ; | |||
| 55382 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 55383 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 55384 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 55385 | if (!PyErr_Occurred()) | |||
| 55386 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssyequb to C/Fortran array" ); | |||
| 55387 | } else { | |||
| 55388 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 55389 | ||||
| 55390 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 55391 | /* Processing variable scond */ | |||
| 55392 | /* Processing variable amax */ | |||
| 55393 | /* Processing variable info */ | |||
| 55394 | /* Processing variable n */ | |||
| 55395 | n = shape(a,1)a_Dims[1]; | |||
| 55396 | /* Processing variable lda */ | |||
| 55397 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 55398 | /* Processing variable work */ | |||
| 55399 | work_Dims[0]=3 * n; | |||
| 55400 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 55401 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 55402 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 55403 | if (!PyErr_Occurred()) | |||
| 55404 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssyequb to C/Fortran array" ); | |||
| 55405 | } else { | |||
| 55406 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 55407 | ||||
| 55408 | /* Processing variable s */ | |||
| 55409 | s_Dims[0]=n; | |||
| 55410 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 55411 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 55412 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 55413 | if (!PyErr_Occurred()) | |||
| 55414 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.ssyequb to C/Fortran array" ); | |||
| 55415 | } else { | |||
| 55416 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 55417 | ||||
| 55418 | /*end of frompyobj*/ | |||
| 55419 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55420 | f2py_start_call_clock(); | |||
| 55421 | #endif | |||
| 55422 | /*callfortranroutine*/ | |||
| 55423 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,s,&scond,&amax,work,&info) ; | |||
| 55424 | /*(*f2py_func)(&lower,&n,a,&lda,s,&scond,&amax,work,&info);*/ | |||
| 55425 | if (PyErr_Occurred()) | |||
| 55426 | f2py_success = 0; | |||
| 55427 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55428 | f2py_stop_call_clock(); | |||
| 55429 | #endif | |||
| 55430 | /*end of callfortranroutine*/ | |||
| 55431 | if (f2py_success) { | |||
| 55432 | /*pyobjfrom*/ | |||
| 55433 | /*end of pyobjfrom*/ | |||
| 55434 | CFUNCSMESS("Building return value.\n"); | |||
| 55435 | capi_buildvalue = Py_BuildValue("Nffi",capi_s_tmp,scond,amax,info); | |||
| 55436 | /*closepyobjfrom*/ | |||
| 55437 | /*end of closepyobjfrom*/ | |||
| 55438 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 55439 | /*cleanupfrompyobj*/ | |||
| 55440 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 55441 | /* End of cleaning variable s */ | |||
| 55442 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 55443 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 55444 | /* End of cleaning variable work */ | |||
| 55445 | /* End of cleaning variable lda */ | |||
| 55446 | /* End of cleaning variable n */ | |||
| 55447 | /* End of cleaning variable info */ | |||
| 55448 | /* End of cleaning variable amax */ | |||
| 55449 | /* End of cleaning variable scond */ | |||
| 55450 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 55451 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 55452 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 55453 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 55454 | /* End of cleaning variable a */ | |||
| 55455 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 55456 | } /*if (f2py_success) of lower*/ | |||
| 55457 | /* End of cleaning variable lower */ | |||
| 55458 | /*end of cleanupfrompyobj*/ | |||
| 55459 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 55460 | /*routdebugfailure*/ | |||
| 55461 | } else { | |||
| 55462 | /*routdebugleave*/ | |||
| 55463 | } | |||
| 55464 | CFUNCSMESS("Freeing memory.\n"); | |||
| 55465 | /*freemem*/ | |||
| 55466 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55467 | f2py_stop_clock(); | |||
| 55468 | #endif | |||
| 55469 | return capi_buildvalue; | |||
| 55470 | } | |||
| 55471 | /******************************* end of ssyequb *******************************/ | |||
| 55472 | ||||
| 55473 | /********************************** dsyequb **********************************/ | |||
| 55474 | static char doc_f2py_rout__flapack_dsyequb[] = "\ | |||
| 55475 | s,scond,amax,info = dsyequb(a,[lower])\n\nWrapper for ``dsyequb``.\ | |||
| 55476 | \n\nParameters\n----------\n" | |||
| 55477 | "a : input rank-2 array('d') with bounds (lda,n)\n" | |||
| 55478 | "\nOther Parameters\n----------------\n" | |||
| 55479 | "lower : input int, optional\n Default: 0\n" | |||
| 55480 | "\nReturns\n-------\n" | |||
| 55481 | "s : rank-1 array('d') with bounds (n)\n" | |||
| 55482 | "scond : float\n" | |||
| 55483 | "amax : float\n" | |||
| 55484 | "info : int"; | |||
| 55485 | /* extern void F_FUNC(dsyequb,DSYEQUB)(char*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT* ); */ | |||
| 55486 | static PyObject *f2py_rout__flapack_dsyequb(const PyObject *capi_self, | |||
| 55487 | PyObject *capi_args, | |||
| 55488 | PyObject *capi_keywds, | |||
| 55489 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint* )) { | |||
| 55490 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 55491 | volatile int f2py_success = 1; | |||
| 55492 | /*decl*/ | |||
| 55493 | ||||
| 55494 | int lower = 0; | |||
| 55495 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 55496 | int n = 0; | |||
| 55497 | double *a = NULL((void*)0); | |||
| 55498 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 55499 | const int a_Rank = 2; | |||
| 55500 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 55501 | int capi_a_intent = 0; | |||
| 55502 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 55503 | int lda = 0; | |||
| 55504 | double *s = NULL((void*)0); | |||
| 55505 | npy_intp s_Dims[1] = {-1}; | |||
| 55506 | const int s_Rank = 1; | |||
| 55507 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 55508 | int capi_s_intent = 0; | |||
| 55509 | double scond = 0; | |||
| 55510 | double amax = 0; | |||
| 55511 | double *work = NULL((void*)0); | |||
| 55512 | npy_intp work_Dims[1] = {-1}; | |||
| 55513 | const int work_Rank = 1; | |||
| 55514 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 55515 | int capi_work_intent = 0; | |||
| 55516 | int info = 0; | |||
| 55517 | static char *capi_kwlist[] = {"a","lower",NULL((void*)0)}; | |||
| 55518 | ||||
| 55519 | /*routdebugenter*/ | |||
| 55520 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55521 | f2py_start_clock(); | |||
| 55522 | #endif | |||
| 55523 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 55524 | "O|O:_flapack.dsyequb",\ | |||
| 55525 | capi_kwlist,&a_capi,&lower_capi)) | |||
| 55526 | return NULL((void*)0); | |||
| 55527 | /*frompyobj*/ | |||
| 55528 | /* Processing variable lower */ | |||
| 55529 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 55530 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyequb() 1st keyword (lower) can't be converted to int"); | |||
| 55531 | if (f2py_success) { | |||
| 55532 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsyequb:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsyequb:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 55533 | /* Processing variable a */ | |||
| 55534 | ; | |||
| 55535 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 55536 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 55537 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 55538 | if (!PyErr_Occurred()) | |||
| 55539 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsyequb to C/Fortran array" ); | |||
| 55540 | } else { | |||
| 55541 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 55542 | ||||
| 55543 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 55544 | /* Processing variable scond */ | |||
| 55545 | /* Processing variable amax */ | |||
| 55546 | /* Processing variable info */ | |||
| 55547 | /* Processing variable n */ | |||
| 55548 | n = shape(a,1)a_Dims[1]; | |||
| 55549 | /* Processing variable lda */ | |||
| 55550 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 55551 | /* Processing variable work */ | |||
| 55552 | work_Dims[0]=3 * n; | |||
| 55553 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 55554 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 55555 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 55556 | if (!PyErr_Occurred()) | |||
| 55557 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsyequb to C/Fortran array" ); | |||
| 55558 | } else { | |||
| 55559 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 55560 | ||||
| 55561 | /* Processing variable s */ | |||
| 55562 | s_Dims[0]=n; | |||
| 55563 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 55564 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 55565 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 55566 | if (!PyErr_Occurred()) | |||
| 55567 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.dsyequb to C/Fortran array" ); | |||
| 55568 | } else { | |||
| 55569 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 55570 | ||||
| 55571 | /*end of frompyobj*/ | |||
| 55572 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55573 | f2py_start_call_clock(); | |||
| 55574 | #endif | |||
| 55575 | /*callfortranroutine*/ | |||
| 55576 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,s,&scond,&amax,work,&info) ; | |||
| 55577 | /*(*f2py_func)(&lower,&n,a,&lda,s,&scond,&amax,work,&info);*/ | |||
| 55578 | if (PyErr_Occurred()) | |||
| 55579 | f2py_success = 0; | |||
| 55580 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55581 | f2py_stop_call_clock(); | |||
| 55582 | #endif | |||
| 55583 | /*end of callfortranroutine*/ | |||
| 55584 | if (f2py_success) { | |||
| 55585 | /*pyobjfrom*/ | |||
| 55586 | /*end of pyobjfrom*/ | |||
| 55587 | CFUNCSMESS("Building return value.\n"); | |||
| 55588 | capi_buildvalue = Py_BuildValue("Nddi",capi_s_tmp,scond,amax,info); | |||
| 55589 | /*closepyobjfrom*/ | |||
| 55590 | /*end of closepyobjfrom*/ | |||
| 55591 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 55592 | /*cleanupfrompyobj*/ | |||
| 55593 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 55594 | /* End of cleaning variable s */ | |||
| 55595 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 55596 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 55597 | /* End of cleaning variable work */ | |||
| 55598 | /* End of cleaning variable lda */ | |||
| 55599 | /* End of cleaning variable n */ | |||
| 55600 | /* End of cleaning variable info */ | |||
| 55601 | /* End of cleaning variable amax */ | |||
| 55602 | /* End of cleaning variable scond */ | |||
| 55603 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 55604 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 55605 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 55606 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 55607 | /* End of cleaning variable a */ | |||
| 55608 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 55609 | } /*if (f2py_success) of lower*/ | |||
| 55610 | /* End of cleaning variable lower */ | |||
| 55611 | /*end of cleanupfrompyobj*/ | |||
| 55612 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 55613 | /*routdebugfailure*/ | |||
| 55614 | } else { | |||
| 55615 | /*routdebugleave*/ | |||
| 55616 | } | |||
| 55617 | CFUNCSMESS("Freeing memory.\n"); | |||
| 55618 | /*freemem*/ | |||
| 55619 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55620 | f2py_stop_clock(); | |||
| 55621 | #endif | |||
| 55622 | return capi_buildvalue; | |||
| 55623 | } | |||
| 55624 | /******************************* end of dsyequb *******************************/ | |||
| 55625 | ||||
| 55626 | /********************************** csyequb **********************************/ | |||
| 55627 | static char doc_f2py_rout__flapack_csyequb[] = "\ | |||
| 55628 | s,scond,amax,info = csyequb(a,[lower])\n\nWrapper for ``csyequb``.\ | |||
| 55629 | \n\nParameters\n----------\n" | |||
| 55630 | "a : input rank-2 array('F') with bounds (lda,n)\n" | |||
| 55631 | "\nOther Parameters\n----------------\n" | |||
| 55632 | "lower : input int, optional\n Default: 0\n" | |||
| 55633 | "\nReturns\n-------\n" | |||
| 55634 | "s : rank-1 array('f') with bounds (n)\n" | |||
| 55635 | "scond : float\n" | |||
| 55636 | "amax : float\n" | |||
| 55637 | "info : int"; | |||
| 55638 | /* extern void F_FUNC(csyequb,CSYEQUB)(char*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,F_INT* ); */ | |||
| 55639 | static PyObject *f2py_rout__flapack_csyequb(const PyObject *capi_self, | |||
| 55640 | PyObject *capi_args, | |||
| 55641 | PyObject *capi_keywds, | |||
| 55642 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint* )) { | |||
| 55643 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 55644 | volatile int f2py_success = 1; | |||
| 55645 | /*decl*/ | |||
| 55646 | ||||
| 55647 | int lower = 0; | |||
| 55648 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 55649 | int n = 0; | |||
| 55650 | complex_float *a = NULL((void*)0); | |||
| 55651 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 55652 | const int a_Rank = 2; | |||
| 55653 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 55654 | int capi_a_intent = 0; | |||
| 55655 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 55656 | int lda = 0; | |||
| 55657 | float *s = NULL((void*)0); | |||
| 55658 | npy_intp s_Dims[1] = {-1}; | |||
| 55659 | const int s_Rank = 1; | |||
| 55660 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 55661 | int capi_s_intent = 0; | |||
| 55662 | float scond = 0; | |||
| 55663 | float amax = 0; | |||
| 55664 | complex_float *work = NULL((void*)0); | |||
| 55665 | npy_intp work_Dims[1] = {-1}; | |||
| 55666 | const int work_Rank = 1; | |||
| 55667 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 55668 | int capi_work_intent = 0; | |||
| 55669 | int info = 0; | |||
| 55670 | static char *capi_kwlist[] = {"a","lower",NULL((void*)0)}; | |||
| 55671 | ||||
| 55672 | /*routdebugenter*/ | |||
| 55673 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55674 | f2py_start_clock(); | |||
| 55675 | #endif | |||
| 55676 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 55677 | "O|O:_flapack.csyequb",\ | |||
| 55678 | capi_kwlist,&a_capi,&lower_capi)) | |||
| 55679 | return NULL((void*)0); | |||
| 55680 | /*frompyobj*/ | |||
| 55681 | /* Processing variable lower */ | |||
| 55682 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 55683 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csyequb() 1st keyword (lower) can't be converted to int"); | |||
| 55684 | if (f2py_success) { | |||
| 55685 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csyequb:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""csyequb:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 55686 | /* Processing variable a */ | |||
| 55687 | ; | |||
| 55688 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 55689 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 55690 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 55691 | if (!PyErr_Occurred()) | |||
| 55692 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csyequb to C/Fortran array" ); | |||
| 55693 | } else { | |||
| 55694 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 55695 | ||||
| 55696 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 55697 | /* Processing variable scond */ | |||
| 55698 | /* Processing variable amax */ | |||
| 55699 | /* Processing variable info */ | |||
| 55700 | /* Processing variable n */ | |||
| 55701 | n = shape(a,1)a_Dims[1]; | |||
| 55702 | /* Processing variable lda */ | |||
| 55703 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 55704 | /* Processing variable work */ | |||
| 55705 | work_Dims[0]=3 * n; | |||
| 55706 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 55707 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 55708 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 55709 | if (!PyErr_Occurred()) | |||
| 55710 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.csyequb to C/Fortran array" ); | |||
| 55711 | } else { | |||
| 55712 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 55713 | ||||
| 55714 | /* Processing variable s */ | |||
| 55715 | s_Dims[0]=n; | |||
| 55716 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 55717 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 55718 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 55719 | if (!PyErr_Occurred()) | |||
| 55720 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.csyequb to C/Fortran array" ); | |||
| 55721 | } else { | |||
| 55722 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 55723 | ||||
| 55724 | /*end of frompyobj*/ | |||
| 55725 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55726 | f2py_start_call_clock(); | |||
| 55727 | #endif | |||
| 55728 | /*callfortranroutine*/ | |||
| 55729 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,s,&scond,&amax,work,&info) ; | |||
| 55730 | /*(*f2py_func)(&lower,&n,a,&lda,s,&scond,&amax,work,&info);*/ | |||
| 55731 | if (PyErr_Occurred()) | |||
| 55732 | f2py_success = 0; | |||
| 55733 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55734 | f2py_stop_call_clock(); | |||
| 55735 | #endif | |||
| 55736 | /*end of callfortranroutine*/ | |||
| 55737 | if (f2py_success) { | |||
| 55738 | /*pyobjfrom*/ | |||
| 55739 | /*end of pyobjfrom*/ | |||
| 55740 | CFUNCSMESS("Building return value.\n"); | |||
| 55741 | capi_buildvalue = Py_BuildValue("Nffi",capi_s_tmp,scond,amax,info); | |||
| 55742 | /*closepyobjfrom*/ | |||
| 55743 | /*end of closepyobjfrom*/ | |||
| 55744 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 55745 | /*cleanupfrompyobj*/ | |||
| 55746 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 55747 | /* End of cleaning variable s */ | |||
| 55748 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 55749 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 55750 | /* End of cleaning variable work */ | |||
| 55751 | /* End of cleaning variable lda */ | |||
| 55752 | /* End of cleaning variable n */ | |||
| 55753 | /* End of cleaning variable info */ | |||
| 55754 | /* End of cleaning variable amax */ | |||
| 55755 | /* End of cleaning variable scond */ | |||
| 55756 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 55757 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 55758 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 55759 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 55760 | /* End of cleaning variable a */ | |||
| 55761 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 55762 | } /*if (f2py_success) of lower*/ | |||
| 55763 | /* End of cleaning variable lower */ | |||
| 55764 | /*end of cleanupfrompyobj*/ | |||
| 55765 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 55766 | /*routdebugfailure*/ | |||
| 55767 | } else { | |||
| 55768 | /*routdebugleave*/ | |||
| 55769 | } | |||
| 55770 | CFUNCSMESS("Freeing memory.\n"); | |||
| 55771 | /*freemem*/ | |||
| 55772 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55773 | f2py_stop_clock(); | |||
| 55774 | #endif | |||
| 55775 | return capi_buildvalue; | |||
| 55776 | } | |||
| 55777 | /******************************* end of csyequb *******************************/ | |||
| 55778 | ||||
| 55779 | /********************************** zsyequb **********************************/ | |||
| 55780 | static char doc_f2py_rout__flapack_zsyequb[] = "\ | |||
| 55781 | s,scond,amax,info = zsyequb(a,[lower])\n\nWrapper for ``zsyequb``.\ | |||
| 55782 | \n\nParameters\n----------\n" | |||
| 55783 | "a : input rank-2 array('D') with bounds (lda,n)\n" | |||
| 55784 | "\nOther Parameters\n----------------\n" | |||
| 55785 | "lower : input int, optional\n Default: 0\n" | |||
| 55786 | "\nReturns\n-------\n" | |||
| 55787 | "s : rank-1 array('d') with bounds (n)\n" | |||
| 55788 | "scond : float\n" | |||
| 55789 | "amax : float\n" | |||
| 55790 | "info : int"; | |||
| 55791 | /* extern void F_FUNC(zsyequb,ZSYEQUB)(char*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,F_INT* ); */ | |||
| 55792 | static PyObject *f2py_rout__flapack_zsyequb(const PyObject *capi_self, | |||
| 55793 | PyObject *capi_args, | |||
| 55794 | PyObject *capi_keywds, | |||
| 55795 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint* )) { | |||
| 55796 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 55797 | volatile int f2py_success = 1; | |||
| 55798 | /*decl*/ | |||
| 55799 | ||||
| 55800 | int lower = 0; | |||
| 55801 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 55802 | int n = 0; | |||
| 55803 | complex_double *a = NULL((void*)0); | |||
| 55804 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 55805 | const int a_Rank = 2; | |||
| 55806 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 55807 | int capi_a_intent = 0; | |||
| 55808 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 55809 | int lda = 0; | |||
| 55810 | double *s = NULL((void*)0); | |||
| 55811 | npy_intp s_Dims[1] = {-1}; | |||
| 55812 | const int s_Rank = 1; | |||
| 55813 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 55814 | int capi_s_intent = 0; | |||
| 55815 | double scond = 0; | |||
| 55816 | double amax = 0; | |||
| 55817 | complex_double *work = NULL((void*)0); | |||
| 55818 | npy_intp work_Dims[1] = {-1}; | |||
| 55819 | const int work_Rank = 1; | |||
| 55820 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 55821 | int capi_work_intent = 0; | |||
| 55822 | int info = 0; | |||
| 55823 | static char *capi_kwlist[] = {"a","lower",NULL((void*)0)}; | |||
| 55824 | ||||
| 55825 | /*routdebugenter*/ | |||
| 55826 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55827 | f2py_start_clock(); | |||
| 55828 | #endif | |||
| 55829 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 55830 | "O|O:_flapack.zsyequb",\ | |||
| 55831 | capi_kwlist,&a_capi,&lower_capi)) | |||
| 55832 | return NULL((void*)0); | |||
| 55833 | /*frompyobj*/ | |||
| 55834 | /* Processing variable lower */ | |||
| 55835 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 55836 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsyequb() 1st keyword (lower) can't be converted to int"); | |||
| 55837 | if (f2py_success) { | |||
| 55838 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsyequb:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zsyequb:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 55839 | /* Processing variable a */ | |||
| 55840 | ; | |||
| 55841 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 55842 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 55843 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 55844 | if (!PyErr_Occurred()) | |||
| 55845 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsyequb to C/Fortran array" ); | |||
| 55846 | } else { | |||
| 55847 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 55848 | ||||
| 55849 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 55850 | /* Processing variable scond */ | |||
| 55851 | /* Processing variable amax */ | |||
| 55852 | /* Processing variable info */ | |||
| 55853 | /* Processing variable n */ | |||
| 55854 | n = shape(a,1)a_Dims[1]; | |||
| 55855 | /* Processing variable lda */ | |||
| 55856 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 55857 | /* Processing variable work */ | |||
| 55858 | work_Dims[0]=3 * n; | |||
| 55859 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 55860 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 55861 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 55862 | if (!PyErr_Occurred()) | |||
| 55863 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zsyequb to C/Fortran array" ); | |||
| 55864 | } else { | |||
| 55865 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 55866 | ||||
| 55867 | /* Processing variable s */ | |||
| 55868 | s_Dims[0]=n; | |||
| 55869 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 55870 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 55871 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 55872 | if (!PyErr_Occurred()) | |||
| 55873 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.zsyequb to C/Fortran array" ); | |||
| 55874 | } else { | |||
| 55875 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 55876 | ||||
| 55877 | /*end of frompyobj*/ | |||
| 55878 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55879 | f2py_start_call_clock(); | |||
| 55880 | #endif | |||
| 55881 | /*callfortranroutine*/ | |||
| 55882 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,s,&scond,&amax,work,&info) ; | |||
| 55883 | /*(*f2py_func)(&lower,&n,a,&lda,s,&scond,&amax,work,&info);*/ | |||
| 55884 | if (PyErr_Occurred()) | |||
| 55885 | f2py_success = 0; | |||
| 55886 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55887 | f2py_stop_call_clock(); | |||
| 55888 | #endif | |||
| 55889 | /*end of callfortranroutine*/ | |||
| 55890 | if (f2py_success) { | |||
| 55891 | /*pyobjfrom*/ | |||
| 55892 | /*end of pyobjfrom*/ | |||
| 55893 | CFUNCSMESS("Building return value.\n"); | |||
| 55894 | capi_buildvalue = Py_BuildValue("Nddi",capi_s_tmp,scond,amax,info); | |||
| 55895 | /*closepyobjfrom*/ | |||
| 55896 | /*end of closepyobjfrom*/ | |||
| 55897 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 55898 | /*cleanupfrompyobj*/ | |||
| 55899 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 55900 | /* End of cleaning variable s */ | |||
| 55901 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 55902 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 55903 | /* End of cleaning variable work */ | |||
| 55904 | /* End of cleaning variable lda */ | |||
| 55905 | /* End of cleaning variable n */ | |||
| 55906 | /* End of cleaning variable info */ | |||
| 55907 | /* End of cleaning variable amax */ | |||
| 55908 | /* End of cleaning variable scond */ | |||
| 55909 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 55910 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 55911 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 55912 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 55913 | /* End of cleaning variable a */ | |||
| 55914 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 55915 | } /*if (f2py_success) of lower*/ | |||
| 55916 | /* End of cleaning variable lower */ | |||
| 55917 | /*end of cleanupfrompyobj*/ | |||
| 55918 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 55919 | /*routdebugfailure*/ | |||
| 55920 | } else { | |||
| 55921 | /*routdebugleave*/ | |||
| 55922 | } | |||
| 55923 | CFUNCSMESS("Freeing memory.\n"); | |||
| 55924 | /*freemem*/ | |||
| 55925 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55926 | f2py_stop_clock(); | |||
| 55927 | #endif | |||
| 55928 | return capi_buildvalue; | |||
| 55929 | } | |||
| 55930 | /******************************* end of zsyequb *******************************/ | |||
| 55931 | ||||
| 55932 | /********************************** cheequb **********************************/ | |||
| 55933 | static char doc_f2py_rout__flapack_cheequb[] = "\ | |||
| 55934 | s,scond,amax,info = cheequb(a,[lower])\n\nWrapper for ``cheequb``.\ | |||
| 55935 | \n\nParameters\n----------\n" | |||
| 55936 | "a : input rank-2 array('F') with bounds (lda,n)\n" | |||
| 55937 | "\nOther Parameters\n----------------\n" | |||
| 55938 | "lower : input int, optional\n Default: 0\n" | |||
| 55939 | "\nReturns\n-------\n" | |||
| 55940 | "s : rank-1 array('f') with bounds (n)\n" | |||
| 55941 | "scond : float\n" | |||
| 55942 | "amax : float\n" | |||
| 55943 | "info : int"; | |||
| 55944 | /* extern void F_FUNC(cheequb,CHEEQUB)(char*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,F_INT* ); */ | |||
| 55945 | static PyObject *f2py_rout__flapack_cheequb(const PyObject *capi_self, | |||
| 55946 | PyObject *capi_args, | |||
| 55947 | PyObject *capi_keywds, | |||
| 55948 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint* )) { | |||
| 55949 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 55950 | volatile int f2py_success = 1; | |||
| 55951 | /*decl*/ | |||
| 55952 | ||||
| 55953 | int lower = 0; | |||
| 55954 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 55955 | int n = 0; | |||
| 55956 | complex_float *a = NULL((void*)0); | |||
| 55957 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 55958 | const int a_Rank = 2; | |||
| 55959 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 55960 | int capi_a_intent = 0; | |||
| 55961 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 55962 | int lda = 0; | |||
| 55963 | float *s = NULL((void*)0); | |||
| 55964 | npy_intp s_Dims[1] = {-1}; | |||
| 55965 | const int s_Rank = 1; | |||
| 55966 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 55967 | int capi_s_intent = 0; | |||
| 55968 | float scond = 0; | |||
| 55969 | float amax = 0; | |||
| 55970 | complex_float *work = NULL((void*)0); | |||
| 55971 | npy_intp work_Dims[1] = {-1}; | |||
| 55972 | const int work_Rank = 1; | |||
| 55973 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 55974 | int capi_work_intent = 0; | |||
| 55975 | int info = 0; | |||
| 55976 | static char *capi_kwlist[] = {"a","lower",NULL((void*)0)}; | |||
| 55977 | ||||
| 55978 | /*routdebugenter*/ | |||
| 55979 | #ifdef F2PY_REPORT_ATEXIT | |||
| 55980 | f2py_start_clock(); | |||
| 55981 | #endif | |||
| 55982 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 55983 | "O|O:_flapack.cheequb",\ | |||
| 55984 | capi_kwlist,&a_capi,&lower_capi)) | |||
| 55985 | return NULL((void*)0); | |||
| 55986 | /*frompyobj*/ | |||
| 55987 | /* Processing variable lower */ | |||
| 55988 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 55989 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheequb() 1st keyword (lower) can't be converted to int"); | |||
| 55990 | if (f2py_success) { | |||
| 55991 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cheequb:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cheequb:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 55992 | /* Processing variable a */ | |||
| 55993 | ; | |||
| 55994 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 55995 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 55996 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 55997 | if (!PyErr_Occurred()) | |||
| 55998 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cheequb to C/Fortran array" ); | |||
| 55999 | } else { | |||
| 56000 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 56001 | ||||
| 56002 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 56003 | /* Processing variable scond */ | |||
| 56004 | /* Processing variable amax */ | |||
| 56005 | /* Processing variable info */ | |||
| 56006 | /* Processing variable n */ | |||
| 56007 | n = shape(a,1)a_Dims[1]; | |||
| 56008 | /* Processing variable lda */ | |||
| 56009 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 56010 | /* Processing variable work */ | |||
| 56011 | work_Dims[0]=3 * n; | |||
| 56012 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 56013 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 56014 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 56015 | if (!PyErr_Occurred()) | |||
| 56016 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cheequb to C/Fortran array" ); | |||
| 56017 | } else { | |||
| 56018 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 56019 | ||||
| 56020 | /* Processing variable s */ | |||
| 56021 | s_Dims[0]=n; | |||
| 56022 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 56023 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 56024 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 56025 | if (!PyErr_Occurred()) | |||
| 56026 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.cheequb to C/Fortran array" ); | |||
| 56027 | } else { | |||
| 56028 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 56029 | ||||
| 56030 | /*end of frompyobj*/ | |||
| 56031 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56032 | f2py_start_call_clock(); | |||
| 56033 | #endif | |||
| 56034 | /*callfortranroutine*/ | |||
| 56035 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,s,&scond,&amax,work,&info) ; | |||
| 56036 | /*(*f2py_func)(&lower,&n,a,&lda,s,&scond,&amax,work,&info);*/ | |||
| 56037 | if (PyErr_Occurred()) | |||
| 56038 | f2py_success = 0; | |||
| 56039 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56040 | f2py_stop_call_clock(); | |||
| 56041 | #endif | |||
| 56042 | /*end of callfortranroutine*/ | |||
| 56043 | if (f2py_success) { | |||
| 56044 | /*pyobjfrom*/ | |||
| 56045 | /*end of pyobjfrom*/ | |||
| 56046 | CFUNCSMESS("Building return value.\n"); | |||
| 56047 | capi_buildvalue = Py_BuildValue("Nffi",capi_s_tmp,scond,amax,info); | |||
| 56048 | /*closepyobjfrom*/ | |||
| 56049 | /*end of closepyobjfrom*/ | |||
| 56050 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 56051 | /*cleanupfrompyobj*/ | |||
| 56052 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 56053 | /* End of cleaning variable s */ | |||
| 56054 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 56055 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 56056 | /* End of cleaning variable work */ | |||
| 56057 | /* End of cleaning variable lda */ | |||
| 56058 | /* End of cleaning variable n */ | |||
| 56059 | /* End of cleaning variable info */ | |||
| 56060 | /* End of cleaning variable amax */ | |||
| 56061 | /* End of cleaning variable scond */ | |||
| 56062 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 56063 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 56064 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 56065 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 56066 | /* End of cleaning variable a */ | |||
| 56067 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 56068 | } /*if (f2py_success) of lower*/ | |||
| 56069 | /* End of cleaning variable lower */ | |||
| 56070 | /*end of cleanupfrompyobj*/ | |||
| 56071 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 56072 | /*routdebugfailure*/ | |||
| 56073 | } else { | |||
| 56074 | /*routdebugleave*/ | |||
| 56075 | } | |||
| 56076 | CFUNCSMESS("Freeing memory.\n"); | |||
| 56077 | /*freemem*/ | |||
| 56078 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56079 | f2py_stop_clock(); | |||
| 56080 | #endif | |||
| 56081 | return capi_buildvalue; | |||
| 56082 | } | |||
| 56083 | /******************************* end of cheequb *******************************/ | |||
| 56084 | ||||
| 56085 | /********************************** zheequb **********************************/ | |||
| 56086 | static char doc_f2py_rout__flapack_zheequb[] = "\ | |||
| 56087 | s,scond,amax,info = zheequb(a,[lower])\n\nWrapper for ``zheequb``.\ | |||
| 56088 | \n\nParameters\n----------\n" | |||
| 56089 | "a : input rank-2 array('D') with bounds (lda,n)\n" | |||
| 56090 | "\nOther Parameters\n----------------\n" | |||
| 56091 | "lower : input int, optional\n Default: 0\n" | |||
| 56092 | "\nReturns\n-------\n" | |||
| 56093 | "s : rank-1 array('d') with bounds (n)\n" | |||
| 56094 | "scond : float\n" | |||
| 56095 | "amax : float\n" | |||
| 56096 | "info : int"; | |||
| 56097 | /* extern void F_FUNC(zheequb,ZHEEQUB)(char*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,F_INT* ); */ | |||
| 56098 | static PyObject *f2py_rout__flapack_zheequb(const PyObject *capi_self, | |||
| 56099 | PyObject *capi_args, | |||
| 56100 | PyObject *capi_keywds, | |||
| 56101 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint* )) { | |||
| 56102 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 56103 | volatile int f2py_success = 1; | |||
| 56104 | /*decl*/ | |||
| 56105 | ||||
| 56106 | int lower = 0; | |||
| 56107 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 56108 | int n = 0; | |||
| 56109 | complex_double *a = NULL((void*)0); | |||
| 56110 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 56111 | const int a_Rank = 2; | |||
| 56112 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 56113 | int capi_a_intent = 0; | |||
| 56114 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 56115 | int lda = 0; | |||
| 56116 | double *s = NULL((void*)0); | |||
| 56117 | npy_intp s_Dims[1] = {-1}; | |||
| 56118 | const int s_Rank = 1; | |||
| 56119 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 56120 | int capi_s_intent = 0; | |||
| 56121 | double scond = 0; | |||
| 56122 | double amax = 0; | |||
| 56123 | complex_double *work = NULL((void*)0); | |||
| 56124 | npy_intp work_Dims[1] = {-1}; | |||
| 56125 | const int work_Rank = 1; | |||
| 56126 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 56127 | int capi_work_intent = 0; | |||
| 56128 | int info = 0; | |||
| 56129 | static char *capi_kwlist[] = {"a","lower",NULL((void*)0)}; | |||
| 56130 | ||||
| 56131 | /*routdebugenter*/ | |||
| 56132 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56133 | f2py_start_clock(); | |||
| 56134 | #endif | |||
| 56135 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 56136 | "O|O:_flapack.zheequb",\ | |||
| 56137 | capi_kwlist,&a_capi,&lower_capi)) | |||
| 56138 | return NULL((void*)0); | |||
| 56139 | /*frompyobj*/ | |||
| 56140 | /* Processing variable lower */ | |||
| 56141 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 56142 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheequb() 1st keyword (lower) can't be converted to int"); | |||
| 56143 | if (f2py_success) { | |||
| 56144 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zheequb:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zheequb:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 56145 | /* Processing variable a */ | |||
| 56146 | ; | |||
| 56147 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 56148 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 56149 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 56150 | if (!PyErr_Occurred()) | |||
| 56151 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zheequb to C/Fortran array" ); | |||
| 56152 | } else { | |||
| 56153 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 56154 | ||||
| 56155 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 56156 | /* Processing variable scond */ | |||
| 56157 | /* Processing variable amax */ | |||
| 56158 | /* Processing variable info */ | |||
| 56159 | /* Processing variable n */ | |||
| 56160 | n = shape(a,1)a_Dims[1]; | |||
| 56161 | /* Processing variable lda */ | |||
| 56162 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 56163 | /* Processing variable work */ | |||
| 56164 | work_Dims[0]=3 * n; | |||
| 56165 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 56166 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 56167 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 56168 | if (!PyErr_Occurred()) | |||
| 56169 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zheequb to C/Fortran array" ); | |||
| 56170 | } else { | |||
| 56171 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 56172 | ||||
| 56173 | /* Processing variable s */ | |||
| 56174 | s_Dims[0]=n; | |||
| 56175 | capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 56176 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct)); | |||
| 56177 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 56178 | if (!PyErr_Occurred()) | |||
| 56179 | PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.zheequb to C/Fortran array" ); | |||
| 56180 | } else { | |||
| 56181 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 56182 | ||||
| 56183 | /*end of frompyobj*/ | |||
| 56184 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56185 | f2py_start_call_clock(); | |||
| 56186 | #endif | |||
| 56187 | /*callfortranroutine*/ | |||
| 56188 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,s,&scond,&amax,work,&info) ; | |||
| 56189 | /*(*f2py_func)(&lower,&n,a,&lda,s,&scond,&amax,work,&info);*/ | |||
| 56190 | if (PyErr_Occurred()) | |||
| 56191 | f2py_success = 0; | |||
| 56192 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56193 | f2py_stop_call_clock(); | |||
| 56194 | #endif | |||
| 56195 | /*end of callfortranroutine*/ | |||
| 56196 | if (f2py_success) { | |||
| 56197 | /*pyobjfrom*/ | |||
| 56198 | /*end of pyobjfrom*/ | |||
| 56199 | CFUNCSMESS("Building return value.\n"); | |||
| 56200 | capi_buildvalue = Py_BuildValue("Nddi",capi_s_tmp,scond,amax,info); | |||
| 56201 | /*closepyobjfrom*/ | |||
| 56202 | /*end of closepyobjfrom*/ | |||
| 56203 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 56204 | /*cleanupfrompyobj*/ | |||
| 56205 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 56206 | /* End of cleaning variable s */ | |||
| 56207 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 56208 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 56209 | /* End of cleaning variable work */ | |||
| 56210 | /* End of cleaning variable lda */ | |||
| 56211 | /* End of cleaning variable n */ | |||
| 56212 | /* End of cleaning variable info */ | |||
| 56213 | /* End of cleaning variable amax */ | |||
| 56214 | /* End of cleaning variable scond */ | |||
| 56215 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 56216 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 56217 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 56218 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 56219 | /* End of cleaning variable a */ | |||
| 56220 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 56221 | } /*if (f2py_success) of lower*/ | |||
| 56222 | /* End of cleaning variable lower */ | |||
| 56223 | /*end of cleanupfrompyobj*/ | |||
| 56224 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 56225 | /*routdebugfailure*/ | |||
| 56226 | } else { | |||
| 56227 | /*routdebugleave*/ | |||
| 56228 | } | |||
| 56229 | CFUNCSMESS("Freeing memory.\n"); | |||
| 56230 | /*freemem*/ | |||
| 56231 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56232 | f2py_stop_clock(); | |||
| 56233 | #endif | |||
| 56234 | return capi_buildvalue; | |||
| 56235 | } | |||
| 56236 | /******************************* end of zheequb *******************************/ | |||
| 56237 | ||||
| 56238 | /*********************************** spstrf ***********************************/ | |||
| 56239 | static char doc_f2py_rout__flapack_spstrf[] = "\ | |||
| 56240 | c,piv,rank_c,info = spstrf(a,[tol,lower,overwrite_a])\n\nWrapper for ``spstrf``.\ | |||
| 56241 | \n\nParameters\n----------\n" | |||
| 56242 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 56243 | "\nOther Parameters\n----------------\n" | |||
| 56244 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 56245 | "tol : input float, optional\n Default: -1.0\n" | |||
| 56246 | "lower : input int, optional\n Default: 0\n" | |||
| 56247 | "\nReturns\n-------\n" | |||
| 56248 | "c : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 56249 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 56250 | "rank_c : int\n" | |||
| 56251 | "info : int"; | |||
| 56252 | /* extern void F_FUNC(spstrf,SPSTRF)(char*,F_INT*,float*,F_INT*,F_INT*,F_INT*,float*,float*,F_INT* ); */ | |||
| 56253 | static PyObject *f2py_rout__flapack_spstrf(const PyObject *capi_self, | |||
| 56254 | PyObject *capi_args, | |||
| 56255 | PyObject *capi_keywds, | |||
| 56256 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* )) { | |||
| 56257 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 56258 | volatile int f2py_success = 1; | |||
| 56259 | /*decl*/ | |||
| 56260 | ||||
| 56261 | int n = 0; | |||
| 56262 | float *a = NULL((void*)0); | |||
| 56263 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 56264 | const int a_Rank = 2; | |||
| 56265 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 56266 | int capi_a_intent = 0; | |||
| 56267 | int capi_overwrite_a = 0; | |||
| 56268 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 56269 | int lda = 0; | |||
| 56270 | int *piv = NULL((void*)0); | |||
| 56271 | npy_intp piv_Dims[1] = {-1}; | |||
| 56272 | const int piv_Rank = 1; | |||
| 56273 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 56274 | int capi_piv_intent = 0; | |||
| 56275 | int rank_c = 0; | |||
| 56276 | float tol = 0; | |||
| 56277 | PyObject *tol_capi = Py_None(&_Py_NoneStruct); | |||
| 56278 | float *work = NULL((void*)0); | |||
| 56279 | npy_intp work_Dims[1] = {-1}; | |||
| 56280 | const int work_Rank = 1; | |||
| 56281 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 56282 | int capi_work_intent = 0; | |||
| 56283 | int info = 0; | |||
| 56284 | int lower = 0; | |||
| 56285 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 56286 | static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)}; | |||
| 56287 | ||||
| 56288 | /*routdebugenter*/ | |||
| 56289 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56290 | f2py_start_clock(); | |||
| 56291 | #endif | |||
| 56292 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 56293 | "O|OOi:_flapack.spstrf",\ | |||
| 56294 | capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a)) | |||
| 56295 | return NULL((void*)0); | |||
| 56296 | /*frompyobj*/ | |||
| 56297 | /* Processing variable lower */ | |||
| 56298 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 56299 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spstrf() 2nd keyword (lower) can't be converted to int"); | |||
| 56300 | if (f2py_success) { | |||
| 56301 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","spstrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spstrf:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 56302 | /* Processing variable a */ | |||
| 56303 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 56304 | ; | |||
| 56305 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 56306 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 56307 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 56308 | if (!PyErr_Occurred()) | |||
| 56309 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.spstrf to C/Fortran array" ); | |||
| 56310 | } else { | |||
| 56311 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 56312 | ||||
| 56313 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 56314 | /* Processing variable rank_c */ | |||
| 56315 | /* Processing variable tol */ | |||
| 56316 | if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else | |||
| 56317 | f2py_success = float_from_pyobj(&tol,tol_capi,"_flapack.spstrf() 1st keyword (tol) can't be converted to float"); | |||
| 56318 | if (f2py_success) { | |||
| 56319 | /* Processing variable info */ | |||
| 56320 | /* Processing variable n */ | |||
| 56321 | n = shape(a,0)a_Dims[0]; | |||
| 56322 | /* Processing variable lda */ | |||
| 56323 | lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 56324 | /* Processing variable piv */ | |||
| 56325 | piv_Dims[0]=n; | |||
| 56326 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 56327 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 56328 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 56329 | if (!PyErr_Occurred()) | |||
| 56330 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.spstrf to C/Fortran array" ); | |||
| 56331 | } else { | |||
| 56332 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 56333 | ||||
| 56334 | /* Processing variable work */ | |||
| 56335 | work_Dims[0]=2 * n; | |||
| 56336 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 56337 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 56338 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 56339 | if (!PyErr_Occurred()) | |||
| 56340 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.spstrf to C/Fortran array" ); | |||
| 56341 | } else { | |||
| 56342 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 56343 | ||||
| 56344 | /*end of frompyobj*/ | |||
| 56345 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56346 | f2py_start_call_clock(); | |||
| 56347 | #endif | |||
| 56348 | /*callfortranroutine*/ | |||
| 56349 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ; | |||
| 56350 | /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/ | |||
| 56351 | if (PyErr_Occurred()) | |||
| 56352 | f2py_success = 0; | |||
| 56353 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56354 | f2py_stop_call_clock(); | |||
| 56355 | #endif | |||
| 56356 | /*end of callfortranroutine*/ | |||
| 56357 | if (f2py_success) { | |||
| 56358 | /*pyobjfrom*/ | |||
| 56359 | /*end of pyobjfrom*/ | |||
| 56360 | CFUNCSMESS("Building return value.\n"); | |||
| 56361 | capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info); | |||
| 56362 | /*closepyobjfrom*/ | |||
| 56363 | /*end of closepyobjfrom*/ | |||
| 56364 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 56365 | /*cleanupfrompyobj*/ | |||
| 56366 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 56367 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 56368 | /* End of cleaning variable work */ | |||
| 56369 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 56370 | /* End of cleaning variable piv */ | |||
| 56371 | /* End of cleaning variable lda */ | |||
| 56372 | /* End of cleaning variable n */ | |||
| 56373 | /* End of cleaning variable info */ | |||
| 56374 | } /*if (f2py_success) of tol*/ | |||
| 56375 | /* End of cleaning variable tol */ | |||
| 56376 | /* End of cleaning variable rank_c */ | |||
| 56377 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 56378 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 56379 | /* End of cleaning variable a */ | |||
| 56380 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 56381 | } /*if (f2py_success) of lower*/ | |||
| 56382 | /* End of cleaning variable lower */ | |||
| 56383 | /*end of cleanupfrompyobj*/ | |||
| 56384 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 56385 | /*routdebugfailure*/ | |||
| 56386 | } else { | |||
| 56387 | /*routdebugleave*/ | |||
| 56388 | } | |||
| 56389 | CFUNCSMESS("Freeing memory.\n"); | |||
| 56390 | /*freemem*/ | |||
| 56391 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56392 | f2py_stop_clock(); | |||
| 56393 | #endif | |||
| 56394 | return capi_buildvalue; | |||
| 56395 | } | |||
| 56396 | /******************************* end of spstrf *******************************/ | |||
| 56397 | ||||
| 56398 | /*********************************** dpstrf ***********************************/ | |||
| 56399 | static char doc_f2py_rout__flapack_dpstrf[] = "\ | |||
| 56400 | c,piv,rank_c,info = dpstrf(a,[tol,lower,overwrite_a])\n\nWrapper for ``dpstrf``.\ | |||
| 56401 | \n\nParameters\n----------\n" | |||
| 56402 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 56403 | "\nOther Parameters\n----------------\n" | |||
| 56404 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 56405 | "tol : input float, optional\n Default: -1.0\n" | |||
| 56406 | "lower : input int, optional\n Default: 0\n" | |||
| 56407 | "\nReturns\n-------\n" | |||
| 56408 | "c : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 56409 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 56410 | "rank_c : int\n" | |||
| 56411 | "info : int"; | |||
| 56412 | /* extern void F_FUNC(dpstrf,DPSTRF)(char*,F_INT*,double*,F_INT*,F_INT*,F_INT*,double*,double*,F_INT* ); */ | |||
| 56413 | static PyObject *f2py_rout__flapack_dpstrf(const PyObject *capi_self, | |||
| 56414 | PyObject *capi_args, | |||
| 56415 | PyObject *capi_keywds, | |||
| 56416 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* )) { | |||
| 56417 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 56418 | volatile int f2py_success = 1; | |||
| 56419 | /*decl*/ | |||
| 56420 | ||||
| 56421 | int n = 0; | |||
| 56422 | double *a = NULL((void*)0); | |||
| 56423 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 56424 | const int a_Rank = 2; | |||
| 56425 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 56426 | int capi_a_intent = 0; | |||
| 56427 | int capi_overwrite_a = 0; | |||
| 56428 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 56429 | int lda = 0; | |||
| 56430 | int *piv = NULL((void*)0); | |||
| 56431 | npy_intp piv_Dims[1] = {-1}; | |||
| 56432 | const int piv_Rank = 1; | |||
| 56433 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 56434 | int capi_piv_intent = 0; | |||
| 56435 | int rank_c = 0; | |||
| 56436 | double tol = 0; | |||
| 56437 | PyObject *tol_capi = Py_None(&_Py_NoneStruct); | |||
| 56438 | double *work = NULL((void*)0); | |||
| 56439 | npy_intp work_Dims[1] = {-1}; | |||
| 56440 | const int work_Rank = 1; | |||
| 56441 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 56442 | int capi_work_intent = 0; | |||
| 56443 | int info = 0; | |||
| 56444 | int lower = 0; | |||
| 56445 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 56446 | static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)}; | |||
| 56447 | ||||
| 56448 | /*routdebugenter*/ | |||
| 56449 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56450 | f2py_start_clock(); | |||
| 56451 | #endif | |||
| 56452 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 56453 | "O|OOi:_flapack.dpstrf",\ | |||
| 56454 | capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a)) | |||
| 56455 | return NULL((void*)0); | |||
| 56456 | /*frompyobj*/ | |||
| 56457 | /* Processing variable lower */ | |||
| 56458 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 56459 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpstrf() 2nd keyword (lower) can't be converted to int"); | |||
| 56460 | if (f2py_success) { | |||
| 56461 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dpstrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpstrf:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 56462 | /* Processing variable a */ | |||
| 56463 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 56464 | ; | |||
| 56465 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 56466 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 56467 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 56468 | if (!PyErr_Occurred()) | |||
| 56469 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dpstrf to C/Fortran array" ); | |||
| 56470 | } else { | |||
| 56471 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 56472 | ||||
| 56473 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 56474 | /* Processing variable rank_c */ | |||
| 56475 | /* Processing variable tol */ | |||
| 56476 | if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else | |||
| 56477 | f2py_success = double_from_pyobj(&tol,tol_capi,"_flapack.dpstrf() 1st keyword (tol) can't be converted to double"); | |||
| 56478 | if (f2py_success) { | |||
| 56479 | /* Processing variable info */ | |||
| 56480 | /* Processing variable n */ | |||
| 56481 | n = shape(a,0)a_Dims[0]; | |||
| 56482 | /* Processing variable lda */ | |||
| 56483 | lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 56484 | /* Processing variable piv */ | |||
| 56485 | piv_Dims[0]=n; | |||
| 56486 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 56487 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 56488 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 56489 | if (!PyErr_Occurred()) | |||
| 56490 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.dpstrf to C/Fortran array" ); | |||
| 56491 | } else { | |||
| 56492 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 56493 | ||||
| 56494 | /* Processing variable work */ | |||
| 56495 | work_Dims[0]=2 * n; | |||
| 56496 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 56497 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 56498 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 56499 | if (!PyErr_Occurred()) | |||
| 56500 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dpstrf to C/Fortran array" ); | |||
| 56501 | } else { | |||
| 56502 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 56503 | ||||
| 56504 | /*end of frompyobj*/ | |||
| 56505 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56506 | f2py_start_call_clock(); | |||
| 56507 | #endif | |||
| 56508 | /*callfortranroutine*/ | |||
| 56509 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ; | |||
| 56510 | /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/ | |||
| 56511 | if (PyErr_Occurred()) | |||
| 56512 | f2py_success = 0; | |||
| 56513 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56514 | f2py_stop_call_clock(); | |||
| 56515 | #endif | |||
| 56516 | /*end of callfortranroutine*/ | |||
| 56517 | if (f2py_success) { | |||
| 56518 | /*pyobjfrom*/ | |||
| 56519 | /*end of pyobjfrom*/ | |||
| 56520 | CFUNCSMESS("Building return value.\n"); | |||
| 56521 | capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info); | |||
| 56522 | /*closepyobjfrom*/ | |||
| 56523 | /*end of closepyobjfrom*/ | |||
| 56524 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 56525 | /*cleanupfrompyobj*/ | |||
| 56526 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 56527 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 56528 | /* End of cleaning variable work */ | |||
| 56529 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 56530 | /* End of cleaning variable piv */ | |||
| 56531 | /* End of cleaning variable lda */ | |||
| 56532 | /* End of cleaning variable n */ | |||
| 56533 | /* End of cleaning variable info */ | |||
| 56534 | } /*if (f2py_success) of tol*/ | |||
| 56535 | /* End of cleaning variable tol */ | |||
| 56536 | /* End of cleaning variable rank_c */ | |||
| 56537 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 56538 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 56539 | /* End of cleaning variable a */ | |||
| 56540 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 56541 | } /*if (f2py_success) of lower*/ | |||
| 56542 | /* End of cleaning variable lower */ | |||
| 56543 | /*end of cleanupfrompyobj*/ | |||
| 56544 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 56545 | /*routdebugfailure*/ | |||
| 56546 | } else { | |||
| 56547 | /*routdebugleave*/ | |||
| 56548 | } | |||
| 56549 | CFUNCSMESS("Freeing memory.\n"); | |||
| 56550 | /*freemem*/ | |||
| 56551 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56552 | f2py_stop_clock(); | |||
| 56553 | #endif | |||
| 56554 | return capi_buildvalue; | |||
| 56555 | } | |||
| 56556 | /******************************* end of dpstrf *******************************/ | |||
| 56557 | ||||
| 56558 | /*********************************** cpstrf ***********************************/ | |||
| 56559 | static char doc_f2py_rout__flapack_cpstrf[] = "\ | |||
| 56560 | c,piv,rank_c,info = cpstrf(a,[tol,lower,overwrite_a])\n\nWrapper for ``cpstrf``.\ | |||
| 56561 | \n\nParameters\n----------\n" | |||
| 56562 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 56563 | "\nOther Parameters\n----------------\n" | |||
| 56564 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 56565 | "tol : input float, optional\n Default: -1.0\n" | |||
| 56566 | "lower : input int, optional\n Default: 0\n" | |||
| 56567 | "\nReturns\n-------\n" | |||
| 56568 | "c : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 56569 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 56570 | "rank_c : int\n" | |||
| 56571 | "info : int"; | |||
| 56572 | /* extern void F_FUNC(cpstrf,CPSTRF)(char*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT*,float*,float*,F_INT* ); */ | |||
| 56573 | static PyObject *f2py_rout__flapack_cpstrf(const PyObject *capi_self, | |||
| 56574 | PyObject *capi_args, | |||
| 56575 | PyObject *capi_keywds, | |||
| 56576 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* )) { | |||
| 56577 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 56578 | volatile int f2py_success = 1; | |||
| 56579 | /*decl*/ | |||
| 56580 | ||||
| 56581 | int n = 0; | |||
| 56582 | complex_float *a = NULL((void*)0); | |||
| 56583 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 56584 | const int a_Rank = 2; | |||
| 56585 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 56586 | int capi_a_intent = 0; | |||
| 56587 | int capi_overwrite_a = 0; | |||
| 56588 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 56589 | int lda = 0; | |||
| 56590 | int *piv = NULL((void*)0); | |||
| 56591 | npy_intp piv_Dims[1] = {-1}; | |||
| 56592 | const int piv_Rank = 1; | |||
| 56593 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 56594 | int capi_piv_intent = 0; | |||
| 56595 | int rank_c = 0; | |||
| 56596 | float tol = 0; | |||
| 56597 | PyObject *tol_capi = Py_None(&_Py_NoneStruct); | |||
| 56598 | float *work = NULL((void*)0); | |||
| 56599 | npy_intp work_Dims[1] = {-1}; | |||
| 56600 | const int work_Rank = 1; | |||
| 56601 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 56602 | int capi_work_intent = 0; | |||
| 56603 | int info = 0; | |||
| 56604 | int lower = 0; | |||
| 56605 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 56606 | static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)}; | |||
| 56607 | ||||
| 56608 | /*routdebugenter*/ | |||
| 56609 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56610 | f2py_start_clock(); | |||
| 56611 | #endif | |||
| 56612 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 56613 | "O|OOi:_flapack.cpstrf",\ | |||
| 56614 | capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a)) | |||
| 56615 | return NULL((void*)0); | |||
| 56616 | /*frompyobj*/ | |||
| 56617 | /* Processing variable lower */ | |||
| 56618 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 56619 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpstrf() 2nd keyword (lower) can't be converted to int"); | |||
| 56620 | if (f2py_success) { | |||
| 56621 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","cpstrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpstrf:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 56622 | /* Processing variable a */ | |||
| 56623 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 56624 | ; | |||
| 56625 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 56626 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 56627 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 56628 | if (!PyErr_Occurred()) | |||
| 56629 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cpstrf to C/Fortran array" ); | |||
| 56630 | } else { | |||
| 56631 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 56632 | ||||
| 56633 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 56634 | /* Processing variable rank_c */ | |||
| 56635 | /* Processing variable tol */ | |||
| 56636 | if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else | |||
| 56637 | f2py_success = float_from_pyobj(&tol,tol_capi,"_flapack.cpstrf() 1st keyword (tol) can't be converted to float"); | |||
| 56638 | if (f2py_success) { | |||
| 56639 | /* Processing variable info */ | |||
| 56640 | /* Processing variable n */ | |||
| 56641 | n = shape(a,0)a_Dims[0]; | |||
| 56642 | /* Processing variable lda */ | |||
| 56643 | lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 56644 | /* Processing variable piv */ | |||
| 56645 | piv_Dims[0]=n; | |||
| 56646 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 56647 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 56648 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 56649 | if (!PyErr_Occurred()) | |||
| 56650 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.cpstrf to C/Fortran array" ); | |||
| 56651 | } else { | |||
| 56652 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 56653 | ||||
| 56654 | /* Processing variable work */ | |||
| 56655 | work_Dims[0]=2 * n; | |||
| 56656 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 56657 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 56658 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 56659 | if (!PyErr_Occurred()) | |||
| 56660 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cpstrf to C/Fortran array" ); | |||
| 56661 | } else { | |||
| 56662 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 56663 | ||||
| 56664 | /*end of frompyobj*/ | |||
| 56665 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56666 | f2py_start_call_clock(); | |||
| 56667 | #endif | |||
| 56668 | /*callfortranroutine*/ | |||
| 56669 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ; | |||
| 56670 | /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/ | |||
| 56671 | if (PyErr_Occurred()) | |||
| 56672 | f2py_success = 0; | |||
| 56673 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56674 | f2py_stop_call_clock(); | |||
| 56675 | #endif | |||
| 56676 | /*end of callfortranroutine*/ | |||
| 56677 | if (f2py_success) { | |||
| 56678 | /*pyobjfrom*/ | |||
| 56679 | /*end of pyobjfrom*/ | |||
| 56680 | CFUNCSMESS("Building return value.\n"); | |||
| 56681 | capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info); | |||
| 56682 | /*closepyobjfrom*/ | |||
| 56683 | /*end of closepyobjfrom*/ | |||
| 56684 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 56685 | /*cleanupfrompyobj*/ | |||
| 56686 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 56687 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 56688 | /* End of cleaning variable work */ | |||
| 56689 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 56690 | /* End of cleaning variable piv */ | |||
| 56691 | /* End of cleaning variable lda */ | |||
| 56692 | /* End of cleaning variable n */ | |||
| 56693 | /* End of cleaning variable info */ | |||
| 56694 | } /*if (f2py_success) of tol*/ | |||
| 56695 | /* End of cleaning variable tol */ | |||
| 56696 | /* End of cleaning variable rank_c */ | |||
| 56697 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 56698 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 56699 | /* End of cleaning variable a */ | |||
| 56700 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 56701 | } /*if (f2py_success) of lower*/ | |||
| 56702 | /* End of cleaning variable lower */ | |||
| 56703 | /*end of cleanupfrompyobj*/ | |||
| 56704 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 56705 | /*routdebugfailure*/ | |||
| 56706 | } else { | |||
| 56707 | /*routdebugleave*/ | |||
| 56708 | } | |||
| 56709 | CFUNCSMESS("Freeing memory.\n"); | |||
| 56710 | /*freemem*/ | |||
| 56711 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56712 | f2py_stop_clock(); | |||
| 56713 | #endif | |||
| 56714 | return capi_buildvalue; | |||
| 56715 | } | |||
| 56716 | /******************************* end of cpstrf *******************************/ | |||
| 56717 | ||||
| 56718 | /*********************************** zpstrf ***********************************/ | |||
| 56719 | static char doc_f2py_rout__flapack_zpstrf[] = "\ | |||
| 56720 | c,piv,rank_c,info = zpstrf(a,[tol,lower,overwrite_a])\n\nWrapper for ``zpstrf``.\ | |||
| 56721 | \n\nParameters\n----------\n" | |||
| 56722 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 56723 | "\nOther Parameters\n----------------\n" | |||
| 56724 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 56725 | "tol : input float, optional\n Default: -1.0\n" | |||
| 56726 | "lower : input int, optional\n Default: 0\n" | |||
| 56727 | "\nReturns\n-------\n" | |||
| 56728 | "c : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 56729 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 56730 | "rank_c : int\n" | |||
| 56731 | "info : int"; | |||
| 56732 | /* extern void F_FUNC(zpstrf,ZPSTRF)(char*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT*,double*,double*,F_INT* ); */ | |||
| 56733 | static PyObject *f2py_rout__flapack_zpstrf(const PyObject *capi_self, | |||
| 56734 | PyObject *capi_args, | |||
| 56735 | PyObject *capi_keywds, | |||
| 56736 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* )) { | |||
| 56737 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 56738 | volatile int f2py_success = 1; | |||
| 56739 | /*decl*/ | |||
| 56740 | ||||
| 56741 | int n = 0; | |||
| 56742 | complex_double *a = NULL((void*)0); | |||
| 56743 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 56744 | const int a_Rank = 2; | |||
| 56745 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 56746 | int capi_a_intent = 0; | |||
| 56747 | int capi_overwrite_a = 0; | |||
| 56748 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 56749 | int lda = 0; | |||
| 56750 | int *piv = NULL((void*)0); | |||
| 56751 | npy_intp piv_Dims[1] = {-1}; | |||
| 56752 | const int piv_Rank = 1; | |||
| 56753 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 56754 | int capi_piv_intent = 0; | |||
| 56755 | int rank_c = 0; | |||
| 56756 | double tol = 0; | |||
| 56757 | PyObject *tol_capi = Py_None(&_Py_NoneStruct); | |||
| 56758 | double *work = NULL((void*)0); | |||
| 56759 | npy_intp work_Dims[1] = {-1}; | |||
| 56760 | const int work_Rank = 1; | |||
| 56761 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 56762 | int capi_work_intent = 0; | |||
| 56763 | int info = 0; | |||
| 56764 | int lower = 0; | |||
| 56765 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 56766 | static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)}; | |||
| 56767 | ||||
| 56768 | /*routdebugenter*/ | |||
| 56769 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56770 | f2py_start_clock(); | |||
| 56771 | #endif | |||
| 56772 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 56773 | "O|OOi:_flapack.zpstrf",\ | |||
| 56774 | capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a)) | |||
| 56775 | return NULL((void*)0); | |||
| 56776 | /*frompyobj*/ | |||
| 56777 | /* Processing variable lower */ | |||
| 56778 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 56779 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpstrf() 2nd keyword (lower) can't be converted to int"); | |||
| 56780 | if (f2py_success) { | |||
| 56781 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zpstrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpstrf:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 56782 | /* Processing variable a */ | |||
| 56783 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 56784 | ; | |||
| 56785 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 56786 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 56787 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 56788 | if (!PyErr_Occurred()) | |||
| 56789 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zpstrf to C/Fortran array" ); | |||
| 56790 | } else { | |||
| 56791 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 56792 | ||||
| 56793 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 56794 | /* Processing variable rank_c */ | |||
| 56795 | /* Processing variable tol */ | |||
| 56796 | if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else | |||
| 56797 | f2py_success = double_from_pyobj(&tol,tol_capi,"_flapack.zpstrf() 1st keyword (tol) can't be converted to double"); | |||
| 56798 | if (f2py_success) { | |||
| 56799 | /* Processing variable info */ | |||
| 56800 | /* Processing variable n */ | |||
| 56801 | n = shape(a,0)a_Dims[0]; | |||
| 56802 | /* Processing variable lda */ | |||
| 56803 | lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 56804 | /* Processing variable piv */ | |||
| 56805 | piv_Dims[0]=n; | |||
| 56806 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 56807 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 56808 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 56809 | if (!PyErr_Occurred()) | |||
| 56810 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.zpstrf to C/Fortran array" ); | |||
| 56811 | } else { | |||
| 56812 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 56813 | ||||
| 56814 | /* Processing variable work */ | |||
| 56815 | work_Dims[0]=2 * n; | |||
| 56816 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 56817 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 56818 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 56819 | if (!PyErr_Occurred()) | |||
| 56820 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zpstrf to C/Fortran array" ); | |||
| 56821 | } else { | |||
| 56822 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 56823 | ||||
| 56824 | /*end of frompyobj*/ | |||
| 56825 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56826 | f2py_start_call_clock(); | |||
| 56827 | #endif | |||
| 56828 | /*callfortranroutine*/ | |||
| 56829 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ; | |||
| 56830 | /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/ | |||
| 56831 | if (PyErr_Occurred()) | |||
| 56832 | f2py_success = 0; | |||
| 56833 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56834 | f2py_stop_call_clock(); | |||
| 56835 | #endif | |||
| 56836 | /*end of callfortranroutine*/ | |||
| 56837 | if (f2py_success) { | |||
| 56838 | /*pyobjfrom*/ | |||
| 56839 | /*end of pyobjfrom*/ | |||
| 56840 | CFUNCSMESS("Building return value.\n"); | |||
| 56841 | capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info); | |||
| 56842 | /*closepyobjfrom*/ | |||
| 56843 | /*end of closepyobjfrom*/ | |||
| 56844 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 56845 | /*cleanupfrompyobj*/ | |||
| 56846 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 56847 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 56848 | /* End of cleaning variable work */ | |||
| 56849 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 56850 | /* End of cleaning variable piv */ | |||
| 56851 | /* End of cleaning variable lda */ | |||
| 56852 | /* End of cleaning variable n */ | |||
| 56853 | /* End of cleaning variable info */ | |||
| 56854 | } /*if (f2py_success) of tol*/ | |||
| 56855 | /* End of cleaning variable tol */ | |||
| 56856 | /* End of cleaning variable rank_c */ | |||
| 56857 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 56858 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 56859 | /* End of cleaning variable a */ | |||
| 56860 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 56861 | } /*if (f2py_success) of lower*/ | |||
| 56862 | /* End of cleaning variable lower */ | |||
| 56863 | /*end of cleanupfrompyobj*/ | |||
| 56864 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 56865 | /*routdebugfailure*/ | |||
| 56866 | } else { | |||
| 56867 | /*routdebugleave*/ | |||
| 56868 | } | |||
| 56869 | CFUNCSMESS("Freeing memory.\n"); | |||
| 56870 | /*freemem*/ | |||
| 56871 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56872 | f2py_stop_clock(); | |||
| 56873 | #endif | |||
| 56874 | return capi_buildvalue; | |||
| 56875 | } | |||
| 56876 | /******************************* end of zpstrf *******************************/ | |||
| 56877 | ||||
| 56878 | /*********************************** spstf2 ***********************************/ | |||
| 56879 | static char doc_f2py_rout__flapack_spstf2[] = "\ | |||
| 56880 | c,piv,rank_c,info = spstf2(a,[tol,lower,overwrite_a])\n\nWrapper for ``spstf2``.\ | |||
| 56881 | \n\nParameters\n----------\n" | |||
| 56882 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 56883 | "\nOther Parameters\n----------------\n" | |||
| 56884 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 56885 | "tol : input float, optional\n Default: -1.0\n" | |||
| 56886 | "lower : input int, optional\n Default: 0\n" | |||
| 56887 | "\nReturns\n-------\n" | |||
| 56888 | "c : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 56889 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 56890 | "rank_c : int\n" | |||
| 56891 | "info : int"; | |||
| 56892 | /* extern void F_FUNC(spstf2,SPSTF2)(char*,F_INT*,float*,F_INT*,F_INT*,F_INT*,float*,float*,F_INT* ); */ | |||
| 56893 | static PyObject *f2py_rout__flapack_spstf2(const PyObject *capi_self, | |||
| 56894 | PyObject *capi_args, | |||
| 56895 | PyObject *capi_keywds, | |||
| 56896 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* )) { | |||
| 56897 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 56898 | volatile int f2py_success = 1; | |||
| 56899 | /*decl*/ | |||
| 56900 | ||||
| 56901 | int n = 0; | |||
| 56902 | float *a = NULL((void*)0); | |||
| 56903 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 56904 | const int a_Rank = 2; | |||
| 56905 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 56906 | int capi_a_intent = 0; | |||
| 56907 | int capi_overwrite_a = 0; | |||
| 56908 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 56909 | int lda = 0; | |||
| 56910 | int *piv = NULL((void*)0); | |||
| 56911 | npy_intp piv_Dims[1] = {-1}; | |||
| 56912 | const int piv_Rank = 1; | |||
| 56913 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 56914 | int capi_piv_intent = 0; | |||
| 56915 | int rank_c = 0; | |||
| 56916 | float tol = 0; | |||
| 56917 | PyObject *tol_capi = Py_None(&_Py_NoneStruct); | |||
| 56918 | float *work = NULL((void*)0); | |||
| 56919 | npy_intp work_Dims[1] = {-1}; | |||
| 56920 | const int work_Rank = 1; | |||
| 56921 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 56922 | int capi_work_intent = 0; | |||
| 56923 | int info = 0; | |||
| 56924 | int lower = 0; | |||
| 56925 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 56926 | static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)}; | |||
| 56927 | ||||
| 56928 | /*routdebugenter*/ | |||
| 56929 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56930 | f2py_start_clock(); | |||
| 56931 | #endif | |||
| 56932 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 56933 | "O|OOi:_flapack.spstf2",\ | |||
| 56934 | capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a)) | |||
| 56935 | return NULL((void*)0); | |||
| 56936 | /*frompyobj*/ | |||
| 56937 | /* Processing variable lower */ | |||
| 56938 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 56939 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spstf2() 2nd keyword (lower) can't be converted to int"); | |||
| 56940 | if (f2py_success) { | |||
| 56941 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","spstf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spstf2:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 56942 | /* Processing variable a */ | |||
| 56943 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 56944 | ; | |||
| 56945 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 56946 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 56947 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 56948 | if (!PyErr_Occurred()) | |||
| 56949 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.spstf2 to C/Fortran array" ); | |||
| 56950 | } else { | |||
| 56951 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 56952 | ||||
| 56953 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 56954 | /* Processing variable rank_c */ | |||
| 56955 | /* Processing variable tol */ | |||
| 56956 | if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else | |||
| 56957 | f2py_success = float_from_pyobj(&tol,tol_capi,"_flapack.spstf2() 1st keyword (tol) can't be converted to float"); | |||
| 56958 | if (f2py_success) { | |||
| 56959 | /* Processing variable info */ | |||
| 56960 | /* Processing variable n */ | |||
| 56961 | n = shape(a,0)a_Dims[0]; | |||
| 56962 | /* Processing variable lda */ | |||
| 56963 | lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 56964 | /* Processing variable piv */ | |||
| 56965 | piv_Dims[0]=n; | |||
| 56966 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 56967 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 56968 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 56969 | if (!PyErr_Occurred()) | |||
| 56970 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.spstf2 to C/Fortran array" ); | |||
| 56971 | } else { | |||
| 56972 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 56973 | ||||
| 56974 | /* Processing variable work */ | |||
| 56975 | work_Dims[0]=2 * n; | |||
| 56976 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 56977 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 56978 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 56979 | if (!PyErr_Occurred()) | |||
| 56980 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.spstf2 to C/Fortran array" ); | |||
| 56981 | } else { | |||
| 56982 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 56983 | ||||
| 56984 | /*end of frompyobj*/ | |||
| 56985 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56986 | f2py_start_call_clock(); | |||
| 56987 | #endif | |||
| 56988 | /*callfortranroutine*/ | |||
| 56989 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ; | |||
| 56990 | /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/ | |||
| 56991 | if (PyErr_Occurred()) | |||
| 56992 | f2py_success = 0; | |||
| 56993 | #ifdef F2PY_REPORT_ATEXIT | |||
| 56994 | f2py_stop_call_clock(); | |||
| 56995 | #endif | |||
| 56996 | /*end of callfortranroutine*/ | |||
| 56997 | if (f2py_success) { | |||
| 56998 | /*pyobjfrom*/ | |||
| 56999 | /*end of pyobjfrom*/ | |||
| 57000 | CFUNCSMESS("Building return value.\n"); | |||
| 57001 | capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info); | |||
| 57002 | /*closepyobjfrom*/ | |||
| 57003 | /*end of closepyobjfrom*/ | |||
| 57004 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 57005 | /*cleanupfrompyobj*/ | |||
| 57006 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 57007 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 57008 | /* End of cleaning variable work */ | |||
| 57009 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 57010 | /* End of cleaning variable piv */ | |||
| 57011 | /* End of cleaning variable lda */ | |||
| 57012 | /* End of cleaning variable n */ | |||
| 57013 | /* End of cleaning variable info */ | |||
| 57014 | } /*if (f2py_success) of tol*/ | |||
| 57015 | /* End of cleaning variable tol */ | |||
| 57016 | /* End of cleaning variable rank_c */ | |||
| 57017 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 57018 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 57019 | /* End of cleaning variable a */ | |||
| 57020 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 57021 | } /*if (f2py_success) of lower*/ | |||
| 57022 | /* End of cleaning variable lower */ | |||
| 57023 | /*end of cleanupfrompyobj*/ | |||
| 57024 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 57025 | /*routdebugfailure*/ | |||
| 57026 | } else { | |||
| 57027 | /*routdebugleave*/ | |||
| 57028 | } | |||
| 57029 | CFUNCSMESS("Freeing memory.\n"); | |||
| 57030 | /*freemem*/ | |||
| 57031 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57032 | f2py_stop_clock(); | |||
| 57033 | #endif | |||
| 57034 | return capi_buildvalue; | |||
| 57035 | } | |||
| 57036 | /******************************* end of spstf2 *******************************/ | |||
| 57037 | ||||
| 57038 | /*********************************** dpstf2 ***********************************/ | |||
| 57039 | static char doc_f2py_rout__flapack_dpstf2[] = "\ | |||
| 57040 | c,piv,rank_c,info = dpstf2(a,[tol,lower,overwrite_a])\n\nWrapper for ``dpstf2``.\ | |||
| 57041 | \n\nParameters\n----------\n" | |||
| 57042 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 57043 | "\nOther Parameters\n----------------\n" | |||
| 57044 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 57045 | "tol : input float, optional\n Default: -1.0\n" | |||
| 57046 | "lower : input int, optional\n Default: 0\n" | |||
| 57047 | "\nReturns\n-------\n" | |||
| 57048 | "c : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 57049 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 57050 | "rank_c : int\n" | |||
| 57051 | "info : int"; | |||
| 57052 | /* extern void F_FUNC(dpstf2,DPSTF2)(char*,F_INT*,double*,F_INT*,F_INT*,F_INT*,double*,double*,F_INT* ); */ | |||
| 57053 | static PyObject *f2py_rout__flapack_dpstf2(const PyObject *capi_self, | |||
| 57054 | PyObject *capi_args, | |||
| 57055 | PyObject *capi_keywds, | |||
| 57056 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* )) { | |||
| 57057 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 57058 | volatile int f2py_success = 1; | |||
| 57059 | /*decl*/ | |||
| 57060 | ||||
| 57061 | int n = 0; | |||
| 57062 | double *a = NULL((void*)0); | |||
| 57063 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 57064 | const int a_Rank = 2; | |||
| 57065 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 57066 | int capi_a_intent = 0; | |||
| 57067 | int capi_overwrite_a = 0; | |||
| 57068 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 57069 | int lda = 0; | |||
| 57070 | int *piv = NULL((void*)0); | |||
| 57071 | npy_intp piv_Dims[1] = {-1}; | |||
| 57072 | const int piv_Rank = 1; | |||
| 57073 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 57074 | int capi_piv_intent = 0; | |||
| 57075 | int rank_c = 0; | |||
| 57076 | double tol = 0; | |||
| 57077 | PyObject *tol_capi = Py_None(&_Py_NoneStruct); | |||
| 57078 | double *work = NULL((void*)0); | |||
| 57079 | npy_intp work_Dims[1] = {-1}; | |||
| 57080 | const int work_Rank = 1; | |||
| 57081 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 57082 | int capi_work_intent = 0; | |||
| 57083 | int info = 0; | |||
| 57084 | int lower = 0; | |||
| 57085 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 57086 | static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)}; | |||
| 57087 | ||||
| 57088 | /*routdebugenter*/ | |||
| 57089 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57090 | f2py_start_clock(); | |||
| 57091 | #endif | |||
| 57092 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 57093 | "O|OOi:_flapack.dpstf2",\ | |||
| 57094 | capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a)) | |||
| 57095 | return NULL((void*)0); | |||
| 57096 | /*frompyobj*/ | |||
| 57097 | /* Processing variable lower */ | |||
| 57098 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 57099 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpstf2() 2nd keyword (lower) can't be converted to int"); | |||
| 57100 | if (f2py_success) { | |||
| 57101 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dpstf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpstf2:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 57102 | /* Processing variable a */ | |||
| 57103 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 57104 | ; | |||
| 57105 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 57106 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 57107 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 57108 | if (!PyErr_Occurred()) | |||
| 57109 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dpstf2 to C/Fortran array" ); | |||
| 57110 | } else { | |||
| 57111 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 57112 | ||||
| 57113 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 57114 | /* Processing variable rank_c */ | |||
| 57115 | /* Processing variable tol */ | |||
| 57116 | if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else | |||
| 57117 | f2py_success = double_from_pyobj(&tol,tol_capi,"_flapack.dpstf2() 1st keyword (tol) can't be converted to double"); | |||
| 57118 | if (f2py_success) { | |||
| 57119 | /* Processing variable info */ | |||
| 57120 | /* Processing variable n */ | |||
| 57121 | n = shape(a,0)a_Dims[0]; | |||
| 57122 | /* Processing variable lda */ | |||
| 57123 | lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 57124 | /* Processing variable piv */ | |||
| 57125 | piv_Dims[0]=n; | |||
| 57126 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 57127 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 57128 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 57129 | if (!PyErr_Occurred()) | |||
| 57130 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.dpstf2 to C/Fortran array" ); | |||
| 57131 | } else { | |||
| 57132 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 57133 | ||||
| 57134 | /* Processing variable work */ | |||
| 57135 | work_Dims[0]=2 * n; | |||
| 57136 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 57137 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 57138 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 57139 | if (!PyErr_Occurred()) | |||
| 57140 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dpstf2 to C/Fortran array" ); | |||
| 57141 | } else { | |||
| 57142 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 57143 | ||||
| 57144 | /*end of frompyobj*/ | |||
| 57145 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57146 | f2py_start_call_clock(); | |||
| 57147 | #endif | |||
| 57148 | /*callfortranroutine*/ | |||
| 57149 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ; | |||
| 57150 | /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/ | |||
| 57151 | if (PyErr_Occurred()) | |||
| 57152 | f2py_success = 0; | |||
| 57153 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57154 | f2py_stop_call_clock(); | |||
| 57155 | #endif | |||
| 57156 | /*end of callfortranroutine*/ | |||
| 57157 | if (f2py_success) { | |||
| 57158 | /*pyobjfrom*/ | |||
| 57159 | /*end of pyobjfrom*/ | |||
| 57160 | CFUNCSMESS("Building return value.\n"); | |||
| 57161 | capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info); | |||
| 57162 | /*closepyobjfrom*/ | |||
| 57163 | /*end of closepyobjfrom*/ | |||
| 57164 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 57165 | /*cleanupfrompyobj*/ | |||
| 57166 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 57167 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 57168 | /* End of cleaning variable work */ | |||
| 57169 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 57170 | /* End of cleaning variable piv */ | |||
| 57171 | /* End of cleaning variable lda */ | |||
| 57172 | /* End of cleaning variable n */ | |||
| 57173 | /* End of cleaning variable info */ | |||
| 57174 | } /*if (f2py_success) of tol*/ | |||
| 57175 | /* End of cleaning variable tol */ | |||
| 57176 | /* End of cleaning variable rank_c */ | |||
| 57177 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 57178 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 57179 | /* End of cleaning variable a */ | |||
| 57180 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 57181 | } /*if (f2py_success) of lower*/ | |||
| 57182 | /* End of cleaning variable lower */ | |||
| 57183 | /*end of cleanupfrompyobj*/ | |||
| 57184 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 57185 | /*routdebugfailure*/ | |||
| 57186 | } else { | |||
| 57187 | /*routdebugleave*/ | |||
| 57188 | } | |||
| 57189 | CFUNCSMESS("Freeing memory.\n"); | |||
| 57190 | /*freemem*/ | |||
| 57191 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57192 | f2py_stop_clock(); | |||
| 57193 | #endif | |||
| 57194 | return capi_buildvalue; | |||
| 57195 | } | |||
| 57196 | /******************************* end of dpstf2 *******************************/ | |||
| 57197 | ||||
| 57198 | /*********************************** cpstf2 ***********************************/ | |||
| 57199 | static char doc_f2py_rout__flapack_cpstf2[] = "\ | |||
| 57200 | c,piv,rank_c,info = cpstf2(a,[tol,lower,overwrite_a])\n\nWrapper for ``cpstf2``.\ | |||
| 57201 | \n\nParameters\n----------\n" | |||
| 57202 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 57203 | "\nOther Parameters\n----------------\n" | |||
| 57204 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 57205 | "tol : input float, optional\n Default: -1.0\n" | |||
| 57206 | "lower : input int, optional\n Default: 0\n" | |||
| 57207 | "\nReturns\n-------\n" | |||
| 57208 | "c : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 57209 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 57210 | "rank_c : int\n" | |||
| 57211 | "info : int"; | |||
| 57212 | /* extern void F_FUNC(cpstf2,CPSTF2)(char*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT*,float*,float*,F_INT* ); */ | |||
| 57213 | static PyObject *f2py_rout__flapack_cpstf2(const PyObject *capi_self, | |||
| 57214 | PyObject *capi_args, | |||
| 57215 | PyObject *capi_keywds, | |||
| 57216 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* )) { | |||
| 57217 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 57218 | volatile int f2py_success = 1; | |||
| 57219 | /*decl*/ | |||
| 57220 | ||||
| 57221 | int n = 0; | |||
| 57222 | complex_float *a = NULL((void*)0); | |||
| 57223 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 57224 | const int a_Rank = 2; | |||
| 57225 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 57226 | int capi_a_intent = 0; | |||
| 57227 | int capi_overwrite_a = 0; | |||
| 57228 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 57229 | int lda = 0; | |||
| 57230 | int *piv = NULL((void*)0); | |||
| 57231 | npy_intp piv_Dims[1] = {-1}; | |||
| 57232 | const int piv_Rank = 1; | |||
| 57233 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 57234 | int capi_piv_intent = 0; | |||
| 57235 | int rank_c = 0; | |||
| 57236 | float tol = 0; | |||
| 57237 | PyObject *tol_capi = Py_None(&_Py_NoneStruct); | |||
| 57238 | float *work = NULL((void*)0); | |||
| 57239 | npy_intp work_Dims[1] = {-1}; | |||
| 57240 | const int work_Rank = 1; | |||
| 57241 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 57242 | int capi_work_intent = 0; | |||
| 57243 | int info = 0; | |||
| 57244 | int lower = 0; | |||
| 57245 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 57246 | static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)}; | |||
| 57247 | ||||
| 57248 | /*routdebugenter*/ | |||
| 57249 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57250 | f2py_start_clock(); | |||
| 57251 | #endif | |||
| 57252 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 57253 | "O|OOi:_flapack.cpstf2",\ | |||
| 57254 | capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a)) | |||
| 57255 | return NULL((void*)0); | |||
| 57256 | /*frompyobj*/ | |||
| 57257 | /* Processing variable lower */ | |||
| 57258 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 57259 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpstf2() 2nd keyword (lower) can't be converted to int"); | |||
| 57260 | if (f2py_success) { | |||
| 57261 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","cpstf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpstf2:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 57262 | /* Processing variable a */ | |||
| 57263 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 57264 | ; | |||
| 57265 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 57266 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 57267 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 57268 | if (!PyErr_Occurred()) | |||
| 57269 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cpstf2 to C/Fortran array" ); | |||
| 57270 | } else { | |||
| 57271 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 57272 | ||||
| 57273 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 57274 | /* Processing variable rank_c */ | |||
| 57275 | /* Processing variable tol */ | |||
| 57276 | if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else | |||
| 57277 | f2py_success = float_from_pyobj(&tol,tol_capi,"_flapack.cpstf2() 1st keyword (tol) can't be converted to float"); | |||
| 57278 | if (f2py_success) { | |||
| 57279 | /* Processing variable info */ | |||
| 57280 | /* Processing variable n */ | |||
| 57281 | n = shape(a,0)a_Dims[0]; | |||
| 57282 | /* Processing variable lda */ | |||
| 57283 | lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 57284 | /* Processing variable piv */ | |||
| 57285 | piv_Dims[0]=n; | |||
| 57286 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 57287 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 57288 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 57289 | if (!PyErr_Occurred()) | |||
| 57290 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.cpstf2 to C/Fortran array" ); | |||
| 57291 | } else { | |||
| 57292 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 57293 | ||||
| 57294 | /* Processing variable work */ | |||
| 57295 | work_Dims[0]=2 * n; | |||
| 57296 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 57297 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 57298 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 57299 | if (!PyErr_Occurred()) | |||
| 57300 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cpstf2 to C/Fortran array" ); | |||
| 57301 | } else { | |||
| 57302 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 57303 | ||||
| 57304 | /*end of frompyobj*/ | |||
| 57305 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57306 | f2py_start_call_clock(); | |||
| 57307 | #endif | |||
| 57308 | /*callfortranroutine*/ | |||
| 57309 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ; | |||
| 57310 | /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/ | |||
| 57311 | if (PyErr_Occurred()) | |||
| 57312 | f2py_success = 0; | |||
| 57313 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57314 | f2py_stop_call_clock(); | |||
| 57315 | #endif | |||
| 57316 | /*end of callfortranroutine*/ | |||
| 57317 | if (f2py_success) { | |||
| 57318 | /*pyobjfrom*/ | |||
| 57319 | /*end of pyobjfrom*/ | |||
| 57320 | CFUNCSMESS("Building return value.\n"); | |||
| 57321 | capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info); | |||
| 57322 | /*closepyobjfrom*/ | |||
| 57323 | /*end of closepyobjfrom*/ | |||
| 57324 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 57325 | /*cleanupfrompyobj*/ | |||
| 57326 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 57327 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 57328 | /* End of cleaning variable work */ | |||
| 57329 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 57330 | /* End of cleaning variable piv */ | |||
| 57331 | /* End of cleaning variable lda */ | |||
| 57332 | /* End of cleaning variable n */ | |||
| 57333 | /* End of cleaning variable info */ | |||
| 57334 | } /*if (f2py_success) of tol*/ | |||
| 57335 | /* End of cleaning variable tol */ | |||
| 57336 | /* End of cleaning variable rank_c */ | |||
| 57337 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 57338 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 57339 | /* End of cleaning variable a */ | |||
| 57340 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 57341 | } /*if (f2py_success) of lower*/ | |||
| 57342 | /* End of cleaning variable lower */ | |||
| 57343 | /*end of cleanupfrompyobj*/ | |||
| 57344 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 57345 | /*routdebugfailure*/ | |||
| 57346 | } else { | |||
| 57347 | /*routdebugleave*/ | |||
| 57348 | } | |||
| 57349 | CFUNCSMESS("Freeing memory.\n"); | |||
| 57350 | /*freemem*/ | |||
| 57351 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57352 | f2py_stop_clock(); | |||
| 57353 | #endif | |||
| 57354 | return capi_buildvalue; | |||
| 57355 | } | |||
| 57356 | /******************************* end of cpstf2 *******************************/ | |||
| 57357 | ||||
| 57358 | /*********************************** zpstf2 ***********************************/ | |||
| 57359 | static char doc_f2py_rout__flapack_zpstf2[] = "\ | |||
| 57360 | c,piv,rank_c,info = zpstf2(a,[tol,lower,overwrite_a])\n\nWrapper for ``zpstf2``.\ | |||
| 57361 | \n\nParameters\n----------\n" | |||
| 57362 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 57363 | "\nOther Parameters\n----------------\n" | |||
| 57364 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 57365 | "tol : input float, optional\n Default: -1.0\n" | |||
| 57366 | "lower : input int, optional\n Default: 0\n" | |||
| 57367 | "\nReturns\n-------\n" | |||
| 57368 | "c : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 57369 | "piv : rank-1 array('i') with bounds (n)\n" | |||
| 57370 | "rank_c : int\n" | |||
| 57371 | "info : int"; | |||
| 57372 | /* extern void F_FUNC(zpstf2,ZPSTF2)(char*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT*,double*,double*,F_INT* ); */ | |||
| 57373 | static PyObject *f2py_rout__flapack_zpstf2(const PyObject *capi_self, | |||
| 57374 | PyObject *capi_args, | |||
| 57375 | PyObject *capi_keywds, | |||
| 57376 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* )) { | |||
| 57377 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 57378 | volatile int f2py_success = 1; | |||
| 57379 | /*decl*/ | |||
| 57380 | ||||
| 57381 | int n = 0; | |||
| 57382 | complex_double *a = NULL((void*)0); | |||
| 57383 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 57384 | const int a_Rank = 2; | |||
| 57385 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 57386 | int capi_a_intent = 0; | |||
| 57387 | int capi_overwrite_a = 0; | |||
| 57388 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 57389 | int lda = 0; | |||
| 57390 | int *piv = NULL((void*)0); | |||
| 57391 | npy_intp piv_Dims[1] = {-1}; | |||
| 57392 | const int piv_Rank = 1; | |||
| 57393 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 57394 | int capi_piv_intent = 0; | |||
| 57395 | int rank_c = 0; | |||
| 57396 | double tol = 0; | |||
| 57397 | PyObject *tol_capi = Py_None(&_Py_NoneStruct); | |||
| 57398 | double *work = NULL((void*)0); | |||
| 57399 | npy_intp work_Dims[1] = {-1}; | |||
| 57400 | const int work_Rank = 1; | |||
| 57401 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 57402 | int capi_work_intent = 0; | |||
| 57403 | int info = 0; | |||
| 57404 | int lower = 0; | |||
| 57405 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 57406 | static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)}; | |||
| 57407 | ||||
| 57408 | /*routdebugenter*/ | |||
| 57409 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57410 | f2py_start_clock(); | |||
| 57411 | #endif | |||
| 57412 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 57413 | "O|OOi:_flapack.zpstf2",\ | |||
| 57414 | capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a)) | |||
| 57415 | return NULL((void*)0); | |||
| 57416 | /*frompyobj*/ | |||
| 57417 | /* Processing variable lower */ | |||
| 57418 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 57419 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpstf2() 2nd keyword (lower) can't be converted to int"); | |||
| 57420 | if (f2py_success) { | |||
| 57421 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zpstf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpstf2:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 57422 | /* Processing variable a */ | |||
| 57423 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 57424 | ; | |||
| 57425 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 57426 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 57427 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 57428 | if (!PyErr_Occurred()) | |||
| 57429 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zpstf2 to C/Fortran array" ); | |||
| 57430 | } else { | |||
| 57431 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 57432 | ||||
| 57433 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 57434 | /* Processing variable rank_c */ | |||
| 57435 | /* Processing variable tol */ | |||
| 57436 | if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else | |||
| 57437 | f2py_success = double_from_pyobj(&tol,tol_capi,"_flapack.zpstf2() 1st keyword (tol) can't be converted to double"); | |||
| 57438 | if (f2py_success) { | |||
| 57439 | /* Processing variable info */ | |||
| 57440 | /* Processing variable n */ | |||
| 57441 | n = shape(a,0)a_Dims[0]; | |||
| 57442 | /* Processing variable lda */ | |||
| 57443 | lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 57444 | /* Processing variable piv */ | |||
| 57445 | piv_Dims[0]=n; | |||
| 57446 | capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 57447 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct)); | |||
| 57448 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 57449 | if (!PyErr_Occurred()) | |||
| 57450 | PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.zpstf2 to C/Fortran array" ); | |||
| 57451 | } else { | |||
| 57452 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 57453 | ||||
| 57454 | /* Processing variable work */ | |||
| 57455 | work_Dims[0]=2 * n; | |||
| 57456 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 57457 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 57458 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 57459 | if (!PyErr_Occurred()) | |||
| 57460 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zpstf2 to C/Fortran array" ); | |||
| 57461 | } else { | |||
| 57462 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 57463 | ||||
| 57464 | /*end of frompyobj*/ | |||
| 57465 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57466 | f2py_start_call_clock(); | |||
| 57467 | #endif | |||
| 57468 | /*callfortranroutine*/ | |||
| 57469 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ; | |||
| 57470 | /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/ | |||
| 57471 | if (PyErr_Occurred()) | |||
| 57472 | f2py_success = 0; | |||
| 57473 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57474 | f2py_stop_call_clock(); | |||
| 57475 | #endif | |||
| 57476 | /*end of callfortranroutine*/ | |||
| 57477 | if (f2py_success) { | |||
| 57478 | /*pyobjfrom*/ | |||
| 57479 | /*end of pyobjfrom*/ | |||
| 57480 | CFUNCSMESS("Building return value.\n"); | |||
| 57481 | capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info); | |||
| 57482 | /*closepyobjfrom*/ | |||
| 57483 | /*end of closepyobjfrom*/ | |||
| 57484 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 57485 | /*cleanupfrompyobj*/ | |||
| 57486 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 57487 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 57488 | /* End of cleaning variable work */ | |||
| 57489 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 57490 | /* End of cleaning variable piv */ | |||
| 57491 | /* End of cleaning variable lda */ | |||
| 57492 | /* End of cleaning variable n */ | |||
| 57493 | /* End of cleaning variable info */ | |||
| 57494 | } /*if (f2py_success) of tol*/ | |||
| 57495 | /* End of cleaning variable tol */ | |||
| 57496 | /* End of cleaning variable rank_c */ | |||
| 57497 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 57498 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 57499 | /* End of cleaning variable a */ | |||
| 57500 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 57501 | } /*if (f2py_success) of lower*/ | |||
| 57502 | /* End of cleaning variable lower */ | |||
| 57503 | /*end of cleanupfrompyobj*/ | |||
| 57504 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 57505 | /*routdebugfailure*/ | |||
| 57506 | } else { | |||
| 57507 | /*routdebugleave*/ | |||
| 57508 | } | |||
| 57509 | CFUNCSMESS("Freeing memory.\n"); | |||
| 57510 | /*freemem*/ | |||
| 57511 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57512 | f2py_stop_clock(); | |||
| 57513 | #endif | |||
| 57514 | return capi_buildvalue; | |||
| 57515 | } | |||
| 57516 | /******************************* end of zpstf2 *******************************/ | |||
| 57517 | ||||
| 57518 | /*********************************** sposv ***********************************/ | |||
| 57519 | static char doc_f2py_rout__flapack_sposv[] = "\ | |||
| 57520 | c,x,info = sposv(a,b,[lower,overwrite_a,overwrite_b])\n\nWrapper for ``sposv``.\ | |||
| 57521 | \n\nParameters\n----------\n" | |||
| 57522 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 57523 | "b : input rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 57524 | "\nOther Parameters\n----------------\n" | |||
| 57525 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 57526 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 57527 | "lower : input int, optional\n Default: 0\n" | |||
| 57528 | "\nReturns\n-------\n" | |||
| 57529 | "c : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 57530 | "x : rank-2 array('f') with bounds (n,nrhs) and b storage\n" | |||
| 57531 | "info : int"; | |||
| 57532 | /* extern void F_FUNC(sposv,SPOSV)(char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 57533 | static PyObject *f2py_rout__flapack_sposv(const PyObject *capi_self, | |||
| 57534 | PyObject *capi_args, | |||
| 57535 | PyObject *capi_keywds, | |||
| 57536 | void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 57537 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 57538 | volatile int f2py_success = 1; | |||
| 57539 | /*decl*/ | |||
| 57540 | ||||
| 57541 | int n = 0; | |||
| 57542 | int nrhs = 0; | |||
| 57543 | float *a = NULL((void*)0); | |||
| 57544 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 57545 | const int a_Rank = 2; | |||
| 57546 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 57547 | int capi_a_intent = 0; | |||
| 57548 | int capi_overwrite_a = 0; | |||
| 57549 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 57550 | float *b = NULL((void*)0); | |||
| 57551 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 57552 | const int b_Rank = 2; | |||
| 57553 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 57554 | int capi_b_intent = 0; | |||
| 57555 | int capi_overwrite_b = 0; | |||
| 57556 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 57557 | int info = 0; | |||
| 57558 | int lower = 0; | |||
| 57559 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 57560 | static char *capi_kwlist[] = {"a","b","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 57561 | ||||
| 57562 | /*routdebugenter*/ | |||
| 57563 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57564 | f2py_start_clock(); | |||
| 57565 | #endif | |||
| 57566 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 57567 | "OO|Oii:_flapack.sposv",\ | |||
| 57568 | capi_kwlist,&a_capi,&b_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 57569 | return NULL((void*)0); | |||
| 57570 | /*frompyobj*/ | |||
| 57571 | /* Processing variable lower */ | |||
| 57572 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 57573 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.sposv() 1st keyword (lower) can't be converted to int"); | |||
| 57574 | if (f2py_success) { | |||
| 57575 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","sposv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sposv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 57576 | /* Processing variable a */ | |||
| 57577 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 57578 | ; | |||
| 57579 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 57580 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 57581 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 57582 | if (!PyErr_Occurred()) | |||
| 57583 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sposv to C/Fortran array" ); | |||
| 57584 | } else { | |||
| 57585 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 57586 | ||||
| 57587 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 57588 | /* Processing variable info */ | |||
| 57589 | /* Processing variable n */ | |||
| 57590 | n = shape(a,0)a_Dims[0]; | |||
| 57591 | /* Processing variable b */ | |||
| 57592 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 57593 | b_Dims[0]=n; | |||
| 57594 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 57595 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 57596 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 57597 | if (!PyErr_Occurred()) | |||
| 57598 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sposv to C/Fortran array" ); | |||
| 57599 | } else { | |||
| 57600 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 57601 | ||||
| 57602 | CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 57603 | /* Processing variable nrhs */ | |||
| 57604 | nrhs = shape(b,1)b_Dims[1]; | |||
| 57605 | /*end of frompyobj*/ | |||
| 57606 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57607 | f2py_start_call_clock(); | |||
| 57608 | #endif | |||
| 57609 | /*callfortranroutine*/ | |||
| 57610 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&n,b,&n,&info) ; | |||
| 57611 | /*(*f2py_func)(&n,&nrhs,a,b,&info,&lower);*/ | |||
| 57612 | if (PyErr_Occurred()) | |||
| 57613 | f2py_success = 0; | |||
| 57614 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57615 | f2py_stop_call_clock(); | |||
| 57616 | #endif | |||
| 57617 | /*end of callfortranroutine*/ | |||
| 57618 | if (f2py_success) { | |||
| 57619 | /*pyobjfrom*/ | |||
| 57620 | /*end of pyobjfrom*/ | |||
| 57621 | CFUNCSMESS("Building return value.\n"); | |||
| 57622 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info); | |||
| 57623 | /*closepyobjfrom*/ | |||
| 57624 | /*end of closepyobjfrom*/ | |||
| 57625 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 57626 | /*cleanupfrompyobj*/ | |||
| 57627 | /* End of cleaning variable nrhs */ | |||
| 57628 | } /*CHECKARRAY(shape(a,0)==shape(b,0))*/ | |||
| 57629 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 57630 | /* End of cleaning variable b */ | |||
| 57631 | /* End of cleaning variable n */ | |||
| 57632 | /* End of cleaning variable info */ | |||
| 57633 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 57634 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 57635 | /* End of cleaning variable a */ | |||
| 57636 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 57637 | } /*if (f2py_success) of lower*/ | |||
| 57638 | /* End of cleaning variable lower */ | |||
| 57639 | /*end of cleanupfrompyobj*/ | |||
| 57640 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 57641 | /*routdebugfailure*/ | |||
| 57642 | } else { | |||
| 57643 | /*routdebugleave*/ | |||
| 57644 | } | |||
| 57645 | CFUNCSMESS("Freeing memory.\n"); | |||
| 57646 | /*freemem*/ | |||
| 57647 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57648 | f2py_stop_clock(); | |||
| 57649 | #endif | |||
| 57650 | return capi_buildvalue; | |||
| 57651 | } | |||
| 57652 | /******************************** end of sposv ********************************/ | |||
| 57653 | ||||
| 57654 | /*********************************** dposv ***********************************/ | |||
| 57655 | static char doc_f2py_rout__flapack_dposv[] = "\ | |||
| 57656 | c,x,info = dposv(a,b,[lower,overwrite_a,overwrite_b])\n\nWrapper for ``dposv``.\ | |||
| 57657 | \n\nParameters\n----------\n" | |||
| 57658 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 57659 | "b : input rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 57660 | "\nOther Parameters\n----------------\n" | |||
| 57661 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 57662 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 57663 | "lower : input int, optional\n Default: 0\n" | |||
| 57664 | "\nReturns\n-------\n" | |||
| 57665 | "c : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 57666 | "x : rank-2 array('d') with bounds (n,nrhs) and b storage\n" | |||
| 57667 | "info : int"; | |||
| 57668 | /* extern void F_FUNC(dposv,DPOSV)(char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 57669 | static PyObject *f2py_rout__flapack_dposv(const PyObject *capi_self, | |||
| 57670 | PyObject *capi_args, | |||
| 57671 | PyObject *capi_keywds, | |||
| 57672 | void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 57673 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 57674 | volatile int f2py_success = 1; | |||
| 57675 | /*decl*/ | |||
| 57676 | ||||
| 57677 | int n = 0; | |||
| 57678 | int nrhs = 0; | |||
| 57679 | double *a = NULL((void*)0); | |||
| 57680 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 57681 | const int a_Rank = 2; | |||
| 57682 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 57683 | int capi_a_intent = 0; | |||
| 57684 | int capi_overwrite_a = 0; | |||
| 57685 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 57686 | double *b = NULL((void*)0); | |||
| 57687 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 57688 | const int b_Rank = 2; | |||
| 57689 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 57690 | int capi_b_intent = 0; | |||
| 57691 | int capi_overwrite_b = 0; | |||
| 57692 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 57693 | int info = 0; | |||
| 57694 | int lower = 0; | |||
| 57695 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 57696 | static char *capi_kwlist[] = {"a","b","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 57697 | ||||
| 57698 | /*routdebugenter*/ | |||
| 57699 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57700 | f2py_start_clock(); | |||
| 57701 | #endif | |||
| 57702 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 57703 | "OO|Oii:_flapack.dposv",\ | |||
| 57704 | capi_kwlist,&a_capi,&b_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 57705 | return NULL((void*)0); | |||
| 57706 | /*frompyobj*/ | |||
| 57707 | /* Processing variable lower */ | |||
| 57708 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 57709 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dposv() 1st keyword (lower) can't be converted to int"); | |||
| 57710 | if (f2py_success) { | |||
| 57711 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dposv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dposv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 57712 | /* Processing variable a */ | |||
| 57713 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 57714 | ; | |||
| 57715 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 57716 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 57717 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 57718 | if (!PyErr_Occurred()) | |||
| 57719 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dposv to C/Fortran array" ); | |||
| 57720 | } else { | |||
| 57721 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 57722 | ||||
| 57723 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 57724 | /* Processing variable info */ | |||
| 57725 | /* Processing variable n */ | |||
| 57726 | n = shape(a,0)a_Dims[0]; | |||
| 57727 | /* Processing variable b */ | |||
| 57728 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 57729 | b_Dims[0]=n; | |||
| 57730 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 57731 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 57732 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 57733 | if (!PyErr_Occurred()) | |||
| 57734 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dposv to C/Fortran array" ); | |||
| 57735 | } else { | |||
| 57736 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 57737 | ||||
| 57738 | CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 57739 | /* Processing variable nrhs */ | |||
| 57740 | nrhs = shape(b,1)b_Dims[1]; | |||
| 57741 | /*end of frompyobj*/ | |||
| 57742 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57743 | f2py_start_call_clock(); | |||
| 57744 | #endif | |||
| 57745 | /*callfortranroutine*/ | |||
| 57746 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&n,b,&n,&info) ; | |||
| 57747 | /*(*f2py_func)(&n,&nrhs,a,b,&info,&lower);*/ | |||
| 57748 | if (PyErr_Occurred()) | |||
| 57749 | f2py_success = 0; | |||
| 57750 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57751 | f2py_stop_call_clock(); | |||
| 57752 | #endif | |||
| 57753 | /*end of callfortranroutine*/ | |||
| 57754 | if (f2py_success) { | |||
| 57755 | /*pyobjfrom*/ | |||
| 57756 | /*end of pyobjfrom*/ | |||
| 57757 | CFUNCSMESS("Building return value.\n"); | |||
| 57758 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info); | |||
| 57759 | /*closepyobjfrom*/ | |||
| 57760 | /*end of closepyobjfrom*/ | |||
| 57761 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 57762 | /*cleanupfrompyobj*/ | |||
| 57763 | /* End of cleaning variable nrhs */ | |||
| 57764 | } /*CHECKARRAY(shape(a,0)==shape(b,0))*/ | |||
| 57765 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 57766 | /* End of cleaning variable b */ | |||
| 57767 | /* End of cleaning variable n */ | |||
| 57768 | /* End of cleaning variable info */ | |||
| 57769 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 57770 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 57771 | /* End of cleaning variable a */ | |||
| 57772 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 57773 | } /*if (f2py_success) of lower*/ | |||
| 57774 | /* End of cleaning variable lower */ | |||
| 57775 | /*end of cleanupfrompyobj*/ | |||
| 57776 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 57777 | /*routdebugfailure*/ | |||
| 57778 | } else { | |||
| 57779 | /*routdebugleave*/ | |||
| 57780 | } | |||
| 57781 | CFUNCSMESS("Freeing memory.\n"); | |||
| 57782 | /*freemem*/ | |||
| 57783 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57784 | f2py_stop_clock(); | |||
| 57785 | #endif | |||
| 57786 | return capi_buildvalue; | |||
| 57787 | } | |||
| 57788 | /******************************** end of dposv ********************************/ | |||
| 57789 | ||||
| 57790 | /*********************************** cposv ***********************************/ | |||
| 57791 | static char doc_f2py_rout__flapack_cposv[] = "\ | |||
| 57792 | c,x,info = cposv(a,b,[lower,overwrite_a,overwrite_b])\n\nWrapper for ``cposv``.\ | |||
| 57793 | \n\nParameters\n----------\n" | |||
| 57794 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 57795 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 57796 | "\nOther Parameters\n----------------\n" | |||
| 57797 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 57798 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 57799 | "lower : input int, optional\n Default: 0\n" | |||
| 57800 | "\nReturns\n-------\n" | |||
| 57801 | "c : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 57802 | "x : rank-2 array('F') with bounds (n,nrhs) and b storage\n" | |||
| 57803 | "info : int"; | |||
| 57804 | /* extern void F_FUNC(cposv,CPOSV)(char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 57805 | static PyObject *f2py_rout__flapack_cposv(const PyObject *capi_self, | |||
| 57806 | PyObject *capi_args, | |||
| 57807 | PyObject *capi_keywds, | |||
| 57808 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 57809 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 57810 | volatile int f2py_success = 1; | |||
| 57811 | /*decl*/ | |||
| 57812 | ||||
| 57813 | int n = 0; | |||
| 57814 | int nrhs = 0; | |||
| 57815 | complex_float *a = NULL((void*)0); | |||
| 57816 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 57817 | const int a_Rank = 2; | |||
| 57818 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 57819 | int capi_a_intent = 0; | |||
| 57820 | int capi_overwrite_a = 0; | |||
| 57821 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 57822 | complex_float *b = NULL((void*)0); | |||
| 57823 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 57824 | const int b_Rank = 2; | |||
| 57825 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 57826 | int capi_b_intent = 0; | |||
| 57827 | int capi_overwrite_b = 0; | |||
| 57828 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 57829 | int info = 0; | |||
| 57830 | int lower = 0; | |||
| 57831 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 57832 | static char *capi_kwlist[] = {"a","b","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 57833 | ||||
| 57834 | /*routdebugenter*/ | |||
| 57835 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57836 | f2py_start_clock(); | |||
| 57837 | #endif | |||
| 57838 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 57839 | "OO|Oii:_flapack.cposv",\ | |||
| 57840 | capi_kwlist,&a_capi,&b_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 57841 | return NULL((void*)0); | |||
| 57842 | /*frompyobj*/ | |||
| 57843 | /* Processing variable lower */ | |||
| 57844 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 57845 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cposv() 1st keyword (lower) can't be converted to int"); | |||
| 57846 | if (f2py_success) { | |||
| 57847 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cposv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cposv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 57848 | /* Processing variable a */ | |||
| 57849 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 57850 | ; | |||
| 57851 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 57852 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 57853 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 57854 | if (!PyErr_Occurred()) | |||
| 57855 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cposv to C/Fortran array" ); | |||
| 57856 | } else { | |||
| 57857 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 57858 | ||||
| 57859 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 57860 | /* Processing variable info */ | |||
| 57861 | /* Processing variable n */ | |||
| 57862 | n = shape(a,0)a_Dims[0]; | |||
| 57863 | /* Processing variable b */ | |||
| 57864 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 57865 | b_Dims[0]=n; | |||
| 57866 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 57867 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 57868 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 57869 | if (!PyErr_Occurred()) | |||
| 57870 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cposv to C/Fortran array" ); | |||
| 57871 | } else { | |||
| 57872 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 57873 | ||||
| 57874 | CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 57875 | /* Processing variable nrhs */ | |||
| 57876 | nrhs = shape(b,1)b_Dims[1]; | |||
| 57877 | /*end of frompyobj*/ | |||
| 57878 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57879 | f2py_start_call_clock(); | |||
| 57880 | #endif | |||
| 57881 | /*callfortranroutine*/ | |||
| 57882 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&n,b,&n,&info) ; | |||
| 57883 | /*(*f2py_func)(&n,&nrhs,a,b,&info,&lower);*/ | |||
| 57884 | if (PyErr_Occurred()) | |||
| 57885 | f2py_success = 0; | |||
| 57886 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57887 | f2py_stop_call_clock(); | |||
| 57888 | #endif | |||
| 57889 | /*end of callfortranroutine*/ | |||
| 57890 | if (f2py_success) { | |||
| 57891 | /*pyobjfrom*/ | |||
| 57892 | /*end of pyobjfrom*/ | |||
| 57893 | CFUNCSMESS("Building return value.\n"); | |||
| 57894 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info); | |||
| 57895 | /*closepyobjfrom*/ | |||
| 57896 | /*end of closepyobjfrom*/ | |||
| 57897 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 57898 | /*cleanupfrompyobj*/ | |||
| 57899 | /* End of cleaning variable nrhs */ | |||
| 57900 | } /*CHECKARRAY(shape(a,0)==shape(b,0))*/ | |||
| 57901 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 57902 | /* End of cleaning variable b */ | |||
| 57903 | /* End of cleaning variable n */ | |||
| 57904 | /* End of cleaning variable info */ | |||
| 57905 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 57906 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 57907 | /* End of cleaning variable a */ | |||
| 57908 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 57909 | } /*if (f2py_success) of lower*/ | |||
| 57910 | /* End of cleaning variable lower */ | |||
| 57911 | /*end of cleanupfrompyobj*/ | |||
| 57912 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 57913 | /*routdebugfailure*/ | |||
| 57914 | } else { | |||
| 57915 | /*routdebugleave*/ | |||
| 57916 | } | |||
| 57917 | CFUNCSMESS("Freeing memory.\n"); | |||
| 57918 | /*freemem*/ | |||
| 57919 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57920 | f2py_stop_clock(); | |||
| 57921 | #endif | |||
| 57922 | return capi_buildvalue; | |||
| 57923 | } | |||
| 57924 | /******************************** end of cposv ********************************/ | |||
| 57925 | ||||
| 57926 | /*********************************** zposv ***********************************/ | |||
| 57927 | static char doc_f2py_rout__flapack_zposv[] = "\ | |||
| 57928 | c,x,info = zposv(a,b,[lower,overwrite_a,overwrite_b])\n\nWrapper for ``zposv``.\ | |||
| 57929 | \n\nParameters\n----------\n" | |||
| 57930 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 57931 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 57932 | "\nOther Parameters\n----------------\n" | |||
| 57933 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 57934 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 57935 | "lower : input int, optional\n Default: 0\n" | |||
| 57936 | "\nReturns\n-------\n" | |||
| 57937 | "c : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 57938 | "x : rank-2 array('D') with bounds (n,nrhs) and b storage\n" | |||
| 57939 | "info : int"; | |||
| 57940 | /* extern void F_FUNC(zposv,ZPOSV)(char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 57941 | static PyObject *f2py_rout__flapack_zposv(const PyObject *capi_self, | |||
| 57942 | PyObject *capi_args, | |||
| 57943 | PyObject *capi_keywds, | |||
| 57944 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 57945 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 57946 | volatile int f2py_success = 1; | |||
| 57947 | /*decl*/ | |||
| 57948 | ||||
| 57949 | int n = 0; | |||
| 57950 | int nrhs = 0; | |||
| 57951 | complex_double *a = NULL((void*)0); | |||
| 57952 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 57953 | const int a_Rank = 2; | |||
| 57954 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 57955 | int capi_a_intent = 0; | |||
| 57956 | int capi_overwrite_a = 0; | |||
| 57957 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 57958 | complex_double *b = NULL((void*)0); | |||
| 57959 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 57960 | const int b_Rank = 2; | |||
| 57961 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 57962 | int capi_b_intent = 0; | |||
| 57963 | int capi_overwrite_b = 0; | |||
| 57964 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 57965 | int info = 0; | |||
| 57966 | int lower = 0; | |||
| 57967 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 57968 | static char *capi_kwlist[] = {"a","b","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 57969 | ||||
| 57970 | /*routdebugenter*/ | |||
| 57971 | #ifdef F2PY_REPORT_ATEXIT | |||
| 57972 | f2py_start_clock(); | |||
| 57973 | #endif | |||
| 57974 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 57975 | "OO|Oii:_flapack.zposv",\ | |||
| 57976 | capi_kwlist,&a_capi,&b_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 57977 | return NULL((void*)0); | |||
| 57978 | /*frompyobj*/ | |||
| 57979 | /* Processing variable lower */ | |||
| 57980 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 57981 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zposv() 1st keyword (lower) can't be converted to int"); | |||
| 57982 | if (f2py_success) { | |||
| 57983 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zposv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zposv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 57984 | /* Processing variable a */ | |||
| 57985 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 57986 | ; | |||
| 57987 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 57988 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 57989 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 57990 | if (!PyErr_Occurred()) | |||
| 57991 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zposv to C/Fortran array" ); | |||
| 57992 | } else { | |||
| 57993 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 57994 | ||||
| 57995 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 57996 | /* Processing variable info */ | |||
| 57997 | /* Processing variable n */ | |||
| 57998 | n = shape(a,0)a_Dims[0]; | |||
| 57999 | /* Processing variable b */ | |||
| 58000 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 58001 | b_Dims[0]=n; | |||
| 58002 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 58003 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 58004 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 58005 | if (!PyErr_Occurred()) | |||
| 58006 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zposv to C/Fortran array" ); | |||
| 58007 | } else { | |||
| 58008 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 58009 | ||||
| 58010 | CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 58011 | /* Processing variable nrhs */ | |||
| 58012 | nrhs = shape(b,1)b_Dims[1]; | |||
| 58013 | /*end of frompyobj*/ | |||
| 58014 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58015 | f2py_start_call_clock(); | |||
| 58016 | #endif | |||
| 58017 | /*callfortranroutine*/ | |||
| 58018 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&n,b,&n,&info) ; | |||
| 58019 | /*(*f2py_func)(&n,&nrhs,a,b,&info,&lower);*/ | |||
| 58020 | if (PyErr_Occurred()) | |||
| 58021 | f2py_success = 0; | |||
| 58022 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58023 | f2py_stop_call_clock(); | |||
| 58024 | #endif | |||
| 58025 | /*end of callfortranroutine*/ | |||
| 58026 | if (f2py_success) { | |||
| 58027 | /*pyobjfrom*/ | |||
| 58028 | /*end of pyobjfrom*/ | |||
| 58029 | CFUNCSMESS("Building return value.\n"); | |||
| 58030 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info); | |||
| 58031 | /*closepyobjfrom*/ | |||
| 58032 | /*end of closepyobjfrom*/ | |||
| 58033 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 58034 | /*cleanupfrompyobj*/ | |||
| 58035 | /* End of cleaning variable nrhs */ | |||
| 58036 | } /*CHECKARRAY(shape(a,0)==shape(b,0))*/ | |||
| 58037 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 58038 | /* End of cleaning variable b */ | |||
| 58039 | /* End of cleaning variable n */ | |||
| 58040 | /* End of cleaning variable info */ | |||
| 58041 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 58042 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 58043 | /* End of cleaning variable a */ | |||
| 58044 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 58045 | } /*if (f2py_success) of lower*/ | |||
| 58046 | /* End of cleaning variable lower */ | |||
| 58047 | /*end of cleanupfrompyobj*/ | |||
| 58048 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 58049 | /*routdebugfailure*/ | |||
| 58050 | } else { | |||
| 58051 | /*routdebugleave*/ | |||
| 58052 | } | |||
| 58053 | CFUNCSMESS("Freeing memory.\n"); | |||
| 58054 | /*freemem*/ | |||
| 58055 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58056 | f2py_stop_clock(); | |||
| 58057 | #endif | |||
| 58058 | return capi_buildvalue; | |||
| 58059 | } | |||
| 58060 | /******************************** end of zposv ********************************/ | |||
| 58061 | ||||
| 58062 | /*********************************** sposvx ***********************************/ | |||
| 58063 | static char doc_f2py_rout__flapack_sposvx[] = "\ | |||
| 58064 | a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = sposvx(a,b,[fact,af,equed,s,lower,overwrite_a,overwrite_b])\n\nWrapper for ``sposvx``.\ | |||
| 58065 | \n\nParameters\n----------\n" | |||
| 58066 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 58067 | "b : input rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 58068 | "\nOther Parameters\n----------------\n" | |||
| 58069 | "fact : input string(len=1), optional\n Default: 'E'\n" | |||
| 58070 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 58071 | "af : input rank-2 array('f') with bounds (n,n)\n" | |||
| 58072 | "equed : input string(len=1), optional\n Default: 'Y'\n" | |||
| 58073 | "s : input rank-1 array('f') with bounds (n)\n" | |||
| 58074 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 58075 | "lower : input int, optional\n Default: 0\n" | |||
| 58076 | "\nReturns\n-------\n" | |||
| 58077 | "a_s : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 58078 | "lu : rank-2 array('f') with bounds (n,n) and af storage\n" | |||
| 58079 | "equed : string(len=1)\n" | |||
| 58080 | "s : rank-1 array('f') with bounds (n)\n" | |||
| 58081 | "b_s : rank-2 array('f') with bounds (n,nrhs) and b storage\n" | |||
| 58082 | "x : rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 58083 | "rcond : float\n" | |||
| 58084 | "ferr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 58085 | "berr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 58086 | "info : int"; | |||
| 58087 | /* extern void F_FUNC(sposvx,SPOSVX)(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,char*,float*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */ | |||
| 58088 | static PyObject *f2py_rout__flapack_sposvx(const PyObject *capi_self, | |||
| 58089 | PyObject *capi_args, | |||
| 58090 | PyObject *capi_keywds, | |||
| 58091 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,char*,float*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 58092 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 58093 | volatile int f2py_success = 1; | |||
| 58094 | /*decl*/ | |||
| 58095 | ||||
| 58096 | string fact = NULL((void*)0); | |||
| 58097 | int slen(fact)capi_fact_len; | |||
| 58098 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 58099 | int n = 0; | |||
| 58100 | int nrhs = 0; | |||
| 58101 | float *a = NULL((void*)0); | |||
| 58102 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 58103 | const int a_Rank = 2; | |||
| 58104 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 58105 | int capi_a_intent = 0; | |||
| 58106 | int capi_overwrite_a = 0; | |||
| 58107 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 58108 | int lda = 0; | |||
| 58109 | float *af = NULL((void*)0); | |||
| 58110 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 58111 | const int af_Rank = 2; | |||
| 58112 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 58113 | int capi_af_intent = 0; | |||
| 58114 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 58115 | int ldaf = 0; | |||
| 58116 | string equed = NULL((void*)0); | |||
| 58117 | int slen(equed)capi_equed_len; | |||
| 58118 | PyObject *equed_capi = Py_None(&_Py_NoneStruct); | |||
| 58119 | float *s = NULL((void*)0); | |||
| 58120 | npy_intp s_Dims[1] = {-1}; | |||
| 58121 | const int s_Rank = 1; | |||
| 58122 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 58123 | int capi_s_intent = 0; | |||
| 58124 | PyObject *s_capi = Py_None(&_Py_NoneStruct); | |||
| 58125 | float *b = NULL((void*)0); | |||
| 58126 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 58127 | const int b_Rank = 2; | |||
| 58128 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 58129 | int capi_b_intent = 0; | |||
| 58130 | int capi_overwrite_b = 0; | |||
| 58131 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 58132 | int ldb = 0; | |||
| 58133 | float *x = NULL((void*)0); | |||
| 58134 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 58135 | const int x_Rank = 2; | |||
| 58136 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 58137 | int capi_x_intent = 0; | |||
| 58138 | int ldx = 0; | |||
| 58139 | float rcond = 0; | |||
| 58140 | float *ferr = NULL((void*)0); | |||
| 58141 | npy_intp ferr_Dims[1] = {-1}; | |||
| 58142 | const int ferr_Rank = 1; | |||
| 58143 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 58144 | int capi_ferr_intent = 0; | |||
| 58145 | float *berr = NULL((void*)0); | |||
| 58146 | npy_intp berr_Dims[1] = {-1}; | |||
| 58147 | const int berr_Rank = 1; | |||
| 58148 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 58149 | int capi_berr_intent = 0; | |||
| 58150 | float *work = NULL((void*)0); | |||
| 58151 | npy_intp work_Dims[1] = {-1}; | |||
| 58152 | const int work_Rank = 1; | |||
| 58153 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 58154 | int capi_work_intent = 0; | |||
| 58155 | int *irwork = NULL((void*)0); | |||
| 58156 | npy_intp irwork_Dims[1] = {-1}; | |||
| 58157 | const int irwork_Rank = 1; | |||
| 58158 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 58159 | int capi_irwork_intent = 0; | |||
| 58160 | int info = 0; | |||
| 58161 | int lower = 0; | |||
| 58162 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 58163 | static char *capi_kwlist[] = {"a","b","fact","af","equed","s","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 58164 | ||||
| 58165 | /*routdebugenter*/ | |||
| 58166 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58167 | f2py_start_clock(); | |||
| 58168 | #endif | |||
| 58169 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 58170 | "OO|OOOOOii:_flapack.sposvx",\ | |||
| 58171 | capi_kwlist,&a_capi,&b_capi,&fact_capi,&af_capi,&equed_capi,&s_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 58172 | return NULL((void*)0); | |||
| 58173 | /*frompyobj*/ | |||
| 58174 | /* Processing variable fact */ | |||
| 58175 | slen(fact)capi_fact_len = 1; | |||
| 58176 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.sposvx to C string"); | |||
| 58177 | if (f2py_success) { | |||
| 58178 | /* Processing variable lower */ | |||
| 58179 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 58180 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.sposvx() 5th keyword (lower) can't be converted to int"); | |||
| 58181 | if (f2py_success) { | |||
| 58182 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","sposvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sposvx:lower=%d", "(""lower==0||lower==1"") failed for " "5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 58183 | /* Processing variable a */ | |||
| 58184 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 58185 | ; | |||
| 58186 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 58187 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 58188 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 58189 | if (!PyErr_Occurred()) | |||
| 58190 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sposvx to C/Fortran array" ); | |||
| 58191 | } else { | |||
| 58192 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 58193 | ||||
| 58194 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 58195 | /* Processing variable equed */ | |||
| 58196 | slen(equed)capi_equed_len = 1; | |||
| 58197 | f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"Y",equed_capi,"string_from_pyobj failed in converting 3rd keyword `equed' of _flapack.sposvx to C string"); | |||
| 58198 | if (f2py_success) { | |||
| 58199 | /* Processing variable rcond */ | |||
| 58200 | /* Processing variable info */ | |||
| 58201 | /* Processing variable n */ | |||
| 58202 | n = shape(a,0)a_Dims[0]; | |||
| 58203 | /* Processing variable lda */ | |||
| 58204 | lda = shape(a,0)a_Dims[0]; | |||
| 58205 | /* Processing variable af */ | |||
| 58206 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 58207 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 58208 | capi_af_tmp = array_from_pyobj(NPY_FLOAT,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 58209 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 58210 | if (!PyErr_Occurred()) | |||
| 58211 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `af' of _flapack.sposvx to C/Fortran array" ); | |||
| 58212 | } else { | |||
| 58213 | af = (float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 58214 | ||||
| 58215 | /* Processing variable ldaf */ | |||
| 58216 | ldaf = shape(af,0)af_Dims[0]; | |||
| 58217 | /* Processing variable s */ | |||
| 58218 | s_Dims[0]=n; | |||
| 58219 | capi_s_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 58220 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,s_capi); | |||
| 58221 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 58222 | if (!PyErr_Occurred()) | |||
| 58223 | PyErr_SetString(_flapack_error,"failed in converting 4th keyword `s' of _flapack.sposvx to C/Fortran array" ); | |||
| 58224 | } else { | |||
| 58225 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 58226 | ||||
| 58227 | /* Processing variable b */ | |||
| 58228 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 58229 | b_Dims[0]=n; | |||
| 58230 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 58231 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 58232 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 58233 | if (!PyErr_Occurred()) | |||
| 58234 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sposvx to C/Fortran array" ); | |||
| 58235 | } else { | |||
| 58236 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 58237 | ||||
| 58238 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 58239 | /* Processing variable ldb */ | |||
| 58240 | ldb = shape(b,0)b_Dims[0]; | |||
| 58241 | /* Processing variable work */ | |||
| 58242 | work_Dims[0]=3 * n; | |||
| 58243 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 58244 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 58245 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 58246 | if (!PyErr_Occurred()) | |||
| 58247 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sposvx to C/Fortran array" ); | |||
| 58248 | } else { | |||
| 58249 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 58250 | ||||
| 58251 | /* Processing variable irwork */ | |||
| 58252 | irwork_Dims[0]=n; | |||
| 58253 | capi_irwork_intent |= F2PY_INTENT_HIDE8; | |||
| 58254 | capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 58255 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 58256 | if (!PyErr_Occurred()) | |||
| 58257 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.sposvx to C/Fortran array" ); | |||
| 58258 | } else { | |||
| 58259 | irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 58260 | ||||
| 58261 | /* Processing variable nrhs */ | |||
| 58262 | nrhs = shape(b,1)b_Dims[1]; | |||
| 58263 | /* Processing variable x */ | |||
| 58264 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 58265 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 58266 | capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 58267 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 58268 | if (!PyErr_Occurred()) | |||
| 58269 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.sposvx to C/Fortran array" ); | |||
| 58270 | } else { | |||
| 58271 | x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 58272 | ||||
| 58273 | /* Processing variable ldx */ | |||
| 58274 | ldx = shape(x,0)x_Dims[0]; | |||
| 58275 | /* Processing variable ferr */ | |||
| 58276 | ferr_Dims[0]=nrhs; | |||
| 58277 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 58278 | capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 58279 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 58280 | if (!PyErr_Occurred()) | |||
| 58281 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.sposvx to C/Fortran array" ); | |||
| 58282 | } else { | |||
| 58283 | ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 58284 | ||||
| 58285 | /* Processing variable berr */ | |||
| 58286 | berr_Dims[0]=nrhs; | |||
| 58287 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 58288 | capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 58289 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 58290 | if (!PyErr_Occurred()) | |||
| 58291 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.sposvx to C/Fortran array" ); | |||
| 58292 | } else { | |||
| 58293 | berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 58294 | ||||
| 58295 | /*end of frompyobj*/ | |||
| 58296 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58297 | f2py_start_call_clock(); | |||
| 58298 | #endif | |||
| 58299 | /*callfortranroutine*/ | |||
| 58300 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 58301 | (*f2py_func)(fact,(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info) ; | |||
| 58302 | /*(*f2py_func)(fact,&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info,&lower,slen(fact),slen(equed));*/ | |||
| 58303 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 58304 | if (PyErr_Occurred()) | |||
| 58305 | f2py_success = 0; | |||
| 58306 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58307 | f2py_stop_call_clock(); | |||
| 58308 | #endif | |||
| 58309 | /*end of callfortranroutine*/ | |||
| 58310 | if (f2py_success) { | |||
| 58311 | /*pyobjfrom*/ | |||
| 58312 | /*end of pyobjfrom*/ | |||
| 58313 | CFUNCSMESS("Building return value.\n"); | |||
| 58314 | capi_buildvalue = Py_BuildValue("NNyNNNfNNi",capi_a_tmp,capi_af_tmp,equed,capi_s_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 58315 | /*closepyobjfrom*/ | |||
| 58316 | /*end of closepyobjfrom*/ | |||
| 58317 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 58318 | /*cleanupfrompyobj*/ | |||
| 58319 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 58320 | /* End of cleaning variable berr */ | |||
| 58321 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 58322 | /* End of cleaning variable ferr */ | |||
| 58323 | /* End of cleaning variable ldx */ | |||
| 58324 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 58325 | /* End of cleaning variable x */ | |||
| 58326 | /* End of cleaning variable nrhs */ | |||
| 58327 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 58328 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 58329 | /* End of cleaning variable irwork */ | |||
| 58330 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 58331 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 58332 | /* End of cleaning variable work */ | |||
| 58333 | /* End of cleaning variable ldb */ | |||
| 58334 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 58335 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 58336 | /* End of cleaning variable b */ | |||
| 58337 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 58338 | /* End of cleaning variable s */ | |||
| 58339 | /* End of cleaning variable ldaf */ | |||
| 58340 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 58341 | /* End of cleaning variable af */ | |||
| 58342 | /* End of cleaning variable lda */ | |||
| 58343 | /* End of cleaning variable n */ | |||
| 58344 | /* End of cleaning variable info */ | |||
| 58345 | /* End of cleaning variable rcond */ | |||
| 58346 | STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0); | |||
| 58347 | } /*if (f2py_success) of equed*/ | |||
| 58348 | /* End of cleaning variable equed */ | |||
| 58349 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 58350 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 58351 | /* End of cleaning variable a */ | |||
| 58352 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 58353 | } /*if (f2py_success) of lower*/ | |||
| 58354 | /* End of cleaning variable lower */ | |||
| 58355 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 58356 | } /*if (f2py_success) of fact*/ | |||
| 58357 | /* End of cleaning variable fact */ | |||
| 58358 | /*end of cleanupfrompyobj*/ | |||
| 58359 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 58360 | /*routdebugfailure*/ | |||
| 58361 | } else { | |||
| 58362 | /*routdebugleave*/ | |||
| 58363 | } | |||
| 58364 | CFUNCSMESS("Freeing memory.\n"); | |||
| 58365 | /*freemem*/ | |||
| 58366 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58367 | f2py_stop_clock(); | |||
| 58368 | #endif | |||
| 58369 | return capi_buildvalue; | |||
| 58370 | } | |||
| 58371 | /******************************* end of sposvx *******************************/ | |||
| 58372 | ||||
| 58373 | /*********************************** dposvx ***********************************/ | |||
| 58374 | static char doc_f2py_rout__flapack_dposvx[] = "\ | |||
| 58375 | a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = dposvx(a,b,[fact,af,equed,s,lower,overwrite_a,overwrite_b])\n\nWrapper for ``dposvx``.\ | |||
| 58376 | \n\nParameters\n----------\n" | |||
| 58377 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 58378 | "b : input rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 58379 | "\nOther Parameters\n----------------\n" | |||
| 58380 | "fact : input string(len=1), optional\n Default: 'E'\n" | |||
| 58381 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 58382 | "af : input rank-2 array('d') with bounds (n,n)\n" | |||
| 58383 | "equed : input string(len=1), optional\n Default: 'Y'\n" | |||
| 58384 | "s : input rank-1 array('d') with bounds (n)\n" | |||
| 58385 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 58386 | "lower : input int, optional\n Default: 0\n" | |||
| 58387 | "\nReturns\n-------\n" | |||
| 58388 | "a_s : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 58389 | "lu : rank-2 array('d') with bounds (n,n) and af storage\n" | |||
| 58390 | "equed : string(len=1)\n" | |||
| 58391 | "s : rank-1 array('d') with bounds (n)\n" | |||
| 58392 | "b_s : rank-2 array('d') with bounds (n,nrhs) and b storage\n" | |||
| 58393 | "x : rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 58394 | "rcond : float\n" | |||
| 58395 | "ferr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 58396 | "berr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 58397 | "info : int"; | |||
| 58398 | /* extern void F_FUNC(dposvx,DPOSVX)(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,char*,double*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */ | |||
| 58399 | static PyObject *f2py_rout__flapack_dposvx(const PyObject *capi_self, | |||
| 58400 | PyObject *capi_args, | |||
| 58401 | PyObject *capi_keywds, | |||
| 58402 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,char*,double*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 58403 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 58404 | volatile int f2py_success = 1; | |||
| 58405 | /*decl*/ | |||
| 58406 | ||||
| 58407 | string fact = NULL((void*)0); | |||
| 58408 | int slen(fact)capi_fact_len; | |||
| 58409 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 58410 | int n = 0; | |||
| 58411 | int nrhs = 0; | |||
| 58412 | double *a = NULL((void*)0); | |||
| 58413 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 58414 | const int a_Rank = 2; | |||
| 58415 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 58416 | int capi_a_intent = 0; | |||
| 58417 | int capi_overwrite_a = 0; | |||
| 58418 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 58419 | int lda = 0; | |||
| 58420 | double *af = NULL((void*)0); | |||
| 58421 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 58422 | const int af_Rank = 2; | |||
| 58423 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 58424 | int capi_af_intent = 0; | |||
| 58425 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 58426 | int ldaf = 0; | |||
| 58427 | string equed = NULL((void*)0); | |||
| 58428 | int slen(equed)capi_equed_len; | |||
| 58429 | PyObject *equed_capi = Py_None(&_Py_NoneStruct); | |||
| 58430 | double *s = NULL((void*)0); | |||
| 58431 | npy_intp s_Dims[1] = {-1}; | |||
| 58432 | const int s_Rank = 1; | |||
| 58433 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 58434 | int capi_s_intent = 0; | |||
| 58435 | PyObject *s_capi = Py_None(&_Py_NoneStruct); | |||
| 58436 | double *b = NULL((void*)0); | |||
| 58437 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 58438 | const int b_Rank = 2; | |||
| 58439 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 58440 | int capi_b_intent = 0; | |||
| 58441 | int capi_overwrite_b = 0; | |||
| 58442 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 58443 | int ldb = 0; | |||
| 58444 | double *x = NULL((void*)0); | |||
| 58445 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 58446 | const int x_Rank = 2; | |||
| 58447 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 58448 | int capi_x_intent = 0; | |||
| 58449 | int ldx = 0; | |||
| 58450 | double rcond = 0; | |||
| 58451 | double *ferr = NULL((void*)0); | |||
| 58452 | npy_intp ferr_Dims[1] = {-1}; | |||
| 58453 | const int ferr_Rank = 1; | |||
| 58454 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 58455 | int capi_ferr_intent = 0; | |||
| 58456 | double *berr = NULL((void*)0); | |||
| 58457 | npy_intp berr_Dims[1] = {-1}; | |||
| 58458 | const int berr_Rank = 1; | |||
| 58459 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 58460 | int capi_berr_intent = 0; | |||
| 58461 | double *work = NULL((void*)0); | |||
| 58462 | npy_intp work_Dims[1] = {-1}; | |||
| 58463 | const int work_Rank = 1; | |||
| 58464 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 58465 | int capi_work_intent = 0; | |||
| 58466 | int *irwork = NULL((void*)0); | |||
| 58467 | npy_intp irwork_Dims[1] = {-1}; | |||
| 58468 | const int irwork_Rank = 1; | |||
| 58469 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 58470 | int capi_irwork_intent = 0; | |||
| 58471 | int info = 0; | |||
| 58472 | int lower = 0; | |||
| 58473 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 58474 | static char *capi_kwlist[] = {"a","b","fact","af","equed","s","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 58475 | ||||
| 58476 | /*routdebugenter*/ | |||
| 58477 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58478 | f2py_start_clock(); | |||
| 58479 | #endif | |||
| 58480 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 58481 | "OO|OOOOOii:_flapack.dposvx",\ | |||
| 58482 | capi_kwlist,&a_capi,&b_capi,&fact_capi,&af_capi,&equed_capi,&s_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 58483 | return NULL((void*)0); | |||
| 58484 | /*frompyobj*/ | |||
| 58485 | /* Processing variable fact */ | |||
| 58486 | slen(fact)capi_fact_len = 1; | |||
| 58487 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.dposvx to C string"); | |||
| 58488 | if (f2py_success) { | |||
| 58489 | /* Processing variable lower */ | |||
| 58490 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 58491 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dposvx() 5th keyword (lower) can't be converted to int"); | |||
| 58492 | if (f2py_success) { | |||
| 58493 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","dposvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dposvx:lower=%d", "(""lower==0||lower==1"") failed for " "5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 58494 | /* Processing variable a */ | |||
| 58495 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 58496 | ; | |||
| 58497 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 58498 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 58499 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 58500 | if (!PyErr_Occurred()) | |||
| 58501 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dposvx to C/Fortran array" ); | |||
| 58502 | } else { | |||
| 58503 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 58504 | ||||
| 58505 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 58506 | /* Processing variable equed */ | |||
| 58507 | slen(equed)capi_equed_len = 1; | |||
| 58508 | f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"Y",equed_capi,"string_from_pyobj failed in converting 3rd keyword `equed' of _flapack.dposvx to C string"); | |||
| 58509 | if (f2py_success) { | |||
| 58510 | /* Processing variable rcond */ | |||
| 58511 | /* Processing variable info */ | |||
| 58512 | /* Processing variable n */ | |||
| 58513 | n = shape(a,0)a_Dims[0]; | |||
| 58514 | /* Processing variable lda */ | |||
| 58515 | lda = shape(a,0)a_Dims[0]; | |||
| 58516 | /* Processing variable af */ | |||
| 58517 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 58518 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 58519 | capi_af_tmp = array_from_pyobj(NPY_DOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 58520 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 58521 | if (!PyErr_Occurred()) | |||
| 58522 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `af' of _flapack.dposvx to C/Fortran array" ); | |||
| 58523 | } else { | |||
| 58524 | af = (double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 58525 | ||||
| 58526 | /* Processing variable ldaf */ | |||
| 58527 | ldaf = shape(af,0)af_Dims[0]; | |||
| 58528 | /* Processing variable s */ | |||
| 58529 | s_Dims[0]=n; | |||
| 58530 | capi_s_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 58531 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,s_capi); | |||
| 58532 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 58533 | if (!PyErr_Occurred()) | |||
| 58534 | PyErr_SetString(_flapack_error,"failed in converting 4th keyword `s' of _flapack.dposvx to C/Fortran array" ); | |||
| 58535 | } else { | |||
| 58536 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 58537 | ||||
| 58538 | /* Processing variable b */ | |||
| 58539 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 58540 | b_Dims[0]=n; | |||
| 58541 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 58542 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 58543 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 58544 | if (!PyErr_Occurred()) | |||
| 58545 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dposvx to C/Fortran array" ); | |||
| 58546 | } else { | |||
| 58547 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 58548 | ||||
| 58549 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 58550 | /* Processing variable ldb */ | |||
| 58551 | ldb = shape(b,0)b_Dims[0]; | |||
| 58552 | /* Processing variable work */ | |||
| 58553 | work_Dims[0]=3 * n; | |||
| 58554 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 58555 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 58556 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 58557 | if (!PyErr_Occurred()) | |||
| 58558 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dposvx to C/Fortran array" ); | |||
| 58559 | } else { | |||
| 58560 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 58561 | ||||
| 58562 | /* Processing variable irwork */ | |||
| 58563 | irwork_Dims[0]=n; | |||
| 58564 | capi_irwork_intent |= F2PY_INTENT_HIDE8; | |||
| 58565 | capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 58566 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 58567 | if (!PyErr_Occurred()) | |||
| 58568 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.dposvx to C/Fortran array" ); | |||
| 58569 | } else { | |||
| 58570 | irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 58571 | ||||
| 58572 | /* Processing variable nrhs */ | |||
| 58573 | nrhs = shape(b,1)b_Dims[1]; | |||
| 58574 | /* Processing variable x */ | |||
| 58575 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 58576 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 58577 | capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 58578 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 58579 | if (!PyErr_Occurred()) | |||
| 58580 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.dposvx to C/Fortran array" ); | |||
| 58581 | } else { | |||
| 58582 | x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 58583 | ||||
| 58584 | /* Processing variable ldx */ | |||
| 58585 | ldx = shape(x,0)x_Dims[0]; | |||
| 58586 | /* Processing variable ferr */ | |||
| 58587 | ferr_Dims[0]=nrhs; | |||
| 58588 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 58589 | capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 58590 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 58591 | if (!PyErr_Occurred()) | |||
| 58592 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.dposvx to C/Fortran array" ); | |||
| 58593 | } else { | |||
| 58594 | ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 58595 | ||||
| 58596 | /* Processing variable berr */ | |||
| 58597 | berr_Dims[0]=nrhs; | |||
| 58598 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 58599 | capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 58600 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 58601 | if (!PyErr_Occurred()) | |||
| 58602 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.dposvx to C/Fortran array" ); | |||
| 58603 | } else { | |||
| 58604 | berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 58605 | ||||
| 58606 | /*end of frompyobj*/ | |||
| 58607 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58608 | f2py_start_call_clock(); | |||
| 58609 | #endif | |||
| 58610 | /*callfortranroutine*/ | |||
| 58611 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 58612 | (*f2py_func)(fact,(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info) ; | |||
| 58613 | /*(*f2py_func)(fact,&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info,&lower,slen(fact),slen(equed));*/ | |||
| 58614 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 58615 | if (PyErr_Occurred()) | |||
| 58616 | f2py_success = 0; | |||
| 58617 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58618 | f2py_stop_call_clock(); | |||
| 58619 | #endif | |||
| 58620 | /*end of callfortranroutine*/ | |||
| 58621 | if (f2py_success) { | |||
| 58622 | /*pyobjfrom*/ | |||
| 58623 | /*end of pyobjfrom*/ | |||
| 58624 | CFUNCSMESS("Building return value.\n"); | |||
| 58625 | capi_buildvalue = Py_BuildValue("NNyNNNdNNi",capi_a_tmp,capi_af_tmp,equed,capi_s_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 58626 | /*closepyobjfrom*/ | |||
| 58627 | /*end of closepyobjfrom*/ | |||
| 58628 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 58629 | /*cleanupfrompyobj*/ | |||
| 58630 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 58631 | /* End of cleaning variable berr */ | |||
| 58632 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 58633 | /* End of cleaning variable ferr */ | |||
| 58634 | /* End of cleaning variable ldx */ | |||
| 58635 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 58636 | /* End of cleaning variable x */ | |||
| 58637 | /* End of cleaning variable nrhs */ | |||
| 58638 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 58639 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 58640 | /* End of cleaning variable irwork */ | |||
| 58641 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 58642 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 58643 | /* End of cleaning variable work */ | |||
| 58644 | /* End of cleaning variable ldb */ | |||
| 58645 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 58646 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 58647 | /* End of cleaning variable b */ | |||
| 58648 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 58649 | /* End of cleaning variable s */ | |||
| 58650 | /* End of cleaning variable ldaf */ | |||
| 58651 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 58652 | /* End of cleaning variable af */ | |||
| 58653 | /* End of cleaning variable lda */ | |||
| 58654 | /* End of cleaning variable n */ | |||
| 58655 | /* End of cleaning variable info */ | |||
| 58656 | /* End of cleaning variable rcond */ | |||
| 58657 | STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0); | |||
| 58658 | } /*if (f2py_success) of equed*/ | |||
| 58659 | /* End of cleaning variable equed */ | |||
| 58660 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 58661 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 58662 | /* End of cleaning variable a */ | |||
| 58663 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 58664 | } /*if (f2py_success) of lower*/ | |||
| 58665 | /* End of cleaning variable lower */ | |||
| 58666 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 58667 | } /*if (f2py_success) of fact*/ | |||
| 58668 | /* End of cleaning variable fact */ | |||
| 58669 | /*end of cleanupfrompyobj*/ | |||
| 58670 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 58671 | /*routdebugfailure*/ | |||
| 58672 | } else { | |||
| 58673 | /*routdebugleave*/ | |||
| 58674 | } | |||
| 58675 | CFUNCSMESS("Freeing memory.\n"); | |||
| 58676 | /*freemem*/ | |||
| 58677 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58678 | f2py_stop_clock(); | |||
| 58679 | #endif | |||
| 58680 | return capi_buildvalue; | |||
| 58681 | } | |||
| 58682 | /******************************* end of dposvx *******************************/ | |||
| 58683 | ||||
| 58684 | /*********************************** cposvx ***********************************/ | |||
| 58685 | static char doc_f2py_rout__flapack_cposvx[] = "\ | |||
| 58686 | a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = cposvx(a,b,[fact,af,equed,s,lower,overwrite_a,overwrite_b])\n\nWrapper for ``cposvx``.\ | |||
| 58687 | \n\nParameters\n----------\n" | |||
| 58688 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 58689 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 58690 | "\nOther Parameters\n----------------\n" | |||
| 58691 | "fact : input string(len=1), optional\n Default: 'E'\n" | |||
| 58692 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 58693 | "af : input rank-2 array('F') with bounds (n,n)\n" | |||
| 58694 | "equed : input string(len=1), optional\n Default: 'Y'\n" | |||
| 58695 | "s : input rank-1 array('f') with bounds (n)\n" | |||
| 58696 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 58697 | "lower : input int, optional\n Default: 0\n" | |||
| 58698 | "\nReturns\n-------\n" | |||
| 58699 | "a_s : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 58700 | "lu : rank-2 array('F') with bounds (n,n) and af storage\n" | |||
| 58701 | "equed : string(len=1)\n" | |||
| 58702 | "s : rank-1 array('f') with bounds (n)\n" | |||
| 58703 | "b_s : rank-2 array('F') with bounds (n,nrhs) and b storage\n" | |||
| 58704 | "x : rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 58705 | "rcond : float\n" | |||
| 58706 | "ferr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 58707 | "berr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 58708 | "info : int"; | |||
| 58709 | /* extern void F_FUNC(cposvx,CPOSVX)(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,char*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,float*,F_INT* ); */ | |||
| 58710 | static PyObject *f2py_rout__flapack_cposvx(const PyObject *capi_self, | |||
| 58711 | PyObject *capi_args, | |||
| 58712 | PyObject *capi_keywds, | |||
| 58713 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,char*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,float*,F_INTint* )) { | |||
| 58714 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 58715 | volatile int f2py_success = 1; | |||
| 58716 | /*decl*/ | |||
| 58717 | ||||
| 58718 | string fact = NULL((void*)0); | |||
| 58719 | int slen(fact)capi_fact_len; | |||
| 58720 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 58721 | int n = 0; | |||
| 58722 | int nrhs = 0; | |||
| 58723 | complex_float *a = NULL((void*)0); | |||
| 58724 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 58725 | const int a_Rank = 2; | |||
| 58726 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 58727 | int capi_a_intent = 0; | |||
| 58728 | int capi_overwrite_a = 0; | |||
| 58729 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 58730 | int lda = 0; | |||
| 58731 | complex_float *af = NULL((void*)0); | |||
| 58732 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 58733 | const int af_Rank = 2; | |||
| 58734 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 58735 | int capi_af_intent = 0; | |||
| 58736 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 58737 | int ldaf = 0; | |||
| 58738 | string equed = NULL((void*)0); | |||
| 58739 | int slen(equed)capi_equed_len; | |||
| 58740 | PyObject *equed_capi = Py_None(&_Py_NoneStruct); | |||
| 58741 | float *s = NULL((void*)0); | |||
| 58742 | npy_intp s_Dims[1] = {-1}; | |||
| 58743 | const int s_Rank = 1; | |||
| 58744 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 58745 | int capi_s_intent = 0; | |||
| 58746 | PyObject *s_capi = Py_None(&_Py_NoneStruct); | |||
| 58747 | complex_float *b = NULL((void*)0); | |||
| 58748 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 58749 | const int b_Rank = 2; | |||
| 58750 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 58751 | int capi_b_intent = 0; | |||
| 58752 | int capi_overwrite_b = 0; | |||
| 58753 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 58754 | int ldb = 0; | |||
| 58755 | complex_float *x = NULL((void*)0); | |||
| 58756 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 58757 | const int x_Rank = 2; | |||
| 58758 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 58759 | int capi_x_intent = 0; | |||
| 58760 | int ldx = 0; | |||
| 58761 | float rcond = 0; | |||
| 58762 | float *ferr = NULL((void*)0); | |||
| 58763 | npy_intp ferr_Dims[1] = {-1}; | |||
| 58764 | const int ferr_Rank = 1; | |||
| 58765 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 58766 | int capi_ferr_intent = 0; | |||
| 58767 | float *berr = NULL((void*)0); | |||
| 58768 | npy_intp berr_Dims[1] = {-1}; | |||
| 58769 | const int berr_Rank = 1; | |||
| 58770 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 58771 | int capi_berr_intent = 0; | |||
| 58772 | complex_float *work = NULL((void*)0); | |||
| 58773 | npy_intp work_Dims[1] = {-1}; | |||
| 58774 | const int work_Rank = 1; | |||
| 58775 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 58776 | int capi_work_intent = 0; | |||
| 58777 | float *irwork = NULL((void*)0); | |||
| 58778 | npy_intp irwork_Dims[1] = {-1}; | |||
| 58779 | const int irwork_Rank = 1; | |||
| 58780 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 58781 | int capi_irwork_intent = 0; | |||
| 58782 | int info = 0; | |||
| 58783 | int lower = 0; | |||
| 58784 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 58785 | static char *capi_kwlist[] = {"a","b","fact","af","equed","s","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 58786 | ||||
| 58787 | /*routdebugenter*/ | |||
| 58788 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58789 | f2py_start_clock(); | |||
| 58790 | #endif | |||
| 58791 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 58792 | "OO|OOOOOii:_flapack.cposvx",\ | |||
| 58793 | capi_kwlist,&a_capi,&b_capi,&fact_capi,&af_capi,&equed_capi,&s_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 58794 | return NULL((void*)0); | |||
| 58795 | /*frompyobj*/ | |||
| 58796 | /* Processing variable fact */ | |||
| 58797 | slen(fact)capi_fact_len = 1; | |||
| 58798 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.cposvx to C string"); | |||
| 58799 | if (f2py_success) { | |||
| 58800 | /* Processing variable lower */ | |||
| 58801 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 58802 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cposvx() 5th keyword (lower) can't be converted to int"); | |||
| 58803 | if (f2py_success) { | |||
| 58804 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","cposvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cposvx:lower=%d", "(""lower==0||lower==1"") failed for " "5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 58805 | /* Processing variable a */ | |||
| 58806 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 58807 | ; | |||
| 58808 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 58809 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 58810 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 58811 | if (!PyErr_Occurred()) | |||
| 58812 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cposvx to C/Fortran array" ); | |||
| 58813 | } else { | |||
| 58814 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 58815 | ||||
| 58816 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 58817 | /* Processing variable equed */ | |||
| 58818 | slen(equed)capi_equed_len = 1; | |||
| 58819 | f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"Y",equed_capi,"string_from_pyobj failed in converting 3rd keyword `equed' of _flapack.cposvx to C string"); | |||
| 58820 | if (f2py_success) { | |||
| 58821 | /* Processing variable rcond */ | |||
| 58822 | /* Processing variable info */ | |||
| 58823 | /* Processing variable n */ | |||
| 58824 | n = shape(a,0)a_Dims[0]; | |||
| 58825 | /* Processing variable lda */ | |||
| 58826 | lda = shape(a,0)a_Dims[0]; | |||
| 58827 | /* Processing variable af */ | |||
| 58828 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 58829 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 58830 | capi_af_tmp = array_from_pyobj(NPY_CFLOAT,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 58831 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 58832 | if (!PyErr_Occurred()) | |||
| 58833 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `af' of _flapack.cposvx to C/Fortran array" ); | |||
| 58834 | } else { | |||
| 58835 | af = (complex_float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 58836 | ||||
| 58837 | /* Processing variable ldaf */ | |||
| 58838 | ldaf = shape(af,0)af_Dims[0]; | |||
| 58839 | /* Processing variable s */ | |||
| 58840 | s_Dims[0]=n; | |||
| 58841 | capi_s_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 58842 | capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,s_capi); | |||
| 58843 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 58844 | if (!PyErr_Occurred()) | |||
| 58845 | PyErr_SetString(_flapack_error,"failed in converting 4th keyword `s' of _flapack.cposvx to C/Fortran array" ); | |||
| 58846 | } else { | |||
| 58847 | s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 58848 | ||||
| 58849 | /* Processing variable b */ | |||
| 58850 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 58851 | b_Dims[0]=n; | |||
| 58852 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 58853 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 58854 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 58855 | if (!PyErr_Occurred()) | |||
| 58856 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cposvx to C/Fortran array" ); | |||
| 58857 | } else { | |||
| 58858 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 58859 | ||||
| 58860 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 58861 | /* Processing variable ldb */ | |||
| 58862 | ldb = shape(b,0)b_Dims[0]; | |||
| 58863 | /* Processing variable work */ | |||
| 58864 | work_Dims[0]=2 * n; | |||
| 58865 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 58866 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 58867 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 58868 | if (!PyErr_Occurred()) | |||
| 58869 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cposvx to C/Fortran array" ); | |||
| 58870 | } else { | |||
| 58871 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 58872 | ||||
| 58873 | /* Processing variable irwork */ | |||
| 58874 | irwork_Dims[0]=n; | |||
| 58875 | capi_irwork_intent |= F2PY_INTENT_HIDE8; | |||
| 58876 | capi_irwork_tmp = array_from_pyobj(NPY_FLOAT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 58877 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 58878 | if (!PyErr_Occurred()) | |||
| 58879 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.cposvx to C/Fortran array" ); | |||
| 58880 | } else { | |||
| 58881 | irwork = (float *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 58882 | ||||
| 58883 | /* Processing variable nrhs */ | |||
| 58884 | nrhs = shape(b,1)b_Dims[1]; | |||
| 58885 | /* Processing variable x */ | |||
| 58886 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 58887 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 58888 | capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 58889 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 58890 | if (!PyErr_Occurred()) | |||
| 58891 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.cposvx to C/Fortran array" ); | |||
| 58892 | } else { | |||
| 58893 | x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 58894 | ||||
| 58895 | /* Processing variable ldx */ | |||
| 58896 | ldx = shape(x,0)x_Dims[0]; | |||
| 58897 | /* Processing variable ferr */ | |||
| 58898 | ferr_Dims[0]=nrhs; | |||
| 58899 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 58900 | capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 58901 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 58902 | if (!PyErr_Occurred()) | |||
| 58903 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.cposvx to C/Fortran array" ); | |||
| 58904 | } else { | |||
| 58905 | ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 58906 | ||||
| 58907 | /* Processing variable berr */ | |||
| 58908 | berr_Dims[0]=nrhs; | |||
| 58909 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 58910 | capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 58911 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 58912 | if (!PyErr_Occurred()) | |||
| 58913 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.cposvx to C/Fortran array" ); | |||
| 58914 | } else { | |||
| 58915 | berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 58916 | ||||
| 58917 | /*end of frompyobj*/ | |||
| 58918 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58919 | f2py_start_call_clock(); | |||
| 58920 | #endif | |||
| 58921 | /*callfortranroutine*/ | |||
| 58922 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 58923 | (*f2py_func)(fact,(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info) ; | |||
| 58924 | /*(*f2py_func)(fact,&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info,&lower,slen(fact),slen(equed));*/ | |||
| 58925 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 58926 | if (PyErr_Occurred()) | |||
| 58927 | f2py_success = 0; | |||
| 58928 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58929 | f2py_stop_call_clock(); | |||
| 58930 | #endif | |||
| 58931 | /*end of callfortranroutine*/ | |||
| 58932 | if (f2py_success) { | |||
| 58933 | /*pyobjfrom*/ | |||
| 58934 | /*end of pyobjfrom*/ | |||
| 58935 | CFUNCSMESS("Building return value.\n"); | |||
| 58936 | capi_buildvalue = Py_BuildValue("NNyNNNfNNi",capi_a_tmp,capi_af_tmp,equed,capi_s_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 58937 | /*closepyobjfrom*/ | |||
| 58938 | /*end of closepyobjfrom*/ | |||
| 58939 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 58940 | /*cleanupfrompyobj*/ | |||
| 58941 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 58942 | /* End of cleaning variable berr */ | |||
| 58943 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 58944 | /* End of cleaning variable ferr */ | |||
| 58945 | /* End of cleaning variable ldx */ | |||
| 58946 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 58947 | /* End of cleaning variable x */ | |||
| 58948 | /* End of cleaning variable nrhs */ | |||
| 58949 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 58950 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 58951 | /* End of cleaning variable irwork */ | |||
| 58952 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 58953 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 58954 | /* End of cleaning variable work */ | |||
| 58955 | /* End of cleaning variable ldb */ | |||
| 58956 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 58957 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 58958 | /* End of cleaning variable b */ | |||
| 58959 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 58960 | /* End of cleaning variable s */ | |||
| 58961 | /* End of cleaning variable ldaf */ | |||
| 58962 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 58963 | /* End of cleaning variable af */ | |||
| 58964 | /* End of cleaning variable lda */ | |||
| 58965 | /* End of cleaning variable n */ | |||
| 58966 | /* End of cleaning variable info */ | |||
| 58967 | /* End of cleaning variable rcond */ | |||
| 58968 | STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0); | |||
| 58969 | } /*if (f2py_success) of equed*/ | |||
| 58970 | /* End of cleaning variable equed */ | |||
| 58971 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 58972 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 58973 | /* End of cleaning variable a */ | |||
| 58974 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 58975 | } /*if (f2py_success) of lower*/ | |||
| 58976 | /* End of cleaning variable lower */ | |||
| 58977 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 58978 | } /*if (f2py_success) of fact*/ | |||
| 58979 | /* End of cleaning variable fact */ | |||
| 58980 | /*end of cleanupfrompyobj*/ | |||
| 58981 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 58982 | /*routdebugfailure*/ | |||
| 58983 | } else { | |||
| 58984 | /*routdebugleave*/ | |||
| 58985 | } | |||
| 58986 | CFUNCSMESS("Freeing memory.\n"); | |||
| 58987 | /*freemem*/ | |||
| 58988 | #ifdef F2PY_REPORT_ATEXIT | |||
| 58989 | f2py_stop_clock(); | |||
| 58990 | #endif | |||
| 58991 | return capi_buildvalue; | |||
| 58992 | } | |||
| 58993 | /******************************* end of cposvx *******************************/ | |||
| 58994 | ||||
| 58995 | /*********************************** zposvx ***********************************/ | |||
| 58996 | static char doc_f2py_rout__flapack_zposvx[] = "\ | |||
| 58997 | a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = zposvx(a,b,[fact,af,equed,s,lower,overwrite_a,overwrite_b])\n\nWrapper for ``zposvx``.\ | |||
| 58998 | \n\nParameters\n----------\n" | |||
| 58999 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 59000 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 59001 | "\nOther Parameters\n----------------\n" | |||
| 59002 | "fact : input string(len=1), optional\n Default: 'E'\n" | |||
| 59003 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 59004 | "af : input rank-2 array('D') with bounds (n,n)\n" | |||
| 59005 | "equed : input string(len=1), optional\n Default: 'Y'\n" | |||
| 59006 | "s : input rank-1 array('d') with bounds (n)\n" | |||
| 59007 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 59008 | "lower : input int, optional\n Default: 0\n" | |||
| 59009 | "\nReturns\n-------\n" | |||
| 59010 | "a_s : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 59011 | "lu : rank-2 array('D') with bounds (n,n) and af storage\n" | |||
| 59012 | "equed : string(len=1)\n" | |||
| 59013 | "s : rank-1 array('d') with bounds (n)\n" | |||
| 59014 | "b_s : rank-2 array('D') with bounds (n,nrhs) and b storage\n" | |||
| 59015 | "x : rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 59016 | "rcond : float\n" | |||
| 59017 | "ferr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 59018 | "berr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 59019 | "info : int"; | |||
| 59020 | /* extern void F_FUNC(zposvx,ZPOSVX)(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,char*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,double*,F_INT* ); */ | |||
| 59021 | static PyObject *f2py_rout__flapack_zposvx(const PyObject *capi_self, | |||
| 59022 | PyObject *capi_args, | |||
| 59023 | PyObject *capi_keywds, | |||
| 59024 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,char*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,double*,F_INTint* )) { | |||
| 59025 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 59026 | volatile int f2py_success = 1; | |||
| 59027 | /*decl*/ | |||
| 59028 | ||||
| 59029 | string fact = NULL((void*)0); | |||
| 59030 | int slen(fact)capi_fact_len; | |||
| 59031 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 59032 | int n = 0; | |||
| 59033 | int nrhs = 0; | |||
| 59034 | complex_double *a = NULL((void*)0); | |||
| 59035 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 59036 | const int a_Rank = 2; | |||
| 59037 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 59038 | int capi_a_intent = 0; | |||
| 59039 | int capi_overwrite_a = 0; | |||
| 59040 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 59041 | int lda = 0; | |||
| 59042 | complex_double *af = NULL((void*)0); | |||
| 59043 | npy_intp af_Dims[2] = {-1, -1}; | |||
| 59044 | const int af_Rank = 2; | |||
| 59045 | PyArrayObject *capi_af_tmp = NULL((void*)0); | |||
| 59046 | int capi_af_intent = 0; | |||
| 59047 | PyObject *af_capi = Py_None(&_Py_NoneStruct); | |||
| 59048 | int ldaf = 0; | |||
| 59049 | string equed = NULL((void*)0); | |||
| 59050 | int slen(equed)capi_equed_len; | |||
| 59051 | PyObject *equed_capi = Py_None(&_Py_NoneStruct); | |||
| 59052 | double *s = NULL((void*)0); | |||
| 59053 | npy_intp s_Dims[1] = {-1}; | |||
| 59054 | const int s_Rank = 1; | |||
| 59055 | PyArrayObject *capi_s_tmp = NULL((void*)0); | |||
| 59056 | int capi_s_intent = 0; | |||
| 59057 | PyObject *s_capi = Py_None(&_Py_NoneStruct); | |||
| 59058 | complex_double *b = NULL((void*)0); | |||
| 59059 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 59060 | const int b_Rank = 2; | |||
| 59061 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 59062 | int capi_b_intent = 0; | |||
| 59063 | int capi_overwrite_b = 0; | |||
| 59064 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 59065 | int ldb = 0; | |||
| 59066 | complex_double *x = NULL((void*)0); | |||
| 59067 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 59068 | const int x_Rank = 2; | |||
| 59069 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 59070 | int capi_x_intent = 0; | |||
| 59071 | int ldx = 0; | |||
| 59072 | double rcond = 0; | |||
| 59073 | double *ferr = NULL((void*)0); | |||
| 59074 | npy_intp ferr_Dims[1] = {-1}; | |||
| 59075 | const int ferr_Rank = 1; | |||
| 59076 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 59077 | int capi_ferr_intent = 0; | |||
| 59078 | double *berr = NULL((void*)0); | |||
| 59079 | npy_intp berr_Dims[1] = {-1}; | |||
| 59080 | const int berr_Rank = 1; | |||
| 59081 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 59082 | int capi_berr_intent = 0; | |||
| 59083 | complex_double *work = NULL((void*)0); | |||
| 59084 | npy_intp work_Dims[1] = {-1}; | |||
| 59085 | const int work_Rank = 1; | |||
| 59086 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 59087 | int capi_work_intent = 0; | |||
| 59088 | double *irwork = NULL((void*)0); | |||
| 59089 | npy_intp irwork_Dims[1] = {-1}; | |||
| 59090 | const int irwork_Rank = 1; | |||
| 59091 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 59092 | int capi_irwork_intent = 0; | |||
| 59093 | int info = 0; | |||
| 59094 | int lower = 0; | |||
| 59095 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 59096 | static char *capi_kwlist[] = {"a","b","fact","af","equed","s","lower","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 59097 | ||||
| 59098 | /*routdebugenter*/ | |||
| 59099 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59100 | f2py_start_clock(); | |||
| 59101 | #endif | |||
| 59102 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 59103 | "OO|OOOOOii:_flapack.zposvx",\ | |||
| 59104 | capi_kwlist,&a_capi,&b_capi,&fact_capi,&af_capi,&equed_capi,&s_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 59105 | return NULL((void*)0); | |||
| 59106 | /*frompyobj*/ | |||
| 59107 | /* Processing variable fact */ | |||
| 59108 | slen(fact)capi_fact_len = 1; | |||
| 59109 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.zposvx to C string"); | |||
| 59110 | if (f2py_success) { | |||
| 59111 | /* Processing variable lower */ | |||
| 59112 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 59113 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zposvx() 5th keyword (lower) can't be converted to int"); | |||
| 59114 | if (f2py_success) { | |||
| 59115 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","zposvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zposvx:lower=%d", "(""lower==0||lower==1"") failed for " "5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 59116 | /* Processing variable a */ | |||
| 59117 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 59118 | ; | |||
| 59119 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 59120 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 59121 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 59122 | if (!PyErr_Occurred()) | |||
| 59123 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zposvx to C/Fortran array" ); | |||
| 59124 | } else { | |||
| 59125 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 59126 | ||||
| 59127 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 59128 | /* Processing variable equed */ | |||
| 59129 | slen(equed)capi_equed_len = 1; | |||
| 59130 | f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"Y",equed_capi,"string_from_pyobj failed in converting 3rd keyword `equed' of _flapack.zposvx to C string"); | |||
| 59131 | if (f2py_success) { | |||
| 59132 | /* Processing variable rcond */ | |||
| 59133 | /* Processing variable info */ | |||
| 59134 | /* Processing variable n */ | |||
| 59135 | n = shape(a,0)a_Dims[0]; | |||
| 59136 | /* Processing variable lda */ | |||
| 59137 | lda = shape(a,0)a_Dims[0]; | |||
| 59138 | /* Processing variable af */ | |||
| 59139 | af_Dims[0]=n,af_Dims[1]=n; | |||
| 59140 | capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 59141 | capi_af_tmp = array_from_pyobj(NPY_CDOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi); | |||
| 59142 | if (capi_af_tmp == NULL((void*)0)) { | |||
| 59143 | if (!PyErr_Occurred()) | |||
| 59144 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `af' of _flapack.zposvx to C/Fortran array" ); | |||
| 59145 | } else { | |||
| 59146 | af = (complex_double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data)); | |||
| 59147 | ||||
| 59148 | /* Processing variable ldaf */ | |||
| 59149 | ldaf = shape(af,0)af_Dims[0]; | |||
| 59150 | /* Processing variable s */ | |||
| 59151 | s_Dims[0]=n; | |||
| 59152 | capi_s_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 59153 | capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,s_capi); | |||
| 59154 | if (capi_s_tmp == NULL((void*)0)) { | |||
| 59155 | if (!PyErr_Occurred()) | |||
| 59156 | PyErr_SetString(_flapack_error,"failed in converting 4th keyword `s' of _flapack.zposvx to C/Fortran array" ); | |||
| 59157 | } else { | |||
| 59158 | s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data)); | |||
| 59159 | ||||
| 59160 | /* Processing variable b */ | |||
| 59161 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 59162 | b_Dims[0]=n; | |||
| 59163 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 59164 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 59165 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 59166 | if (!PyErr_Occurred()) | |||
| 59167 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zposvx to C/Fortran array" ); | |||
| 59168 | } else { | |||
| 59169 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 59170 | ||||
| 59171 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""2nd argument b"); } else { | |||
| 59172 | /* Processing variable ldb */ | |||
| 59173 | ldb = shape(b,0)b_Dims[0]; | |||
| 59174 | /* Processing variable work */ | |||
| 59175 | work_Dims[0]=2 * n; | |||
| 59176 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 59177 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 59178 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 59179 | if (!PyErr_Occurred()) | |||
| 59180 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zposvx to C/Fortran array" ); | |||
| 59181 | } else { | |||
| 59182 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 59183 | ||||
| 59184 | /* Processing variable irwork */ | |||
| 59185 | irwork_Dims[0]=n; | |||
| 59186 | capi_irwork_intent |= F2PY_INTENT_HIDE8; | |||
| 59187 | capi_irwork_tmp = array_from_pyobj(NPY_DOUBLE,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 59188 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 59189 | if (!PyErr_Occurred()) | |||
| 59190 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.zposvx to C/Fortran array" ); | |||
| 59191 | } else { | |||
| 59192 | irwork = (double *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 59193 | ||||
| 59194 | /* Processing variable nrhs */ | |||
| 59195 | nrhs = shape(b,1)b_Dims[1]; | |||
| 59196 | /* Processing variable x */ | |||
| 59197 | x_Dims[0]=n,x_Dims[1]=nrhs; | |||
| 59198 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 59199 | capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 59200 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 59201 | if (!PyErr_Occurred()) | |||
| 59202 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zposvx to C/Fortran array" ); | |||
| 59203 | } else { | |||
| 59204 | x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 59205 | ||||
| 59206 | /* Processing variable ldx */ | |||
| 59207 | ldx = shape(x,0)x_Dims[0]; | |||
| 59208 | /* Processing variable ferr */ | |||
| 59209 | ferr_Dims[0]=nrhs; | |||
| 59210 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 59211 | capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 59212 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 59213 | if (!PyErr_Occurred()) | |||
| 59214 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.zposvx to C/Fortran array" ); | |||
| 59215 | } else { | |||
| 59216 | ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 59217 | ||||
| 59218 | /* Processing variable berr */ | |||
| 59219 | berr_Dims[0]=nrhs; | |||
| 59220 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 59221 | capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 59222 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 59223 | if (!PyErr_Occurred()) | |||
| 59224 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.zposvx to C/Fortran array" ); | |||
| 59225 | } else { | |||
| 59226 | berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 59227 | ||||
| 59228 | /*end of frompyobj*/ | |||
| 59229 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59230 | f2py_start_call_clock(); | |||
| 59231 | #endif | |||
| 59232 | /*callfortranroutine*/ | |||
| 59233 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 59234 | (*f2py_func)(fact,(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info) ; | |||
| 59235 | /*(*f2py_func)(fact,&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info,&lower,slen(fact),slen(equed));*/ | |||
| 59236 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 59237 | if (PyErr_Occurred()) | |||
| 59238 | f2py_success = 0; | |||
| 59239 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59240 | f2py_stop_call_clock(); | |||
| 59241 | #endif | |||
| 59242 | /*end of callfortranroutine*/ | |||
| 59243 | if (f2py_success) { | |||
| 59244 | /*pyobjfrom*/ | |||
| 59245 | /*end of pyobjfrom*/ | |||
| 59246 | CFUNCSMESS("Building return value.\n"); | |||
| 59247 | capi_buildvalue = Py_BuildValue("NNyNNNdNNi",capi_a_tmp,capi_af_tmp,equed,capi_s_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 59248 | /*closepyobjfrom*/ | |||
| 59249 | /*end of closepyobjfrom*/ | |||
| 59250 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 59251 | /*cleanupfrompyobj*/ | |||
| 59252 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 59253 | /* End of cleaning variable berr */ | |||
| 59254 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 59255 | /* End of cleaning variable ferr */ | |||
| 59256 | /* End of cleaning variable ldx */ | |||
| 59257 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 59258 | /* End of cleaning variable x */ | |||
| 59259 | /* End of cleaning variable nrhs */ | |||
| 59260 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 59261 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 59262 | /* End of cleaning variable irwork */ | |||
| 59263 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 59264 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 59265 | /* End of cleaning variable work */ | |||
| 59266 | /* End of cleaning variable ldb */ | |||
| 59267 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 59268 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 59269 | /* End of cleaning variable b */ | |||
| 59270 | } /*if (capi_s_tmp == NULL) ... else of s*/ | |||
| 59271 | /* End of cleaning variable s */ | |||
| 59272 | /* End of cleaning variable ldaf */ | |||
| 59273 | } /*if (capi_af_tmp == NULL) ... else of af*/ | |||
| 59274 | /* End of cleaning variable af */ | |||
| 59275 | /* End of cleaning variable lda */ | |||
| 59276 | /* End of cleaning variable n */ | |||
| 59277 | /* End of cleaning variable info */ | |||
| 59278 | /* End of cleaning variable rcond */ | |||
| 59279 | STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0); | |||
| 59280 | } /*if (f2py_success) of equed*/ | |||
| 59281 | /* End of cleaning variable equed */ | |||
| 59282 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 59283 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 59284 | /* End of cleaning variable a */ | |||
| 59285 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 59286 | } /*if (f2py_success) of lower*/ | |||
| 59287 | /* End of cleaning variable lower */ | |||
| 59288 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 59289 | } /*if (f2py_success) of fact*/ | |||
| 59290 | /* End of cleaning variable fact */ | |||
| 59291 | /*end of cleanupfrompyobj*/ | |||
| 59292 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 59293 | /*routdebugfailure*/ | |||
| 59294 | } else { | |||
| 59295 | /*routdebugleave*/ | |||
| 59296 | } | |||
| 59297 | CFUNCSMESS("Freeing memory.\n"); | |||
| 59298 | /*freemem*/ | |||
| 59299 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59300 | f2py_stop_clock(); | |||
| 59301 | #endif | |||
| 59302 | return capi_buildvalue; | |||
| 59303 | } | |||
| 59304 | /******************************* end of zposvx *******************************/ | |||
| 59305 | ||||
| 59306 | /*********************************** spocon ***********************************/ | |||
| 59307 | static char doc_f2py_rout__flapack_spocon[] = "\ | |||
| 59308 | rcond,info = spocon(a,anorm,[uplo])\n\nWrapper for ``spocon``.\ | |||
| 59309 | \n\nParameters\n----------\n" | |||
| 59310 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 59311 | "anorm : input float\n" | |||
| 59312 | "\nOther Parameters\n----------------\n" | |||
| 59313 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 59314 | "\nReturns\n-------\n" | |||
| 59315 | "rcond : float\n" | |||
| 59316 | "info : int"; | |||
| 59317 | /* extern void F_FUNC(spocon,SPOCON)(char*,F_INT*,float*,F_INT*,float*,float*,float*,F_INT*,F_INT* ); */ | |||
| 59318 | static PyObject *f2py_rout__flapack_spocon(const PyObject *capi_self, | |||
| 59319 | PyObject *capi_args, | |||
| 59320 | PyObject *capi_keywds, | |||
| 59321 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 59322 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 59323 | volatile int f2py_success = 1; | |||
| 59324 | /*decl*/ | |||
| 59325 | ||||
| 59326 | string uplo = NULL((void*)0); | |||
| 59327 | int slen(uplo)capi_uplo_len; | |||
| 59328 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 59329 | int n = 0; | |||
| 59330 | float *a = NULL((void*)0); | |||
| 59331 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 59332 | const int a_Rank = 2; | |||
| 59333 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 59334 | int capi_a_intent = 0; | |||
| 59335 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 59336 | int lda = 0; | |||
| 59337 | float anorm = 0; | |||
| 59338 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 59339 | float rcond = 0; | |||
| 59340 | float *work = NULL((void*)0); | |||
| 59341 | npy_intp work_Dims[1] = {-1}; | |||
| 59342 | const int work_Rank = 1; | |||
| 59343 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 59344 | int capi_work_intent = 0; | |||
| 59345 | int *irwork = NULL((void*)0); | |||
| 59346 | npy_intp irwork_Dims[1] = {-1}; | |||
| 59347 | const int irwork_Rank = 1; | |||
| 59348 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 59349 | int capi_irwork_intent = 0; | |||
| 59350 | int info = 0; | |||
| 59351 | static char *capi_kwlist[] = {"a","anorm","uplo",NULL((void*)0)}; | |||
| 59352 | ||||
| 59353 | /*routdebugenter*/ | |||
| 59354 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59355 | f2py_start_clock(); | |||
| 59356 | #endif | |||
| 59357 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 59358 | "OO|O:_flapack.spocon",\ | |||
| 59359 | capi_kwlist,&a_capi,&anorm_capi,&uplo_capi)) | |||
| 59360 | return NULL((void*)0); | |||
| 59361 | /*frompyobj*/ | |||
| 59362 | /* Processing variable uplo */ | |||
| 59363 | slen(uplo)capi_uplo_len = 1; | |||
| 59364 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.spocon to C string"); | |||
| 59365 | if (f2py_success) { | |||
| 59366 | /* Processing variable a */ | |||
| 59367 | ; | |||
| 59368 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 59369 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 59370 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 59371 | if (!PyErr_Occurred()) | |||
| 59372 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.spocon to C/Fortran array" ); | |||
| 59373 | } else { | |||
| 59374 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 59375 | ||||
| 59376 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 59377 | /* Processing variable anorm */ | |||
| 59378 | f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.spocon() 2nd argument (anorm) can't be converted to float"); | |||
| 59379 | if (f2py_success) { | |||
| 59380 | /* Processing variable rcond */ | |||
| 59381 | /* Processing variable info */ | |||
| 59382 | /* Processing variable n */ | |||
| 59383 | n = shape(a,0)a_Dims[0]; | |||
| 59384 | /* Processing variable lda */ | |||
| 59385 | lda = shape(a,0)a_Dims[0]; | |||
| 59386 | /* Processing variable work */ | |||
| 59387 | work_Dims[0]=3 * n; | |||
| 59388 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 59389 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 59390 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 59391 | if (!PyErr_Occurred()) | |||
| 59392 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.spocon to C/Fortran array" ); | |||
| 59393 | } else { | |||
| 59394 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 59395 | ||||
| 59396 | /* Processing variable irwork */ | |||
| 59397 | irwork_Dims[0]=n; | |||
| 59398 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 59399 | capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 59400 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 59401 | if (!PyErr_Occurred()) | |||
| 59402 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.spocon to C/Fortran array" ); | |||
| 59403 | } else { | |||
| 59404 | irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 59405 | ||||
| 59406 | /*end of frompyobj*/ | |||
| 59407 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59408 | f2py_start_call_clock(); | |||
| 59409 | #endif | |||
| 59410 | /*callfortranroutine*/ | |||
| 59411 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 59412 | (*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ; | |||
| 59413 | /*(*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(uplo));*/ | |||
| 59414 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 59415 | if (PyErr_Occurred()) | |||
| 59416 | f2py_success = 0; | |||
| 59417 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59418 | f2py_stop_call_clock(); | |||
| 59419 | #endif | |||
| 59420 | /*end of callfortranroutine*/ | |||
| 59421 | if (f2py_success) { | |||
| 59422 | /*pyobjfrom*/ | |||
| 59423 | /*end of pyobjfrom*/ | |||
| 59424 | CFUNCSMESS("Building return value.\n"); | |||
| 59425 | capi_buildvalue = Py_BuildValue("fi",rcond,info); | |||
| 59426 | /*closepyobjfrom*/ | |||
| 59427 | /*end of closepyobjfrom*/ | |||
| 59428 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 59429 | /*cleanupfrompyobj*/ | |||
| 59430 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 59431 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 59432 | /* End of cleaning variable irwork */ | |||
| 59433 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 59434 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 59435 | /* End of cleaning variable work */ | |||
| 59436 | /* End of cleaning variable lda */ | |||
| 59437 | /* End of cleaning variable n */ | |||
| 59438 | /* End of cleaning variable info */ | |||
| 59439 | /* End of cleaning variable rcond */ | |||
| 59440 | } /*if (f2py_success) of anorm*/ | |||
| 59441 | /* End of cleaning variable anorm */ | |||
| 59442 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 59443 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 59444 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 59445 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 59446 | /* End of cleaning variable a */ | |||
| 59447 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 59448 | } /*if (f2py_success) of uplo*/ | |||
| 59449 | /* End of cleaning variable uplo */ | |||
| 59450 | /*end of cleanupfrompyobj*/ | |||
| 59451 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 59452 | /*routdebugfailure*/ | |||
| 59453 | } else { | |||
| 59454 | /*routdebugleave*/ | |||
| 59455 | } | |||
| 59456 | CFUNCSMESS("Freeing memory.\n"); | |||
| 59457 | /*freemem*/ | |||
| 59458 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59459 | f2py_stop_clock(); | |||
| 59460 | #endif | |||
| 59461 | return capi_buildvalue; | |||
| 59462 | } | |||
| 59463 | /******************************* end of spocon *******************************/ | |||
| 59464 | ||||
| 59465 | /*********************************** dpocon ***********************************/ | |||
| 59466 | static char doc_f2py_rout__flapack_dpocon[] = "\ | |||
| 59467 | rcond,info = dpocon(a,anorm,[uplo])\n\nWrapper for ``dpocon``.\ | |||
| 59468 | \n\nParameters\n----------\n" | |||
| 59469 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 59470 | "anorm : input float\n" | |||
| 59471 | "\nOther Parameters\n----------------\n" | |||
| 59472 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 59473 | "\nReturns\n-------\n" | |||
| 59474 | "rcond : float\n" | |||
| 59475 | "info : int"; | |||
| 59476 | /* extern void F_FUNC(dpocon,DPOCON)(char*,F_INT*,double*,F_INT*,double*,double*,double*,F_INT*,F_INT* ); */ | |||
| 59477 | static PyObject *f2py_rout__flapack_dpocon(const PyObject *capi_self, | |||
| 59478 | PyObject *capi_args, | |||
| 59479 | PyObject *capi_keywds, | |||
| 59480 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 59481 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 59482 | volatile int f2py_success = 1; | |||
| 59483 | /*decl*/ | |||
| 59484 | ||||
| 59485 | string uplo = NULL((void*)0); | |||
| 59486 | int slen(uplo)capi_uplo_len; | |||
| 59487 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 59488 | int n = 0; | |||
| 59489 | double *a = NULL((void*)0); | |||
| 59490 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 59491 | const int a_Rank = 2; | |||
| 59492 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 59493 | int capi_a_intent = 0; | |||
| 59494 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 59495 | int lda = 0; | |||
| 59496 | double anorm = 0; | |||
| 59497 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 59498 | double rcond = 0; | |||
| 59499 | double *work = NULL((void*)0); | |||
| 59500 | npy_intp work_Dims[1] = {-1}; | |||
| 59501 | const int work_Rank = 1; | |||
| 59502 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 59503 | int capi_work_intent = 0; | |||
| 59504 | int *irwork = NULL((void*)0); | |||
| 59505 | npy_intp irwork_Dims[1] = {-1}; | |||
| 59506 | const int irwork_Rank = 1; | |||
| 59507 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 59508 | int capi_irwork_intent = 0; | |||
| 59509 | int info = 0; | |||
| 59510 | static char *capi_kwlist[] = {"a","anorm","uplo",NULL((void*)0)}; | |||
| 59511 | ||||
| 59512 | /*routdebugenter*/ | |||
| 59513 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59514 | f2py_start_clock(); | |||
| 59515 | #endif | |||
| 59516 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 59517 | "OO|O:_flapack.dpocon",\ | |||
| 59518 | capi_kwlist,&a_capi,&anorm_capi,&uplo_capi)) | |||
| 59519 | return NULL((void*)0); | |||
| 59520 | /*frompyobj*/ | |||
| 59521 | /* Processing variable uplo */ | |||
| 59522 | slen(uplo)capi_uplo_len = 1; | |||
| 59523 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.dpocon to C string"); | |||
| 59524 | if (f2py_success) { | |||
| 59525 | /* Processing variable a */ | |||
| 59526 | ; | |||
| 59527 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 59528 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 59529 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 59530 | if (!PyErr_Occurred()) | |||
| 59531 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dpocon to C/Fortran array" ); | |||
| 59532 | } else { | |||
| 59533 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 59534 | ||||
| 59535 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 59536 | /* Processing variable anorm */ | |||
| 59537 | f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.dpocon() 2nd argument (anorm) can't be converted to double"); | |||
| 59538 | if (f2py_success) { | |||
| 59539 | /* Processing variable rcond */ | |||
| 59540 | /* Processing variable info */ | |||
| 59541 | /* Processing variable n */ | |||
| 59542 | n = shape(a,0)a_Dims[0]; | |||
| 59543 | /* Processing variable lda */ | |||
| 59544 | lda = shape(a,0)a_Dims[0]; | |||
| 59545 | /* Processing variable work */ | |||
| 59546 | work_Dims[0]=3 * n; | |||
| 59547 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 59548 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 59549 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 59550 | if (!PyErr_Occurred()) | |||
| 59551 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dpocon to C/Fortran array" ); | |||
| 59552 | } else { | |||
| 59553 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 59554 | ||||
| 59555 | /* Processing variable irwork */ | |||
| 59556 | irwork_Dims[0]=n; | |||
| 59557 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 59558 | capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 59559 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 59560 | if (!PyErr_Occurred()) | |||
| 59561 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.dpocon to C/Fortran array" ); | |||
| 59562 | } else { | |||
| 59563 | irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 59564 | ||||
| 59565 | /*end of frompyobj*/ | |||
| 59566 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59567 | f2py_start_call_clock(); | |||
| 59568 | #endif | |||
| 59569 | /*callfortranroutine*/ | |||
| 59570 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 59571 | (*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ; | |||
| 59572 | /*(*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(uplo));*/ | |||
| 59573 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 59574 | if (PyErr_Occurred()) | |||
| 59575 | f2py_success = 0; | |||
| 59576 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59577 | f2py_stop_call_clock(); | |||
| 59578 | #endif | |||
| 59579 | /*end of callfortranroutine*/ | |||
| 59580 | if (f2py_success) { | |||
| 59581 | /*pyobjfrom*/ | |||
| 59582 | /*end of pyobjfrom*/ | |||
| 59583 | CFUNCSMESS("Building return value.\n"); | |||
| 59584 | capi_buildvalue = Py_BuildValue("di",rcond,info); | |||
| 59585 | /*closepyobjfrom*/ | |||
| 59586 | /*end of closepyobjfrom*/ | |||
| 59587 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 59588 | /*cleanupfrompyobj*/ | |||
| 59589 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 59590 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 59591 | /* End of cleaning variable irwork */ | |||
| 59592 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 59593 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 59594 | /* End of cleaning variable work */ | |||
| 59595 | /* End of cleaning variable lda */ | |||
| 59596 | /* End of cleaning variable n */ | |||
| 59597 | /* End of cleaning variable info */ | |||
| 59598 | /* End of cleaning variable rcond */ | |||
| 59599 | } /*if (f2py_success) of anorm*/ | |||
| 59600 | /* End of cleaning variable anorm */ | |||
| 59601 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 59602 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 59603 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 59604 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 59605 | /* End of cleaning variable a */ | |||
| 59606 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 59607 | } /*if (f2py_success) of uplo*/ | |||
| 59608 | /* End of cleaning variable uplo */ | |||
| 59609 | /*end of cleanupfrompyobj*/ | |||
| 59610 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 59611 | /*routdebugfailure*/ | |||
| 59612 | } else { | |||
| 59613 | /*routdebugleave*/ | |||
| 59614 | } | |||
| 59615 | CFUNCSMESS("Freeing memory.\n"); | |||
| 59616 | /*freemem*/ | |||
| 59617 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59618 | f2py_stop_clock(); | |||
| 59619 | #endif | |||
| 59620 | return capi_buildvalue; | |||
| 59621 | } | |||
| 59622 | /******************************* end of dpocon *******************************/ | |||
| 59623 | ||||
| 59624 | /*********************************** cpocon ***********************************/ | |||
| 59625 | static char doc_f2py_rout__flapack_cpocon[] = "\ | |||
| 59626 | rcond,info = cpocon(a,anorm,[uplo])\n\nWrapper for ``cpocon``.\ | |||
| 59627 | \n\nParameters\n----------\n" | |||
| 59628 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 59629 | "anorm : input float\n" | |||
| 59630 | "\nOther Parameters\n----------------\n" | |||
| 59631 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 59632 | "\nReturns\n-------\n" | |||
| 59633 | "rcond : float\n" | |||
| 59634 | "info : int"; | |||
| 59635 | /* extern void F_FUNC(cpocon,CPOCON)(char*,F_INT*,complex_float*,F_INT*,float*,float*,complex_float*,float*,F_INT* ); */ | |||
| 59636 | static PyObject *f2py_rout__flapack_cpocon(const PyObject *capi_self, | |||
| 59637 | PyObject *capi_args, | |||
| 59638 | PyObject *capi_keywds, | |||
| 59639 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,float*,F_INTint* )) { | |||
| 59640 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 59641 | volatile int f2py_success = 1; | |||
| 59642 | /*decl*/ | |||
| 59643 | ||||
| 59644 | string uplo = NULL((void*)0); | |||
| 59645 | int slen(uplo)capi_uplo_len; | |||
| 59646 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 59647 | int n = 0; | |||
| 59648 | complex_float *a = NULL((void*)0); | |||
| 59649 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 59650 | const int a_Rank = 2; | |||
| 59651 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 59652 | int capi_a_intent = 0; | |||
| 59653 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 59654 | int lda = 0; | |||
| 59655 | float anorm = 0; | |||
| 59656 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 59657 | float rcond = 0; | |||
| 59658 | complex_float *work = NULL((void*)0); | |||
| 59659 | npy_intp work_Dims[1] = {-1}; | |||
| 59660 | const int work_Rank = 1; | |||
| 59661 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 59662 | int capi_work_intent = 0; | |||
| 59663 | float *irwork = NULL((void*)0); | |||
| 59664 | npy_intp irwork_Dims[1] = {-1}; | |||
| 59665 | const int irwork_Rank = 1; | |||
| 59666 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 59667 | int capi_irwork_intent = 0; | |||
| 59668 | int info = 0; | |||
| 59669 | static char *capi_kwlist[] = {"a","anorm","uplo",NULL((void*)0)}; | |||
| 59670 | ||||
| 59671 | /*routdebugenter*/ | |||
| 59672 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59673 | f2py_start_clock(); | |||
| 59674 | #endif | |||
| 59675 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 59676 | "OO|O:_flapack.cpocon",\ | |||
| 59677 | capi_kwlist,&a_capi,&anorm_capi,&uplo_capi)) | |||
| 59678 | return NULL((void*)0); | |||
| 59679 | /*frompyobj*/ | |||
| 59680 | /* Processing variable uplo */ | |||
| 59681 | slen(uplo)capi_uplo_len = 1; | |||
| 59682 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.cpocon to C string"); | |||
| 59683 | if (f2py_success) { | |||
| 59684 | /* Processing variable a */ | |||
| 59685 | ; | |||
| 59686 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 59687 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 59688 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 59689 | if (!PyErr_Occurred()) | |||
| 59690 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cpocon to C/Fortran array" ); | |||
| 59691 | } else { | |||
| 59692 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 59693 | ||||
| 59694 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 59695 | /* Processing variable anorm */ | |||
| 59696 | f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.cpocon() 2nd argument (anorm) can't be converted to float"); | |||
| 59697 | if (f2py_success) { | |||
| 59698 | /* Processing variable rcond */ | |||
| 59699 | /* Processing variable info */ | |||
| 59700 | /* Processing variable n */ | |||
| 59701 | n = shape(a,0)a_Dims[0]; | |||
| 59702 | /* Processing variable lda */ | |||
| 59703 | lda = shape(a,0)a_Dims[0]; | |||
| 59704 | /* Processing variable work */ | |||
| 59705 | work_Dims[0]=2 * n; | |||
| 59706 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 59707 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 59708 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 59709 | if (!PyErr_Occurred()) | |||
| 59710 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cpocon to C/Fortran array" ); | |||
| 59711 | } else { | |||
| 59712 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 59713 | ||||
| 59714 | /* Processing variable irwork */ | |||
| 59715 | irwork_Dims[0]=n; | |||
| 59716 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 59717 | capi_irwork_tmp = array_from_pyobj(NPY_FLOAT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 59718 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 59719 | if (!PyErr_Occurred()) | |||
| 59720 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.cpocon to C/Fortran array" ); | |||
| 59721 | } else { | |||
| 59722 | irwork = (float *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 59723 | ||||
| 59724 | /*end of frompyobj*/ | |||
| 59725 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59726 | f2py_start_call_clock(); | |||
| 59727 | #endif | |||
| 59728 | /*callfortranroutine*/ | |||
| 59729 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 59730 | (*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ; | |||
| 59731 | /*(*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(uplo));*/ | |||
| 59732 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 59733 | if (PyErr_Occurred()) | |||
| 59734 | f2py_success = 0; | |||
| 59735 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59736 | f2py_stop_call_clock(); | |||
| 59737 | #endif | |||
| 59738 | /*end of callfortranroutine*/ | |||
| 59739 | if (f2py_success) { | |||
| 59740 | /*pyobjfrom*/ | |||
| 59741 | /*end of pyobjfrom*/ | |||
| 59742 | CFUNCSMESS("Building return value.\n"); | |||
| 59743 | capi_buildvalue = Py_BuildValue("fi",rcond,info); | |||
| 59744 | /*closepyobjfrom*/ | |||
| 59745 | /*end of closepyobjfrom*/ | |||
| 59746 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 59747 | /*cleanupfrompyobj*/ | |||
| 59748 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 59749 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 59750 | /* End of cleaning variable irwork */ | |||
| 59751 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 59752 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 59753 | /* End of cleaning variable work */ | |||
| 59754 | /* End of cleaning variable lda */ | |||
| 59755 | /* End of cleaning variable n */ | |||
| 59756 | /* End of cleaning variable info */ | |||
| 59757 | /* End of cleaning variable rcond */ | |||
| 59758 | } /*if (f2py_success) of anorm*/ | |||
| 59759 | /* End of cleaning variable anorm */ | |||
| 59760 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 59761 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 59762 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 59763 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 59764 | /* End of cleaning variable a */ | |||
| 59765 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 59766 | } /*if (f2py_success) of uplo*/ | |||
| 59767 | /* End of cleaning variable uplo */ | |||
| 59768 | /*end of cleanupfrompyobj*/ | |||
| 59769 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 59770 | /*routdebugfailure*/ | |||
| 59771 | } else { | |||
| 59772 | /*routdebugleave*/ | |||
| 59773 | } | |||
| 59774 | CFUNCSMESS("Freeing memory.\n"); | |||
| 59775 | /*freemem*/ | |||
| 59776 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59777 | f2py_stop_clock(); | |||
| 59778 | #endif | |||
| 59779 | return capi_buildvalue; | |||
| 59780 | } | |||
| 59781 | /******************************* end of cpocon *******************************/ | |||
| 59782 | ||||
| 59783 | /*********************************** zpocon ***********************************/ | |||
| 59784 | static char doc_f2py_rout__flapack_zpocon[] = "\ | |||
| 59785 | rcond,info = zpocon(a,anorm,[uplo])\n\nWrapper for ``zpocon``.\ | |||
| 59786 | \n\nParameters\n----------\n" | |||
| 59787 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 59788 | "anorm : input float\n" | |||
| 59789 | "\nOther Parameters\n----------------\n" | |||
| 59790 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 59791 | "\nReturns\n-------\n" | |||
| 59792 | "rcond : float\n" | |||
| 59793 | "info : int"; | |||
| 59794 | /* extern void F_FUNC(zpocon,ZPOCON)(char*,F_INT*,complex_double*,F_INT*,double*,double*,complex_double*,double*,F_INT* ); */ | |||
| 59795 | static PyObject *f2py_rout__flapack_zpocon(const PyObject *capi_self, | |||
| 59796 | PyObject *capi_args, | |||
| 59797 | PyObject *capi_keywds, | |||
| 59798 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,double*,F_INTint* )) { | |||
| 59799 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 59800 | volatile int f2py_success = 1; | |||
| 59801 | /*decl*/ | |||
| 59802 | ||||
| 59803 | string uplo = NULL((void*)0); | |||
| 59804 | int slen(uplo)capi_uplo_len; | |||
| 59805 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 59806 | int n = 0; | |||
| 59807 | complex_double *a = NULL((void*)0); | |||
| 59808 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 59809 | const int a_Rank = 2; | |||
| 59810 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 59811 | int capi_a_intent = 0; | |||
| 59812 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 59813 | int lda = 0; | |||
| 59814 | double anorm = 0; | |||
| 59815 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 59816 | double rcond = 0; | |||
| 59817 | complex_double *work = NULL((void*)0); | |||
| 59818 | npy_intp work_Dims[1] = {-1}; | |||
| 59819 | const int work_Rank = 1; | |||
| 59820 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 59821 | int capi_work_intent = 0; | |||
| 59822 | double *irwork = NULL((void*)0); | |||
| 59823 | npy_intp irwork_Dims[1] = {-1}; | |||
| 59824 | const int irwork_Rank = 1; | |||
| 59825 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 59826 | int capi_irwork_intent = 0; | |||
| 59827 | int info = 0; | |||
| 59828 | static char *capi_kwlist[] = {"a","anorm","uplo",NULL((void*)0)}; | |||
| 59829 | ||||
| 59830 | /*routdebugenter*/ | |||
| 59831 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59832 | f2py_start_clock(); | |||
| 59833 | #endif | |||
| 59834 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 59835 | "OO|O:_flapack.zpocon",\ | |||
| 59836 | capi_kwlist,&a_capi,&anorm_capi,&uplo_capi)) | |||
| 59837 | return NULL((void*)0); | |||
| 59838 | /*frompyobj*/ | |||
| 59839 | /* Processing variable uplo */ | |||
| 59840 | slen(uplo)capi_uplo_len = 1; | |||
| 59841 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.zpocon to C string"); | |||
| 59842 | if (f2py_success) { | |||
| 59843 | /* Processing variable a */ | |||
| 59844 | ; | |||
| 59845 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 59846 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 59847 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 59848 | if (!PyErr_Occurred()) | |||
| 59849 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zpocon to C/Fortran array" ); | |||
| 59850 | } else { | |||
| 59851 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 59852 | ||||
| 59853 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 59854 | /* Processing variable anorm */ | |||
| 59855 | f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.zpocon() 2nd argument (anorm) can't be converted to double"); | |||
| 59856 | if (f2py_success) { | |||
| 59857 | /* Processing variable rcond */ | |||
| 59858 | /* Processing variable info */ | |||
| 59859 | /* Processing variable n */ | |||
| 59860 | n = shape(a,0)a_Dims[0]; | |||
| 59861 | /* Processing variable lda */ | |||
| 59862 | lda = shape(a,0)a_Dims[0]; | |||
| 59863 | /* Processing variable work */ | |||
| 59864 | work_Dims[0]=2 * n; | |||
| 59865 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 59866 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 59867 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 59868 | if (!PyErr_Occurred()) | |||
| 59869 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zpocon to C/Fortran array" ); | |||
| 59870 | } else { | |||
| 59871 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 59872 | ||||
| 59873 | /* Processing variable irwork */ | |||
| 59874 | irwork_Dims[0]=n; | |||
| 59875 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 59876 | capi_irwork_tmp = array_from_pyobj(NPY_DOUBLE,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 59877 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 59878 | if (!PyErr_Occurred()) | |||
| 59879 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.zpocon to C/Fortran array" ); | |||
| 59880 | } else { | |||
| 59881 | irwork = (double *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 59882 | ||||
| 59883 | /*end of frompyobj*/ | |||
| 59884 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59885 | f2py_start_call_clock(); | |||
| 59886 | #endif | |||
| 59887 | /*callfortranroutine*/ | |||
| 59888 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 59889 | (*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ; | |||
| 59890 | /*(*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(uplo));*/ | |||
| 59891 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 59892 | if (PyErr_Occurred()) | |||
| 59893 | f2py_success = 0; | |||
| 59894 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59895 | f2py_stop_call_clock(); | |||
| 59896 | #endif | |||
| 59897 | /*end of callfortranroutine*/ | |||
| 59898 | if (f2py_success) { | |||
| 59899 | /*pyobjfrom*/ | |||
| 59900 | /*end of pyobjfrom*/ | |||
| 59901 | CFUNCSMESS("Building return value.\n"); | |||
| 59902 | capi_buildvalue = Py_BuildValue("di",rcond,info); | |||
| 59903 | /*closepyobjfrom*/ | |||
| 59904 | /*end of closepyobjfrom*/ | |||
| 59905 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 59906 | /*cleanupfrompyobj*/ | |||
| 59907 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 59908 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 59909 | /* End of cleaning variable irwork */ | |||
| 59910 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 59911 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 59912 | /* End of cleaning variable work */ | |||
| 59913 | /* End of cleaning variable lda */ | |||
| 59914 | /* End of cleaning variable n */ | |||
| 59915 | /* End of cleaning variable info */ | |||
| 59916 | /* End of cleaning variable rcond */ | |||
| 59917 | } /*if (f2py_success) of anorm*/ | |||
| 59918 | /* End of cleaning variable anorm */ | |||
| 59919 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 59920 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 59921 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 59922 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 59923 | /* End of cleaning variable a */ | |||
| 59924 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 59925 | } /*if (f2py_success) of uplo*/ | |||
| 59926 | /* End of cleaning variable uplo */ | |||
| 59927 | /*end of cleanupfrompyobj*/ | |||
| 59928 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 59929 | /*routdebugfailure*/ | |||
| 59930 | } else { | |||
| 59931 | /*routdebugleave*/ | |||
| 59932 | } | |||
| 59933 | CFUNCSMESS("Freeing memory.\n"); | |||
| 59934 | /*freemem*/ | |||
| 59935 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59936 | f2py_stop_clock(); | |||
| 59937 | #endif | |||
| 59938 | return capi_buildvalue; | |||
| 59939 | } | |||
| 59940 | /******************************* end of zpocon *******************************/ | |||
| 59941 | ||||
| 59942 | /*********************************** spotrf ***********************************/ | |||
| 59943 | static char doc_f2py_rout__flapack_spotrf[] = "\ | |||
| 59944 | c,info = spotrf(a,[lower,clean,overwrite_a])\n\nWrapper for ``spotrf``.\ | |||
| 59945 | \n\nParameters\n----------\n" | |||
| 59946 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 59947 | "\nOther Parameters\n----------------\n" | |||
| 59948 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 59949 | "lower : input int, optional\n Default: 0\n" | |||
| 59950 | "clean : input int, optional\n Default: 1\n" | |||
| 59951 | "\nReturns\n-------\n" | |||
| 59952 | "c : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 59953 | "info : int"; | |||
| 59954 | /* extern void F_FUNC(spotrf,SPOTRF)(char*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 59955 | static PyObject *f2py_rout__flapack_spotrf(const PyObject *capi_self, | |||
| 59956 | PyObject *capi_args, | |||
| 59957 | PyObject *capi_keywds, | |||
| 59958 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 59959 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 59960 | volatile int f2py_success = 1; | |||
| 59961 | /*decl*/ | |||
| 59962 | ||||
| 59963 | int n = 0; | |||
| 59964 | float *a = NULL((void*)0); | |||
| 59965 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 59966 | const int a_Rank = 2; | |||
| 59967 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 59968 | int capi_a_intent = 0; | |||
| 59969 | int capi_overwrite_a = 0; | |||
| 59970 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 59971 | int lda = 0; | |||
| 59972 | int info = 0; | |||
| 59973 | int lower = 0; | |||
| 59974 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 59975 | int clean = 0; | |||
| 59976 | PyObject *clean_capi = Py_None(&_Py_NoneStruct); | |||
| 59977 | static char *capi_kwlist[] = {"a","lower","clean","overwrite_a",NULL((void*)0)}; | |||
| 59978 | ||||
| 59979 | /*routdebugenter*/ | |||
| 59980 | #ifdef F2PY_REPORT_ATEXIT | |||
| 59981 | f2py_start_clock(); | |||
| 59982 | #endif | |||
| 59983 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 59984 | "O|OOi:_flapack.spotrf",\ | |||
| 59985 | capi_kwlist,&a_capi,&lower_capi,&clean_capi,&capi_overwrite_a)) | |||
| 59986 | return NULL((void*)0); | |||
| 59987 | /*frompyobj*/ | |||
| 59988 | /* Processing variable lower */ | |||
| 59989 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 59990 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spotrf() 1st keyword (lower) can't be converted to int"); | |||
| 59991 | if (f2py_success) { | |||
| 59992 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spotrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spotrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 59993 | /* Processing variable clean */ | |||
| 59994 | if (clean_capi == Py_None(&_Py_NoneStruct)) clean = 1; else | |||
| 59995 | f2py_success = int_from_pyobj(&clean,clean_capi,"_flapack.spotrf() 2nd keyword (clean) can't be converted to int"); | |||
| 59996 | if (f2py_success) { | |||
| 59997 | CHECKSCALAR(clean==0||clean==1,"clean==0||clean==1","2nd keyword clean","spotrf:clean=%d",clean)if (!(clean==0||clean==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spotrf:clean=%d", "(""clean==0||clean==1"") failed for " "2nd keyword clean", clean); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 59998 | /* Processing variable a */ | |||
| 59999 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 60000 | ; | |||
| 60001 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 60002 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 60003 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 60004 | if (!PyErr_Occurred()) | |||
| 60005 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.spotrf to C/Fortran array" ); | |||
| 60006 | } else { | |||
| 60007 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 60008 | ||||
| 60009 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 60010 | /* Processing variable info */ | |||
| 60011 | /* Processing variable n */ | |||
| 60012 | n = shape(a,0)a_Dims[0]; | |||
| 60013 | /* Processing variable lda */ | |||
| 60014 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 60015 | /*end of frompyobj*/ | |||
| 60016 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60017 | f2py_start_call_clock(); | |||
| 60018 | #endif | |||
| 60019 | /*callfortranroutine*/ | |||
| 60020 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,&info); if(clean){F_INTint i,j;if(lower){for(i=0;i<n;++i) for(j=i+1;j<n;++j) *(a+j*n+i)=0.0;} else {for(i=0;i<n;++i) for(j=i+1;j<n;++j) *(a+i*n+j)=0.0;}} ; | |||
| 60021 | /*(*f2py_func)(&n,a,&lda,&info,&lower,&clean);*/ | |||
| 60022 | if (PyErr_Occurred()) | |||
| 60023 | f2py_success = 0; | |||
| 60024 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60025 | f2py_stop_call_clock(); | |||
| 60026 | #endif | |||
| 60027 | /*end of callfortranroutine*/ | |||
| 60028 | if (f2py_success) { | |||
| 60029 | /*pyobjfrom*/ | |||
| 60030 | /*end of pyobjfrom*/ | |||
| 60031 | CFUNCSMESS("Building return value.\n"); | |||
| 60032 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 60033 | /*closepyobjfrom*/ | |||
| 60034 | /*end of closepyobjfrom*/ | |||
| 60035 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 60036 | /*cleanupfrompyobj*/ | |||
| 60037 | /* End of cleaning variable lda */ | |||
| 60038 | /* End of cleaning variable n */ | |||
| 60039 | /* End of cleaning variable info */ | |||
| 60040 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 60041 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 60042 | /* End of cleaning variable a */ | |||
| 60043 | } /*CHECKSCALAR(clean==0||clean==1)*/ | |||
| 60044 | } /*if (f2py_success) of clean*/ | |||
| 60045 | /* End of cleaning variable clean */ | |||
| 60046 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 60047 | } /*if (f2py_success) of lower*/ | |||
| 60048 | /* End of cleaning variable lower */ | |||
| 60049 | /*end of cleanupfrompyobj*/ | |||
| 60050 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 60051 | /*routdebugfailure*/ | |||
| 60052 | } else { | |||
| 60053 | /*routdebugleave*/ | |||
| 60054 | } | |||
| 60055 | CFUNCSMESS("Freeing memory.\n"); | |||
| 60056 | /*freemem*/ | |||
| 60057 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60058 | f2py_stop_clock(); | |||
| 60059 | #endif | |||
| 60060 | return capi_buildvalue; | |||
| 60061 | } | |||
| 60062 | /******************************* end of spotrf *******************************/ | |||
| 60063 | ||||
| 60064 | /*********************************** dpotrf ***********************************/ | |||
| 60065 | static char doc_f2py_rout__flapack_dpotrf[] = "\ | |||
| 60066 | c,info = dpotrf(a,[lower,clean,overwrite_a])\n\nWrapper for ``dpotrf``.\ | |||
| 60067 | \n\nParameters\n----------\n" | |||
| 60068 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 60069 | "\nOther Parameters\n----------------\n" | |||
| 60070 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 60071 | "lower : input int, optional\n Default: 0\n" | |||
| 60072 | "clean : input int, optional\n Default: 1\n" | |||
| 60073 | "\nReturns\n-------\n" | |||
| 60074 | "c : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 60075 | "info : int"; | |||
| 60076 | /* extern void F_FUNC(dpotrf,DPOTRF)(char*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 60077 | static PyObject *f2py_rout__flapack_dpotrf(const PyObject *capi_self, | |||
| 60078 | PyObject *capi_args, | |||
| 60079 | PyObject *capi_keywds, | |||
| 60080 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 60081 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 60082 | volatile int f2py_success = 1; | |||
| 60083 | /*decl*/ | |||
| 60084 | ||||
| 60085 | int n = 0; | |||
| 60086 | double *a = NULL((void*)0); | |||
| 60087 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 60088 | const int a_Rank = 2; | |||
| 60089 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 60090 | int capi_a_intent = 0; | |||
| 60091 | int capi_overwrite_a = 0; | |||
| 60092 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 60093 | int lda = 0; | |||
| 60094 | int info = 0; | |||
| 60095 | int lower = 0; | |||
| 60096 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 60097 | int clean = 0; | |||
| 60098 | PyObject *clean_capi = Py_None(&_Py_NoneStruct); | |||
| 60099 | static char *capi_kwlist[] = {"a","lower","clean","overwrite_a",NULL((void*)0)}; | |||
| 60100 | ||||
| 60101 | /*routdebugenter*/ | |||
| 60102 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60103 | f2py_start_clock(); | |||
| 60104 | #endif | |||
| 60105 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 60106 | "O|OOi:_flapack.dpotrf",\ | |||
| 60107 | capi_kwlist,&a_capi,&lower_capi,&clean_capi,&capi_overwrite_a)) | |||
| 60108 | return NULL((void*)0); | |||
| 60109 | /*frompyobj*/ | |||
| 60110 | /* Processing variable lower */ | |||
| 60111 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 60112 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpotrf() 1st keyword (lower) can't be converted to int"); | |||
| 60113 | if (f2py_success) { | |||
| 60114 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpotrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpotrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 60115 | /* Processing variable clean */ | |||
| 60116 | if (clean_capi == Py_None(&_Py_NoneStruct)) clean = 1; else | |||
| 60117 | f2py_success = int_from_pyobj(&clean,clean_capi,"_flapack.dpotrf() 2nd keyword (clean) can't be converted to int"); | |||
| 60118 | if (f2py_success) { | |||
| 60119 | CHECKSCALAR(clean==0||clean==1,"clean==0||clean==1","2nd keyword clean","dpotrf:clean=%d",clean)if (!(clean==0||clean==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpotrf:clean=%d", "(""clean==0||clean==1"") failed for " "2nd keyword clean", clean); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 60120 | /* Processing variable a */ | |||
| 60121 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 60122 | ; | |||
| 60123 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 60124 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 60125 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 60126 | if (!PyErr_Occurred()) | |||
| 60127 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dpotrf to C/Fortran array" ); | |||
| 60128 | } else { | |||
| 60129 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 60130 | ||||
| 60131 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 60132 | /* Processing variable info */ | |||
| 60133 | /* Processing variable n */ | |||
| 60134 | n = shape(a,0)a_Dims[0]; | |||
| 60135 | /* Processing variable lda */ | |||
| 60136 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 60137 | /*end of frompyobj*/ | |||
| 60138 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60139 | f2py_start_call_clock(); | |||
| 60140 | #endif | |||
| 60141 | /*callfortranroutine*/ | |||
| 60142 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,&info); if(clean){F_INTint i,j;if(lower){for(i=0;i<n;++i) for(j=i+1;j<n;++j) *(a+j*n+i)=0.0;} else {for(i=0;i<n;++i) for(j=i+1;j<n;++j) *(a+i*n+j)=0.0;}} ; | |||
| 60143 | /*(*f2py_func)(&n,a,&lda,&info,&lower,&clean);*/ | |||
| 60144 | if (PyErr_Occurred()) | |||
| 60145 | f2py_success = 0; | |||
| 60146 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60147 | f2py_stop_call_clock(); | |||
| 60148 | #endif | |||
| 60149 | /*end of callfortranroutine*/ | |||
| 60150 | if (f2py_success) { | |||
| 60151 | /*pyobjfrom*/ | |||
| 60152 | /*end of pyobjfrom*/ | |||
| 60153 | CFUNCSMESS("Building return value.\n"); | |||
| 60154 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 60155 | /*closepyobjfrom*/ | |||
| 60156 | /*end of closepyobjfrom*/ | |||
| 60157 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 60158 | /*cleanupfrompyobj*/ | |||
| 60159 | /* End of cleaning variable lda */ | |||
| 60160 | /* End of cleaning variable n */ | |||
| 60161 | /* End of cleaning variable info */ | |||
| 60162 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 60163 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 60164 | /* End of cleaning variable a */ | |||
| 60165 | } /*CHECKSCALAR(clean==0||clean==1)*/ | |||
| 60166 | } /*if (f2py_success) of clean*/ | |||
| 60167 | /* End of cleaning variable clean */ | |||
| 60168 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 60169 | } /*if (f2py_success) of lower*/ | |||
| 60170 | /* End of cleaning variable lower */ | |||
| 60171 | /*end of cleanupfrompyobj*/ | |||
| 60172 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 60173 | /*routdebugfailure*/ | |||
| 60174 | } else { | |||
| 60175 | /*routdebugleave*/ | |||
| 60176 | } | |||
| 60177 | CFUNCSMESS("Freeing memory.\n"); | |||
| 60178 | /*freemem*/ | |||
| 60179 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60180 | f2py_stop_clock(); | |||
| 60181 | #endif | |||
| 60182 | return capi_buildvalue; | |||
| 60183 | } | |||
| 60184 | /******************************* end of dpotrf *******************************/ | |||
| 60185 | ||||
| 60186 | /*********************************** cpotrf ***********************************/ | |||
| 60187 | static char doc_f2py_rout__flapack_cpotrf[] = "\ | |||
| 60188 | c,info = cpotrf(a,[lower,clean,overwrite_a])\n\nWrapper for ``cpotrf``.\ | |||
| 60189 | \n\nParameters\n----------\n" | |||
| 60190 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 60191 | "\nOther Parameters\n----------------\n" | |||
| 60192 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 60193 | "lower : input int, optional\n Default: 0\n" | |||
| 60194 | "clean : input int, optional\n Default: 1\n" | |||
| 60195 | "\nReturns\n-------\n" | |||
| 60196 | "c : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 60197 | "info : int"; | |||
| 60198 | /* extern void F_FUNC(cpotrf,CPOTRF)(char*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 60199 | static PyObject *f2py_rout__flapack_cpotrf(const PyObject *capi_self, | |||
| 60200 | PyObject *capi_args, | |||
| 60201 | PyObject *capi_keywds, | |||
| 60202 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 60203 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 60204 | volatile int f2py_success = 1; | |||
| 60205 | /*decl*/ | |||
| 60206 | ||||
| 60207 | int n = 0; | |||
| 60208 | complex_float *a = NULL((void*)0); | |||
| 60209 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 60210 | const int a_Rank = 2; | |||
| 60211 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 60212 | int capi_a_intent = 0; | |||
| 60213 | int capi_overwrite_a = 0; | |||
| 60214 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 60215 | int lda = 0; | |||
| 60216 | int info = 0; | |||
| 60217 | int lower = 0; | |||
| 60218 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 60219 | int clean = 0; | |||
| 60220 | PyObject *clean_capi = Py_None(&_Py_NoneStruct); | |||
| 60221 | static char *capi_kwlist[] = {"a","lower","clean","overwrite_a",NULL((void*)0)}; | |||
| 60222 | ||||
| 60223 | /*routdebugenter*/ | |||
| 60224 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60225 | f2py_start_clock(); | |||
| 60226 | #endif | |||
| 60227 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 60228 | "O|OOi:_flapack.cpotrf",\ | |||
| 60229 | capi_kwlist,&a_capi,&lower_capi,&clean_capi,&capi_overwrite_a)) | |||
| 60230 | return NULL((void*)0); | |||
| 60231 | /*frompyobj*/ | |||
| 60232 | /* Processing variable lower */ | |||
| 60233 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 60234 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpotrf() 1st keyword (lower) can't be converted to int"); | |||
| 60235 | if (f2py_success) { | |||
| 60236 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpotrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpotrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 60237 | /* Processing variable clean */ | |||
| 60238 | if (clean_capi == Py_None(&_Py_NoneStruct)) clean = 1; else | |||
| 60239 | f2py_success = int_from_pyobj(&clean,clean_capi,"_flapack.cpotrf() 2nd keyword (clean) can't be converted to int"); | |||
| 60240 | if (f2py_success) { | |||
| 60241 | CHECKSCALAR(clean==0||clean==1,"clean==0||clean==1","2nd keyword clean","cpotrf:clean=%d",clean)if (!(clean==0||clean==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpotrf:clean=%d", "(""clean==0||clean==1"") failed for " "2nd keyword clean", clean); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 60242 | /* Processing variable a */ | |||
| 60243 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 60244 | ; | |||
| 60245 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 60246 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 60247 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 60248 | if (!PyErr_Occurred()) | |||
| 60249 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cpotrf to C/Fortran array" ); | |||
| 60250 | } else { | |||
| 60251 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 60252 | ||||
| 60253 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 60254 | /* Processing variable info */ | |||
| 60255 | /* Processing variable n */ | |||
| 60256 | n = shape(a,0)a_Dims[0]; | |||
| 60257 | /* Processing variable lda */ | |||
| 60258 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 60259 | /*end of frompyobj*/ | |||
| 60260 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60261 | f2py_start_call_clock(); | |||
| 60262 | #endif | |||
| 60263 | /*callfortranroutine*/ | |||
| 60264 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,&info); if(clean){F_INTint i,j,k;if(lower){for(i=0;i<n;++i) for(j=i+1;j<n;++j) {k=j*n+i;(a+k)->r=(a+k)->i=0.0;}} else {for(i=0;i<n;++i) for(j=i+1;j<n;++j) {k=i*n+j;(a+k)->r=(a+k)->i=0.0;}}} ; | |||
| 60265 | /*(*f2py_func)(&n,a,&lda,&info,&lower,&clean);*/ | |||
| 60266 | if (PyErr_Occurred()) | |||
| 60267 | f2py_success = 0; | |||
| 60268 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60269 | f2py_stop_call_clock(); | |||
| 60270 | #endif | |||
| 60271 | /*end of callfortranroutine*/ | |||
| 60272 | if (f2py_success) { | |||
| 60273 | /*pyobjfrom*/ | |||
| 60274 | /*end of pyobjfrom*/ | |||
| 60275 | CFUNCSMESS("Building return value.\n"); | |||
| 60276 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 60277 | /*closepyobjfrom*/ | |||
| 60278 | /*end of closepyobjfrom*/ | |||
| 60279 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 60280 | /*cleanupfrompyobj*/ | |||
| 60281 | /* End of cleaning variable lda */ | |||
| 60282 | /* End of cleaning variable n */ | |||
| 60283 | /* End of cleaning variable info */ | |||
| 60284 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 60285 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 60286 | /* End of cleaning variable a */ | |||
| 60287 | } /*CHECKSCALAR(clean==0||clean==1)*/ | |||
| 60288 | } /*if (f2py_success) of clean*/ | |||
| 60289 | /* End of cleaning variable clean */ | |||
| 60290 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 60291 | } /*if (f2py_success) of lower*/ | |||
| 60292 | /* End of cleaning variable lower */ | |||
| 60293 | /*end of cleanupfrompyobj*/ | |||
| 60294 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 60295 | /*routdebugfailure*/ | |||
| 60296 | } else { | |||
| 60297 | /*routdebugleave*/ | |||
| 60298 | } | |||
| 60299 | CFUNCSMESS("Freeing memory.\n"); | |||
| 60300 | /*freemem*/ | |||
| 60301 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60302 | f2py_stop_clock(); | |||
| 60303 | #endif | |||
| 60304 | return capi_buildvalue; | |||
| 60305 | } | |||
| 60306 | /******************************* end of cpotrf *******************************/ | |||
| 60307 | ||||
| 60308 | /*********************************** zpotrf ***********************************/ | |||
| 60309 | static char doc_f2py_rout__flapack_zpotrf[] = "\ | |||
| 60310 | c,info = zpotrf(a,[lower,clean,overwrite_a])\n\nWrapper for ``zpotrf``.\ | |||
| 60311 | \n\nParameters\n----------\n" | |||
| 60312 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 60313 | "\nOther Parameters\n----------------\n" | |||
| 60314 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 60315 | "lower : input int, optional\n Default: 0\n" | |||
| 60316 | "clean : input int, optional\n Default: 1\n" | |||
| 60317 | "\nReturns\n-------\n" | |||
| 60318 | "c : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 60319 | "info : int"; | |||
| 60320 | /* extern void F_FUNC(zpotrf,ZPOTRF)(char*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 60321 | static PyObject *f2py_rout__flapack_zpotrf(const PyObject *capi_self, | |||
| 60322 | PyObject *capi_args, | |||
| 60323 | PyObject *capi_keywds, | |||
| 60324 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 60325 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 60326 | volatile int f2py_success = 1; | |||
| 60327 | /*decl*/ | |||
| 60328 | ||||
| 60329 | int n = 0; | |||
| 60330 | complex_double *a = NULL((void*)0); | |||
| 60331 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 60332 | const int a_Rank = 2; | |||
| 60333 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 60334 | int capi_a_intent = 0; | |||
| 60335 | int capi_overwrite_a = 0; | |||
| 60336 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 60337 | int lda = 0; | |||
| 60338 | int info = 0; | |||
| 60339 | int lower = 0; | |||
| 60340 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 60341 | int clean = 0; | |||
| 60342 | PyObject *clean_capi = Py_None(&_Py_NoneStruct); | |||
| 60343 | static char *capi_kwlist[] = {"a","lower","clean","overwrite_a",NULL((void*)0)}; | |||
| 60344 | ||||
| 60345 | /*routdebugenter*/ | |||
| 60346 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60347 | f2py_start_clock(); | |||
| 60348 | #endif | |||
| 60349 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 60350 | "O|OOi:_flapack.zpotrf",\ | |||
| 60351 | capi_kwlist,&a_capi,&lower_capi,&clean_capi,&capi_overwrite_a)) | |||
| 60352 | return NULL((void*)0); | |||
| 60353 | /*frompyobj*/ | |||
| 60354 | /* Processing variable lower */ | |||
| 60355 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 60356 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpotrf() 1st keyword (lower) can't be converted to int"); | |||
| 60357 | if (f2py_success) { | |||
| 60358 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpotrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpotrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 60359 | /* Processing variable clean */ | |||
| 60360 | if (clean_capi == Py_None(&_Py_NoneStruct)) clean = 1; else | |||
| 60361 | f2py_success = int_from_pyobj(&clean,clean_capi,"_flapack.zpotrf() 2nd keyword (clean) can't be converted to int"); | |||
| 60362 | if (f2py_success) { | |||
| 60363 | CHECKSCALAR(clean==0||clean==1,"clean==0||clean==1","2nd keyword clean","zpotrf:clean=%d",clean)if (!(clean==0||clean==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpotrf:clean=%d", "(""clean==0||clean==1"") failed for " "2nd keyword clean", clean); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 60364 | /* Processing variable a */ | |||
| 60365 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 60366 | ; | |||
| 60367 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 60368 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 60369 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 60370 | if (!PyErr_Occurred()) | |||
| 60371 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zpotrf to C/Fortran array" ); | |||
| 60372 | } else { | |||
| 60373 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 60374 | ||||
| 60375 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 60376 | /* Processing variable info */ | |||
| 60377 | /* Processing variable n */ | |||
| 60378 | n = shape(a,0)a_Dims[0]; | |||
| 60379 | /* Processing variable lda */ | |||
| 60380 | lda = MAX(1,n)((1 > n) ? (1) : (n)); | |||
| 60381 | /*end of frompyobj*/ | |||
| 60382 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60383 | f2py_start_call_clock(); | |||
| 60384 | #endif | |||
| 60385 | /*callfortranroutine*/ | |||
| 60386 | (*f2py_func)((lower?"L":"U"),&n,a,&lda,&info); if(clean){F_INTint i,j,k;if(lower){for(i=0;i<n;++i) for(j=i+1;j<n;++j) {k=j*n+i;(a+k)->r=(a+k)->i=0.0;}} else {for(i=0;i<n;++i) for(j=i+1;j<n;++j) {k=i*n+j;(a+k)->r=(a+k)->i=0.0;}}} ; | |||
| 60387 | /*(*f2py_func)(&n,a,&lda,&info,&lower,&clean);*/ | |||
| 60388 | if (PyErr_Occurred()) | |||
| 60389 | f2py_success = 0; | |||
| 60390 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60391 | f2py_stop_call_clock(); | |||
| 60392 | #endif | |||
| 60393 | /*end of callfortranroutine*/ | |||
| 60394 | if (f2py_success) { | |||
| 60395 | /*pyobjfrom*/ | |||
| 60396 | /*end of pyobjfrom*/ | |||
| 60397 | CFUNCSMESS("Building return value.\n"); | |||
| 60398 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 60399 | /*closepyobjfrom*/ | |||
| 60400 | /*end of closepyobjfrom*/ | |||
| 60401 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 60402 | /*cleanupfrompyobj*/ | |||
| 60403 | /* End of cleaning variable lda */ | |||
| 60404 | /* End of cleaning variable n */ | |||
| 60405 | /* End of cleaning variable info */ | |||
| 60406 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 60407 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 60408 | /* End of cleaning variable a */ | |||
| 60409 | } /*CHECKSCALAR(clean==0||clean==1)*/ | |||
| 60410 | } /*if (f2py_success) of clean*/ | |||
| 60411 | /* End of cleaning variable clean */ | |||
| 60412 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 60413 | } /*if (f2py_success) of lower*/ | |||
| 60414 | /* End of cleaning variable lower */ | |||
| 60415 | /*end of cleanupfrompyobj*/ | |||
| 60416 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 60417 | /*routdebugfailure*/ | |||
| 60418 | } else { | |||
| 60419 | /*routdebugleave*/ | |||
| 60420 | } | |||
| 60421 | CFUNCSMESS("Freeing memory.\n"); | |||
| 60422 | /*freemem*/ | |||
| 60423 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60424 | f2py_stop_clock(); | |||
| 60425 | #endif | |||
| 60426 | return capi_buildvalue; | |||
| 60427 | } | |||
| 60428 | /******************************* end of zpotrf *******************************/ | |||
| 60429 | ||||
| 60430 | /*********************************** spotrs ***********************************/ | |||
| 60431 | static char doc_f2py_rout__flapack_spotrs[] = "\ | |||
| 60432 | x,info = spotrs(c,b,[lower,overwrite_b])\n\nWrapper for ``spotrs``.\ | |||
| 60433 | \n\nParameters\n----------\n" | |||
| 60434 | "c : input rank-2 array('f') with bounds (n,n)\n" | |||
| 60435 | "b : input rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 60436 | "\nOther Parameters\n----------------\n" | |||
| 60437 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 60438 | "lower : input int, optional\n Default: 0\n" | |||
| 60439 | "\nReturns\n-------\n" | |||
| 60440 | "x : rank-2 array('f') with bounds (n,nrhs) and b storage\n" | |||
| 60441 | "info : int"; | |||
| 60442 | /* extern void F_FUNC(spotrs,SPOTRS)(char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 60443 | static PyObject *f2py_rout__flapack_spotrs(const PyObject *capi_self, | |||
| 60444 | PyObject *capi_args, | |||
| 60445 | PyObject *capi_keywds, | |||
| 60446 | void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 60447 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 60448 | volatile int f2py_success = 1; | |||
| 60449 | /*decl*/ | |||
| 60450 | ||||
| 60451 | int n = 0; | |||
| 60452 | int nrhs = 0; | |||
| 60453 | float *c = NULL((void*)0); | |||
| 60454 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 60455 | const int c_Rank = 2; | |||
| 60456 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 60457 | int capi_c_intent = 0; | |||
| 60458 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 60459 | float *b = NULL((void*)0); | |||
| 60460 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 60461 | const int b_Rank = 2; | |||
| 60462 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 60463 | int capi_b_intent = 0; | |||
| 60464 | int capi_overwrite_b = 0; | |||
| 60465 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 60466 | int info = 0; | |||
| 60467 | int lower = 0; | |||
| 60468 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 60469 | static char *capi_kwlist[] = {"c","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 60470 | ||||
| 60471 | /*routdebugenter*/ | |||
| 60472 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60473 | f2py_start_clock(); | |||
| 60474 | #endif | |||
| 60475 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 60476 | "OO|Oi:_flapack.spotrs",\ | |||
| 60477 | capi_kwlist,&c_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 60478 | return NULL((void*)0); | |||
| 60479 | /*frompyobj*/ | |||
| 60480 | /* Processing variable lower */ | |||
| 60481 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 60482 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spotrs() 1st keyword (lower) can't be converted to int"); | |||
| 60483 | if (f2py_success) { | |||
| 60484 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spotrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spotrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 60485 | /* Processing variable c */ | |||
| 60486 | ; | |||
| 60487 | capi_c_intent |= F2PY_INTENT_IN1; | |||
| 60488 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 60489 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 60490 | if (!PyErr_Occurred()) | |||
| 60491 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.spotrs to C/Fortran array" ); | |||
| 60492 | } else { | |||
| 60493 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 60494 | ||||
| 60495 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 60496 | /* Processing variable info */ | |||
| 60497 | /* Processing variable n */ | |||
| 60498 | n = shape(c,0)c_Dims[0]; | |||
| 60499 | /* Processing variable b */ | |||
| 60500 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 60501 | b_Dims[0]=n; | |||
| 60502 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 60503 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 60504 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 60505 | if (!PyErr_Occurred()) | |||
| 60506 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.spotrs to C/Fortran array" ); | |||
| 60507 | } else { | |||
| 60508 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 60509 | ||||
| 60510 | CHECKARRAY(shape(c,0)==shape(b,0),"shape(c,0)==shape(b,0)","2nd argument b")if (!(c_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 60511 | /* Processing variable nrhs */ | |||
| 60512 | nrhs = shape(b,1)b_Dims[1]; | |||
| 60513 | /*end of frompyobj*/ | |||
| 60514 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60515 | f2py_start_call_clock(); | |||
| 60516 | #endif | |||
| 60517 | /*callfortranroutine*/ | |||
| 60518 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,c,&n,b,&n,&info) ; | |||
| 60519 | /*(*f2py_func)(&n,&nrhs,c,b,&info,&lower);*/ | |||
| 60520 | if (PyErr_Occurred()) | |||
| 60521 | f2py_success = 0; | |||
| 60522 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60523 | f2py_stop_call_clock(); | |||
| 60524 | #endif | |||
| 60525 | /*end of callfortranroutine*/ | |||
| 60526 | if (f2py_success) { | |||
| 60527 | /*pyobjfrom*/ | |||
| 60528 | /*end of pyobjfrom*/ | |||
| 60529 | CFUNCSMESS("Building return value.\n"); | |||
| 60530 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 60531 | /*closepyobjfrom*/ | |||
| 60532 | /*end of closepyobjfrom*/ | |||
| 60533 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 60534 | /*cleanupfrompyobj*/ | |||
| 60535 | /* End of cleaning variable nrhs */ | |||
| 60536 | } /*CHECKARRAY(shape(c,0)==shape(b,0))*/ | |||
| 60537 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 60538 | /* End of cleaning variable b */ | |||
| 60539 | /* End of cleaning variable n */ | |||
| 60540 | /* End of cleaning variable info */ | |||
| 60541 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 60542 | if((PyObject *)capi_c_tmp!=c_capi) { | |||
| 60543 | Py_XDECREF(capi_c_tmp)_Py_XDECREF(((PyObject*)(capi_c_tmp))); } | |||
| 60544 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 60545 | /* End of cleaning variable c */ | |||
| 60546 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 60547 | } /*if (f2py_success) of lower*/ | |||
| 60548 | /* End of cleaning variable lower */ | |||
| 60549 | /*end of cleanupfrompyobj*/ | |||
| 60550 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 60551 | /*routdebugfailure*/ | |||
| 60552 | } else { | |||
| 60553 | /*routdebugleave*/ | |||
| 60554 | } | |||
| 60555 | CFUNCSMESS("Freeing memory.\n"); | |||
| 60556 | /*freemem*/ | |||
| 60557 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60558 | f2py_stop_clock(); | |||
| 60559 | #endif | |||
| 60560 | return capi_buildvalue; | |||
| 60561 | } | |||
| 60562 | /******************************* end of spotrs *******************************/ | |||
| 60563 | ||||
| 60564 | /*********************************** dpotrs ***********************************/ | |||
| 60565 | static char doc_f2py_rout__flapack_dpotrs[] = "\ | |||
| 60566 | x,info = dpotrs(c,b,[lower,overwrite_b])\n\nWrapper for ``dpotrs``.\ | |||
| 60567 | \n\nParameters\n----------\n" | |||
| 60568 | "c : input rank-2 array('d') with bounds (n,n)\n" | |||
| 60569 | "b : input rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 60570 | "\nOther Parameters\n----------------\n" | |||
| 60571 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 60572 | "lower : input int, optional\n Default: 0\n" | |||
| 60573 | "\nReturns\n-------\n" | |||
| 60574 | "x : rank-2 array('d') with bounds (n,nrhs) and b storage\n" | |||
| 60575 | "info : int"; | |||
| 60576 | /* extern void F_FUNC(dpotrs,DPOTRS)(char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 60577 | static PyObject *f2py_rout__flapack_dpotrs(const PyObject *capi_self, | |||
| 60578 | PyObject *capi_args, | |||
| 60579 | PyObject *capi_keywds, | |||
| 60580 | void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 60581 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 60582 | volatile int f2py_success = 1; | |||
| 60583 | /*decl*/ | |||
| 60584 | ||||
| 60585 | int n = 0; | |||
| 60586 | int nrhs = 0; | |||
| 60587 | double *c = NULL((void*)0); | |||
| 60588 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 60589 | const int c_Rank = 2; | |||
| 60590 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 60591 | int capi_c_intent = 0; | |||
| 60592 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 60593 | double *b = NULL((void*)0); | |||
| 60594 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 60595 | const int b_Rank = 2; | |||
| 60596 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 60597 | int capi_b_intent = 0; | |||
| 60598 | int capi_overwrite_b = 0; | |||
| 60599 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 60600 | int info = 0; | |||
| 60601 | int lower = 0; | |||
| 60602 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 60603 | static char *capi_kwlist[] = {"c","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 60604 | ||||
| 60605 | /*routdebugenter*/ | |||
| 60606 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60607 | f2py_start_clock(); | |||
| 60608 | #endif | |||
| 60609 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 60610 | "OO|Oi:_flapack.dpotrs",\ | |||
| 60611 | capi_kwlist,&c_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 60612 | return NULL((void*)0); | |||
| 60613 | /*frompyobj*/ | |||
| 60614 | /* Processing variable lower */ | |||
| 60615 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 60616 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpotrs() 1st keyword (lower) can't be converted to int"); | |||
| 60617 | if (f2py_success) { | |||
| 60618 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpotrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpotrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 60619 | /* Processing variable c */ | |||
| 60620 | ; | |||
| 60621 | capi_c_intent |= F2PY_INTENT_IN1; | |||
| 60622 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 60623 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 60624 | if (!PyErr_Occurred()) | |||
| 60625 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.dpotrs to C/Fortran array" ); | |||
| 60626 | } else { | |||
| 60627 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 60628 | ||||
| 60629 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 60630 | /* Processing variable info */ | |||
| 60631 | /* Processing variable n */ | |||
| 60632 | n = shape(c,0)c_Dims[0]; | |||
| 60633 | /* Processing variable b */ | |||
| 60634 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 60635 | b_Dims[0]=n; | |||
| 60636 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 60637 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 60638 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 60639 | if (!PyErr_Occurred()) | |||
| 60640 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dpotrs to C/Fortran array" ); | |||
| 60641 | } else { | |||
| 60642 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 60643 | ||||
| 60644 | CHECKARRAY(shape(c,0)==shape(b,0),"shape(c,0)==shape(b,0)","2nd argument b")if (!(c_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 60645 | /* Processing variable nrhs */ | |||
| 60646 | nrhs = shape(b,1)b_Dims[1]; | |||
| 60647 | /*end of frompyobj*/ | |||
| 60648 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60649 | f2py_start_call_clock(); | |||
| 60650 | #endif | |||
| 60651 | /*callfortranroutine*/ | |||
| 60652 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,c,&n,b,&n,&info) ; | |||
| 60653 | /*(*f2py_func)(&n,&nrhs,c,b,&info,&lower);*/ | |||
| 60654 | if (PyErr_Occurred()) | |||
| 60655 | f2py_success = 0; | |||
| 60656 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60657 | f2py_stop_call_clock(); | |||
| 60658 | #endif | |||
| 60659 | /*end of callfortranroutine*/ | |||
| 60660 | if (f2py_success) { | |||
| 60661 | /*pyobjfrom*/ | |||
| 60662 | /*end of pyobjfrom*/ | |||
| 60663 | CFUNCSMESS("Building return value.\n"); | |||
| 60664 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 60665 | /*closepyobjfrom*/ | |||
| 60666 | /*end of closepyobjfrom*/ | |||
| 60667 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 60668 | /*cleanupfrompyobj*/ | |||
| 60669 | /* End of cleaning variable nrhs */ | |||
| 60670 | } /*CHECKARRAY(shape(c,0)==shape(b,0))*/ | |||
| 60671 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 60672 | /* End of cleaning variable b */ | |||
| 60673 | /* End of cleaning variable n */ | |||
| 60674 | /* End of cleaning variable info */ | |||
| 60675 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 60676 | if((PyObject *)capi_c_tmp!=c_capi) { | |||
| 60677 | Py_XDECREF(capi_c_tmp)_Py_XDECREF(((PyObject*)(capi_c_tmp))); } | |||
| 60678 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 60679 | /* End of cleaning variable c */ | |||
| 60680 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 60681 | } /*if (f2py_success) of lower*/ | |||
| 60682 | /* End of cleaning variable lower */ | |||
| 60683 | /*end of cleanupfrompyobj*/ | |||
| 60684 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 60685 | /*routdebugfailure*/ | |||
| 60686 | } else { | |||
| 60687 | /*routdebugleave*/ | |||
| 60688 | } | |||
| 60689 | CFUNCSMESS("Freeing memory.\n"); | |||
| 60690 | /*freemem*/ | |||
| 60691 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60692 | f2py_stop_clock(); | |||
| 60693 | #endif | |||
| 60694 | return capi_buildvalue; | |||
| 60695 | } | |||
| 60696 | /******************************* end of dpotrs *******************************/ | |||
| 60697 | ||||
| 60698 | /*********************************** cpotrs ***********************************/ | |||
| 60699 | static char doc_f2py_rout__flapack_cpotrs[] = "\ | |||
| 60700 | x,info = cpotrs(c,b,[lower,overwrite_b])\n\nWrapper for ``cpotrs``.\ | |||
| 60701 | \n\nParameters\n----------\n" | |||
| 60702 | "c : input rank-2 array('F') with bounds (n,n)\n" | |||
| 60703 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 60704 | "\nOther Parameters\n----------------\n" | |||
| 60705 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 60706 | "lower : input int, optional\n Default: 0\n" | |||
| 60707 | "\nReturns\n-------\n" | |||
| 60708 | "x : rank-2 array('F') with bounds (n,nrhs) and b storage\n" | |||
| 60709 | "info : int"; | |||
| 60710 | /* extern void F_FUNC(cpotrs,CPOTRS)(char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 60711 | static PyObject *f2py_rout__flapack_cpotrs(const PyObject *capi_self, | |||
| 60712 | PyObject *capi_args, | |||
| 60713 | PyObject *capi_keywds, | |||
| 60714 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 60715 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 60716 | volatile int f2py_success = 1; | |||
| 60717 | /*decl*/ | |||
| 60718 | ||||
| 60719 | int n = 0; | |||
| 60720 | int nrhs = 0; | |||
| 60721 | complex_float *c = NULL((void*)0); | |||
| 60722 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 60723 | const int c_Rank = 2; | |||
| 60724 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 60725 | int capi_c_intent = 0; | |||
| 60726 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 60727 | complex_float *b = NULL((void*)0); | |||
| 60728 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 60729 | const int b_Rank = 2; | |||
| 60730 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 60731 | int capi_b_intent = 0; | |||
| 60732 | int capi_overwrite_b = 0; | |||
| 60733 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 60734 | int info = 0; | |||
| 60735 | int lower = 0; | |||
| 60736 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 60737 | static char *capi_kwlist[] = {"c","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 60738 | ||||
| 60739 | /*routdebugenter*/ | |||
| 60740 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60741 | f2py_start_clock(); | |||
| 60742 | #endif | |||
| 60743 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 60744 | "OO|Oi:_flapack.cpotrs",\ | |||
| 60745 | capi_kwlist,&c_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 60746 | return NULL((void*)0); | |||
| 60747 | /*frompyobj*/ | |||
| 60748 | /* Processing variable lower */ | |||
| 60749 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 60750 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpotrs() 1st keyword (lower) can't be converted to int"); | |||
| 60751 | if (f2py_success) { | |||
| 60752 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpotrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpotrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 60753 | /* Processing variable c */ | |||
| 60754 | ; | |||
| 60755 | capi_c_intent |= F2PY_INTENT_IN1; | |||
| 60756 | capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 60757 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 60758 | if (!PyErr_Occurred()) | |||
| 60759 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.cpotrs to C/Fortran array" ); | |||
| 60760 | } else { | |||
| 60761 | c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 60762 | ||||
| 60763 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 60764 | /* Processing variable info */ | |||
| 60765 | /* Processing variable n */ | |||
| 60766 | n = shape(c,0)c_Dims[0]; | |||
| 60767 | /* Processing variable b */ | |||
| 60768 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 60769 | b_Dims[0]=n; | |||
| 60770 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 60771 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 60772 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 60773 | if (!PyErr_Occurred()) | |||
| 60774 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cpotrs to C/Fortran array" ); | |||
| 60775 | } else { | |||
| 60776 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 60777 | ||||
| 60778 | CHECKARRAY(shape(c,0)==shape(b,0),"shape(c,0)==shape(b,0)","2nd argument b")if (!(c_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 60779 | /* Processing variable nrhs */ | |||
| 60780 | nrhs = shape(b,1)b_Dims[1]; | |||
| 60781 | /*end of frompyobj*/ | |||
| 60782 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60783 | f2py_start_call_clock(); | |||
| 60784 | #endif | |||
| 60785 | /*callfortranroutine*/ | |||
| 60786 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,c,&n,b,&n,&info) ; | |||
| 60787 | /*(*f2py_func)(&n,&nrhs,c,b,&info,&lower);*/ | |||
| 60788 | if (PyErr_Occurred()) | |||
| 60789 | f2py_success = 0; | |||
| 60790 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60791 | f2py_stop_call_clock(); | |||
| 60792 | #endif | |||
| 60793 | /*end of callfortranroutine*/ | |||
| 60794 | if (f2py_success) { | |||
| 60795 | /*pyobjfrom*/ | |||
| 60796 | /*end of pyobjfrom*/ | |||
| 60797 | CFUNCSMESS("Building return value.\n"); | |||
| 60798 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 60799 | /*closepyobjfrom*/ | |||
| 60800 | /*end of closepyobjfrom*/ | |||
| 60801 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 60802 | /*cleanupfrompyobj*/ | |||
| 60803 | /* End of cleaning variable nrhs */ | |||
| 60804 | } /*CHECKARRAY(shape(c,0)==shape(b,0))*/ | |||
| 60805 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 60806 | /* End of cleaning variable b */ | |||
| 60807 | /* End of cleaning variable n */ | |||
| 60808 | /* End of cleaning variable info */ | |||
| 60809 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 60810 | if((PyObject *)capi_c_tmp!=c_capi) { | |||
| 60811 | Py_XDECREF(capi_c_tmp)_Py_XDECREF(((PyObject*)(capi_c_tmp))); } | |||
| 60812 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 60813 | /* End of cleaning variable c */ | |||
| 60814 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 60815 | } /*if (f2py_success) of lower*/ | |||
| 60816 | /* End of cleaning variable lower */ | |||
| 60817 | /*end of cleanupfrompyobj*/ | |||
| 60818 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 60819 | /*routdebugfailure*/ | |||
| 60820 | } else { | |||
| 60821 | /*routdebugleave*/ | |||
| 60822 | } | |||
| 60823 | CFUNCSMESS("Freeing memory.\n"); | |||
| 60824 | /*freemem*/ | |||
| 60825 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60826 | f2py_stop_clock(); | |||
| 60827 | #endif | |||
| 60828 | return capi_buildvalue; | |||
| 60829 | } | |||
| 60830 | /******************************* end of cpotrs *******************************/ | |||
| 60831 | ||||
| 60832 | /*********************************** zpotrs ***********************************/ | |||
| 60833 | static char doc_f2py_rout__flapack_zpotrs[] = "\ | |||
| 60834 | x,info = zpotrs(c,b,[lower,overwrite_b])\n\nWrapper for ``zpotrs``.\ | |||
| 60835 | \n\nParameters\n----------\n" | |||
| 60836 | "c : input rank-2 array('D') with bounds (n,n)\n" | |||
| 60837 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 60838 | "\nOther Parameters\n----------------\n" | |||
| 60839 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 60840 | "lower : input int, optional\n Default: 0\n" | |||
| 60841 | "\nReturns\n-------\n" | |||
| 60842 | "x : rank-2 array('D') with bounds (n,nrhs) and b storage\n" | |||
| 60843 | "info : int"; | |||
| 60844 | /* extern void F_FUNC(zpotrs,ZPOTRS)(char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 60845 | static PyObject *f2py_rout__flapack_zpotrs(const PyObject *capi_self, | |||
| 60846 | PyObject *capi_args, | |||
| 60847 | PyObject *capi_keywds, | |||
| 60848 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 60849 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 60850 | volatile int f2py_success = 1; | |||
| 60851 | /*decl*/ | |||
| 60852 | ||||
| 60853 | int n = 0; | |||
| 60854 | int nrhs = 0; | |||
| 60855 | complex_double *c = NULL((void*)0); | |||
| 60856 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 60857 | const int c_Rank = 2; | |||
| 60858 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 60859 | int capi_c_intent = 0; | |||
| 60860 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 60861 | complex_double *b = NULL((void*)0); | |||
| 60862 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 60863 | const int b_Rank = 2; | |||
| 60864 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 60865 | int capi_b_intent = 0; | |||
| 60866 | int capi_overwrite_b = 0; | |||
| 60867 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 60868 | int info = 0; | |||
| 60869 | int lower = 0; | |||
| 60870 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 60871 | static char *capi_kwlist[] = {"c","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 60872 | ||||
| 60873 | /*routdebugenter*/ | |||
| 60874 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60875 | f2py_start_clock(); | |||
| 60876 | #endif | |||
| 60877 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 60878 | "OO|Oi:_flapack.zpotrs",\ | |||
| 60879 | capi_kwlist,&c_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 60880 | return NULL((void*)0); | |||
| 60881 | /*frompyobj*/ | |||
| 60882 | /* Processing variable lower */ | |||
| 60883 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 60884 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpotrs() 1st keyword (lower) can't be converted to int"); | |||
| 60885 | if (f2py_success) { | |||
| 60886 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpotrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpotrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 60887 | /* Processing variable c */ | |||
| 60888 | ; | |||
| 60889 | capi_c_intent |= F2PY_INTENT_IN1; | |||
| 60890 | capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 60891 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 60892 | if (!PyErr_Occurred()) | |||
| 60893 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.zpotrs to C/Fortran array" ); | |||
| 60894 | } else { | |||
| 60895 | c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 60896 | ||||
| 60897 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 60898 | /* Processing variable info */ | |||
| 60899 | /* Processing variable n */ | |||
| 60900 | n = shape(c,0)c_Dims[0]; | |||
| 60901 | /* Processing variable b */ | |||
| 60902 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 60903 | b_Dims[0]=n; | |||
| 60904 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 60905 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 60906 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 60907 | if (!PyErr_Occurred()) | |||
| 60908 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zpotrs to C/Fortran array" ); | |||
| 60909 | } else { | |||
| 60910 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 60911 | ||||
| 60912 | CHECKARRAY(shape(c,0)==shape(b,0),"shape(c,0)==shape(b,0)","2nd argument b")if (!(c_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(b,0)"") failed for ""2nd argument b"); } else { | |||
| 60913 | /* Processing variable nrhs */ | |||
| 60914 | nrhs = shape(b,1)b_Dims[1]; | |||
| 60915 | /*end of frompyobj*/ | |||
| 60916 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60917 | f2py_start_call_clock(); | |||
| 60918 | #endif | |||
| 60919 | /*callfortranroutine*/ | |||
| 60920 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,c,&n,b,&n,&info) ; | |||
| 60921 | /*(*f2py_func)(&n,&nrhs,c,b,&info,&lower);*/ | |||
| 60922 | if (PyErr_Occurred()) | |||
| 60923 | f2py_success = 0; | |||
| 60924 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60925 | f2py_stop_call_clock(); | |||
| 60926 | #endif | |||
| 60927 | /*end of callfortranroutine*/ | |||
| 60928 | if (f2py_success) { | |||
| 60929 | /*pyobjfrom*/ | |||
| 60930 | /*end of pyobjfrom*/ | |||
| 60931 | CFUNCSMESS("Building return value.\n"); | |||
| 60932 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 60933 | /*closepyobjfrom*/ | |||
| 60934 | /*end of closepyobjfrom*/ | |||
| 60935 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 60936 | /*cleanupfrompyobj*/ | |||
| 60937 | /* End of cleaning variable nrhs */ | |||
| 60938 | } /*CHECKARRAY(shape(c,0)==shape(b,0))*/ | |||
| 60939 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 60940 | /* End of cleaning variable b */ | |||
| 60941 | /* End of cleaning variable n */ | |||
| 60942 | /* End of cleaning variable info */ | |||
| 60943 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 60944 | if((PyObject *)capi_c_tmp!=c_capi) { | |||
| 60945 | Py_XDECREF(capi_c_tmp)_Py_XDECREF(((PyObject*)(capi_c_tmp))); } | |||
| 60946 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 60947 | /* End of cleaning variable c */ | |||
| 60948 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 60949 | } /*if (f2py_success) of lower*/ | |||
| 60950 | /* End of cleaning variable lower */ | |||
| 60951 | /*end of cleanupfrompyobj*/ | |||
| 60952 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 60953 | /*routdebugfailure*/ | |||
| 60954 | } else { | |||
| 60955 | /*routdebugleave*/ | |||
| 60956 | } | |||
| 60957 | CFUNCSMESS("Freeing memory.\n"); | |||
| 60958 | /*freemem*/ | |||
| 60959 | #ifdef F2PY_REPORT_ATEXIT | |||
| 60960 | f2py_stop_clock(); | |||
| 60961 | #endif | |||
| 60962 | return capi_buildvalue; | |||
| 60963 | } | |||
| 60964 | /******************************* end of zpotrs *******************************/ | |||
| 60965 | ||||
| 60966 | /*********************************** spotri ***********************************/ | |||
| 60967 | static char doc_f2py_rout__flapack_spotri[] = "\ | |||
| 60968 | inv_a,info = spotri(c,[lower,overwrite_c])\n\nWrapper for ``spotri``.\ | |||
| 60969 | \n\nParameters\n----------\n" | |||
| 60970 | "c : input rank-2 array('f') with bounds (n,n)\n" | |||
| 60971 | "\nOther Parameters\n----------------\n" | |||
| 60972 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 60973 | "lower : input int, optional\n Default: 0\n" | |||
| 60974 | "\nReturns\n-------\n" | |||
| 60975 | "inv_a : rank-2 array('f') with bounds (n,n) and c storage\n" | |||
| 60976 | "info : int"; | |||
| 60977 | /* extern void F_FUNC(spotri,SPOTRI)(char*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 60978 | static PyObject *f2py_rout__flapack_spotri(const PyObject *capi_self, | |||
| 60979 | PyObject *capi_args, | |||
| 60980 | PyObject *capi_keywds, | |||
| 60981 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 60982 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 60983 | volatile int f2py_success = 1; | |||
| 60984 | /*decl*/ | |||
| 60985 | ||||
| 60986 | int n = 0; | |||
| 60987 | float *c = NULL((void*)0); | |||
| 60988 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 60989 | const int c_Rank = 2; | |||
| 60990 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 60991 | int capi_c_intent = 0; | |||
| 60992 | int capi_overwrite_c = 0; | |||
| 60993 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 60994 | int info = 0; | |||
| 60995 | int lower = 0; | |||
| 60996 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 60997 | static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)}; | |||
| 60998 | ||||
| 60999 | /*routdebugenter*/ | |||
| 61000 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61001 | f2py_start_clock(); | |||
| 61002 | #endif | |||
| 61003 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 61004 | "O|Oi:_flapack.spotri",\ | |||
| 61005 | capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c)) | |||
| 61006 | return NULL((void*)0); | |||
| 61007 | /*frompyobj*/ | |||
| 61008 | /* Processing variable lower */ | |||
| 61009 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 61010 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spotri() 1st keyword (lower) can't be converted to int"); | |||
| 61011 | if (f2py_success) { | |||
| 61012 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spotri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spotri:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 61013 | /* Processing variable c */ | |||
| 61014 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 61015 | ; | |||
| 61016 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61017 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 61018 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 61019 | if (!PyErr_Occurred()) | |||
| 61020 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.spotri to C/Fortran array" ); | |||
| 61021 | } else { | |||
| 61022 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 61023 | ||||
| 61024 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 61025 | /* Processing variable info */ | |||
| 61026 | /* Processing variable n */ | |||
| 61027 | n = shape(c,0)c_Dims[0]; | |||
| 61028 | /*end of frompyobj*/ | |||
| 61029 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61030 | f2py_start_call_clock(); | |||
| 61031 | #endif | |||
| 61032 | /*callfortranroutine*/ | |||
| 61033 | (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ; | |||
| 61034 | /*(*f2py_func)(&n,c,&info,&lower);*/ | |||
| 61035 | if (PyErr_Occurred()) | |||
| 61036 | f2py_success = 0; | |||
| 61037 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61038 | f2py_stop_call_clock(); | |||
| 61039 | #endif | |||
| 61040 | /*end of callfortranroutine*/ | |||
| 61041 | if (f2py_success) { | |||
| 61042 | /*pyobjfrom*/ | |||
| 61043 | /*end of pyobjfrom*/ | |||
| 61044 | CFUNCSMESS("Building return value.\n"); | |||
| 61045 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 61046 | /*closepyobjfrom*/ | |||
| 61047 | /*end of closepyobjfrom*/ | |||
| 61048 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 61049 | /*cleanupfrompyobj*/ | |||
| 61050 | /* End of cleaning variable n */ | |||
| 61051 | /* End of cleaning variable info */ | |||
| 61052 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 61053 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 61054 | /* End of cleaning variable c */ | |||
| 61055 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 61056 | } /*if (f2py_success) of lower*/ | |||
| 61057 | /* End of cleaning variable lower */ | |||
| 61058 | /*end of cleanupfrompyobj*/ | |||
| 61059 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 61060 | /*routdebugfailure*/ | |||
| 61061 | } else { | |||
| 61062 | /*routdebugleave*/ | |||
| 61063 | } | |||
| 61064 | CFUNCSMESS("Freeing memory.\n"); | |||
| 61065 | /*freemem*/ | |||
| 61066 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61067 | f2py_stop_clock(); | |||
| 61068 | #endif | |||
| 61069 | return capi_buildvalue; | |||
| 61070 | } | |||
| 61071 | /******************************* end of spotri *******************************/ | |||
| 61072 | ||||
| 61073 | /*********************************** dpotri ***********************************/ | |||
| 61074 | static char doc_f2py_rout__flapack_dpotri[] = "\ | |||
| 61075 | inv_a,info = dpotri(c,[lower,overwrite_c])\n\nWrapper for ``dpotri``.\ | |||
| 61076 | \n\nParameters\n----------\n" | |||
| 61077 | "c : input rank-2 array('d') with bounds (n,n)\n" | |||
| 61078 | "\nOther Parameters\n----------------\n" | |||
| 61079 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 61080 | "lower : input int, optional\n Default: 0\n" | |||
| 61081 | "\nReturns\n-------\n" | |||
| 61082 | "inv_a : rank-2 array('d') with bounds (n,n) and c storage\n" | |||
| 61083 | "info : int"; | |||
| 61084 | /* extern void F_FUNC(dpotri,DPOTRI)(char*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 61085 | static PyObject *f2py_rout__flapack_dpotri(const PyObject *capi_self, | |||
| 61086 | PyObject *capi_args, | |||
| 61087 | PyObject *capi_keywds, | |||
| 61088 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 61089 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 61090 | volatile int f2py_success = 1; | |||
| 61091 | /*decl*/ | |||
| 61092 | ||||
| 61093 | int n = 0; | |||
| 61094 | double *c = NULL((void*)0); | |||
| 61095 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 61096 | const int c_Rank = 2; | |||
| 61097 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 61098 | int capi_c_intent = 0; | |||
| 61099 | int capi_overwrite_c = 0; | |||
| 61100 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 61101 | int info = 0; | |||
| 61102 | int lower = 0; | |||
| 61103 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 61104 | static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)}; | |||
| 61105 | ||||
| 61106 | /*routdebugenter*/ | |||
| 61107 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61108 | f2py_start_clock(); | |||
| 61109 | #endif | |||
| 61110 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 61111 | "O|Oi:_flapack.dpotri",\ | |||
| 61112 | capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c)) | |||
| 61113 | return NULL((void*)0); | |||
| 61114 | /*frompyobj*/ | |||
| 61115 | /* Processing variable lower */ | |||
| 61116 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 61117 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpotri() 1st keyword (lower) can't be converted to int"); | |||
| 61118 | if (f2py_success) { | |||
| 61119 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpotri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpotri:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 61120 | /* Processing variable c */ | |||
| 61121 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 61122 | ; | |||
| 61123 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61124 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 61125 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 61126 | if (!PyErr_Occurred()) | |||
| 61127 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.dpotri to C/Fortran array" ); | |||
| 61128 | } else { | |||
| 61129 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 61130 | ||||
| 61131 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 61132 | /* Processing variable info */ | |||
| 61133 | /* Processing variable n */ | |||
| 61134 | n = shape(c,0)c_Dims[0]; | |||
| 61135 | /*end of frompyobj*/ | |||
| 61136 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61137 | f2py_start_call_clock(); | |||
| 61138 | #endif | |||
| 61139 | /*callfortranroutine*/ | |||
| 61140 | (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ; | |||
| 61141 | /*(*f2py_func)(&n,c,&info,&lower);*/ | |||
| 61142 | if (PyErr_Occurred()) | |||
| 61143 | f2py_success = 0; | |||
| 61144 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61145 | f2py_stop_call_clock(); | |||
| 61146 | #endif | |||
| 61147 | /*end of callfortranroutine*/ | |||
| 61148 | if (f2py_success) { | |||
| 61149 | /*pyobjfrom*/ | |||
| 61150 | /*end of pyobjfrom*/ | |||
| 61151 | CFUNCSMESS("Building return value.\n"); | |||
| 61152 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 61153 | /*closepyobjfrom*/ | |||
| 61154 | /*end of closepyobjfrom*/ | |||
| 61155 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 61156 | /*cleanupfrompyobj*/ | |||
| 61157 | /* End of cleaning variable n */ | |||
| 61158 | /* End of cleaning variable info */ | |||
| 61159 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 61160 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 61161 | /* End of cleaning variable c */ | |||
| 61162 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 61163 | } /*if (f2py_success) of lower*/ | |||
| 61164 | /* End of cleaning variable lower */ | |||
| 61165 | /*end of cleanupfrompyobj*/ | |||
| 61166 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 61167 | /*routdebugfailure*/ | |||
| 61168 | } else { | |||
| 61169 | /*routdebugleave*/ | |||
| 61170 | } | |||
| 61171 | CFUNCSMESS("Freeing memory.\n"); | |||
| 61172 | /*freemem*/ | |||
| 61173 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61174 | f2py_stop_clock(); | |||
| 61175 | #endif | |||
| 61176 | return capi_buildvalue; | |||
| 61177 | } | |||
| 61178 | /******************************* end of dpotri *******************************/ | |||
| 61179 | ||||
| 61180 | /*********************************** cpotri ***********************************/ | |||
| 61181 | static char doc_f2py_rout__flapack_cpotri[] = "\ | |||
| 61182 | inv_a,info = cpotri(c,[lower,overwrite_c])\n\nWrapper for ``cpotri``.\ | |||
| 61183 | \n\nParameters\n----------\n" | |||
| 61184 | "c : input rank-2 array('F') with bounds (n,n)\n" | |||
| 61185 | "\nOther Parameters\n----------------\n" | |||
| 61186 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 61187 | "lower : input int, optional\n Default: 0\n" | |||
| 61188 | "\nReturns\n-------\n" | |||
| 61189 | "inv_a : rank-2 array('F') with bounds (n,n) and c storage\n" | |||
| 61190 | "info : int"; | |||
| 61191 | /* extern void F_FUNC(cpotri,CPOTRI)(char*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 61192 | static PyObject *f2py_rout__flapack_cpotri(const PyObject *capi_self, | |||
| 61193 | PyObject *capi_args, | |||
| 61194 | PyObject *capi_keywds, | |||
| 61195 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 61196 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 61197 | volatile int f2py_success = 1; | |||
| 61198 | /*decl*/ | |||
| 61199 | ||||
| 61200 | int n = 0; | |||
| 61201 | complex_float *c = NULL((void*)0); | |||
| 61202 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 61203 | const int c_Rank = 2; | |||
| 61204 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 61205 | int capi_c_intent = 0; | |||
| 61206 | int capi_overwrite_c = 0; | |||
| 61207 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 61208 | int info = 0; | |||
| 61209 | int lower = 0; | |||
| 61210 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 61211 | static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)}; | |||
| 61212 | ||||
| 61213 | /*routdebugenter*/ | |||
| 61214 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61215 | f2py_start_clock(); | |||
| 61216 | #endif | |||
| 61217 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 61218 | "O|Oi:_flapack.cpotri",\ | |||
| 61219 | capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c)) | |||
| 61220 | return NULL((void*)0); | |||
| 61221 | /*frompyobj*/ | |||
| 61222 | /* Processing variable lower */ | |||
| 61223 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 61224 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpotri() 1st keyword (lower) can't be converted to int"); | |||
| 61225 | if (f2py_success) { | |||
| 61226 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpotri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpotri:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 61227 | /* Processing variable c */ | |||
| 61228 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 61229 | ; | |||
| 61230 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61231 | capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 61232 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 61233 | if (!PyErr_Occurred()) | |||
| 61234 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.cpotri to C/Fortran array" ); | |||
| 61235 | } else { | |||
| 61236 | c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 61237 | ||||
| 61238 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 61239 | /* Processing variable info */ | |||
| 61240 | /* Processing variable n */ | |||
| 61241 | n = shape(c,0)c_Dims[0]; | |||
| 61242 | /*end of frompyobj*/ | |||
| 61243 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61244 | f2py_start_call_clock(); | |||
| 61245 | #endif | |||
| 61246 | /*callfortranroutine*/ | |||
| 61247 | (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ; | |||
| 61248 | /*(*f2py_func)(&n,c,&info,&lower);*/ | |||
| 61249 | if (PyErr_Occurred()) | |||
| 61250 | f2py_success = 0; | |||
| 61251 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61252 | f2py_stop_call_clock(); | |||
| 61253 | #endif | |||
| 61254 | /*end of callfortranroutine*/ | |||
| 61255 | if (f2py_success) { | |||
| 61256 | /*pyobjfrom*/ | |||
| 61257 | /*end of pyobjfrom*/ | |||
| 61258 | CFUNCSMESS("Building return value.\n"); | |||
| 61259 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 61260 | /*closepyobjfrom*/ | |||
| 61261 | /*end of closepyobjfrom*/ | |||
| 61262 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 61263 | /*cleanupfrompyobj*/ | |||
| 61264 | /* End of cleaning variable n */ | |||
| 61265 | /* End of cleaning variable info */ | |||
| 61266 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 61267 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 61268 | /* End of cleaning variable c */ | |||
| 61269 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 61270 | } /*if (f2py_success) of lower*/ | |||
| 61271 | /* End of cleaning variable lower */ | |||
| 61272 | /*end of cleanupfrompyobj*/ | |||
| 61273 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 61274 | /*routdebugfailure*/ | |||
| 61275 | } else { | |||
| 61276 | /*routdebugleave*/ | |||
| 61277 | } | |||
| 61278 | CFUNCSMESS("Freeing memory.\n"); | |||
| 61279 | /*freemem*/ | |||
| 61280 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61281 | f2py_stop_clock(); | |||
| 61282 | #endif | |||
| 61283 | return capi_buildvalue; | |||
| 61284 | } | |||
| 61285 | /******************************* end of cpotri *******************************/ | |||
| 61286 | ||||
| 61287 | /*********************************** zpotri ***********************************/ | |||
| 61288 | static char doc_f2py_rout__flapack_zpotri[] = "\ | |||
| 61289 | inv_a,info = zpotri(c,[lower,overwrite_c])\n\nWrapper for ``zpotri``.\ | |||
| 61290 | \n\nParameters\n----------\n" | |||
| 61291 | "c : input rank-2 array('D') with bounds (n,n)\n" | |||
| 61292 | "\nOther Parameters\n----------------\n" | |||
| 61293 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 61294 | "lower : input int, optional\n Default: 0\n" | |||
| 61295 | "\nReturns\n-------\n" | |||
| 61296 | "inv_a : rank-2 array('D') with bounds (n,n) and c storage\n" | |||
| 61297 | "info : int"; | |||
| 61298 | /* extern void F_FUNC(zpotri,ZPOTRI)(char*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 61299 | static PyObject *f2py_rout__flapack_zpotri(const PyObject *capi_self, | |||
| 61300 | PyObject *capi_args, | |||
| 61301 | PyObject *capi_keywds, | |||
| 61302 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 61303 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 61304 | volatile int f2py_success = 1; | |||
| 61305 | /*decl*/ | |||
| 61306 | ||||
| 61307 | int n = 0; | |||
| 61308 | complex_double *c = NULL((void*)0); | |||
| 61309 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 61310 | const int c_Rank = 2; | |||
| 61311 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 61312 | int capi_c_intent = 0; | |||
| 61313 | int capi_overwrite_c = 0; | |||
| 61314 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 61315 | int info = 0; | |||
| 61316 | int lower = 0; | |||
| 61317 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 61318 | static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)}; | |||
| 61319 | ||||
| 61320 | /*routdebugenter*/ | |||
| 61321 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61322 | f2py_start_clock(); | |||
| 61323 | #endif | |||
| 61324 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 61325 | "O|Oi:_flapack.zpotri",\ | |||
| 61326 | capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c)) | |||
| 61327 | return NULL((void*)0); | |||
| 61328 | /*frompyobj*/ | |||
| 61329 | /* Processing variable lower */ | |||
| 61330 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 61331 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpotri() 1st keyword (lower) can't be converted to int"); | |||
| 61332 | if (f2py_success) { | |||
| 61333 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpotri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpotri:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 61334 | /* Processing variable c */ | |||
| 61335 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 61336 | ; | |||
| 61337 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61338 | capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 61339 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 61340 | if (!PyErr_Occurred()) | |||
| 61341 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.zpotri to C/Fortran array" ); | |||
| 61342 | } else { | |||
| 61343 | c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 61344 | ||||
| 61345 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 61346 | /* Processing variable info */ | |||
| 61347 | /* Processing variable n */ | |||
| 61348 | n = shape(c,0)c_Dims[0]; | |||
| 61349 | /*end of frompyobj*/ | |||
| 61350 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61351 | f2py_start_call_clock(); | |||
| 61352 | #endif | |||
| 61353 | /*callfortranroutine*/ | |||
| 61354 | (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ; | |||
| 61355 | /*(*f2py_func)(&n,c,&info,&lower);*/ | |||
| 61356 | if (PyErr_Occurred()) | |||
| 61357 | f2py_success = 0; | |||
| 61358 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61359 | f2py_stop_call_clock(); | |||
| 61360 | #endif | |||
| 61361 | /*end of callfortranroutine*/ | |||
| 61362 | if (f2py_success) { | |||
| 61363 | /*pyobjfrom*/ | |||
| 61364 | /*end of pyobjfrom*/ | |||
| 61365 | CFUNCSMESS("Building return value.\n"); | |||
| 61366 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 61367 | /*closepyobjfrom*/ | |||
| 61368 | /*end of closepyobjfrom*/ | |||
| 61369 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 61370 | /*cleanupfrompyobj*/ | |||
| 61371 | /* End of cleaning variable n */ | |||
| 61372 | /* End of cleaning variable info */ | |||
| 61373 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 61374 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 61375 | /* End of cleaning variable c */ | |||
| 61376 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 61377 | } /*if (f2py_success) of lower*/ | |||
| 61378 | /* End of cleaning variable lower */ | |||
| 61379 | /*end of cleanupfrompyobj*/ | |||
| 61380 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 61381 | /*routdebugfailure*/ | |||
| 61382 | } else { | |||
| 61383 | /*routdebugleave*/ | |||
| 61384 | } | |||
| 61385 | CFUNCSMESS("Freeing memory.\n"); | |||
| 61386 | /*freemem*/ | |||
| 61387 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61388 | f2py_stop_clock(); | |||
| 61389 | #endif | |||
| 61390 | return capi_buildvalue; | |||
| 61391 | } | |||
| 61392 | /******************************* end of zpotri *******************************/ | |||
| 61393 | ||||
| 61394 | /*********************************** sptsv ***********************************/ | |||
| 61395 | static char doc_f2py_rout__flapack_sptsv[] = "\ | |||
| 61396 | d,du,x,info = sptsv(d,e,b,[overwrite_d,overwrite_e,overwrite_b])\n\nWrapper for ``sptsv``.\ | |||
| 61397 | \n\nParameters\n----------\n" | |||
| 61398 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 61399 | "e : input rank-1 array('f') with bounds (n - 1)\n" | |||
| 61400 | "b : input rank-2 array('f') with bounds (n,nrhs)\n" | |||
| 61401 | "\nOther Parameters\n----------------\n" | |||
| 61402 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 61403 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 61404 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 61405 | "\nReturns\n-------\n" | |||
| 61406 | "d : rank-1 array('f') with bounds (n)\n" | |||
| 61407 | "du : rank-1 array('f') with bounds (n - 1) and e storage\n" | |||
| 61408 | "x : rank-2 array('f') with bounds (n,nrhs) and b storage\n" | |||
| 61409 | "info : int"; | |||
| 61410 | /* extern void F_FUNC(sptsv,SPTSV)(F_INT*, F_INT*, float*, float*, float*, F_INT*, F_INT* ); */ | |||
| 61411 | static PyObject *f2py_rout__flapack_sptsv(const PyObject *capi_self, | |||
| 61412 | PyObject *capi_args, | |||
| 61413 | PyObject *capi_keywds, | |||
| 61414 | void (*f2py_func)(F_INTint*, F_INTint*, float*, float*, float*, F_INTint*, F_INTint* )) { | |||
| 61415 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 61416 | volatile int f2py_success = 1; | |||
| 61417 | /*decl*/ | |||
| 61418 | ||||
| 61419 | int n = 0; | |||
| 61420 | int nrhs = 0; | |||
| 61421 | float *d = NULL((void*)0); | |||
| 61422 | npy_intp d_Dims[1] = {-1}; | |||
| 61423 | const int d_Rank = 1; | |||
| 61424 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 61425 | int capi_d_intent = 0; | |||
| 61426 | int capi_overwrite_d = 0; | |||
| 61427 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 61428 | float *e = NULL((void*)0); | |||
| 61429 | npy_intp e_Dims[1] = {-1}; | |||
| 61430 | const int e_Rank = 1; | |||
| 61431 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 61432 | int capi_e_intent = 0; | |||
| 61433 | int capi_overwrite_e = 0; | |||
| 61434 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 61435 | float *b = NULL((void*)0); | |||
| 61436 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 61437 | const int b_Rank = 2; | |||
| 61438 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 61439 | int capi_b_intent = 0; | |||
| 61440 | int capi_overwrite_b = 0; | |||
| 61441 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 61442 | int info = 0; | |||
| 61443 | static char *capi_kwlist[] = {"d","e","b","overwrite_d","overwrite_e","overwrite_b",NULL((void*)0)}; | |||
| 61444 | ||||
| 61445 | /*routdebugenter*/ | |||
| 61446 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61447 | f2py_start_clock(); | |||
| 61448 | #endif | |||
| 61449 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 61450 | "OOO|iii:_flapack.sptsv",\ | |||
| 61451 | capi_kwlist,&d_capi,&e_capi,&b_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_b)) | |||
| 61452 | return NULL((void*)0); | |||
| 61453 | /*frompyobj*/ | |||
| 61454 | /* Processing variable d */ | |||
| 61455 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 61456 | ; | |||
| 61457 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61458 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 61459 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 61460 | if (!PyErr_Occurred()) | |||
| 61461 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sptsv to C/Fortran array" ); | |||
| 61462 | } else { | |||
| 61463 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 61464 | ||||
| 61465 | /* Processing variable info */ | |||
| 61466 | /* Processing variable n */ | |||
| 61467 | n = len(d)d_Dims[0]; | |||
| 61468 | /* Processing variable e */ | |||
| 61469 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 61470 | e_Dims[0]=n - 1; | |||
| 61471 | capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61472 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 61473 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 61474 | if (!PyErr_Occurred()) | |||
| 61475 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sptsv to C/Fortran array" ); | |||
| 61476 | } else { | |||
| 61477 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 61478 | ||||
| 61479 | /* Processing variable b */ | |||
| 61480 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 61481 | b_Dims[0]=n; | |||
| 61482 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61483 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 61484 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 61485 | if (!PyErr_Occurred()) | |||
| 61486 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.sptsv to C/Fortran array" ); | |||
| 61487 | } else { | |||
| 61488 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 61489 | ||||
| 61490 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","3rd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""3rd argument b"); } else { | |||
| 61491 | /* Processing variable nrhs */ | |||
| 61492 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 61493 | /*end of frompyobj*/ | |||
| 61494 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61495 | f2py_start_call_clock(); | |||
| 61496 | #endif | |||
| 61497 | /*callfortranroutine*/ | |||
| 61498 | (*f2py_func)(&n, &nrhs, d, e, b, &n, &info); ; | |||
| 61499 | /*(*f2py_func)(&n,&nrhs,d,e,b,&info);*/ | |||
| 61500 | if (PyErr_Occurred()) | |||
| 61501 | f2py_success = 0; | |||
| 61502 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61503 | f2py_stop_call_clock(); | |||
| 61504 | #endif | |||
| 61505 | /*end of callfortranroutine*/ | |||
| 61506 | if (f2py_success) { | |||
| 61507 | /*pyobjfrom*/ | |||
| 61508 | /*end of pyobjfrom*/ | |||
| 61509 | CFUNCSMESS("Building return value.\n"); | |||
| 61510 | capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_b_tmp,info); | |||
| 61511 | /*closepyobjfrom*/ | |||
| 61512 | /*end of closepyobjfrom*/ | |||
| 61513 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 61514 | /*cleanupfrompyobj*/ | |||
| 61515 | /* End of cleaning variable nrhs */ | |||
| 61516 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 61517 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 61518 | /* End of cleaning variable b */ | |||
| 61519 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 61520 | /* End of cleaning variable e */ | |||
| 61521 | /* End of cleaning variable n */ | |||
| 61522 | /* End of cleaning variable info */ | |||
| 61523 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 61524 | /* End of cleaning variable d */ | |||
| 61525 | /*end of cleanupfrompyobj*/ | |||
| 61526 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 61527 | /*routdebugfailure*/ | |||
| 61528 | } else { | |||
| 61529 | /*routdebugleave*/ | |||
| 61530 | } | |||
| 61531 | CFUNCSMESS("Freeing memory.\n"); | |||
| 61532 | /*freemem*/ | |||
| 61533 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61534 | f2py_stop_clock(); | |||
| 61535 | #endif | |||
| 61536 | return capi_buildvalue; | |||
| 61537 | } | |||
| 61538 | /******************************** end of sptsv ********************************/ | |||
| 61539 | ||||
| 61540 | /*********************************** dptsv ***********************************/ | |||
| 61541 | static char doc_f2py_rout__flapack_dptsv[] = "\ | |||
| 61542 | d,du,x,info = dptsv(d,e,b,[overwrite_d,overwrite_e,overwrite_b])\n\nWrapper for ``dptsv``.\ | |||
| 61543 | \n\nParameters\n----------\n" | |||
| 61544 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 61545 | "e : input rank-1 array('d') with bounds (n - 1)\n" | |||
| 61546 | "b : input rank-2 array('d') with bounds (n,nrhs)\n" | |||
| 61547 | "\nOther Parameters\n----------------\n" | |||
| 61548 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 61549 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 61550 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 61551 | "\nReturns\n-------\n" | |||
| 61552 | "d : rank-1 array('d') with bounds (n)\n" | |||
| 61553 | "du : rank-1 array('d') with bounds (n - 1) and e storage\n" | |||
| 61554 | "x : rank-2 array('d') with bounds (n,nrhs) and b storage\n" | |||
| 61555 | "info : int"; | |||
| 61556 | /* extern void F_FUNC(dptsv,DPTSV)(F_INT*, F_INT*, double*, double*, double*, F_INT*, F_INT* ); */ | |||
| 61557 | static PyObject *f2py_rout__flapack_dptsv(const PyObject *capi_self, | |||
| 61558 | PyObject *capi_args, | |||
| 61559 | PyObject *capi_keywds, | |||
| 61560 | void (*f2py_func)(F_INTint*, F_INTint*, double*, double*, double*, F_INTint*, F_INTint* )) { | |||
| 61561 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 61562 | volatile int f2py_success = 1; | |||
| 61563 | /*decl*/ | |||
| 61564 | ||||
| 61565 | int n = 0; | |||
| 61566 | int nrhs = 0; | |||
| 61567 | double *d = NULL((void*)0); | |||
| 61568 | npy_intp d_Dims[1] = {-1}; | |||
| 61569 | const int d_Rank = 1; | |||
| 61570 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 61571 | int capi_d_intent = 0; | |||
| 61572 | int capi_overwrite_d = 0; | |||
| 61573 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 61574 | double *e = NULL((void*)0); | |||
| 61575 | npy_intp e_Dims[1] = {-1}; | |||
| 61576 | const int e_Rank = 1; | |||
| 61577 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 61578 | int capi_e_intent = 0; | |||
| 61579 | int capi_overwrite_e = 0; | |||
| 61580 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 61581 | double *b = NULL((void*)0); | |||
| 61582 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 61583 | const int b_Rank = 2; | |||
| 61584 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 61585 | int capi_b_intent = 0; | |||
| 61586 | int capi_overwrite_b = 0; | |||
| 61587 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 61588 | int info = 0; | |||
| 61589 | static char *capi_kwlist[] = {"d","e","b","overwrite_d","overwrite_e","overwrite_b",NULL((void*)0)}; | |||
| 61590 | ||||
| 61591 | /*routdebugenter*/ | |||
| 61592 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61593 | f2py_start_clock(); | |||
| 61594 | #endif | |||
| 61595 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 61596 | "OOO|iii:_flapack.dptsv",\ | |||
| 61597 | capi_kwlist,&d_capi,&e_capi,&b_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_b)) | |||
| 61598 | return NULL((void*)0); | |||
| 61599 | /*frompyobj*/ | |||
| 61600 | /* Processing variable d */ | |||
| 61601 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 61602 | ; | |||
| 61603 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61604 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 61605 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 61606 | if (!PyErr_Occurred()) | |||
| 61607 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dptsv to C/Fortran array" ); | |||
| 61608 | } else { | |||
| 61609 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 61610 | ||||
| 61611 | /* Processing variable info */ | |||
| 61612 | /* Processing variable n */ | |||
| 61613 | n = len(d)d_Dims[0]; | |||
| 61614 | /* Processing variable e */ | |||
| 61615 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 61616 | e_Dims[0]=n - 1; | |||
| 61617 | capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61618 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 61619 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 61620 | if (!PyErr_Occurred()) | |||
| 61621 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dptsv to C/Fortran array" ); | |||
| 61622 | } else { | |||
| 61623 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 61624 | ||||
| 61625 | /* Processing variable b */ | |||
| 61626 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 61627 | b_Dims[0]=n; | |||
| 61628 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61629 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 61630 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 61631 | if (!PyErr_Occurred()) | |||
| 61632 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dptsv to C/Fortran array" ); | |||
| 61633 | } else { | |||
| 61634 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 61635 | ||||
| 61636 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","3rd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""3rd argument b"); } else { | |||
| 61637 | /* Processing variable nrhs */ | |||
| 61638 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 61639 | /*end of frompyobj*/ | |||
| 61640 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61641 | f2py_start_call_clock(); | |||
| 61642 | #endif | |||
| 61643 | /*callfortranroutine*/ | |||
| 61644 | (*f2py_func)(&n, &nrhs, d, e, b, &n, &info); ; | |||
| 61645 | /*(*f2py_func)(&n,&nrhs,d,e,b,&info);*/ | |||
| 61646 | if (PyErr_Occurred()) | |||
| 61647 | f2py_success = 0; | |||
| 61648 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61649 | f2py_stop_call_clock(); | |||
| 61650 | #endif | |||
| 61651 | /*end of callfortranroutine*/ | |||
| 61652 | if (f2py_success) { | |||
| 61653 | /*pyobjfrom*/ | |||
| 61654 | /*end of pyobjfrom*/ | |||
| 61655 | CFUNCSMESS("Building return value.\n"); | |||
| 61656 | capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_b_tmp,info); | |||
| 61657 | /*closepyobjfrom*/ | |||
| 61658 | /*end of closepyobjfrom*/ | |||
| 61659 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 61660 | /*cleanupfrompyobj*/ | |||
| 61661 | /* End of cleaning variable nrhs */ | |||
| 61662 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 61663 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 61664 | /* End of cleaning variable b */ | |||
| 61665 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 61666 | /* End of cleaning variable e */ | |||
| 61667 | /* End of cleaning variable n */ | |||
| 61668 | /* End of cleaning variable info */ | |||
| 61669 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 61670 | /* End of cleaning variable d */ | |||
| 61671 | /*end of cleanupfrompyobj*/ | |||
| 61672 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 61673 | /*routdebugfailure*/ | |||
| 61674 | } else { | |||
| 61675 | /*routdebugleave*/ | |||
| 61676 | } | |||
| 61677 | CFUNCSMESS("Freeing memory.\n"); | |||
| 61678 | /*freemem*/ | |||
| 61679 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61680 | f2py_stop_clock(); | |||
| 61681 | #endif | |||
| 61682 | return capi_buildvalue; | |||
| 61683 | } | |||
| 61684 | /******************************** end of dptsv ********************************/ | |||
| 61685 | ||||
| 61686 | /*********************************** cptsv ***********************************/ | |||
| 61687 | static char doc_f2py_rout__flapack_cptsv[] = "\ | |||
| 61688 | d,du,x,info = cptsv(d,e,b,[overwrite_d,overwrite_e,overwrite_b])\n\nWrapper for ``cptsv``.\ | |||
| 61689 | \n\nParameters\n----------\n" | |||
| 61690 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 61691 | "e : input rank-1 array('F') with bounds (n - 1)\n" | |||
| 61692 | "b : input rank-2 array('F') with bounds (n,nrhs)\n" | |||
| 61693 | "\nOther Parameters\n----------------\n" | |||
| 61694 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 61695 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 61696 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 61697 | "\nReturns\n-------\n" | |||
| 61698 | "d : rank-1 array('f') with bounds (n)\n" | |||
| 61699 | "du : rank-1 array('F') with bounds (n - 1) and e storage\n" | |||
| 61700 | "x : rank-2 array('F') with bounds (n,nrhs) and b storage\n" | |||
| 61701 | "info : int"; | |||
| 61702 | /* extern void F_FUNC(cptsv,CPTSV)(F_INT*, F_INT*, float*, complex_float*, complex_float*, F_INT*, F_INT* ); */ | |||
| 61703 | static PyObject *f2py_rout__flapack_cptsv(const PyObject *capi_self, | |||
| 61704 | PyObject *capi_args, | |||
| 61705 | PyObject *capi_keywds, | |||
| 61706 | void (*f2py_func)(F_INTint*, F_INTint*, float*, complex_float*, complex_float*, F_INTint*, F_INTint* )) { | |||
| 61707 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 61708 | volatile int f2py_success = 1; | |||
| 61709 | /*decl*/ | |||
| 61710 | ||||
| 61711 | int n = 0; | |||
| 61712 | int nrhs = 0; | |||
| 61713 | float *d = NULL((void*)0); | |||
| 61714 | npy_intp d_Dims[1] = {-1}; | |||
| 61715 | const int d_Rank = 1; | |||
| 61716 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 61717 | int capi_d_intent = 0; | |||
| 61718 | int capi_overwrite_d = 0; | |||
| 61719 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 61720 | complex_float *e = NULL((void*)0); | |||
| 61721 | npy_intp e_Dims[1] = {-1}; | |||
| 61722 | const int e_Rank = 1; | |||
| 61723 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 61724 | int capi_e_intent = 0; | |||
| 61725 | int capi_overwrite_e = 0; | |||
| 61726 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 61727 | complex_float *b = NULL((void*)0); | |||
| 61728 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 61729 | const int b_Rank = 2; | |||
| 61730 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 61731 | int capi_b_intent = 0; | |||
| 61732 | int capi_overwrite_b = 0; | |||
| 61733 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 61734 | int info = 0; | |||
| 61735 | static char *capi_kwlist[] = {"d","e","b","overwrite_d","overwrite_e","overwrite_b",NULL((void*)0)}; | |||
| 61736 | ||||
| 61737 | /*routdebugenter*/ | |||
| 61738 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61739 | f2py_start_clock(); | |||
| 61740 | #endif | |||
| 61741 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 61742 | "OOO|iii:_flapack.cptsv",\ | |||
| 61743 | capi_kwlist,&d_capi,&e_capi,&b_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_b)) | |||
| 61744 | return NULL((void*)0); | |||
| 61745 | /*frompyobj*/ | |||
| 61746 | /* Processing variable d */ | |||
| 61747 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 61748 | ; | |||
| 61749 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61750 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 61751 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 61752 | if (!PyErr_Occurred()) | |||
| 61753 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.cptsv to C/Fortran array" ); | |||
| 61754 | } else { | |||
| 61755 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 61756 | ||||
| 61757 | /* Processing variable info */ | |||
| 61758 | /* Processing variable n */ | |||
| 61759 | n = len(d)d_Dims[0]; | |||
| 61760 | /* Processing variable e */ | |||
| 61761 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 61762 | e_Dims[0]=n - 1; | |||
| 61763 | capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61764 | capi_e_tmp = array_from_pyobj(NPY_CFLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 61765 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 61766 | if (!PyErr_Occurred()) | |||
| 61767 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.cptsv to C/Fortran array" ); | |||
| 61768 | } else { | |||
| 61769 | e = (complex_float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 61770 | ||||
| 61771 | /* Processing variable b */ | |||
| 61772 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 61773 | b_Dims[0]=n; | |||
| 61774 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61775 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 61776 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 61777 | if (!PyErr_Occurred()) | |||
| 61778 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cptsv to C/Fortran array" ); | |||
| 61779 | } else { | |||
| 61780 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 61781 | ||||
| 61782 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","3rd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""3rd argument b"); } else { | |||
| 61783 | /* Processing variable nrhs */ | |||
| 61784 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 61785 | /*end of frompyobj*/ | |||
| 61786 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61787 | f2py_start_call_clock(); | |||
| 61788 | #endif | |||
| 61789 | /*callfortranroutine*/ | |||
| 61790 | (*f2py_func)(&n, &nrhs, d, e, b, &n, &info); ; | |||
| 61791 | /*(*f2py_func)(&n,&nrhs,d,e,b,&info);*/ | |||
| 61792 | if (PyErr_Occurred()) | |||
| 61793 | f2py_success = 0; | |||
| 61794 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61795 | f2py_stop_call_clock(); | |||
| 61796 | #endif | |||
| 61797 | /*end of callfortranroutine*/ | |||
| 61798 | if (f2py_success) { | |||
| 61799 | /*pyobjfrom*/ | |||
| 61800 | /*end of pyobjfrom*/ | |||
| 61801 | CFUNCSMESS("Building return value.\n"); | |||
| 61802 | capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_b_tmp,info); | |||
| 61803 | /*closepyobjfrom*/ | |||
| 61804 | /*end of closepyobjfrom*/ | |||
| 61805 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 61806 | /*cleanupfrompyobj*/ | |||
| 61807 | /* End of cleaning variable nrhs */ | |||
| 61808 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 61809 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 61810 | /* End of cleaning variable b */ | |||
| 61811 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 61812 | /* End of cleaning variable e */ | |||
| 61813 | /* End of cleaning variable n */ | |||
| 61814 | /* End of cleaning variable info */ | |||
| 61815 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 61816 | /* End of cleaning variable d */ | |||
| 61817 | /*end of cleanupfrompyobj*/ | |||
| 61818 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 61819 | /*routdebugfailure*/ | |||
| 61820 | } else { | |||
| 61821 | /*routdebugleave*/ | |||
| 61822 | } | |||
| 61823 | CFUNCSMESS("Freeing memory.\n"); | |||
| 61824 | /*freemem*/ | |||
| 61825 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61826 | f2py_stop_clock(); | |||
| 61827 | #endif | |||
| 61828 | return capi_buildvalue; | |||
| 61829 | } | |||
| 61830 | /******************************** end of cptsv ********************************/ | |||
| 61831 | ||||
| 61832 | /*********************************** zptsv ***********************************/ | |||
| 61833 | static char doc_f2py_rout__flapack_zptsv[] = "\ | |||
| 61834 | d,du,x,info = zptsv(d,e,b,[overwrite_d,overwrite_e,overwrite_b])\n\nWrapper for ``zptsv``.\ | |||
| 61835 | \n\nParameters\n----------\n" | |||
| 61836 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 61837 | "e : input rank-1 array('D') with bounds (n - 1)\n" | |||
| 61838 | "b : input rank-2 array('D') with bounds (n,nrhs)\n" | |||
| 61839 | "\nOther Parameters\n----------------\n" | |||
| 61840 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 61841 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 61842 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 61843 | "\nReturns\n-------\n" | |||
| 61844 | "d : rank-1 array('d') with bounds (n)\n" | |||
| 61845 | "du : rank-1 array('D') with bounds (n - 1) and e storage\n" | |||
| 61846 | "x : rank-2 array('D') with bounds (n,nrhs) and b storage\n" | |||
| 61847 | "info : int"; | |||
| 61848 | /* extern void F_FUNC(zptsv,ZPTSV)(F_INT*, F_INT*, double*, complex_double*, complex_double*, F_INT*, F_INT* ); */ | |||
| 61849 | static PyObject *f2py_rout__flapack_zptsv(const PyObject *capi_self, | |||
| 61850 | PyObject *capi_args, | |||
| 61851 | PyObject *capi_keywds, | |||
| 61852 | void (*f2py_func)(F_INTint*, F_INTint*, double*, complex_double*, complex_double*, F_INTint*, F_INTint* )) { | |||
| 61853 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 61854 | volatile int f2py_success = 1; | |||
| 61855 | /*decl*/ | |||
| 61856 | ||||
| 61857 | int n = 0; | |||
| 61858 | int nrhs = 0; | |||
| 61859 | double *d = NULL((void*)0); | |||
| 61860 | npy_intp d_Dims[1] = {-1}; | |||
| 61861 | const int d_Rank = 1; | |||
| 61862 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 61863 | int capi_d_intent = 0; | |||
| 61864 | int capi_overwrite_d = 0; | |||
| 61865 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 61866 | complex_double *e = NULL((void*)0); | |||
| 61867 | npy_intp e_Dims[1] = {-1}; | |||
| 61868 | const int e_Rank = 1; | |||
| 61869 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 61870 | int capi_e_intent = 0; | |||
| 61871 | int capi_overwrite_e = 0; | |||
| 61872 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 61873 | complex_double *b = NULL((void*)0); | |||
| 61874 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 61875 | const int b_Rank = 2; | |||
| 61876 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 61877 | int capi_b_intent = 0; | |||
| 61878 | int capi_overwrite_b = 0; | |||
| 61879 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 61880 | int info = 0; | |||
| 61881 | static char *capi_kwlist[] = {"d","e","b","overwrite_d","overwrite_e","overwrite_b",NULL((void*)0)}; | |||
| 61882 | ||||
| 61883 | /*routdebugenter*/ | |||
| 61884 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61885 | f2py_start_clock(); | |||
| 61886 | #endif | |||
| 61887 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 61888 | "OOO|iii:_flapack.zptsv",\ | |||
| 61889 | capi_kwlist,&d_capi,&e_capi,&b_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_b)) | |||
| 61890 | return NULL((void*)0); | |||
| 61891 | /*frompyobj*/ | |||
| 61892 | /* Processing variable d */ | |||
| 61893 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 61894 | ; | |||
| 61895 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61896 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 61897 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 61898 | if (!PyErr_Occurred()) | |||
| 61899 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.zptsv to C/Fortran array" ); | |||
| 61900 | } else { | |||
| 61901 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 61902 | ||||
| 61903 | /* Processing variable info */ | |||
| 61904 | /* Processing variable n */ | |||
| 61905 | n = len(d)d_Dims[0]; | |||
| 61906 | /* Processing variable e */ | |||
| 61907 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 61908 | e_Dims[0]=n - 1; | |||
| 61909 | capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61910 | capi_e_tmp = array_from_pyobj(NPY_CDOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 61911 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 61912 | if (!PyErr_Occurred()) | |||
| 61913 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.zptsv to C/Fortran array" ); | |||
| 61914 | } else { | |||
| 61915 | e = (complex_double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 61916 | ||||
| 61917 | /* Processing variable b */ | |||
| 61918 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 61919 | b_Dims[0]=n; | |||
| 61920 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 61921 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 61922 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 61923 | if (!PyErr_Occurred()) | |||
| 61924 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zptsv to C/Fortran array" ); | |||
| 61925 | } else { | |||
| 61926 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 61927 | ||||
| 61928 | CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","3rd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n" ") failed for ""3rd argument b"); } else { | |||
| 61929 | /* Processing variable nrhs */ | |||
| 61930 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 61931 | /*end of frompyobj*/ | |||
| 61932 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61933 | f2py_start_call_clock(); | |||
| 61934 | #endif | |||
| 61935 | /*callfortranroutine*/ | |||
| 61936 | (*f2py_func)(&n, &nrhs, d, e, b, &n, &info); ; | |||
| 61937 | /*(*f2py_func)(&n,&nrhs,d,e,b,&info);*/ | |||
| 61938 | if (PyErr_Occurred()) | |||
| 61939 | f2py_success = 0; | |||
| 61940 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61941 | f2py_stop_call_clock(); | |||
| 61942 | #endif | |||
| 61943 | /*end of callfortranroutine*/ | |||
| 61944 | if (f2py_success) { | |||
| 61945 | /*pyobjfrom*/ | |||
| 61946 | /*end of pyobjfrom*/ | |||
| 61947 | CFUNCSMESS("Building return value.\n"); | |||
| 61948 | capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_b_tmp,info); | |||
| 61949 | /*closepyobjfrom*/ | |||
| 61950 | /*end of closepyobjfrom*/ | |||
| 61951 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 61952 | /*cleanupfrompyobj*/ | |||
| 61953 | /* End of cleaning variable nrhs */ | |||
| 61954 | } /*CHECKARRAY(shape(b,0)==n)*/ | |||
| 61955 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 61956 | /* End of cleaning variable b */ | |||
| 61957 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 61958 | /* End of cleaning variable e */ | |||
| 61959 | /* End of cleaning variable n */ | |||
| 61960 | /* End of cleaning variable info */ | |||
| 61961 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 61962 | /* End of cleaning variable d */ | |||
| 61963 | /*end of cleanupfrompyobj*/ | |||
| 61964 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 61965 | /*routdebugfailure*/ | |||
| 61966 | } else { | |||
| 61967 | /*routdebugleave*/ | |||
| 61968 | } | |||
| 61969 | CFUNCSMESS("Freeing memory.\n"); | |||
| 61970 | /*freemem*/ | |||
| 61971 | #ifdef F2PY_REPORT_ATEXIT | |||
| 61972 | f2py_stop_clock(); | |||
| 61973 | #endif | |||
| 61974 | return capi_buildvalue; | |||
| 61975 | } | |||
| 61976 | /******************************** end of zptsv ********************************/ | |||
| 61977 | ||||
| 61978 | /*********************************** spttrf ***********************************/ | |||
| 61979 | static char doc_f2py_rout__flapack_spttrf[] = "\ | |||
| 61980 | d,e,info = spttrf(d,e,[overwrite_d,overwrite_e])\n\nWrapper for ``spttrf``.\ | |||
| 61981 | \n\nParameters\n----------\n" | |||
| 61982 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 61983 | "e : input rank-1 array('f') with bounds ((n>0?n-1:0))\n" | |||
| 61984 | "\nOther Parameters\n----------------\n" | |||
| 61985 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 61986 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 61987 | "\nReturns\n-------\n" | |||
| 61988 | "d : rank-1 array('f') with bounds (n)\n" | |||
| 61989 | "e : rank-1 array('f') with bounds ((n>0?n-1:0))\n" | |||
| 61990 | "info : int"; | |||
| 61991 | /* extern void F_FUNC(spttrf,SPTTRF)(F_INT*, float*, float*, F_INT* ); */ | |||
| 61992 | static PyObject *f2py_rout__flapack_spttrf(const PyObject *capi_self, | |||
| 61993 | PyObject *capi_args, | |||
| 61994 | PyObject *capi_keywds, | |||
| 61995 | void (*f2py_func)(F_INTint*, float*, float*, F_INTint* )) { | |||
| 61996 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 61997 | volatile int f2py_success = 1; | |||
| 61998 | /*decl*/ | |||
| 61999 | ||||
| 62000 | int n = 0; | |||
| 62001 | float *d = NULL((void*)0); | |||
| 62002 | npy_intp d_Dims[1] = {-1}; | |||
| 62003 | const int d_Rank = 1; | |||
| 62004 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 62005 | int capi_d_intent = 0; | |||
| 62006 | int capi_overwrite_d = 0; | |||
| 62007 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 62008 | float *e = NULL((void*)0); | |||
| 62009 | npy_intp e_Dims[1] = {-1}; | |||
| 62010 | const int e_Rank = 1; | |||
| 62011 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 62012 | int capi_e_intent = 0; | |||
| 62013 | int capi_overwrite_e = 0; | |||
| 62014 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 62015 | int info = 0; | |||
| 62016 | static char *capi_kwlist[] = {"d","e","overwrite_d","overwrite_e",NULL((void*)0)}; | |||
| 62017 | ||||
| 62018 | /*routdebugenter*/ | |||
| 62019 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62020 | f2py_start_clock(); | |||
| 62021 | #endif | |||
| 62022 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 62023 | "OO|ii:_flapack.spttrf",\ | |||
| 62024 | capi_kwlist,&d_capi,&e_capi,&capi_overwrite_d,&capi_overwrite_e)) | |||
| 62025 | return NULL((void*)0); | |||
| 62026 | /*frompyobj*/ | |||
| 62027 | /* Processing variable d */ | |||
| 62028 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 62029 | ; | |||
| 62030 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 62031 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 62032 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 62033 | if (!PyErr_Occurred()) | |||
| 62034 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.spttrf to C/Fortran array" ); | |||
| 62035 | } else { | |||
| 62036 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 62037 | ||||
| 62038 | /* Processing variable info */ | |||
| 62039 | /* Processing variable n */ | |||
| 62040 | n = len(d)d_Dims[0]; | |||
| 62041 | /* Processing variable e */ | |||
| 62042 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 62043 | e_Dims[0]=(n>0?n-1:0); | |||
| 62044 | capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 62045 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 62046 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 62047 | if (!PyErr_Occurred()) | |||
| 62048 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.spttrf to C/Fortran array" ); | |||
| 62049 | } else { | |||
| 62050 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 62051 | ||||
| 62052 | /*end of frompyobj*/ | |||
| 62053 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62054 | f2py_start_call_clock(); | |||
| 62055 | #endif | |||
| 62056 | /*callfortranroutine*/ | |||
| 62057 | (*f2py_func)(&n, d, e, &info) ; | |||
| 62058 | /*(*f2py_func)(&n,d,e,&info);*/ | |||
| 62059 | if (PyErr_Occurred()) | |||
| 62060 | f2py_success = 0; | |||
| 62061 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62062 | f2py_stop_call_clock(); | |||
| 62063 | #endif | |||
| 62064 | /*end of callfortranroutine*/ | |||
| 62065 | if (f2py_success) { | |||
| 62066 | /*pyobjfrom*/ | |||
| 62067 | /*end of pyobjfrom*/ | |||
| 62068 | CFUNCSMESS("Building return value.\n"); | |||
| 62069 | capi_buildvalue = Py_BuildValue("NNi",capi_d_tmp,capi_e_tmp,info); | |||
| 62070 | /*closepyobjfrom*/ | |||
| 62071 | /*end of closepyobjfrom*/ | |||
| 62072 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 62073 | /*cleanupfrompyobj*/ | |||
| 62074 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 62075 | /* End of cleaning variable e */ | |||
| 62076 | /* End of cleaning variable n */ | |||
| 62077 | /* End of cleaning variable info */ | |||
| 62078 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 62079 | /* End of cleaning variable d */ | |||
| 62080 | /*end of cleanupfrompyobj*/ | |||
| 62081 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 62082 | /*routdebugfailure*/ | |||
| 62083 | } else { | |||
| 62084 | /*routdebugleave*/ | |||
| 62085 | } | |||
| 62086 | CFUNCSMESS("Freeing memory.\n"); | |||
| 62087 | /*freemem*/ | |||
| 62088 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62089 | f2py_stop_clock(); | |||
| 62090 | #endif | |||
| 62091 | return capi_buildvalue; | |||
| 62092 | } | |||
| 62093 | /******************************* end of spttrf *******************************/ | |||
| 62094 | ||||
| 62095 | /*********************************** dpttrf ***********************************/ | |||
| 62096 | static char doc_f2py_rout__flapack_dpttrf[] = "\ | |||
| 62097 | d,e,info = dpttrf(d,e,[overwrite_d,overwrite_e])\n\nWrapper for ``dpttrf``.\ | |||
| 62098 | \n\nParameters\n----------\n" | |||
| 62099 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 62100 | "e : input rank-1 array('d') with bounds ((n>0?n-1:0))\n" | |||
| 62101 | "\nOther Parameters\n----------------\n" | |||
| 62102 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 62103 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 62104 | "\nReturns\n-------\n" | |||
| 62105 | "d : rank-1 array('d') with bounds (n)\n" | |||
| 62106 | "e : rank-1 array('d') with bounds ((n>0?n-1:0))\n" | |||
| 62107 | "info : int"; | |||
| 62108 | /* extern void F_FUNC(dpttrf,DPTTRF)(F_INT*, double*, double*, F_INT* ); */ | |||
| 62109 | static PyObject *f2py_rout__flapack_dpttrf(const PyObject *capi_self, | |||
| 62110 | PyObject *capi_args, | |||
| 62111 | PyObject *capi_keywds, | |||
| 62112 | void (*f2py_func)(F_INTint*, double*, double*, F_INTint* )) { | |||
| 62113 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 62114 | volatile int f2py_success = 1; | |||
| 62115 | /*decl*/ | |||
| 62116 | ||||
| 62117 | int n = 0; | |||
| 62118 | double *d = NULL((void*)0); | |||
| 62119 | npy_intp d_Dims[1] = {-1}; | |||
| 62120 | const int d_Rank = 1; | |||
| 62121 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 62122 | int capi_d_intent = 0; | |||
| 62123 | int capi_overwrite_d = 0; | |||
| 62124 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 62125 | double *e = NULL((void*)0); | |||
| 62126 | npy_intp e_Dims[1] = {-1}; | |||
| 62127 | const int e_Rank = 1; | |||
| 62128 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 62129 | int capi_e_intent = 0; | |||
| 62130 | int capi_overwrite_e = 0; | |||
| 62131 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 62132 | int info = 0; | |||
| 62133 | static char *capi_kwlist[] = {"d","e","overwrite_d","overwrite_e",NULL((void*)0)}; | |||
| 62134 | ||||
| 62135 | /*routdebugenter*/ | |||
| 62136 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62137 | f2py_start_clock(); | |||
| 62138 | #endif | |||
| 62139 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 62140 | "OO|ii:_flapack.dpttrf",\ | |||
| 62141 | capi_kwlist,&d_capi,&e_capi,&capi_overwrite_d,&capi_overwrite_e)) | |||
| 62142 | return NULL((void*)0); | |||
| 62143 | /*frompyobj*/ | |||
| 62144 | /* Processing variable d */ | |||
| 62145 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 62146 | ; | |||
| 62147 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 62148 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 62149 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 62150 | if (!PyErr_Occurred()) | |||
| 62151 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dpttrf to C/Fortran array" ); | |||
| 62152 | } else { | |||
| 62153 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 62154 | ||||
| 62155 | /* Processing variable info */ | |||
| 62156 | /* Processing variable n */ | |||
| 62157 | n = len(d)d_Dims[0]; | |||
| 62158 | /* Processing variable e */ | |||
| 62159 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 62160 | e_Dims[0]=(n>0?n-1:0); | |||
| 62161 | capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 62162 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 62163 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 62164 | if (!PyErr_Occurred()) | |||
| 62165 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dpttrf to C/Fortran array" ); | |||
| 62166 | } else { | |||
| 62167 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 62168 | ||||
| 62169 | /*end of frompyobj*/ | |||
| 62170 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62171 | f2py_start_call_clock(); | |||
| 62172 | #endif | |||
| 62173 | /*callfortranroutine*/ | |||
| 62174 | (*f2py_func)(&n, d, e, &info) ; | |||
| 62175 | /*(*f2py_func)(&n,d,e,&info);*/ | |||
| 62176 | if (PyErr_Occurred()) | |||
| 62177 | f2py_success = 0; | |||
| 62178 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62179 | f2py_stop_call_clock(); | |||
| 62180 | #endif | |||
| 62181 | /*end of callfortranroutine*/ | |||
| 62182 | if (f2py_success) { | |||
| 62183 | /*pyobjfrom*/ | |||
| 62184 | /*end of pyobjfrom*/ | |||
| 62185 | CFUNCSMESS("Building return value.\n"); | |||
| 62186 | capi_buildvalue = Py_BuildValue("NNi",capi_d_tmp,capi_e_tmp,info); | |||
| 62187 | /*closepyobjfrom*/ | |||
| 62188 | /*end of closepyobjfrom*/ | |||
| 62189 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 62190 | /*cleanupfrompyobj*/ | |||
| 62191 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 62192 | /* End of cleaning variable e */ | |||
| 62193 | /* End of cleaning variable n */ | |||
| 62194 | /* End of cleaning variable info */ | |||
| 62195 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 62196 | /* End of cleaning variable d */ | |||
| 62197 | /*end of cleanupfrompyobj*/ | |||
| 62198 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 62199 | /*routdebugfailure*/ | |||
| 62200 | } else { | |||
| 62201 | /*routdebugleave*/ | |||
| 62202 | } | |||
| 62203 | CFUNCSMESS("Freeing memory.\n"); | |||
| 62204 | /*freemem*/ | |||
| 62205 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62206 | f2py_stop_clock(); | |||
| 62207 | #endif | |||
| 62208 | return capi_buildvalue; | |||
| 62209 | } | |||
| 62210 | /******************************* end of dpttrf *******************************/ | |||
| 62211 | ||||
| 62212 | /*********************************** cpttrf ***********************************/ | |||
| 62213 | static char doc_f2py_rout__flapack_cpttrf[] = "\ | |||
| 62214 | d,e,info = cpttrf(d,e,[overwrite_d,overwrite_e])\n\nWrapper for ``cpttrf``.\ | |||
| 62215 | \n\nParameters\n----------\n" | |||
| 62216 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 62217 | "e : input rank-1 array('F') with bounds ((n>0?n-1:0))\n" | |||
| 62218 | "\nOther Parameters\n----------------\n" | |||
| 62219 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 62220 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 62221 | "\nReturns\n-------\n" | |||
| 62222 | "d : rank-1 array('f') with bounds (n)\n" | |||
| 62223 | "e : rank-1 array('F') with bounds ((n>0?n-1:0))\n" | |||
| 62224 | "info : int"; | |||
| 62225 | /* extern void F_FUNC(cpttrf,CPTTRF)(F_INT*, float*, complex_float*, F_INT* ); */ | |||
| 62226 | static PyObject *f2py_rout__flapack_cpttrf(const PyObject *capi_self, | |||
| 62227 | PyObject *capi_args, | |||
| 62228 | PyObject *capi_keywds, | |||
| 62229 | void (*f2py_func)(F_INTint*, float*, complex_float*, F_INTint* )) { | |||
| 62230 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 62231 | volatile int f2py_success = 1; | |||
| 62232 | /*decl*/ | |||
| 62233 | ||||
| 62234 | int n = 0; | |||
| 62235 | float *d = NULL((void*)0); | |||
| 62236 | npy_intp d_Dims[1] = {-1}; | |||
| 62237 | const int d_Rank = 1; | |||
| 62238 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 62239 | int capi_d_intent = 0; | |||
| 62240 | int capi_overwrite_d = 0; | |||
| 62241 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 62242 | complex_float *e = NULL((void*)0); | |||
| 62243 | npy_intp e_Dims[1] = {-1}; | |||
| 62244 | const int e_Rank = 1; | |||
| 62245 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 62246 | int capi_e_intent = 0; | |||
| 62247 | int capi_overwrite_e = 0; | |||
| 62248 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 62249 | int info = 0; | |||
| 62250 | static char *capi_kwlist[] = {"d","e","overwrite_d","overwrite_e",NULL((void*)0)}; | |||
| 62251 | ||||
| 62252 | /*routdebugenter*/ | |||
| 62253 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62254 | f2py_start_clock(); | |||
| 62255 | #endif | |||
| 62256 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 62257 | "OO|ii:_flapack.cpttrf",\ | |||
| 62258 | capi_kwlist,&d_capi,&e_capi,&capi_overwrite_d,&capi_overwrite_e)) | |||
| 62259 | return NULL((void*)0); | |||
| 62260 | /*frompyobj*/ | |||
| 62261 | /* Processing variable d */ | |||
| 62262 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 62263 | ; | |||
| 62264 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 62265 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 62266 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 62267 | if (!PyErr_Occurred()) | |||
| 62268 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.cpttrf to C/Fortran array" ); | |||
| 62269 | } else { | |||
| 62270 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 62271 | ||||
| 62272 | /* Processing variable info */ | |||
| 62273 | /* Processing variable n */ | |||
| 62274 | n = len(d)d_Dims[0]; | |||
| 62275 | /* Processing variable e */ | |||
| 62276 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 62277 | e_Dims[0]=(n>0?n-1:0); | |||
| 62278 | capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 62279 | capi_e_tmp = array_from_pyobj(NPY_CFLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 62280 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 62281 | if (!PyErr_Occurred()) | |||
| 62282 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.cpttrf to C/Fortran array" ); | |||
| 62283 | } else { | |||
| 62284 | e = (complex_float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 62285 | ||||
| 62286 | /*end of frompyobj*/ | |||
| 62287 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62288 | f2py_start_call_clock(); | |||
| 62289 | #endif | |||
| 62290 | /*callfortranroutine*/ | |||
| 62291 | (*f2py_func)(&n, d, e, &info) ; | |||
| 62292 | /*(*f2py_func)(&n,d,e,&info);*/ | |||
| 62293 | if (PyErr_Occurred()) | |||
| 62294 | f2py_success = 0; | |||
| 62295 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62296 | f2py_stop_call_clock(); | |||
| 62297 | #endif | |||
| 62298 | /*end of callfortranroutine*/ | |||
| 62299 | if (f2py_success) { | |||
| 62300 | /*pyobjfrom*/ | |||
| 62301 | /*end of pyobjfrom*/ | |||
| 62302 | CFUNCSMESS("Building return value.\n"); | |||
| 62303 | capi_buildvalue = Py_BuildValue("NNi",capi_d_tmp,capi_e_tmp,info); | |||
| 62304 | /*closepyobjfrom*/ | |||
| 62305 | /*end of closepyobjfrom*/ | |||
| 62306 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 62307 | /*cleanupfrompyobj*/ | |||
| 62308 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 62309 | /* End of cleaning variable e */ | |||
| 62310 | /* End of cleaning variable n */ | |||
| 62311 | /* End of cleaning variable info */ | |||
| 62312 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 62313 | /* End of cleaning variable d */ | |||
| 62314 | /*end of cleanupfrompyobj*/ | |||
| 62315 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 62316 | /*routdebugfailure*/ | |||
| 62317 | } else { | |||
| 62318 | /*routdebugleave*/ | |||
| 62319 | } | |||
| 62320 | CFUNCSMESS("Freeing memory.\n"); | |||
| 62321 | /*freemem*/ | |||
| 62322 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62323 | f2py_stop_clock(); | |||
| 62324 | #endif | |||
| 62325 | return capi_buildvalue; | |||
| 62326 | } | |||
| 62327 | /******************************* end of cpttrf *******************************/ | |||
| 62328 | ||||
| 62329 | /*********************************** zpttrf ***********************************/ | |||
| 62330 | static char doc_f2py_rout__flapack_zpttrf[] = "\ | |||
| 62331 | d,e,info = zpttrf(d,e,[overwrite_d,overwrite_e])\n\nWrapper for ``zpttrf``.\ | |||
| 62332 | \n\nParameters\n----------\n" | |||
| 62333 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 62334 | "e : input rank-1 array('D') with bounds ((n>0?n-1:0))\n" | |||
| 62335 | "\nOther Parameters\n----------------\n" | |||
| 62336 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 62337 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 62338 | "\nReturns\n-------\n" | |||
| 62339 | "d : rank-1 array('d') with bounds (n)\n" | |||
| 62340 | "e : rank-1 array('D') with bounds ((n>0?n-1:0))\n" | |||
| 62341 | "info : int"; | |||
| 62342 | /* extern void F_FUNC(zpttrf,ZPTTRF)(F_INT*, double*, complex_double*, F_INT* ); */ | |||
| 62343 | static PyObject *f2py_rout__flapack_zpttrf(const PyObject *capi_self, | |||
| 62344 | PyObject *capi_args, | |||
| 62345 | PyObject *capi_keywds, | |||
| 62346 | void (*f2py_func)(F_INTint*, double*, complex_double*, F_INTint* )) { | |||
| 62347 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 62348 | volatile int f2py_success = 1; | |||
| 62349 | /*decl*/ | |||
| 62350 | ||||
| 62351 | int n = 0; | |||
| 62352 | double *d = NULL((void*)0); | |||
| 62353 | npy_intp d_Dims[1] = {-1}; | |||
| 62354 | const int d_Rank = 1; | |||
| 62355 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 62356 | int capi_d_intent = 0; | |||
| 62357 | int capi_overwrite_d = 0; | |||
| 62358 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 62359 | complex_double *e = NULL((void*)0); | |||
| 62360 | npy_intp e_Dims[1] = {-1}; | |||
| 62361 | const int e_Rank = 1; | |||
| 62362 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 62363 | int capi_e_intent = 0; | |||
| 62364 | int capi_overwrite_e = 0; | |||
| 62365 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 62366 | int info = 0; | |||
| 62367 | static char *capi_kwlist[] = {"d","e","overwrite_d","overwrite_e",NULL((void*)0)}; | |||
| 62368 | ||||
| 62369 | /*routdebugenter*/ | |||
| 62370 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62371 | f2py_start_clock(); | |||
| 62372 | #endif | |||
| 62373 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 62374 | "OO|ii:_flapack.zpttrf",\ | |||
| 62375 | capi_kwlist,&d_capi,&e_capi,&capi_overwrite_d,&capi_overwrite_e)) | |||
| 62376 | return NULL((void*)0); | |||
| 62377 | /*frompyobj*/ | |||
| 62378 | /* Processing variable d */ | |||
| 62379 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 62380 | ; | |||
| 62381 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 62382 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 62383 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 62384 | if (!PyErr_Occurred()) | |||
| 62385 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.zpttrf to C/Fortran array" ); | |||
| 62386 | } else { | |||
| 62387 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 62388 | ||||
| 62389 | /* Processing variable info */ | |||
| 62390 | /* Processing variable n */ | |||
| 62391 | n = len(d)d_Dims[0]; | |||
| 62392 | /* Processing variable e */ | |||
| 62393 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 62394 | e_Dims[0]=(n>0?n-1:0); | |||
| 62395 | capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 62396 | capi_e_tmp = array_from_pyobj(NPY_CDOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 62397 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 62398 | if (!PyErr_Occurred()) | |||
| 62399 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.zpttrf to C/Fortran array" ); | |||
| 62400 | } else { | |||
| 62401 | e = (complex_double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 62402 | ||||
| 62403 | /*end of frompyobj*/ | |||
| 62404 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62405 | f2py_start_call_clock(); | |||
| 62406 | #endif | |||
| 62407 | /*callfortranroutine*/ | |||
| 62408 | (*f2py_func)(&n, d, e, &info) ; | |||
| 62409 | /*(*f2py_func)(&n,d,e,&info);*/ | |||
| 62410 | if (PyErr_Occurred()) | |||
| 62411 | f2py_success = 0; | |||
| 62412 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62413 | f2py_stop_call_clock(); | |||
| 62414 | #endif | |||
| 62415 | /*end of callfortranroutine*/ | |||
| 62416 | if (f2py_success) { | |||
| 62417 | /*pyobjfrom*/ | |||
| 62418 | /*end of pyobjfrom*/ | |||
| 62419 | CFUNCSMESS("Building return value.\n"); | |||
| 62420 | capi_buildvalue = Py_BuildValue("NNi",capi_d_tmp,capi_e_tmp,info); | |||
| 62421 | /*closepyobjfrom*/ | |||
| 62422 | /*end of closepyobjfrom*/ | |||
| 62423 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 62424 | /*cleanupfrompyobj*/ | |||
| 62425 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 62426 | /* End of cleaning variable e */ | |||
| 62427 | /* End of cleaning variable n */ | |||
| 62428 | /* End of cleaning variable info */ | |||
| 62429 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 62430 | /* End of cleaning variable d */ | |||
| 62431 | /*end of cleanupfrompyobj*/ | |||
| 62432 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 62433 | /*routdebugfailure*/ | |||
| 62434 | } else { | |||
| 62435 | /*routdebugleave*/ | |||
| 62436 | } | |||
| 62437 | CFUNCSMESS("Freeing memory.\n"); | |||
| 62438 | /*freemem*/ | |||
| 62439 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62440 | f2py_stop_clock(); | |||
| 62441 | #endif | |||
| 62442 | return capi_buildvalue; | |||
| 62443 | } | |||
| 62444 | /******************************* end of zpttrf *******************************/ | |||
| 62445 | ||||
| 62446 | /*********************************** spttrs ***********************************/ | |||
| 62447 | static char doc_f2py_rout__flapack_spttrs[] = "\ | |||
| 62448 | x,info = spttrs(d,e,b,[overwrite_b])\n\nWrapper for ``spttrs``.\ | |||
| 62449 | \n\nParameters\n----------\n" | |||
| 62450 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 62451 | "e : input rank-1 array('f') with bounds ((n>0?n-1:0))\n" | |||
| 62452 | "b : input rank-2 array('f') with bounds (ldb,nrhs)\n" | |||
| 62453 | "\nOther Parameters\n----------------\n" | |||
| 62454 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 62455 | "\nReturns\n-------\n" | |||
| 62456 | "x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n" | |||
| 62457 | "info : int"; | |||
| 62458 | /* extern void F_FUNC(spttrs,SPTTRS)(F_INT*, F_INT*, float*, float*, float*, F_INT*, F_INT* ); */ | |||
| 62459 | static PyObject *f2py_rout__flapack_spttrs(const PyObject *capi_self, | |||
| 62460 | PyObject *capi_args, | |||
| 62461 | PyObject *capi_keywds, | |||
| 62462 | void (*f2py_func)(F_INTint*, F_INTint*, float*, float*, float*, F_INTint*, F_INTint* )) { | |||
| 62463 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 62464 | volatile int f2py_success = 1; | |||
| 62465 | /*decl*/ | |||
| 62466 | ||||
| 62467 | int n = 0; | |||
| 62468 | int nrhs = 0; | |||
| 62469 | float *d = NULL((void*)0); | |||
| 62470 | npy_intp d_Dims[1] = {-1}; | |||
| 62471 | const int d_Rank = 1; | |||
| 62472 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 62473 | int capi_d_intent = 0; | |||
| 62474 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 62475 | float *e = NULL((void*)0); | |||
| 62476 | npy_intp e_Dims[1] = {-1}; | |||
| 62477 | const int e_Rank = 1; | |||
| 62478 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 62479 | int capi_e_intent = 0; | |||
| 62480 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 62481 | float *b = NULL((void*)0); | |||
| 62482 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 62483 | const int b_Rank = 2; | |||
| 62484 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 62485 | int capi_b_intent = 0; | |||
| 62486 | int capi_overwrite_b = 0; | |||
| 62487 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 62488 | int ldb = 0; | |||
| 62489 | int info = 0; | |||
| 62490 | static char *capi_kwlist[] = {"d","e","b","overwrite_b",NULL((void*)0)}; | |||
| 62491 | ||||
| 62492 | /*routdebugenter*/ | |||
| 62493 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62494 | f2py_start_clock(); | |||
| 62495 | #endif | |||
| 62496 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 62497 | "OOO|i:_flapack.spttrs",\ | |||
| 62498 | capi_kwlist,&d_capi,&e_capi,&b_capi,&capi_overwrite_b)) | |||
| 62499 | return NULL((void*)0); | |||
| 62500 | /*frompyobj*/ | |||
| 62501 | /* Processing variable d */ | |||
| 62502 | ; | |||
| 62503 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 62504 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 62505 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 62506 | if (!PyErr_Occurred()) | |||
| 62507 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.spttrs to C/Fortran array" ); | |||
| 62508 | } else { | |||
| 62509 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 62510 | ||||
| 62511 | /* Processing variable b */ | |||
| 62512 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 62513 | ; | |||
| 62514 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 62515 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 62516 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 62517 | if (!PyErr_Occurred()) | |||
| 62518 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.spttrs to C/Fortran array" ); | |||
| 62519 | } else { | |||
| 62520 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 62521 | ||||
| 62522 | /* Processing variable info */ | |||
| 62523 | /* Processing variable n */ | |||
| 62524 | n = len(d)d_Dims[0]; | |||
| 62525 | /* Processing variable e */ | |||
| 62526 | e_Dims[0]=(n>0?n-1:0); | |||
| 62527 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 62528 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 62529 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 62530 | if (!PyErr_Occurred()) | |||
| 62531 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.spttrs to C/Fortran array" ); | |||
| 62532 | } else { | |||
| 62533 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 62534 | ||||
| 62535 | /* Processing variable ldb */ | |||
| 62536 | ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 62537 | /* Processing variable nrhs */ | |||
| 62538 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 62539 | /*end of frompyobj*/ | |||
| 62540 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62541 | f2py_start_call_clock(); | |||
| 62542 | #endif | |||
| 62543 | /*callfortranroutine*/ | |||
| 62544 | (*f2py_func)(&n, &nrhs, d, e, b, &ldb, &info) ; | |||
| 62545 | /*(*f2py_func)(&n,&nrhs,d,e,b,&ldb,&info);*/ | |||
| 62546 | if (PyErr_Occurred()) | |||
| 62547 | f2py_success = 0; | |||
| 62548 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62549 | f2py_stop_call_clock(); | |||
| 62550 | #endif | |||
| 62551 | /*end of callfortranroutine*/ | |||
| 62552 | if (f2py_success) { | |||
| 62553 | /*pyobjfrom*/ | |||
| 62554 | /*end of pyobjfrom*/ | |||
| 62555 | CFUNCSMESS("Building return value.\n"); | |||
| 62556 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 62557 | /*closepyobjfrom*/ | |||
| 62558 | /*end of closepyobjfrom*/ | |||
| 62559 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 62560 | /*cleanupfrompyobj*/ | |||
| 62561 | /* End of cleaning variable nrhs */ | |||
| 62562 | /* End of cleaning variable ldb */ | |||
| 62563 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 62564 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 62565 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 62566 | /* End of cleaning variable e */ | |||
| 62567 | /* End of cleaning variable n */ | |||
| 62568 | /* End of cleaning variable info */ | |||
| 62569 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 62570 | /* End of cleaning variable b */ | |||
| 62571 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 62572 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 62573 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 62574 | /* End of cleaning variable d */ | |||
| 62575 | /*end of cleanupfrompyobj*/ | |||
| 62576 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 62577 | /*routdebugfailure*/ | |||
| 62578 | } else { | |||
| 62579 | /*routdebugleave*/ | |||
| 62580 | } | |||
| 62581 | CFUNCSMESS("Freeing memory.\n"); | |||
| 62582 | /*freemem*/ | |||
| 62583 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62584 | f2py_stop_clock(); | |||
| 62585 | #endif | |||
| 62586 | return capi_buildvalue; | |||
| 62587 | } | |||
| 62588 | /******************************* end of spttrs *******************************/ | |||
| 62589 | ||||
| 62590 | /*********************************** dpttrs ***********************************/ | |||
| 62591 | static char doc_f2py_rout__flapack_dpttrs[] = "\ | |||
| 62592 | x,info = dpttrs(d,e,b,[overwrite_b])\n\nWrapper for ``dpttrs``.\ | |||
| 62593 | \n\nParameters\n----------\n" | |||
| 62594 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 62595 | "e : input rank-1 array('d') with bounds ((n>0?n-1:0))\n" | |||
| 62596 | "b : input rank-2 array('d') with bounds (ldb,nrhs)\n" | |||
| 62597 | "\nOther Parameters\n----------------\n" | |||
| 62598 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 62599 | "\nReturns\n-------\n" | |||
| 62600 | "x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n" | |||
| 62601 | "info : int"; | |||
| 62602 | /* extern void F_FUNC(dpttrs,DPTTRS)(F_INT*, F_INT*, double*, double*, double*, F_INT*, F_INT* ); */ | |||
| 62603 | static PyObject *f2py_rout__flapack_dpttrs(const PyObject *capi_self, | |||
| 62604 | PyObject *capi_args, | |||
| 62605 | PyObject *capi_keywds, | |||
| 62606 | void (*f2py_func)(F_INTint*, F_INTint*, double*, double*, double*, F_INTint*, F_INTint* )) { | |||
| 62607 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 62608 | volatile int f2py_success = 1; | |||
| 62609 | /*decl*/ | |||
| 62610 | ||||
| 62611 | int n = 0; | |||
| 62612 | int nrhs = 0; | |||
| 62613 | double *d = NULL((void*)0); | |||
| 62614 | npy_intp d_Dims[1] = {-1}; | |||
| 62615 | const int d_Rank = 1; | |||
| 62616 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 62617 | int capi_d_intent = 0; | |||
| 62618 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 62619 | double *e = NULL((void*)0); | |||
| 62620 | npy_intp e_Dims[1] = {-1}; | |||
| 62621 | const int e_Rank = 1; | |||
| 62622 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 62623 | int capi_e_intent = 0; | |||
| 62624 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 62625 | double *b = NULL((void*)0); | |||
| 62626 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 62627 | const int b_Rank = 2; | |||
| 62628 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 62629 | int capi_b_intent = 0; | |||
| 62630 | int capi_overwrite_b = 0; | |||
| 62631 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 62632 | int ldb = 0; | |||
| 62633 | int info = 0; | |||
| 62634 | static char *capi_kwlist[] = {"d","e","b","overwrite_b",NULL((void*)0)}; | |||
| 62635 | ||||
| 62636 | /*routdebugenter*/ | |||
| 62637 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62638 | f2py_start_clock(); | |||
| 62639 | #endif | |||
| 62640 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 62641 | "OOO|i:_flapack.dpttrs",\ | |||
| 62642 | capi_kwlist,&d_capi,&e_capi,&b_capi,&capi_overwrite_b)) | |||
| 62643 | return NULL((void*)0); | |||
| 62644 | /*frompyobj*/ | |||
| 62645 | /* Processing variable d */ | |||
| 62646 | ; | |||
| 62647 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 62648 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 62649 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 62650 | if (!PyErr_Occurred()) | |||
| 62651 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dpttrs to C/Fortran array" ); | |||
| 62652 | } else { | |||
| 62653 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 62654 | ||||
| 62655 | /* Processing variable b */ | |||
| 62656 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 62657 | ; | |||
| 62658 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 62659 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 62660 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 62661 | if (!PyErr_Occurred()) | |||
| 62662 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dpttrs to C/Fortran array" ); | |||
| 62663 | } else { | |||
| 62664 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 62665 | ||||
| 62666 | /* Processing variable info */ | |||
| 62667 | /* Processing variable n */ | |||
| 62668 | n = len(d)d_Dims[0]; | |||
| 62669 | /* Processing variable e */ | |||
| 62670 | e_Dims[0]=(n>0?n-1:0); | |||
| 62671 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 62672 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 62673 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 62674 | if (!PyErr_Occurred()) | |||
| 62675 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dpttrs to C/Fortran array" ); | |||
| 62676 | } else { | |||
| 62677 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 62678 | ||||
| 62679 | /* Processing variable ldb */ | |||
| 62680 | ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 62681 | /* Processing variable nrhs */ | |||
| 62682 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 62683 | /*end of frompyobj*/ | |||
| 62684 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62685 | f2py_start_call_clock(); | |||
| 62686 | #endif | |||
| 62687 | /*callfortranroutine*/ | |||
| 62688 | (*f2py_func)(&n, &nrhs, d, e, b, &ldb, &info) ; | |||
| 62689 | /*(*f2py_func)(&n,&nrhs,d,e,b,&ldb,&info);*/ | |||
| 62690 | if (PyErr_Occurred()) | |||
| 62691 | f2py_success = 0; | |||
| 62692 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62693 | f2py_stop_call_clock(); | |||
| 62694 | #endif | |||
| 62695 | /*end of callfortranroutine*/ | |||
| 62696 | if (f2py_success) { | |||
| 62697 | /*pyobjfrom*/ | |||
| 62698 | /*end of pyobjfrom*/ | |||
| 62699 | CFUNCSMESS("Building return value.\n"); | |||
| 62700 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 62701 | /*closepyobjfrom*/ | |||
| 62702 | /*end of closepyobjfrom*/ | |||
| 62703 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 62704 | /*cleanupfrompyobj*/ | |||
| 62705 | /* End of cleaning variable nrhs */ | |||
| 62706 | /* End of cleaning variable ldb */ | |||
| 62707 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 62708 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 62709 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 62710 | /* End of cleaning variable e */ | |||
| 62711 | /* End of cleaning variable n */ | |||
| 62712 | /* End of cleaning variable info */ | |||
| 62713 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 62714 | /* End of cleaning variable b */ | |||
| 62715 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 62716 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 62717 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 62718 | /* End of cleaning variable d */ | |||
| 62719 | /*end of cleanupfrompyobj*/ | |||
| 62720 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 62721 | /*routdebugfailure*/ | |||
| 62722 | } else { | |||
| 62723 | /*routdebugleave*/ | |||
| 62724 | } | |||
| 62725 | CFUNCSMESS("Freeing memory.\n"); | |||
| 62726 | /*freemem*/ | |||
| 62727 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62728 | f2py_stop_clock(); | |||
| 62729 | #endif | |||
| 62730 | return capi_buildvalue; | |||
| 62731 | } | |||
| 62732 | /******************************* end of dpttrs *******************************/ | |||
| 62733 | ||||
| 62734 | /*********************************** cpttrs ***********************************/ | |||
| 62735 | static char doc_f2py_rout__flapack_cpttrs[] = "\ | |||
| 62736 | x,info = cpttrs(d,e,b,[lower,overwrite_b])\n\nWrapper for ``cpttrs``.\ | |||
| 62737 | \n\nParameters\n----------\n" | |||
| 62738 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 62739 | "e : input rank-1 array('F') with bounds ((n>0?n-1:0))\n" | |||
| 62740 | "b : input rank-2 array('F') with bounds (ldb,nrhs)\n" | |||
| 62741 | "\nOther Parameters\n----------------\n" | |||
| 62742 | "lower : input int, optional\n Default: 0\n" | |||
| 62743 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 62744 | "\nReturns\n-------\n" | |||
| 62745 | "x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n" | |||
| 62746 | "info : int"; | |||
| 62747 | /* extern void F_FUNC(cpttrs,CPTTRS)(char*, F_INT*, F_INT*, float*, complex_float*, complex_float*, F_INT*, F_INT* ); */ | |||
| 62748 | static PyObject *f2py_rout__flapack_cpttrs(const PyObject *capi_self, | |||
| 62749 | PyObject *capi_args, | |||
| 62750 | PyObject *capi_keywds, | |||
| 62751 | void (*f2py_func)(char*, F_INTint*, F_INTint*, float*, complex_float*, complex_float*, F_INTint*, F_INTint* )) { | |||
| 62752 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 62753 | volatile int f2py_success = 1; | |||
| 62754 | /*decl*/ | |||
| 62755 | ||||
| 62756 | int lower = 0; | |||
| 62757 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 62758 | int n = 0; | |||
| 62759 | int nrhs = 0; | |||
| 62760 | float *d = NULL((void*)0); | |||
| 62761 | npy_intp d_Dims[1] = {-1}; | |||
| 62762 | const int d_Rank = 1; | |||
| 62763 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 62764 | int capi_d_intent = 0; | |||
| 62765 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 62766 | complex_float *e = NULL((void*)0); | |||
| 62767 | npy_intp e_Dims[1] = {-1}; | |||
| 62768 | const int e_Rank = 1; | |||
| 62769 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 62770 | int capi_e_intent = 0; | |||
| 62771 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 62772 | complex_float *b = NULL((void*)0); | |||
| 62773 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 62774 | const int b_Rank = 2; | |||
| 62775 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 62776 | int capi_b_intent = 0; | |||
| 62777 | int capi_overwrite_b = 0; | |||
| 62778 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 62779 | int ldb = 0; | |||
| 62780 | int info = 0; | |||
| 62781 | static char *capi_kwlist[] = {"d","e","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 62782 | ||||
| 62783 | /*routdebugenter*/ | |||
| 62784 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62785 | f2py_start_clock(); | |||
| 62786 | #endif | |||
| 62787 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 62788 | "OOO|Oi:_flapack.cpttrs",\ | |||
| 62789 | capi_kwlist,&d_capi,&e_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 62790 | return NULL((void*)0); | |||
| 62791 | /*frompyobj*/ | |||
| 62792 | /* Processing variable lower */ | |||
| 62793 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 62794 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpttrs() 1st keyword (lower) can't be converted to int"); | |||
| 62795 | if (f2py_success) { | |||
| 62796 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpttrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpttrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 62797 | /* Processing variable d */ | |||
| 62798 | ; | |||
| 62799 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 62800 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 62801 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 62802 | if (!PyErr_Occurred()) | |||
| 62803 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.cpttrs to C/Fortran array" ); | |||
| 62804 | } else { | |||
| 62805 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 62806 | ||||
| 62807 | /* Processing variable b */ | |||
| 62808 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 62809 | ; | |||
| 62810 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 62811 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 62812 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 62813 | if (!PyErr_Occurred()) | |||
| 62814 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cpttrs to C/Fortran array" ); | |||
| 62815 | } else { | |||
| 62816 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 62817 | ||||
| 62818 | /* Processing variable info */ | |||
| 62819 | /* Processing variable n */ | |||
| 62820 | n = len(d)d_Dims[0]; | |||
| 62821 | /* Processing variable e */ | |||
| 62822 | e_Dims[0]=(n>0?n-1:0); | |||
| 62823 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 62824 | capi_e_tmp = array_from_pyobj(NPY_CFLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 62825 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 62826 | if (!PyErr_Occurred()) | |||
| 62827 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.cpttrs to C/Fortran array" ); | |||
| 62828 | } else { | |||
| 62829 | e = (complex_float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 62830 | ||||
| 62831 | /* Processing variable ldb */ | |||
| 62832 | ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 62833 | /* Processing variable nrhs */ | |||
| 62834 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 62835 | /*end of frompyobj*/ | |||
| 62836 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62837 | f2py_start_call_clock(); | |||
| 62838 | #endif | |||
| 62839 | /*callfortranroutine*/ | |||
| 62840 | (*f2py_func)((lower?"L":"U"), &n, &nrhs, d, e, b, &ldb, &info) ; | |||
| 62841 | /*(*f2py_func)(&lower,&n,&nrhs,d,e,b,&ldb,&info);*/ | |||
| 62842 | if (PyErr_Occurred()) | |||
| 62843 | f2py_success = 0; | |||
| 62844 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62845 | f2py_stop_call_clock(); | |||
| 62846 | #endif | |||
| 62847 | /*end of callfortranroutine*/ | |||
| 62848 | if (f2py_success) { | |||
| 62849 | /*pyobjfrom*/ | |||
| 62850 | /*end of pyobjfrom*/ | |||
| 62851 | CFUNCSMESS("Building return value.\n"); | |||
| 62852 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 62853 | /*closepyobjfrom*/ | |||
| 62854 | /*end of closepyobjfrom*/ | |||
| 62855 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 62856 | /*cleanupfrompyobj*/ | |||
| 62857 | /* End of cleaning variable nrhs */ | |||
| 62858 | /* End of cleaning variable ldb */ | |||
| 62859 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 62860 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 62861 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 62862 | /* End of cleaning variable e */ | |||
| 62863 | /* End of cleaning variable n */ | |||
| 62864 | /* End of cleaning variable info */ | |||
| 62865 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 62866 | /* End of cleaning variable b */ | |||
| 62867 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 62868 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 62869 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 62870 | /* End of cleaning variable d */ | |||
| 62871 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 62872 | } /*if (f2py_success) of lower*/ | |||
| 62873 | /* End of cleaning variable lower */ | |||
| 62874 | /*end of cleanupfrompyobj*/ | |||
| 62875 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 62876 | /*routdebugfailure*/ | |||
| 62877 | } else { | |||
| 62878 | /*routdebugleave*/ | |||
| 62879 | } | |||
| 62880 | CFUNCSMESS("Freeing memory.\n"); | |||
| 62881 | /*freemem*/ | |||
| 62882 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62883 | f2py_stop_clock(); | |||
| 62884 | #endif | |||
| 62885 | return capi_buildvalue; | |||
| 62886 | } | |||
| 62887 | /******************************* end of cpttrs *******************************/ | |||
| 62888 | ||||
| 62889 | /*********************************** zpttrs ***********************************/ | |||
| 62890 | static char doc_f2py_rout__flapack_zpttrs[] = "\ | |||
| 62891 | x,info = zpttrs(d,e,b,[lower,overwrite_b])\n\nWrapper for ``zpttrs``.\ | |||
| 62892 | \n\nParameters\n----------\n" | |||
| 62893 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 62894 | "e : input rank-1 array('D') with bounds ((n>0?n-1:0))\n" | |||
| 62895 | "b : input rank-2 array('D') with bounds (ldb,nrhs)\n" | |||
| 62896 | "\nOther Parameters\n----------------\n" | |||
| 62897 | "lower : input int, optional\n Default: 0\n" | |||
| 62898 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 62899 | "\nReturns\n-------\n" | |||
| 62900 | "x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n" | |||
| 62901 | "info : int"; | |||
| 62902 | /* extern void F_FUNC(zpttrs,ZPTTRS)(char*, F_INT*, F_INT*, double*, complex_double*, complex_double*, F_INT*, F_INT* ); */ | |||
| 62903 | static PyObject *f2py_rout__flapack_zpttrs(const PyObject *capi_self, | |||
| 62904 | PyObject *capi_args, | |||
| 62905 | PyObject *capi_keywds, | |||
| 62906 | void (*f2py_func)(char*, F_INTint*, F_INTint*, double*, complex_double*, complex_double*, F_INTint*, F_INTint* )) { | |||
| 62907 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 62908 | volatile int f2py_success = 1; | |||
| 62909 | /*decl*/ | |||
| 62910 | ||||
| 62911 | int lower = 0; | |||
| 62912 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 62913 | int n = 0; | |||
| 62914 | int nrhs = 0; | |||
| 62915 | double *d = NULL((void*)0); | |||
| 62916 | npy_intp d_Dims[1] = {-1}; | |||
| 62917 | const int d_Rank = 1; | |||
| 62918 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 62919 | int capi_d_intent = 0; | |||
| 62920 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 62921 | complex_double *e = NULL((void*)0); | |||
| 62922 | npy_intp e_Dims[1] = {-1}; | |||
| 62923 | const int e_Rank = 1; | |||
| 62924 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 62925 | int capi_e_intent = 0; | |||
| 62926 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 62927 | complex_double *b = NULL((void*)0); | |||
| 62928 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 62929 | const int b_Rank = 2; | |||
| 62930 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 62931 | int capi_b_intent = 0; | |||
| 62932 | int capi_overwrite_b = 0; | |||
| 62933 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 62934 | int ldb = 0; | |||
| 62935 | int info = 0; | |||
| 62936 | static char *capi_kwlist[] = {"d","e","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 62937 | ||||
| 62938 | /*routdebugenter*/ | |||
| 62939 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62940 | f2py_start_clock(); | |||
| 62941 | #endif | |||
| 62942 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 62943 | "OOO|Oi:_flapack.zpttrs",\ | |||
| 62944 | capi_kwlist,&d_capi,&e_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 62945 | return NULL((void*)0); | |||
| 62946 | /*frompyobj*/ | |||
| 62947 | /* Processing variable lower */ | |||
| 62948 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 62949 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpttrs() 1st keyword (lower) can't be converted to int"); | |||
| 62950 | if (f2py_success) { | |||
| 62951 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpttrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpttrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 62952 | /* Processing variable d */ | |||
| 62953 | ; | |||
| 62954 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 62955 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 62956 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 62957 | if (!PyErr_Occurred()) | |||
| 62958 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.zpttrs to C/Fortran array" ); | |||
| 62959 | } else { | |||
| 62960 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 62961 | ||||
| 62962 | /* Processing variable b */ | |||
| 62963 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 62964 | ; | |||
| 62965 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 62966 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 62967 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 62968 | if (!PyErr_Occurred()) | |||
| 62969 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zpttrs to C/Fortran array" ); | |||
| 62970 | } else { | |||
| 62971 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 62972 | ||||
| 62973 | /* Processing variable info */ | |||
| 62974 | /* Processing variable n */ | |||
| 62975 | n = len(d)d_Dims[0]; | |||
| 62976 | /* Processing variable e */ | |||
| 62977 | e_Dims[0]=(n>0?n-1:0); | |||
| 62978 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 62979 | capi_e_tmp = array_from_pyobj(NPY_CDOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 62980 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 62981 | if (!PyErr_Occurred()) | |||
| 62982 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.zpttrs to C/Fortran array" ); | |||
| 62983 | } else { | |||
| 62984 | e = (complex_double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 62985 | ||||
| 62986 | /* Processing variable ldb */ | |||
| 62987 | ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 62988 | /* Processing variable nrhs */ | |||
| 62989 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 62990 | /*end of frompyobj*/ | |||
| 62991 | #ifdef F2PY_REPORT_ATEXIT | |||
| 62992 | f2py_start_call_clock(); | |||
| 62993 | #endif | |||
| 62994 | /*callfortranroutine*/ | |||
| 62995 | (*f2py_func)((lower?"L":"U"), &n, &nrhs, d, e, b, &ldb, &info) ; | |||
| 62996 | /*(*f2py_func)(&lower,&n,&nrhs,d,e,b,&ldb,&info);*/ | |||
| 62997 | if (PyErr_Occurred()) | |||
| 62998 | f2py_success = 0; | |||
| 62999 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63000 | f2py_stop_call_clock(); | |||
| 63001 | #endif | |||
| 63002 | /*end of callfortranroutine*/ | |||
| 63003 | if (f2py_success) { | |||
| 63004 | /*pyobjfrom*/ | |||
| 63005 | /*end of pyobjfrom*/ | |||
| 63006 | CFUNCSMESS("Building return value.\n"); | |||
| 63007 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 63008 | /*closepyobjfrom*/ | |||
| 63009 | /*end of closepyobjfrom*/ | |||
| 63010 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 63011 | /*cleanupfrompyobj*/ | |||
| 63012 | /* End of cleaning variable nrhs */ | |||
| 63013 | /* End of cleaning variable ldb */ | |||
| 63014 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 63015 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 63016 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 63017 | /* End of cleaning variable e */ | |||
| 63018 | /* End of cleaning variable n */ | |||
| 63019 | /* End of cleaning variable info */ | |||
| 63020 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 63021 | /* End of cleaning variable b */ | |||
| 63022 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 63023 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 63024 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 63025 | /* End of cleaning variable d */ | |||
| 63026 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 63027 | } /*if (f2py_success) of lower*/ | |||
| 63028 | /* End of cleaning variable lower */ | |||
| 63029 | /*end of cleanupfrompyobj*/ | |||
| 63030 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 63031 | /*routdebugfailure*/ | |||
| 63032 | } else { | |||
| 63033 | /*routdebugleave*/ | |||
| 63034 | } | |||
| 63035 | CFUNCSMESS("Freeing memory.\n"); | |||
| 63036 | /*freemem*/ | |||
| 63037 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63038 | f2py_stop_clock(); | |||
| 63039 | #endif | |||
| 63040 | return capi_buildvalue; | |||
| 63041 | } | |||
| 63042 | /******************************* end of zpttrs *******************************/ | |||
| 63043 | ||||
| 63044 | /*********************************** spteqr ***********************************/ | |||
| 63045 | static char doc_f2py_rout__flapack_spteqr[] = "\ | |||
| 63046 | d,e,z,info = spteqr(d,e,z,[compute_z,overwrite_d,overwrite_e,overwrite_z])\n\nWrapper for ``spteqr``.\ | |||
| 63047 | \n\nParameters\n----------\n" | |||
| 63048 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 63049 | "e : input rank-1 array('f') with bounds ((n>0?n-1:0))\n" | |||
| 63050 | "z : input rank-2 array('f') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n" | |||
| 63051 | "\nOther Parameters\n----------------\n" | |||
| 63052 | "compute_z : input int, optional\n Default: 0\n" | |||
| 63053 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 63054 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 63055 | "overwrite_z : input int, optional\n Default: 0\n" | |||
| 63056 | "\nReturns\n-------\n" | |||
| 63057 | "d : rank-1 array('f') with bounds (n)\n" | |||
| 63058 | "e : rank-1 array('f') with bounds ((n>0?n-1:0))\n" | |||
| 63059 | "z : rank-2 array('f') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n" | |||
| 63060 | "info : int"; | |||
| 63061 | /* extern void F_FUNC(spteqr,SPTEQR)(char*, F_INT*, float*, float*, float*, F_INT*, float*, F_INT* ); */ | |||
| 63062 | static PyObject *f2py_rout__flapack_spteqr(const PyObject *capi_self, | |||
| 63063 | PyObject *capi_args, | |||
| 63064 | PyObject *capi_keywds, | |||
| 63065 | void (*f2py_func)(char*, F_INTint*, float*, float*, float*, F_INTint*, float*, F_INTint* )) { | |||
| 63066 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 63067 | volatile int f2py_success = 1; | |||
| 63068 | /*decl*/ | |||
| 63069 | ||||
| 63070 | int compute_z = 0; | |||
| 63071 | PyObject *compute_z_capi = Py_None(&_Py_NoneStruct); | |||
| 63072 | int n = 0; | |||
| 63073 | float *d = NULL((void*)0); | |||
| 63074 | npy_intp d_Dims[1] = {-1}; | |||
| 63075 | const int d_Rank = 1; | |||
| 63076 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 63077 | int capi_d_intent = 0; | |||
| 63078 | int capi_overwrite_d = 0; | |||
| 63079 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 63080 | float *e = NULL((void*)0); | |||
| 63081 | npy_intp e_Dims[1] = {-1}; | |||
| 63082 | const int e_Rank = 1; | |||
| 63083 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 63084 | int capi_e_intent = 0; | |||
| 63085 | int capi_overwrite_e = 0; | |||
| 63086 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 63087 | float *z = NULL((void*)0); | |||
| 63088 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 63089 | const int z_Rank = 2; | |||
| 63090 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 63091 | int capi_z_intent = 0; | |||
| 63092 | int capi_overwrite_z = 0; | |||
| 63093 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 63094 | int ldz = 0; | |||
| 63095 | float *work = NULL((void*)0); | |||
| 63096 | npy_intp work_Dims[1] = {-1}; | |||
| 63097 | const int work_Rank = 1; | |||
| 63098 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 63099 | int capi_work_intent = 0; | |||
| 63100 | int info = 0; | |||
| 63101 | static char *capi_kwlist[] = {"d","e","z","compute_z","overwrite_d","overwrite_e","overwrite_z",NULL((void*)0)}; | |||
| 63102 | ||||
| 63103 | /*routdebugenter*/ | |||
| 63104 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63105 | f2py_start_clock(); | |||
| 63106 | #endif | |||
| 63107 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 63108 | "OOO|Oiii:_flapack.spteqr",\ | |||
| 63109 | capi_kwlist,&d_capi,&e_capi,&z_capi,&compute_z_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_z)) | |||
| 63110 | return NULL((void*)0); | |||
| 63111 | /*frompyobj*/ | |||
| 63112 | /* Processing variable compute_z */ | |||
| 63113 | if (compute_z_capi == Py_None(&_Py_NoneStruct)) compute_z = 0; else | |||
| 63114 | f2py_success = int_from_pyobj(&compute_z,compute_z_capi,"_flapack.spteqr() 1st keyword (compute_z) can't be converted to int"); | |||
| 63115 | if (f2py_success) { | |||
| 63116 | CHECKSCALAR((compute_z>=0) && (compute_z<=2),"(compute_z>=0) && (compute_z<=2)","1st keyword compute_z","spteqr:compute_z=%d",compute_z)if (!((compute_z>=0) && (compute_z<=2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""spteqr:compute_z=%d", "(""(compute_z>=0) && (compute_z<=2)" ") failed for ""1st keyword compute_z", compute_z); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 63117 | /* Processing variable d */ | |||
| 63118 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 63119 | ; | |||
| 63120 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 63121 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 63122 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 63123 | if (!PyErr_Occurred()) | |||
| 63124 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.spteqr to C/Fortran array" ); | |||
| 63125 | } else { | |||
| 63126 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 63127 | ||||
| 63128 | /* Processing variable info */ | |||
| 63129 | /* Processing variable n */ | |||
| 63130 | n = len(d)d_Dims[0]; | |||
| 63131 | /* Processing variable e */ | |||
| 63132 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 63133 | e_Dims[0]=(n>0?n-1:0); | |||
| 63134 | capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 63135 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 63136 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 63137 | if (!PyErr_Occurred()) | |||
| 63138 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.spteqr to C/Fortran array" ); | |||
| 63139 | } else { | |||
| 63140 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 63141 | ||||
| 63142 | /* Processing variable z */ | |||
| 63143 | capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32); | |||
| 63144 | z_Dims[0]=(compute_z==0?shape(z, 0)z_Dims[0]:max(1,n)((1 > n) ? (1) : (n))),z_Dims[1]=(compute_z==0?shape(z, 1)z_Dims[1]:n); | |||
| 63145 | capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 63146 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 63147 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 63148 | if (!PyErr_Occurred()) | |||
| 63149 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `z' of _flapack.spteqr to C/Fortran array" ); | |||
| 63150 | } else { | |||
| 63151 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 63152 | ||||
| 63153 | /* Processing variable ldz */ | |||
| 63154 | ldz = (compute_z==0)?1:max(1, shape(z, 0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 63155 | /* Processing variable work */ | |||
| 63156 | work_Dims[0]=4 * n; | |||
| 63157 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 63158 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 63159 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 63160 | if (!PyErr_Occurred()) | |||
| 63161 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.spteqr to C/Fortran array" ); | |||
| 63162 | } else { | |||
| 63163 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 63164 | ||||
| 63165 | /*end of frompyobj*/ | |||
| 63166 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63167 | f2py_start_call_clock(); | |||
| 63168 | #endif | |||
| 63169 | /*callfortranroutine*/ | |||
| 63170 | (*f2py_func)((compute_z?(compute_z==2?"I":"V"):"N"), &n, d, e, z, &ldz, work, &info) ; | |||
| 63171 | /*(*f2py_func)(&compute_z,&n,d,e,z,&ldz,work,&info);*/ | |||
| 63172 | if (PyErr_Occurred()) | |||
| 63173 | f2py_success = 0; | |||
| 63174 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63175 | f2py_stop_call_clock(); | |||
| 63176 | #endif | |||
| 63177 | /*end of callfortranroutine*/ | |||
| 63178 | if (f2py_success) { | |||
| 63179 | /*pyobjfrom*/ | |||
| 63180 | /*end of pyobjfrom*/ | |||
| 63181 | CFUNCSMESS("Building return value.\n"); | |||
| 63182 | capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_z_tmp,info); | |||
| 63183 | /*closepyobjfrom*/ | |||
| 63184 | /*end of closepyobjfrom*/ | |||
| 63185 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 63186 | /*cleanupfrompyobj*/ | |||
| 63187 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 63188 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 63189 | /* End of cleaning variable work */ | |||
| 63190 | /* End of cleaning variable ldz */ | |||
| 63191 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 63192 | /* End of cleaning variable z */ | |||
| 63193 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 63194 | /* End of cleaning variable e */ | |||
| 63195 | /* End of cleaning variable n */ | |||
| 63196 | /* End of cleaning variable info */ | |||
| 63197 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 63198 | /* End of cleaning variable d */ | |||
| 63199 | } /*CHECKSCALAR((compute_z>=0) && (compute_z<=2))*/ | |||
| 63200 | } /*if (f2py_success) of compute_z*/ | |||
| 63201 | /* End of cleaning variable compute_z */ | |||
| 63202 | /*end of cleanupfrompyobj*/ | |||
| 63203 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 63204 | /*routdebugfailure*/ | |||
| 63205 | } else { | |||
| 63206 | /*routdebugleave*/ | |||
| 63207 | } | |||
| 63208 | CFUNCSMESS("Freeing memory.\n"); | |||
| 63209 | /*freemem*/ | |||
| 63210 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63211 | f2py_stop_clock(); | |||
| 63212 | #endif | |||
| 63213 | return capi_buildvalue; | |||
| 63214 | } | |||
| 63215 | /******************************* end of spteqr *******************************/ | |||
| 63216 | ||||
| 63217 | /*********************************** dpteqr ***********************************/ | |||
| 63218 | static char doc_f2py_rout__flapack_dpteqr[] = "\ | |||
| 63219 | d,e,z,info = dpteqr(d,e,z,[compute_z,overwrite_d,overwrite_e,overwrite_z])\n\nWrapper for ``dpteqr``.\ | |||
| 63220 | \n\nParameters\n----------\n" | |||
| 63221 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 63222 | "e : input rank-1 array('d') with bounds ((n>0?n-1:0))\n" | |||
| 63223 | "z : input rank-2 array('d') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n" | |||
| 63224 | "\nOther Parameters\n----------------\n" | |||
| 63225 | "compute_z : input int, optional\n Default: 0\n" | |||
| 63226 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 63227 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 63228 | "overwrite_z : input int, optional\n Default: 0\n" | |||
| 63229 | "\nReturns\n-------\n" | |||
| 63230 | "d : rank-1 array('d') with bounds (n)\n" | |||
| 63231 | "e : rank-1 array('d') with bounds ((n>0?n-1:0))\n" | |||
| 63232 | "z : rank-2 array('d') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n" | |||
| 63233 | "info : int"; | |||
| 63234 | /* extern void F_FUNC(dpteqr,DPTEQR)(char*, F_INT*, double*, double*, double*, F_INT*, double*, F_INT* ); */ | |||
| 63235 | static PyObject *f2py_rout__flapack_dpteqr(const PyObject *capi_self, | |||
| 63236 | PyObject *capi_args, | |||
| 63237 | PyObject *capi_keywds, | |||
| 63238 | void (*f2py_func)(char*, F_INTint*, double*, double*, double*, F_INTint*, double*, F_INTint* )) { | |||
| 63239 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 63240 | volatile int f2py_success = 1; | |||
| 63241 | /*decl*/ | |||
| 63242 | ||||
| 63243 | int compute_z = 0; | |||
| 63244 | PyObject *compute_z_capi = Py_None(&_Py_NoneStruct); | |||
| 63245 | int n = 0; | |||
| 63246 | double *d = NULL((void*)0); | |||
| 63247 | npy_intp d_Dims[1] = {-1}; | |||
| 63248 | const int d_Rank = 1; | |||
| 63249 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 63250 | int capi_d_intent = 0; | |||
| 63251 | int capi_overwrite_d = 0; | |||
| 63252 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 63253 | double *e = NULL((void*)0); | |||
| 63254 | npy_intp e_Dims[1] = {-1}; | |||
| 63255 | const int e_Rank = 1; | |||
| 63256 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 63257 | int capi_e_intent = 0; | |||
| 63258 | int capi_overwrite_e = 0; | |||
| 63259 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 63260 | double *z = NULL((void*)0); | |||
| 63261 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 63262 | const int z_Rank = 2; | |||
| 63263 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 63264 | int capi_z_intent = 0; | |||
| 63265 | int capi_overwrite_z = 0; | |||
| 63266 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 63267 | int ldz = 0; | |||
| 63268 | double *work = NULL((void*)0); | |||
| 63269 | npy_intp work_Dims[1] = {-1}; | |||
| 63270 | const int work_Rank = 1; | |||
| 63271 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 63272 | int capi_work_intent = 0; | |||
| 63273 | int info = 0; | |||
| 63274 | static char *capi_kwlist[] = {"d","e","z","compute_z","overwrite_d","overwrite_e","overwrite_z",NULL((void*)0)}; | |||
| 63275 | ||||
| 63276 | /*routdebugenter*/ | |||
| 63277 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63278 | f2py_start_clock(); | |||
| 63279 | #endif | |||
| 63280 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 63281 | "OOO|Oiii:_flapack.dpteqr",\ | |||
| 63282 | capi_kwlist,&d_capi,&e_capi,&z_capi,&compute_z_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_z)) | |||
| 63283 | return NULL((void*)0); | |||
| 63284 | /*frompyobj*/ | |||
| 63285 | /* Processing variable compute_z */ | |||
| 63286 | if (compute_z_capi == Py_None(&_Py_NoneStruct)) compute_z = 0; else | |||
| 63287 | f2py_success = int_from_pyobj(&compute_z,compute_z_capi,"_flapack.dpteqr() 1st keyword (compute_z) can't be converted to int"); | |||
| 63288 | if (f2py_success) { | |||
| 63289 | CHECKSCALAR((compute_z>=0) && (compute_z<=2),"(compute_z>=0) && (compute_z<=2)","1st keyword compute_z","dpteqr:compute_z=%d",compute_z)if (!((compute_z>=0) && (compute_z<=2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dpteqr:compute_z=%d", "(""(compute_z>=0) && (compute_z<=2)" ") failed for ""1st keyword compute_z", compute_z); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 63290 | /* Processing variable d */ | |||
| 63291 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 63292 | ; | |||
| 63293 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 63294 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 63295 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 63296 | if (!PyErr_Occurred()) | |||
| 63297 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dpteqr to C/Fortran array" ); | |||
| 63298 | } else { | |||
| 63299 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 63300 | ||||
| 63301 | /* Processing variable info */ | |||
| 63302 | /* Processing variable n */ | |||
| 63303 | n = len(d)d_Dims[0]; | |||
| 63304 | /* Processing variable e */ | |||
| 63305 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 63306 | e_Dims[0]=(n>0?n-1:0); | |||
| 63307 | capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 63308 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 63309 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 63310 | if (!PyErr_Occurred()) | |||
| 63311 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dpteqr to C/Fortran array" ); | |||
| 63312 | } else { | |||
| 63313 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 63314 | ||||
| 63315 | /* Processing variable z */ | |||
| 63316 | capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32); | |||
| 63317 | z_Dims[0]=(compute_z==0?shape(z, 0)z_Dims[0]:max(1,n)((1 > n) ? (1) : (n))),z_Dims[1]=(compute_z==0?shape(z, 1)z_Dims[1]:n); | |||
| 63318 | capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 63319 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 63320 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 63321 | if (!PyErr_Occurred()) | |||
| 63322 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `z' of _flapack.dpteqr to C/Fortran array" ); | |||
| 63323 | } else { | |||
| 63324 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 63325 | ||||
| 63326 | /* Processing variable ldz */ | |||
| 63327 | ldz = (compute_z==0)?1:max(1, shape(z, 0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 63328 | /* Processing variable work */ | |||
| 63329 | work_Dims[0]=4 * n; | |||
| 63330 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 63331 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 63332 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 63333 | if (!PyErr_Occurred()) | |||
| 63334 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dpteqr to C/Fortran array" ); | |||
| 63335 | } else { | |||
| 63336 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 63337 | ||||
| 63338 | /*end of frompyobj*/ | |||
| 63339 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63340 | f2py_start_call_clock(); | |||
| 63341 | #endif | |||
| 63342 | /*callfortranroutine*/ | |||
| 63343 | (*f2py_func)((compute_z?(compute_z==2?"I":"V"):"N"), &n, d, e, z, &ldz, work, &info) ; | |||
| 63344 | /*(*f2py_func)(&compute_z,&n,d,e,z,&ldz,work,&info);*/ | |||
| 63345 | if (PyErr_Occurred()) | |||
| 63346 | f2py_success = 0; | |||
| 63347 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63348 | f2py_stop_call_clock(); | |||
| 63349 | #endif | |||
| 63350 | /*end of callfortranroutine*/ | |||
| 63351 | if (f2py_success) { | |||
| 63352 | /*pyobjfrom*/ | |||
| 63353 | /*end of pyobjfrom*/ | |||
| 63354 | CFUNCSMESS("Building return value.\n"); | |||
| 63355 | capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_z_tmp,info); | |||
| 63356 | /*closepyobjfrom*/ | |||
| 63357 | /*end of closepyobjfrom*/ | |||
| 63358 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 63359 | /*cleanupfrompyobj*/ | |||
| 63360 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 63361 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 63362 | /* End of cleaning variable work */ | |||
| 63363 | /* End of cleaning variable ldz */ | |||
| 63364 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 63365 | /* End of cleaning variable z */ | |||
| 63366 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 63367 | /* End of cleaning variable e */ | |||
| 63368 | /* End of cleaning variable n */ | |||
| 63369 | /* End of cleaning variable info */ | |||
| 63370 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 63371 | /* End of cleaning variable d */ | |||
| 63372 | } /*CHECKSCALAR((compute_z>=0) && (compute_z<=2))*/ | |||
| 63373 | } /*if (f2py_success) of compute_z*/ | |||
| 63374 | /* End of cleaning variable compute_z */ | |||
| 63375 | /*end of cleanupfrompyobj*/ | |||
| 63376 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 63377 | /*routdebugfailure*/ | |||
| 63378 | } else { | |||
| 63379 | /*routdebugleave*/ | |||
| 63380 | } | |||
| 63381 | CFUNCSMESS("Freeing memory.\n"); | |||
| 63382 | /*freemem*/ | |||
| 63383 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63384 | f2py_stop_clock(); | |||
| 63385 | #endif | |||
| 63386 | return capi_buildvalue; | |||
| 63387 | } | |||
| 63388 | /******************************* end of dpteqr *******************************/ | |||
| 63389 | ||||
| 63390 | /*********************************** cpteqr ***********************************/ | |||
| 63391 | static char doc_f2py_rout__flapack_cpteqr[] = "\ | |||
| 63392 | d,e,z,info = cpteqr(d,e,z,[compute_z,overwrite_d,overwrite_e,overwrite_z])\n\nWrapper for ``cpteqr``.\ | |||
| 63393 | \n\nParameters\n----------\n" | |||
| 63394 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 63395 | "e : input rank-1 array('f') with bounds ((n>0?n-1:0))\n" | |||
| 63396 | "z : input rank-2 array('F') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n" | |||
| 63397 | "\nOther Parameters\n----------------\n" | |||
| 63398 | "compute_z : input int, optional\n Default: 0\n" | |||
| 63399 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 63400 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 63401 | "overwrite_z : input int, optional\n Default: 0\n" | |||
| 63402 | "\nReturns\n-------\n" | |||
| 63403 | "d : rank-1 array('f') with bounds (n)\n" | |||
| 63404 | "e : rank-1 array('f') with bounds ((n>0?n-1:0))\n" | |||
| 63405 | "z : rank-2 array('F') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n" | |||
| 63406 | "info : int"; | |||
| 63407 | /* extern void F_FUNC(cpteqr,CPTEQR)(char*, F_INT*, float*, float*, complex_float*, F_INT*, float*, F_INT* ); */ | |||
| 63408 | static PyObject *f2py_rout__flapack_cpteqr(const PyObject *capi_self, | |||
| 63409 | PyObject *capi_args, | |||
| 63410 | PyObject *capi_keywds, | |||
| 63411 | void (*f2py_func)(char*, F_INTint*, float*, float*, complex_float*, F_INTint*, float*, F_INTint* )) { | |||
| 63412 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 63413 | volatile int f2py_success = 1; | |||
| 63414 | /*decl*/ | |||
| 63415 | ||||
| 63416 | int compute_z = 0; | |||
| 63417 | PyObject *compute_z_capi = Py_None(&_Py_NoneStruct); | |||
| 63418 | int n = 0; | |||
| 63419 | float *d = NULL((void*)0); | |||
| 63420 | npy_intp d_Dims[1] = {-1}; | |||
| 63421 | const int d_Rank = 1; | |||
| 63422 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 63423 | int capi_d_intent = 0; | |||
| 63424 | int capi_overwrite_d = 0; | |||
| 63425 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 63426 | float *e = NULL((void*)0); | |||
| 63427 | npy_intp e_Dims[1] = {-1}; | |||
| 63428 | const int e_Rank = 1; | |||
| 63429 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 63430 | int capi_e_intent = 0; | |||
| 63431 | int capi_overwrite_e = 0; | |||
| 63432 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 63433 | complex_float *z = NULL((void*)0); | |||
| 63434 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 63435 | const int z_Rank = 2; | |||
| 63436 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 63437 | int capi_z_intent = 0; | |||
| 63438 | int capi_overwrite_z = 0; | |||
| 63439 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 63440 | int ldz = 0; | |||
| 63441 | float *work = NULL((void*)0); | |||
| 63442 | npy_intp work_Dims[1] = {-1}; | |||
| 63443 | const int work_Rank = 1; | |||
| 63444 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 63445 | int capi_work_intent = 0; | |||
| 63446 | int info = 0; | |||
| 63447 | static char *capi_kwlist[] = {"d","e","z","compute_z","overwrite_d","overwrite_e","overwrite_z",NULL((void*)0)}; | |||
| 63448 | ||||
| 63449 | /*routdebugenter*/ | |||
| 63450 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63451 | f2py_start_clock(); | |||
| 63452 | #endif | |||
| 63453 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 63454 | "OOO|Oiii:_flapack.cpteqr",\ | |||
| 63455 | capi_kwlist,&d_capi,&e_capi,&z_capi,&compute_z_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_z)) | |||
| 63456 | return NULL((void*)0); | |||
| 63457 | /*frompyobj*/ | |||
| 63458 | /* Processing variable compute_z */ | |||
| 63459 | if (compute_z_capi == Py_None(&_Py_NoneStruct)) compute_z = 0; else | |||
| 63460 | f2py_success = int_from_pyobj(&compute_z,compute_z_capi,"_flapack.cpteqr() 1st keyword (compute_z) can't be converted to int"); | |||
| 63461 | if (f2py_success) { | |||
| 63462 | CHECKSCALAR((compute_z>=0) && (compute_z<=2),"(compute_z>=0) && (compute_z<=2)","1st keyword compute_z","cpteqr:compute_z=%d",compute_z)if (!((compute_z>=0) && (compute_z<=2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cpteqr:compute_z=%d", "(""(compute_z>=0) && (compute_z<=2)" ") failed for ""1st keyword compute_z", compute_z); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 63463 | /* Processing variable d */ | |||
| 63464 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 63465 | ; | |||
| 63466 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 63467 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 63468 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 63469 | if (!PyErr_Occurred()) | |||
| 63470 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.cpteqr to C/Fortran array" ); | |||
| 63471 | } else { | |||
| 63472 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 63473 | ||||
| 63474 | /* Processing variable info */ | |||
| 63475 | /* Processing variable n */ | |||
| 63476 | n = len(d)d_Dims[0]; | |||
| 63477 | /* Processing variable e */ | |||
| 63478 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 63479 | e_Dims[0]=(n>0?n-1:0); | |||
| 63480 | capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 63481 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 63482 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 63483 | if (!PyErr_Occurred()) | |||
| 63484 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.cpteqr to C/Fortran array" ); | |||
| 63485 | } else { | |||
| 63486 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 63487 | ||||
| 63488 | /* Processing variable z */ | |||
| 63489 | capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32); | |||
| 63490 | z_Dims[0]=(compute_z==0?shape(z, 0)z_Dims[0]:max(1,n)((1 > n) ? (1) : (n))),z_Dims[1]=(compute_z==0?shape(z, 1)z_Dims[1]:n); | |||
| 63491 | capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 63492 | capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 63493 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 63494 | if (!PyErr_Occurred()) | |||
| 63495 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `z' of _flapack.cpteqr to C/Fortran array" ); | |||
| 63496 | } else { | |||
| 63497 | z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 63498 | ||||
| 63499 | /* Processing variable ldz */ | |||
| 63500 | ldz = (compute_z==0)?1:max(1, shape(z, 0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 63501 | /* Processing variable work */ | |||
| 63502 | work_Dims[0]=4 * n; | |||
| 63503 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 63504 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 63505 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 63506 | if (!PyErr_Occurred()) | |||
| 63507 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cpteqr to C/Fortran array" ); | |||
| 63508 | } else { | |||
| 63509 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 63510 | ||||
| 63511 | /*end of frompyobj*/ | |||
| 63512 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63513 | f2py_start_call_clock(); | |||
| 63514 | #endif | |||
| 63515 | /*callfortranroutine*/ | |||
| 63516 | (*f2py_func)((compute_z?(compute_z==2?"I":"V"):"N"), &n, d, e, z, &ldz, work, &info) ; | |||
| 63517 | /*(*f2py_func)(&compute_z,&n,d,e,z,&ldz,work,&info);*/ | |||
| 63518 | if (PyErr_Occurred()) | |||
| 63519 | f2py_success = 0; | |||
| 63520 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63521 | f2py_stop_call_clock(); | |||
| 63522 | #endif | |||
| 63523 | /*end of callfortranroutine*/ | |||
| 63524 | if (f2py_success) { | |||
| 63525 | /*pyobjfrom*/ | |||
| 63526 | /*end of pyobjfrom*/ | |||
| 63527 | CFUNCSMESS("Building return value.\n"); | |||
| 63528 | capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_z_tmp,info); | |||
| 63529 | /*closepyobjfrom*/ | |||
| 63530 | /*end of closepyobjfrom*/ | |||
| 63531 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 63532 | /*cleanupfrompyobj*/ | |||
| 63533 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 63534 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 63535 | /* End of cleaning variable work */ | |||
| 63536 | /* End of cleaning variable ldz */ | |||
| 63537 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 63538 | /* End of cleaning variable z */ | |||
| 63539 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 63540 | /* End of cleaning variable e */ | |||
| 63541 | /* End of cleaning variable n */ | |||
| 63542 | /* End of cleaning variable info */ | |||
| 63543 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 63544 | /* End of cleaning variable d */ | |||
| 63545 | } /*CHECKSCALAR((compute_z>=0) && (compute_z<=2))*/ | |||
| 63546 | } /*if (f2py_success) of compute_z*/ | |||
| 63547 | /* End of cleaning variable compute_z */ | |||
| 63548 | /*end of cleanupfrompyobj*/ | |||
| 63549 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 63550 | /*routdebugfailure*/ | |||
| 63551 | } else { | |||
| 63552 | /*routdebugleave*/ | |||
| 63553 | } | |||
| 63554 | CFUNCSMESS("Freeing memory.\n"); | |||
| 63555 | /*freemem*/ | |||
| 63556 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63557 | f2py_stop_clock(); | |||
| 63558 | #endif | |||
| 63559 | return capi_buildvalue; | |||
| 63560 | } | |||
| 63561 | /******************************* end of cpteqr *******************************/ | |||
| 63562 | ||||
| 63563 | /*********************************** zpteqr ***********************************/ | |||
| 63564 | static char doc_f2py_rout__flapack_zpteqr[] = "\ | |||
| 63565 | d,e,z,info = zpteqr(d,e,z,[compute_z,overwrite_d,overwrite_e,overwrite_z])\n\nWrapper for ``zpteqr``.\ | |||
| 63566 | \n\nParameters\n----------\n" | |||
| 63567 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 63568 | "e : input rank-1 array('d') with bounds ((n>0?n-1:0))\n" | |||
| 63569 | "z : input rank-2 array('D') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n" | |||
| 63570 | "\nOther Parameters\n----------------\n" | |||
| 63571 | "compute_z : input int, optional\n Default: 0\n" | |||
| 63572 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 63573 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 63574 | "overwrite_z : input int, optional\n Default: 0\n" | |||
| 63575 | "\nReturns\n-------\n" | |||
| 63576 | "d : rank-1 array('d') with bounds (n)\n" | |||
| 63577 | "e : rank-1 array('d') with bounds ((n>0?n-1:0))\n" | |||
| 63578 | "z : rank-2 array('D') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n" | |||
| 63579 | "info : int"; | |||
| 63580 | /* extern void F_FUNC(zpteqr,ZPTEQR)(char*, F_INT*, double*, double*, complex_double*, F_INT*, double*, F_INT* ); */ | |||
| 63581 | static PyObject *f2py_rout__flapack_zpteqr(const PyObject *capi_self, | |||
| 63582 | PyObject *capi_args, | |||
| 63583 | PyObject *capi_keywds, | |||
| 63584 | void (*f2py_func)(char*, F_INTint*, double*, double*, complex_double*, F_INTint*, double*, F_INTint* )) { | |||
| 63585 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 63586 | volatile int f2py_success = 1; | |||
| 63587 | /*decl*/ | |||
| 63588 | ||||
| 63589 | int compute_z = 0; | |||
| 63590 | PyObject *compute_z_capi = Py_None(&_Py_NoneStruct); | |||
| 63591 | int n = 0; | |||
| 63592 | double *d = NULL((void*)0); | |||
| 63593 | npy_intp d_Dims[1] = {-1}; | |||
| 63594 | const int d_Rank = 1; | |||
| 63595 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 63596 | int capi_d_intent = 0; | |||
| 63597 | int capi_overwrite_d = 0; | |||
| 63598 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 63599 | double *e = NULL((void*)0); | |||
| 63600 | npy_intp e_Dims[1] = {-1}; | |||
| 63601 | const int e_Rank = 1; | |||
| 63602 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 63603 | int capi_e_intent = 0; | |||
| 63604 | int capi_overwrite_e = 0; | |||
| 63605 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 63606 | complex_double *z = NULL((void*)0); | |||
| 63607 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 63608 | const int z_Rank = 2; | |||
| 63609 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 63610 | int capi_z_intent = 0; | |||
| 63611 | int capi_overwrite_z = 0; | |||
| 63612 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 63613 | int ldz = 0; | |||
| 63614 | double *work = NULL((void*)0); | |||
| 63615 | npy_intp work_Dims[1] = {-1}; | |||
| 63616 | const int work_Rank = 1; | |||
| 63617 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 63618 | int capi_work_intent = 0; | |||
| 63619 | int info = 0; | |||
| 63620 | static char *capi_kwlist[] = {"d","e","z","compute_z","overwrite_d","overwrite_e","overwrite_z",NULL((void*)0)}; | |||
| 63621 | ||||
| 63622 | /*routdebugenter*/ | |||
| 63623 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63624 | f2py_start_clock(); | |||
| 63625 | #endif | |||
| 63626 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 63627 | "OOO|Oiii:_flapack.zpteqr",\ | |||
| 63628 | capi_kwlist,&d_capi,&e_capi,&z_capi,&compute_z_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_z)) | |||
| 63629 | return NULL((void*)0); | |||
| 63630 | /*frompyobj*/ | |||
| 63631 | /* Processing variable compute_z */ | |||
| 63632 | if (compute_z_capi == Py_None(&_Py_NoneStruct)) compute_z = 0; else | |||
| 63633 | f2py_success = int_from_pyobj(&compute_z,compute_z_capi,"_flapack.zpteqr() 1st keyword (compute_z) can't be converted to int"); | |||
| 63634 | if (f2py_success) { | |||
| 63635 | CHECKSCALAR((compute_z>=0) && (compute_z<=2),"(compute_z>=0) && (compute_z<=2)","1st keyword compute_z","zpteqr:compute_z=%d",compute_z)if (!((compute_z>=0) && (compute_z<=2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zpteqr:compute_z=%d", "(""(compute_z>=0) && (compute_z<=2)" ") failed for ""1st keyword compute_z", compute_z); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 63636 | /* Processing variable d */ | |||
| 63637 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 63638 | ; | |||
| 63639 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 63640 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 63641 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 63642 | if (!PyErr_Occurred()) | |||
| 63643 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.zpteqr to C/Fortran array" ); | |||
| 63644 | } else { | |||
| 63645 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 63646 | ||||
| 63647 | /* Processing variable info */ | |||
| 63648 | /* Processing variable n */ | |||
| 63649 | n = len(d)d_Dims[0]; | |||
| 63650 | /* Processing variable e */ | |||
| 63651 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 63652 | e_Dims[0]=(n>0?n-1:0); | |||
| 63653 | capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 63654 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 63655 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 63656 | if (!PyErr_Occurred()) | |||
| 63657 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.zpteqr to C/Fortran array" ); | |||
| 63658 | } else { | |||
| 63659 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 63660 | ||||
| 63661 | /* Processing variable z */ | |||
| 63662 | capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32); | |||
| 63663 | z_Dims[0]=(compute_z==0?shape(z, 0)z_Dims[0]:max(1,n)((1 > n) ? (1) : (n))),z_Dims[1]=(compute_z==0?shape(z, 1)z_Dims[1]:n); | |||
| 63664 | capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 63665 | capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 63666 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 63667 | if (!PyErr_Occurred()) | |||
| 63668 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `z' of _flapack.zpteqr to C/Fortran array" ); | |||
| 63669 | } else { | |||
| 63670 | z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 63671 | ||||
| 63672 | /* Processing variable ldz */ | |||
| 63673 | ldz = (compute_z==0)?1:max(1, shape(z, 0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 63674 | /* Processing variable work */ | |||
| 63675 | work_Dims[0]=4 * n; | |||
| 63676 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 63677 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 63678 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 63679 | if (!PyErr_Occurred()) | |||
| 63680 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zpteqr to C/Fortran array" ); | |||
| 63681 | } else { | |||
| 63682 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 63683 | ||||
| 63684 | /*end of frompyobj*/ | |||
| 63685 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63686 | f2py_start_call_clock(); | |||
| 63687 | #endif | |||
| 63688 | /*callfortranroutine*/ | |||
| 63689 | (*f2py_func)((compute_z?(compute_z==2?"I":"V"):"N"), &n, d, e, z, &ldz, work, &info) ; | |||
| 63690 | /*(*f2py_func)(&compute_z,&n,d,e,z,&ldz,work,&info);*/ | |||
| 63691 | if (PyErr_Occurred()) | |||
| 63692 | f2py_success = 0; | |||
| 63693 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63694 | f2py_stop_call_clock(); | |||
| 63695 | #endif | |||
| 63696 | /*end of callfortranroutine*/ | |||
| 63697 | if (f2py_success) { | |||
| 63698 | /*pyobjfrom*/ | |||
| 63699 | /*end of pyobjfrom*/ | |||
| 63700 | CFUNCSMESS("Building return value.\n"); | |||
| 63701 | capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_z_tmp,info); | |||
| 63702 | /*closepyobjfrom*/ | |||
| 63703 | /*end of closepyobjfrom*/ | |||
| 63704 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 63705 | /*cleanupfrompyobj*/ | |||
| 63706 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 63707 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 63708 | /* End of cleaning variable work */ | |||
| 63709 | /* End of cleaning variable ldz */ | |||
| 63710 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 63711 | /* End of cleaning variable z */ | |||
| 63712 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 63713 | /* End of cleaning variable e */ | |||
| 63714 | /* End of cleaning variable n */ | |||
| 63715 | /* End of cleaning variable info */ | |||
| 63716 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 63717 | /* End of cleaning variable d */ | |||
| 63718 | } /*CHECKSCALAR((compute_z>=0) && (compute_z<=2))*/ | |||
| 63719 | } /*if (f2py_success) of compute_z*/ | |||
| 63720 | /* End of cleaning variable compute_z */ | |||
| 63721 | /*end of cleanupfrompyobj*/ | |||
| 63722 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 63723 | /*routdebugfailure*/ | |||
| 63724 | } else { | |||
| 63725 | /*routdebugleave*/ | |||
| 63726 | } | |||
| 63727 | CFUNCSMESS("Freeing memory.\n"); | |||
| 63728 | /*freemem*/ | |||
| 63729 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63730 | f2py_stop_clock(); | |||
| 63731 | #endif | |||
| 63732 | return capi_buildvalue; | |||
| 63733 | } | |||
| 63734 | /******************************* end of zpteqr *******************************/ | |||
| 63735 | ||||
| 63736 | /*********************************** sptsvx ***********************************/ | |||
| 63737 | static char doc_f2py_rout__flapack_sptsvx[] = "\ | |||
| 63738 | df,ef,x,rcond,ferr,berr,info = sptsvx(d,e,b,[fact,df,ef])\n\nWrapper for ``sptsvx``.\ | |||
| 63739 | \n\nParameters\n----------\n" | |||
| 63740 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 63741 | "e : input rank-1 array('f') with bounds (max(0, n-1))\n" | |||
| 63742 | "b : input rank-2 array('f') with bounds (ldb,nrhs)\n" | |||
| 63743 | "\nOther Parameters\n----------------\n" | |||
| 63744 | "fact : input string(len=1), optional\n Default: 'N'\n" | |||
| 63745 | "df : input rank-1 array('f') with bounds (n)\n" | |||
| 63746 | "ef : input rank-1 array('f') with bounds (max(0, n-1))\n" | |||
| 63747 | "\nReturns\n-------\n" | |||
| 63748 | "df : rank-1 array('f') with bounds (n)\n" | |||
| 63749 | "ef : rank-1 array('f') with bounds (max(0, n-1))\n" | |||
| 63750 | "x : rank-2 array('f') with bounds (ldx,nrhs)\n" | |||
| 63751 | "rcond : float\n" | |||
| 63752 | "ferr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 63753 | "berr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 63754 | "info : int"; | |||
| 63755 | /* extern void F_FUNC(sptsvx,SPTSVX)(char*, F_INT*, F_INT*, float*, float*, float*, float*, float*, F_INT*, float*, F_INT*, float*, float*, float*, float*, F_INT* ); */ | |||
| 63756 | static PyObject *f2py_rout__flapack_sptsvx(const PyObject *capi_self, | |||
| 63757 | PyObject *capi_args, | |||
| 63758 | PyObject *capi_keywds, | |||
| 63759 | void (*f2py_func)(char*, F_INTint*, F_INTint*, float*, float*, float*, float*, float*, F_INTint*, float*, F_INTint*, float*, float*, float*, float*, F_INTint* )) { | |||
| 63760 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 63761 | volatile int f2py_success = 1; | |||
| 63762 | /*decl*/ | |||
| 63763 | ||||
| 63764 | string fact = NULL((void*)0); | |||
| 63765 | int slen(fact)capi_fact_len; | |||
| 63766 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 63767 | int n = 0; | |||
| 63768 | int nrhs = 0; | |||
| 63769 | float *d = NULL((void*)0); | |||
| 63770 | npy_intp d_Dims[1] = {-1}; | |||
| 63771 | const int d_Rank = 1; | |||
| 63772 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 63773 | int capi_d_intent = 0; | |||
| 63774 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 63775 | float *e = NULL((void*)0); | |||
| 63776 | npy_intp e_Dims[1] = {-1}; | |||
| 63777 | const int e_Rank = 1; | |||
| 63778 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 63779 | int capi_e_intent = 0; | |||
| 63780 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 63781 | float *df = NULL((void*)0); | |||
| 63782 | npy_intp df_Dims[1] = {-1}; | |||
| 63783 | const int df_Rank = 1; | |||
| 63784 | PyArrayObject *capi_df_tmp = NULL((void*)0); | |||
| 63785 | int capi_df_intent = 0; | |||
| 63786 | PyObject *df_capi = Py_None(&_Py_NoneStruct); | |||
| 63787 | float *ef = NULL((void*)0); | |||
| 63788 | npy_intp ef_Dims[1] = {-1}; | |||
| 63789 | const int ef_Rank = 1; | |||
| 63790 | PyArrayObject *capi_ef_tmp = NULL((void*)0); | |||
| 63791 | int capi_ef_intent = 0; | |||
| 63792 | PyObject *ef_capi = Py_None(&_Py_NoneStruct); | |||
| 63793 | float *b = NULL((void*)0); | |||
| 63794 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 63795 | const int b_Rank = 2; | |||
| 63796 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 63797 | int capi_b_intent = 0; | |||
| 63798 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 63799 | int ldb = 0; | |||
| 63800 | float *x = NULL((void*)0); | |||
| 63801 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 63802 | const int x_Rank = 2; | |||
| 63803 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 63804 | int capi_x_intent = 0; | |||
| 63805 | int ldx = 0; | |||
| 63806 | float rcond = 0; | |||
| 63807 | float *ferr = NULL((void*)0); | |||
| 63808 | npy_intp ferr_Dims[1] = {-1}; | |||
| 63809 | const int ferr_Rank = 1; | |||
| 63810 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 63811 | int capi_ferr_intent = 0; | |||
| 63812 | float *berr = NULL((void*)0); | |||
| 63813 | npy_intp berr_Dims[1] = {-1}; | |||
| 63814 | const int berr_Rank = 1; | |||
| 63815 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 63816 | int capi_berr_intent = 0; | |||
| 63817 | float *work = NULL((void*)0); | |||
| 63818 | npy_intp work_Dims[1] = {-1}; | |||
| 63819 | const int work_Rank = 1; | |||
| 63820 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 63821 | int capi_work_intent = 0; | |||
| 63822 | int info = 0; | |||
| 63823 | static char *capi_kwlist[] = {"d","e","b","fact","df","ef",NULL((void*)0)}; | |||
| 63824 | ||||
| 63825 | /*routdebugenter*/ | |||
| 63826 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63827 | f2py_start_clock(); | |||
| 63828 | #endif | |||
| 63829 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 63830 | "OOO|OOO:_flapack.sptsvx",\ | |||
| 63831 | capi_kwlist,&d_capi,&e_capi,&b_capi,&fact_capi,&df_capi,&ef_capi)) | |||
| 63832 | return NULL((void*)0); | |||
| 63833 | /*frompyobj*/ | |||
| 63834 | /* Processing variable d */ | |||
| 63835 | ; | |||
| 63836 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 63837 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 63838 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 63839 | if (!PyErr_Occurred()) | |||
| 63840 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sptsvx to C/Fortran array" ); | |||
| 63841 | } else { | |||
| 63842 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 63843 | ||||
| 63844 | /* Processing variable rcond */ | |||
| 63845 | /* Processing variable info */ | |||
| 63846 | /* Processing variable n */ | |||
| 63847 | n = len(d)d_Dims[0]; | |||
| 63848 | /* Processing variable e */ | |||
| 63849 | e_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 63850 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 63851 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 63852 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 63853 | if (!PyErr_Occurred()) | |||
| 63854 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sptsvx to C/Fortran array" ); | |||
| 63855 | } else { | |||
| 63856 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 63857 | ||||
| 63858 | /* Processing variable df */ | |||
| 63859 | df_Dims[0]=n; | |||
| 63860 | capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 63861 | capi_df_tmp = array_from_pyobj(NPY_FLOAT,df_Dims,df_Rank,capi_df_intent,df_capi); | |||
| 63862 | if (capi_df_tmp == NULL((void*)0)) { | |||
| 63863 | if (!PyErr_Occurred()) | |||
| 63864 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `df' of _flapack.sptsvx to C/Fortran array" ); | |||
| 63865 | } else { | |||
| 63866 | df = (float *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data)); | |||
| 63867 | ||||
| 63868 | /* Processing variable ef */ | |||
| 63869 | ef_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 63870 | capi_ef_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 63871 | capi_ef_tmp = array_from_pyobj(NPY_FLOAT,ef_Dims,ef_Rank,capi_ef_intent,ef_capi); | |||
| 63872 | if (capi_ef_tmp == NULL((void*)0)) { | |||
| 63873 | if (!PyErr_Occurred()) | |||
| 63874 | PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `ef' of _flapack.sptsvx to C/Fortran array" ); | |||
| 63875 | } else { | |||
| 63876 | ef = (float *)(PyArray_DATA(capi_ef_tmp)((void *)((PyArrayObject_fields *)(capi_ef_tmp))->data)); | |||
| 63877 | ||||
| 63878 | /* Processing variable b */ | |||
| 63879 | ; | |||
| 63880 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 63881 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 63882 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 63883 | if (!PyErr_Occurred()) | |||
| 63884 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.sptsvx to C/Fortran array" ); | |||
| 63885 | } else { | |||
| 63886 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 63887 | ||||
| 63888 | CHECKARRAY(shape(b, 0) >= n,"shape(b, 0) >= n","3rd argument b")if (!(b_Dims[0] >= n)) { PyErr_SetString(_flapack_error,"(" "shape(b, 0) >= n"") failed for ""3rd argument b"); } else { | |||
| 63889 | /* Processing variable ldb */ | |||
| 63890 | ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 63891 | /* Processing variable ldx */ | |||
| 63892 | ldx = n; | |||
| 63893 | /* Processing variable work */ | |||
| 63894 | work_Dims[0]=2 * n; | |||
| 63895 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 63896 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 63897 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 63898 | if (!PyErr_Occurred()) | |||
| 63899 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sptsvx to C/Fortran array" ); | |||
| 63900 | } else { | |||
| 63901 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 63902 | ||||
| 63903 | /* Processing variable fact */ | |||
| 63904 | slen(fact)capi_fact_len = 1; | |||
| 63905 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.sptsvx to C string"); | |||
| 63906 | if (f2py_success) { | |||
| 63907 | /* Processing variable nrhs */ | |||
| 63908 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 63909 | /* Processing variable x */ | |||
| 63910 | x_Dims[0]=ldx,x_Dims[1]=nrhs; | |||
| 63911 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 63912 | capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 63913 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 63914 | if (!PyErr_Occurred()) | |||
| 63915 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.sptsvx to C/Fortran array" ); | |||
| 63916 | } else { | |||
| 63917 | x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 63918 | ||||
| 63919 | /* Processing variable ferr */ | |||
| 63920 | ferr_Dims[0]=nrhs; | |||
| 63921 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 63922 | capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 63923 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 63924 | if (!PyErr_Occurred()) | |||
| 63925 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.sptsvx to C/Fortran array" ); | |||
| 63926 | } else { | |||
| 63927 | ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 63928 | ||||
| 63929 | /* Processing variable berr */ | |||
| 63930 | berr_Dims[0]=nrhs; | |||
| 63931 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 63932 | capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 63933 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 63934 | if (!PyErr_Occurred()) | |||
| 63935 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.sptsvx to C/Fortran array" ); | |||
| 63936 | } else { | |||
| 63937 | berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 63938 | ||||
| 63939 | /*end of frompyobj*/ | |||
| 63940 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63941 | f2py_start_call_clock(); | |||
| 63942 | #endif | |||
| 63943 | /*callfortranroutine*/ | |||
| 63944 | (*f2py_func)(fact, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, &rcond, ferr, berr, work, &info) ; | |||
| 63945 | /*(*f2py_func)(fact,&n,&nrhs,d,e,df,ef,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&info,slen(fact));*/ | |||
| 63946 | if (PyErr_Occurred()) | |||
| 63947 | f2py_success = 0; | |||
| 63948 | #ifdef F2PY_REPORT_ATEXIT | |||
| 63949 | f2py_stop_call_clock(); | |||
| 63950 | #endif | |||
| 63951 | /*end of callfortranroutine*/ | |||
| 63952 | if (f2py_success) { | |||
| 63953 | /*pyobjfrom*/ | |||
| 63954 | /*end of pyobjfrom*/ | |||
| 63955 | CFUNCSMESS("Building return value.\n"); | |||
| 63956 | capi_buildvalue = Py_BuildValue("NNNfNNi",capi_df_tmp,capi_ef_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 63957 | /*closepyobjfrom*/ | |||
| 63958 | /*end of closepyobjfrom*/ | |||
| 63959 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 63960 | /*cleanupfrompyobj*/ | |||
| 63961 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 63962 | /* End of cleaning variable berr */ | |||
| 63963 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 63964 | /* End of cleaning variable ferr */ | |||
| 63965 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 63966 | /* End of cleaning variable x */ | |||
| 63967 | /* End of cleaning variable nrhs */ | |||
| 63968 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 63969 | } /*if (f2py_success) of fact*/ | |||
| 63970 | /* End of cleaning variable fact */ | |||
| 63971 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 63972 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 63973 | /* End of cleaning variable work */ | |||
| 63974 | /* End of cleaning variable ldx */ | |||
| 63975 | /* End of cleaning variable ldb */ | |||
| 63976 | } /*CHECKARRAY(shape(b, 0) >= n)*/ | |||
| 63977 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 63978 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 63979 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 63980 | /* End of cleaning variable b */ | |||
| 63981 | } /*if (capi_ef_tmp == NULL) ... else of ef*/ | |||
| 63982 | /* End of cleaning variable ef */ | |||
| 63983 | } /*if (capi_df_tmp == NULL) ... else of df*/ | |||
| 63984 | /* End of cleaning variable df */ | |||
| 63985 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 63986 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 63987 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 63988 | /* End of cleaning variable e */ | |||
| 63989 | /* End of cleaning variable n */ | |||
| 63990 | /* End of cleaning variable info */ | |||
| 63991 | /* End of cleaning variable rcond */ | |||
| 63992 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 63993 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 63994 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 63995 | /* End of cleaning variable d */ | |||
| 63996 | /*end of cleanupfrompyobj*/ | |||
| 63997 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 63998 | /*routdebugfailure*/ | |||
| 63999 | } else { | |||
| 64000 | /*routdebugleave*/ | |||
| 64001 | } | |||
| 64002 | CFUNCSMESS("Freeing memory.\n"); | |||
| 64003 | /*freemem*/ | |||
| 64004 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64005 | f2py_stop_clock(); | |||
| 64006 | #endif | |||
| 64007 | return capi_buildvalue; | |||
| 64008 | } | |||
| 64009 | /******************************* end of sptsvx *******************************/ | |||
| 64010 | ||||
| 64011 | /*********************************** dptsvx ***********************************/ | |||
| 64012 | static char doc_f2py_rout__flapack_dptsvx[] = "\ | |||
| 64013 | df,ef,x,rcond,ferr,berr,info = dptsvx(d,e,b,[fact,df,ef])\n\nWrapper for ``dptsvx``.\ | |||
| 64014 | \n\nParameters\n----------\n" | |||
| 64015 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 64016 | "e : input rank-1 array('d') with bounds (max(0, n-1))\n" | |||
| 64017 | "b : input rank-2 array('d') with bounds (ldb,nrhs)\n" | |||
| 64018 | "\nOther Parameters\n----------------\n" | |||
| 64019 | "fact : input string(len=1), optional\n Default: 'N'\n" | |||
| 64020 | "df : input rank-1 array('d') with bounds (n)\n" | |||
| 64021 | "ef : input rank-1 array('d') with bounds (max(0, n-1))\n" | |||
| 64022 | "\nReturns\n-------\n" | |||
| 64023 | "df : rank-1 array('d') with bounds (n)\n" | |||
| 64024 | "ef : rank-1 array('d') with bounds (max(0, n-1))\n" | |||
| 64025 | "x : rank-2 array('d') with bounds (ldx,nrhs)\n" | |||
| 64026 | "rcond : float\n" | |||
| 64027 | "ferr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 64028 | "berr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 64029 | "info : int"; | |||
| 64030 | /* extern void F_FUNC(dptsvx,DPTSVX)(char*, F_INT*, F_INT*, double*, double*, double*, double*, double*, F_INT*, double*, F_INT*, double*, double*, double*, double*, F_INT* ); */ | |||
| 64031 | static PyObject *f2py_rout__flapack_dptsvx(const PyObject *capi_self, | |||
| 64032 | PyObject *capi_args, | |||
| 64033 | PyObject *capi_keywds, | |||
| 64034 | void (*f2py_func)(char*, F_INTint*, F_INTint*, double*, double*, double*, double*, double*, F_INTint*, double*, F_INTint*, double*, double*, double*, double*, F_INTint* )) { | |||
| 64035 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 64036 | volatile int f2py_success = 1; | |||
| 64037 | /*decl*/ | |||
| 64038 | ||||
| 64039 | string fact = NULL((void*)0); | |||
| 64040 | int slen(fact)capi_fact_len; | |||
| 64041 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 64042 | int n = 0; | |||
| 64043 | int nrhs = 0; | |||
| 64044 | double *d = NULL((void*)0); | |||
| 64045 | npy_intp d_Dims[1] = {-1}; | |||
| 64046 | const int d_Rank = 1; | |||
| 64047 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 64048 | int capi_d_intent = 0; | |||
| 64049 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 64050 | double *e = NULL((void*)0); | |||
| 64051 | npy_intp e_Dims[1] = {-1}; | |||
| 64052 | const int e_Rank = 1; | |||
| 64053 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 64054 | int capi_e_intent = 0; | |||
| 64055 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 64056 | double *df = NULL((void*)0); | |||
| 64057 | npy_intp df_Dims[1] = {-1}; | |||
| 64058 | const int df_Rank = 1; | |||
| 64059 | PyArrayObject *capi_df_tmp = NULL((void*)0); | |||
| 64060 | int capi_df_intent = 0; | |||
| 64061 | PyObject *df_capi = Py_None(&_Py_NoneStruct); | |||
| 64062 | double *ef = NULL((void*)0); | |||
| 64063 | npy_intp ef_Dims[1] = {-1}; | |||
| 64064 | const int ef_Rank = 1; | |||
| 64065 | PyArrayObject *capi_ef_tmp = NULL((void*)0); | |||
| 64066 | int capi_ef_intent = 0; | |||
| 64067 | PyObject *ef_capi = Py_None(&_Py_NoneStruct); | |||
| 64068 | double *b = NULL((void*)0); | |||
| 64069 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 64070 | const int b_Rank = 2; | |||
| 64071 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 64072 | int capi_b_intent = 0; | |||
| 64073 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 64074 | int ldb = 0; | |||
| 64075 | double *x = NULL((void*)0); | |||
| 64076 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 64077 | const int x_Rank = 2; | |||
| 64078 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 64079 | int capi_x_intent = 0; | |||
| 64080 | int ldx = 0; | |||
| 64081 | double rcond = 0; | |||
| 64082 | double *ferr = NULL((void*)0); | |||
| 64083 | npy_intp ferr_Dims[1] = {-1}; | |||
| 64084 | const int ferr_Rank = 1; | |||
| 64085 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 64086 | int capi_ferr_intent = 0; | |||
| 64087 | double *berr = NULL((void*)0); | |||
| 64088 | npy_intp berr_Dims[1] = {-1}; | |||
| 64089 | const int berr_Rank = 1; | |||
| 64090 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 64091 | int capi_berr_intent = 0; | |||
| 64092 | double *work = NULL((void*)0); | |||
| 64093 | npy_intp work_Dims[1] = {-1}; | |||
| 64094 | const int work_Rank = 1; | |||
| 64095 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 64096 | int capi_work_intent = 0; | |||
| 64097 | int info = 0; | |||
| 64098 | static char *capi_kwlist[] = {"d","e","b","fact","df","ef",NULL((void*)0)}; | |||
| 64099 | ||||
| 64100 | /*routdebugenter*/ | |||
| 64101 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64102 | f2py_start_clock(); | |||
| 64103 | #endif | |||
| 64104 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 64105 | "OOO|OOO:_flapack.dptsvx",\ | |||
| 64106 | capi_kwlist,&d_capi,&e_capi,&b_capi,&fact_capi,&df_capi,&ef_capi)) | |||
| 64107 | return NULL((void*)0); | |||
| 64108 | /*frompyobj*/ | |||
| 64109 | /* Processing variable d */ | |||
| 64110 | ; | |||
| 64111 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 64112 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 64113 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 64114 | if (!PyErr_Occurred()) | |||
| 64115 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dptsvx to C/Fortran array" ); | |||
| 64116 | } else { | |||
| 64117 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 64118 | ||||
| 64119 | /* Processing variable rcond */ | |||
| 64120 | /* Processing variable info */ | |||
| 64121 | /* Processing variable n */ | |||
| 64122 | n = len(d)d_Dims[0]; | |||
| 64123 | /* Processing variable e */ | |||
| 64124 | e_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 64125 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 64126 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 64127 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 64128 | if (!PyErr_Occurred()) | |||
| 64129 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dptsvx to C/Fortran array" ); | |||
| 64130 | } else { | |||
| 64131 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 64132 | ||||
| 64133 | /* Processing variable df */ | |||
| 64134 | df_Dims[0]=n; | |||
| 64135 | capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 64136 | capi_df_tmp = array_from_pyobj(NPY_DOUBLE,df_Dims,df_Rank,capi_df_intent,df_capi); | |||
| 64137 | if (capi_df_tmp == NULL((void*)0)) { | |||
| 64138 | if (!PyErr_Occurred()) | |||
| 64139 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `df' of _flapack.dptsvx to C/Fortran array" ); | |||
| 64140 | } else { | |||
| 64141 | df = (double *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data)); | |||
| 64142 | ||||
| 64143 | /* Processing variable ef */ | |||
| 64144 | ef_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 64145 | capi_ef_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 64146 | capi_ef_tmp = array_from_pyobj(NPY_DOUBLE,ef_Dims,ef_Rank,capi_ef_intent,ef_capi); | |||
| 64147 | if (capi_ef_tmp == NULL((void*)0)) { | |||
| 64148 | if (!PyErr_Occurred()) | |||
| 64149 | PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `ef' of _flapack.dptsvx to C/Fortran array" ); | |||
| 64150 | } else { | |||
| 64151 | ef = (double *)(PyArray_DATA(capi_ef_tmp)((void *)((PyArrayObject_fields *)(capi_ef_tmp))->data)); | |||
| 64152 | ||||
| 64153 | /* Processing variable b */ | |||
| 64154 | ; | |||
| 64155 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 64156 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 64157 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 64158 | if (!PyErr_Occurred()) | |||
| 64159 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dptsvx to C/Fortran array" ); | |||
| 64160 | } else { | |||
| 64161 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 64162 | ||||
| 64163 | CHECKARRAY(shape(b, 0) >= n,"shape(b, 0) >= n","3rd argument b")if (!(b_Dims[0] >= n)) { PyErr_SetString(_flapack_error,"(" "shape(b, 0) >= n"") failed for ""3rd argument b"); } else { | |||
| 64164 | /* Processing variable ldb */ | |||
| 64165 | ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 64166 | /* Processing variable ldx */ | |||
| 64167 | ldx = n; | |||
| 64168 | /* Processing variable work */ | |||
| 64169 | work_Dims[0]=2 * n; | |||
| 64170 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 64171 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 64172 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 64173 | if (!PyErr_Occurred()) | |||
| 64174 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dptsvx to C/Fortran array" ); | |||
| 64175 | } else { | |||
| 64176 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 64177 | ||||
| 64178 | /* Processing variable fact */ | |||
| 64179 | slen(fact)capi_fact_len = 1; | |||
| 64180 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.dptsvx to C string"); | |||
| 64181 | if (f2py_success) { | |||
| 64182 | /* Processing variable nrhs */ | |||
| 64183 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 64184 | /* Processing variable x */ | |||
| 64185 | x_Dims[0]=ldx,x_Dims[1]=nrhs; | |||
| 64186 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 64187 | capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 64188 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 64189 | if (!PyErr_Occurred()) | |||
| 64190 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.dptsvx to C/Fortran array" ); | |||
| 64191 | } else { | |||
| 64192 | x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 64193 | ||||
| 64194 | /* Processing variable ferr */ | |||
| 64195 | ferr_Dims[0]=nrhs; | |||
| 64196 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 64197 | capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 64198 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 64199 | if (!PyErr_Occurred()) | |||
| 64200 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.dptsvx to C/Fortran array" ); | |||
| 64201 | } else { | |||
| 64202 | ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 64203 | ||||
| 64204 | /* Processing variable berr */ | |||
| 64205 | berr_Dims[0]=nrhs; | |||
| 64206 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 64207 | capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 64208 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 64209 | if (!PyErr_Occurred()) | |||
| 64210 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.dptsvx to C/Fortran array" ); | |||
| 64211 | } else { | |||
| 64212 | berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 64213 | ||||
| 64214 | /*end of frompyobj*/ | |||
| 64215 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64216 | f2py_start_call_clock(); | |||
| 64217 | #endif | |||
| 64218 | /*callfortranroutine*/ | |||
| 64219 | (*f2py_func)(fact, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, &rcond, ferr, berr, work, &info) ; | |||
| 64220 | /*(*f2py_func)(fact,&n,&nrhs,d,e,df,ef,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&info,slen(fact));*/ | |||
| 64221 | if (PyErr_Occurred()) | |||
| 64222 | f2py_success = 0; | |||
| 64223 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64224 | f2py_stop_call_clock(); | |||
| 64225 | #endif | |||
| 64226 | /*end of callfortranroutine*/ | |||
| 64227 | if (f2py_success) { | |||
| 64228 | /*pyobjfrom*/ | |||
| 64229 | /*end of pyobjfrom*/ | |||
| 64230 | CFUNCSMESS("Building return value.\n"); | |||
| 64231 | capi_buildvalue = Py_BuildValue("NNNdNNi",capi_df_tmp,capi_ef_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 64232 | /*closepyobjfrom*/ | |||
| 64233 | /*end of closepyobjfrom*/ | |||
| 64234 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 64235 | /*cleanupfrompyobj*/ | |||
| 64236 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 64237 | /* End of cleaning variable berr */ | |||
| 64238 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 64239 | /* End of cleaning variable ferr */ | |||
| 64240 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 64241 | /* End of cleaning variable x */ | |||
| 64242 | /* End of cleaning variable nrhs */ | |||
| 64243 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 64244 | } /*if (f2py_success) of fact*/ | |||
| 64245 | /* End of cleaning variable fact */ | |||
| 64246 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 64247 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 64248 | /* End of cleaning variable work */ | |||
| 64249 | /* End of cleaning variable ldx */ | |||
| 64250 | /* End of cleaning variable ldb */ | |||
| 64251 | } /*CHECKARRAY(shape(b, 0) >= n)*/ | |||
| 64252 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 64253 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 64254 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 64255 | /* End of cleaning variable b */ | |||
| 64256 | } /*if (capi_ef_tmp == NULL) ... else of ef*/ | |||
| 64257 | /* End of cleaning variable ef */ | |||
| 64258 | } /*if (capi_df_tmp == NULL) ... else of df*/ | |||
| 64259 | /* End of cleaning variable df */ | |||
| 64260 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 64261 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 64262 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 64263 | /* End of cleaning variable e */ | |||
| 64264 | /* End of cleaning variable n */ | |||
| 64265 | /* End of cleaning variable info */ | |||
| 64266 | /* End of cleaning variable rcond */ | |||
| 64267 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 64268 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 64269 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 64270 | /* End of cleaning variable d */ | |||
| 64271 | /*end of cleanupfrompyobj*/ | |||
| 64272 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 64273 | /*routdebugfailure*/ | |||
| 64274 | } else { | |||
| 64275 | /*routdebugleave*/ | |||
| 64276 | } | |||
| 64277 | CFUNCSMESS("Freeing memory.\n"); | |||
| 64278 | /*freemem*/ | |||
| 64279 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64280 | f2py_stop_clock(); | |||
| 64281 | #endif | |||
| 64282 | return capi_buildvalue; | |||
| 64283 | } | |||
| 64284 | /******************************* end of dptsvx *******************************/ | |||
| 64285 | ||||
| 64286 | /*********************************** cptsvx ***********************************/ | |||
| 64287 | static char doc_f2py_rout__flapack_cptsvx[] = "\ | |||
| 64288 | df,ef,x,rcond,ferr,berr,info = cptsvx(d,e,b,[fact,df,ef])\n\nWrapper for ``cptsvx``.\ | |||
| 64289 | \n\nParameters\n----------\n" | |||
| 64290 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 64291 | "e : input rank-1 array('F') with bounds (max(0, n-1))\n" | |||
| 64292 | "b : input rank-2 array('F') with bounds (ldb,nrhs)\n" | |||
| 64293 | "\nOther Parameters\n----------------\n" | |||
| 64294 | "fact : input string(len=1), optional\n Default: 'N'\n" | |||
| 64295 | "df : input rank-1 array('f') with bounds (n)\n" | |||
| 64296 | "ef : input rank-1 array('F') with bounds (max(0, n-1))\n" | |||
| 64297 | "\nReturns\n-------\n" | |||
| 64298 | "df : rank-1 array('f') with bounds (n)\n" | |||
| 64299 | "ef : rank-1 array('F') with bounds (max(0, n-1))\n" | |||
| 64300 | "x : rank-2 array('F') with bounds (ldx,nrhs)\n" | |||
| 64301 | "rcond : float\n" | |||
| 64302 | "ferr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 64303 | "berr : rank-1 array('f') with bounds (nrhs)\n" | |||
| 64304 | "info : int"; | |||
| 64305 | /* extern void F_FUNC(cptsvx,CPTSVX)(char*, F_INT*, F_INT*, float*, complex_float*, float*, complex_float*, complex_float*, F_INT*, complex_float*, F_INT*, float*, float*, float*, complex_float*, float*, F_INT* ); */ | |||
| 64306 | static PyObject *f2py_rout__flapack_cptsvx(const PyObject *capi_self, | |||
| 64307 | PyObject *capi_args, | |||
| 64308 | PyObject *capi_keywds, | |||
| 64309 | void (*f2py_func)(char*, F_INTint*, F_INTint*, float*, complex_float*, float*, complex_float*, complex_float*, F_INTint*, complex_float*, F_INTint*, float*, float*, float*, complex_float*, float*, F_INTint* )) { | |||
| 64310 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 64311 | volatile int f2py_success = 1; | |||
| 64312 | /*decl*/ | |||
| 64313 | ||||
| 64314 | string fact = NULL((void*)0); | |||
| 64315 | int slen(fact)capi_fact_len; | |||
| 64316 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 64317 | int n = 0; | |||
| 64318 | int nrhs = 0; | |||
| 64319 | float *d = NULL((void*)0); | |||
| 64320 | npy_intp d_Dims[1] = {-1}; | |||
| 64321 | const int d_Rank = 1; | |||
| 64322 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 64323 | int capi_d_intent = 0; | |||
| 64324 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 64325 | complex_float *e = NULL((void*)0); | |||
| 64326 | npy_intp e_Dims[1] = {-1}; | |||
| 64327 | const int e_Rank = 1; | |||
| 64328 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 64329 | int capi_e_intent = 0; | |||
| 64330 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 64331 | float *df = NULL((void*)0); | |||
| 64332 | npy_intp df_Dims[1] = {-1}; | |||
| 64333 | const int df_Rank = 1; | |||
| 64334 | PyArrayObject *capi_df_tmp = NULL((void*)0); | |||
| 64335 | int capi_df_intent = 0; | |||
| 64336 | PyObject *df_capi = Py_None(&_Py_NoneStruct); | |||
| 64337 | complex_float *ef = NULL((void*)0); | |||
| 64338 | npy_intp ef_Dims[1] = {-1}; | |||
| 64339 | const int ef_Rank = 1; | |||
| 64340 | PyArrayObject *capi_ef_tmp = NULL((void*)0); | |||
| 64341 | int capi_ef_intent = 0; | |||
| 64342 | PyObject *ef_capi = Py_None(&_Py_NoneStruct); | |||
| 64343 | complex_float *b = NULL((void*)0); | |||
| 64344 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 64345 | const int b_Rank = 2; | |||
| 64346 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 64347 | int capi_b_intent = 0; | |||
| 64348 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 64349 | int ldb = 0; | |||
| 64350 | complex_float *x = NULL((void*)0); | |||
| 64351 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 64352 | const int x_Rank = 2; | |||
| 64353 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 64354 | int capi_x_intent = 0; | |||
| 64355 | int ldx = 0; | |||
| 64356 | float rcond = 0; | |||
| 64357 | float *ferr = NULL((void*)0); | |||
| 64358 | npy_intp ferr_Dims[1] = {-1}; | |||
| 64359 | const int ferr_Rank = 1; | |||
| 64360 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 64361 | int capi_ferr_intent = 0; | |||
| 64362 | float *berr = NULL((void*)0); | |||
| 64363 | npy_intp berr_Dims[1] = {-1}; | |||
| 64364 | const int berr_Rank = 1; | |||
| 64365 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 64366 | int capi_berr_intent = 0; | |||
| 64367 | complex_float *work = NULL((void*)0); | |||
| 64368 | npy_intp work_Dims[1] = {-1}; | |||
| 64369 | const int work_Rank = 1; | |||
| 64370 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 64371 | int capi_work_intent = 0; | |||
| 64372 | float *rwork = NULL((void*)0); | |||
| 64373 | npy_intp rwork_Dims[1] = {-1}; | |||
| 64374 | const int rwork_Rank = 1; | |||
| 64375 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 64376 | int capi_rwork_intent = 0; | |||
| 64377 | int info = 0; | |||
| 64378 | static char *capi_kwlist[] = {"d","e","b","fact","df","ef",NULL((void*)0)}; | |||
| 64379 | ||||
| 64380 | /*routdebugenter*/ | |||
| 64381 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64382 | f2py_start_clock(); | |||
| 64383 | #endif | |||
| 64384 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 64385 | "OOO|OOO:_flapack.cptsvx",\ | |||
| 64386 | capi_kwlist,&d_capi,&e_capi,&b_capi,&fact_capi,&df_capi,&ef_capi)) | |||
| 64387 | return NULL((void*)0); | |||
| 64388 | /*frompyobj*/ | |||
| 64389 | /* Processing variable d */ | |||
| 64390 | ; | |||
| 64391 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 64392 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 64393 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 64394 | if (!PyErr_Occurred()) | |||
| 64395 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.cptsvx to C/Fortran array" ); | |||
| 64396 | } else { | |||
| 64397 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 64398 | ||||
| 64399 | /* Processing variable rcond */ | |||
| 64400 | /* Processing variable info */ | |||
| 64401 | /* Processing variable n */ | |||
| 64402 | n = len(d)d_Dims[0]; | |||
| 64403 | /* Processing variable e */ | |||
| 64404 | e_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 64405 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 64406 | capi_e_tmp = array_from_pyobj(NPY_CFLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 64407 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 64408 | if (!PyErr_Occurred()) | |||
| 64409 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.cptsvx to C/Fortran array" ); | |||
| 64410 | } else { | |||
| 64411 | e = (complex_float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 64412 | ||||
| 64413 | /* Processing variable df */ | |||
| 64414 | df_Dims[0]=n; | |||
| 64415 | capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 64416 | capi_df_tmp = array_from_pyobj(NPY_FLOAT,df_Dims,df_Rank,capi_df_intent,df_capi); | |||
| 64417 | if (capi_df_tmp == NULL((void*)0)) { | |||
| 64418 | if (!PyErr_Occurred()) | |||
| 64419 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `df' of _flapack.cptsvx to C/Fortran array" ); | |||
| 64420 | } else { | |||
| 64421 | df = (float *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data)); | |||
| 64422 | ||||
| 64423 | /* Processing variable ef */ | |||
| 64424 | ef_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 64425 | capi_ef_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 64426 | capi_ef_tmp = array_from_pyobj(NPY_CFLOAT,ef_Dims,ef_Rank,capi_ef_intent,ef_capi); | |||
| 64427 | if (capi_ef_tmp == NULL((void*)0)) { | |||
| 64428 | if (!PyErr_Occurred()) | |||
| 64429 | PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `ef' of _flapack.cptsvx to C/Fortran array" ); | |||
| 64430 | } else { | |||
| 64431 | ef = (complex_float *)(PyArray_DATA(capi_ef_tmp)((void *)((PyArrayObject_fields *)(capi_ef_tmp))->data)); | |||
| 64432 | ||||
| 64433 | /* Processing variable b */ | |||
| 64434 | ; | |||
| 64435 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 64436 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 64437 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 64438 | if (!PyErr_Occurred()) | |||
| 64439 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cptsvx to C/Fortran array" ); | |||
| 64440 | } else { | |||
| 64441 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 64442 | ||||
| 64443 | CHECKARRAY(shape(b,0) >= n,"shape(b,0) >= n","3rd argument b")if (!(b_Dims[0] >= n)) { PyErr_SetString(_flapack_error,"(" "shape(b,0) >= n"") failed for ""3rd argument b"); } else { | |||
| 64444 | /* Processing variable ldb */ | |||
| 64445 | ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 64446 | /* Processing variable ldx */ | |||
| 64447 | ldx = n; | |||
| 64448 | /* Processing variable work */ | |||
| 64449 | work_Dims[0]=n; | |||
| 64450 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 64451 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 64452 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 64453 | if (!PyErr_Occurred()) | |||
| 64454 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cptsvx to C/Fortran array" ); | |||
| 64455 | } else { | |||
| 64456 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 64457 | ||||
| 64458 | /* Processing variable rwork */ | |||
| 64459 | rwork_Dims[0]=n; | |||
| 64460 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 64461 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 64462 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 64463 | if (!PyErr_Occurred()) | |||
| 64464 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cptsvx to C/Fortran array" ); | |||
| 64465 | } else { | |||
| 64466 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 64467 | ||||
| 64468 | /* Processing variable fact */ | |||
| 64469 | slen(fact)capi_fact_len = 1; | |||
| 64470 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.cptsvx to C string"); | |||
| 64471 | if (f2py_success) { | |||
| 64472 | /* Processing variable nrhs */ | |||
| 64473 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 64474 | /* Processing variable x */ | |||
| 64475 | x_Dims[0]=ldx,x_Dims[1]=nrhs; | |||
| 64476 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 64477 | capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 64478 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 64479 | if (!PyErr_Occurred()) | |||
| 64480 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.cptsvx to C/Fortran array" ); | |||
| 64481 | } else { | |||
| 64482 | x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 64483 | ||||
| 64484 | /* Processing variable ferr */ | |||
| 64485 | ferr_Dims[0]=nrhs; | |||
| 64486 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 64487 | capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 64488 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 64489 | if (!PyErr_Occurred()) | |||
| 64490 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.cptsvx to C/Fortran array" ); | |||
| 64491 | } else { | |||
| 64492 | ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 64493 | ||||
| 64494 | /* Processing variable berr */ | |||
| 64495 | berr_Dims[0]=nrhs; | |||
| 64496 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 64497 | capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 64498 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 64499 | if (!PyErr_Occurred()) | |||
| 64500 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.cptsvx to C/Fortran array" ); | |||
| 64501 | } else { | |||
| 64502 | berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 64503 | ||||
| 64504 | /*end of frompyobj*/ | |||
| 64505 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64506 | f2py_start_call_clock(); | |||
| 64507 | #endif | |||
| 64508 | /*callfortranroutine*/ | |||
| 64509 | (*f2py_func)(fact, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, &rcond, ferr, berr, work, rwork, &info) ; | |||
| 64510 | /*(*f2py_func)(fact,&n,&nrhs,d,e,df,ef,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info,slen(fact));*/ | |||
| 64511 | if (PyErr_Occurred()) | |||
| 64512 | f2py_success = 0; | |||
| 64513 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64514 | f2py_stop_call_clock(); | |||
| 64515 | #endif | |||
| 64516 | /*end of callfortranroutine*/ | |||
| 64517 | if (f2py_success) { | |||
| 64518 | /*pyobjfrom*/ | |||
| 64519 | /*end of pyobjfrom*/ | |||
| 64520 | CFUNCSMESS("Building return value.\n"); | |||
| 64521 | capi_buildvalue = Py_BuildValue("NNNfNNi",capi_df_tmp,capi_ef_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 64522 | /*closepyobjfrom*/ | |||
| 64523 | /*end of closepyobjfrom*/ | |||
| 64524 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 64525 | /*cleanupfrompyobj*/ | |||
| 64526 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 64527 | /* End of cleaning variable berr */ | |||
| 64528 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 64529 | /* End of cleaning variable ferr */ | |||
| 64530 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 64531 | /* End of cleaning variable x */ | |||
| 64532 | /* End of cleaning variable nrhs */ | |||
| 64533 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 64534 | } /*if (f2py_success) of fact*/ | |||
| 64535 | /* End of cleaning variable fact */ | |||
| 64536 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 64537 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 64538 | /* End of cleaning variable rwork */ | |||
| 64539 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 64540 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 64541 | /* End of cleaning variable work */ | |||
| 64542 | /* End of cleaning variable ldx */ | |||
| 64543 | /* End of cleaning variable ldb */ | |||
| 64544 | } /*CHECKARRAY(shape(b,0) >= n)*/ | |||
| 64545 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 64546 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 64547 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 64548 | /* End of cleaning variable b */ | |||
| 64549 | } /*if (capi_ef_tmp == NULL) ... else of ef*/ | |||
| 64550 | /* End of cleaning variable ef */ | |||
| 64551 | } /*if (capi_df_tmp == NULL) ... else of df*/ | |||
| 64552 | /* End of cleaning variable df */ | |||
| 64553 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 64554 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 64555 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 64556 | /* End of cleaning variable e */ | |||
| 64557 | /* End of cleaning variable n */ | |||
| 64558 | /* End of cleaning variable info */ | |||
| 64559 | /* End of cleaning variable rcond */ | |||
| 64560 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 64561 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 64562 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 64563 | /* End of cleaning variable d */ | |||
| 64564 | /*end of cleanupfrompyobj*/ | |||
| 64565 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 64566 | /*routdebugfailure*/ | |||
| 64567 | } else { | |||
| 64568 | /*routdebugleave*/ | |||
| 64569 | } | |||
| 64570 | CFUNCSMESS("Freeing memory.\n"); | |||
| 64571 | /*freemem*/ | |||
| 64572 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64573 | f2py_stop_clock(); | |||
| 64574 | #endif | |||
| 64575 | return capi_buildvalue; | |||
| 64576 | } | |||
| 64577 | /******************************* end of cptsvx *******************************/ | |||
| 64578 | ||||
| 64579 | /*********************************** zptsvx ***********************************/ | |||
| 64580 | static char doc_f2py_rout__flapack_zptsvx[] = "\ | |||
| 64581 | df,ef,x,rcond,ferr,berr,info = zptsvx(d,e,b,[fact,df,ef])\n\nWrapper for ``zptsvx``.\ | |||
| 64582 | \n\nParameters\n----------\n" | |||
| 64583 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 64584 | "e : input rank-1 array('D') with bounds (max(0, n-1))\n" | |||
| 64585 | "b : input rank-2 array('D') with bounds (ldb,nrhs)\n" | |||
| 64586 | "\nOther Parameters\n----------------\n" | |||
| 64587 | "fact : input string(len=1), optional\n Default: 'N'\n" | |||
| 64588 | "df : input rank-1 array('d') with bounds (n)\n" | |||
| 64589 | "ef : input rank-1 array('D') with bounds (max(0, n-1))\n" | |||
| 64590 | "\nReturns\n-------\n" | |||
| 64591 | "df : rank-1 array('d') with bounds (n)\n" | |||
| 64592 | "ef : rank-1 array('D') with bounds (max(0, n-1))\n" | |||
| 64593 | "x : rank-2 array('D') with bounds (ldx,nrhs)\n" | |||
| 64594 | "rcond : float\n" | |||
| 64595 | "ferr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 64596 | "berr : rank-1 array('d') with bounds (nrhs)\n" | |||
| 64597 | "info : int"; | |||
| 64598 | /* extern void F_FUNC(zptsvx,ZPTSVX)(char*, F_INT*, F_INT*, double*, complex_double*, double*, complex_double*, complex_double*, F_INT*, complex_double*, F_INT*, double*, double*, double*, complex_double*, double*, F_INT* ); */ | |||
| 64599 | static PyObject *f2py_rout__flapack_zptsvx(const PyObject *capi_self, | |||
| 64600 | PyObject *capi_args, | |||
| 64601 | PyObject *capi_keywds, | |||
| 64602 | void (*f2py_func)(char*, F_INTint*, F_INTint*, double*, complex_double*, double*, complex_double*, complex_double*, F_INTint*, complex_double*, F_INTint*, double*, double*, double*, complex_double*, double*, F_INTint* )) { | |||
| 64603 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 64604 | volatile int f2py_success = 1; | |||
| 64605 | /*decl*/ | |||
| 64606 | ||||
| 64607 | string fact = NULL((void*)0); | |||
| 64608 | int slen(fact)capi_fact_len; | |||
| 64609 | PyObject *fact_capi = Py_None(&_Py_NoneStruct); | |||
| 64610 | int n = 0; | |||
| 64611 | int nrhs = 0; | |||
| 64612 | double *d = NULL((void*)0); | |||
| 64613 | npy_intp d_Dims[1] = {-1}; | |||
| 64614 | const int d_Rank = 1; | |||
| 64615 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 64616 | int capi_d_intent = 0; | |||
| 64617 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 64618 | complex_double *e = NULL((void*)0); | |||
| 64619 | npy_intp e_Dims[1] = {-1}; | |||
| 64620 | const int e_Rank = 1; | |||
| 64621 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 64622 | int capi_e_intent = 0; | |||
| 64623 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 64624 | double *df = NULL((void*)0); | |||
| 64625 | npy_intp df_Dims[1] = {-1}; | |||
| 64626 | const int df_Rank = 1; | |||
| 64627 | PyArrayObject *capi_df_tmp = NULL((void*)0); | |||
| 64628 | int capi_df_intent = 0; | |||
| 64629 | PyObject *df_capi = Py_None(&_Py_NoneStruct); | |||
| 64630 | complex_double *ef = NULL((void*)0); | |||
| 64631 | npy_intp ef_Dims[1] = {-1}; | |||
| 64632 | const int ef_Rank = 1; | |||
| 64633 | PyArrayObject *capi_ef_tmp = NULL((void*)0); | |||
| 64634 | int capi_ef_intent = 0; | |||
| 64635 | PyObject *ef_capi = Py_None(&_Py_NoneStruct); | |||
| 64636 | complex_double *b = NULL((void*)0); | |||
| 64637 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 64638 | const int b_Rank = 2; | |||
| 64639 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 64640 | int capi_b_intent = 0; | |||
| 64641 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 64642 | int ldb = 0; | |||
| 64643 | complex_double *x = NULL((void*)0); | |||
| 64644 | npy_intp x_Dims[2] = {-1, -1}; | |||
| 64645 | const int x_Rank = 2; | |||
| 64646 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 64647 | int capi_x_intent = 0; | |||
| 64648 | int ldx = 0; | |||
| 64649 | double rcond = 0; | |||
| 64650 | double *ferr = NULL((void*)0); | |||
| 64651 | npy_intp ferr_Dims[1] = {-1}; | |||
| 64652 | const int ferr_Rank = 1; | |||
| 64653 | PyArrayObject *capi_ferr_tmp = NULL((void*)0); | |||
| 64654 | int capi_ferr_intent = 0; | |||
| 64655 | double *berr = NULL((void*)0); | |||
| 64656 | npy_intp berr_Dims[1] = {-1}; | |||
| 64657 | const int berr_Rank = 1; | |||
| 64658 | PyArrayObject *capi_berr_tmp = NULL((void*)0); | |||
| 64659 | int capi_berr_intent = 0; | |||
| 64660 | complex_double *work = NULL((void*)0); | |||
| 64661 | npy_intp work_Dims[1] = {-1}; | |||
| 64662 | const int work_Rank = 1; | |||
| 64663 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 64664 | int capi_work_intent = 0; | |||
| 64665 | double *rwork = NULL((void*)0); | |||
| 64666 | npy_intp rwork_Dims[1] = {-1}; | |||
| 64667 | const int rwork_Rank = 1; | |||
| 64668 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 64669 | int capi_rwork_intent = 0; | |||
| 64670 | int info = 0; | |||
| 64671 | static char *capi_kwlist[] = {"d","e","b","fact","df","ef",NULL((void*)0)}; | |||
| 64672 | ||||
| 64673 | /*routdebugenter*/ | |||
| 64674 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64675 | f2py_start_clock(); | |||
| 64676 | #endif | |||
| 64677 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 64678 | "OOO|OOO:_flapack.zptsvx",\ | |||
| 64679 | capi_kwlist,&d_capi,&e_capi,&b_capi,&fact_capi,&df_capi,&ef_capi)) | |||
| 64680 | return NULL((void*)0); | |||
| 64681 | /*frompyobj*/ | |||
| 64682 | /* Processing variable d */ | |||
| 64683 | ; | |||
| 64684 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 64685 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 64686 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 64687 | if (!PyErr_Occurred()) | |||
| 64688 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.zptsvx to C/Fortran array" ); | |||
| 64689 | } else { | |||
| 64690 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 64691 | ||||
| 64692 | /* Processing variable rcond */ | |||
| 64693 | /* Processing variable info */ | |||
| 64694 | /* Processing variable n */ | |||
| 64695 | n = len(d)d_Dims[0]; | |||
| 64696 | /* Processing variable e */ | |||
| 64697 | e_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 64698 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 64699 | capi_e_tmp = array_from_pyobj(NPY_CDOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 64700 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 64701 | if (!PyErr_Occurred()) | |||
| 64702 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.zptsvx to C/Fortran array" ); | |||
| 64703 | } else { | |||
| 64704 | e = (complex_double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 64705 | ||||
| 64706 | /* Processing variable df */ | |||
| 64707 | df_Dims[0]=n; | |||
| 64708 | capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 64709 | capi_df_tmp = array_from_pyobj(NPY_DOUBLE,df_Dims,df_Rank,capi_df_intent,df_capi); | |||
| 64710 | if (capi_df_tmp == NULL((void*)0)) { | |||
| 64711 | if (!PyErr_Occurred()) | |||
| 64712 | PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `df' of _flapack.zptsvx to C/Fortran array" ); | |||
| 64713 | } else { | |||
| 64714 | df = (double *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data)); | |||
| 64715 | ||||
| 64716 | /* Processing variable ef */ | |||
| 64717 | ef_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1)); | |||
| 64718 | capi_ef_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128; | |||
| 64719 | capi_ef_tmp = array_from_pyobj(NPY_CDOUBLE,ef_Dims,ef_Rank,capi_ef_intent,ef_capi); | |||
| 64720 | if (capi_ef_tmp == NULL((void*)0)) { | |||
| 64721 | if (!PyErr_Occurred()) | |||
| 64722 | PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `ef' of _flapack.zptsvx to C/Fortran array" ); | |||
| 64723 | } else { | |||
| 64724 | ef = (complex_double *)(PyArray_DATA(capi_ef_tmp)((void *)((PyArrayObject_fields *)(capi_ef_tmp))->data)); | |||
| 64725 | ||||
| 64726 | /* Processing variable b */ | |||
| 64727 | ; | |||
| 64728 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 64729 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 64730 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 64731 | if (!PyErr_Occurred()) | |||
| 64732 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zptsvx to C/Fortran array" ); | |||
| 64733 | } else { | |||
| 64734 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 64735 | ||||
| 64736 | CHECKARRAY(shape(b,0) >= n,"shape(b,0) >= n","3rd argument b")if (!(b_Dims[0] >= n)) { PyErr_SetString(_flapack_error,"(" "shape(b,0) >= n"") failed for ""3rd argument b"); } else { | |||
| 64737 | /* Processing variable ldb */ | |||
| 64738 | ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 64739 | /* Processing variable ldx */ | |||
| 64740 | ldx = n; | |||
| 64741 | /* Processing variable work */ | |||
| 64742 | work_Dims[0]=n; | |||
| 64743 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 64744 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 64745 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 64746 | if (!PyErr_Occurred()) | |||
| 64747 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zptsvx to C/Fortran array" ); | |||
| 64748 | } else { | |||
| 64749 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 64750 | ||||
| 64751 | /* Processing variable rwork */ | |||
| 64752 | rwork_Dims[0]=n; | |||
| 64753 | capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 64754 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 64755 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 64756 | if (!PyErr_Occurred()) | |||
| 64757 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zptsvx to C/Fortran array" ); | |||
| 64758 | } else { | |||
| 64759 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 64760 | ||||
| 64761 | /* Processing variable fact */ | |||
| 64762 | slen(fact)capi_fact_len = 1; | |||
| 64763 | f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.zptsvx to C string"); | |||
| 64764 | if (f2py_success) { | |||
| 64765 | /* Processing variable nrhs */ | |||
| 64766 | nrhs = shape(b, 1)b_Dims[1]; | |||
| 64767 | /* Processing variable x */ | |||
| 64768 | x_Dims[0]=ldx,x_Dims[1]=nrhs; | |||
| 64769 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 64770 | capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 64771 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 64772 | if (!PyErr_Occurred()) | |||
| 64773 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zptsvx to C/Fortran array" ); | |||
| 64774 | } else { | |||
| 64775 | x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 64776 | ||||
| 64777 | /* Processing variable ferr */ | |||
| 64778 | ferr_Dims[0]=nrhs; | |||
| 64779 | capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 64780 | capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct)); | |||
| 64781 | if (capi_ferr_tmp == NULL((void*)0)) { | |||
| 64782 | if (!PyErr_Occurred()) | |||
| 64783 | PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.zptsvx to C/Fortran array" ); | |||
| 64784 | } else { | |||
| 64785 | ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data)); | |||
| 64786 | ||||
| 64787 | /* Processing variable berr */ | |||
| 64788 | berr_Dims[0]=nrhs; | |||
| 64789 | capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 64790 | capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct)); | |||
| 64791 | if (capi_berr_tmp == NULL((void*)0)) { | |||
| 64792 | if (!PyErr_Occurred()) | |||
| 64793 | PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.zptsvx to C/Fortran array" ); | |||
| 64794 | } else { | |||
| 64795 | berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data)); | |||
| 64796 | ||||
| 64797 | /*end of frompyobj*/ | |||
| 64798 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64799 | f2py_start_call_clock(); | |||
| 64800 | #endif | |||
| 64801 | /*callfortranroutine*/ | |||
| 64802 | (*f2py_func)(fact, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, &rcond, ferr, berr, work, rwork, &info) ; | |||
| 64803 | /*(*f2py_func)(fact,&n,&nrhs,d,e,df,ef,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info,slen(fact));*/ | |||
| 64804 | if (PyErr_Occurred()) | |||
| 64805 | f2py_success = 0; | |||
| 64806 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64807 | f2py_stop_call_clock(); | |||
| 64808 | #endif | |||
| 64809 | /*end of callfortranroutine*/ | |||
| 64810 | if (f2py_success) { | |||
| 64811 | /*pyobjfrom*/ | |||
| 64812 | /*end of pyobjfrom*/ | |||
| 64813 | CFUNCSMESS("Building return value.\n"); | |||
| 64814 | capi_buildvalue = Py_BuildValue("NNNdNNi",capi_df_tmp,capi_ef_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info); | |||
| 64815 | /*closepyobjfrom*/ | |||
| 64816 | /*end of closepyobjfrom*/ | |||
| 64817 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 64818 | /*cleanupfrompyobj*/ | |||
| 64819 | } /*if (capi_berr_tmp == NULL) ... else of berr*/ | |||
| 64820 | /* End of cleaning variable berr */ | |||
| 64821 | } /*if (capi_ferr_tmp == NULL) ... else of ferr*/ | |||
| 64822 | /* End of cleaning variable ferr */ | |||
| 64823 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 64824 | /* End of cleaning variable x */ | |||
| 64825 | /* End of cleaning variable nrhs */ | |||
| 64826 | STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0); | |||
| 64827 | } /*if (f2py_success) of fact*/ | |||
| 64828 | /* End of cleaning variable fact */ | |||
| 64829 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 64830 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 64831 | /* End of cleaning variable rwork */ | |||
| 64832 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 64833 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 64834 | /* End of cleaning variable work */ | |||
| 64835 | /* End of cleaning variable ldx */ | |||
| 64836 | /* End of cleaning variable ldb */ | |||
| 64837 | } /*CHECKARRAY(shape(b,0) >= n)*/ | |||
| 64838 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 64839 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 64840 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 64841 | /* End of cleaning variable b */ | |||
| 64842 | } /*if (capi_ef_tmp == NULL) ... else of ef*/ | |||
| 64843 | /* End of cleaning variable ef */ | |||
| 64844 | } /*if (capi_df_tmp == NULL) ... else of df*/ | |||
| 64845 | /* End of cleaning variable df */ | |||
| 64846 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 64847 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 64848 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 64849 | /* End of cleaning variable e */ | |||
| 64850 | /* End of cleaning variable n */ | |||
| 64851 | /* End of cleaning variable info */ | |||
| 64852 | /* End of cleaning variable rcond */ | |||
| 64853 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 64854 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 64855 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 64856 | /* End of cleaning variable d */ | |||
| 64857 | /*end of cleanupfrompyobj*/ | |||
| 64858 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 64859 | /*routdebugfailure*/ | |||
| 64860 | } else { | |||
| 64861 | /*routdebugleave*/ | |||
| 64862 | } | |||
| 64863 | CFUNCSMESS("Freeing memory.\n"); | |||
| 64864 | /*freemem*/ | |||
| 64865 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64866 | f2py_stop_clock(); | |||
| 64867 | #endif | |||
| 64868 | return capi_buildvalue; | |||
| 64869 | } | |||
| 64870 | /******************************* end of zptsvx *******************************/ | |||
| 64871 | ||||
| 64872 | /*********************************** sgejsv ***********************************/ | |||
| 64873 | static char doc_f2py_rout__flapack_sgejsv[] = "\ | |||
| 64874 | sva,u,v,workout,iworkout,info = sgejsv(a,[joba,jobu,jobv,jobr,jobt,jobp,lwork,overwrite_a])\n\nWrapper for ``sgejsv``.\ | |||
| 64875 | \n\nParameters\n----------\n" | |||
| 64876 | "a : input rank-2 array('f') with bounds (lda,n)\n" | |||
| 64877 | "\nOther Parameters\n----------------\n" | |||
| 64878 | "joba : input int, optional\n Default: 4\n" | |||
| 64879 | "jobu : input int, optional\n Default: 0\n" | |||
| 64880 | "jobv : input int, optional\n Default: 0\n" | |||
| 64881 | "jobr : input int, optional\n Default: 1\n" | |||
| 64882 | "jobt : input int, optional\n Default: 0\n" | |||
| 64883 | "jobp : input int, optional\n Default: 1\n" | |||
| 64884 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 64885 | "lwork : input int, optional\n Default: max(6*n+2*n*n, max(2*m+n, max(4*n+n*n, max(2*n+n*n+6, 7))))\n" | |||
| 64886 | "\nReturns\n-------\n" | |||
| 64887 | "sva : rank-1 array('f') with bounds (n)\n" | |||
| 64888 | "u : rank-2 array('f') with bounds (((jobt == 0)&&(jobu == 3)?0:m),((jobt == 0)&&(jobu == 3)?0:(jobu == 1?m:n)))\n" | |||
| 64889 | "v : rank-2 array('f') with bounds (((jobt == 0)&&(jobv == 3)?0:ldv),((jobt == 0)&&(jobv == 3)?0:n))\n" | |||
| 64890 | "workout : rank-1 array('f') with bounds (7)\n" | |||
| 64891 | "iworkout : rank-1 array('i') with bounds (3)\n" | |||
| 64892 | "info : int"; | |||
| 64893 | /* extern void F_FUNC(sgejsv,SGEJSV)(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 64894 | static PyObject *f2py_rout__flapack_sgejsv(const PyObject *capi_self, | |||
| 64895 | PyObject *capi_args, | |||
| 64896 | PyObject *capi_keywds, | |||
| 64897 | void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 64898 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 64899 | volatile int f2py_success = 1; | |||
| 64900 | /*decl*/ | |||
| 64901 | ||||
| 64902 | int joba = 0; | |||
| 64903 | PyObject *joba_capi = Py_None(&_Py_NoneStruct); | |||
| 64904 | int jobu = 0; | |||
| 64905 | PyObject *jobu_capi = Py_None(&_Py_NoneStruct); | |||
| 64906 | int jobv = 0; | |||
| 64907 | PyObject *jobv_capi = Py_None(&_Py_NoneStruct); | |||
| 64908 | int jobr = 0; | |||
| 64909 | PyObject *jobr_capi = Py_None(&_Py_NoneStruct); | |||
| 64910 | int jobt = 0; | |||
| 64911 | PyObject *jobt_capi = Py_None(&_Py_NoneStruct); | |||
| 64912 | int jobp = 0; | |||
| 64913 | PyObject *jobp_capi = Py_None(&_Py_NoneStruct); | |||
| 64914 | int m = 0; | |||
| 64915 | int n = 0; | |||
| 64916 | float *a = NULL((void*)0); | |||
| 64917 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 64918 | const int a_Rank = 2; | |||
| 64919 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 64920 | int capi_a_intent = 0; | |||
| 64921 | int capi_overwrite_a = 0; | |||
| 64922 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 64923 | int lda = 0; | |||
| 64924 | float *sva = NULL((void*)0); | |||
| 64925 | npy_intp sva_Dims[1] = {-1}; | |||
| 64926 | const int sva_Rank = 1; | |||
| 64927 | PyArrayObject *capi_sva_tmp = NULL((void*)0); | |||
| 64928 | int capi_sva_intent = 0; | |||
| 64929 | float *u = NULL((void*)0); | |||
| 64930 | npy_intp u_Dims[2] = {-1, -1}; | |||
| 64931 | const int u_Rank = 2; | |||
| 64932 | PyArrayObject *capi_u_tmp = NULL((void*)0); | |||
| 64933 | int capi_u_intent = 0; | |||
| 64934 | int ldu = 0; | |||
| 64935 | float *v = NULL((void*)0); | |||
| 64936 | npy_intp v_Dims[2] = {-1, -1}; | |||
| 64937 | const int v_Rank = 2; | |||
| 64938 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 64939 | int capi_v_intent = 0; | |||
| 64940 | int ldv = 0; | |||
| 64941 | float *work = NULL((void*)0); | |||
| 64942 | npy_intp work_Dims[1] = {-1}; | |||
| 64943 | const int work_Rank = 1; | |||
| 64944 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 64945 | int capi_work_intent = 0; | |||
| 64946 | float *workout = NULL((void*)0); | |||
| 64947 | npy_intp workout_Dims[1] = {-1}; | |||
| 64948 | const int workout_Rank = 1; | |||
| 64949 | PyArrayObject *capi_workout_tmp = NULL((void*)0); | |||
| 64950 | int capi_workout_intent = 0; | |||
| 64951 | int lwork = 0; | |||
| 64952 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 64953 | int *iwork = NULL((void*)0); | |||
| 64954 | npy_intp iwork_Dims[1] = {-1}; | |||
| 64955 | const int iwork_Rank = 1; | |||
| 64956 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 64957 | int capi_iwork_intent = 0; | |||
| 64958 | int *iworkout = NULL((void*)0); | |||
| 64959 | npy_intp iworkout_Dims[1] = {-1}; | |||
| 64960 | const int iworkout_Rank = 1; | |||
| 64961 | PyArrayObject *capi_iworkout_tmp = NULL((void*)0); | |||
| 64962 | int capi_iworkout_intent = 0; | |||
| 64963 | int info = 0; | |||
| 64964 | static char *capi_kwlist[] = {"a","joba","jobu","jobv","jobr","jobt","jobp","lwork","overwrite_a",NULL((void*)0)}; | |||
| 64965 | ||||
| 64966 | /*routdebugenter*/ | |||
| 64967 | #ifdef F2PY_REPORT_ATEXIT | |||
| 64968 | f2py_start_clock(); | |||
| 64969 | #endif | |||
| 64970 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 64971 | "O|OOOOOOOi:_flapack.sgejsv",\ | |||
| 64972 | capi_kwlist,&a_capi,&joba_capi,&jobu_capi,&jobv_capi,&jobr_capi,&jobt_capi,&jobp_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 64973 | return NULL((void*)0); | |||
| 64974 | /*frompyobj*/ | |||
| 64975 | /* Processing variable joba */ | |||
| 64976 | if (joba_capi == Py_None(&_Py_NoneStruct)) joba = 4; else | |||
| 64977 | f2py_success = int_from_pyobj(&joba,joba_capi,"_flapack.sgejsv() 1st keyword (joba) can't be converted to int"); | |||
| 64978 | if (f2py_success) { | |||
| 64979 | CHECKSCALAR((0 <= joba) && (joba < 6),"(0 <= joba) && (joba < 6)","1st keyword joba","sgejsv:joba=%d",joba)if (!((0 <= joba) && (joba < 6))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgejsv:joba=%d", "(""(0 <= joba) && (joba < 6)" ") failed for ""1st keyword joba", joba); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 64980 | /* Processing variable jobu */ | |||
| 64981 | if (jobu_capi == Py_None(&_Py_NoneStruct)) jobu = 0; else | |||
| 64982 | f2py_success = int_from_pyobj(&jobu,jobu_capi,"_flapack.sgejsv() 2nd keyword (jobu) can't be converted to int"); | |||
| 64983 | if (f2py_success) { | |||
| 64984 | CHECKSCALAR((0 <= jobu) && (jobu < 4),"(0 <= jobu) && (jobu < 4)","2nd keyword jobu","sgejsv:jobu=%d",jobu)if (!((0 <= jobu) && (jobu < 4))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgejsv:jobu=%d", "(""(0 <= jobu) && (jobu < 4)" ") failed for ""2nd keyword jobu", jobu); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 64985 | /* Processing variable jobr */ | |||
| 64986 | if (jobr_capi == Py_None(&_Py_NoneStruct)) jobr = 1; else | |||
| 64987 | f2py_success = int_from_pyobj(&jobr,jobr_capi,"_flapack.sgejsv() 4th keyword (jobr) can't be converted to int"); | |||
| 64988 | if (f2py_success) { | |||
| 64989 | CHECKSCALAR((jobr == 0) || (jobr == 1),"(jobr == 0) || (jobr == 1)","4th keyword jobr","sgejsv:jobr=%d",jobr)if (!((jobr == 0) || (jobr == 1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgejsv:jobr=%d", "(""(jobr == 0) || (jobr == 1)"") failed for " "4th keyword jobr", jobr); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 64990 | /* Processing variable jobt */ | |||
| 64991 | if (jobt_capi == Py_None(&_Py_NoneStruct)) jobt = 0; else | |||
| 64992 | f2py_success = int_from_pyobj(&jobt,jobt_capi,"_flapack.sgejsv() 5th keyword (jobt) can't be converted to int"); | |||
| 64993 | if (f2py_success) { | |||
| 64994 | CHECKSCALAR((jobt == 0) || (jobt == 1),"(jobt == 0) || (jobt == 1)","5th keyword jobt","sgejsv:jobt=%d",jobt)if (!((jobt == 0) || (jobt == 1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgejsv:jobt=%d", "(""(jobt == 0) || (jobt == 1)"") failed for " "5th keyword jobt", jobt); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 64995 | /* Processing variable jobp */ | |||
| 64996 | if (jobp_capi == Py_None(&_Py_NoneStruct)) jobp = 1; else | |||
| 64997 | f2py_success = int_from_pyobj(&jobp,jobp_capi,"_flapack.sgejsv() 6th keyword (jobp) can't be converted to int"); | |||
| 64998 | if (f2py_success) { | |||
| 64999 | CHECKSCALAR((jobp == 0) || (jobp == 1),"(jobp == 0) || (jobp == 1)","6th keyword jobp","sgejsv:jobp=%d",jobp)if (!((jobp == 0) || (jobp == 1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgejsv:jobp=%d", "(""(jobp == 0) || (jobp == 1)"") failed for " "6th keyword jobp", jobp); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 65000 | /* Processing variable a */ | |||
| 65001 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 65002 | ; | |||
| 65003 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 65004 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 65005 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 65006 | if (!PyErr_Occurred()) | |||
| 65007 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgejsv to C/Fortran array" ); | |||
| 65008 | } else { | |||
| 65009 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 65010 | ||||
| 65011 | /* Processing variable workout */ | |||
| 65012 | workout_Dims[0]=7; | |||
| 65013 | capi_workout_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 65014 | capi_workout_tmp = array_from_pyobj(NPY_FLOAT,workout_Dims,workout_Rank,capi_workout_intent,Py_None(&_Py_NoneStruct)); | |||
| 65015 | if (capi_workout_tmp == NULL((void*)0)) { | |||
| 65016 | if (!PyErr_Occurred()) | |||
| 65017 | PyErr_SetString(_flapack_error,"failed in converting hidden `workout' of _flapack.sgejsv to C/Fortran array" ); | |||
| 65018 | } else { | |||
| 65019 | workout = (float *)(PyArray_DATA(capi_workout_tmp)((void *)((PyArrayObject_fields *)(capi_workout_tmp))->data )); | |||
| 65020 | ||||
| 65021 | /* Processing variable iworkout */ | |||
| 65022 | iworkout_Dims[0]=3; | |||
| 65023 | capi_iworkout_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 65024 | capi_iworkout_tmp = array_from_pyobj(NPY_INT,iworkout_Dims,iworkout_Rank,capi_iworkout_intent,Py_None(&_Py_NoneStruct)); | |||
| 65025 | if (capi_iworkout_tmp == NULL((void*)0)) { | |||
| 65026 | if (!PyErr_Occurred()) | |||
| 65027 | PyErr_SetString(_flapack_error,"failed in converting hidden `iworkout' of _flapack.sgejsv to C/Fortran array" ); | |||
| 65028 | } else { | |||
| 65029 | iworkout = (int *)(PyArray_DATA(capi_iworkout_tmp)((void *)((PyArrayObject_fields *)(capi_iworkout_tmp))->data )); | |||
| 65030 | ||||
| 65031 | /* Processing variable info */ | |||
| 65032 | /* Processing variable jobv */ | |||
| 65033 | if (jobv_capi == Py_None(&_Py_NoneStruct)) jobv = 0; else | |||
| 65034 | f2py_success = int_from_pyobj(&jobv,jobv_capi,"_flapack.sgejsv() 3rd keyword (jobv) can't be converted to int"); | |||
| 65035 | if (f2py_success) { | |||
| 65036 | CHECKSCALAR((0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2))),"(0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2)))","3rd keyword jobv","sgejsv:jobv=%d",jobv)if (!((0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2))))) { char errstring[256]; __builtin___sprintf_chk (errstring , 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgejsv:jobv=%d" , "(""(0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2)))" ") failed for ""3rd keyword jobv", jobv); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 65037 | /* Processing variable n */ | |||
| 65038 | n = shape(a, 1)a_Dims[1]; | |||
| 65039 | /* Processing variable lda */ | |||
| 65040 | lda = max(1, shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 65041 | /* Processing variable sva */ | |||
| 65042 | sva_Dims[0]=n; | |||
| 65043 | capi_sva_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 65044 | capi_sva_tmp = array_from_pyobj(NPY_FLOAT,sva_Dims,sva_Rank,capi_sva_intent,Py_None(&_Py_NoneStruct)); | |||
| 65045 | if (capi_sva_tmp == NULL((void*)0)) { | |||
| 65046 | if (!PyErr_Occurred()) | |||
| 65047 | PyErr_SetString(_flapack_error,"failed in converting hidden `sva' of _flapack.sgejsv to C/Fortran array" ); | |||
| 65048 | } else { | |||
| 65049 | sva = (float *)(PyArray_DATA(capi_sva_tmp)((void *)((PyArrayObject_fields *)(capi_sva_tmp))->data)); | |||
| 65050 | ||||
| 65051 | /* Processing variable ldv */ | |||
| 65052 | ldv = max(1,(jobv < 3?n:1))((1 > (jobv < 3?n:1)) ? (1) : ((jobv < 3?n:1))); | |||
| 65053 | /* Processing variable m */ | |||
| 65054 | m = shape(a, 0)a_Dims[0]; | |||
| 65055 | CHECKSCALAR(m>=n,"m>=n","hidden m","sgejsv:m=%d",m)if (!(m>=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgejsv:m=%d", "(""m>=n"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 65056 | /* Processing variable ldu */ | |||
| 65057 | ldu = max(1,(jobu < 3?m:1))((1 > (jobu < 3?m:1)) ? (1) : ((jobu < 3?m:1))); | |||
| 65058 | /* Processing variable v */ | |||
| 65059 | v_Dims[0]=((jobt == 0)&&(jobv == 3)?0:ldv),v_Dims[1]=((jobt == 0)&&(jobv == 3)?0:n); | |||
| 65060 | capi_v_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 65061 | capi_v_tmp = array_from_pyobj(NPY_FLOAT,v_Dims,v_Rank,capi_v_intent,Py_None(&_Py_NoneStruct)); | |||
| 65062 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 65063 | if (!PyErr_Occurred()) | |||
| 65064 | PyErr_SetString(_flapack_error,"failed in converting hidden `v' of _flapack.sgejsv to C/Fortran array" ); | |||
| 65065 | } else { | |||
| 65066 | v = (float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 65067 | ||||
| 65068 | /* Processing variable lwork */ | |||
| 65069 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(6*n+2*n*n, max(2*m+n, max(4*n+n*n, max(2*n+n*n+6, 7))))((6*n+2*n*n > ((2*m+n > ((4*n+n*n > ((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))) ? (4*n+n*n) : (((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))))) ? (2*m+n) : (((4*n+n*n > ((2*n+n*n+ 6 > 7) ? (2*n+n*n+6) : (7))) ? (4*n+n*n) : (((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))))))) ? (6*n+2*n*n) : (((2*m+n > ( (4*n+n*n > ((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))) ? (4* n+n*n) : (((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))))) ? (2*m+ n) : (((4*n+n*n > ((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7)) ) ? (4*n+n*n) : (((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7)))))) )); else | |||
| 65070 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgejsv() 7th keyword (lwork) can't be converted to int"); | |||
| 65071 | if (f2py_success) { | |||
| 65072 | CHECKSCALAR(lwork>=7,"lwork>=7","7th keyword lwork","sgejsv:lwork=%d",lwork)if (!(lwork>=7)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgejsv:lwork=%d", "(""lwork>=7"") failed for ""7th keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 65073 | /* Processing variable iwork */ | |||
| 65074 | iwork_Dims[0]=MAX(3, m+3*n)((3 > m+3*n) ? (3) : (m+3*n)); | |||
| 65075 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 65076 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 65077 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 65078 | if (!PyErr_Occurred()) | |||
| 65079 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sgejsv to C/Fortran array" ); | |||
| 65080 | } else { | |||
| 65081 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 65082 | ||||
| 65083 | /* Processing variable u */ | |||
| 65084 | u_Dims[0]=((jobt == 0)&&(jobu == 3)?0:m),u_Dims[1]=((jobt == 0)&&(jobu == 3)?0:(jobu == 1?m:n)); | |||
| 65085 | capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 65086 | capi_u_tmp = array_from_pyobj(NPY_FLOAT,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct)); | |||
| 65087 | if (capi_u_tmp == NULL((void*)0)) { | |||
| 65088 | if (!PyErr_Occurred()) | |||
| 65089 | PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.sgejsv to C/Fortran array" ); | |||
| 65090 | } else { | |||
| 65091 | u = (float *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data)); | |||
| 65092 | ||||
| 65093 | /* Processing variable work */ | |||
| 65094 | work_Dims[0]=lwork; | |||
| 65095 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 65096 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 65097 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 65098 | if (!PyErr_Occurred()) | |||
| 65099 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgejsv to C/Fortran array" ); | |||
| 65100 | } else { | |||
| 65101 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 65102 | ||||
| 65103 | /*end of frompyobj*/ | |||
| 65104 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65105 | f2py_start_call_clock(); | |||
| 65106 | #endif | |||
| 65107 | /*callfortranroutine*/ | |||
| 65108 | {F_INTint i;(*f2py_func)(&"CEFGAR"[joba],&"UFWN"[jobu],&"VJWN"[jobv],(jobr?"R":"N"),(jobt?"T":"N"),(jobp?"P":"N"),&m,&n,a,&lda,sva,u,&ldu,v,&ldv,work,&lwork,iwork,&info);for(i=0;i<7;i++){workout[i] = work[i];}for(i=0;i<3;i++){iworkout[i] = iwork[i];}} ; | |||
| 65109 | /*(*f2py_func)(&joba,&jobu,&jobv,&jobr,&jobt,&jobp,&m,&n,a,&lda,sva,u,&ldu,v,&ldv,work,workout,&lwork,iwork,iworkout,&info);*/ | |||
| 65110 | if (PyErr_Occurred()) | |||
| 65111 | f2py_success = 0; | |||
| 65112 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65113 | f2py_stop_call_clock(); | |||
| 65114 | #endif | |||
| 65115 | /*end of callfortranroutine*/ | |||
| 65116 | if (f2py_success) { | |||
| 65117 | /*pyobjfrom*/ | |||
| 65118 | /*end of pyobjfrom*/ | |||
| 65119 | CFUNCSMESS("Building return value.\n"); | |||
| 65120 | capi_buildvalue = Py_BuildValue("NNNNNi",capi_sva_tmp,capi_u_tmp,capi_v_tmp,capi_workout_tmp,capi_iworkout_tmp,info); | |||
| 65121 | /*closepyobjfrom*/ | |||
| 65122 | /*end of closepyobjfrom*/ | |||
| 65123 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 65124 | /*cleanupfrompyobj*/ | |||
| 65125 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 65126 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 65127 | /* End of cleaning variable work */ | |||
| 65128 | } /*if (capi_u_tmp == NULL) ... else of u*/ | |||
| 65129 | /* End of cleaning variable u */ | |||
| 65130 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 65131 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 65132 | /* End of cleaning variable iwork */ | |||
| 65133 | } /*CHECKSCALAR(lwork>=7)*/ | |||
| 65134 | } /*if (f2py_success) of lwork*/ | |||
| 65135 | /* End of cleaning variable lwork */ | |||
| 65136 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 65137 | /* End of cleaning variable v */ | |||
| 65138 | /* End of cleaning variable ldu */ | |||
| 65139 | } /*CHECKSCALAR(m>=n)*/ | |||
| 65140 | /* End of cleaning variable m */ | |||
| 65141 | /* End of cleaning variable ldv */ | |||
| 65142 | } /*if (capi_sva_tmp == NULL) ... else of sva*/ | |||
| 65143 | /* End of cleaning variable sva */ | |||
| 65144 | /* End of cleaning variable lda */ | |||
| 65145 | /* End of cleaning variable n */ | |||
| 65146 | } /*CHECKSCALAR((0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2))))*/ | |||
| 65147 | } /*if (f2py_success) of jobv*/ | |||
| 65148 | /* End of cleaning variable jobv */ | |||
| 65149 | /* End of cleaning variable info */ | |||
| 65150 | } /*if (capi_iworkout_tmp == NULL) ... else of iworkout*/ | |||
| 65151 | /* End of cleaning variable iworkout */ | |||
| 65152 | } /*if (capi_workout_tmp == NULL) ... else of workout*/ | |||
| 65153 | /* End of cleaning variable workout */ | |||
| 65154 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 65155 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 65156 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 65157 | /* End of cleaning variable a */ | |||
| 65158 | } /*CHECKSCALAR((jobp == 0) || (jobp == 1))*/ | |||
| 65159 | } /*if (f2py_success) of jobp*/ | |||
| 65160 | /* End of cleaning variable jobp */ | |||
| 65161 | } /*CHECKSCALAR((jobt == 0) || (jobt == 1))*/ | |||
| 65162 | } /*if (f2py_success) of jobt*/ | |||
| 65163 | /* End of cleaning variable jobt */ | |||
| 65164 | } /*CHECKSCALAR((jobr == 0) || (jobr == 1))*/ | |||
| 65165 | } /*if (f2py_success) of jobr*/ | |||
| 65166 | /* End of cleaning variable jobr */ | |||
| 65167 | } /*CHECKSCALAR((0 <= jobu) && (jobu < 4))*/ | |||
| 65168 | } /*if (f2py_success) of jobu*/ | |||
| 65169 | /* End of cleaning variable jobu */ | |||
| 65170 | } /*CHECKSCALAR((0 <= joba) && (joba < 6))*/ | |||
| 65171 | } /*if (f2py_success) of joba*/ | |||
| 65172 | /* End of cleaning variable joba */ | |||
| 65173 | /*end of cleanupfrompyobj*/ | |||
| 65174 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 65175 | /*routdebugfailure*/ | |||
| 65176 | } else { | |||
| 65177 | /*routdebugleave*/ | |||
| 65178 | } | |||
| 65179 | CFUNCSMESS("Freeing memory.\n"); | |||
| 65180 | /*freemem*/ | |||
| 65181 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65182 | f2py_stop_clock(); | |||
| 65183 | #endif | |||
| 65184 | return capi_buildvalue; | |||
| 65185 | } | |||
| 65186 | /******************************* end of sgejsv *******************************/ | |||
| 65187 | ||||
| 65188 | /*********************************** dgejsv ***********************************/ | |||
| 65189 | static char doc_f2py_rout__flapack_dgejsv[] = "\ | |||
| 65190 | sva,u,v,workout,iworkout,info = dgejsv(a,[joba,jobu,jobv,jobr,jobt,jobp,lwork,overwrite_a])\n\nWrapper for ``dgejsv``.\ | |||
| 65191 | \n\nParameters\n----------\n" | |||
| 65192 | "a : input rank-2 array('d') with bounds (lda,n)\n" | |||
| 65193 | "\nOther Parameters\n----------------\n" | |||
| 65194 | "joba : input int, optional\n Default: 4\n" | |||
| 65195 | "jobu : input int, optional\n Default: 0\n" | |||
| 65196 | "jobv : input int, optional\n Default: 0\n" | |||
| 65197 | "jobr : input int, optional\n Default: 1\n" | |||
| 65198 | "jobt : input int, optional\n Default: 0\n" | |||
| 65199 | "jobp : input int, optional\n Default: 1\n" | |||
| 65200 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 65201 | "lwork : input int, optional\n Default: max(6*n+2*n*n, max(2*m+n, max(4*n+n*n, max(2*n+n*n+6, 7))))\n" | |||
| 65202 | "\nReturns\n-------\n" | |||
| 65203 | "sva : rank-1 array('d') with bounds (n)\n" | |||
| 65204 | "u : rank-2 array('d') with bounds (((jobt == 0)&&(jobu == 3)?0:m),((jobt == 0)&&(jobu == 3)?0:(jobu == 1?m:n)))\n" | |||
| 65205 | "v : rank-2 array('d') with bounds (((jobt == 0)&&(jobv == 3)?0:ldv),((jobt == 0)&&(jobv == 3)?0:n))\n" | |||
| 65206 | "workout : rank-1 array('d') with bounds (7)\n" | |||
| 65207 | "iworkout : rank-1 array('i') with bounds (3)\n" | |||
| 65208 | "info : int"; | |||
| 65209 | /* extern void F_FUNC(dgejsv,DGEJSV)(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 65210 | static PyObject *f2py_rout__flapack_dgejsv(const PyObject *capi_self, | |||
| 65211 | PyObject *capi_args, | |||
| 65212 | PyObject *capi_keywds, | |||
| 65213 | void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 65214 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 65215 | volatile int f2py_success = 1; | |||
| 65216 | /*decl*/ | |||
| 65217 | ||||
| 65218 | int joba = 0; | |||
| 65219 | PyObject *joba_capi = Py_None(&_Py_NoneStruct); | |||
| 65220 | int jobu = 0; | |||
| 65221 | PyObject *jobu_capi = Py_None(&_Py_NoneStruct); | |||
| 65222 | int jobv = 0; | |||
| 65223 | PyObject *jobv_capi = Py_None(&_Py_NoneStruct); | |||
| 65224 | int jobr = 0; | |||
| 65225 | PyObject *jobr_capi = Py_None(&_Py_NoneStruct); | |||
| 65226 | int jobt = 0; | |||
| 65227 | PyObject *jobt_capi = Py_None(&_Py_NoneStruct); | |||
| 65228 | int jobp = 0; | |||
| 65229 | PyObject *jobp_capi = Py_None(&_Py_NoneStruct); | |||
| 65230 | int m = 0; | |||
| 65231 | int n = 0; | |||
| 65232 | double *a = NULL((void*)0); | |||
| 65233 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 65234 | const int a_Rank = 2; | |||
| 65235 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 65236 | int capi_a_intent = 0; | |||
| 65237 | int capi_overwrite_a = 0; | |||
| 65238 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 65239 | int lda = 0; | |||
| 65240 | double *sva = NULL((void*)0); | |||
| 65241 | npy_intp sva_Dims[1] = {-1}; | |||
| 65242 | const int sva_Rank = 1; | |||
| 65243 | PyArrayObject *capi_sva_tmp = NULL((void*)0); | |||
| 65244 | int capi_sva_intent = 0; | |||
| 65245 | double *u = NULL((void*)0); | |||
| 65246 | npy_intp u_Dims[2] = {-1, -1}; | |||
| 65247 | const int u_Rank = 2; | |||
| 65248 | PyArrayObject *capi_u_tmp = NULL((void*)0); | |||
| 65249 | int capi_u_intent = 0; | |||
| 65250 | int ldu = 0; | |||
| 65251 | double *v = NULL((void*)0); | |||
| 65252 | npy_intp v_Dims[2] = {-1, -1}; | |||
| 65253 | const int v_Rank = 2; | |||
| 65254 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 65255 | int capi_v_intent = 0; | |||
| 65256 | int ldv = 0; | |||
| 65257 | double *work = NULL((void*)0); | |||
| 65258 | npy_intp work_Dims[1] = {-1}; | |||
| 65259 | const int work_Rank = 1; | |||
| 65260 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 65261 | int capi_work_intent = 0; | |||
| 65262 | double *workout = NULL((void*)0); | |||
| 65263 | npy_intp workout_Dims[1] = {-1}; | |||
| 65264 | const int workout_Rank = 1; | |||
| 65265 | PyArrayObject *capi_workout_tmp = NULL((void*)0); | |||
| 65266 | int capi_workout_intent = 0; | |||
| 65267 | int lwork = 0; | |||
| 65268 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 65269 | int *iwork = NULL((void*)0); | |||
| 65270 | npy_intp iwork_Dims[1] = {-1}; | |||
| 65271 | const int iwork_Rank = 1; | |||
| 65272 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 65273 | int capi_iwork_intent = 0; | |||
| 65274 | int *iworkout = NULL((void*)0); | |||
| 65275 | npy_intp iworkout_Dims[1] = {-1}; | |||
| 65276 | const int iworkout_Rank = 1; | |||
| 65277 | PyArrayObject *capi_iworkout_tmp = NULL((void*)0); | |||
| 65278 | int capi_iworkout_intent = 0; | |||
| 65279 | int info = 0; | |||
| 65280 | static char *capi_kwlist[] = {"a","joba","jobu","jobv","jobr","jobt","jobp","lwork","overwrite_a",NULL((void*)0)}; | |||
| 65281 | ||||
| 65282 | /*routdebugenter*/ | |||
| 65283 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65284 | f2py_start_clock(); | |||
| 65285 | #endif | |||
| 65286 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 65287 | "O|OOOOOOOi:_flapack.dgejsv",\ | |||
| 65288 | capi_kwlist,&a_capi,&joba_capi,&jobu_capi,&jobv_capi,&jobr_capi,&jobt_capi,&jobp_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 65289 | return NULL((void*)0); | |||
| 65290 | /*frompyobj*/ | |||
| 65291 | /* Processing variable joba */ | |||
| 65292 | if (joba_capi == Py_None(&_Py_NoneStruct)) joba = 4; else | |||
| 65293 | f2py_success = int_from_pyobj(&joba,joba_capi,"_flapack.dgejsv() 1st keyword (joba) can't be converted to int"); | |||
| 65294 | if (f2py_success) { | |||
| 65295 | CHECKSCALAR((0 <= joba) && (joba < 6),"(0 <= joba) && (joba < 6)","1st keyword joba","dgejsv:joba=%d",joba)if (!((0 <= joba) && (joba < 6))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgejsv:joba=%d", "(""(0 <= joba) && (joba < 6)" ") failed for ""1st keyword joba", joba); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 65296 | /* Processing variable jobu */ | |||
| 65297 | if (jobu_capi == Py_None(&_Py_NoneStruct)) jobu = 0; else | |||
| 65298 | f2py_success = int_from_pyobj(&jobu,jobu_capi,"_flapack.dgejsv() 2nd keyword (jobu) can't be converted to int"); | |||
| 65299 | if (f2py_success) { | |||
| 65300 | CHECKSCALAR((0 <= jobu) && (jobu < 4),"(0 <= jobu) && (jobu < 4)","2nd keyword jobu","dgejsv:jobu=%d",jobu)if (!((0 <= jobu) && (jobu < 4))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgejsv:jobu=%d", "(""(0 <= jobu) && (jobu < 4)" ") failed for ""2nd keyword jobu", jobu); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 65301 | /* Processing variable jobr */ | |||
| 65302 | if (jobr_capi == Py_None(&_Py_NoneStruct)) jobr = 1; else | |||
| 65303 | f2py_success = int_from_pyobj(&jobr,jobr_capi,"_flapack.dgejsv() 4th keyword (jobr) can't be converted to int"); | |||
| 65304 | if (f2py_success) { | |||
| 65305 | CHECKSCALAR((jobr == 0) || (jobr == 1),"(jobr == 0) || (jobr == 1)","4th keyword jobr","dgejsv:jobr=%d",jobr)if (!((jobr == 0) || (jobr == 1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgejsv:jobr=%d", "(""(jobr == 0) || (jobr == 1)"") failed for " "4th keyword jobr", jobr); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 65306 | /* Processing variable jobt */ | |||
| 65307 | if (jobt_capi == Py_None(&_Py_NoneStruct)) jobt = 0; else | |||
| 65308 | f2py_success = int_from_pyobj(&jobt,jobt_capi,"_flapack.dgejsv() 5th keyword (jobt) can't be converted to int"); | |||
| 65309 | if (f2py_success) { | |||
| 65310 | CHECKSCALAR((jobt == 0) || (jobt == 1),"(jobt == 0) || (jobt == 1)","5th keyword jobt","dgejsv:jobt=%d",jobt)if (!((jobt == 0) || (jobt == 1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgejsv:jobt=%d", "(""(jobt == 0) || (jobt == 1)"") failed for " "5th keyword jobt", jobt); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 65311 | /* Processing variable jobp */ | |||
| 65312 | if (jobp_capi == Py_None(&_Py_NoneStruct)) jobp = 1; else | |||
| 65313 | f2py_success = int_from_pyobj(&jobp,jobp_capi,"_flapack.dgejsv() 6th keyword (jobp) can't be converted to int"); | |||
| 65314 | if (f2py_success) { | |||
| 65315 | CHECKSCALAR((jobp == 0) || (jobp == 1),"(jobp == 0) || (jobp == 1)","6th keyword jobp","dgejsv:jobp=%d",jobp)if (!((jobp == 0) || (jobp == 1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgejsv:jobp=%d", "(""(jobp == 0) || (jobp == 1)"") failed for " "6th keyword jobp", jobp); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 65316 | /* Processing variable a */ | |||
| 65317 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 65318 | ; | |||
| 65319 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 65320 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 65321 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 65322 | if (!PyErr_Occurred()) | |||
| 65323 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgejsv to C/Fortran array" ); | |||
| 65324 | } else { | |||
| 65325 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 65326 | ||||
| 65327 | /* Processing variable workout */ | |||
| 65328 | workout_Dims[0]=7; | |||
| 65329 | capi_workout_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 65330 | capi_workout_tmp = array_from_pyobj(NPY_DOUBLE,workout_Dims,workout_Rank,capi_workout_intent,Py_None(&_Py_NoneStruct)); | |||
| 65331 | if (capi_workout_tmp == NULL((void*)0)) { | |||
| 65332 | if (!PyErr_Occurred()) | |||
| 65333 | PyErr_SetString(_flapack_error,"failed in converting hidden `workout' of _flapack.dgejsv to C/Fortran array" ); | |||
| 65334 | } else { | |||
| 65335 | workout = (double *)(PyArray_DATA(capi_workout_tmp)((void *)((PyArrayObject_fields *)(capi_workout_tmp))->data )); | |||
| 65336 | ||||
| 65337 | /* Processing variable iworkout */ | |||
| 65338 | iworkout_Dims[0]=3; | |||
| 65339 | capi_iworkout_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 65340 | capi_iworkout_tmp = array_from_pyobj(NPY_INT,iworkout_Dims,iworkout_Rank,capi_iworkout_intent,Py_None(&_Py_NoneStruct)); | |||
| 65341 | if (capi_iworkout_tmp == NULL((void*)0)) { | |||
| 65342 | if (!PyErr_Occurred()) | |||
| 65343 | PyErr_SetString(_flapack_error,"failed in converting hidden `iworkout' of _flapack.dgejsv to C/Fortran array" ); | |||
| 65344 | } else { | |||
| 65345 | iworkout = (int *)(PyArray_DATA(capi_iworkout_tmp)((void *)((PyArrayObject_fields *)(capi_iworkout_tmp))->data )); | |||
| 65346 | ||||
| 65347 | /* Processing variable info */ | |||
| 65348 | /* Processing variable jobv */ | |||
| 65349 | if (jobv_capi == Py_None(&_Py_NoneStruct)) jobv = 0; else | |||
| 65350 | f2py_success = int_from_pyobj(&jobv,jobv_capi,"_flapack.dgejsv() 3rd keyword (jobv) can't be converted to int"); | |||
| 65351 | if (f2py_success) { | |||
| 65352 | CHECKSCALAR((0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2))),"(0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2)))","3rd keyword jobv","dgejsv:jobv=%d",jobv)if (!((0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2))))) { char errstring[256]; __builtin___sprintf_chk (errstring , 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgejsv:jobv=%d" , "(""(0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2)))" ") failed for ""3rd keyword jobv", jobv); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 65353 | /* Processing variable n */ | |||
| 65354 | n = shape(a, 1)a_Dims[1]; | |||
| 65355 | /* Processing variable lda */ | |||
| 65356 | lda = max(1, shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 65357 | /* Processing variable sva */ | |||
| 65358 | sva_Dims[0]=n; | |||
| 65359 | capi_sva_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 65360 | capi_sva_tmp = array_from_pyobj(NPY_DOUBLE,sva_Dims,sva_Rank,capi_sva_intent,Py_None(&_Py_NoneStruct)); | |||
| 65361 | if (capi_sva_tmp == NULL((void*)0)) { | |||
| 65362 | if (!PyErr_Occurred()) | |||
| 65363 | PyErr_SetString(_flapack_error,"failed in converting hidden `sva' of _flapack.dgejsv to C/Fortran array" ); | |||
| 65364 | } else { | |||
| 65365 | sva = (double *)(PyArray_DATA(capi_sva_tmp)((void *)((PyArrayObject_fields *)(capi_sva_tmp))->data)); | |||
| 65366 | ||||
| 65367 | /* Processing variable ldv */ | |||
| 65368 | ldv = max(1,(jobv < 3?n:1))((1 > (jobv < 3?n:1)) ? (1) : ((jobv < 3?n:1))); | |||
| 65369 | /* Processing variable m */ | |||
| 65370 | m = shape(a, 0)a_Dims[0]; | |||
| 65371 | CHECKSCALAR(m>=n,"m>=n","hidden m","dgejsv:m=%d",m)if (!(m>=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgejsv:m=%d", "(""m>=n"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 65372 | /* Processing variable ldu */ | |||
| 65373 | ldu = max(1,(jobu < 3?m:1))((1 > (jobu < 3?m:1)) ? (1) : ((jobu < 3?m:1))); | |||
| 65374 | /* Processing variable v */ | |||
| 65375 | v_Dims[0]=((jobt == 0)&&(jobv == 3)?0:ldv),v_Dims[1]=((jobt == 0)&&(jobv == 3)?0:n); | |||
| 65376 | capi_v_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 65377 | capi_v_tmp = array_from_pyobj(NPY_DOUBLE,v_Dims,v_Rank,capi_v_intent,Py_None(&_Py_NoneStruct)); | |||
| 65378 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 65379 | if (!PyErr_Occurred()) | |||
| 65380 | PyErr_SetString(_flapack_error,"failed in converting hidden `v' of _flapack.dgejsv to C/Fortran array" ); | |||
| 65381 | } else { | |||
| 65382 | v = (double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 65383 | ||||
| 65384 | /* Processing variable lwork */ | |||
| 65385 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(6*n+2*n*n, max(2*m+n, max(4*n+n*n, max(2*n+n*n+6, 7))))((6*n+2*n*n > ((2*m+n > ((4*n+n*n > ((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))) ? (4*n+n*n) : (((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))))) ? (2*m+n) : (((4*n+n*n > ((2*n+n*n+ 6 > 7) ? (2*n+n*n+6) : (7))) ? (4*n+n*n) : (((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))))))) ? (6*n+2*n*n) : (((2*m+n > ( (4*n+n*n > ((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))) ? (4* n+n*n) : (((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))))) ? (2*m+ n) : (((4*n+n*n > ((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7)) ) ? (4*n+n*n) : (((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7)))))) )); else | |||
| 65386 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgejsv() 7th keyword (lwork) can't be converted to int"); | |||
| 65387 | if (f2py_success) { | |||
| 65388 | CHECKSCALAR(lwork>=7,"lwork>=7","7th keyword lwork","dgejsv:lwork=%d",lwork)if (!(lwork>=7)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgejsv:lwork=%d", "(""lwork>=7"") failed for ""7th keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 65389 | /* Processing variable iwork */ | |||
| 65390 | iwork_Dims[0]=MAX(3, m+3*n)((3 > m+3*n) ? (3) : (m+3*n)); | |||
| 65391 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 65392 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 65393 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 65394 | if (!PyErr_Occurred()) | |||
| 65395 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dgejsv to C/Fortran array" ); | |||
| 65396 | } else { | |||
| 65397 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 65398 | ||||
| 65399 | /* Processing variable u */ | |||
| 65400 | u_Dims[0]=((jobt == 0)&&(jobu == 3)?0:m),u_Dims[1]=((jobt == 0)&&(jobu == 3)?0:(jobu == 1?m:n)); | |||
| 65401 | capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 65402 | capi_u_tmp = array_from_pyobj(NPY_DOUBLE,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct)); | |||
| 65403 | if (capi_u_tmp == NULL((void*)0)) { | |||
| 65404 | if (!PyErr_Occurred()) | |||
| 65405 | PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.dgejsv to C/Fortran array" ); | |||
| 65406 | } else { | |||
| 65407 | u = (double *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data)); | |||
| 65408 | ||||
| 65409 | /* Processing variable work */ | |||
| 65410 | work_Dims[0]=lwork; | |||
| 65411 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 65412 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 65413 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 65414 | if (!PyErr_Occurred()) | |||
| 65415 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgejsv to C/Fortran array" ); | |||
| 65416 | } else { | |||
| 65417 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 65418 | ||||
| 65419 | /*end of frompyobj*/ | |||
| 65420 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65421 | f2py_start_call_clock(); | |||
| 65422 | #endif | |||
| 65423 | /*callfortranroutine*/ | |||
| 65424 | {F_INTint i;(*f2py_func)(&"CEFGAR"[joba],&"UFWN"[jobu],&"VJWN"[jobv],(jobr?"R":"N"),(jobt?"T":"N"),(jobp?"P":"N"),&m,&n,a,&lda,sva,u,&ldu,v,&ldv,work,&lwork,iwork,&info);for(i=0;i<7;i++){workout[i] = work[i];}for(i=0;i<3;i++){iworkout[i] = iwork[i];}} ; | |||
| 65425 | /*(*f2py_func)(&joba,&jobu,&jobv,&jobr,&jobt,&jobp,&m,&n,a,&lda,sva,u,&ldu,v,&ldv,work,workout,&lwork,iwork,iworkout,&info);*/ | |||
| 65426 | if (PyErr_Occurred()) | |||
| 65427 | f2py_success = 0; | |||
| 65428 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65429 | f2py_stop_call_clock(); | |||
| 65430 | #endif | |||
| 65431 | /*end of callfortranroutine*/ | |||
| 65432 | if (f2py_success) { | |||
| 65433 | /*pyobjfrom*/ | |||
| 65434 | /*end of pyobjfrom*/ | |||
| 65435 | CFUNCSMESS("Building return value.\n"); | |||
| 65436 | capi_buildvalue = Py_BuildValue("NNNNNi",capi_sva_tmp,capi_u_tmp,capi_v_tmp,capi_workout_tmp,capi_iworkout_tmp,info); | |||
| 65437 | /*closepyobjfrom*/ | |||
| 65438 | /*end of closepyobjfrom*/ | |||
| 65439 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 65440 | /*cleanupfrompyobj*/ | |||
| 65441 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 65442 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 65443 | /* End of cleaning variable work */ | |||
| 65444 | } /*if (capi_u_tmp == NULL) ... else of u*/ | |||
| 65445 | /* End of cleaning variable u */ | |||
| 65446 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 65447 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 65448 | /* End of cleaning variable iwork */ | |||
| 65449 | } /*CHECKSCALAR(lwork>=7)*/ | |||
| 65450 | } /*if (f2py_success) of lwork*/ | |||
| 65451 | /* End of cleaning variable lwork */ | |||
| 65452 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 65453 | /* End of cleaning variable v */ | |||
| 65454 | /* End of cleaning variable ldu */ | |||
| 65455 | } /*CHECKSCALAR(m>=n)*/ | |||
| 65456 | /* End of cleaning variable m */ | |||
| 65457 | /* End of cleaning variable ldv */ | |||
| 65458 | } /*if (capi_sva_tmp == NULL) ... else of sva*/ | |||
| 65459 | /* End of cleaning variable sva */ | |||
| 65460 | /* End of cleaning variable lda */ | |||
| 65461 | /* End of cleaning variable n */ | |||
| 65462 | } /*CHECKSCALAR((0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2))))*/ | |||
| 65463 | } /*if (f2py_success) of jobv*/ | |||
| 65464 | /* End of cleaning variable jobv */ | |||
| 65465 | /* End of cleaning variable info */ | |||
| 65466 | } /*if (capi_iworkout_tmp == NULL) ... else of iworkout*/ | |||
| 65467 | /* End of cleaning variable iworkout */ | |||
| 65468 | } /*if (capi_workout_tmp == NULL) ... else of workout*/ | |||
| 65469 | /* End of cleaning variable workout */ | |||
| 65470 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 65471 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 65472 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 65473 | /* End of cleaning variable a */ | |||
| 65474 | } /*CHECKSCALAR((jobp == 0) || (jobp == 1))*/ | |||
| 65475 | } /*if (f2py_success) of jobp*/ | |||
| 65476 | /* End of cleaning variable jobp */ | |||
| 65477 | } /*CHECKSCALAR((jobt == 0) || (jobt == 1))*/ | |||
| 65478 | } /*if (f2py_success) of jobt*/ | |||
| 65479 | /* End of cleaning variable jobt */ | |||
| 65480 | } /*CHECKSCALAR((jobr == 0) || (jobr == 1))*/ | |||
| 65481 | } /*if (f2py_success) of jobr*/ | |||
| 65482 | /* End of cleaning variable jobr */ | |||
| 65483 | } /*CHECKSCALAR((0 <= jobu) && (jobu < 4))*/ | |||
| 65484 | } /*if (f2py_success) of jobu*/ | |||
| 65485 | /* End of cleaning variable jobu */ | |||
| 65486 | } /*CHECKSCALAR((0 <= joba) && (joba < 6))*/ | |||
| 65487 | } /*if (f2py_success) of joba*/ | |||
| 65488 | /* End of cleaning variable joba */ | |||
| 65489 | /*end of cleanupfrompyobj*/ | |||
| 65490 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 65491 | /*routdebugfailure*/ | |||
| 65492 | } else { | |||
| 65493 | /*routdebugleave*/ | |||
| 65494 | } | |||
| 65495 | CFUNCSMESS("Freeing memory.\n"); | |||
| 65496 | /*freemem*/ | |||
| 65497 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65498 | f2py_stop_clock(); | |||
| 65499 | #endif | |||
| 65500 | return capi_buildvalue; | |||
| 65501 | } | |||
| 65502 | /******************************* end of dgejsv *******************************/ | |||
| 65503 | ||||
| 65504 | /*********************************** stgexc ***********************************/ | |||
| 65505 | static char doc_f2py_rout__flapack_stgexc[] = "\ | |||
| 65506 | a,b,q,z,work,info = stgexc(a,b,q,z,ifst,ilst,[lwork,overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``stgexc``.\ | |||
| 65507 | \n\nParameters\n----------\n" | |||
| 65508 | "a : input rank-2 array('f') with bounds (lda,n)\n" | |||
| 65509 | "b : input rank-2 array('f') with bounds (ldb,n)\n" | |||
| 65510 | "q : input rank-2 array('f') with bounds (ldq,n)\n" | |||
| 65511 | "z : input rank-2 array('f') with bounds (ldz,n)\n" | |||
| 65512 | "ifst : input int\n" | |||
| 65513 | "ilst : input int\n" | |||
| 65514 | "\nOther Parameters\n----------------\n" | |||
| 65515 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 65516 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 65517 | "overwrite_q : input int, optional\n Default: 0\n" | |||
| 65518 | "overwrite_z : input int, optional\n Default: 0\n" | |||
| 65519 | "lwork : input int, optional\n Default: max(4*n+16,1)\n" | |||
| 65520 | "\nReturns\n-------\n" | |||
| 65521 | "a : rank-2 array('f') with bounds (lda,n)\n" | |||
| 65522 | "b : rank-2 array('f') with bounds (ldb,n)\n" | |||
| 65523 | "q : rank-2 array('f') with bounds (ldq,n)\n" | |||
| 65524 | "z : rank-2 array('f') with bounds (ldz,n)\n" | |||
| 65525 | "work : rank-1 array('f') with bounds (MAX(lwork,1))\n" | |||
| 65526 | "info : int"; | |||
| 65527 | /* extern void F_FUNC(stgexc,STGEXC)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 65528 | static PyObject *f2py_rout__flapack_stgexc(const PyObject *capi_self, | |||
| 65529 | PyObject *capi_args, | |||
| 65530 | PyObject *capi_keywds, | |||
| 65531 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 65532 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 65533 | volatile int f2py_success = 1; | |||
| 65534 | /*decl*/ | |||
| 65535 | ||||
| 65536 | int wantq = 0; | |||
| 65537 | int wantz = 0; | |||
| 65538 | int n = 0; | |||
| 65539 | float *a = NULL((void*)0); | |||
| 65540 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 65541 | const int a_Rank = 2; | |||
| 65542 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 65543 | int capi_a_intent = 0; | |||
| 65544 | int capi_overwrite_a = 0; | |||
| 65545 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 65546 | int lda = 0; | |||
| 65547 | float *b = NULL((void*)0); | |||
| 65548 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 65549 | const int b_Rank = 2; | |||
| 65550 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 65551 | int capi_b_intent = 0; | |||
| 65552 | int capi_overwrite_b = 0; | |||
| 65553 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 65554 | int ldb = 0; | |||
| 65555 | float *q = NULL((void*)0); | |||
| 65556 | npy_intp q_Dims[2] = {-1, -1}; | |||
| 65557 | const int q_Rank = 2; | |||
| 65558 | PyArrayObject *capi_q_tmp = NULL((void*)0); | |||
| 65559 | int capi_q_intent = 0; | |||
| 65560 | int capi_overwrite_q = 0; | |||
| 65561 | PyObject *q_capi = Py_None(&_Py_NoneStruct); | |||
| 65562 | int ldq = 0; | |||
| 65563 | float *z = NULL((void*)0); | |||
| 65564 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 65565 | const int z_Rank = 2; | |||
| 65566 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 65567 | int capi_z_intent = 0; | |||
| 65568 | int capi_overwrite_z = 0; | |||
| 65569 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 65570 | int ldz = 0; | |||
| 65571 | int ifst = 0; | |||
| 65572 | PyObject *ifst_capi = Py_None(&_Py_NoneStruct); | |||
| 65573 | int ilst = 0; | |||
| 65574 | PyObject *ilst_capi = Py_None(&_Py_NoneStruct); | |||
| 65575 | float *work = NULL((void*)0); | |||
| 65576 | npy_intp work_Dims[1] = {-1}; | |||
| 65577 | const int work_Rank = 1; | |||
| 65578 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 65579 | int capi_work_intent = 0; | |||
| 65580 | int lwork = 0; | |||
| 65581 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 65582 | int info = 0; | |||
| 65583 | static char *capi_kwlist[] = {"a","b","q","z","ifst","ilst","lwork","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)}; | |||
| 65584 | ||||
| 65585 | /*routdebugenter*/ | |||
| 65586 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65587 | f2py_start_clock(); | |||
| 65588 | #endif | |||
| 65589 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 65590 | "OOOOOO|Oiiii:_flapack.stgexc",\ | |||
| 65591 | capi_kwlist,&a_capi,&b_capi,&q_capi,&z_capi,&ifst_capi,&ilst_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z)) | |||
| 65592 | return NULL((void*)0); | |||
| 65593 | /*frompyobj*/ | |||
| 65594 | /* Processing variable wantq */ | |||
| 65595 | wantq = 1; | |||
| 65596 | CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","hidden wantq","stgexc:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stgexc:wantq=%d", "(""wantq==0||wantq==1"") failed for " "hidden wantq", wantq); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 65597 | /* Processing variable wantz */ | |||
| 65598 | wantz = 1; | |||
| 65599 | CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","hidden wantz","stgexc:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stgexc:wantz=%d", "(""wantz==0||wantz==1"") failed for " "hidden wantz", wantz); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 65600 | /* Processing variable a */ | |||
| 65601 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 65602 | ; | |||
| 65603 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 65604 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 65605 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 65606 | if (!PyErr_Occurred()) | |||
| 65607 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.stgexc to C/Fortran array" ); | |||
| 65608 | } else { | |||
| 65609 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 65610 | ||||
| 65611 | /* Processing variable ifst */ | |||
| 65612 | f2py_success = int_from_pyobj(&ifst,ifst_capi,"_flapack.stgexc() 5th argument (ifst) can't be converted to int"); | |||
| 65613 | if (f2py_success) { | |||
| 65614 | /* Processing variable ilst */ | |||
| 65615 | f2py_success = int_from_pyobj(&ilst,ilst_capi,"_flapack.stgexc() 6th argument (ilst) can't be converted to int"); | |||
| 65616 | if (f2py_success) { | |||
| 65617 | /* Processing variable info */ | |||
| 65618 | /* Processing variable n */ | |||
| 65619 | n = shape(a,1)a_Dims[1]; | |||
| 65620 | /* Processing variable lda */ | |||
| 65621 | lda = shape(a,0)a_Dims[0]; | |||
| 65622 | /* Processing variable b */ | |||
| 65623 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 65624 | b_Dims[1]=n; | |||
| 65625 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 65626 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 65627 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 65628 | if (!PyErr_Occurred()) | |||
| 65629 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.stgexc to C/Fortran array" ); | |||
| 65630 | } else { | |||
| 65631 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 65632 | ||||
| 65633 | /* Processing variable ldb */ | |||
| 65634 | ldb = shape(b,0)b_Dims[0]; | |||
| 65635 | /* Processing variable q */ | |||
| 65636 | capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32); | |||
| 65637 | q_Dims[1]=n; | |||
| 65638 | capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 65639 | capi_q_tmp = array_from_pyobj(NPY_FLOAT,q_Dims,q_Rank,capi_q_intent,q_capi); | |||
| 65640 | if (capi_q_tmp == NULL((void*)0)) { | |||
| 65641 | if (!PyErr_Occurred()) | |||
| 65642 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `q' of _flapack.stgexc to C/Fortran array" ); | |||
| 65643 | } else { | |||
| 65644 | q = (float *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data)); | |||
| 65645 | ||||
| 65646 | /* Processing variable ldq */ | |||
| 65647 | ldq = shape(q,0)q_Dims[0]; | |||
| 65648 | /* Processing variable z */ | |||
| 65649 | capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32); | |||
| 65650 | z_Dims[1]=n; | |||
| 65651 | capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 65652 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 65653 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 65654 | if (!PyErr_Occurred()) | |||
| 65655 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `z' of _flapack.stgexc to C/Fortran array" ); | |||
| 65656 | } else { | |||
| 65657 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 65658 | ||||
| 65659 | /* Processing variable ldz */ | |||
| 65660 | ldz = shape(z,0)z_Dims[0]; | |||
| 65661 | /* Processing variable lwork */ | |||
| 65662 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(4*n+16,1)((4*n+16 > 1) ? (4*n+16) : (1)); else | |||
| 65663 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.stgexc() 1st keyword (lwork) can't be converted to int"); | |||
| 65664 | if (f2py_success) { | |||
| 65665 | CHECKSCALAR(lwork == -1 || lwork >= 4*n+16,"lwork == -1 || lwork >= 4*n+16","1st keyword lwork","stgexc:lwork=%d",lwork)if (!(lwork == -1 || lwork >= 4*n+16)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""stgexc:lwork=%d", "(""lwork == -1 || lwork >= 4*n+16" ") failed for ""1st keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 65666 | /* Processing variable work */ | |||
| 65667 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 65668 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 65669 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 65670 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 65671 | if (!PyErr_Occurred()) | |||
| 65672 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.stgexc to C/Fortran array" ); | |||
| 65673 | } else { | |||
| 65674 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 65675 | ||||
| 65676 | /*end of frompyobj*/ | |||
| 65677 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65678 | f2py_start_call_clock(); | |||
| 65679 | #endif | |||
| 65680 | /*callfortranroutine*/ | |||
| 65681 | { ifst++; ilst++; (*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,work,&lwork,&info); } ; | |||
| 65682 | /*(*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,work,&lwork,&info);*/ | |||
| 65683 | if (PyErr_Occurred()) | |||
| 65684 | f2py_success = 0; | |||
| 65685 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65686 | f2py_stop_call_clock(); | |||
| 65687 | #endif | |||
| 65688 | /*end of callfortranroutine*/ | |||
| 65689 | if (f2py_success) { | |||
| 65690 | /*pyobjfrom*/ | |||
| 65691 | /*end of pyobjfrom*/ | |||
| 65692 | CFUNCSMESS("Building return value.\n"); | |||
| 65693 | capi_buildvalue = Py_BuildValue("NNNNNi",capi_a_tmp,capi_b_tmp,capi_q_tmp,capi_z_tmp,capi_work_tmp,info); | |||
| 65694 | /*closepyobjfrom*/ | |||
| 65695 | /*end of closepyobjfrom*/ | |||
| 65696 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 65697 | /*cleanupfrompyobj*/ | |||
| 65698 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 65699 | /* End of cleaning variable work */ | |||
| 65700 | } /*CHECKSCALAR(lwork == -1 || lwork >= 4*n+16)*/ | |||
| 65701 | } /*if (f2py_success) of lwork*/ | |||
| 65702 | /* End of cleaning variable lwork */ | |||
| 65703 | /* End of cleaning variable ldz */ | |||
| 65704 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 65705 | /* End of cleaning variable z */ | |||
| 65706 | /* End of cleaning variable ldq */ | |||
| 65707 | } /*if (capi_q_tmp == NULL) ... else of q*/ | |||
| 65708 | /* End of cleaning variable q */ | |||
| 65709 | /* End of cleaning variable ldb */ | |||
| 65710 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 65711 | /* End of cleaning variable b */ | |||
| 65712 | /* End of cleaning variable lda */ | |||
| 65713 | /* End of cleaning variable n */ | |||
| 65714 | /* End of cleaning variable info */ | |||
| 65715 | } /*if (f2py_success) of ilst*/ | |||
| 65716 | /* End of cleaning variable ilst */ | |||
| 65717 | } /*if (f2py_success) of ifst*/ | |||
| 65718 | /* End of cleaning variable ifst */ | |||
| 65719 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 65720 | /* End of cleaning variable a */ | |||
| 65721 | } /*CHECKSCALAR(wantz==0||wantz==1)*/ | |||
| 65722 | /* End of cleaning variable wantz */ | |||
| 65723 | } /*CHECKSCALAR(wantq==0||wantq==1)*/ | |||
| 65724 | /* End of cleaning variable wantq */ | |||
| 65725 | /*end of cleanupfrompyobj*/ | |||
| 65726 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 65727 | /*routdebugfailure*/ | |||
| 65728 | } else { | |||
| 65729 | /*routdebugleave*/ | |||
| 65730 | } | |||
| 65731 | CFUNCSMESS("Freeing memory.\n"); | |||
| 65732 | /*freemem*/ | |||
| 65733 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65734 | f2py_stop_clock(); | |||
| 65735 | #endif | |||
| 65736 | return capi_buildvalue; | |||
| 65737 | } | |||
| 65738 | /******************************* end of stgexc *******************************/ | |||
| 65739 | ||||
| 65740 | /*********************************** dtgexc ***********************************/ | |||
| 65741 | static char doc_f2py_rout__flapack_dtgexc[] = "\ | |||
| 65742 | a,b,q,z,work,info = dtgexc(a,b,q,z,ifst,ilst,[lwork,overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``dtgexc``.\ | |||
| 65743 | \n\nParameters\n----------\n" | |||
| 65744 | "a : input rank-2 array('d') with bounds (lda,n)\n" | |||
| 65745 | "b : input rank-2 array('d') with bounds (ldb,n)\n" | |||
| 65746 | "q : input rank-2 array('d') with bounds (ldq,n)\n" | |||
| 65747 | "z : input rank-2 array('d') with bounds (ldz,n)\n" | |||
| 65748 | "ifst : input int\n" | |||
| 65749 | "ilst : input int\n" | |||
| 65750 | "\nOther Parameters\n----------------\n" | |||
| 65751 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 65752 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 65753 | "overwrite_q : input int, optional\n Default: 0\n" | |||
| 65754 | "overwrite_z : input int, optional\n Default: 0\n" | |||
| 65755 | "lwork : input int, optional\n Default: max(4*n+16,1)\n" | |||
| 65756 | "\nReturns\n-------\n" | |||
| 65757 | "a : rank-2 array('d') with bounds (lda,n)\n" | |||
| 65758 | "b : rank-2 array('d') with bounds (ldb,n)\n" | |||
| 65759 | "q : rank-2 array('d') with bounds (ldq,n)\n" | |||
| 65760 | "z : rank-2 array('d') with bounds (ldz,n)\n" | |||
| 65761 | "work : rank-1 array('d') with bounds (MAX(lwork,1))\n" | |||
| 65762 | "info : int"; | |||
| 65763 | /* extern void F_FUNC(dtgexc,DTGEXC)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 65764 | static PyObject *f2py_rout__flapack_dtgexc(const PyObject *capi_self, | |||
| 65765 | PyObject *capi_args, | |||
| 65766 | PyObject *capi_keywds, | |||
| 65767 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 65768 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 65769 | volatile int f2py_success = 1; | |||
| 65770 | /*decl*/ | |||
| 65771 | ||||
| 65772 | int wantq = 0; | |||
| 65773 | int wantz = 0; | |||
| 65774 | int n = 0; | |||
| 65775 | double *a = NULL((void*)0); | |||
| 65776 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 65777 | const int a_Rank = 2; | |||
| 65778 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 65779 | int capi_a_intent = 0; | |||
| 65780 | int capi_overwrite_a = 0; | |||
| 65781 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 65782 | int lda = 0; | |||
| 65783 | double *b = NULL((void*)0); | |||
| 65784 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 65785 | const int b_Rank = 2; | |||
| 65786 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 65787 | int capi_b_intent = 0; | |||
| 65788 | int capi_overwrite_b = 0; | |||
| 65789 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 65790 | int ldb = 0; | |||
| 65791 | double *q = NULL((void*)0); | |||
| 65792 | npy_intp q_Dims[2] = {-1, -1}; | |||
| 65793 | const int q_Rank = 2; | |||
| 65794 | PyArrayObject *capi_q_tmp = NULL((void*)0); | |||
| 65795 | int capi_q_intent = 0; | |||
| 65796 | int capi_overwrite_q = 0; | |||
| 65797 | PyObject *q_capi = Py_None(&_Py_NoneStruct); | |||
| 65798 | int ldq = 0; | |||
| 65799 | double *z = NULL((void*)0); | |||
| 65800 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 65801 | const int z_Rank = 2; | |||
| 65802 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 65803 | int capi_z_intent = 0; | |||
| 65804 | int capi_overwrite_z = 0; | |||
| 65805 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 65806 | int ldz = 0; | |||
| 65807 | int ifst = 0; | |||
| 65808 | PyObject *ifst_capi = Py_None(&_Py_NoneStruct); | |||
| 65809 | int ilst = 0; | |||
| 65810 | PyObject *ilst_capi = Py_None(&_Py_NoneStruct); | |||
| 65811 | double *work = NULL((void*)0); | |||
| 65812 | npy_intp work_Dims[1] = {-1}; | |||
| 65813 | const int work_Rank = 1; | |||
| 65814 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 65815 | int capi_work_intent = 0; | |||
| 65816 | int lwork = 0; | |||
| 65817 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 65818 | int info = 0; | |||
| 65819 | static char *capi_kwlist[] = {"a","b","q","z","ifst","ilst","lwork","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)}; | |||
| 65820 | ||||
| 65821 | /*routdebugenter*/ | |||
| 65822 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65823 | f2py_start_clock(); | |||
| 65824 | #endif | |||
| 65825 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 65826 | "OOOOOO|Oiiii:_flapack.dtgexc",\ | |||
| 65827 | capi_kwlist,&a_capi,&b_capi,&q_capi,&z_capi,&ifst_capi,&ilst_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z)) | |||
| 65828 | return NULL((void*)0); | |||
| 65829 | /*frompyobj*/ | |||
| 65830 | /* Processing variable wantq */ | |||
| 65831 | wantq = 1; | |||
| 65832 | CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","hidden wantq","dtgexc:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtgexc:wantq=%d", "(""wantq==0||wantq==1"") failed for " "hidden wantq", wantq); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 65833 | /* Processing variable wantz */ | |||
| 65834 | wantz = 1; | |||
| 65835 | CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","hidden wantz","dtgexc:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtgexc:wantz=%d", "(""wantz==0||wantz==1"") failed for " "hidden wantz", wantz); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 65836 | /* Processing variable a */ | |||
| 65837 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 65838 | ; | |||
| 65839 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 65840 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 65841 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 65842 | if (!PyErr_Occurred()) | |||
| 65843 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dtgexc to C/Fortran array" ); | |||
| 65844 | } else { | |||
| 65845 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 65846 | ||||
| 65847 | /* Processing variable ifst */ | |||
| 65848 | f2py_success = int_from_pyobj(&ifst,ifst_capi,"_flapack.dtgexc() 5th argument (ifst) can't be converted to int"); | |||
| 65849 | if (f2py_success) { | |||
| 65850 | /* Processing variable ilst */ | |||
| 65851 | f2py_success = int_from_pyobj(&ilst,ilst_capi,"_flapack.dtgexc() 6th argument (ilst) can't be converted to int"); | |||
| 65852 | if (f2py_success) { | |||
| 65853 | /* Processing variable info */ | |||
| 65854 | /* Processing variable n */ | |||
| 65855 | n = shape(a,1)a_Dims[1]; | |||
| 65856 | /* Processing variable lda */ | |||
| 65857 | lda = shape(a,0)a_Dims[0]; | |||
| 65858 | /* Processing variable b */ | |||
| 65859 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 65860 | b_Dims[1]=n; | |||
| 65861 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 65862 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 65863 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 65864 | if (!PyErr_Occurred()) | |||
| 65865 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dtgexc to C/Fortran array" ); | |||
| 65866 | } else { | |||
| 65867 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 65868 | ||||
| 65869 | /* Processing variable ldb */ | |||
| 65870 | ldb = shape(b,0)b_Dims[0]; | |||
| 65871 | /* Processing variable q */ | |||
| 65872 | capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32); | |||
| 65873 | q_Dims[1]=n; | |||
| 65874 | capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 65875 | capi_q_tmp = array_from_pyobj(NPY_DOUBLE,q_Dims,q_Rank,capi_q_intent,q_capi); | |||
| 65876 | if (capi_q_tmp == NULL((void*)0)) { | |||
| 65877 | if (!PyErr_Occurred()) | |||
| 65878 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `q' of _flapack.dtgexc to C/Fortran array" ); | |||
| 65879 | } else { | |||
| 65880 | q = (double *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data)); | |||
| 65881 | ||||
| 65882 | /* Processing variable ldq */ | |||
| 65883 | ldq = shape(q,0)q_Dims[0]; | |||
| 65884 | /* Processing variable z */ | |||
| 65885 | capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32); | |||
| 65886 | z_Dims[1]=n; | |||
| 65887 | capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 65888 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 65889 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 65890 | if (!PyErr_Occurred()) | |||
| 65891 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `z' of _flapack.dtgexc to C/Fortran array" ); | |||
| 65892 | } else { | |||
| 65893 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 65894 | ||||
| 65895 | /* Processing variable ldz */ | |||
| 65896 | ldz = shape(z,0)z_Dims[0]; | |||
| 65897 | /* Processing variable lwork */ | |||
| 65898 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(4*n+16,1)((4*n+16 > 1) ? (4*n+16) : (1)); else | |||
| 65899 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dtgexc() 1st keyword (lwork) can't be converted to int"); | |||
| 65900 | if (f2py_success) { | |||
| 65901 | CHECKSCALAR(lwork == -1 || lwork >= 4*n+16,"lwork == -1 || lwork >= 4*n+16","1st keyword lwork","dtgexc:lwork=%d",lwork)if (!(lwork == -1 || lwork >= 4*n+16)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dtgexc:lwork=%d", "(""lwork == -1 || lwork >= 4*n+16" ") failed for ""1st keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 65902 | /* Processing variable work */ | |||
| 65903 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 65904 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 65905 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 65906 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 65907 | if (!PyErr_Occurred()) | |||
| 65908 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dtgexc to C/Fortran array" ); | |||
| 65909 | } else { | |||
| 65910 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 65911 | ||||
| 65912 | /*end of frompyobj*/ | |||
| 65913 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65914 | f2py_start_call_clock(); | |||
| 65915 | #endif | |||
| 65916 | /*callfortranroutine*/ | |||
| 65917 | { ifst++; ilst++; (*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,work,&lwork,&info); } ; | |||
| 65918 | /*(*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,work,&lwork,&info);*/ | |||
| 65919 | if (PyErr_Occurred()) | |||
| 65920 | f2py_success = 0; | |||
| 65921 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65922 | f2py_stop_call_clock(); | |||
| 65923 | #endif | |||
| 65924 | /*end of callfortranroutine*/ | |||
| 65925 | if (f2py_success) { | |||
| 65926 | /*pyobjfrom*/ | |||
| 65927 | /*end of pyobjfrom*/ | |||
| 65928 | CFUNCSMESS("Building return value.\n"); | |||
| 65929 | capi_buildvalue = Py_BuildValue("NNNNNi",capi_a_tmp,capi_b_tmp,capi_q_tmp,capi_z_tmp,capi_work_tmp,info); | |||
| 65930 | /*closepyobjfrom*/ | |||
| 65931 | /*end of closepyobjfrom*/ | |||
| 65932 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 65933 | /*cleanupfrompyobj*/ | |||
| 65934 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 65935 | /* End of cleaning variable work */ | |||
| 65936 | } /*CHECKSCALAR(lwork == -1 || lwork >= 4*n+16)*/ | |||
| 65937 | } /*if (f2py_success) of lwork*/ | |||
| 65938 | /* End of cleaning variable lwork */ | |||
| 65939 | /* End of cleaning variable ldz */ | |||
| 65940 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 65941 | /* End of cleaning variable z */ | |||
| 65942 | /* End of cleaning variable ldq */ | |||
| 65943 | } /*if (capi_q_tmp == NULL) ... else of q*/ | |||
| 65944 | /* End of cleaning variable q */ | |||
| 65945 | /* End of cleaning variable ldb */ | |||
| 65946 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 65947 | /* End of cleaning variable b */ | |||
| 65948 | /* End of cleaning variable lda */ | |||
| 65949 | /* End of cleaning variable n */ | |||
| 65950 | /* End of cleaning variable info */ | |||
| 65951 | } /*if (f2py_success) of ilst*/ | |||
| 65952 | /* End of cleaning variable ilst */ | |||
| 65953 | } /*if (f2py_success) of ifst*/ | |||
| 65954 | /* End of cleaning variable ifst */ | |||
| 65955 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 65956 | /* End of cleaning variable a */ | |||
| 65957 | } /*CHECKSCALAR(wantz==0||wantz==1)*/ | |||
| 65958 | /* End of cleaning variable wantz */ | |||
| 65959 | } /*CHECKSCALAR(wantq==0||wantq==1)*/ | |||
| 65960 | /* End of cleaning variable wantq */ | |||
| 65961 | /*end of cleanupfrompyobj*/ | |||
| 65962 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 65963 | /*routdebugfailure*/ | |||
| 65964 | } else { | |||
| 65965 | /*routdebugleave*/ | |||
| 65966 | } | |||
| 65967 | CFUNCSMESS("Freeing memory.\n"); | |||
| 65968 | /*freemem*/ | |||
| 65969 | #ifdef F2PY_REPORT_ATEXIT | |||
| 65970 | f2py_stop_clock(); | |||
| 65971 | #endif | |||
| 65972 | return capi_buildvalue; | |||
| 65973 | } | |||
| 65974 | /******************************* end of dtgexc *******************************/ | |||
| 65975 | ||||
| 65976 | /*********************************** ctgexc ***********************************/ | |||
| 65977 | static char doc_f2py_rout__flapack_ctgexc[] = "\ | |||
| 65978 | a,b,q,z,info = ctgexc(a,b,q,z,ifst,ilst,[overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``ctgexc``.\ | |||
| 65979 | \n\nParameters\n----------\n" | |||
| 65980 | "a : input rank-2 array('F') with bounds (lda,n)\n" | |||
| 65981 | "b : input rank-2 array('F') with bounds (ldb,n)\n" | |||
| 65982 | "q : input rank-2 array('F') with bounds (ldq,n)\n" | |||
| 65983 | "z : input rank-2 array('F') with bounds (ldz,n)\n" | |||
| 65984 | "ifst : input int\n" | |||
| 65985 | "ilst : input int\n" | |||
| 65986 | "\nOther Parameters\n----------------\n" | |||
| 65987 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 65988 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 65989 | "overwrite_q : input int, optional\n Default: 0\n" | |||
| 65990 | "overwrite_z : input int, optional\n Default: 0\n" | |||
| 65991 | "\nReturns\n-------\n" | |||
| 65992 | "a : rank-2 array('F') with bounds (lda,n)\n" | |||
| 65993 | "b : rank-2 array('F') with bounds (ldb,n)\n" | |||
| 65994 | "q : rank-2 array('F') with bounds (ldq,n)\n" | |||
| 65995 | "z : rank-2 array('F') with bounds (ldz,n)\n" | |||
| 65996 | "info : int"; | |||
| 65997 | /* extern void F_FUNC(ctgexc,CTGEXC)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 65998 | static PyObject *f2py_rout__flapack_ctgexc(const PyObject *capi_self, | |||
| 65999 | PyObject *capi_args, | |||
| 66000 | PyObject *capi_keywds, | |||
| 66001 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 66002 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 66003 | volatile int f2py_success = 1; | |||
| 66004 | /*decl*/ | |||
| 66005 | ||||
| 66006 | int wantq = 0; | |||
| 66007 | int wantz = 0; | |||
| 66008 | int n = 0; | |||
| 66009 | complex_float *a = NULL((void*)0); | |||
| 66010 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 66011 | const int a_Rank = 2; | |||
| 66012 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 66013 | int capi_a_intent = 0; | |||
| 66014 | int capi_overwrite_a = 0; | |||
| 66015 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 66016 | int lda = 0; | |||
| 66017 | complex_float *b = NULL((void*)0); | |||
| 66018 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 66019 | const int b_Rank = 2; | |||
| 66020 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 66021 | int capi_b_intent = 0; | |||
| 66022 | int capi_overwrite_b = 0; | |||
| 66023 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 66024 | int ldb = 0; | |||
| 66025 | complex_float *q = NULL((void*)0); | |||
| 66026 | npy_intp q_Dims[2] = {-1, -1}; | |||
| 66027 | const int q_Rank = 2; | |||
| 66028 | PyArrayObject *capi_q_tmp = NULL((void*)0); | |||
| 66029 | int capi_q_intent = 0; | |||
| 66030 | int capi_overwrite_q = 0; | |||
| 66031 | PyObject *q_capi = Py_None(&_Py_NoneStruct); | |||
| 66032 | int ldq = 0; | |||
| 66033 | complex_float *z = NULL((void*)0); | |||
| 66034 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 66035 | const int z_Rank = 2; | |||
| 66036 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 66037 | int capi_z_intent = 0; | |||
| 66038 | int capi_overwrite_z = 0; | |||
| 66039 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 66040 | int ldz = 0; | |||
| 66041 | int ifst = 0; | |||
| 66042 | PyObject *ifst_capi = Py_None(&_Py_NoneStruct); | |||
| 66043 | int ilst = 0; | |||
| 66044 | PyObject *ilst_capi = Py_None(&_Py_NoneStruct); | |||
| 66045 | int info = 0; | |||
| 66046 | static char *capi_kwlist[] = {"a","b","q","z","ifst","ilst","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)}; | |||
| 66047 | ||||
| 66048 | /*routdebugenter*/ | |||
| 66049 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66050 | f2py_start_clock(); | |||
| 66051 | #endif | |||
| 66052 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 66053 | "OOOOOO|iiii:_flapack.ctgexc",\ | |||
| 66054 | capi_kwlist,&a_capi,&b_capi,&q_capi,&z_capi,&ifst_capi,&ilst_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z)) | |||
| 66055 | return NULL((void*)0); | |||
| 66056 | /*frompyobj*/ | |||
| 66057 | /* Processing variable wantq */ | |||
| 66058 | wantq = 1; | |||
| 66059 | CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","hidden wantq","ctgexc:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctgexc:wantq=%d", "(""wantq==0||wantq==1"") failed for " "hidden wantq", wantq); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 66060 | /* Processing variable wantz */ | |||
| 66061 | wantz = 1; | |||
| 66062 | CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","hidden wantz","ctgexc:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctgexc:wantz=%d", "(""wantz==0||wantz==1"") failed for " "hidden wantz", wantz); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 66063 | /* Processing variable a */ | |||
| 66064 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 66065 | ; | |||
| 66066 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66067 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 66068 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 66069 | if (!PyErr_Occurred()) | |||
| 66070 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ctgexc to C/Fortran array" ); | |||
| 66071 | } else { | |||
| 66072 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 66073 | ||||
| 66074 | /* Processing variable ifst */ | |||
| 66075 | f2py_success = int_from_pyobj(&ifst,ifst_capi,"_flapack.ctgexc() 5th argument (ifst) can't be converted to int"); | |||
| 66076 | if (f2py_success) { | |||
| 66077 | /* Processing variable ilst */ | |||
| 66078 | f2py_success = int_from_pyobj(&ilst,ilst_capi,"_flapack.ctgexc() 6th argument (ilst) can't be converted to int"); | |||
| 66079 | if (f2py_success) { | |||
| 66080 | /* Processing variable info */ | |||
| 66081 | /* Processing variable n */ | |||
| 66082 | n = shape(a,1)a_Dims[1]; | |||
| 66083 | /* Processing variable lda */ | |||
| 66084 | lda = shape(a,0)a_Dims[0]; | |||
| 66085 | /* Processing variable b */ | |||
| 66086 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 66087 | b_Dims[1]=n; | |||
| 66088 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66089 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 66090 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 66091 | if (!PyErr_Occurred()) | |||
| 66092 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ctgexc to C/Fortran array" ); | |||
| 66093 | } else { | |||
| 66094 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 66095 | ||||
| 66096 | /* Processing variable ldb */ | |||
| 66097 | ldb = shape(b,0)b_Dims[0]; | |||
| 66098 | /* Processing variable q */ | |||
| 66099 | capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32); | |||
| 66100 | q_Dims[1]=n; | |||
| 66101 | capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66102 | capi_q_tmp = array_from_pyobj(NPY_CFLOAT,q_Dims,q_Rank,capi_q_intent,q_capi); | |||
| 66103 | if (capi_q_tmp == NULL((void*)0)) { | |||
| 66104 | if (!PyErr_Occurred()) | |||
| 66105 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `q' of _flapack.ctgexc to C/Fortran array" ); | |||
| 66106 | } else { | |||
| 66107 | q = (complex_float *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data)); | |||
| 66108 | ||||
| 66109 | /* Processing variable ldq */ | |||
| 66110 | ldq = shape(q,0)q_Dims[0]; | |||
| 66111 | /* Processing variable z */ | |||
| 66112 | capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32); | |||
| 66113 | z_Dims[1]=n; | |||
| 66114 | capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66115 | capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 66116 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 66117 | if (!PyErr_Occurred()) | |||
| 66118 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `z' of _flapack.ctgexc to C/Fortran array" ); | |||
| 66119 | } else { | |||
| 66120 | z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 66121 | ||||
| 66122 | /* Processing variable ldz */ | |||
| 66123 | ldz = shape(z,0)z_Dims[0]; | |||
| 66124 | /*end of frompyobj*/ | |||
| 66125 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66126 | f2py_start_call_clock(); | |||
| 66127 | #endif | |||
| 66128 | /*callfortranroutine*/ | |||
| 66129 | { ifst++; ilst++; (*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,&info); } ; | |||
| 66130 | /*(*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,&info);*/ | |||
| 66131 | if (PyErr_Occurred()) | |||
| 66132 | f2py_success = 0; | |||
| 66133 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66134 | f2py_stop_call_clock(); | |||
| 66135 | #endif | |||
| 66136 | /*end of callfortranroutine*/ | |||
| 66137 | if (f2py_success) { | |||
| 66138 | /*pyobjfrom*/ | |||
| 66139 | /*end of pyobjfrom*/ | |||
| 66140 | CFUNCSMESS("Building return value.\n"); | |||
| 66141 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_b_tmp,capi_q_tmp,capi_z_tmp,info); | |||
| 66142 | /*closepyobjfrom*/ | |||
| 66143 | /*end of closepyobjfrom*/ | |||
| 66144 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 66145 | /*cleanupfrompyobj*/ | |||
| 66146 | /* End of cleaning variable ldz */ | |||
| 66147 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 66148 | /* End of cleaning variable z */ | |||
| 66149 | /* End of cleaning variable ldq */ | |||
| 66150 | } /*if (capi_q_tmp == NULL) ... else of q*/ | |||
| 66151 | /* End of cleaning variable q */ | |||
| 66152 | /* End of cleaning variable ldb */ | |||
| 66153 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 66154 | /* End of cleaning variable b */ | |||
| 66155 | /* End of cleaning variable lda */ | |||
| 66156 | /* End of cleaning variable n */ | |||
| 66157 | /* End of cleaning variable info */ | |||
| 66158 | } /*if (f2py_success) of ilst*/ | |||
| 66159 | /* End of cleaning variable ilst */ | |||
| 66160 | } /*if (f2py_success) of ifst*/ | |||
| 66161 | /* End of cleaning variable ifst */ | |||
| 66162 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 66163 | /* End of cleaning variable a */ | |||
| 66164 | } /*CHECKSCALAR(wantz==0||wantz==1)*/ | |||
| 66165 | /* End of cleaning variable wantz */ | |||
| 66166 | } /*CHECKSCALAR(wantq==0||wantq==1)*/ | |||
| 66167 | /* End of cleaning variable wantq */ | |||
| 66168 | /*end of cleanupfrompyobj*/ | |||
| 66169 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 66170 | /*routdebugfailure*/ | |||
| 66171 | } else { | |||
| 66172 | /*routdebugleave*/ | |||
| 66173 | } | |||
| 66174 | CFUNCSMESS("Freeing memory.\n"); | |||
| 66175 | /*freemem*/ | |||
| 66176 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66177 | f2py_stop_clock(); | |||
| 66178 | #endif | |||
| 66179 | return capi_buildvalue; | |||
| 66180 | } | |||
| 66181 | /******************************* end of ctgexc *******************************/ | |||
| 66182 | ||||
| 66183 | /*********************************** ztgexc ***********************************/ | |||
| 66184 | static char doc_f2py_rout__flapack_ztgexc[] = "\ | |||
| 66185 | a,b,q,z,info = ztgexc(a,b,q,z,ifst,ilst,[overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``ztgexc``.\ | |||
| 66186 | \n\nParameters\n----------\n" | |||
| 66187 | "a : input rank-2 array('D') with bounds (lda,n)\n" | |||
| 66188 | "b : input rank-2 array('D') with bounds (ldb,n)\n" | |||
| 66189 | "q : input rank-2 array('D') with bounds (ldq,n)\n" | |||
| 66190 | "z : input rank-2 array('D') with bounds (ldz,n)\n" | |||
| 66191 | "ifst : input int\n" | |||
| 66192 | "ilst : input int\n" | |||
| 66193 | "\nOther Parameters\n----------------\n" | |||
| 66194 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 66195 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 66196 | "overwrite_q : input int, optional\n Default: 0\n" | |||
| 66197 | "overwrite_z : input int, optional\n Default: 0\n" | |||
| 66198 | "\nReturns\n-------\n" | |||
| 66199 | "a : rank-2 array('D') with bounds (lda,n)\n" | |||
| 66200 | "b : rank-2 array('D') with bounds (ldb,n)\n" | |||
| 66201 | "q : rank-2 array('D') with bounds (ldq,n)\n" | |||
| 66202 | "z : rank-2 array('D') with bounds (ldz,n)\n" | |||
| 66203 | "info : int"; | |||
| 66204 | /* extern void F_FUNC(ztgexc,ZTGEXC)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 66205 | static PyObject *f2py_rout__flapack_ztgexc(const PyObject *capi_self, | |||
| 66206 | PyObject *capi_args, | |||
| 66207 | PyObject *capi_keywds, | |||
| 66208 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 66209 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 66210 | volatile int f2py_success = 1; | |||
| 66211 | /*decl*/ | |||
| 66212 | ||||
| 66213 | int wantq = 0; | |||
| 66214 | int wantz = 0; | |||
| 66215 | int n = 0; | |||
| 66216 | complex_double *a = NULL((void*)0); | |||
| 66217 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 66218 | const int a_Rank = 2; | |||
| 66219 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 66220 | int capi_a_intent = 0; | |||
| 66221 | int capi_overwrite_a = 0; | |||
| 66222 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 66223 | int lda = 0; | |||
| 66224 | complex_double *b = NULL((void*)0); | |||
| 66225 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 66226 | const int b_Rank = 2; | |||
| 66227 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 66228 | int capi_b_intent = 0; | |||
| 66229 | int capi_overwrite_b = 0; | |||
| 66230 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 66231 | int ldb = 0; | |||
| 66232 | complex_double *q = NULL((void*)0); | |||
| 66233 | npy_intp q_Dims[2] = {-1, -1}; | |||
| 66234 | const int q_Rank = 2; | |||
| 66235 | PyArrayObject *capi_q_tmp = NULL((void*)0); | |||
| 66236 | int capi_q_intent = 0; | |||
| 66237 | int capi_overwrite_q = 0; | |||
| 66238 | PyObject *q_capi = Py_None(&_Py_NoneStruct); | |||
| 66239 | int ldq = 0; | |||
| 66240 | complex_double *z = NULL((void*)0); | |||
| 66241 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 66242 | const int z_Rank = 2; | |||
| 66243 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 66244 | int capi_z_intent = 0; | |||
| 66245 | int capi_overwrite_z = 0; | |||
| 66246 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 66247 | int ldz = 0; | |||
| 66248 | int ifst = 0; | |||
| 66249 | PyObject *ifst_capi = Py_None(&_Py_NoneStruct); | |||
| 66250 | int ilst = 0; | |||
| 66251 | PyObject *ilst_capi = Py_None(&_Py_NoneStruct); | |||
| 66252 | int info = 0; | |||
| 66253 | static char *capi_kwlist[] = {"a","b","q","z","ifst","ilst","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)}; | |||
| 66254 | ||||
| 66255 | /*routdebugenter*/ | |||
| 66256 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66257 | f2py_start_clock(); | |||
| 66258 | #endif | |||
| 66259 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 66260 | "OOOOOO|iiii:_flapack.ztgexc",\ | |||
| 66261 | capi_kwlist,&a_capi,&b_capi,&q_capi,&z_capi,&ifst_capi,&ilst_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z)) | |||
| 66262 | return NULL((void*)0); | |||
| 66263 | /*frompyobj*/ | |||
| 66264 | /* Processing variable wantq */ | |||
| 66265 | wantq = 1; | |||
| 66266 | CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","hidden wantq","ztgexc:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztgexc:wantq=%d", "(""wantq==0||wantq==1"") failed for " "hidden wantq", wantq); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 66267 | /* Processing variable wantz */ | |||
| 66268 | wantz = 1; | |||
| 66269 | CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","hidden wantz","ztgexc:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztgexc:wantz=%d", "(""wantz==0||wantz==1"") failed for " "hidden wantz", wantz); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 66270 | /* Processing variable a */ | |||
| 66271 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 66272 | ; | |||
| 66273 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66274 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 66275 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 66276 | if (!PyErr_Occurred()) | |||
| 66277 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ztgexc to C/Fortran array" ); | |||
| 66278 | } else { | |||
| 66279 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 66280 | ||||
| 66281 | /* Processing variable ifst */ | |||
| 66282 | f2py_success = int_from_pyobj(&ifst,ifst_capi,"_flapack.ztgexc() 5th argument (ifst) can't be converted to int"); | |||
| 66283 | if (f2py_success) { | |||
| 66284 | /* Processing variable ilst */ | |||
| 66285 | f2py_success = int_from_pyobj(&ilst,ilst_capi,"_flapack.ztgexc() 6th argument (ilst) can't be converted to int"); | |||
| 66286 | if (f2py_success) { | |||
| 66287 | /* Processing variable info */ | |||
| 66288 | /* Processing variable n */ | |||
| 66289 | n = shape(a,1)a_Dims[1]; | |||
| 66290 | /* Processing variable lda */ | |||
| 66291 | lda = shape(a,0)a_Dims[0]; | |||
| 66292 | /* Processing variable b */ | |||
| 66293 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 66294 | b_Dims[1]=n; | |||
| 66295 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66296 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 66297 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 66298 | if (!PyErr_Occurred()) | |||
| 66299 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ztgexc to C/Fortran array" ); | |||
| 66300 | } else { | |||
| 66301 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 66302 | ||||
| 66303 | /* Processing variable ldb */ | |||
| 66304 | ldb = shape(b,0)b_Dims[0]; | |||
| 66305 | /* Processing variable q */ | |||
| 66306 | capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32); | |||
| 66307 | q_Dims[1]=n; | |||
| 66308 | capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66309 | capi_q_tmp = array_from_pyobj(NPY_CDOUBLE,q_Dims,q_Rank,capi_q_intent,q_capi); | |||
| 66310 | if (capi_q_tmp == NULL((void*)0)) { | |||
| 66311 | if (!PyErr_Occurred()) | |||
| 66312 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `q' of _flapack.ztgexc to C/Fortran array" ); | |||
| 66313 | } else { | |||
| 66314 | q = (complex_double *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data)); | |||
| 66315 | ||||
| 66316 | /* Processing variable ldq */ | |||
| 66317 | ldq = shape(q,0)q_Dims[0]; | |||
| 66318 | /* Processing variable z */ | |||
| 66319 | capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32); | |||
| 66320 | z_Dims[1]=n; | |||
| 66321 | capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66322 | capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 66323 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 66324 | if (!PyErr_Occurred()) | |||
| 66325 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `z' of _flapack.ztgexc to C/Fortran array" ); | |||
| 66326 | } else { | |||
| 66327 | z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 66328 | ||||
| 66329 | /* Processing variable ldz */ | |||
| 66330 | ldz = shape(z,0)z_Dims[0]; | |||
| 66331 | /*end of frompyobj*/ | |||
| 66332 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66333 | f2py_start_call_clock(); | |||
| 66334 | #endif | |||
| 66335 | /*callfortranroutine*/ | |||
| 66336 | { ifst++; ilst++; (*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,&info); } ; | |||
| 66337 | /*(*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,&info);*/ | |||
| 66338 | if (PyErr_Occurred()) | |||
| 66339 | f2py_success = 0; | |||
| 66340 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66341 | f2py_stop_call_clock(); | |||
| 66342 | #endif | |||
| 66343 | /*end of callfortranroutine*/ | |||
| 66344 | if (f2py_success) { | |||
| 66345 | /*pyobjfrom*/ | |||
| 66346 | /*end of pyobjfrom*/ | |||
| 66347 | CFUNCSMESS("Building return value.\n"); | |||
| 66348 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_b_tmp,capi_q_tmp,capi_z_tmp,info); | |||
| 66349 | /*closepyobjfrom*/ | |||
| 66350 | /*end of closepyobjfrom*/ | |||
| 66351 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 66352 | /*cleanupfrompyobj*/ | |||
| 66353 | /* End of cleaning variable ldz */ | |||
| 66354 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 66355 | /* End of cleaning variable z */ | |||
| 66356 | /* End of cleaning variable ldq */ | |||
| 66357 | } /*if (capi_q_tmp == NULL) ... else of q*/ | |||
| 66358 | /* End of cleaning variable q */ | |||
| 66359 | /* End of cleaning variable ldb */ | |||
| 66360 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 66361 | /* End of cleaning variable b */ | |||
| 66362 | /* End of cleaning variable lda */ | |||
| 66363 | /* End of cleaning variable n */ | |||
| 66364 | /* End of cleaning variable info */ | |||
| 66365 | } /*if (f2py_success) of ilst*/ | |||
| 66366 | /* End of cleaning variable ilst */ | |||
| 66367 | } /*if (f2py_success) of ifst*/ | |||
| 66368 | /* End of cleaning variable ifst */ | |||
| 66369 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 66370 | /* End of cleaning variable a */ | |||
| 66371 | } /*CHECKSCALAR(wantz==0||wantz==1)*/ | |||
| 66372 | /* End of cleaning variable wantz */ | |||
| 66373 | } /*CHECKSCALAR(wantq==0||wantq==1)*/ | |||
| 66374 | /* End of cleaning variable wantq */ | |||
| 66375 | /*end of cleanupfrompyobj*/ | |||
| 66376 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 66377 | /*routdebugfailure*/ | |||
| 66378 | } else { | |||
| 66379 | /*routdebugleave*/ | |||
| 66380 | } | |||
| 66381 | CFUNCSMESS("Freeing memory.\n"); | |||
| 66382 | /*freemem*/ | |||
| 66383 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66384 | f2py_stop_clock(); | |||
| 66385 | #endif | |||
| 66386 | return capi_buildvalue; | |||
| 66387 | } | |||
| 66388 | /******************************* end of ztgexc *******************************/ | |||
| 66389 | ||||
| 66390 | /*********************************** stgsen ***********************************/ | |||
| 66391 | static char doc_f2py_rout__flapack_stgsen[] = "\ | |||
| 66392 | as,bs,alphar,alphai,beta,qs,zs,m,pl,pr,dif,info = stgsen(select,a,b,q,z,[ijob,wantq,wantz,lwork,liwork,overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``stgsen``.\ | |||
| 66393 | \n\nParameters\n----------\n" | |||
| 66394 | "select : input rank-1 array('i') with bounds (n)\n" | |||
| 66395 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 66396 | "b : input rank-2 array('f') with bounds (n,n)\n" | |||
| 66397 | "q : input rank-2 array('f') with bounds (n,n)\n" | |||
| 66398 | "z : input rank-2 array('f') with bounds (n,n)\n" | |||
| 66399 | "\nOther Parameters\n----------------\n" | |||
| 66400 | "ijob : input int, optional\n Default: 4\n" | |||
| 66401 | "wantq : input int, optional\n Default: 1\n" | |||
| 66402 | "wantz : input int, optional\n Default: 1\n" | |||
| 66403 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 66404 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 66405 | "overwrite_q : input int, optional\n Default: 0\n" | |||
| 66406 | "overwrite_z : input int, optional\n Default: 0\n" | |||
| 66407 | "lwork : input int, optional\n Default: 4*n+16\n" | |||
| 66408 | "liwork : input int, optional\n Default: n+6\n" | |||
| 66409 | "\nReturns\n-------\n" | |||
| 66410 | "as : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 66411 | "bs : rank-2 array('f') with bounds (n,n) and b storage\n" | |||
| 66412 | "alphar : rank-1 array('f') with bounds (n)\n" | |||
| 66413 | "alphai : rank-1 array('f') with bounds (n)\n" | |||
| 66414 | "beta : rank-1 array('f') with bounds (n)\n" | |||
| 66415 | "qs : rank-2 array('f') with bounds (n,n) and q storage\n" | |||
| 66416 | "zs : rank-2 array('f') with bounds (n,n) and z storage\n" | |||
| 66417 | "m : int\n" | |||
| 66418 | "pl : float\n" | |||
| 66419 | "pr : float\n" | |||
| 66420 | "dif : rank-1 array('f') with bounds (2)\n" | |||
| 66421 | "info : int"; | |||
| 66422 | /* extern void F_FUNC(stgsen,STGSEN)(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,float*,F_INT*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 66423 | static PyObject *f2py_rout__flapack_stgsen(const PyObject *capi_self, | |||
| 66424 | PyObject *capi_args, | |||
| 66425 | PyObject *capi_keywds, | |||
| 66426 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 66427 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 66428 | volatile int f2py_success = 1; | |||
| 66429 | /*decl*/ | |||
| 66430 | ||||
| 66431 | int ijob = 0; | |||
| 66432 | PyObject *ijob_capi = Py_None(&_Py_NoneStruct); | |||
| 66433 | int wantq = 0; | |||
| 66434 | PyObject *wantq_capi = Py_None(&_Py_NoneStruct); | |||
| 66435 | int wantz = 0; | |||
| 66436 | PyObject *wantz_capi = Py_None(&_Py_NoneStruct); | |||
| 66437 | int *select = NULL((void*)0); | |||
| 66438 | npy_intp select_Dims[1] = {-1}; | |||
| 66439 | const int select_Rank = 1; | |||
| 66440 | PyArrayObject *capi_select_tmp = NULL((void*)0); | |||
| 66441 | int capi_select_intent = 0; | |||
| 66442 | PyObject *select_capi = Py_None(&_Py_NoneStruct); | |||
| 66443 | int n = 0; | |||
| 66444 | float *a = NULL((void*)0); | |||
| 66445 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 66446 | const int a_Rank = 2; | |||
| 66447 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 66448 | int capi_a_intent = 0; | |||
| 66449 | int capi_overwrite_a = 0; | |||
| 66450 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 66451 | int lda = 0; | |||
| 66452 | float *b = NULL((void*)0); | |||
| 66453 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 66454 | const int b_Rank = 2; | |||
| 66455 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 66456 | int capi_b_intent = 0; | |||
| 66457 | int capi_overwrite_b = 0; | |||
| 66458 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 66459 | int ldb = 0; | |||
| 66460 | float *alphar = NULL((void*)0); | |||
| 66461 | npy_intp alphar_Dims[1] = {-1}; | |||
| 66462 | const int alphar_Rank = 1; | |||
| 66463 | PyArrayObject *capi_alphar_tmp = NULL((void*)0); | |||
| 66464 | int capi_alphar_intent = 0; | |||
| 66465 | float *alphai = NULL((void*)0); | |||
| 66466 | npy_intp alphai_Dims[1] = {-1}; | |||
| 66467 | const int alphai_Rank = 1; | |||
| 66468 | PyArrayObject *capi_alphai_tmp = NULL((void*)0); | |||
| 66469 | int capi_alphai_intent = 0; | |||
| 66470 | float *beta = NULL((void*)0); | |||
| 66471 | npy_intp beta_Dims[1] = {-1}; | |||
| 66472 | const int beta_Rank = 1; | |||
| 66473 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 66474 | int capi_beta_intent = 0; | |||
| 66475 | float *q = NULL((void*)0); | |||
| 66476 | npy_intp q_Dims[2] = {-1, -1}; | |||
| 66477 | const int q_Rank = 2; | |||
| 66478 | PyArrayObject *capi_q_tmp = NULL((void*)0); | |||
| 66479 | int capi_q_intent = 0; | |||
| 66480 | int capi_overwrite_q = 0; | |||
| 66481 | PyObject *q_capi = Py_None(&_Py_NoneStruct); | |||
| 66482 | int ldq = 0; | |||
| 66483 | float *z = NULL((void*)0); | |||
| 66484 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 66485 | const int z_Rank = 2; | |||
| 66486 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 66487 | int capi_z_intent = 0; | |||
| 66488 | int capi_overwrite_z = 0; | |||
| 66489 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 66490 | int ldz = 0; | |||
| 66491 | int m = 0; | |||
| 66492 | float pl = 0; | |||
| 66493 | float pr = 0; | |||
| 66494 | float *dif = NULL((void*)0); | |||
| 66495 | npy_intp dif_Dims[1] = {-1}; | |||
| 66496 | const int dif_Rank = 1; | |||
| 66497 | PyArrayObject *capi_dif_tmp = NULL((void*)0); | |||
| 66498 | int capi_dif_intent = 0; | |||
| 66499 | float *work = NULL((void*)0); | |||
| 66500 | npy_intp work_Dims[1] = {-1}; | |||
| 66501 | const int work_Rank = 1; | |||
| 66502 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 66503 | int capi_work_intent = 0; | |||
| 66504 | int lwork = 0; | |||
| 66505 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 66506 | int *iwork = NULL((void*)0); | |||
| 66507 | npy_intp iwork_Dims[1] = {-1}; | |||
| 66508 | const int iwork_Rank = 1; | |||
| 66509 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 66510 | int capi_iwork_intent = 0; | |||
| 66511 | int liwork = 0; | |||
| 66512 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 66513 | int info = 0; | |||
| 66514 | static char *capi_kwlist[] = {"select","a","b","q","z","ijob","wantq","wantz","lwork","liwork","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)}; | |||
| 66515 | ||||
| 66516 | /*routdebugenter*/ | |||
| 66517 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66518 | f2py_start_clock(); | |||
| 66519 | #endif | |||
| 66520 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 66521 | "OOOOO|OOOOOiiii:_flapack.stgsen",\ | |||
| 66522 | capi_kwlist,&select_capi,&a_capi,&b_capi,&q_capi,&z_capi,&ijob_capi,&wantq_capi,&wantz_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z)) | |||
| 66523 | return NULL((void*)0); | |||
| 66524 | /*frompyobj*/ | |||
| 66525 | /* Processing variable ijob */ | |||
| 66526 | if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else | |||
| 66527 | f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.stgsen() 1st keyword (ijob) can't be converted to int"); | |||
| 66528 | if (f2py_success) { | |||
| 66529 | CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","stgsen:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""stgsen:ijob=%d", "(""ijob>=0&&ijob<=5" ") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 66530 | /* Processing variable wantq */ | |||
| 66531 | if (wantq_capi == Py_None(&_Py_NoneStruct)) wantq = 1; else | |||
| 66532 | wantq = (int)PyObject_IsTrue(wantq_capi); | |||
| 66533 | f2py_success = 1; | |||
| 66534 | if (f2py_success) { | |||
| 66535 | CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","2nd keyword wantq","stgsen:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stgsen:wantq=%d", "(""wantq==0||wantq==1"") failed for " "2nd keyword wantq", wantq); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 66536 | /* Processing variable wantz */ | |||
| 66537 | if (wantz_capi == Py_None(&_Py_NoneStruct)) wantz = 1; else | |||
| 66538 | wantz = (int)PyObject_IsTrue(wantz_capi); | |||
| 66539 | f2py_success = 1; | |||
| 66540 | if (f2py_success) { | |||
| 66541 | CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","3rd keyword wantz","stgsen:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stgsen:wantz=%d", "(""wantz==0||wantz==1"") failed for " "3rd keyword wantz", wantz); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 66542 | /* Processing variable a */ | |||
| 66543 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 66544 | ; | |||
| 66545 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66546 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 66547 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 66548 | if (!PyErr_Occurred()) | |||
| 66549 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.stgsen to C/Fortran array" ); | |||
| 66550 | } else { | |||
| 66551 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 66552 | ||||
| 66553 | /* Processing variable m */ | |||
| 66554 | /* Processing variable pl */ | |||
| 66555 | /* Processing variable pr */ | |||
| 66556 | /* Processing variable dif */ | |||
| 66557 | dif_Dims[0]=2; | |||
| 66558 | capi_dif_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 66559 | capi_dif_tmp = array_from_pyobj(NPY_FLOAT,dif_Dims,dif_Rank,capi_dif_intent,Py_None(&_Py_NoneStruct)); | |||
| 66560 | if (capi_dif_tmp == NULL((void*)0)) { | |||
| 66561 | if (!PyErr_Occurred()) | |||
| 66562 | PyErr_SetString(_flapack_error,"failed in converting hidden `dif' of _flapack.stgsen to C/Fortran array" ); | |||
| 66563 | } else { | |||
| 66564 | dif = (float *)(PyArray_DATA(capi_dif_tmp)((void *)((PyArrayObject_fields *)(capi_dif_tmp))->data)); | |||
| 66565 | ||||
| 66566 | /* Processing variable info */ | |||
| 66567 | /* Processing variable n */ | |||
| 66568 | n = shape(a,0)a_Dims[0]; | |||
| 66569 | /* Processing variable lda */ | |||
| 66570 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 66571 | /* Processing variable b */ | |||
| 66572 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 66573 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 66574 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66575 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 66576 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 66577 | if (!PyErr_Occurred()) | |||
| 66578 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.stgsen to C/Fortran array" ); | |||
| 66579 | } else { | |||
| 66580 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 66581 | ||||
| 66582 | /* Processing variable ldb */ | |||
| 66583 | ldb = MAX(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 66584 | /* Processing variable alphar */ | |||
| 66585 | alphar_Dims[0]=n; | |||
| 66586 | capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 66587 | capi_alphar_tmp = array_from_pyobj(NPY_FLOAT,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct)); | |||
| 66588 | if (capi_alphar_tmp == NULL((void*)0)) { | |||
| 66589 | if (!PyErr_Occurred()) | |||
| 66590 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.stgsen to C/Fortran array" ); | |||
| 66591 | } else { | |||
| 66592 | alphar = (float *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data )); | |||
| 66593 | ||||
| 66594 | /* Processing variable alphai */ | |||
| 66595 | alphai_Dims[0]=n; | |||
| 66596 | capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 66597 | capi_alphai_tmp = array_from_pyobj(NPY_FLOAT,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct)); | |||
| 66598 | if (capi_alphai_tmp == NULL((void*)0)) { | |||
| 66599 | if (!PyErr_Occurred()) | |||
| 66600 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.stgsen to C/Fortran array" ); | |||
| 66601 | } else { | |||
| 66602 | alphai = (float *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data )); | |||
| 66603 | ||||
| 66604 | /* Processing variable beta */ | |||
| 66605 | beta_Dims[0]=n; | |||
| 66606 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 66607 | capi_beta_tmp = array_from_pyobj(NPY_FLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 66608 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 66609 | if (!PyErr_Occurred()) | |||
| 66610 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.stgsen to C/Fortran array" ); | |||
| 66611 | } else { | |||
| 66612 | beta = (float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 66613 | ||||
| 66614 | /* Processing variable q */ | |||
| 66615 | capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32); | |||
| 66616 | q_Dims[0]=n,q_Dims[1]=n; | |||
| 66617 | capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66618 | capi_q_tmp = array_from_pyobj(NPY_FLOAT,q_Dims,q_Rank,capi_q_intent,q_capi); | |||
| 66619 | if (capi_q_tmp == NULL((void*)0)) { | |||
| 66620 | if (!PyErr_Occurred()) | |||
| 66621 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `q' of _flapack.stgsen to C/Fortran array" ); | |||
| 66622 | } else { | |||
| 66623 | q = (float *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data)); | |||
| 66624 | ||||
| 66625 | /* Processing variable ldq */ | |||
| 66626 | ldq = MAX(1,shape(q,0))((1 > q_Dims[0]) ? (1) : (q_Dims[0])); | |||
| 66627 | /* Processing variable z */ | |||
| 66628 | capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32); | |||
| 66629 | z_Dims[0]=n,z_Dims[1]=n; | |||
| 66630 | capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66631 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 66632 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 66633 | if (!PyErr_Occurred()) | |||
| 66634 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `z' of _flapack.stgsen to C/Fortran array" ); | |||
| 66635 | } else { | |||
| 66636 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 66637 | ||||
| 66638 | /* Processing variable ldz */ | |||
| 66639 | ldz = MAX(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 66640 | /* Processing variable lwork */ | |||
| 66641 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = 4*n+16; else | |||
| 66642 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.stgsen() 4th keyword (lwork) can't be converted to int"); | |||
| 66643 | if (f2py_success) { | |||
| 66644 | CHECKSCALAR(lwork == -1 || lwork >= 1,"lwork == -1 || lwork >= 1","4th keyword lwork","stgsen:lwork=%d",lwork)if (!(lwork == -1 || lwork >= 1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stgsen:lwork=%d", "(""lwork == -1 || lwork >= 1" ") failed for ""4th keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 66645 | /* Processing variable liwork */ | |||
| 66646 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = n+6; else | |||
| 66647 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.stgsen() 5th keyword (liwork) can't be converted to int"); | |||
| 66648 | if (f2py_success) { | |||
| 66649 | CHECKSCALAR(liwork == -1 || liwork >= 1,"liwork == -1 || liwork >= 1","5th keyword liwork","stgsen:liwork=%d",liwork)if (!(liwork == -1 || liwork >= 1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""stgsen:liwork=%d", "(""liwork == -1 || liwork >= 1" ") failed for ""5th keyword liwork", liwork); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 66650 | /* Processing variable select */ | |||
| 66651 | select_Dims[0]=n; | |||
| 66652 | capi_select_intent |= F2PY_INTENT_IN1; | |||
| 66653 | capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi); | |||
| 66654 | if (capi_select_tmp == NULL((void*)0)) { | |||
| 66655 | if (!PyErr_Occurred()) | |||
| 66656 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.stgsen to C/Fortran array" ); | |||
| 66657 | } else { | |||
| 66658 | select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data )); | |||
| 66659 | ||||
| 66660 | /* Processing variable work */ | |||
| 66661 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 66662 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 66663 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 66664 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 66665 | if (!PyErr_Occurred()) | |||
| 66666 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.stgsen to C/Fortran array" ); | |||
| 66667 | } else { | |||
| 66668 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 66669 | ||||
| 66670 | /* Processing variable iwork */ | |||
| 66671 | iwork_Dims[0]=MAX(1,liwork)((1 > liwork) ? (1) : (liwork)); | |||
| 66672 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 66673 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 66674 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 66675 | if (!PyErr_Occurred()) | |||
| 66676 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.stgsen to C/Fortran array" ); | |||
| 66677 | } else { | |||
| 66678 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 66679 | ||||
| 66680 | /*end of frompyobj*/ | |||
| 66681 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66682 | f2py_start_call_clock(); | |||
| 66683 | #endif | |||
| 66684 | /*callfortranroutine*/ | |||
| 66685 | (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alphar,alphai,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info) ; | |||
| 66686 | /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alphar,alphai,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info);*/ | |||
| 66687 | if (PyErr_Occurred()) | |||
| 66688 | f2py_success = 0; | |||
| 66689 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66690 | f2py_stop_call_clock(); | |||
| 66691 | #endif | |||
| 66692 | /*end of callfortranroutine*/ | |||
| 66693 | if (f2py_success) { | |||
| 66694 | /*pyobjfrom*/ | |||
| 66695 | /*end of pyobjfrom*/ | |||
| 66696 | CFUNCSMESS("Building return value.\n"); | |||
| 66697 | capi_buildvalue = Py_BuildValue("NNNNNNNiffNi",capi_a_tmp,capi_b_tmp,capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_q_tmp,capi_z_tmp,m,pl,pr,capi_dif_tmp,info); | |||
| 66698 | /*closepyobjfrom*/ | |||
| 66699 | /*end of closepyobjfrom*/ | |||
| 66700 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 66701 | /*cleanupfrompyobj*/ | |||
| 66702 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 66703 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 66704 | /* End of cleaning variable iwork */ | |||
| 66705 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 66706 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 66707 | /* End of cleaning variable work */ | |||
| 66708 | if((PyObject *)capi_select_tmp!=select_capi) { | |||
| 66709 | Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); } | |||
| 66710 | } /*if (capi_select_tmp == NULL) ... else of select*/ | |||
| 66711 | /* End of cleaning variable select */ | |||
| 66712 | } /*CHECKSCALAR(liwork == -1 || liwork >= 1)*/ | |||
| 66713 | } /*if (f2py_success) of liwork*/ | |||
| 66714 | /* End of cleaning variable liwork */ | |||
| 66715 | } /*CHECKSCALAR(lwork == -1 || lwork >= 1)*/ | |||
| 66716 | } /*if (f2py_success) of lwork*/ | |||
| 66717 | /* End of cleaning variable lwork */ | |||
| 66718 | /* End of cleaning variable ldz */ | |||
| 66719 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 66720 | /* End of cleaning variable z */ | |||
| 66721 | /* End of cleaning variable ldq */ | |||
| 66722 | } /*if (capi_q_tmp == NULL) ... else of q*/ | |||
| 66723 | /* End of cleaning variable q */ | |||
| 66724 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 66725 | /* End of cleaning variable beta */ | |||
| 66726 | } /*if (capi_alphai_tmp == NULL) ... else of alphai*/ | |||
| 66727 | /* End of cleaning variable alphai */ | |||
| 66728 | } /*if (capi_alphar_tmp == NULL) ... else of alphar*/ | |||
| 66729 | /* End of cleaning variable alphar */ | |||
| 66730 | /* End of cleaning variable ldb */ | |||
| 66731 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 66732 | /* End of cleaning variable b */ | |||
| 66733 | /* End of cleaning variable lda */ | |||
| 66734 | /* End of cleaning variable n */ | |||
| 66735 | /* End of cleaning variable info */ | |||
| 66736 | } /*if (capi_dif_tmp == NULL) ... else of dif*/ | |||
| 66737 | /* End of cleaning variable dif */ | |||
| 66738 | /* End of cleaning variable pr */ | |||
| 66739 | /* End of cleaning variable pl */ | |||
| 66740 | /* End of cleaning variable m */ | |||
| 66741 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 66742 | /* End of cleaning variable a */ | |||
| 66743 | } /*CHECKSCALAR(wantz==0||wantz==1)*/ | |||
| 66744 | } /*if (f2py_success) of wantz*/ | |||
| 66745 | /* End of cleaning variable wantz */ | |||
| 66746 | } /*CHECKSCALAR(wantq==0||wantq==1)*/ | |||
| 66747 | } /*if (f2py_success) of wantq*/ | |||
| 66748 | /* End of cleaning variable wantq */ | |||
| 66749 | } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/ | |||
| 66750 | } /*if (f2py_success) of ijob*/ | |||
| 66751 | /* End of cleaning variable ijob */ | |||
| 66752 | /*end of cleanupfrompyobj*/ | |||
| 66753 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 66754 | /*routdebugfailure*/ | |||
| 66755 | } else { | |||
| 66756 | /*routdebugleave*/ | |||
| 66757 | } | |||
| 66758 | CFUNCSMESS("Freeing memory.\n"); | |||
| 66759 | /*freemem*/ | |||
| 66760 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66761 | f2py_stop_clock(); | |||
| 66762 | #endif | |||
| 66763 | return capi_buildvalue; | |||
| 66764 | } | |||
| 66765 | /******************************* end of stgsen *******************************/ | |||
| 66766 | ||||
| 66767 | /*********************************** dtgsen ***********************************/ | |||
| 66768 | static char doc_f2py_rout__flapack_dtgsen[] = "\ | |||
| 66769 | as,bs,alphar,alphai,beta,qs,zs,m,pl,pr,dif,info = dtgsen(select,a,b,q,z,[ijob,wantq,wantz,lwork,liwork,overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``dtgsen``.\ | |||
| 66770 | \n\nParameters\n----------\n" | |||
| 66771 | "select : input rank-1 array('i') with bounds (n)\n" | |||
| 66772 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 66773 | "b : input rank-2 array('d') with bounds (n,n)\n" | |||
| 66774 | "q : input rank-2 array('d') with bounds (n,n)\n" | |||
| 66775 | "z : input rank-2 array('d') with bounds (n,n)\n" | |||
| 66776 | "\nOther Parameters\n----------------\n" | |||
| 66777 | "ijob : input int, optional\n Default: 4\n" | |||
| 66778 | "wantq : input int, optional\n Default: 1\n" | |||
| 66779 | "wantz : input int, optional\n Default: 1\n" | |||
| 66780 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 66781 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 66782 | "overwrite_q : input int, optional\n Default: 0\n" | |||
| 66783 | "overwrite_z : input int, optional\n Default: 0\n" | |||
| 66784 | "lwork : input int, optional\n Default: 4*n+16\n" | |||
| 66785 | "liwork : input int, optional\n Default: n+6\n" | |||
| 66786 | "\nReturns\n-------\n" | |||
| 66787 | "as : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 66788 | "bs : rank-2 array('d') with bounds (n,n) and b storage\n" | |||
| 66789 | "alphar : rank-1 array('d') with bounds (n)\n" | |||
| 66790 | "alphai : rank-1 array('d') with bounds (n)\n" | |||
| 66791 | "beta : rank-1 array('d') with bounds (n)\n" | |||
| 66792 | "qs : rank-2 array('d') with bounds (n,n) and q storage\n" | |||
| 66793 | "zs : rank-2 array('d') with bounds (n,n) and z storage\n" | |||
| 66794 | "m : int\n" | |||
| 66795 | "pl : float\n" | |||
| 66796 | "pr : float\n" | |||
| 66797 | "dif : rank-1 array('d') with bounds (2)\n" | |||
| 66798 | "info : int"; | |||
| 66799 | /* extern void F_FUNC(dtgsen,DTGSEN)(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,double*,F_INT*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 66800 | static PyObject *f2py_rout__flapack_dtgsen(const PyObject *capi_self, | |||
| 66801 | PyObject *capi_args, | |||
| 66802 | PyObject *capi_keywds, | |||
| 66803 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 66804 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 66805 | volatile int f2py_success = 1; | |||
| 66806 | /*decl*/ | |||
| 66807 | ||||
| 66808 | int ijob = 0; | |||
| 66809 | PyObject *ijob_capi = Py_None(&_Py_NoneStruct); | |||
| 66810 | int wantq = 0; | |||
| 66811 | PyObject *wantq_capi = Py_None(&_Py_NoneStruct); | |||
| 66812 | int wantz = 0; | |||
| 66813 | PyObject *wantz_capi = Py_None(&_Py_NoneStruct); | |||
| 66814 | int *select = NULL((void*)0); | |||
| 66815 | npy_intp select_Dims[1] = {-1}; | |||
| 66816 | const int select_Rank = 1; | |||
| 66817 | PyArrayObject *capi_select_tmp = NULL((void*)0); | |||
| 66818 | int capi_select_intent = 0; | |||
| 66819 | PyObject *select_capi = Py_None(&_Py_NoneStruct); | |||
| 66820 | int n = 0; | |||
| 66821 | double *a = NULL((void*)0); | |||
| 66822 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 66823 | const int a_Rank = 2; | |||
| 66824 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 66825 | int capi_a_intent = 0; | |||
| 66826 | int capi_overwrite_a = 0; | |||
| 66827 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 66828 | int lda = 0; | |||
| 66829 | double *b = NULL((void*)0); | |||
| 66830 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 66831 | const int b_Rank = 2; | |||
| 66832 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 66833 | int capi_b_intent = 0; | |||
| 66834 | int capi_overwrite_b = 0; | |||
| 66835 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 66836 | int ldb = 0; | |||
| 66837 | double *alphar = NULL((void*)0); | |||
| 66838 | npy_intp alphar_Dims[1] = {-1}; | |||
| 66839 | const int alphar_Rank = 1; | |||
| 66840 | PyArrayObject *capi_alphar_tmp = NULL((void*)0); | |||
| 66841 | int capi_alphar_intent = 0; | |||
| 66842 | double *alphai = NULL((void*)0); | |||
| 66843 | npy_intp alphai_Dims[1] = {-1}; | |||
| 66844 | const int alphai_Rank = 1; | |||
| 66845 | PyArrayObject *capi_alphai_tmp = NULL((void*)0); | |||
| 66846 | int capi_alphai_intent = 0; | |||
| 66847 | double *beta = NULL((void*)0); | |||
| 66848 | npy_intp beta_Dims[1] = {-1}; | |||
| 66849 | const int beta_Rank = 1; | |||
| 66850 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 66851 | int capi_beta_intent = 0; | |||
| 66852 | double *q = NULL((void*)0); | |||
| 66853 | npy_intp q_Dims[2] = {-1, -1}; | |||
| 66854 | const int q_Rank = 2; | |||
| 66855 | PyArrayObject *capi_q_tmp = NULL((void*)0); | |||
| 66856 | int capi_q_intent = 0; | |||
| 66857 | int capi_overwrite_q = 0; | |||
| 66858 | PyObject *q_capi = Py_None(&_Py_NoneStruct); | |||
| 66859 | int ldq = 0; | |||
| 66860 | double *z = NULL((void*)0); | |||
| 66861 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 66862 | const int z_Rank = 2; | |||
| 66863 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 66864 | int capi_z_intent = 0; | |||
| 66865 | int capi_overwrite_z = 0; | |||
| 66866 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 66867 | int ldz = 0; | |||
| 66868 | int m = 0; | |||
| 66869 | double pl = 0; | |||
| 66870 | double pr = 0; | |||
| 66871 | double *dif = NULL((void*)0); | |||
| 66872 | npy_intp dif_Dims[1] = {-1}; | |||
| 66873 | const int dif_Rank = 1; | |||
| 66874 | PyArrayObject *capi_dif_tmp = NULL((void*)0); | |||
| 66875 | int capi_dif_intent = 0; | |||
| 66876 | double *work = NULL((void*)0); | |||
| 66877 | npy_intp work_Dims[1] = {-1}; | |||
| 66878 | const int work_Rank = 1; | |||
| 66879 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 66880 | int capi_work_intent = 0; | |||
| 66881 | int lwork = 0; | |||
| 66882 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 66883 | int *iwork = NULL((void*)0); | |||
| 66884 | npy_intp iwork_Dims[1] = {-1}; | |||
| 66885 | const int iwork_Rank = 1; | |||
| 66886 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 66887 | int capi_iwork_intent = 0; | |||
| 66888 | int liwork = 0; | |||
| 66889 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 66890 | int info = 0; | |||
| 66891 | static char *capi_kwlist[] = {"select","a","b","q","z","ijob","wantq","wantz","lwork","liwork","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)}; | |||
| 66892 | ||||
| 66893 | /*routdebugenter*/ | |||
| 66894 | #ifdef F2PY_REPORT_ATEXIT | |||
| 66895 | f2py_start_clock(); | |||
| 66896 | #endif | |||
| 66897 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 66898 | "OOOOO|OOOOOiiii:_flapack.dtgsen",\ | |||
| 66899 | capi_kwlist,&select_capi,&a_capi,&b_capi,&q_capi,&z_capi,&ijob_capi,&wantq_capi,&wantz_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z)) | |||
| 66900 | return NULL((void*)0); | |||
| 66901 | /*frompyobj*/ | |||
| 66902 | /* Processing variable ijob */ | |||
| 66903 | if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else | |||
| 66904 | f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.dtgsen() 1st keyword (ijob) can't be converted to int"); | |||
| 66905 | if (f2py_success) { | |||
| 66906 | CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","dtgsen:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dtgsen:ijob=%d", "(""ijob>=0&&ijob<=5" ") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 66907 | /* Processing variable wantq */ | |||
| 66908 | if (wantq_capi == Py_None(&_Py_NoneStruct)) wantq = 1; else | |||
| 66909 | wantq = (int)PyObject_IsTrue(wantq_capi); | |||
| 66910 | f2py_success = 1; | |||
| 66911 | if (f2py_success) { | |||
| 66912 | CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","2nd keyword wantq","dtgsen:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtgsen:wantq=%d", "(""wantq==0||wantq==1"") failed for " "2nd keyword wantq", wantq); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 66913 | /* Processing variable wantz */ | |||
| 66914 | if (wantz_capi == Py_None(&_Py_NoneStruct)) wantz = 1; else | |||
| 66915 | wantz = (int)PyObject_IsTrue(wantz_capi); | |||
| 66916 | f2py_success = 1; | |||
| 66917 | if (f2py_success) { | |||
| 66918 | CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","3rd keyword wantz","dtgsen:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtgsen:wantz=%d", "(""wantz==0||wantz==1"") failed for " "3rd keyword wantz", wantz); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 66919 | /* Processing variable a */ | |||
| 66920 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 66921 | ; | |||
| 66922 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66923 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 66924 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 66925 | if (!PyErr_Occurred()) | |||
| 66926 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dtgsen to C/Fortran array" ); | |||
| 66927 | } else { | |||
| 66928 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 66929 | ||||
| 66930 | /* Processing variable m */ | |||
| 66931 | /* Processing variable pl */ | |||
| 66932 | /* Processing variable pr */ | |||
| 66933 | /* Processing variable dif */ | |||
| 66934 | dif_Dims[0]=2; | |||
| 66935 | capi_dif_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 66936 | capi_dif_tmp = array_from_pyobj(NPY_DOUBLE,dif_Dims,dif_Rank,capi_dif_intent,Py_None(&_Py_NoneStruct)); | |||
| 66937 | if (capi_dif_tmp == NULL((void*)0)) { | |||
| 66938 | if (!PyErr_Occurred()) | |||
| 66939 | PyErr_SetString(_flapack_error,"failed in converting hidden `dif' of _flapack.dtgsen to C/Fortran array" ); | |||
| 66940 | } else { | |||
| 66941 | dif = (double *)(PyArray_DATA(capi_dif_tmp)((void *)((PyArrayObject_fields *)(capi_dif_tmp))->data)); | |||
| 66942 | ||||
| 66943 | /* Processing variable info */ | |||
| 66944 | /* Processing variable n */ | |||
| 66945 | n = shape(a,0)a_Dims[0]; | |||
| 66946 | /* Processing variable lda */ | |||
| 66947 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 66948 | /* Processing variable b */ | |||
| 66949 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 66950 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 66951 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66952 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 66953 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 66954 | if (!PyErr_Occurred()) | |||
| 66955 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dtgsen to C/Fortran array" ); | |||
| 66956 | } else { | |||
| 66957 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 66958 | ||||
| 66959 | /* Processing variable ldb */ | |||
| 66960 | ldb = MAX(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 66961 | /* Processing variable alphar */ | |||
| 66962 | alphar_Dims[0]=n; | |||
| 66963 | capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 66964 | capi_alphar_tmp = array_from_pyobj(NPY_DOUBLE,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct)); | |||
| 66965 | if (capi_alphar_tmp == NULL((void*)0)) { | |||
| 66966 | if (!PyErr_Occurred()) | |||
| 66967 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.dtgsen to C/Fortran array" ); | |||
| 66968 | } else { | |||
| 66969 | alphar = (double *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data )); | |||
| 66970 | ||||
| 66971 | /* Processing variable alphai */ | |||
| 66972 | alphai_Dims[0]=n; | |||
| 66973 | capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 66974 | capi_alphai_tmp = array_from_pyobj(NPY_DOUBLE,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct)); | |||
| 66975 | if (capi_alphai_tmp == NULL((void*)0)) { | |||
| 66976 | if (!PyErr_Occurred()) | |||
| 66977 | PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.dtgsen to C/Fortran array" ); | |||
| 66978 | } else { | |||
| 66979 | alphai = (double *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data )); | |||
| 66980 | ||||
| 66981 | /* Processing variable beta */ | |||
| 66982 | beta_Dims[0]=n; | |||
| 66983 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 66984 | capi_beta_tmp = array_from_pyobj(NPY_DOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 66985 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 66986 | if (!PyErr_Occurred()) | |||
| 66987 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.dtgsen to C/Fortran array" ); | |||
| 66988 | } else { | |||
| 66989 | beta = (double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 66990 | ||||
| 66991 | /* Processing variable q */ | |||
| 66992 | capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32); | |||
| 66993 | q_Dims[0]=n,q_Dims[1]=n; | |||
| 66994 | capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 66995 | capi_q_tmp = array_from_pyobj(NPY_DOUBLE,q_Dims,q_Rank,capi_q_intent,q_capi); | |||
| 66996 | if (capi_q_tmp == NULL((void*)0)) { | |||
| 66997 | if (!PyErr_Occurred()) | |||
| 66998 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `q' of _flapack.dtgsen to C/Fortran array" ); | |||
| 66999 | } else { | |||
| 67000 | q = (double *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data)); | |||
| 67001 | ||||
| 67002 | /* Processing variable ldq */ | |||
| 67003 | ldq = MAX(1,shape(q,0))((1 > q_Dims[0]) ? (1) : (q_Dims[0])); | |||
| 67004 | /* Processing variable z */ | |||
| 67005 | capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32); | |||
| 67006 | z_Dims[0]=n,z_Dims[1]=n; | |||
| 67007 | capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 67008 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 67009 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 67010 | if (!PyErr_Occurred()) | |||
| 67011 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `z' of _flapack.dtgsen to C/Fortran array" ); | |||
| 67012 | } else { | |||
| 67013 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 67014 | ||||
| 67015 | /* Processing variable ldz */ | |||
| 67016 | ldz = MAX(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 67017 | /* Processing variable lwork */ | |||
| 67018 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = 4*n+16; else | |||
| 67019 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dtgsen() 4th keyword (lwork) can't be converted to int"); | |||
| 67020 | if (f2py_success) { | |||
| 67021 | CHECKSCALAR(lwork == -1 || lwork >= 1,"lwork == -1 || lwork >= 1","4th keyword lwork","dtgsen:lwork=%d",lwork)if (!(lwork == -1 || lwork >= 1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtgsen:lwork=%d", "(""lwork == -1 || lwork >= 1" ") failed for ""4th keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 67022 | /* Processing variable liwork */ | |||
| 67023 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = n+6; else | |||
| 67024 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.dtgsen() 5th keyword (liwork) can't be converted to int"); | |||
| 67025 | if (f2py_success) { | |||
| 67026 | CHECKSCALAR(liwork == -1 || liwork >= 1,"liwork == -1 || liwork >= 1","5th keyword liwork","dtgsen:liwork=%d",liwork)if (!(liwork == -1 || liwork >= 1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dtgsen:liwork=%d", "(""liwork == -1 || liwork >= 1" ") failed for ""5th keyword liwork", liwork); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 67027 | /* Processing variable select */ | |||
| 67028 | select_Dims[0]=n; | |||
| 67029 | capi_select_intent |= F2PY_INTENT_IN1; | |||
| 67030 | capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi); | |||
| 67031 | if (capi_select_tmp == NULL((void*)0)) { | |||
| 67032 | if (!PyErr_Occurred()) | |||
| 67033 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.dtgsen to C/Fortran array" ); | |||
| 67034 | } else { | |||
| 67035 | select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data )); | |||
| 67036 | ||||
| 67037 | /* Processing variable work */ | |||
| 67038 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 67039 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 67040 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 67041 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 67042 | if (!PyErr_Occurred()) | |||
| 67043 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dtgsen to C/Fortran array" ); | |||
| 67044 | } else { | |||
| 67045 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 67046 | ||||
| 67047 | /* Processing variable iwork */ | |||
| 67048 | iwork_Dims[0]=MAX(1,liwork)((1 > liwork) ? (1) : (liwork)); | |||
| 67049 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 67050 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 67051 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 67052 | if (!PyErr_Occurred()) | |||
| 67053 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dtgsen to C/Fortran array" ); | |||
| 67054 | } else { | |||
| 67055 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 67056 | ||||
| 67057 | /*end of frompyobj*/ | |||
| 67058 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67059 | f2py_start_call_clock(); | |||
| 67060 | #endif | |||
| 67061 | /*callfortranroutine*/ | |||
| 67062 | (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alphar,alphai,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info) ; | |||
| 67063 | /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alphar,alphai,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info);*/ | |||
| 67064 | if (PyErr_Occurred()) | |||
| 67065 | f2py_success = 0; | |||
| 67066 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67067 | f2py_stop_call_clock(); | |||
| 67068 | #endif | |||
| 67069 | /*end of callfortranroutine*/ | |||
| 67070 | if (f2py_success) { | |||
| 67071 | /*pyobjfrom*/ | |||
| 67072 | /*end of pyobjfrom*/ | |||
| 67073 | CFUNCSMESS("Building return value.\n"); | |||
| 67074 | capi_buildvalue = Py_BuildValue("NNNNNNNiddNi",capi_a_tmp,capi_b_tmp,capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_q_tmp,capi_z_tmp,m,pl,pr,capi_dif_tmp,info); | |||
| 67075 | /*closepyobjfrom*/ | |||
| 67076 | /*end of closepyobjfrom*/ | |||
| 67077 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 67078 | /*cleanupfrompyobj*/ | |||
| 67079 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 67080 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 67081 | /* End of cleaning variable iwork */ | |||
| 67082 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 67083 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 67084 | /* End of cleaning variable work */ | |||
| 67085 | if((PyObject *)capi_select_tmp!=select_capi) { | |||
| 67086 | Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); } | |||
| 67087 | } /*if (capi_select_tmp == NULL) ... else of select*/ | |||
| 67088 | /* End of cleaning variable select */ | |||
| 67089 | } /*CHECKSCALAR(liwork == -1 || liwork >= 1)*/ | |||
| 67090 | } /*if (f2py_success) of liwork*/ | |||
| 67091 | /* End of cleaning variable liwork */ | |||
| 67092 | } /*CHECKSCALAR(lwork == -1 || lwork >= 1)*/ | |||
| 67093 | } /*if (f2py_success) of lwork*/ | |||
| 67094 | /* End of cleaning variable lwork */ | |||
| 67095 | /* End of cleaning variable ldz */ | |||
| 67096 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 67097 | /* End of cleaning variable z */ | |||
| 67098 | /* End of cleaning variable ldq */ | |||
| 67099 | } /*if (capi_q_tmp == NULL) ... else of q*/ | |||
| 67100 | /* End of cleaning variable q */ | |||
| 67101 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 67102 | /* End of cleaning variable beta */ | |||
| 67103 | } /*if (capi_alphai_tmp == NULL) ... else of alphai*/ | |||
| 67104 | /* End of cleaning variable alphai */ | |||
| 67105 | } /*if (capi_alphar_tmp == NULL) ... else of alphar*/ | |||
| 67106 | /* End of cleaning variable alphar */ | |||
| 67107 | /* End of cleaning variable ldb */ | |||
| 67108 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 67109 | /* End of cleaning variable b */ | |||
| 67110 | /* End of cleaning variable lda */ | |||
| 67111 | /* End of cleaning variable n */ | |||
| 67112 | /* End of cleaning variable info */ | |||
| 67113 | } /*if (capi_dif_tmp == NULL) ... else of dif*/ | |||
| 67114 | /* End of cleaning variable dif */ | |||
| 67115 | /* End of cleaning variable pr */ | |||
| 67116 | /* End of cleaning variable pl */ | |||
| 67117 | /* End of cleaning variable m */ | |||
| 67118 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 67119 | /* End of cleaning variable a */ | |||
| 67120 | } /*CHECKSCALAR(wantz==0||wantz==1)*/ | |||
| 67121 | } /*if (f2py_success) of wantz*/ | |||
| 67122 | /* End of cleaning variable wantz */ | |||
| 67123 | } /*CHECKSCALAR(wantq==0||wantq==1)*/ | |||
| 67124 | } /*if (f2py_success) of wantq*/ | |||
| 67125 | /* End of cleaning variable wantq */ | |||
| 67126 | } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/ | |||
| 67127 | } /*if (f2py_success) of ijob*/ | |||
| 67128 | /* End of cleaning variable ijob */ | |||
| 67129 | /*end of cleanupfrompyobj*/ | |||
| 67130 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 67131 | /*routdebugfailure*/ | |||
| 67132 | } else { | |||
| 67133 | /*routdebugleave*/ | |||
| 67134 | } | |||
| 67135 | CFUNCSMESS("Freeing memory.\n"); | |||
| 67136 | /*freemem*/ | |||
| 67137 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67138 | f2py_stop_clock(); | |||
| 67139 | #endif | |||
| 67140 | return capi_buildvalue; | |||
| 67141 | } | |||
| 67142 | /******************************* end of dtgsen *******************************/ | |||
| 67143 | ||||
| 67144 | /******************************** stgsen_lwork ********************************/ | |||
| 67145 | static char doc_f2py_rout__flapack_stgsen_lwork[] = "\ | |||
| 67146 | work,iwork,info = stgsen_lwork(select,a,[ijob])\n\nWrapper for ``stgsen_lwork``.\ | |||
| 67147 | \n\nParameters\n----------\n" | |||
| 67148 | "select : input rank-1 array('i') with bounds (n)\n" | |||
| 67149 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 67150 | "\nOther Parameters\n----------------\n" | |||
| 67151 | "ijob : input int, optional\n Default: 4\n" | |||
| 67152 | "\nReturns\n-------\n" | |||
| 67153 | "work : float\n" | |||
| 67154 | "iwork : int\n" | |||
| 67155 | "info : int"; | |||
| 67156 | /* extern void F_FUNC(stgsen ,STGSEN )(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,float*,F_INT*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 67157 | static PyObject *f2py_rout__flapack_stgsen_lwork(const PyObject *capi_self, | |||
| 67158 | PyObject *capi_args, | |||
| 67159 | PyObject *capi_keywds, | |||
| 67160 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 67161 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 67162 | volatile int f2py_success = 1; | |||
| 67163 | /*decl*/ | |||
| 67164 | ||||
| 67165 | int ijob = 0; | |||
| 67166 | PyObject *ijob_capi = Py_None(&_Py_NoneStruct); | |||
| 67167 | int wantq = 0; | |||
| 67168 | int wantz = 0; | |||
| 67169 | int *select = NULL((void*)0); | |||
| 67170 | npy_intp select_Dims[1] = {-1}; | |||
| 67171 | const int select_Rank = 1; | |||
| 67172 | PyArrayObject *capi_select_tmp = NULL((void*)0); | |||
| 67173 | int capi_select_intent = 0; | |||
| 67174 | PyObject *select_capi = Py_None(&_Py_NoneStruct); | |||
| 67175 | int n = 0; | |||
| 67176 | float *a = NULL((void*)0); | |||
| 67177 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 67178 | const int a_Rank = 2; | |||
| 67179 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 67180 | int capi_a_intent = 0; | |||
| 67181 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 67182 | int lda = 0; | |||
| 67183 | float b = 0; | |||
| 67184 | int ldb = 0; | |||
| 67185 | float alphar = 0; | |||
| 67186 | float alphai = 0; | |||
| 67187 | float beta = 0; | |||
| 67188 | float q = 0; | |||
| 67189 | int ldq = 0; | |||
| 67190 | float z = 0; | |||
| 67191 | int ldz = 0; | |||
| 67192 | int m = 0; | |||
| 67193 | float pl = 0; | |||
| 67194 | float pr = 0; | |||
| 67195 | float dif = 0; | |||
| 67196 | float work = 0; | |||
| 67197 | int lwork = 0; | |||
| 67198 | int iwork = 0; | |||
| 67199 | int liwork = 0; | |||
| 67200 | int info = 0; | |||
| 67201 | static char *capi_kwlist[] = {"select","a","ijob",NULL((void*)0)}; | |||
| 67202 | ||||
| 67203 | /*routdebugenter*/ | |||
| 67204 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67205 | f2py_start_clock(); | |||
| 67206 | #endif | |||
| 67207 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 67208 | "OO|O:_flapack.stgsen_lwork",\ | |||
| 67209 | capi_kwlist,&select_capi,&a_capi,&ijob_capi)) | |||
| 67210 | return NULL((void*)0); | |||
| 67211 | /*frompyobj*/ | |||
| 67212 | /* Processing variable ijob */ | |||
| 67213 | if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else | |||
| 67214 | f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.stgsen_lwork() 1st keyword (ijob) can't be converted to int"); | |||
| 67215 | if (f2py_success) { | |||
| 67216 | CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","stgsen_lwork:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""stgsen_lwork:ijob=%d", "(""ijob>=0&&ijob<=5" ") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 67217 | /* Processing variable a */ | |||
| 67218 | ; | |||
| 67219 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 67220 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 67221 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 67222 | if (!PyErr_Occurred()) | |||
| 67223 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.stgsen_lwork to C/Fortran array" ); | |||
| 67224 | } else { | |||
| 67225 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 67226 | ||||
| 67227 | /* Processing variable wantq */ | |||
| 67228 | wantq = 0; | |||
| 67229 | /* Processing variable wantz */ | |||
| 67230 | wantz = 0; | |||
| 67231 | /* Processing variable b */ | |||
| 67232 | /* Processing variable alphar */ | |||
| 67233 | /* Processing variable alphai */ | |||
| 67234 | /* Processing variable beta */ | |||
| 67235 | /* Processing variable q */ | |||
| 67236 | /* Processing variable z */ | |||
| 67237 | /* Processing variable m */ | |||
| 67238 | /* Processing variable pl */ | |||
| 67239 | /* Processing variable pr */ | |||
| 67240 | /* Processing variable dif */ | |||
| 67241 | /* Processing variable lwork */ | |||
| 67242 | lwork = -1; | |||
| 67243 | /* Processing variable liwork */ | |||
| 67244 | liwork = -1; | |||
| 67245 | /* Processing variable work */ | |||
| 67246 | /* Processing variable iwork */ | |||
| 67247 | /* Processing variable info */ | |||
| 67248 | /* Processing variable n */ | |||
| 67249 | n = shape(a,0)a_Dims[0]; | |||
| 67250 | /* Processing variable lda */ | |||
| 67251 | lda = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 67252 | /* Processing variable ldb */ | |||
| 67253 | ldb = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 67254 | /* Processing variable ldq */ | |||
| 67255 | ldq = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 67256 | /* Processing variable ldz */ | |||
| 67257 | ldz = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 67258 | /* Processing variable select */ | |||
| 67259 | select_Dims[0]=n; | |||
| 67260 | capi_select_intent |= F2PY_INTENT_IN1; | |||
| 67261 | capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi); | |||
| 67262 | if (capi_select_tmp == NULL((void*)0)) { | |||
| 67263 | if (!PyErr_Occurred()) | |||
| 67264 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.stgsen_lwork to C/Fortran array" ); | |||
| 67265 | } else { | |||
| 67266 | select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data )); | |||
| 67267 | ||||
| 67268 | /*end of frompyobj*/ | |||
| 67269 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67270 | f2py_start_call_clock(); | |||
| 67271 | #endif | |||
| 67272 | /*callfortranroutine*/ | |||
| 67273 | (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,&b,&ldb,&alphar,&alphai,&beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info) ; | |||
| 67274 | /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,&b,&ldb,&alphar,&alphai,&beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info);*/ | |||
| 67275 | if (PyErr_Occurred()) | |||
| 67276 | f2py_success = 0; | |||
| 67277 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67278 | f2py_stop_call_clock(); | |||
| 67279 | #endif | |||
| 67280 | /*end of callfortranroutine*/ | |||
| 67281 | if (f2py_success) { | |||
| 67282 | /*pyobjfrom*/ | |||
| 67283 | /*end of pyobjfrom*/ | |||
| 67284 | CFUNCSMESS("Building return value.\n"); | |||
| 67285 | capi_buildvalue = Py_BuildValue("fii",work,iwork,info); | |||
| 67286 | /*closepyobjfrom*/ | |||
| 67287 | /*end of closepyobjfrom*/ | |||
| 67288 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 67289 | /*cleanupfrompyobj*/ | |||
| 67290 | if((PyObject *)capi_select_tmp!=select_capi) { | |||
| 67291 | Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); } | |||
| 67292 | } /*if (capi_select_tmp == NULL) ... else of select*/ | |||
| 67293 | /* End of cleaning variable select */ | |||
| 67294 | /* End of cleaning variable ldz */ | |||
| 67295 | /* End of cleaning variable ldq */ | |||
| 67296 | /* End of cleaning variable ldb */ | |||
| 67297 | /* End of cleaning variable lda */ | |||
| 67298 | /* End of cleaning variable n */ | |||
| 67299 | /* End of cleaning variable info */ | |||
| 67300 | /* End of cleaning variable iwork */ | |||
| 67301 | /* End of cleaning variable work */ | |||
| 67302 | /* End of cleaning variable liwork */ | |||
| 67303 | /* End of cleaning variable lwork */ | |||
| 67304 | /* End of cleaning variable dif */ | |||
| 67305 | /* End of cleaning variable pr */ | |||
| 67306 | /* End of cleaning variable pl */ | |||
| 67307 | /* End of cleaning variable m */ | |||
| 67308 | /* End of cleaning variable z */ | |||
| 67309 | /* End of cleaning variable q */ | |||
| 67310 | /* End of cleaning variable beta */ | |||
| 67311 | /* End of cleaning variable alphai */ | |||
| 67312 | /* End of cleaning variable alphar */ | |||
| 67313 | /* End of cleaning variable b */ | |||
| 67314 | /* End of cleaning variable wantz */ | |||
| 67315 | /* End of cleaning variable wantq */ | |||
| 67316 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 67317 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 67318 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 67319 | /* End of cleaning variable a */ | |||
| 67320 | } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/ | |||
| 67321 | } /*if (f2py_success) of ijob*/ | |||
| 67322 | /* End of cleaning variable ijob */ | |||
| 67323 | /*end of cleanupfrompyobj*/ | |||
| 67324 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 67325 | /*routdebugfailure*/ | |||
| 67326 | } else { | |||
| 67327 | /*routdebugleave*/ | |||
| 67328 | } | |||
| 67329 | CFUNCSMESS("Freeing memory.\n"); | |||
| 67330 | /*freemem*/ | |||
| 67331 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67332 | f2py_stop_clock(); | |||
| 67333 | #endif | |||
| 67334 | return capi_buildvalue; | |||
| 67335 | } | |||
| 67336 | /**************************** end of stgsen_lwork ****************************/ | |||
| 67337 | ||||
| 67338 | /******************************** dtgsen_lwork ********************************/ | |||
| 67339 | static char doc_f2py_rout__flapack_dtgsen_lwork[] = "\ | |||
| 67340 | work,iwork,info = dtgsen_lwork(select,a,[ijob])\n\nWrapper for ``dtgsen_lwork``.\ | |||
| 67341 | \n\nParameters\n----------\n" | |||
| 67342 | "select : input rank-1 array('i') with bounds (n)\n" | |||
| 67343 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 67344 | "\nOther Parameters\n----------------\n" | |||
| 67345 | "ijob : input int, optional\n Default: 4\n" | |||
| 67346 | "\nReturns\n-------\n" | |||
| 67347 | "work : float\n" | |||
| 67348 | "iwork : int\n" | |||
| 67349 | "info : int"; | |||
| 67350 | /* extern void F_FUNC(dtgsen ,DTGSEN )(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,double*,F_INT*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 67351 | static PyObject *f2py_rout__flapack_dtgsen_lwork(const PyObject *capi_self, | |||
| 67352 | PyObject *capi_args, | |||
| 67353 | PyObject *capi_keywds, | |||
| 67354 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 67355 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 67356 | volatile int f2py_success = 1; | |||
| 67357 | /*decl*/ | |||
| 67358 | ||||
| 67359 | int ijob = 0; | |||
| 67360 | PyObject *ijob_capi = Py_None(&_Py_NoneStruct); | |||
| 67361 | int wantq = 0; | |||
| 67362 | int wantz = 0; | |||
| 67363 | int *select = NULL((void*)0); | |||
| 67364 | npy_intp select_Dims[1] = {-1}; | |||
| 67365 | const int select_Rank = 1; | |||
| 67366 | PyArrayObject *capi_select_tmp = NULL((void*)0); | |||
| 67367 | int capi_select_intent = 0; | |||
| 67368 | PyObject *select_capi = Py_None(&_Py_NoneStruct); | |||
| 67369 | int n = 0; | |||
| 67370 | double *a = NULL((void*)0); | |||
| 67371 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 67372 | const int a_Rank = 2; | |||
| 67373 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 67374 | int capi_a_intent = 0; | |||
| 67375 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 67376 | int lda = 0; | |||
| 67377 | double b = 0; | |||
| 67378 | int ldb = 0; | |||
| 67379 | double alphar = 0; | |||
| 67380 | double alphai = 0; | |||
| 67381 | double beta = 0; | |||
| 67382 | double q = 0; | |||
| 67383 | int ldq = 0; | |||
| 67384 | double z = 0; | |||
| 67385 | int ldz = 0; | |||
| 67386 | int m = 0; | |||
| 67387 | double pl = 0; | |||
| 67388 | double pr = 0; | |||
| 67389 | double dif = 0; | |||
| 67390 | double work = 0; | |||
| 67391 | int lwork = 0; | |||
| 67392 | int iwork = 0; | |||
| 67393 | int liwork = 0; | |||
| 67394 | int info = 0; | |||
| 67395 | static char *capi_kwlist[] = {"select","a","ijob",NULL((void*)0)}; | |||
| 67396 | ||||
| 67397 | /*routdebugenter*/ | |||
| 67398 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67399 | f2py_start_clock(); | |||
| 67400 | #endif | |||
| 67401 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 67402 | "OO|O:_flapack.dtgsen_lwork",\ | |||
| 67403 | capi_kwlist,&select_capi,&a_capi,&ijob_capi)) | |||
| 67404 | return NULL((void*)0); | |||
| 67405 | /*frompyobj*/ | |||
| 67406 | /* Processing variable ijob */ | |||
| 67407 | if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else | |||
| 67408 | f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.dtgsen_lwork() 1st keyword (ijob) can't be converted to int"); | |||
| 67409 | if (f2py_success) { | |||
| 67410 | CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","dtgsen_lwork:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dtgsen_lwork:ijob=%d", "(""ijob>=0&&ijob<=5" ") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 67411 | /* Processing variable a */ | |||
| 67412 | ; | |||
| 67413 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 67414 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 67415 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 67416 | if (!PyErr_Occurred()) | |||
| 67417 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dtgsen_lwork to C/Fortran array" ); | |||
| 67418 | } else { | |||
| 67419 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 67420 | ||||
| 67421 | /* Processing variable wantq */ | |||
| 67422 | wantq = 0; | |||
| 67423 | /* Processing variable wantz */ | |||
| 67424 | wantz = 0; | |||
| 67425 | /* Processing variable b */ | |||
| 67426 | /* Processing variable alphar */ | |||
| 67427 | /* Processing variable alphai */ | |||
| 67428 | /* Processing variable beta */ | |||
| 67429 | /* Processing variable q */ | |||
| 67430 | /* Processing variable z */ | |||
| 67431 | /* Processing variable m */ | |||
| 67432 | /* Processing variable pl */ | |||
| 67433 | /* Processing variable pr */ | |||
| 67434 | /* Processing variable dif */ | |||
| 67435 | /* Processing variable lwork */ | |||
| 67436 | lwork = -1; | |||
| 67437 | /* Processing variable liwork */ | |||
| 67438 | liwork = -1; | |||
| 67439 | /* Processing variable work */ | |||
| 67440 | /* Processing variable iwork */ | |||
| 67441 | /* Processing variable info */ | |||
| 67442 | /* Processing variable n */ | |||
| 67443 | n = shape(a,0)a_Dims[0]; | |||
| 67444 | /* Processing variable lda */ | |||
| 67445 | lda = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 67446 | /* Processing variable ldb */ | |||
| 67447 | ldb = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 67448 | /* Processing variable ldq */ | |||
| 67449 | ldq = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 67450 | /* Processing variable ldz */ | |||
| 67451 | ldz = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 67452 | /* Processing variable select */ | |||
| 67453 | select_Dims[0]=n; | |||
| 67454 | capi_select_intent |= F2PY_INTENT_IN1; | |||
| 67455 | capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi); | |||
| 67456 | if (capi_select_tmp == NULL((void*)0)) { | |||
| 67457 | if (!PyErr_Occurred()) | |||
| 67458 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.dtgsen_lwork to C/Fortran array" ); | |||
| 67459 | } else { | |||
| 67460 | select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data )); | |||
| 67461 | ||||
| 67462 | /*end of frompyobj*/ | |||
| 67463 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67464 | f2py_start_call_clock(); | |||
| 67465 | #endif | |||
| 67466 | /*callfortranroutine*/ | |||
| 67467 | (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,&b,&ldb,&alphar,&alphai,&beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info) ; | |||
| 67468 | /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,&b,&ldb,&alphar,&alphai,&beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info);*/ | |||
| 67469 | if (PyErr_Occurred()) | |||
| 67470 | f2py_success = 0; | |||
| 67471 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67472 | f2py_stop_call_clock(); | |||
| 67473 | #endif | |||
| 67474 | /*end of callfortranroutine*/ | |||
| 67475 | if (f2py_success) { | |||
| 67476 | /*pyobjfrom*/ | |||
| 67477 | /*end of pyobjfrom*/ | |||
| 67478 | CFUNCSMESS("Building return value.\n"); | |||
| 67479 | capi_buildvalue = Py_BuildValue("dii",work,iwork,info); | |||
| 67480 | /*closepyobjfrom*/ | |||
| 67481 | /*end of closepyobjfrom*/ | |||
| 67482 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 67483 | /*cleanupfrompyobj*/ | |||
| 67484 | if((PyObject *)capi_select_tmp!=select_capi) { | |||
| 67485 | Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); } | |||
| 67486 | } /*if (capi_select_tmp == NULL) ... else of select*/ | |||
| 67487 | /* End of cleaning variable select */ | |||
| 67488 | /* End of cleaning variable ldz */ | |||
| 67489 | /* End of cleaning variable ldq */ | |||
| 67490 | /* End of cleaning variable ldb */ | |||
| 67491 | /* End of cleaning variable lda */ | |||
| 67492 | /* End of cleaning variable n */ | |||
| 67493 | /* End of cleaning variable info */ | |||
| 67494 | /* End of cleaning variable iwork */ | |||
| 67495 | /* End of cleaning variable work */ | |||
| 67496 | /* End of cleaning variable liwork */ | |||
| 67497 | /* End of cleaning variable lwork */ | |||
| 67498 | /* End of cleaning variable dif */ | |||
| 67499 | /* End of cleaning variable pr */ | |||
| 67500 | /* End of cleaning variable pl */ | |||
| 67501 | /* End of cleaning variable m */ | |||
| 67502 | /* End of cleaning variable z */ | |||
| 67503 | /* End of cleaning variable q */ | |||
| 67504 | /* End of cleaning variable beta */ | |||
| 67505 | /* End of cleaning variable alphai */ | |||
| 67506 | /* End of cleaning variable alphar */ | |||
| 67507 | /* End of cleaning variable b */ | |||
| 67508 | /* End of cleaning variable wantz */ | |||
| 67509 | /* End of cleaning variable wantq */ | |||
| 67510 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 67511 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 67512 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 67513 | /* End of cleaning variable a */ | |||
| 67514 | } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/ | |||
| 67515 | } /*if (f2py_success) of ijob*/ | |||
| 67516 | /* End of cleaning variable ijob */ | |||
| 67517 | /*end of cleanupfrompyobj*/ | |||
| 67518 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 67519 | /*routdebugfailure*/ | |||
| 67520 | } else { | |||
| 67521 | /*routdebugleave*/ | |||
| 67522 | } | |||
| 67523 | CFUNCSMESS("Freeing memory.\n"); | |||
| 67524 | /*freemem*/ | |||
| 67525 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67526 | f2py_stop_clock(); | |||
| 67527 | #endif | |||
| 67528 | return capi_buildvalue; | |||
| 67529 | } | |||
| 67530 | /**************************** end of dtgsen_lwork ****************************/ | |||
| 67531 | ||||
| 67532 | /*********************************** ctgsen ***********************************/ | |||
| 67533 | static char doc_f2py_rout__flapack_ctgsen[] = "\ | |||
| 67534 | as,bs,alpha,beta,qs,zs,m,pl,pr,dif,info = ctgsen(select,a,b,q,z,[ijob,wantq,wantz,lwork,liwork,overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``ctgsen``.\ | |||
| 67535 | \n\nParameters\n----------\n" | |||
| 67536 | "select : input rank-1 array('i') with bounds (n)\n" | |||
| 67537 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 67538 | "b : input rank-2 array('F') with bounds (n,n)\n" | |||
| 67539 | "q : input rank-2 array('F') with bounds (n,n)\n" | |||
| 67540 | "z : input rank-2 array('F') with bounds (n,n)\n" | |||
| 67541 | "\nOther Parameters\n----------------\n" | |||
| 67542 | "ijob : input int, optional\n Default: 4\n" | |||
| 67543 | "wantq : input int, optional\n Default: 1\n" | |||
| 67544 | "wantz : input int, optional\n Default: 1\n" | |||
| 67545 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 67546 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 67547 | "overwrite_q : input int, optional\n Default: 0\n" | |||
| 67548 | "overwrite_z : input int, optional\n Default: 0\n" | |||
| 67549 | "lwork : input int, optional\n Default: (ijob==0?1:n+2)\n" | |||
| 67550 | "liwork : input int, optional\n Default: (ijob==0?1:n+2)\n" | |||
| 67551 | "\nReturns\n-------\n" | |||
| 67552 | "as : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 67553 | "bs : rank-2 array('F') with bounds (n,n) and b storage\n" | |||
| 67554 | "alpha : rank-1 array('F') with bounds (n)\n" | |||
| 67555 | "beta : rank-1 array('F') with bounds (n)\n" | |||
| 67556 | "qs : rank-2 array('F') with bounds (n,n) and q storage\n" | |||
| 67557 | "zs : rank-2 array('F') with bounds (n,n) and z storage\n" | |||
| 67558 | "m : int\n" | |||
| 67559 | "pl : float\n" | |||
| 67560 | "pr : float\n" | |||
| 67561 | "dif : rank-1 array('f') with bounds (2)\n" | |||
| 67562 | "info : int"; | |||
| 67563 | /* extern void F_FUNC(ctgsen,CTGSEN)(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,float*,float*,float*,complex_float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 67564 | static PyObject *f2py_rout__flapack_ctgsen(const PyObject *capi_self, | |||
| 67565 | PyObject *capi_args, | |||
| 67566 | PyObject *capi_keywds, | |||
| 67567 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 67568 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 67569 | volatile int f2py_success = 1; | |||
| 67570 | /*decl*/ | |||
| 67571 | ||||
| 67572 | int ijob = 0; | |||
| 67573 | PyObject *ijob_capi = Py_None(&_Py_NoneStruct); | |||
| 67574 | int wantq = 0; | |||
| 67575 | PyObject *wantq_capi = Py_None(&_Py_NoneStruct); | |||
| 67576 | int wantz = 0; | |||
| 67577 | PyObject *wantz_capi = Py_None(&_Py_NoneStruct); | |||
| 67578 | int *select = NULL((void*)0); | |||
| 67579 | npy_intp select_Dims[1] = {-1}; | |||
| 67580 | const int select_Rank = 1; | |||
| 67581 | PyArrayObject *capi_select_tmp = NULL((void*)0); | |||
| 67582 | int capi_select_intent = 0; | |||
| 67583 | PyObject *select_capi = Py_None(&_Py_NoneStruct); | |||
| 67584 | int n = 0; | |||
| 67585 | complex_float *a = NULL((void*)0); | |||
| 67586 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 67587 | const int a_Rank = 2; | |||
| 67588 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 67589 | int capi_a_intent = 0; | |||
| 67590 | int capi_overwrite_a = 0; | |||
| 67591 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 67592 | int lda = 0; | |||
| 67593 | complex_float *b = NULL((void*)0); | |||
| 67594 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 67595 | const int b_Rank = 2; | |||
| 67596 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 67597 | int capi_b_intent = 0; | |||
| 67598 | int capi_overwrite_b = 0; | |||
| 67599 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 67600 | int ldb = 0; | |||
| 67601 | complex_float *alpha = NULL((void*)0); | |||
| 67602 | npy_intp alpha_Dims[1] = {-1}; | |||
| 67603 | const int alpha_Rank = 1; | |||
| 67604 | PyArrayObject *capi_alpha_tmp = NULL((void*)0); | |||
| 67605 | int capi_alpha_intent = 0; | |||
| 67606 | complex_float *beta = NULL((void*)0); | |||
| 67607 | npy_intp beta_Dims[1] = {-1}; | |||
| 67608 | const int beta_Rank = 1; | |||
| 67609 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 67610 | int capi_beta_intent = 0; | |||
| 67611 | complex_float *q = NULL((void*)0); | |||
| 67612 | npy_intp q_Dims[2] = {-1, -1}; | |||
| 67613 | const int q_Rank = 2; | |||
| 67614 | PyArrayObject *capi_q_tmp = NULL((void*)0); | |||
| 67615 | int capi_q_intent = 0; | |||
| 67616 | int capi_overwrite_q = 0; | |||
| 67617 | PyObject *q_capi = Py_None(&_Py_NoneStruct); | |||
| 67618 | int ldq = 0; | |||
| 67619 | complex_float *z = NULL((void*)0); | |||
| 67620 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 67621 | const int z_Rank = 2; | |||
| 67622 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 67623 | int capi_z_intent = 0; | |||
| 67624 | int capi_overwrite_z = 0; | |||
| 67625 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 67626 | int ldz = 0; | |||
| 67627 | int m = 0; | |||
| 67628 | float pl = 0; | |||
| 67629 | float pr = 0; | |||
| 67630 | float *dif = NULL((void*)0); | |||
| 67631 | npy_intp dif_Dims[1] = {-1}; | |||
| 67632 | const int dif_Rank = 1; | |||
| 67633 | PyArrayObject *capi_dif_tmp = NULL((void*)0); | |||
| 67634 | int capi_dif_intent = 0; | |||
| 67635 | complex_float *work = NULL((void*)0); | |||
| 67636 | npy_intp work_Dims[1] = {-1}; | |||
| 67637 | const int work_Rank = 1; | |||
| 67638 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 67639 | int capi_work_intent = 0; | |||
| 67640 | int lwork = 0; | |||
| 67641 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 67642 | int *iwork = NULL((void*)0); | |||
| 67643 | npy_intp iwork_Dims[1] = {-1}; | |||
| 67644 | const int iwork_Rank = 1; | |||
| 67645 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 67646 | int capi_iwork_intent = 0; | |||
| 67647 | int liwork = 0; | |||
| 67648 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 67649 | int info = 0; | |||
| 67650 | static char *capi_kwlist[] = {"select","a","b","q","z","ijob","wantq","wantz","lwork","liwork","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)}; | |||
| 67651 | ||||
| 67652 | /*routdebugenter*/ | |||
| 67653 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67654 | f2py_start_clock(); | |||
| 67655 | #endif | |||
| 67656 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 67657 | "OOOOO|OOOOOiiii:_flapack.ctgsen",\ | |||
| 67658 | capi_kwlist,&select_capi,&a_capi,&b_capi,&q_capi,&z_capi,&ijob_capi,&wantq_capi,&wantz_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z)) | |||
| 67659 | return NULL((void*)0); | |||
| 67660 | /*frompyobj*/ | |||
| 67661 | /* Processing variable ijob */ | |||
| 67662 | if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else | |||
| 67663 | f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.ctgsen() 1st keyword (ijob) can't be converted to int"); | |||
| 67664 | if (f2py_success) { | |||
| 67665 | CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","ctgsen:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ctgsen:ijob=%d", "(""ijob>=0&&ijob<=5" ") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 67666 | /* Processing variable wantq */ | |||
| 67667 | if (wantq_capi == Py_None(&_Py_NoneStruct)) wantq = 1; else | |||
| 67668 | wantq = (int)PyObject_IsTrue(wantq_capi); | |||
| 67669 | f2py_success = 1; | |||
| 67670 | if (f2py_success) { | |||
| 67671 | CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","2nd keyword wantq","ctgsen:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctgsen:wantq=%d", "(""wantq==0||wantq==1"") failed for " "2nd keyword wantq", wantq); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 67672 | /* Processing variable wantz */ | |||
| 67673 | if (wantz_capi == Py_None(&_Py_NoneStruct)) wantz = 1; else | |||
| 67674 | wantz = (int)PyObject_IsTrue(wantz_capi); | |||
| 67675 | f2py_success = 1; | |||
| 67676 | if (f2py_success) { | |||
| 67677 | CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","3rd keyword wantz","ctgsen:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctgsen:wantz=%d", "(""wantz==0||wantz==1"") failed for " "3rd keyword wantz", wantz); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 67678 | /* Processing variable a */ | |||
| 67679 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 67680 | ; | |||
| 67681 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 67682 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 67683 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 67684 | if (!PyErr_Occurred()) | |||
| 67685 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.ctgsen to C/Fortran array" ); | |||
| 67686 | } else { | |||
| 67687 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 67688 | ||||
| 67689 | /* Processing variable m */ | |||
| 67690 | /* Processing variable pl */ | |||
| 67691 | /* Processing variable pr */ | |||
| 67692 | /* Processing variable dif */ | |||
| 67693 | dif_Dims[0]=2; | |||
| 67694 | capi_dif_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 67695 | capi_dif_tmp = array_from_pyobj(NPY_FLOAT,dif_Dims,dif_Rank,capi_dif_intent,Py_None(&_Py_NoneStruct)); | |||
| 67696 | if (capi_dif_tmp == NULL((void*)0)) { | |||
| 67697 | if (!PyErr_Occurred()) | |||
| 67698 | PyErr_SetString(_flapack_error,"failed in converting hidden `dif' of _flapack.ctgsen to C/Fortran array" ); | |||
| 67699 | } else { | |||
| 67700 | dif = (float *)(PyArray_DATA(capi_dif_tmp)((void *)((PyArrayObject_fields *)(capi_dif_tmp))->data)); | |||
| 67701 | ||||
| 67702 | /* Processing variable info */ | |||
| 67703 | /* Processing variable n */ | |||
| 67704 | n = shape(a,0)a_Dims[0]; | |||
| 67705 | /* Processing variable lda */ | |||
| 67706 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 67707 | /* Processing variable b */ | |||
| 67708 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 67709 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 67710 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 67711 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 67712 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 67713 | if (!PyErr_Occurred()) | |||
| 67714 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.ctgsen to C/Fortran array" ); | |||
| 67715 | } else { | |||
| 67716 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 67717 | ||||
| 67718 | /* Processing variable ldb */ | |||
| 67719 | ldb = MAX(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 67720 | /* Processing variable alpha */ | |||
| 67721 | alpha_Dims[0]=n; | |||
| 67722 | capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 67723 | capi_alpha_tmp = array_from_pyobj(NPY_CFLOAT,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct)); | |||
| 67724 | if (capi_alpha_tmp == NULL((void*)0)) { | |||
| 67725 | if (!PyErr_Occurred()) | |||
| 67726 | PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.ctgsen to C/Fortran array" ); | |||
| 67727 | } else { | |||
| 67728 | alpha = (complex_float *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data)); | |||
| 67729 | ||||
| 67730 | /* Processing variable beta */ | |||
| 67731 | beta_Dims[0]=n; | |||
| 67732 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 67733 | capi_beta_tmp = array_from_pyobj(NPY_CFLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 67734 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 67735 | if (!PyErr_Occurred()) | |||
| 67736 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.ctgsen to C/Fortran array" ); | |||
| 67737 | } else { | |||
| 67738 | beta = (complex_float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 67739 | ||||
| 67740 | /* Processing variable q */ | |||
| 67741 | capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32); | |||
| 67742 | q_Dims[0]=n,q_Dims[1]=n; | |||
| 67743 | capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 67744 | capi_q_tmp = array_from_pyobj(NPY_CFLOAT,q_Dims,q_Rank,capi_q_intent,q_capi); | |||
| 67745 | if (capi_q_tmp == NULL((void*)0)) { | |||
| 67746 | if (!PyErr_Occurred()) | |||
| 67747 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `q' of _flapack.ctgsen to C/Fortran array" ); | |||
| 67748 | } else { | |||
| 67749 | q = (complex_float *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data)); | |||
| 67750 | ||||
| 67751 | /* Processing variable ldq */ | |||
| 67752 | ldq = MAX(1,shape(q,0))((1 > q_Dims[0]) ? (1) : (q_Dims[0])); | |||
| 67753 | /* Processing variable z */ | |||
| 67754 | capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32); | |||
| 67755 | z_Dims[0]=n,z_Dims[1]=n; | |||
| 67756 | capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 67757 | capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 67758 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 67759 | if (!PyErr_Occurred()) | |||
| 67760 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `z' of _flapack.ctgsen to C/Fortran array" ); | |||
| 67761 | } else { | |||
| 67762 | z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 67763 | ||||
| 67764 | /* Processing variable ldz */ | |||
| 67765 | ldz = MAX(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 67766 | /* Processing variable lwork */ | |||
| 67767 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = (ijob==0?1:n+2); else | |||
| 67768 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ctgsen() 4th keyword (lwork) can't be converted to int"); | |||
| 67769 | if (f2py_success) { | |||
| 67770 | CHECKSCALAR(lwork == -1 || lwork >= 1,"lwork == -1 || lwork >= 1","4th keyword lwork","ctgsen:lwork=%d",lwork)if (!(lwork == -1 || lwork >= 1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctgsen:lwork=%d", "(""lwork == -1 || lwork >= 1" ") failed for ""4th keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 67771 | /* Processing variable liwork */ | |||
| 67772 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (ijob==0?1:n+2); else | |||
| 67773 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.ctgsen() 5th keyword (liwork) can't be converted to int"); | |||
| 67774 | if (f2py_success) { | |||
| 67775 | CHECKSCALAR(liwork == -1 || liwork>=1,"liwork == -1 || liwork>=1","5th keyword liwork","ctgsen:liwork=%d",liwork)if (!(liwork == -1 || liwork>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctgsen:liwork=%d", "(""liwork == -1 || liwork>=1" ") failed for ""5th keyword liwork", liwork); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 67776 | /* Processing variable select */ | |||
| 67777 | select_Dims[0]=n; | |||
| 67778 | capi_select_intent |= F2PY_INTENT_IN1; | |||
| 67779 | capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi); | |||
| 67780 | if (capi_select_tmp == NULL((void*)0)) { | |||
| 67781 | if (!PyErr_Occurred()) | |||
| 67782 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.ctgsen to C/Fortran array" ); | |||
| 67783 | } else { | |||
| 67784 | select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data )); | |||
| 67785 | ||||
| 67786 | /* Processing variable work */ | |||
| 67787 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 67788 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 67789 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 67790 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 67791 | if (!PyErr_Occurred()) | |||
| 67792 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ctgsen to C/Fortran array" ); | |||
| 67793 | } else { | |||
| 67794 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 67795 | ||||
| 67796 | /* Processing variable iwork */ | |||
| 67797 | iwork_Dims[0]=liwork; | |||
| 67798 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 67799 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 67800 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 67801 | if (!PyErr_Occurred()) | |||
| 67802 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ctgsen to C/Fortran array" ); | |||
| 67803 | } else { | |||
| 67804 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 67805 | ||||
| 67806 | /*end of frompyobj*/ | |||
| 67807 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67808 | f2py_start_call_clock(); | |||
| 67809 | #endif | |||
| 67810 | /*callfortranroutine*/ | |||
| 67811 | (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info) ; | |||
| 67812 | /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info);*/ | |||
| 67813 | if (PyErr_Occurred()) | |||
| 67814 | f2py_success = 0; | |||
| 67815 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67816 | f2py_stop_call_clock(); | |||
| 67817 | #endif | |||
| 67818 | /*end of callfortranroutine*/ | |||
| 67819 | if (f2py_success) { | |||
| 67820 | /*pyobjfrom*/ | |||
| 67821 | /*end of pyobjfrom*/ | |||
| 67822 | CFUNCSMESS("Building return value.\n"); | |||
| 67823 | capi_buildvalue = Py_BuildValue("NNNNNNiffNi",capi_a_tmp,capi_b_tmp,capi_alpha_tmp,capi_beta_tmp,capi_q_tmp,capi_z_tmp,m,pl,pr,capi_dif_tmp,info); | |||
| 67824 | /*closepyobjfrom*/ | |||
| 67825 | /*end of closepyobjfrom*/ | |||
| 67826 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 67827 | /*cleanupfrompyobj*/ | |||
| 67828 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 67829 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 67830 | /* End of cleaning variable iwork */ | |||
| 67831 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 67832 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 67833 | /* End of cleaning variable work */ | |||
| 67834 | if((PyObject *)capi_select_tmp!=select_capi) { | |||
| 67835 | Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); } | |||
| 67836 | } /*if (capi_select_tmp == NULL) ... else of select*/ | |||
| 67837 | /* End of cleaning variable select */ | |||
| 67838 | } /*CHECKSCALAR(liwork == -1 || liwork>=1)*/ | |||
| 67839 | } /*if (f2py_success) of liwork*/ | |||
| 67840 | /* End of cleaning variable liwork */ | |||
| 67841 | } /*CHECKSCALAR(lwork == -1 || lwork >= 1)*/ | |||
| 67842 | } /*if (f2py_success) of lwork*/ | |||
| 67843 | /* End of cleaning variable lwork */ | |||
| 67844 | /* End of cleaning variable ldz */ | |||
| 67845 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 67846 | /* End of cleaning variable z */ | |||
| 67847 | /* End of cleaning variable ldq */ | |||
| 67848 | } /*if (capi_q_tmp == NULL) ... else of q*/ | |||
| 67849 | /* End of cleaning variable q */ | |||
| 67850 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 67851 | /* End of cleaning variable beta */ | |||
| 67852 | } /*if (capi_alpha_tmp == NULL) ... else of alpha*/ | |||
| 67853 | /* End of cleaning variable alpha */ | |||
| 67854 | /* End of cleaning variable ldb */ | |||
| 67855 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 67856 | /* End of cleaning variable b */ | |||
| 67857 | /* End of cleaning variable lda */ | |||
| 67858 | /* End of cleaning variable n */ | |||
| 67859 | /* End of cleaning variable info */ | |||
| 67860 | } /*if (capi_dif_tmp == NULL) ... else of dif*/ | |||
| 67861 | /* End of cleaning variable dif */ | |||
| 67862 | /* End of cleaning variable pr */ | |||
| 67863 | /* End of cleaning variable pl */ | |||
| 67864 | /* End of cleaning variable m */ | |||
| 67865 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 67866 | /* End of cleaning variable a */ | |||
| 67867 | } /*CHECKSCALAR(wantz==0||wantz==1)*/ | |||
| 67868 | } /*if (f2py_success) of wantz*/ | |||
| 67869 | /* End of cleaning variable wantz */ | |||
| 67870 | } /*CHECKSCALAR(wantq==0||wantq==1)*/ | |||
| 67871 | } /*if (f2py_success) of wantq*/ | |||
| 67872 | /* End of cleaning variable wantq */ | |||
| 67873 | } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/ | |||
| 67874 | } /*if (f2py_success) of ijob*/ | |||
| 67875 | /* End of cleaning variable ijob */ | |||
| 67876 | /*end of cleanupfrompyobj*/ | |||
| 67877 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 67878 | /*routdebugfailure*/ | |||
| 67879 | } else { | |||
| 67880 | /*routdebugleave*/ | |||
| 67881 | } | |||
| 67882 | CFUNCSMESS("Freeing memory.\n"); | |||
| 67883 | /*freemem*/ | |||
| 67884 | #ifdef F2PY_REPORT_ATEXIT | |||
| 67885 | f2py_stop_clock(); | |||
| 67886 | #endif | |||
| 67887 | return capi_buildvalue; | |||
| 67888 | } | |||
| 67889 | /******************************* end of ctgsen *******************************/ | |||
| 67890 | ||||
| 67891 | /*********************************** ztgsen ***********************************/ | |||
| 67892 | static char doc_f2py_rout__flapack_ztgsen[] = "\ | |||
| 67893 | as,bs,alpha,beta,qs,zs,m,pl,pr,dif,info = ztgsen(select,a,b,q,z,[ijob,wantq,wantz,lwork,liwork,overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``ztgsen``.\ | |||
| 67894 | \n\nParameters\n----------\n" | |||
| 67895 | "select : input rank-1 array('i') with bounds (n)\n" | |||
| 67896 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 67897 | "b : input rank-2 array('D') with bounds (n,n)\n" | |||
| 67898 | "q : input rank-2 array('D') with bounds (n,n)\n" | |||
| 67899 | "z : input rank-2 array('D') with bounds (n,n)\n" | |||
| 67900 | "\nOther Parameters\n----------------\n" | |||
| 67901 | "ijob : input int, optional\n Default: 4\n" | |||
| 67902 | "wantq : input int, optional\n Default: 1\n" | |||
| 67903 | "wantz : input int, optional\n Default: 1\n" | |||
| 67904 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 67905 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 67906 | "overwrite_q : input int, optional\n Default: 0\n" | |||
| 67907 | "overwrite_z : input int, optional\n Default: 0\n" | |||
| 67908 | "lwork : input int, optional\n Default: (ijob==0?1:n+2)\n" | |||
| 67909 | "liwork : input int, optional\n Default: (ijob==0?1:n+2)\n" | |||
| 67910 | "\nReturns\n-------\n" | |||
| 67911 | "as : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 67912 | "bs : rank-2 array('D') with bounds (n,n) and b storage\n" | |||
| 67913 | "alpha : rank-1 array('D') with bounds (n)\n" | |||
| 67914 | "beta : rank-1 array('D') with bounds (n)\n" | |||
| 67915 | "qs : rank-2 array('D') with bounds (n,n) and q storage\n" | |||
| 67916 | "zs : rank-2 array('D') with bounds (n,n) and z storage\n" | |||
| 67917 | "m : int\n" | |||
| 67918 | "pl : float\n" | |||
| 67919 | "pr : float\n" | |||
| 67920 | "dif : rank-1 array('d') with bounds (2)\n" | |||
| 67921 | "info : int"; | |||
| 67922 | /* extern void F_FUNC(ztgsen,ZTGSEN)(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,double*,double*,double*,complex_double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 67923 | static PyObject *f2py_rout__flapack_ztgsen(const PyObject *capi_self, | |||
| 67924 | PyObject *capi_args, | |||
| 67925 | PyObject *capi_keywds, | |||
| 67926 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 67927 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 67928 | volatile int f2py_success = 1; | |||
| 67929 | /*decl*/ | |||
| 67930 | ||||
| 67931 | int ijob = 0; | |||
| 67932 | PyObject *ijob_capi = Py_None(&_Py_NoneStruct); | |||
| 67933 | int wantq = 0; | |||
| 67934 | PyObject *wantq_capi = Py_None(&_Py_NoneStruct); | |||
| 67935 | int wantz = 0; | |||
| 67936 | PyObject *wantz_capi = Py_None(&_Py_NoneStruct); | |||
| 67937 | int *select = NULL((void*)0); | |||
| 67938 | npy_intp select_Dims[1] = {-1}; | |||
| 67939 | const int select_Rank = 1; | |||
| 67940 | PyArrayObject *capi_select_tmp = NULL((void*)0); | |||
| 67941 | int capi_select_intent = 0; | |||
| 67942 | PyObject *select_capi = Py_None(&_Py_NoneStruct); | |||
| 67943 | int n = 0; | |||
| 67944 | complex_double *a = NULL((void*)0); | |||
| 67945 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 67946 | const int a_Rank = 2; | |||
| 67947 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 67948 | int capi_a_intent = 0; | |||
| 67949 | int capi_overwrite_a = 0; | |||
| 67950 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 67951 | int lda = 0; | |||
| 67952 | complex_double *b = NULL((void*)0); | |||
| 67953 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 67954 | const int b_Rank = 2; | |||
| 67955 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 67956 | int capi_b_intent = 0; | |||
| 67957 | int capi_overwrite_b = 0; | |||
| 67958 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 67959 | int ldb = 0; | |||
| 67960 | complex_double *alpha = NULL((void*)0); | |||
| 67961 | npy_intp alpha_Dims[1] = {-1}; | |||
| 67962 | const int alpha_Rank = 1; | |||
| 67963 | PyArrayObject *capi_alpha_tmp = NULL((void*)0); | |||
| 67964 | int capi_alpha_intent = 0; | |||
| 67965 | complex_double *beta = NULL((void*)0); | |||
| 67966 | npy_intp beta_Dims[1] = {-1}; | |||
| 67967 | const int beta_Rank = 1; | |||
| 67968 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 67969 | int capi_beta_intent = 0; | |||
| 67970 | complex_double *q = NULL((void*)0); | |||
| 67971 | npy_intp q_Dims[2] = {-1, -1}; | |||
| 67972 | const int q_Rank = 2; | |||
| 67973 | PyArrayObject *capi_q_tmp = NULL((void*)0); | |||
| 67974 | int capi_q_intent = 0; | |||
| 67975 | int capi_overwrite_q = 0; | |||
| 67976 | PyObject *q_capi = Py_None(&_Py_NoneStruct); | |||
| 67977 | int ldq = 0; | |||
| 67978 | complex_double *z = NULL((void*)0); | |||
| 67979 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 67980 | const int z_Rank = 2; | |||
| 67981 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 67982 | int capi_z_intent = 0; | |||
| 67983 | int capi_overwrite_z = 0; | |||
| 67984 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 67985 | int ldz = 0; | |||
| 67986 | int m = 0; | |||
| 67987 | double pl = 0; | |||
| 67988 | double pr = 0; | |||
| 67989 | double *dif = NULL((void*)0); | |||
| 67990 | npy_intp dif_Dims[1] = {-1}; | |||
| 67991 | const int dif_Rank = 1; | |||
| 67992 | PyArrayObject *capi_dif_tmp = NULL((void*)0); | |||
| 67993 | int capi_dif_intent = 0; | |||
| 67994 | complex_double *work = NULL((void*)0); | |||
| 67995 | npy_intp work_Dims[1] = {-1}; | |||
| 67996 | const int work_Rank = 1; | |||
| 67997 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 67998 | int capi_work_intent = 0; | |||
| 67999 | int lwork = 0; | |||
| 68000 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 68001 | int *iwork = NULL((void*)0); | |||
| 68002 | npy_intp iwork_Dims[1] = {-1}; | |||
| 68003 | const int iwork_Rank = 1; | |||
| 68004 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 68005 | int capi_iwork_intent = 0; | |||
| 68006 | int liwork = 0; | |||
| 68007 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 68008 | int info = 0; | |||
| 68009 | static char *capi_kwlist[] = {"select","a","b","q","z","ijob","wantq","wantz","lwork","liwork","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)}; | |||
| 68010 | ||||
| 68011 | /*routdebugenter*/ | |||
| 68012 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68013 | f2py_start_clock(); | |||
| 68014 | #endif | |||
| 68015 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 68016 | "OOOOO|OOOOOiiii:_flapack.ztgsen",\ | |||
| 68017 | capi_kwlist,&select_capi,&a_capi,&b_capi,&q_capi,&z_capi,&ijob_capi,&wantq_capi,&wantz_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z)) | |||
| 68018 | return NULL((void*)0); | |||
| 68019 | /*frompyobj*/ | |||
| 68020 | /* Processing variable ijob */ | |||
| 68021 | if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else | |||
| 68022 | f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.ztgsen() 1st keyword (ijob) can't be converted to int"); | |||
| 68023 | if (f2py_success) { | |||
| 68024 | CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","ztgsen:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ztgsen:ijob=%d", "(""ijob>=0&&ijob<=5" ") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 68025 | /* Processing variable wantq */ | |||
| 68026 | if (wantq_capi == Py_None(&_Py_NoneStruct)) wantq = 1; else | |||
| 68027 | wantq = (int)PyObject_IsTrue(wantq_capi); | |||
| 68028 | f2py_success = 1; | |||
| 68029 | if (f2py_success) { | |||
| 68030 | CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","2nd keyword wantq","ztgsen:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztgsen:wantq=%d", "(""wantq==0||wantq==1"") failed for " "2nd keyword wantq", wantq); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 68031 | /* Processing variable wantz */ | |||
| 68032 | if (wantz_capi == Py_None(&_Py_NoneStruct)) wantz = 1; else | |||
| 68033 | wantz = (int)PyObject_IsTrue(wantz_capi); | |||
| 68034 | f2py_success = 1; | |||
| 68035 | if (f2py_success) { | |||
| 68036 | CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","3rd keyword wantz","ztgsen:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztgsen:wantz=%d", "(""wantz==0||wantz==1"") failed for " "3rd keyword wantz", wantz); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 68037 | /* Processing variable a */ | |||
| 68038 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 68039 | ; | |||
| 68040 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 68041 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 68042 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 68043 | if (!PyErr_Occurred()) | |||
| 68044 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.ztgsen to C/Fortran array" ); | |||
| 68045 | } else { | |||
| 68046 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 68047 | ||||
| 68048 | /* Processing variable m */ | |||
| 68049 | /* Processing variable pl */ | |||
| 68050 | /* Processing variable pr */ | |||
| 68051 | /* Processing variable dif */ | |||
| 68052 | dif_Dims[0]=2; | |||
| 68053 | capi_dif_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 68054 | capi_dif_tmp = array_from_pyobj(NPY_DOUBLE,dif_Dims,dif_Rank,capi_dif_intent,Py_None(&_Py_NoneStruct)); | |||
| 68055 | if (capi_dif_tmp == NULL((void*)0)) { | |||
| 68056 | if (!PyErr_Occurred()) | |||
| 68057 | PyErr_SetString(_flapack_error,"failed in converting hidden `dif' of _flapack.ztgsen to C/Fortran array" ); | |||
| 68058 | } else { | |||
| 68059 | dif = (double *)(PyArray_DATA(capi_dif_tmp)((void *)((PyArrayObject_fields *)(capi_dif_tmp))->data)); | |||
| 68060 | ||||
| 68061 | /* Processing variable info */ | |||
| 68062 | /* Processing variable n */ | |||
| 68063 | n = shape(a,0)a_Dims[0]; | |||
| 68064 | /* Processing variable lda */ | |||
| 68065 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 68066 | /* Processing variable b */ | |||
| 68067 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 68068 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 68069 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 68070 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 68071 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 68072 | if (!PyErr_Occurred()) | |||
| 68073 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.ztgsen to C/Fortran array" ); | |||
| 68074 | } else { | |||
| 68075 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 68076 | ||||
| 68077 | /* Processing variable ldb */ | |||
| 68078 | ldb = MAX(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 68079 | /* Processing variable alpha */ | |||
| 68080 | alpha_Dims[0]=n; | |||
| 68081 | capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 68082 | capi_alpha_tmp = array_from_pyobj(NPY_CDOUBLE,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct)); | |||
| 68083 | if (capi_alpha_tmp == NULL((void*)0)) { | |||
| 68084 | if (!PyErr_Occurred()) | |||
| 68085 | PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.ztgsen to C/Fortran array" ); | |||
| 68086 | } else { | |||
| 68087 | alpha = (complex_double *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data)); | |||
| 68088 | ||||
| 68089 | /* Processing variable beta */ | |||
| 68090 | beta_Dims[0]=n; | |||
| 68091 | capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 68092 | capi_beta_tmp = array_from_pyobj(NPY_CDOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 68093 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 68094 | if (!PyErr_Occurred()) | |||
| 68095 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.ztgsen to C/Fortran array" ); | |||
| 68096 | } else { | |||
| 68097 | beta = (complex_double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 68098 | ||||
| 68099 | /* Processing variable q */ | |||
| 68100 | capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32); | |||
| 68101 | q_Dims[0]=n,q_Dims[1]=n; | |||
| 68102 | capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 68103 | capi_q_tmp = array_from_pyobj(NPY_CDOUBLE,q_Dims,q_Rank,capi_q_intent,q_capi); | |||
| 68104 | if (capi_q_tmp == NULL((void*)0)) { | |||
| 68105 | if (!PyErr_Occurred()) | |||
| 68106 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `q' of _flapack.ztgsen to C/Fortran array" ); | |||
| 68107 | } else { | |||
| 68108 | q = (complex_double *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data)); | |||
| 68109 | ||||
| 68110 | /* Processing variable ldq */ | |||
| 68111 | ldq = MAX(1,shape(q,0))((1 > q_Dims[0]) ? (1) : (q_Dims[0])); | |||
| 68112 | /* Processing variable z */ | |||
| 68113 | capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32); | |||
| 68114 | z_Dims[0]=n,z_Dims[1]=n; | |||
| 68115 | capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 68116 | capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 68117 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 68118 | if (!PyErr_Occurred()) | |||
| 68119 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `z' of _flapack.ztgsen to C/Fortran array" ); | |||
| 68120 | } else { | |||
| 68121 | z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 68122 | ||||
| 68123 | /* Processing variable ldz */ | |||
| 68124 | ldz = MAX(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0])); | |||
| 68125 | /* Processing variable lwork */ | |||
| 68126 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = (ijob==0?1:n+2); else | |||
| 68127 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ztgsen() 4th keyword (lwork) can't be converted to int"); | |||
| 68128 | if (f2py_success) { | |||
| 68129 | CHECKSCALAR(lwork == -1 || lwork >= 1,"lwork == -1 || lwork >= 1","4th keyword lwork","ztgsen:lwork=%d",lwork)if (!(lwork == -1 || lwork >= 1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztgsen:lwork=%d", "(""lwork == -1 || lwork >= 1" ") failed for ""4th keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 68130 | /* Processing variable liwork */ | |||
| 68131 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (ijob==0?1:n+2); else | |||
| 68132 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.ztgsen() 5th keyword (liwork) can't be converted to int"); | |||
| 68133 | if (f2py_success) { | |||
| 68134 | CHECKSCALAR(liwork == -1 || liwork>=1,"liwork == -1 || liwork>=1","5th keyword liwork","ztgsen:liwork=%d",liwork)if (!(liwork == -1 || liwork>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztgsen:liwork=%d", "(""liwork == -1 || liwork>=1" ") failed for ""5th keyword liwork", liwork); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 68135 | /* Processing variable select */ | |||
| 68136 | select_Dims[0]=n; | |||
| 68137 | capi_select_intent |= F2PY_INTENT_IN1; | |||
| 68138 | capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi); | |||
| 68139 | if (capi_select_tmp == NULL((void*)0)) { | |||
| 68140 | if (!PyErr_Occurred()) | |||
| 68141 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.ztgsen to C/Fortran array" ); | |||
| 68142 | } else { | |||
| 68143 | select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data )); | |||
| 68144 | ||||
| 68145 | /* Processing variable work */ | |||
| 68146 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 68147 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 68148 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 68149 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 68150 | if (!PyErr_Occurred()) | |||
| 68151 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ztgsen to C/Fortran array" ); | |||
| 68152 | } else { | |||
| 68153 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 68154 | ||||
| 68155 | /* Processing variable iwork */ | |||
| 68156 | iwork_Dims[0]=liwork; | |||
| 68157 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 68158 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 68159 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 68160 | if (!PyErr_Occurred()) | |||
| 68161 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ztgsen to C/Fortran array" ); | |||
| 68162 | } else { | |||
| 68163 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 68164 | ||||
| 68165 | /*end of frompyobj*/ | |||
| 68166 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68167 | f2py_start_call_clock(); | |||
| 68168 | #endif | |||
| 68169 | /*callfortranroutine*/ | |||
| 68170 | (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info) ; | |||
| 68171 | /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info);*/ | |||
| 68172 | if (PyErr_Occurred()) | |||
| 68173 | f2py_success = 0; | |||
| 68174 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68175 | f2py_stop_call_clock(); | |||
| 68176 | #endif | |||
| 68177 | /*end of callfortranroutine*/ | |||
| 68178 | if (f2py_success) { | |||
| 68179 | /*pyobjfrom*/ | |||
| 68180 | /*end of pyobjfrom*/ | |||
| 68181 | CFUNCSMESS("Building return value.\n"); | |||
| 68182 | capi_buildvalue = Py_BuildValue("NNNNNNiddNi",capi_a_tmp,capi_b_tmp,capi_alpha_tmp,capi_beta_tmp,capi_q_tmp,capi_z_tmp,m,pl,pr,capi_dif_tmp,info); | |||
| 68183 | /*closepyobjfrom*/ | |||
| 68184 | /*end of closepyobjfrom*/ | |||
| 68185 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 68186 | /*cleanupfrompyobj*/ | |||
| 68187 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 68188 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 68189 | /* End of cleaning variable iwork */ | |||
| 68190 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 68191 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 68192 | /* End of cleaning variable work */ | |||
| 68193 | if((PyObject *)capi_select_tmp!=select_capi) { | |||
| 68194 | Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); } | |||
| 68195 | } /*if (capi_select_tmp == NULL) ... else of select*/ | |||
| 68196 | /* End of cleaning variable select */ | |||
| 68197 | } /*CHECKSCALAR(liwork == -1 || liwork>=1)*/ | |||
| 68198 | } /*if (f2py_success) of liwork*/ | |||
| 68199 | /* End of cleaning variable liwork */ | |||
| 68200 | } /*CHECKSCALAR(lwork == -1 || lwork >= 1)*/ | |||
| 68201 | } /*if (f2py_success) of lwork*/ | |||
| 68202 | /* End of cleaning variable lwork */ | |||
| 68203 | /* End of cleaning variable ldz */ | |||
| 68204 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 68205 | /* End of cleaning variable z */ | |||
| 68206 | /* End of cleaning variable ldq */ | |||
| 68207 | } /*if (capi_q_tmp == NULL) ... else of q*/ | |||
| 68208 | /* End of cleaning variable q */ | |||
| 68209 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 68210 | /* End of cleaning variable beta */ | |||
| 68211 | } /*if (capi_alpha_tmp == NULL) ... else of alpha*/ | |||
| 68212 | /* End of cleaning variable alpha */ | |||
| 68213 | /* End of cleaning variable ldb */ | |||
| 68214 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 68215 | /* End of cleaning variable b */ | |||
| 68216 | /* End of cleaning variable lda */ | |||
| 68217 | /* End of cleaning variable n */ | |||
| 68218 | /* End of cleaning variable info */ | |||
| 68219 | } /*if (capi_dif_tmp == NULL) ... else of dif*/ | |||
| 68220 | /* End of cleaning variable dif */ | |||
| 68221 | /* End of cleaning variable pr */ | |||
| 68222 | /* End of cleaning variable pl */ | |||
| 68223 | /* End of cleaning variable m */ | |||
| 68224 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 68225 | /* End of cleaning variable a */ | |||
| 68226 | } /*CHECKSCALAR(wantz==0||wantz==1)*/ | |||
| 68227 | } /*if (f2py_success) of wantz*/ | |||
| 68228 | /* End of cleaning variable wantz */ | |||
| 68229 | } /*CHECKSCALAR(wantq==0||wantq==1)*/ | |||
| 68230 | } /*if (f2py_success) of wantq*/ | |||
| 68231 | /* End of cleaning variable wantq */ | |||
| 68232 | } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/ | |||
| 68233 | } /*if (f2py_success) of ijob*/ | |||
| 68234 | /* End of cleaning variable ijob */ | |||
| 68235 | /*end of cleanupfrompyobj*/ | |||
| 68236 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 68237 | /*routdebugfailure*/ | |||
| 68238 | } else { | |||
| 68239 | /*routdebugleave*/ | |||
| 68240 | } | |||
| 68241 | CFUNCSMESS("Freeing memory.\n"); | |||
| 68242 | /*freemem*/ | |||
| 68243 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68244 | f2py_stop_clock(); | |||
| 68245 | #endif | |||
| 68246 | return capi_buildvalue; | |||
| 68247 | } | |||
| 68248 | /******************************* end of ztgsen *******************************/ | |||
| 68249 | ||||
| 68250 | /******************************** ctgsen_lwork ********************************/ | |||
| 68251 | static char doc_f2py_rout__flapack_ctgsen_lwork[] = "\ | |||
| 68252 | work,iwork,info = ctgsen_lwork(select,a,b,[ijob])\n\nWrapper for ``ctgsen_lwork``.\ | |||
| 68253 | \n\nParameters\n----------\n" | |||
| 68254 | "select : input rank-1 array('i') with bounds (n)\n" | |||
| 68255 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 68256 | "b : input rank-2 array('F') with bounds (n,n)\n" | |||
| 68257 | "\nOther Parameters\n----------------\n" | |||
| 68258 | "ijob : input int, optional\n Default: 4\n" | |||
| 68259 | "\nReturns\n-------\n" | |||
| 68260 | "work : complex\n" | |||
| 68261 | "iwork : int\n" | |||
| 68262 | "info : int"; | |||
| 68263 | /* extern void F_FUNC(ctgsen ,CTGSEN )(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,float*,float*,float*,complex_float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 68264 | static PyObject *f2py_rout__flapack_ctgsen_lwork(const PyObject *capi_self, | |||
| 68265 | PyObject *capi_args, | |||
| 68266 | PyObject *capi_keywds, | |||
| 68267 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 68268 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 68269 | volatile int f2py_success = 1; | |||
| 68270 | /*decl*/ | |||
| 68271 | ||||
| 68272 | int ijob = 0; | |||
| 68273 | PyObject *ijob_capi = Py_None(&_Py_NoneStruct); | |||
| 68274 | int wantq = 0; | |||
| 68275 | int wantz = 0; | |||
| 68276 | int *select = NULL((void*)0); | |||
| 68277 | npy_intp select_Dims[1] = {-1}; | |||
| 68278 | const int select_Rank = 1; | |||
| 68279 | PyArrayObject *capi_select_tmp = NULL((void*)0); | |||
| 68280 | int capi_select_intent = 0; | |||
| 68281 | PyObject *select_capi = Py_None(&_Py_NoneStruct); | |||
| 68282 | int n = 0; | |||
| 68283 | complex_float *a = NULL((void*)0); | |||
| 68284 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 68285 | const int a_Rank = 2; | |||
| 68286 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 68287 | int capi_a_intent = 0; | |||
| 68288 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 68289 | int lda = 0; | |||
| 68290 | complex_float *b = NULL((void*)0); | |||
| 68291 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 68292 | const int b_Rank = 2; | |||
| 68293 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 68294 | int capi_b_intent = 0; | |||
| 68295 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 68296 | int ldb = 0; | |||
| 68297 | complex_float *alpha = NULL((void*)0); | |||
| 68298 | npy_intp alpha_Dims[1] = {-1}; | |||
| 68299 | const int alpha_Rank = 1; | |||
| 68300 | PyArrayObject *capi_alpha_tmp = NULL((void*)0); | |||
| 68301 | int capi_alpha_intent = 0; | |||
| 68302 | complex_float *beta = NULL((void*)0); | |||
| 68303 | npy_intp beta_Dims[1] = {-1}; | |||
| 68304 | const int beta_Rank = 1; | |||
| 68305 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 68306 | int capi_beta_intent = 0; | |||
| 68307 | complex_float q; | |||
| 68308 | int ldq = 0; | |||
| 68309 | complex_float z; | |||
| 68310 | int ldz = 0; | |||
| 68311 | int m = 0; | |||
| 68312 | float pl = 0; | |||
| 68313 | float pr = 0; | |||
| 68314 | float dif = 0; | |||
| 68315 | complex_float work; | |||
| 68316 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 68317 | int lwork = 0; | |||
| 68318 | int iwork = 0; | |||
| 68319 | int liwork = 0; | |||
| 68320 | int info = 0; | |||
| 68321 | static char *capi_kwlist[] = {"select","a","b","ijob",NULL((void*)0)}; | |||
| 68322 | ||||
| 68323 | /*routdebugenter*/ | |||
| 68324 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68325 | f2py_start_clock(); | |||
| 68326 | #endif | |||
| 68327 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 68328 | "OOO|O:_flapack.ctgsen_lwork",\ | |||
| 68329 | capi_kwlist,&select_capi,&a_capi,&b_capi,&ijob_capi)) | |||
| 68330 | return NULL((void*)0); | |||
| 68331 | /*frompyobj*/ | |||
| 68332 | /* Processing variable ijob */ | |||
| 68333 | if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else | |||
| 68334 | f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.ctgsen_lwork() 1st keyword (ijob) can't be converted to int"); | |||
| 68335 | if (f2py_success) { | |||
| 68336 | CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","ctgsen_lwork:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ctgsen_lwork:ijob=%d", "(""ijob>=0&&ijob<=5" ") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 68337 | /* Processing variable a */ | |||
| 68338 | ; | |||
| 68339 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 68340 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 68341 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 68342 | if (!PyErr_Occurred()) | |||
| 68343 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.ctgsen_lwork to C/Fortran array" ); | |||
| 68344 | } else { | |||
| 68345 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 68346 | ||||
| 68347 | /* Processing variable wantq */ | |||
| 68348 | wantq = 0; | |||
| 68349 | /* Processing variable wantz */ | |||
| 68350 | wantz = 0; | |||
| 68351 | /* Processing variable q */ | |||
| 68352 | /* Processing variable z */ | |||
| 68353 | /* Processing variable m */ | |||
| 68354 | /* Processing variable pl */ | |||
| 68355 | /* Processing variable pr */ | |||
| 68356 | /* Processing variable dif */ | |||
| 68357 | /* Processing variable lwork */ | |||
| 68358 | lwork = -1; | |||
| 68359 | /* Processing variable liwork */ | |||
| 68360 | liwork = -1; | |||
| 68361 | /* Processing variable work */ | |||
| 68362 | /* Processing variable iwork */ | |||
| 68363 | /* Processing variable info */ | |||
| 68364 | /* Processing variable n */ | |||
| 68365 | n = shape(a,0)a_Dims[0]; | |||
| 68366 | /* Processing variable lda */ | |||
| 68367 | lda = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 68368 | /* Processing variable ldb */ | |||
| 68369 | ldb = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 68370 | /* Processing variable alpha */ | |||
| 68371 | alpha_Dims[0]=n; | |||
| 68372 | capi_alpha_intent |= F2PY_INTENT_HIDE8; | |||
| 68373 | capi_alpha_tmp = array_from_pyobj(NPY_CFLOAT,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct)); | |||
| 68374 | if (capi_alpha_tmp == NULL((void*)0)) { | |||
| 68375 | if (!PyErr_Occurred()) | |||
| 68376 | PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.ctgsen_lwork to C/Fortran array" ); | |||
| 68377 | } else { | |||
| 68378 | alpha = (complex_float *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data)); | |||
| 68379 | ||||
| 68380 | /* Processing variable beta */ | |||
| 68381 | beta_Dims[0]=n; | |||
| 68382 | capi_beta_intent |= F2PY_INTENT_HIDE8; | |||
| 68383 | capi_beta_tmp = array_from_pyobj(NPY_CFLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 68384 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 68385 | if (!PyErr_Occurred()) | |||
| 68386 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.ctgsen_lwork to C/Fortran array" ); | |||
| 68387 | } else { | |||
| 68388 | beta = (complex_float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 68389 | ||||
| 68390 | /* Processing variable ldq */ | |||
| 68391 | ldq = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 68392 | /* Processing variable ldz */ | |||
| 68393 | ldz = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 68394 | /* Processing variable select */ | |||
| 68395 | select_Dims[0]=n; | |||
| 68396 | capi_select_intent |= F2PY_INTENT_IN1; | |||
| 68397 | capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi); | |||
| 68398 | if (capi_select_tmp == NULL((void*)0)) { | |||
| 68399 | if (!PyErr_Occurred()) | |||
| 68400 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.ctgsen_lwork to C/Fortran array" ); | |||
| 68401 | } else { | |||
| 68402 | select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data )); | |||
| 68403 | ||||
| 68404 | /* Processing variable b */ | |||
| 68405 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 68406 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 68407 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 68408 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 68409 | if (!PyErr_Occurred()) | |||
| 68410 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.ctgsen_lwork to C/Fortran array" ); | |||
| 68411 | } else { | |||
| 68412 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 68413 | ||||
| 68414 | /*end of frompyobj*/ | |||
| 68415 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68416 | f2py_start_call_clock(); | |||
| 68417 | #endif | |||
| 68418 | /*callfortranroutine*/ | |||
| 68419 | (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info) ; | |||
| 68420 | /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info);*/ | |||
| 68421 | if (PyErr_Occurred()) | |||
| 68422 | f2py_success = 0; | |||
| 68423 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68424 | f2py_stop_call_clock(); | |||
| 68425 | #endif | |||
| 68426 | /*end of callfortranroutine*/ | |||
| 68427 | if (f2py_success) { | |||
| 68428 | /*pyobjfrom*/ | |||
| 68429 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 68430 | /*end of pyobjfrom*/ | |||
| 68431 | CFUNCSMESS("Building return value.\n"); | |||
| 68432 | capi_buildvalue = Py_BuildValue("Nii",work_capi,iwork,info); | |||
| 68433 | /*closepyobjfrom*/ | |||
| 68434 | /*end of closepyobjfrom*/ | |||
| 68435 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 68436 | /*cleanupfrompyobj*/ | |||
| 68437 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 68438 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 68439 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 68440 | /* End of cleaning variable b */ | |||
| 68441 | if((PyObject *)capi_select_tmp!=select_capi) { | |||
| 68442 | Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); } | |||
| 68443 | } /*if (capi_select_tmp == NULL) ... else of select*/ | |||
| 68444 | /* End of cleaning variable select */ | |||
| 68445 | /* End of cleaning variable ldz */ | |||
| 68446 | /* End of cleaning variable ldq */ | |||
| 68447 | Py_XDECREF(capi_beta_tmp)_Py_XDECREF(((PyObject*)(capi_beta_tmp))); | |||
| 68448 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 68449 | /* End of cleaning variable beta */ | |||
| 68450 | Py_XDECREF(capi_alpha_tmp)_Py_XDECREF(((PyObject*)(capi_alpha_tmp))); | |||
| 68451 | } /*if (capi_alpha_tmp == NULL) ... else of alpha*/ | |||
| 68452 | /* End of cleaning variable alpha */ | |||
| 68453 | /* End of cleaning variable ldb */ | |||
| 68454 | /* End of cleaning variable lda */ | |||
| 68455 | /* End of cleaning variable n */ | |||
| 68456 | /* End of cleaning variable info */ | |||
| 68457 | /* End of cleaning variable iwork */ | |||
| 68458 | /* End of cleaning variable work */ | |||
| 68459 | /* End of cleaning variable liwork */ | |||
| 68460 | /* End of cleaning variable lwork */ | |||
| 68461 | /* End of cleaning variable dif */ | |||
| 68462 | /* End of cleaning variable pr */ | |||
| 68463 | /* End of cleaning variable pl */ | |||
| 68464 | /* End of cleaning variable m */ | |||
| 68465 | /* End of cleaning variable z */ | |||
| 68466 | /* End of cleaning variable q */ | |||
| 68467 | /* End of cleaning variable wantz */ | |||
| 68468 | /* End of cleaning variable wantq */ | |||
| 68469 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 68470 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 68471 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 68472 | /* End of cleaning variable a */ | |||
| 68473 | } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/ | |||
| 68474 | } /*if (f2py_success) of ijob*/ | |||
| 68475 | /* End of cleaning variable ijob */ | |||
| 68476 | /*end of cleanupfrompyobj*/ | |||
| 68477 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 68478 | /*routdebugfailure*/ | |||
| 68479 | } else { | |||
| 68480 | /*routdebugleave*/ | |||
| 68481 | } | |||
| 68482 | CFUNCSMESS("Freeing memory.\n"); | |||
| 68483 | /*freemem*/ | |||
| 68484 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68485 | f2py_stop_clock(); | |||
| 68486 | #endif | |||
| 68487 | return capi_buildvalue; | |||
| 68488 | } | |||
| 68489 | /**************************** end of ctgsen_lwork ****************************/ | |||
| 68490 | ||||
| 68491 | /******************************** ztgsen_lwork ********************************/ | |||
| 68492 | static char doc_f2py_rout__flapack_ztgsen_lwork[] = "\ | |||
| 68493 | work,iwork,info = ztgsen_lwork(select,a,b,[ijob])\n\nWrapper for ``ztgsen_lwork``.\ | |||
| 68494 | \n\nParameters\n----------\n" | |||
| 68495 | "select : input rank-1 array('i') with bounds (n)\n" | |||
| 68496 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 68497 | "b : input rank-2 array('D') with bounds (n,n)\n" | |||
| 68498 | "\nOther Parameters\n----------------\n" | |||
| 68499 | "ijob : input int, optional\n Default: 4\n" | |||
| 68500 | "\nReturns\n-------\n" | |||
| 68501 | "work : complex\n" | |||
| 68502 | "iwork : int\n" | |||
| 68503 | "info : int"; | |||
| 68504 | /* extern void F_FUNC(ztgsen ,ZTGSEN )(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,double*,double*,double*,complex_double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 68505 | static PyObject *f2py_rout__flapack_ztgsen_lwork(const PyObject *capi_self, | |||
| 68506 | PyObject *capi_args, | |||
| 68507 | PyObject *capi_keywds, | |||
| 68508 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 68509 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 68510 | volatile int f2py_success = 1; | |||
| 68511 | /*decl*/ | |||
| 68512 | ||||
| 68513 | int ijob = 0; | |||
| 68514 | PyObject *ijob_capi = Py_None(&_Py_NoneStruct); | |||
| 68515 | int wantq = 0; | |||
| 68516 | int wantz = 0; | |||
| 68517 | int *select = NULL((void*)0); | |||
| 68518 | npy_intp select_Dims[1] = {-1}; | |||
| 68519 | const int select_Rank = 1; | |||
| 68520 | PyArrayObject *capi_select_tmp = NULL((void*)0); | |||
| 68521 | int capi_select_intent = 0; | |||
| 68522 | PyObject *select_capi = Py_None(&_Py_NoneStruct); | |||
| 68523 | int n = 0; | |||
| 68524 | complex_double *a = NULL((void*)0); | |||
| 68525 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 68526 | const int a_Rank = 2; | |||
| 68527 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 68528 | int capi_a_intent = 0; | |||
| 68529 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 68530 | int lda = 0; | |||
| 68531 | complex_double *b = NULL((void*)0); | |||
| 68532 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 68533 | const int b_Rank = 2; | |||
| 68534 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 68535 | int capi_b_intent = 0; | |||
| 68536 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 68537 | int ldb = 0; | |||
| 68538 | complex_double *alpha = NULL((void*)0); | |||
| 68539 | npy_intp alpha_Dims[1] = {-1}; | |||
| 68540 | const int alpha_Rank = 1; | |||
| 68541 | PyArrayObject *capi_alpha_tmp = NULL((void*)0); | |||
| 68542 | int capi_alpha_intent = 0; | |||
| 68543 | complex_double *beta = NULL((void*)0); | |||
| 68544 | npy_intp beta_Dims[1] = {-1}; | |||
| 68545 | const int beta_Rank = 1; | |||
| 68546 | PyArrayObject *capi_beta_tmp = NULL((void*)0); | |||
| 68547 | int capi_beta_intent = 0; | |||
| 68548 | complex_double q; | |||
| 68549 | int ldq = 0; | |||
| 68550 | complex_double z; | |||
| 68551 | int ldz = 0; | |||
| 68552 | int m = 0; | |||
| 68553 | double pl = 0; | |||
| 68554 | double pr = 0; | |||
| 68555 | double dif = 0; | |||
| 68556 | complex_double work; | |||
| 68557 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 68558 | int lwork = 0; | |||
| 68559 | int iwork = 0; | |||
| 68560 | int liwork = 0; | |||
| 68561 | int info = 0; | |||
| 68562 | static char *capi_kwlist[] = {"select","a","b","ijob",NULL((void*)0)}; | |||
| 68563 | ||||
| 68564 | /*routdebugenter*/ | |||
| 68565 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68566 | f2py_start_clock(); | |||
| 68567 | #endif | |||
| 68568 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 68569 | "OOO|O:_flapack.ztgsen_lwork",\ | |||
| 68570 | capi_kwlist,&select_capi,&a_capi,&b_capi,&ijob_capi)) | |||
| 68571 | return NULL((void*)0); | |||
| 68572 | /*frompyobj*/ | |||
| 68573 | /* Processing variable ijob */ | |||
| 68574 | if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else | |||
| 68575 | f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.ztgsen_lwork() 1st keyword (ijob) can't be converted to int"); | |||
| 68576 | if (f2py_success) { | |||
| 68577 | CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","ztgsen_lwork:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ztgsen_lwork:ijob=%d", "(""ijob>=0&&ijob<=5" ") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 68578 | /* Processing variable a */ | |||
| 68579 | ; | |||
| 68580 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 68581 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 68582 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 68583 | if (!PyErr_Occurred()) | |||
| 68584 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.ztgsen_lwork to C/Fortran array" ); | |||
| 68585 | } else { | |||
| 68586 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 68587 | ||||
| 68588 | /* Processing variable wantq */ | |||
| 68589 | wantq = 0; | |||
| 68590 | /* Processing variable wantz */ | |||
| 68591 | wantz = 0; | |||
| 68592 | /* Processing variable q */ | |||
| 68593 | /* Processing variable z */ | |||
| 68594 | /* Processing variable m */ | |||
| 68595 | /* Processing variable pl */ | |||
| 68596 | /* Processing variable pr */ | |||
| 68597 | /* Processing variable dif */ | |||
| 68598 | /* Processing variable lwork */ | |||
| 68599 | lwork = -1; | |||
| 68600 | /* Processing variable liwork */ | |||
| 68601 | liwork = -1; | |||
| 68602 | /* Processing variable work */ | |||
| 68603 | /* Processing variable iwork */ | |||
| 68604 | /* Processing variable info */ | |||
| 68605 | /* Processing variable n */ | |||
| 68606 | n = shape(a,0)a_Dims[0]; | |||
| 68607 | /* Processing variable lda */ | |||
| 68608 | lda = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 68609 | /* Processing variable ldb */ | |||
| 68610 | ldb = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 68611 | /* Processing variable alpha */ | |||
| 68612 | alpha_Dims[0]=n; | |||
| 68613 | capi_alpha_intent |= F2PY_INTENT_HIDE8; | |||
| 68614 | capi_alpha_tmp = array_from_pyobj(NPY_CDOUBLE,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct)); | |||
| 68615 | if (capi_alpha_tmp == NULL((void*)0)) { | |||
| 68616 | if (!PyErr_Occurred()) | |||
| 68617 | PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.ztgsen_lwork to C/Fortran array" ); | |||
| 68618 | } else { | |||
| 68619 | alpha = (complex_double *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data)); | |||
| 68620 | ||||
| 68621 | /* Processing variable beta */ | |||
| 68622 | beta_Dims[0]=n; | |||
| 68623 | capi_beta_intent |= F2PY_INTENT_HIDE8; | |||
| 68624 | capi_beta_tmp = array_from_pyobj(NPY_CDOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct)); | |||
| 68625 | if (capi_beta_tmp == NULL((void*)0)) { | |||
| 68626 | if (!PyErr_Occurred()) | |||
| 68627 | PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.ztgsen_lwork to C/Fortran array" ); | |||
| 68628 | } else { | |||
| 68629 | beta = (complex_double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data)); | |||
| 68630 | ||||
| 68631 | /* Processing variable ldq */ | |||
| 68632 | ldq = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 68633 | /* Processing variable ldz */ | |||
| 68634 | ldz = MAX(1, n)((1 > n) ? (1) : (n)); | |||
| 68635 | /* Processing variable select */ | |||
| 68636 | select_Dims[0]=n; | |||
| 68637 | capi_select_intent |= F2PY_INTENT_IN1; | |||
| 68638 | capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi); | |||
| 68639 | if (capi_select_tmp == NULL((void*)0)) { | |||
| 68640 | if (!PyErr_Occurred()) | |||
| 68641 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.ztgsen_lwork to C/Fortran array" ); | |||
| 68642 | } else { | |||
| 68643 | select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data )); | |||
| 68644 | ||||
| 68645 | /* Processing variable b */ | |||
| 68646 | b_Dims[0]=n,b_Dims[1]=n; | |||
| 68647 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 68648 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 68649 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 68650 | if (!PyErr_Occurred()) | |||
| 68651 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.ztgsen_lwork to C/Fortran array" ); | |||
| 68652 | } else { | |||
| 68653 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 68654 | ||||
| 68655 | /*end of frompyobj*/ | |||
| 68656 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68657 | f2py_start_call_clock(); | |||
| 68658 | #endif | |||
| 68659 | /*callfortranroutine*/ | |||
| 68660 | (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info) ; | |||
| 68661 | /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info);*/ | |||
| 68662 | if (PyErr_Occurred()) | |||
| 68663 | f2py_success = 0; | |||
| 68664 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68665 | f2py_stop_call_clock(); | |||
| 68666 | #endif | |||
| 68667 | /*end of callfortranroutine*/ | |||
| 68668 | if (f2py_success) { | |||
| 68669 | /*pyobjfrom*/ | |||
| 68670 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 68671 | /*end of pyobjfrom*/ | |||
| 68672 | CFUNCSMESS("Building return value.\n"); | |||
| 68673 | capi_buildvalue = Py_BuildValue("Nii",work_capi,iwork,info); | |||
| 68674 | /*closepyobjfrom*/ | |||
| 68675 | /*end of closepyobjfrom*/ | |||
| 68676 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 68677 | /*cleanupfrompyobj*/ | |||
| 68678 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 68679 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 68680 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 68681 | /* End of cleaning variable b */ | |||
| 68682 | if((PyObject *)capi_select_tmp!=select_capi) { | |||
| 68683 | Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); } | |||
| 68684 | } /*if (capi_select_tmp == NULL) ... else of select*/ | |||
| 68685 | /* End of cleaning variable select */ | |||
| 68686 | /* End of cleaning variable ldz */ | |||
| 68687 | /* End of cleaning variable ldq */ | |||
| 68688 | Py_XDECREF(capi_beta_tmp)_Py_XDECREF(((PyObject*)(capi_beta_tmp))); | |||
| 68689 | } /*if (capi_beta_tmp == NULL) ... else of beta*/ | |||
| 68690 | /* End of cleaning variable beta */ | |||
| 68691 | Py_XDECREF(capi_alpha_tmp)_Py_XDECREF(((PyObject*)(capi_alpha_tmp))); | |||
| 68692 | } /*if (capi_alpha_tmp == NULL) ... else of alpha*/ | |||
| 68693 | /* End of cleaning variable alpha */ | |||
| 68694 | /* End of cleaning variable ldb */ | |||
| 68695 | /* End of cleaning variable lda */ | |||
| 68696 | /* End of cleaning variable n */ | |||
| 68697 | /* End of cleaning variable info */ | |||
| 68698 | /* End of cleaning variable iwork */ | |||
| 68699 | /* End of cleaning variable work */ | |||
| 68700 | /* End of cleaning variable liwork */ | |||
| 68701 | /* End of cleaning variable lwork */ | |||
| 68702 | /* End of cleaning variable dif */ | |||
| 68703 | /* End of cleaning variable pr */ | |||
| 68704 | /* End of cleaning variable pl */ | |||
| 68705 | /* End of cleaning variable m */ | |||
| 68706 | /* End of cleaning variable z */ | |||
| 68707 | /* End of cleaning variable q */ | |||
| 68708 | /* End of cleaning variable wantz */ | |||
| 68709 | /* End of cleaning variable wantq */ | |||
| 68710 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 68711 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 68712 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 68713 | /* End of cleaning variable a */ | |||
| 68714 | } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/ | |||
| 68715 | } /*if (f2py_success) of ijob*/ | |||
| 68716 | /* End of cleaning variable ijob */ | |||
| 68717 | /*end of cleanupfrompyobj*/ | |||
| 68718 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 68719 | /*routdebugfailure*/ | |||
| 68720 | } else { | |||
| 68721 | /*routdebugleave*/ | |||
| 68722 | } | |||
| 68723 | CFUNCSMESS("Freeing memory.\n"); | |||
| 68724 | /*freemem*/ | |||
| 68725 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68726 | f2py_stop_clock(); | |||
| 68727 | #endif | |||
| 68728 | return capi_buildvalue; | |||
| 68729 | } | |||
| 68730 | /**************************** end of ztgsen_lwork ****************************/ | |||
| 68731 | ||||
| 68732 | /*********************************** spbtrf ***********************************/ | |||
| 68733 | static char doc_f2py_rout__flapack_spbtrf[] = "\ | |||
| 68734 | c,info = spbtrf(ab,[lower,ldab,overwrite_ab])\n\nWrapper for ``spbtrf``.\ | |||
| 68735 | \n\nParameters\n----------\n" | |||
| 68736 | "ab : input rank-2 array('f') with bounds (ldab,n)\n" | |||
| 68737 | "\nOther Parameters\n----------------\n" | |||
| 68738 | "lower : input int, optional\n Default: 0\n" | |||
| 68739 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 68740 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 68741 | "\nReturns\n-------\n" | |||
| 68742 | "c : rank-2 array('f') with bounds (ldab,n) and ab storage\n" | |||
| 68743 | "info : int"; | |||
| 68744 | /* extern void F_FUNC(spbtrf,SPBTRF)(char*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 68745 | static PyObject *f2py_rout__flapack_spbtrf(const PyObject *capi_self, | |||
| 68746 | PyObject *capi_args, | |||
| 68747 | PyObject *capi_keywds, | |||
| 68748 | void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 68749 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 68750 | volatile int f2py_success = 1; | |||
| 68751 | /*decl*/ | |||
| 68752 | ||||
| 68753 | int lower = 0; | |||
| 68754 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 68755 | int n = 0; | |||
| 68756 | int kd = 0; | |||
| 68757 | float *ab = NULL((void*)0); | |||
| 68758 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 68759 | const int ab_Rank = 2; | |||
| 68760 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 68761 | int capi_ab_intent = 0; | |||
| 68762 | int capi_overwrite_ab = 0; | |||
| 68763 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 68764 | int ldab = 0; | |||
| 68765 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 68766 | int info = 0; | |||
| 68767 | static char *capi_kwlist[] = {"ab","lower","ldab","overwrite_ab",NULL((void*)0)}; | |||
| 68768 | ||||
| 68769 | /*routdebugenter*/ | |||
| 68770 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68771 | f2py_start_clock(); | |||
| 68772 | #endif | |||
| 68773 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 68774 | "O|OOi:_flapack.spbtrf",\ | |||
| 68775 | capi_kwlist,&ab_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab)) | |||
| 68776 | return NULL((void*)0); | |||
| 68777 | /*frompyobj*/ | |||
| 68778 | /* Processing variable lower */ | |||
| 68779 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 68780 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spbtrf() 1st keyword (lower) can't be converted to int"); | |||
| 68781 | if (f2py_success) { | |||
| 68782 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spbtrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spbtrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 68783 | /* Processing variable ab */ | |||
| 68784 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 68785 | ; | |||
| 68786 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 68787 | capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 68788 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 68789 | if (!PyErr_Occurred()) | |||
| 68790 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.spbtrf to C/Fortran array" ); | |||
| 68791 | } else { | |||
| 68792 | ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 68793 | ||||
| 68794 | /* Processing variable info */ | |||
| 68795 | /* Processing variable ldab */ | |||
| 68796 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 68797 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.spbtrf() 2nd keyword (ldab) can't be converted to int"); | |||
| 68798 | if (f2py_success) { | |||
| 68799 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","spbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 68800 | /* Processing variable n */ | |||
| 68801 | n = shape(ab,1)ab_Dims[1]; | |||
| 68802 | /* Processing variable kd */ | |||
| 68803 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 68804 | /*end of frompyobj*/ | |||
| 68805 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68806 | f2py_start_call_clock(); | |||
| 68807 | #endif | |||
| 68808 | /*callfortranroutine*/ | |||
| 68809 | (*f2py_func)((lower?"L":"U"),&n,&kd,ab,&ldab,&info); ; | |||
| 68810 | /*(*f2py_func)(&lower,&n,&kd,ab,&ldab,&info);*/ | |||
| 68811 | if (PyErr_Occurred()) | |||
| 68812 | f2py_success = 0; | |||
| 68813 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68814 | f2py_stop_call_clock(); | |||
| 68815 | #endif | |||
| 68816 | /*end of callfortranroutine*/ | |||
| 68817 | if (f2py_success) { | |||
| 68818 | /*pyobjfrom*/ | |||
| 68819 | /*end of pyobjfrom*/ | |||
| 68820 | CFUNCSMESS("Building return value.\n"); | |||
| 68821 | capi_buildvalue = Py_BuildValue("Ni",capi_ab_tmp,info); | |||
| 68822 | /*closepyobjfrom*/ | |||
| 68823 | /*end of closepyobjfrom*/ | |||
| 68824 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 68825 | /*cleanupfrompyobj*/ | |||
| 68826 | /* End of cleaning variable kd */ | |||
| 68827 | /* End of cleaning variable n */ | |||
| 68828 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 68829 | } /*if (f2py_success) of ldab*/ | |||
| 68830 | /* End of cleaning variable ldab */ | |||
| 68831 | /* End of cleaning variable info */ | |||
| 68832 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 68833 | /* End of cleaning variable ab */ | |||
| 68834 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 68835 | } /*if (f2py_success) of lower*/ | |||
| 68836 | /* End of cleaning variable lower */ | |||
| 68837 | /*end of cleanupfrompyobj*/ | |||
| 68838 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 68839 | /*routdebugfailure*/ | |||
| 68840 | } else { | |||
| 68841 | /*routdebugleave*/ | |||
| 68842 | } | |||
| 68843 | CFUNCSMESS("Freeing memory.\n"); | |||
| 68844 | /*freemem*/ | |||
| 68845 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68846 | f2py_stop_clock(); | |||
| 68847 | #endif | |||
| 68848 | return capi_buildvalue; | |||
| 68849 | } | |||
| 68850 | /******************************* end of spbtrf *******************************/ | |||
| 68851 | ||||
| 68852 | /*********************************** dpbtrf ***********************************/ | |||
| 68853 | static char doc_f2py_rout__flapack_dpbtrf[] = "\ | |||
| 68854 | c,info = dpbtrf(ab,[lower,ldab,overwrite_ab])\n\nWrapper for ``dpbtrf``.\ | |||
| 68855 | \n\nParameters\n----------\n" | |||
| 68856 | "ab : input rank-2 array('d') with bounds (ldab,n)\n" | |||
| 68857 | "\nOther Parameters\n----------------\n" | |||
| 68858 | "lower : input int, optional\n Default: 0\n" | |||
| 68859 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 68860 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 68861 | "\nReturns\n-------\n" | |||
| 68862 | "c : rank-2 array('d') with bounds (ldab,n) and ab storage\n" | |||
| 68863 | "info : int"; | |||
| 68864 | /* extern void F_FUNC(dpbtrf,DPBTRF)(char*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 68865 | static PyObject *f2py_rout__flapack_dpbtrf(const PyObject *capi_self, | |||
| 68866 | PyObject *capi_args, | |||
| 68867 | PyObject *capi_keywds, | |||
| 68868 | void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 68869 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 68870 | volatile int f2py_success = 1; | |||
| 68871 | /*decl*/ | |||
| 68872 | ||||
| 68873 | int lower = 0; | |||
| 68874 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 68875 | int n = 0; | |||
| 68876 | int kd = 0; | |||
| 68877 | double *ab = NULL((void*)0); | |||
| 68878 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 68879 | const int ab_Rank = 2; | |||
| 68880 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 68881 | int capi_ab_intent = 0; | |||
| 68882 | int capi_overwrite_ab = 0; | |||
| 68883 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 68884 | int ldab = 0; | |||
| 68885 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 68886 | int info = 0; | |||
| 68887 | static char *capi_kwlist[] = {"ab","lower","ldab","overwrite_ab",NULL((void*)0)}; | |||
| 68888 | ||||
| 68889 | /*routdebugenter*/ | |||
| 68890 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68891 | f2py_start_clock(); | |||
| 68892 | #endif | |||
| 68893 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 68894 | "O|OOi:_flapack.dpbtrf",\ | |||
| 68895 | capi_kwlist,&ab_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab)) | |||
| 68896 | return NULL((void*)0); | |||
| 68897 | /*frompyobj*/ | |||
| 68898 | /* Processing variable lower */ | |||
| 68899 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 68900 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpbtrf() 1st keyword (lower) can't be converted to int"); | |||
| 68901 | if (f2py_success) { | |||
| 68902 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpbtrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpbtrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 68903 | /* Processing variable ab */ | |||
| 68904 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 68905 | ; | |||
| 68906 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 68907 | capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 68908 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 68909 | if (!PyErr_Occurred()) | |||
| 68910 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dpbtrf to C/Fortran array" ); | |||
| 68911 | } else { | |||
| 68912 | ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 68913 | ||||
| 68914 | /* Processing variable info */ | |||
| 68915 | /* Processing variable ldab */ | |||
| 68916 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 68917 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dpbtrf() 2nd keyword (ldab) can't be converted to int"); | |||
| 68918 | if (f2py_success) { | |||
| 68919 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","dpbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 68920 | /* Processing variable n */ | |||
| 68921 | n = shape(ab,1)ab_Dims[1]; | |||
| 68922 | /* Processing variable kd */ | |||
| 68923 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 68924 | /*end of frompyobj*/ | |||
| 68925 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68926 | f2py_start_call_clock(); | |||
| 68927 | #endif | |||
| 68928 | /*callfortranroutine*/ | |||
| 68929 | (*f2py_func)((lower?"L":"U"),&n,&kd,ab,&ldab,&info); ; | |||
| 68930 | /*(*f2py_func)(&lower,&n,&kd,ab,&ldab,&info);*/ | |||
| 68931 | if (PyErr_Occurred()) | |||
| 68932 | f2py_success = 0; | |||
| 68933 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68934 | f2py_stop_call_clock(); | |||
| 68935 | #endif | |||
| 68936 | /*end of callfortranroutine*/ | |||
| 68937 | if (f2py_success) { | |||
| 68938 | /*pyobjfrom*/ | |||
| 68939 | /*end of pyobjfrom*/ | |||
| 68940 | CFUNCSMESS("Building return value.\n"); | |||
| 68941 | capi_buildvalue = Py_BuildValue("Ni",capi_ab_tmp,info); | |||
| 68942 | /*closepyobjfrom*/ | |||
| 68943 | /*end of closepyobjfrom*/ | |||
| 68944 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 68945 | /*cleanupfrompyobj*/ | |||
| 68946 | /* End of cleaning variable kd */ | |||
| 68947 | /* End of cleaning variable n */ | |||
| 68948 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 68949 | } /*if (f2py_success) of ldab*/ | |||
| 68950 | /* End of cleaning variable ldab */ | |||
| 68951 | /* End of cleaning variable info */ | |||
| 68952 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 68953 | /* End of cleaning variable ab */ | |||
| 68954 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 68955 | } /*if (f2py_success) of lower*/ | |||
| 68956 | /* End of cleaning variable lower */ | |||
| 68957 | /*end of cleanupfrompyobj*/ | |||
| 68958 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 68959 | /*routdebugfailure*/ | |||
| 68960 | } else { | |||
| 68961 | /*routdebugleave*/ | |||
| 68962 | } | |||
| 68963 | CFUNCSMESS("Freeing memory.\n"); | |||
| 68964 | /*freemem*/ | |||
| 68965 | #ifdef F2PY_REPORT_ATEXIT | |||
| 68966 | f2py_stop_clock(); | |||
| 68967 | #endif | |||
| 68968 | return capi_buildvalue; | |||
| 68969 | } | |||
| 68970 | /******************************* end of dpbtrf *******************************/ | |||
| 68971 | ||||
| 68972 | /*********************************** cpbtrf ***********************************/ | |||
| 68973 | static char doc_f2py_rout__flapack_cpbtrf[] = "\ | |||
| 68974 | c,info = cpbtrf(ab,[lower,ldab,overwrite_ab])\n\nWrapper for ``cpbtrf``.\ | |||
| 68975 | \n\nParameters\n----------\n" | |||
| 68976 | "ab : input rank-2 array('F') with bounds (ldab,n)\n" | |||
| 68977 | "\nOther Parameters\n----------------\n" | |||
| 68978 | "lower : input int, optional\n Default: 0\n" | |||
| 68979 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 68980 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 68981 | "\nReturns\n-------\n" | |||
| 68982 | "c : rank-2 array('F') with bounds (ldab,n) and ab storage\n" | |||
| 68983 | "info : int"; | |||
| 68984 | /* extern void F_FUNC(cpbtrf,CPBTRF)(char*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 68985 | static PyObject *f2py_rout__flapack_cpbtrf(const PyObject *capi_self, | |||
| 68986 | PyObject *capi_args, | |||
| 68987 | PyObject *capi_keywds, | |||
| 68988 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 68989 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 68990 | volatile int f2py_success = 1; | |||
| 68991 | /*decl*/ | |||
| 68992 | ||||
| 68993 | int lower = 0; | |||
| 68994 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 68995 | int n = 0; | |||
| 68996 | int kd = 0; | |||
| 68997 | complex_float *ab = NULL((void*)0); | |||
| 68998 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 68999 | const int ab_Rank = 2; | |||
| 69000 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 69001 | int capi_ab_intent = 0; | |||
| 69002 | int capi_overwrite_ab = 0; | |||
| 69003 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 69004 | int ldab = 0; | |||
| 69005 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 69006 | int info = 0; | |||
| 69007 | static char *capi_kwlist[] = {"ab","lower","ldab","overwrite_ab",NULL((void*)0)}; | |||
| 69008 | ||||
| 69009 | /*routdebugenter*/ | |||
| 69010 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69011 | f2py_start_clock(); | |||
| 69012 | #endif | |||
| 69013 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 69014 | "O|OOi:_flapack.cpbtrf",\ | |||
| 69015 | capi_kwlist,&ab_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab)) | |||
| 69016 | return NULL((void*)0); | |||
| 69017 | /*frompyobj*/ | |||
| 69018 | /* Processing variable lower */ | |||
| 69019 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 69020 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpbtrf() 1st keyword (lower) can't be converted to int"); | |||
| 69021 | if (f2py_success) { | |||
| 69022 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpbtrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpbtrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69023 | /* Processing variable ab */ | |||
| 69024 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 69025 | ; | |||
| 69026 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 69027 | capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 69028 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 69029 | if (!PyErr_Occurred()) | |||
| 69030 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.cpbtrf to C/Fortran array" ); | |||
| 69031 | } else { | |||
| 69032 | ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 69033 | ||||
| 69034 | /* Processing variable info */ | |||
| 69035 | /* Processing variable ldab */ | |||
| 69036 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 69037 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.cpbtrf() 2nd keyword (ldab) can't be converted to int"); | |||
| 69038 | if (f2py_success) { | |||
| 69039 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","cpbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69040 | /* Processing variable n */ | |||
| 69041 | n = shape(ab,1)ab_Dims[1]; | |||
| 69042 | /* Processing variable kd */ | |||
| 69043 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 69044 | /*end of frompyobj*/ | |||
| 69045 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69046 | f2py_start_call_clock(); | |||
| 69047 | #endif | |||
| 69048 | /*callfortranroutine*/ | |||
| 69049 | (*f2py_func)((lower?"L":"U"),&n,&kd,ab,&ldab,&info); ; | |||
| 69050 | /*(*f2py_func)(&lower,&n,&kd,ab,&ldab,&info);*/ | |||
| 69051 | if (PyErr_Occurred()) | |||
| 69052 | f2py_success = 0; | |||
| 69053 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69054 | f2py_stop_call_clock(); | |||
| 69055 | #endif | |||
| 69056 | /*end of callfortranroutine*/ | |||
| 69057 | if (f2py_success) { | |||
| 69058 | /*pyobjfrom*/ | |||
| 69059 | /*end of pyobjfrom*/ | |||
| 69060 | CFUNCSMESS("Building return value.\n"); | |||
| 69061 | capi_buildvalue = Py_BuildValue("Ni",capi_ab_tmp,info); | |||
| 69062 | /*closepyobjfrom*/ | |||
| 69063 | /*end of closepyobjfrom*/ | |||
| 69064 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 69065 | /*cleanupfrompyobj*/ | |||
| 69066 | /* End of cleaning variable kd */ | |||
| 69067 | /* End of cleaning variable n */ | |||
| 69068 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 69069 | } /*if (f2py_success) of ldab*/ | |||
| 69070 | /* End of cleaning variable ldab */ | |||
| 69071 | /* End of cleaning variable info */ | |||
| 69072 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 69073 | /* End of cleaning variable ab */ | |||
| 69074 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 69075 | } /*if (f2py_success) of lower*/ | |||
| 69076 | /* End of cleaning variable lower */ | |||
| 69077 | /*end of cleanupfrompyobj*/ | |||
| 69078 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 69079 | /*routdebugfailure*/ | |||
| 69080 | } else { | |||
| 69081 | /*routdebugleave*/ | |||
| 69082 | } | |||
| 69083 | CFUNCSMESS("Freeing memory.\n"); | |||
| 69084 | /*freemem*/ | |||
| 69085 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69086 | f2py_stop_clock(); | |||
| 69087 | #endif | |||
| 69088 | return capi_buildvalue; | |||
| 69089 | } | |||
| 69090 | /******************************* end of cpbtrf *******************************/ | |||
| 69091 | ||||
| 69092 | /*********************************** zpbtrf ***********************************/ | |||
| 69093 | static char doc_f2py_rout__flapack_zpbtrf[] = "\ | |||
| 69094 | c,info = zpbtrf(ab,[lower,ldab,overwrite_ab])\n\nWrapper for ``zpbtrf``.\ | |||
| 69095 | \n\nParameters\n----------\n" | |||
| 69096 | "ab : input rank-2 array('D') with bounds (ldab,n)\n" | |||
| 69097 | "\nOther Parameters\n----------------\n" | |||
| 69098 | "lower : input int, optional\n Default: 0\n" | |||
| 69099 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 69100 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 69101 | "\nReturns\n-------\n" | |||
| 69102 | "c : rank-2 array('D') with bounds (ldab,n) and ab storage\n" | |||
| 69103 | "info : int"; | |||
| 69104 | /* extern void F_FUNC(zpbtrf,ZPBTRF)(char*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 69105 | static PyObject *f2py_rout__flapack_zpbtrf(const PyObject *capi_self, | |||
| 69106 | PyObject *capi_args, | |||
| 69107 | PyObject *capi_keywds, | |||
| 69108 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 69109 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 69110 | volatile int f2py_success = 1; | |||
| 69111 | /*decl*/ | |||
| 69112 | ||||
| 69113 | int lower = 0; | |||
| 69114 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 69115 | int n = 0; | |||
| 69116 | int kd = 0; | |||
| 69117 | complex_double *ab = NULL((void*)0); | |||
| 69118 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 69119 | const int ab_Rank = 2; | |||
| 69120 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 69121 | int capi_ab_intent = 0; | |||
| 69122 | int capi_overwrite_ab = 0; | |||
| 69123 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 69124 | int ldab = 0; | |||
| 69125 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 69126 | int info = 0; | |||
| 69127 | static char *capi_kwlist[] = {"ab","lower","ldab","overwrite_ab",NULL((void*)0)}; | |||
| 69128 | ||||
| 69129 | /*routdebugenter*/ | |||
| 69130 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69131 | f2py_start_clock(); | |||
| 69132 | #endif | |||
| 69133 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 69134 | "O|OOi:_flapack.zpbtrf",\ | |||
| 69135 | capi_kwlist,&ab_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab)) | |||
| 69136 | return NULL((void*)0); | |||
| 69137 | /*frompyobj*/ | |||
| 69138 | /* Processing variable lower */ | |||
| 69139 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 69140 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpbtrf() 1st keyword (lower) can't be converted to int"); | |||
| 69141 | if (f2py_success) { | |||
| 69142 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpbtrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpbtrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69143 | /* Processing variable ab */ | |||
| 69144 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 69145 | ; | |||
| 69146 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 69147 | capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 69148 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 69149 | if (!PyErr_Occurred()) | |||
| 69150 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zpbtrf to C/Fortran array" ); | |||
| 69151 | } else { | |||
| 69152 | ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 69153 | ||||
| 69154 | /* Processing variable info */ | |||
| 69155 | /* Processing variable ldab */ | |||
| 69156 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 69157 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zpbtrf() 2nd keyword (ldab) can't be converted to int"); | |||
| 69158 | if (f2py_success) { | |||
| 69159 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","zpbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69160 | /* Processing variable n */ | |||
| 69161 | n = shape(ab,1)ab_Dims[1]; | |||
| 69162 | /* Processing variable kd */ | |||
| 69163 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 69164 | /*end of frompyobj*/ | |||
| 69165 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69166 | f2py_start_call_clock(); | |||
| 69167 | #endif | |||
| 69168 | /*callfortranroutine*/ | |||
| 69169 | (*f2py_func)((lower?"L":"U"),&n,&kd,ab,&ldab,&info); ; | |||
| 69170 | /*(*f2py_func)(&lower,&n,&kd,ab,&ldab,&info);*/ | |||
| 69171 | if (PyErr_Occurred()) | |||
| 69172 | f2py_success = 0; | |||
| 69173 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69174 | f2py_stop_call_clock(); | |||
| 69175 | #endif | |||
| 69176 | /*end of callfortranroutine*/ | |||
| 69177 | if (f2py_success) { | |||
| 69178 | /*pyobjfrom*/ | |||
| 69179 | /*end of pyobjfrom*/ | |||
| 69180 | CFUNCSMESS("Building return value.\n"); | |||
| 69181 | capi_buildvalue = Py_BuildValue("Ni",capi_ab_tmp,info); | |||
| 69182 | /*closepyobjfrom*/ | |||
| 69183 | /*end of closepyobjfrom*/ | |||
| 69184 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 69185 | /*cleanupfrompyobj*/ | |||
| 69186 | /* End of cleaning variable kd */ | |||
| 69187 | /* End of cleaning variable n */ | |||
| 69188 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 69189 | } /*if (f2py_success) of ldab*/ | |||
| 69190 | /* End of cleaning variable ldab */ | |||
| 69191 | /* End of cleaning variable info */ | |||
| 69192 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 69193 | /* End of cleaning variable ab */ | |||
| 69194 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 69195 | } /*if (f2py_success) of lower*/ | |||
| 69196 | /* End of cleaning variable lower */ | |||
| 69197 | /*end of cleanupfrompyobj*/ | |||
| 69198 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 69199 | /*routdebugfailure*/ | |||
| 69200 | } else { | |||
| 69201 | /*routdebugleave*/ | |||
| 69202 | } | |||
| 69203 | CFUNCSMESS("Freeing memory.\n"); | |||
| 69204 | /*freemem*/ | |||
| 69205 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69206 | f2py_stop_clock(); | |||
| 69207 | #endif | |||
| 69208 | return capi_buildvalue; | |||
| 69209 | } | |||
| 69210 | /******************************* end of zpbtrf *******************************/ | |||
| 69211 | ||||
| 69212 | /*********************************** spbtrs ***********************************/ | |||
| 69213 | static char doc_f2py_rout__flapack_spbtrs[] = "\ | |||
| 69214 | x,info = spbtrs(ab,b,[lower,ldab,overwrite_b])\n\nWrapper for ``spbtrs``.\ | |||
| 69215 | \n\nParameters\n----------\n" | |||
| 69216 | "ab : input rank-2 array('f') with bounds (ldab,n)\n" | |||
| 69217 | "b : input rank-2 array('f') with bounds (ldb,nrhs)\n" | |||
| 69218 | "\nOther Parameters\n----------------\n" | |||
| 69219 | "lower : input int, optional\n Default: 0\n" | |||
| 69220 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 69221 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 69222 | "\nReturns\n-------\n" | |||
| 69223 | "x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n" | |||
| 69224 | "info : int"; | |||
| 69225 | /* extern void F_FUNC(spbtrs,SPBTRS)(char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 69226 | static PyObject *f2py_rout__flapack_spbtrs(const PyObject *capi_self, | |||
| 69227 | PyObject *capi_args, | |||
| 69228 | PyObject *capi_keywds, | |||
| 69229 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 69230 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 69231 | volatile int f2py_success = 1; | |||
| 69232 | /*decl*/ | |||
| 69233 | ||||
| 69234 | int lower = 0; | |||
| 69235 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 69236 | int n = 0; | |||
| 69237 | int kd = 0; | |||
| 69238 | int nrhs = 0; | |||
| 69239 | float *ab = NULL((void*)0); | |||
| 69240 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 69241 | const int ab_Rank = 2; | |||
| 69242 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 69243 | int capi_ab_intent = 0; | |||
| 69244 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 69245 | int ldab = 0; | |||
| 69246 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 69247 | float *b = NULL((void*)0); | |||
| 69248 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 69249 | const int b_Rank = 2; | |||
| 69250 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 69251 | int capi_b_intent = 0; | |||
| 69252 | int capi_overwrite_b = 0; | |||
| 69253 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 69254 | int ldb = 0; | |||
| 69255 | int info = 0; | |||
| 69256 | static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_b",NULL((void*)0)}; | |||
| 69257 | ||||
| 69258 | /*routdebugenter*/ | |||
| 69259 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69260 | f2py_start_clock(); | |||
| 69261 | #endif | |||
| 69262 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 69263 | "OO|OOi:_flapack.spbtrs",\ | |||
| 69264 | capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_b)) | |||
| 69265 | return NULL((void*)0); | |||
| 69266 | /*frompyobj*/ | |||
| 69267 | /* Processing variable lower */ | |||
| 69268 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 69269 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spbtrs() 1st keyword (lower) can't be converted to int"); | |||
| 69270 | if (f2py_success) { | |||
| 69271 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spbtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spbtrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69272 | /* Processing variable b */ | |||
| 69273 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 69274 | ; | |||
| 69275 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 69276 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 69277 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 69278 | if (!PyErr_Occurred()) | |||
| 69279 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.spbtrs to C/Fortran array" ); | |||
| 69280 | } else { | |||
| 69281 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 69282 | ||||
| 69283 | /* Processing variable ab */ | |||
| 69284 | ; | |||
| 69285 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 69286 | capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 69287 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 69288 | if (!PyErr_Occurred()) | |||
| 69289 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.spbtrs to C/Fortran array" ); | |||
| 69290 | } else { | |||
| 69291 | ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 69292 | ||||
| 69293 | /* Processing variable info */ | |||
| 69294 | /* Processing variable ldab */ | |||
| 69295 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 69296 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.spbtrs() 2nd keyword (ldab) can't be converted to int"); | |||
| 69297 | if (f2py_success) { | |||
| 69298 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","spbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69299 | /* Processing variable n */ | |||
| 69300 | n = shape(ab,1)ab_Dims[1]; | |||
| 69301 | /* Processing variable kd */ | |||
| 69302 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 69303 | /* Processing variable ldb */ | |||
| 69304 | ldb = shape(b,0)b_Dims[0]; | |||
| 69305 | /* Processing variable nrhs */ | |||
| 69306 | nrhs = shape(b,1)b_Dims[1]; | |||
| 69307 | /*end of frompyobj*/ | |||
| 69308 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69309 | f2py_start_call_clock(); | |||
| 69310 | #endif | |||
| 69311 | /*callfortranroutine*/ | |||
| 69312 | (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ; | |||
| 69313 | /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/ | |||
| 69314 | if (PyErr_Occurred()) | |||
| 69315 | f2py_success = 0; | |||
| 69316 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69317 | f2py_stop_call_clock(); | |||
| 69318 | #endif | |||
| 69319 | /*end of callfortranroutine*/ | |||
| 69320 | if (f2py_success) { | |||
| 69321 | /*pyobjfrom*/ | |||
| 69322 | /*end of pyobjfrom*/ | |||
| 69323 | CFUNCSMESS("Building return value.\n"); | |||
| 69324 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 69325 | /*closepyobjfrom*/ | |||
| 69326 | /*end of closepyobjfrom*/ | |||
| 69327 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 69328 | /*cleanupfrompyobj*/ | |||
| 69329 | /* End of cleaning variable nrhs */ | |||
| 69330 | /* End of cleaning variable ldb */ | |||
| 69331 | /* End of cleaning variable kd */ | |||
| 69332 | /* End of cleaning variable n */ | |||
| 69333 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 69334 | } /*if (f2py_success) of ldab*/ | |||
| 69335 | /* End of cleaning variable ldab */ | |||
| 69336 | /* End of cleaning variable info */ | |||
| 69337 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 69338 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 69339 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 69340 | /* End of cleaning variable ab */ | |||
| 69341 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 69342 | /* End of cleaning variable b */ | |||
| 69343 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 69344 | } /*if (f2py_success) of lower*/ | |||
| 69345 | /* End of cleaning variable lower */ | |||
| 69346 | /*end of cleanupfrompyobj*/ | |||
| 69347 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 69348 | /*routdebugfailure*/ | |||
| 69349 | } else { | |||
| 69350 | /*routdebugleave*/ | |||
| 69351 | } | |||
| 69352 | CFUNCSMESS("Freeing memory.\n"); | |||
| 69353 | /*freemem*/ | |||
| 69354 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69355 | f2py_stop_clock(); | |||
| 69356 | #endif | |||
| 69357 | return capi_buildvalue; | |||
| 69358 | } | |||
| 69359 | /******************************* end of spbtrs *******************************/ | |||
| 69360 | ||||
| 69361 | /*********************************** dpbtrs ***********************************/ | |||
| 69362 | static char doc_f2py_rout__flapack_dpbtrs[] = "\ | |||
| 69363 | x,info = dpbtrs(ab,b,[lower,ldab,overwrite_b])\n\nWrapper for ``dpbtrs``.\ | |||
| 69364 | \n\nParameters\n----------\n" | |||
| 69365 | "ab : input rank-2 array('d') with bounds (ldab,n)\n" | |||
| 69366 | "b : input rank-2 array('d') with bounds (ldb,nrhs)\n" | |||
| 69367 | "\nOther Parameters\n----------------\n" | |||
| 69368 | "lower : input int, optional\n Default: 0\n" | |||
| 69369 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 69370 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 69371 | "\nReturns\n-------\n" | |||
| 69372 | "x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n" | |||
| 69373 | "info : int"; | |||
| 69374 | /* extern void F_FUNC(dpbtrs,DPBTRS)(char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 69375 | static PyObject *f2py_rout__flapack_dpbtrs(const PyObject *capi_self, | |||
| 69376 | PyObject *capi_args, | |||
| 69377 | PyObject *capi_keywds, | |||
| 69378 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 69379 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 69380 | volatile int f2py_success = 1; | |||
| 69381 | /*decl*/ | |||
| 69382 | ||||
| 69383 | int lower = 0; | |||
| 69384 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 69385 | int n = 0; | |||
| 69386 | int kd = 0; | |||
| 69387 | int nrhs = 0; | |||
| 69388 | double *ab = NULL((void*)0); | |||
| 69389 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 69390 | const int ab_Rank = 2; | |||
| 69391 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 69392 | int capi_ab_intent = 0; | |||
| 69393 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 69394 | int ldab = 0; | |||
| 69395 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 69396 | double *b = NULL((void*)0); | |||
| 69397 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 69398 | const int b_Rank = 2; | |||
| 69399 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 69400 | int capi_b_intent = 0; | |||
| 69401 | int capi_overwrite_b = 0; | |||
| 69402 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 69403 | int ldb = 0; | |||
| 69404 | int info = 0; | |||
| 69405 | static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_b",NULL((void*)0)}; | |||
| 69406 | ||||
| 69407 | /*routdebugenter*/ | |||
| 69408 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69409 | f2py_start_clock(); | |||
| 69410 | #endif | |||
| 69411 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 69412 | "OO|OOi:_flapack.dpbtrs",\ | |||
| 69413 | capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_b)) | |||
| 69414 | return NULL((void*)0); | |||
| 69415 | /*frompyobj*/ | |||
| 69416 | /* Processing variable lower */ | |||
| 69417 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 69418 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpbtrs() 1st keyword (lower) can't be converted to int"); | |||
| 69419 | if (f2py_success) { | |||
| 69420 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpbtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpbtrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69421 | /* Processing variable b */ | |||
| 69422 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 69423 | ; | |||
| 69424 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 69425 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 69426 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 69427 | if (!PyErr_Occurred()) | |||
| 69428 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dpbtrs to C/Fortran array" ); | |||
| 69429 | } else { | |||
| 69430 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 69431 | ||||
| 69432 | /* Processing variable ab */ | |||
| 69433 | ; | |||
| 69434 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 69435 | capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 69436 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 69437 | if (!PyErr_Occurred()) | |||
| 69438 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dpbtrs to C/Fortran array" ); | |||
| 69439 | } else { | |||
| 69440 | ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 69441 | ||||
| 69442 | /* Processing variable info */ | |||
| 69443 | /* Processing variable ldab */ | |||
| 69444 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 69445 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dpbtrs() 2nd keyword (ldab) can't be converted to int"); | |||
| 69446 | if (f2py_success) { | |||
| 69447 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","dpbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69448 | /* Processing variable n */ | |||
| 69449 | n = shape(ab,1)ab_Dims[1]; | |||
| 69450 | /* Processing variable kd */ | |||
| 69451 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 69452 | /* Processing variable ldb */ | |||
| 69453 | ldb = shape(b,0)b_Dims[0]; | |||
| 69454 | /* Processing variable nrhs */ | |||
| 69455 | nrhs = shape(b,1)b_Dims[1]; | |||
| 69456 | /*end of frompyobj*/ | |||
| 69457 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69458 | f2py_start_call_clock(); | |||
| 69459 | #endif | |||
| 69460 | /*callfortranroutine*/ | |||
| 69461 | (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ; | |||
| 69462 | /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/ | |||
| 69463 | if (PyErr_Occurred()) | |||
| 69464 | f2py_success = 0; | |||
| 69465 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69466 | f2py_stop_call_clock(); | |||
| 69467 | #endif | |||
| 69468 | /*end of callfortranroutine*/ | |||
| 69469 | if (f2py_success) { | |||
| 69470 | /*pyobjfrom*/ | |||
| 69471 | /*end of pyobjfrom*/ | |||
| 69472 | CFUNCSMESS("Building return value.\n"); | |||
| 69473 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 69474 | /*closepyobjfrom*/ | |||
| 69475 | /*end of closepyobjfrom*/ | |||
| 69476 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 69477 | /*cleanupfrompyobj*/ | |||
| 69478 | /* End of cleaning variable nrhs */ | |||
| 69479 | /* End of cleaning variable ldb */ | |||
| 69480 | /* End of cleaning variable kd */ | |||
| 69481 | /* End of cleaning variable n */ | |||
| 69482 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 69483 | } /*if (f2py_success) of ldab*/ | |||
| 69484 | /* End of cleaning variable ldab */ | |||
| 69485 | /* End of cleaning variable info */ | |||
| 69486 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 69487 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 69488 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 69489 | /* End of cleaning variable ab */ | |||
| 69490 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 69491 | /* End of cleaning variable b */ | |||
| 69492 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 69493 | } /*if (f2py_success) of lower*/ | |||
| 69494 | /* End of cleaning variable lower */ | |||
| 69495 | /*end of cleanupfrompyobj*/ | |||
| 69496 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 69497 | /*routdebugfailure*/ | |||
| 69498 | } else { | |||
| 69499 | /*routdebugleave*/ | |||
| 69500 | } | |||
| 69501 | CFUNCSMESS("Freeing memory.\n"); | |||
| 69502 | /*freemem*/ | |||
| 69503 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69504 | f2py_stop_clock(); | |||
| 69505 | #endif | |||
| 69506 | return capi_buildvalue; | |||
| 69507 | } | |||
| 69508 | /******************************* end of dpbtrs *******************************/ | |||
| 69509 | ||||
| 69510 | /*********************************** cpbtrs ***********************************/ | |||
| 69511 | static char doc_f2py_rout__flapack_cpbtrs[] = "\ | |||
| 69512 | x,info = cpbtrs(ab,b,[lower,ldab,overwrite_b])\n\nWrapper for ``cpbtrs``.\ | |||
| 69513 | \n\nParameters\n----------\n" | |||
| 69514 | "ab : input rank-2 array('F') with bounds (ldab,n)\n" | |||
| 69515 | "b : input rank-2 array('F') with bounds (ldb,nrhs)\n" | |||
| 69516 | "\nOther Parameters\n----------------\n" | |||
| 69517 | "lower : input int, optional\n Default: 0\n" | |||
| 69518 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 69519 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 69520 | "\nReturns\n-------\n" | |||
| 69521 | "x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n" | |||
| 69522 | "info : int"; | |||
| 69523 | /* extern void F_FUNC(cpbtrs,CPBTRS)(char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 69524 | static PyObject *f2py_rout__flapack_cpbtrs(const PyObject *capi_self, | |||
| 69525 | PyObject *capi_args, | |||
| 69526 | PyObject *capi_keywds, | |||
| 69527 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 69528 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 69529 | volatile int f2py_success = 1; | |||
| 69530 | /*decl*/ | |||
| 69531 | ||||
| 69532 | int lower = 0; | |||
| 69533 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 69534 | int n = 0; | |||
| 69535 | int kd = 0; | |||
| 69536 | int nrhs = 0; | |||
| 69537 | complex_float *ab = NULL((void*)0); | |||
| 69538 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 69539 | const int ab_Rank = 2; | |||
| 69540 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 69541 | int capi_ab_intent = 0; | |||
| 69542 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 69543 | int ldab = 0; | |||
| 69544 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 69545 | complex_float *b = NULL((void*)0); | |||
| 69546 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 69547 | const int b_Rank = 2; | |||
| 69548 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 69549 | int capi_b_intent = 0; | |||
| 69550 | int capi_overwrite_b = 0; | |||
| 69551 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 69552 | int ldb = 0; | |||
| 69553 | int info = 0; | |||
| 69554 | static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_b",NULL((void*)0)}; | |||
| 69555 | ||||
| 69556 | /*routdebugenter*/ | |||
| 69557 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69558 | f2py_start_clock(); | |||
| 69559 | #endif | |||
| 69560 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 69561 | "OO|OOi:_flapack.cpbtrs",\ | |||
| 69562 | capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_b)) | |||
| 69563 | return NULL((void*)0); | |||
| 69564 | /*frompyobj*/ | |||
| 69565 | /* Processing variable lower */ | |||
| 69566 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 69567 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpbtrs() 1st keyword (lower) can't be converted to int"); | |||
| 69568 | if (f2py_success) { | |||
| 69569 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpbtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpbtrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69570 | /* Processing variable b */ | |||
| 69571 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 69572 | ; | |||
| 69573 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 69574 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 69575 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 69576 | if (!PyErr_Occurred()) | |||
| 69577 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cpbtrs to C/Fortran array" ); | |||
| 69578 | } else { | |||
| 69579 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 69580 | ||||
| 69581 | /* Processing variable ab */ | |||
| 69582 | ; | |||
| 69583 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 69584 | capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 69585 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 69586 | if (!PyErr_Occurred()) | |||
| 69587 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.cpbtrs to C/Fortran array" ); | |||
| 69588 | } else { | |||
| 69589 | ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 69590 | ||||
| 69591 | /* Processing variable info */ | |||
| 69592 | /* Processing variable ldab */ | |||
| 69593 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 69594 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.cpbtrs() 2nd keyword (ldab) can't be converted to int"); | |||
| 69595 | if (f2py_success) { | |||
| 69596 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","cpbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69597 | /* Processing variable n */ | |||
| 69598 | n = shape(ab,1)ab_Dims[1]; | |||
| 69599 | /* Processing variable kd */ | |||
| 69600 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 69601 | /* Processing variable ldb */ | |||
| 69602 | ldb = shape(b,0)b_Dims[0]; | |||
| 69603 | /* Processing variable nrhs */ | |||
| 69604 | nrhs = shape(b,1)b_Dims[1]; | |||
| 69605 | /*end of frompyobj*/ | |||
| 69606 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69607 | f2py_start_call_clock(); | |||
| 69608 | #endif | |||
| 69609 | /*callfortranroutine*/ | |||
| 69610 | (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ; | |||
| 69611 | /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/ | |||
| 69612 | if (PyErr_Occurred()) | |||
| 69613 | f2py_success = 0; | |||
| 69614 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69615 | f2py_stop_call_clock(); | |||
| 69616 | #endif | |||
| 69617 | /*end of callfortranroutine*/ | |||
| 69618 | if (f2py_success) { | |||
| 69619 | /*pyobjfrom*/ | |||
| 69620 | /*end of pyobjfrom*/ | |||
| 69621 | CFUNCSMESS("Building return value.\n"); | |||
| 69622 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 69623 | /*closepyobjfrom*/ | |||
| 69624 | /*end of closepyobjfrom*/ | |||
| 69625 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 69626 | /*cleanupfrompyobj*/ | |||
| 69627 | /* End of cleaning variable nrhs */ | |||
| 69628 | /* End of cleaning variable ldb */ | |||
| 69629 | /* End of cleaning variable kd */ | |||
| 69630 | /* End of cleaning variable n */ | |||
| 69631 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 69632 | } /*if (f2py_success) of ldab*/ | |||
| 69633 | /* End of cleaning variable ldab */ | |||
| 69634 | /* End of cleaning variable info */ | |||
| 69635 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 69636 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 69637 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 69638 | /* End of cleaning variable ab */ | |||
| 69639 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 69640 | /* End of cleaning variable b */ | |||
| 69641 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 69642 | } /*if (f2py_success) of lower*/ | |||
| 69643 | /* End of cleaning variable lower */ | |||
| 69644 | /*end of cleanupfrompyobj*/ | |||
| 69645 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 69646 | /*routdebugfailure*/ | |||
| 69647 | } else { | |||
| 69648 | /*routdebugleave*/ | |||
| 69649 | } | |||
| 69650 | CFUNCSMESS("Freeing memory.\n"); | |||
| 69651 | /*freemem*/ | |||
| 69652 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69653 | f2py_stop_clock(); | |||
| 69654 | #endif | |||
| 69655 | return capi_buildvalue; | |||
| 69656 | } | |||
| 69657 | /******************************* end of cpbtrs *******************************/ | |||
| 69658 | ||||
| 69659 | /*********************************** zpbtrs ***********************************/ | |||
| 69660 | static char doc_f2py_rout__flapack_zpbtrs[] = "\ | |||
| 69661 | x,info = zpbtrs(ab,b,[lower,ldab,overwrite_b])\n\nWrapper for ``zpbtrs``.\ | |||
| 69662 | \n\nParameters\n----------\n" | |||
| 69663 | "ab : input rank-2 array('D') with bounds (ldab,n)\n" | |||
| 69664 | "b : input rank-2 array('D') with bounds (ldb,nrhs)\n" | |||
| 69665 | "\nOther Parameters\n----------------\n" | |||
| 69666 | "lower : input int, optional\n Default: 0\n" | |||
| 69667 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 69668 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 69669 | "\nReturns\n-------\n" | |||
| 69670 | "x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n" | |||
| 69671 | "info : int"; | |||
| 69672 | /* extern void F_FUNC(zpbtrs,ZPBTRS)(char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 69673 | static PyObject *f2py_rout__flapack_zpbtrs(const PyObject *capi_self, | |||
| 69674 | PyObject *capi_args, | |||
| 69675 | PyObject *capi_keywds, | |||
| 69676 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 69677 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 69678 | volatile int f2py_success = 1; | |||
| 69679 | /*decl*/ | |||
| 69680 | ||||
| 69681 | int lower = 0; | |||
| 69682 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 69683 | int n = 0; | |||
| 69684 | int kd = 0; | |||
| 69685 | int nrhs = 0; | |||
| 69686 | complex_double *ab = NULL((void*)0); | |||
| 69687 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 69688 | const int ab_Rank = 2; | |||
| 69689 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 69690 | int capi_ab_intent = 0; | |||
| 69691 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 69692 | int ldab = 0; | |||
| 69693 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 69694 | complex_double *b = NULL((void*)0); | |||
| 69695 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 69696 | const int b_Rank = 2; | |||
| 69697 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 69698 | int capi_b_intent = 0; | |||
| 69699 | int capi_overwrite_b = 0; | |||
| 69700 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 69701 | int ldb = 0; | |||
| 69702 | int info = 0; | |||
| 69703 | static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_b",NULL((void*)0)}; | |||
| 69704 | ||||
| 69705 | /*routdebugenter*/ | |||
| 69706 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69707 | f2py_start_clock(); | |||
| 69708 | #endif | |||
| 69709 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 69710 | "OO|OOi:_flapack.zpbtrs",\ | |||
| 69711 | capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_b)) | |||
| 69712 | return NULL((void*)0); | |||
| 69713 | /*frompyobj*/ | |||
| 69714 | /* Processing variable lower */ | |||
| 69715 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 69716 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpbtrs() 1st keyword (lower) can't be converted to int"); | |||
| 69717 | if (f2py_success) { | |||
| 69718 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpbtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpbtrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69719 | /* Processing variable b */ | |||
| 69720 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 69721 | ; | |||
| 69722 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 69723 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 69724 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 69725 | if (!PyErr_Occurred()) | |||
| 69726 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zpbtrs to C/Fortran array" ); | |||
| 69727 | } else { | |||
| 69728 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 69729 | ||||
| 69730 | /* Processing variable ab */ | |||
| 69731 | ; | |||
| 69732 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 69733 | capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 69734 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 69735 | if (!PyErr_Occurred()) | |||
| 69736 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zpbtrs to C/Fortran array" ); | |||
| 69737 | } else { | |||
| 69738 | ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 69739 | ||||
| 69740 | /* Processing variable info */ | |||
| 69741 | /* Processing variable ldab */ | |||
| 69742 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 69743 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zpbtrs() 2nd keyword (ldab) can't be converted to int"); | |||
| 69744 | if (f2py_success) { | |||
| 69745 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","zpbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69746 | /* Processing variable n */ | |||
| 69747 | n = shape(ab,1)ab_Dims[1]; | |||
| 69748 | /* Processing variable kd */ | |||
| 69749 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 69750 | /* Processing variable ldb */ | |||
| 69751 | ldb = shape(b,0)b_Dims[0]; | |||
| 69752 | /* Processing variable nrhs */ | |||
| 69753 | nrhs = shape(b,1)b_Dims[1]; | |||
| 69754 | /*end of frompyobj*/ | |||
| 69755 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69756 | f2py_start_call_clock(); | |||
| 69757 | #endif | |||
| 69758 | /*callfortranroutine*/ | |||
| 69759 | (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ; | |||
| 69760 | /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/ | |||
| 69761 | if (PyErr_Occurred()) | |||
| 69762 | f2py_success = 0; | |||
| 69763 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69764 | f2py_stop_call_clock(); | |||
| 69765 | #endif | |||
| 69766 | /*end of callfortranroutine*/ | |||
| 69767 | if (f2py_success) { | |||
| 69768 | /*pyobjfrom*/ | |||
| 69769 | /*end of pyobjfrom*/ | |||
| 69770 | CFUNCSMESS("Building return value.\n"); | |||
| 69771 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 69772 | /*closepyobjfrom*/ | |||
| 69773 | /*end of closepyobjfrom*/ | |||
| 69774 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 69775 | /*cleanupfrompyobj*/ | |||
| 69776 | /* End of cleaning variable nrhs */ | |||
| 69777 | /* End of cleaning variable ldb */ | |||
| 69778 | /* End of cleaning variable kd */ | |||
| 69779 | /* End of cleaning variable n */ | |||
| 69780 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 69781 | } /*if (f2py_success) of ldab*/ | |||
| 69782 | /* End of cleaning variable ldab */ | |||
| 69783 | /* End of cleaning variable info */ | |||
| 69784 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 69785 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 69786 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 69787 | /* End of cleaning variable ab */ | |||
| 69788 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 69789 | /* End of cleaning variable b */ | |||
| 69790 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 69791 | } /*if (f2py_success) of lower*/ | |||
| 69792 | /* End of cleaning variable lower */ | |||
| 69793 | /*end of cleanupfrompyobj*/ | |||
| 69794 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 69795 | /*routdebugfailure*/ | |||
| 69796 | } else { | |||
| 69797 | /*routdebugleave*/ | |||
| 69798 | } | |||
| 69799 | CFUNCSMESS("Freeing memory.\n"); | |||
| 69800 | /*freemem*/ | |||
| 69801 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69802 | f2py_stop_clock(); | |||
| 69803 | #endif | |||
| 69804 | return capi_buildvalue; | |||
| 69805 | } | |||
| 69806 | /******************************* end of zpbtrs *******************************/ | |||
| 69807 | ||||
| 69808 | /*********************************** strtrs ***********************************/ | |||
| 69809 | static char doc_f2py_rout__flapack_strtrs[] = "\ | |||
| 69810 | x,info = strtrs(a,b,[lower,trans,unitdiag,lda,overwrite_b])\n\nWrapper for ``strtrs``.\ | |||
| 69811 | \n\nParameters\n----------\n" | |||
| 69812 | "a : input rank-2 array('f') with bounds (lda,n)\n" | |||
| 69813 | "b : input rank-2 array('f') with bounds (ldb,nrhs)\n" | |||
| 69814 | "\nOther Parameters\n----------------\n" | |||
| 69815 | "lower : input int, optional\n Default: 0\n" | |||
| 69816 | "trans : input int, optional\n Default: 0\n" | |||
| 69817 | "unitdiag : input int, optional\n Default: 0\n" | |||
| 69818 | "lda : input int, optional\n Default: shape(a,0)\n" | |||
| 69819 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 69820 | "\nReturns\n-------\n" | |||
| 69821 | "x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n" | |||
| 69822 | "info : int"; | |||
| 69823 | /* extern void F_FUNC(strtrs,STRTRS)(char*,char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 69824 | static PyObject *f2py_rout__flapack_strtrs(const PyObject *capi_self, | |||
| 69825 | PyObject *capi_args, | |||
| 69826 | PyObject *capi_keywds, | |||
| 69827 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 69828 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 69829 | volatile int f2py_success = 1; | |||
| 69830 | /*decl*/ | |||
| 69831 | ||||
| 69832 | int lower = 0; | |||
| 69833 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 69834 | int trans = 0; | |||
| 69835 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 69836 | int unitdiag = 0; | |||
| 69837 | PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct); | |||
| 69838 | int n = 0; | |||
| 69839 | int nrhs = 0; | |||
| 69840 | float *a = NULL((void*)0); | |||
| 69841 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 69842 | const int a_Rank = 2; | |||
| 69843 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 69844 | int capi_a_intent = 0; | |||
| 69845 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 69846 | int lda = 0; | |||
| 69847 | PyObject *lda_capi = Py_None(&_Py_NoneStruct); | |||
| 69848 | float *b = NULL((void*)0); | |||
| 69849 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 69850 | const int b_Rank = 2; | |||
| 69851 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 69852 | int capi_b_intent = 0; | |||
| 69853 | int capi_overwrite_b = 0; | |||
| 69854 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 69855 | int ldb = 0; | |||
| 69856 | int info = 0; | |||
| 69857 | static char *capi_kwlist[] = {"a","b","lower","trans","unitdiag","lda","overwrite_b",NULL((void*)0)}; | |||
| 69858 | ||||
| 69859 | /*routdebugenter*/ | |||
| 69860 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69861 | f2py_start_clock(); | |||
| 69862 | #endif | |||
| 69863 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 69864 | "OO|OOOOi:_flapack.strtrs",\ | |||
| 69865 | capi_kwlist,&a_capi,&b_capi,&lower_capi,&trans_capi,&unitdiag_capi,&lda_capi,&capi_overwrite_b)) | |||
| 69866 | return NULL((void*)0); | |||
| 69867 | /*frompyobj*/ | |||
| 69868 | /* Processing variable lower */ | |||
| 69869 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 69870 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.strtrs() 1st keyword (lower) can't be converted to int"); | |||
| 69871 | if (f2py_success) { | |||
| 69872 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","strtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""strtrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69873 | /* Processing variable trans */ | |||
| 69874 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 69875 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.strtrs() 2nd keyword (trans) can't be converted to int"); | |||
| 69876 | if (f2py_success) { | |||
| 69877 | CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","2nd keyword trans","strtrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[ 256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""strtrs:trans=%d", "(""trans>=0 && trans <=2" ") failed for ""2nd keyword trans", trans); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 69878 | /* Processing variable unitdiag */ | |||
| 69879 | if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else | |||
| 69880 | f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.strtrs() 3rd keyword (unitdiag) can't be converted to int"); | |||
| 69881 | if (f2py_success) { | |||
| 69882 | CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","3rd keyword unitdiag","strtrs:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""strtrs:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for " "3rd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 69883 | /* Processing variable b */ | |||
| 69884 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 69885 | ; | |||
| 69886 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 69887 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 69888 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 69889 | if (!PyErr_Occurred()) | |||
| 69890 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.strtrs to C/Fortran array" ); | |||
| 69891 | } else { | |||
| 69892 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 69893 | ||||
| 69894 | /* Processing variable a */ | |||
| 69895 | ; | |||
| 69896 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 69897 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 69898 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 69899 | if (!PyErr_Occurred()) | |||
| 69900 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.strtrs to C/Fortran array" ); | |||
| 69901 | } else { | |||
| 69902 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 69903 | ||||
| 69904 | /* Processing variable info */ | |||
| 69905 | /* Processing variable lda */ | |||
| 69906 | if (lda_capi == Py_None(&_Py_NoneStruct)) lda = shape(a,0)a_Dims[0]; else | |||
| 69907 | f2py_success = int_from_pyobj(&lda,lda_capi,"_flapack.strtrs() 4th keyword (lda) can't be converted to int"); | |||
| 69908 | if (f2py_success) { | |||
| 69909 | CHECKSCALAR(shape(a,0)==lda,"shape(a,0)==lda","4th keyword lda","strtrs:lda=%d",lda)if (!(a_Dims[0]==lda)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""strtrs:lda=%d", "(""shape(a,0)==lda"") failed for " "4th keyword lda", lda); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 69910 | /* Processing variable n */ | |||
| 69911 | n = shape(a,1)a_Dims[1]; | |||
| 69912 | /* Processing variable ldb */ | |||
| 69913 | ldb = shape(b,0)b_Dims[0]; | |||
| 69914 | /* Processing variable nrhs */ | |||
| 69915 | nrhs = shape(b,1)b_Dims[1]; | |||
| 69916 | /*end of frompyobj*/ | |||
| 69917 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69918 | f2py_start_call_clock(); | |||
| 69919 | #endif | |||
| 69920 | /*callfortranroutine*/ | |||
| 69921 | (*f2py_func)((lower?"L":"U"),(trans?(trans==2?"C":"T"):"N"),(unitdiag?"U":"N"),&n,&nrhs,a,&lda,b,&ldb,&info); ; | |||
| 69922 | /*(*f2py_func)(&lower,&trans,&unitdiag,&n,&nrhs,a,&lda,b,&ldb,&info);*/ | |||
| 69923 | if (PyErr_Occurred()) | |||
| 69924 | f2py_success = 0; | |||
| 69925 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69926 | f2py_stop_call_clock(); | |||
| 69927 | #endif | |||
| 69928 | /*end of callfortranroutine*/ | |||
| 69929 | if (f2py_success) { | |||
| 69930 | /*pyobjfrom*/ | |||
| 69931 | /*end of pyobjfrom*/ | |||
| 69932 | CFUNCSMESS("Building return value.\n"); | |||
| 69933 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 69934 | /*closepyobjfrom*/ | |||
| 69935 | /*end of closepyobjfrom*/ | |||
| 69936 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 69937 | /*cleanupfrompyobj*/ | |||
| 69938 | /* End of cleaning variable nrhs */ | |||
| 69939 | /* End of cleaning variable ldb */ | |||
| 69940 | /* End of cleaning variable n */ | |||
| 69941 | } /*CHECKSCALAR(shape(a,0)==lda)*/ | |||
| 69942 | } /*if (f2py_success) of lda*/ | |||
| 69943 | /* End of cleaning variable lda */ | |||
| 69944 | /* End of cleaning variable info */ | |||
| 69945 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 69946 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 69947 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 69948 | /* End of cleaning variable a */ | |||
| 69949 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 69950 | /* End of cleaning variable b */ | |||
| 69951 | } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/ | |||
| 69952 | } /*if (f2py_success) of unitdiag*/ | |||
| 69953 | /* End of cleaning variable unitdiag */ | |||
| 69954 | } /*CHECKSCALAR(trans>=0 && trans <=2)*/ | |||
| 69955 | } /*if (f2py_success) of trans*/ | |||
| 69956 | /* End of cleaning variable trans */ | |||
| 69957 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 69958 | } /*if (f2py_success) of lower*/ | |||
| 69959 | /* End of cleaning variable lower */ | |||
| 69960 | /*end of cleanupfrompyobj*/ | |||
| 69961 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 69962 | /*routdebugfailure*/ | |||
| 69963 | } else { | |||
| 69964 | /*routdebugleave*/ | |||
| 69965 | } | |||
| 69966 | CFUNCSMESS("Freeing memory.\n"); | |||
| 69967 | /*freemem*/ | |||
| 69968 | #ifdef F2PY_REPORT_ATEXIT | |||
| 69969 | f2py_stop_clock(); | |||
| 69970 | #endif | |||
| 69971 | return capi_buildvalue; | |||
| 69972 | } | |||
| 69973 | /******************************* end of strtrs *******************************/ | |||
| 69974 | ||||
| 69975 | /*********************************** dtrtrs ***********************************/ | |||
| 69976 | static char doc_f2py_rout__flapack_dtrtrs[] = "\ | |||
| 69977 | x,info = dtrtrs(a,b,[lower,trans,unitdiag,lda,overwrite_b])\n\nWrapper for ``dtrtrs``.\ | |||
| 69978 | \n\nParameters\n----------\n" | |||
| 69979 | "a : input rank-2 array('d') with bounds (lda,n)\n" | |||
| 69980 | "b : input rank-2 array('d') with bounds (ldb,nrhs)\n" | |||
| 69981 | "\nOther Parameters\n----------------\n" | |||
| 69982 | "lower : input int, optional\n Default: 0\n" | |||
| 69983 | "trans : input int, optional\n Default: 0\n" | |||
| 69984 | "unitdiag : input int, optional\n Default: 0\n" | |||
| 69985 | "lda : input int, optional\n Default: shape(a,0)\n" | |||
| 69986 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 69987 | "\nReturns\n-------\n" | |||
| 69988 | "x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n" | |||
| 69989 | "info : int"; | |||
| 69990 | /* extern void F_FUNC(dtrtrs,DTRTRS)(char*,char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 69991 | static PyObject *f2py_rout__flapack_dtrtrs(const PyObject *capi_self, | |||
| 69992 | PyObject *capi_args, | |||
| 69993 | PyObject *capi_keywds, | |||
| 69994 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 69995 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 69996 | volatile int f2py_success = 1; | |||
| 69997 | /*decl*/ | |||
| 69998 | ||||
| 69999 | int lower = 0; | |||
| 70000 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 70001 | int trans = 0; | |||
| 70002 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 70003 | int unitdiag = 0; | |||
| 70004 | PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct); | |||
| 70005 | int n = 0; | |||
| 70006 | int nrhs = 0; | |||
| 70007 | double *a = NULL((void*)0); | |||
| 70008 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 70009 | const int a_Rank = 2; | |||
| 70010 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 70011 | int capi_a_intent = 0; | |||
| 70012 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 70013 | int lda = 0; | |||
| 70014 | PyObject *lda_capi = Py_None(&_Py_NoneStruct); | |||
| 70015 | double *b = NULL((void*)0); | |||
| 70016 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 70017 | const int b_Rank = 2; | |||
| 70018 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 70019 | int capi_b_intent = 0; | |||
| 70020 | int capi_overwrite_b = 0; | |||
| 70021 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 70022 | int ldb = 0; | |||
| 70023 | int info = 0; | |||
| 70024 | static char *capi_kwlist[] = {"a","b","lower","trans","unitdiag","lda","overwrite_b",NULL((void*)0)}; | |||
| 70025 | ||||
| 70026 | /*routdebugenter*/ | |||
| 70027 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70028 | f2py_start_clock(); | |||
| 70029 | #endif | |||
| 70030 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 70031 | "OO|OOOOi:_flapack.dtrtrs",\ | |||
| 70032 | capi_kwlist,&a_capi,&b_capi,&lower_capi,&trans_capi,&unitdiag_capi,&lda_capi,&capi_overwrite_b)) | |||
| 70033 | return NULL((void*)0); | |||
| 70034 | /*frompyobj*/ | |||
| 70035 | /* Processing variable lower */ | |||
| 70036 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 70037 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dtrtrs() 1st keyword (lower) can't be converted to int"); | |||
| 70038 | if (f2py_success) { | |||
| 70039 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dtrtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtrtrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 70040 | /* Processing variable trans */ | |||
| 70041 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 70042 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.dtrtrs() 2nd keyword (trans) can't be converted to int"); | |||
| 70043 | if (f2py_success) { | |||
| 70044 | CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","2nd keyword trans","dtrtrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[ 256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dtrtrs:trans=%d", "(""trans>=0 && trans <=2" ") failed for ""2nd keyword trans", trans); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 70045 | /* Processing variable unitdiag */ | |||
| 70046 | if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else | |||
| 70047 | f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.dtrtrs() 3rd keyword (unitdiag) can't be converted to int"); | |||
| 70048 | if (f2py_success) { | |||
| 70049 | CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","3rd keyword unitdiag","dtrtrs:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtrtrs:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for " "3rd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 70050 | /* Processing variable b */ | |||
| 70051 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 70052 | ; | |||
| 70053 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 70054 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 70055 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 70056 | if (!PyErr_Occurred()) | |||
| 70057 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dtrtrs to C/Fortran array" ); | |||
| 70058 | } else { | |||
| 70059 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 70060 | ||||
| 70061 | /* Processing variable a */ | |||
| 70062 | ; | |||
| 70063 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 70064 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 70065 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 70066 | if (!PyErr_Occurred()) | |||
| 70067 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dtrtrs to C/Fortran array" ); | |||
| 70068 | } else { | |||
| 70069 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 70070 | ||||
| 70071 | /* Processing variable info */ | |||
| 70072 | /* Processing variable lda */ | |||
| 70073 | if (lda_capi == Py_None(&_Py_NoneStruct)) lda = shape(a,0)a_Dims[0]; else | |||
| 70074 | f2py_success = int_from_pyobj(&lda,lda_capi,"_flapack.dtrtrs() 4th keyword (lda) can't be converted to int"); | |||
| 70075 | if (f2py_success) { | |||
| 70076 | CHECKSCALAR(shape(a,0)==lda,"shape(a,0)==lda","4th keyword lda","dtrtrs:lda=%d",lda)if (!(a_Dims[0]==lda)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtrtrs:lda=%d", "(""shape(a,0)==lda"") failed for " "4th keyword lda", lda); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 70077 | /* Processing variable n */ | |||
| 70078 | n = shape(a,1)a_Dims[1]; | |||
| 70079 | /* Processing variable ldb */ | |||
| 70080 | ldb = shape(b,0)b_Dims[0]; | |||
| 70081 | /* Processing variable nrhs */ | |||
| 70082 | nrhs = shape(b,1)b_Dims[1]; | |||
| 70083 | /*end of frompyobj*/ | |||
| 70084 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70085 | f2py_start_call_clock(); | |||
| 70086 | #endif | |||
| 70087 | /*callfortranroutine*/ | |||
| 70088 | (*f2py_func)((lower?"L":"U"),(trans?(trans==2?"C":"T"):"N"),(unitdiag?"U":"N"),&n,&nrhs,a,&lda,b,&ldb,&info); ; | |||
| 70089 | /*(*f2py_func)(&lower,&trans,&unitdiag,&n,&nrhs,a,&lda,b,&ldb,&info);*/ | |||
| 70090 | if (PyErr_Occurred()) | |||
| 70091 | f2py_success = 0; | |||
| 70092 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70093 | f2py_stop_call_clock(); | |||
| 70094 | #endif | |||
| 70095 | /*end of callfortranroutine*/ | |||
| 70096 | if (f2py_success) { | |||
| 70097 | /*pyobjfrom*/ | |||
| 70098 | /*end of pyobjfrom*/ | |||
| 70099 | CFUNCSMESS("Building return value.\n"); | |||
| 70100 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 70101 | /*closepyobjfrom*/ | |||
| 70102 | /*end of closepyobjfrom*/ | |||
| 70103 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 70104 | /*cleanupfrompyobj*/ | |||
| 70105 | /* End of cleaning variable nrhs */ | |||
| 70106 | /* End of cleaning variable ldb */ | |||
| 70107 | /* End of cleaning variable n */ | |||
| 70108 | } /*CHECKSCALAR(shape(a,0)==lda)*/ | |||
| 70109 | } /*if (f2py_success) of lda*/ | |||
| 70110 | /* End of cleaning variable lda */ | |||
| 70111 | /* End of cleaning variable info */ | |||
| 70112 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 70113 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 70114 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 70115 | /* End of cleaning variable a */ | |||
| 70116 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 70117 | /* End of cleaning variable b */ | |||
| 70118 | } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/ | |||
| 70119 | } /*if (f2py_success) of unitdiag*/ | |||
| 70120 | /* End of cleaning variable unitdiag */ | |||
| 70121 | } /*CHECKSCALAR(trans>=0 && trans <=2)*/ | |||
| 70122 | } /*if (f2py_success) of trans*/ | |||
| 70123 | /* End of cleaning variable trans */ | |||
| 70124 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 70125 | } /*if (f2py_success) of lower*/ | |||
| 70126 | /* End of cleaning variable lower */ | |||
| 70127 | /*end of cleanupfrompyobj*/ | |||
| 70128 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 70129 | /*routdebugfailure*/ | |||
| 70130 | } else { | |||
| 70131 | /*routdebugleave*/ | |||
| 70132 | } | |||
| 70133 | CFUNCSMESS("Freeing memory.\n"); | |||
| 70134 | /*freemem*/ | |||
| 70135 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70136 | f2py_stop_clock(); | |||
| 70137 | #endif | |||
| 70138 | return capi_buildvalue; | |||
| 70139 | } | |||
| 70140 | /******************************* end of dtrtrs *******************************/ | |||
| 70141 | ||||
| 70142 | /*********************************** ctrtrs ***********************************/ | |||
| 70143 | static char doc_f2py_rout__flapack_ctrtrs[] = "\ | |||
| 70144 | x,info = ctrtrs(a,b,[lower,trans,unitdiag,lda,overwrite_b])\n\nWrapper for ``ctrtrs``.\ | |||
| 70145 | \n\nParameters\n----------\n" | |||
| 70146 | "a : input rank-2 array('F') with bounds (lda,n)\n" | |||
| 70147 | "b : input rank-2 array('F') with bounds (ldb,nrhs)\n" | |||
| 70148 | "\nOther Parameters\n----------------\n" | |||
| 70149 | "lower : input int, optional\n Default: 0\n" | |||
| 70150 | "trans : input int, optional\n Default: 0\n" | |||
| 70151 | "unitdiag : input int, optional\n Default: 0\n" | |||
| 70152 | "lda : input int, optional\n Default: shape(a,0)\n" | |||
| 70153 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 70154 | "\nReturns\n-------\n" | |||
| 70155 | "x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n" | |||
| 70156 | "info : int"; | |||
| 70157 | /* extern void F_FUNC(ctrtrs,CTRTRS)(char*,char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 70158 | static PyObject *f2py_rout__flapack_ctrtrs(const PyObject *capi_self, | |||
| 70159 | PyObject *capi_args, | |||
| 70160 | PyObject *capi_keywds, | |||
| 70161 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 70162 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 70163 | volatile int f2py_success = 1; | |||
| 70164 | /*decl*/ | |||
| 70165 | ||||
| 70166 | int lower = 0; | |||
| 70167 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 70168 | int trans = 0; | |||
| 70169 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 70170 | int unitdiag = 0; | |||
| 70171 | PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct); | |||
| 70172 | int n = 0; | |||
| 70173 | int nrhs = 0; | |||
| 70174 | complex_float *a = NULL((void*)0); | |||
| 70175 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 70176 | const int a_Rank = 2; | |||
| 70177 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 70178 | int capi_a_intent = 0; | |||
| 70179 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 70180 | int lda = 0; | |||
| 70181 | PyObject *lda_capi = Py_None(&_Py_NoneStruct); | |||
| 70182 | complex_float *b = NULL((void*)0); | |||
| 70183 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 70184 | const int b_Rank = 2; | |||
| 70185 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 70186 | int capi_b_intent = 0; | |||
| 70187 | int capi_overwrite_b = 0; | |||
| 70188 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 70189 | int ldb = 0; | |||
| 70190 | int info = 0; | |||
| 70191 | static char *capi_kwlist[] = {"a","b","lower","trans","unitdiag","lda","overwrite_b",NULL((void*)0)}; | |||
| 70192 | ||||
| 70193 | /*routdebugenter*/ | |||
| 70194 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70195 | f2py_start_clock(); | |||
| 70196 | #endif | |||
| 70197 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 70198 | "OO|OOOOi:_flapack.ctrtrs",\ | |||
| 70199 | capi_kwlist,&a_capi,&b_capi,&lower_capi,&trans_capi,&unitdiag_capi,&lda_capi,&capi_overwrite_b)) | |||
| 70200 | return NULL((void*)0); | |||
| 70201 | /*frompyobj*/ | |||
| 70202 | /* Processing variable lower */ | |||
| 70203 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 70204 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ctrtrs() 1st keyword (lower) can't be converted to int"); | |||
| 70205 | if (f2py_success) { | |||
| 70206 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ctrtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctrtrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 70207 | /* Processing variable trans */ | |||
| 70208 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 70209 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.ctrtrs() 2nd keyword (trans) can't be converted to int"); | |||
| 70210 | if (f2py_success) { | |||
| 70211 | CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","2nd keyword trans","ctrtrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[ 256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ctrtrs:trans=%d", "(""trans>=0 && trans <=2" ") failed for ""2nd keyword trans", trans); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 70212 | /* Processing variable unitdiag */ | |||
| 70213 | if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else | |||
| 70214 | f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.ctrtrs() 3rd keyword (unitdiag) can't be converted to int"); | |||
| 70215 | if (f2py_success) { | |||
| 70216 | CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","3rd keyword unitdiag","ctrtrs:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctrtrs:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for " "3rd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 70217 | /* Processing variable b */ | |||
| 70218 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 70219 | ; | |||
| 70220 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 70221 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 70222 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 70223 | if (!PyErr_Occurred()) | |||
| 70224 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ctrtrs to C/Fortran array" ); | |||
| 70225 | } else { | |||
| 70226 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 70227 | ||||
| 70228 | /* Processing variable a */ | |||
| 70229 | ; | |||
| 70230 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 70231 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 70232 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 70233 | if (!PyErr_Occurred()) | |||
| 70234 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ctrtrs to C/Fortran array" ); | |||
| 70235 | } else { | |||
| 70236 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 70237 | ||||
| 70238 | /* Processing variable info */ | |||
| 70239 | /* Processing variable lda */ | |||
| 70240 | if (lda_capi == Py_None(&_Py_NoneStruct)) lda = shape(a,0)a_Dims[0]; else | |||
| 70241 | f2py_success = int_from_pyobj(&lda,lda_capi,"_flapack.ctrtrs() 4th keyword (lda) can't be converted to int"); | |||
| 70242 | if (f2py_success) { | |||
| 70243 | CHECKSCALAR(shape(a,0)==lda,"shape(a,0)==lda","4th keyword lda","ctrtrs:lda=%d",lda)if (!(a_Dims[0]==lda)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctrtrs:lda=%d", "(""shape(a,0)==lda"") failed for " "4th keyword lda", lda); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 70244 | /* Processing variable n */ | |||
| 70245 | n = shape(a,1)a_Dims[1]; | |||
| 70246 | /* Processing variable ldb */ | |||
| 70247 | ldb = shape(b,0)b_Dims[0]; | |||
| 70248 | /* Processing variable nrhs */ | |||
| 70249 | nrhs = shape(b,1)b_Dims[1]; | |||
| 70250 | /*end of frompyobj*/ | |||
| 70251 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70252 | f2py_start_call_clock(); | |||
| 70253 | #endif | |||
| 70254 | /*callfortranroutine*/ | |||
| 70255 | (*f2py_func)((lower?"L":"U"),(trans?(trans==2?"C":"T"):"N"),(unitdiag?"U":"N"),&n,&nrhs,a,&lda,b,&ldb,&info); ; | |||
| 70256 | /*(*f2py_func)(&lower,&trans,&unitdiag,&n,&nrhs,a,&lda,b,&ldb,&info);*/ | |||
| 70257 | if (PyErr_Occurred()) | |||
| 70258 | f2py_success = 0; | |||
| 70259 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70260 | f2py_stop_call_clock(); | |||
| 70261 | #endif | |||
| 70262 | /*end of callfortranroutine*/ | |||
| 70263 | if (f2py_success) { | |||
| 70264 | /*pyobjfrom*/ | |||
| 70265 | /*end of pyobjfrom*/ | |||
| 70266 | CFUNCSMESS("Building return value.\n"); | |||
| 70267 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 70268 | /*closepyobjfrom*/ | |||
| 70269 | /*end of closepyobjfrom*/ | |||
| 70270 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 70271 | /*cleanupfrompyobj*/ | |||
| 70272 | /* End of cleaning variable nrhs */ | |||
| 70273 | /* End of cleaning variable ldb */ | |||
| 70274 | /* End of cleaning variable n */ | |||
| 70275 | } /*CHECKSCALAR(shape(a,0)==lda)*/ | |||
| 70276 | } /*if (f2py_success) of lda*/ | |||
| 70277 | /* End of cleaning variable lda */ | |||
| 70278 | /* End of cleaning variable info */ | |||
| 70279 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 70280 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 70281 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 70282 | /* End of cleaning variable a */ | |||
| 70283 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 70284 | /* End of cleaning variable b */ | |||
| 70285 | } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/ | |||
| 70286 | } /*if (f2py_success) of unitdiag*/ | |||
| 70287 | /* End of cleaning variable unitdiag */ | |||
| 70288 | } /*CHECKSCALAR(trans>=0 && trans <=2)*/ | |||
| 70289 | } /*if (f2py_success) of trans*/ | |||
| 70290 | /* End of cleaning variable trans */ | |||
| 70291 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 70292 | } /*if (f2py_success) of lower*/ | |||
| 70293 | /* End of cleaning variable lower */ | |||
| 70294 | /*end of cleanupfrompyobj*/ | |||
| 70295 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 70296 | /*routdebugfailure*/ | |||
| 70297 | } else { | |||
| 70298 | /*routdebugleave*/ | |||
| 70299 | } | |||
| 70300 | CFUNCSMESS("Freeing memory.\n"); | |||
| 70301 | /*freemem*/ | |||
| 70302 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70303 | f2py_stop_clock(); | |||
| 70304 | #endif | |||
| 70305 | return capi_buildvalue; | |||
| 70306 | } | |||
| 70307 | /******************************* end of ctrtrs *******************************/ | |||
| 70308 | ||||
| 70309 | /*********************************** ztrtrs ***********************************/ | |||
| 70310 | static char doc_f2py_rout__flapack_ztrtrs[] = "\ | |||
| 70311 | x,info = ztrtrs(a,b,[lower,trans,unitdiag,lda,overwrite_b])\n\nWrapper for ``ztrtrs``.\ | |||
| 70312 | \n\nParameters\n----------\n" | |||
| 70313 | "a : input rank-2 array('D') with bounds (lda,n)\n" | |||
| 70314 | "b : input rank-2 array('D') with bounds (ldb,nrhs)\n" | |||
| 70315 | "\nOther Parameters\n----------------\n" | |||
| 70316 | "lower : input int, optional\n Default: 0\n" | |||
| 70317 | "trans : input int, optional\n Default: 0\n" | |||
| 70318 | "unitdiag : input int, optional\n Default: 0\n" | |||
| 70319 | "lda : input int, optional\n Default: shape(a,0)\n" | |||
| 70320 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 70321 | "\nReturns\n-------\n" | |||
| 70322 | "x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n" | |||
| 70323 | "info : int"; | |||
| 70324 | /* extern void F_FUNC(ztrtrs,ZTRTRS)(char*,char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 70325 | static PyObject *f2py_rout__flapack_ztrtrs(const PyObject *capi_self, | |||
| 70326 | PyObject *capi_args, | |||
| 70327 | PyObject *capi_keywds, | |||
| 70328 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 70329 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 70330 | volatile int f2py_success = 1; | |||
| 70331 | /*decl*/ | |||
| 70332 | ||||
| 70333 | int lower = 0; | |||
| 70334 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 70335 | int trans = 0; | |||
| 70336 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 70337 | int unitdiag = 0; | |||
| 70338 | PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct); | |||
| 70339 | int n = 0; | |||
| 70340 | int nrhs = 0; | |||
| 70341 | complex_double *a = NULL((void*)0); | |||
| 70342 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 70343 | const int a_Rank = 2; | |||
| 70344 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 70345 | int capi_a_intent = 0; | |||
| 70346 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 70347 | int lda = 0; | |||
| 70348 | PyObject *lda_capi = Py_None(&_Py_NoneStruct); | |||
| 70349 | complex_double *b = NULL((void*)0); | |||
| 70350 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 70351 | const int b_Rank = 2; | |||
| 70352 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 70353 | int capi_b_intent = 0; | |||
| 70354 | int capi_overwrite_b = 0; | |||
| 70355 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 70356 | int ldb = 0; | |||
| 70357 | int info = 0; | |||
| 70358 | static char *capi_kwlist[] = {"a","b","lower","trans","unitdiag","lda","overwrite_b",NULL((void*)0)}; | |||
| 70359 | ||||
| 70360 | /*routdebugenter*/ | |||
| 70361 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70362 | f2py_start_clock(); | |||
| 70363 | #endif | |||
| 70364 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 70365 | "OO|OOOOi:_flapack.ztrtrs",\ | |||
| 70366 | capi_kwlist,&a_capi,&b_capi,&lower_capi,&trans_capi,&unitdiag_capi,&lda_capi,&capi_overwrite_b)) | |||
| 70367 | return NULL((void*)0); | |||
| 70368 | /*frompyobj*/ | |||
| 70369 | /* Processing variable lower */ | |||
| 70370 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 70371 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ztrtrs() 1st keyword (lower) can't be converted to int"); | |||
| 70372 | if (f2py_success) { | |||
| 70373 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ztrtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztrtrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 70374 | /* Processing variable trans */ | |||
| 70375 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 70376 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.ztrtrs() 2nd keyword (trans) can't be converted to int"); | |||
| 70377 | if (f2py_success) { | |||
| 70378 | CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","2nd keyword trans","ztrtrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[ 256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ztrtrs:trans=%d", "(""trans>=0 && trans <=2" ") failed for ""2nd keyword trans", trans); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 70379 | /* Processing variable unitdiag */ | |||
| 70380 | if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else | |||
| 70381 | f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.ztrtrs() 3rd keyword (unitdiag) can't be converted to int"); | |||
| 70382 | if (f2py_success) { | |||
| 70383 | CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","3rd keyword unitdiag","ztrtrs:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztrtrs:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for " "3rd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 70384 | /* Processing variable b */ | |||
| 70385 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 70386 | ; | |||
| 70387 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 70388 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 70389 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 70390 | if (!PyErr_Occurred()) | |||
| 70391 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ztrtrs to C/Fortran array" ); | |||
| 70392 | } else { | |||
| 70393 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 70394 | ||||
| 70395 | /* Processing variable a */ | |||
| 70396 | ; | |||
| 70397 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 70398 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 70399 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 70400 | if (!PyErr_Occurred()) | |||
| 70401 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ztrtrs to C/Fortran array" ); | |||
| 70402 | } else { | |||
| 70403 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 70404 | ||||
| 70405 | /* Processing variable info */ | |||
| 70406 | /* Processing variable lda */ | |||
| 70407 | if (lda_capi == Py_None(&_Py_NoneStruct)) lda = shape(a,0)a_Dims[0]; else | |||
| 70408 | f2py_success = int_from_pyobj(&lda,lda_capi,"_flapack.ztrtrs() 4th keyword (lda) can't be converted to int"); | |||
| 70409 | if (f2py_success) { | |||
| 70410 | CHECKSCALAR(shape(a,0)==lda,"shape(a,0)==lda","4th keyword lda","ztrtrs:lda=%d",lda)if (!(a_Dims[0]==lda)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztrtrs:lda=%d", "(""shape(a,0)==lda"") failed for " "4th keyword lda", lda); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 70411 | /* Processing variable n */ | |||
| 70412 | n = shape(a,1)a_Dims[1]; | |||
| 70413 | /* Processing variable ldb */ | |||
| 70414 | ldb = shape(b,0)b_Dims[0]; | |||
| 70415 | /* Processing variable nrhs */ | |||
| 70416 | nrhs = shape(b,1)b_Dims[1]; | |||
| 70417 | /*end of frompyobj*/ | |||
| 70418 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70419 | f2py_start_call_clock(); | |||
| 70420 | #endif | |||
| 70421 | /*callfortranroutine*/ | |||
| 70422 | (*f2py_func)((lower?"L":"U"),(trans?(trans==2?"C":"T"):"N"),(unitdiag?"U":"N"),&n,&nrhs,a,&lda,b,&ldb,&info); ; | |||
| 70423 | /*(*f2py_func)(&lower,&trans,&unitdiag,&n,&nrhs,a,&lda,b,&ldb,&info);*/ | |||
| 70424 | if (PyErr_Occurred()) | |||
| 70425 | f2py_success = 0; | |||
| 70426 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70427 | f2py_stop_call_clock(); | |||
| 70428 | #endif | |||
| 70429 | /*end of callfortranroutine*/ | |||
| 70430 | if (f2py_success) { | |||
| 70431 | /*pyobjfrom*/ | |||
| 70432 | /*end of pyobjfrom*/ | |||
| 70433 | CFUNCSMESS("Building return value.\n"); | |||
| 70434 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 70435 | /*closepyobjfrom*/ | |||
| 70436 | /*end of closepyobjfrom*/ | |||
| 70437 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 70438 | /*cleanupfrompyobj*/ | |||
| 70439 | /* End of cleaning variable nrhs */ | |||
| 70440 | /* End of cleaning variable ldb */ | |||
| 70441 | /* End of cleaning variable n */ | |||
| 70442 | } /*CHECKSCALAR(shape(a,0)==lda)*/ | |||
| 70443 | } /*if (f2py_success) of lda*/ | |||
| 70444 | /* End of cleaning variable lda */ | |||
| 70445 | /* End of cleaning variable info */ | |||
| 70446 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 70447 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 70448 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 70449 | /* End of cleaning variable a */ | |||
| 70450 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 70451 | /* End of cleaning variable b */ | |||
| 70452 | } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/ | |||
| 70453 | } /*if (f2py_success) of unitdiag*/ | |||
| 70454 | /* End of cleaning variable unitdiag */ | |||
| 70455 | } /*CHECKSCALAR(trans>=0 && trans <=2)*/ | |||
| 70456 | } /*if (f2py_success) of trans*/ | |||
| 70457 | /* End of cleaning variable trans */ | |||
| 70458 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 70459 | } /*if (f2py_success) of lower*/ | |||
| 70460 | /* End of cleaning variable lower */ | |||
| 70461 | /*end of cleanupfrompyobj*/ | |||
| 70462 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 70463 | /*routdebugfailure*/ | |||
| 70464 | } else { | |||
| 70465 | /*routdebugleave*/ | |||
| 70466 | } | |||
| 70467 | CFUNCSMESS("Freeing memory.\n"); | |||
| 70468 | /*freemem*/ | |||
| 70469 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70470 | f2py_stop_clock(); | |||
| 70471 | #endif | |||
| 70472 | return capi_buildvalue; | |||
| 70473 | } | |||
| 70474 | /******************************* end of ztrtrs *******************************/ | |||
| 70475 | ||||
| 70476 | /*********************************** stbtrs ***********************************/ | |||
| 70477 | static char doc_f2py_rout__flapack_stbtrs[] = "\ | |||
| 70478 | x,info = stbtrs(ab,b,[uplo,trans,diag,overwrite_b])\n\nWrapper for ``stbtrs``.\ | |||
| 70479 | \n\nParameters\n----------\n" | |||
| 70480 | "ab : input rank-2 array('f') with bounds (ldab,n)\n" | |||
| 70481 | "b : input rank-2 array('f') with bounds (ldb,nrhs)\n" | |||
| 70482 | "\nOther Parameters\n----------------\n" | |||
| 70483 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 70484 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 70485 | "diag : input string(len=1), optional\n Default: 'N'\n" | |||
| 70486 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 70487 | "\nReturns\n-------\n" | |||
| 70488 | "x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n" | |||
| 70489 | "info : int"; | |||
| 70490 | /* extern void F_FUNC(stbtrs,STBTRS)(char*,char*,char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 70491 | static PyObject *f2py_rout__flapack_stbtrs(const PyObject *capi_self, | |||
| 70492 | PyObject *capi_args, | |||
| 70493 | PyObject *capi_keywds, | |||
| 70494 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 70495 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 70496 | volatile int f2py_success = 1; | |||
| 70497 | /*decl*/ | |||
| 70498 | ||||
| 70499 | string uplo = NULL((void*)0); | |||
| 70500 | int slen(uplo)capi_uplo_len; | |||
| 70501 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 70502 | string trans = NULL((void*)0); | |||
| 70503 | int slen(trans)capi_trans_len; | |||
| 70504 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 70505 | string diag = NULL((void*)0); | |||
| 70506 | int slen(diag)capi_diag_len; | |||
| 70507 | PyObject *diag_capi = Py_None(&_Py_NoneStruct); | |||
| 70508 | int n = 0; | |||
| 70509 | int kd = 0; | |||
| 70510 | int nrhs = 0; | |||
| 70511 | float *ab = NULL((void*)0); | |||
| 70512 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 70513 | const int ab_Rank = 2; | |||
| 70514 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 70515 | int capi_ab_intent = 0; | |||
| 70516 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 70517 | int ldab = 0; | |||
| 70518 | float *b = NULL((void*)0); | |||
| 70519 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 70520 | const int b_Rank = 2; | |||
| 70521 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 70522 | int capi_b_intent = 0; | |||
| 70523 | int capi_overwrite_b = 0; | |||
| 70524 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 70525 | int ldb = 0; | |||
| 70526 | int info = 0; | |||
| 70527 | static char *capi_kwlist[] = {"ab","b","uplo","trans","diag","overwrite_b",NULL((void*)0)}; | |||
| 70528 | ||||
| 70529 | /*routdebugenter*/ | |||
| 70530 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70531 | f2py_start_clock(); | |||
| 70532 | #endif | |||
| 70533 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 70534 | "OO|OOOi:_flapack.stbtrs",\ | |||
| 70535 | capi_kwlist,&ab_capi,&b_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b)) | |||
| 70536 | return NULL((void*)0); | |||
| 70537 | /*frompyobj*/ | |||
| 70538 | /* Processing variable ab */ | |||
| 70539 | ; | |||
| 70540 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 70541 | capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 70542 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 70543 | if (!PyErr_Occurred()) | |||
| 70544 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.stbtrs to C/Fortran array" ); | |||
| 70545 | } else { | |||
| 70546 | ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 70547 | ||||
| 70548 | /* Processing variable b */ | |||
| 70549 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 70550 | ; | |||
| 70551 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 70552 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 70553 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 70554 | if (!PyErr_Occurred()) | |||
| 70555 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.stbtrs to C/Fortran array" ); | |||
| 70556 | } else { | |||
| 70557 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 70558 | ||||
| 70559 | /* Processing variable info */ | |||
| 70560 | /* Processing variable uplo */ | |||
| 70561 | slen(uplo)capi_uplo_len = 1; | |||
| 70562 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.stbtrs to C string"); | |||
| 70563 | if (f2py_success) { | |||
| 70564 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","stbtrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stbtrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 70565 | /* Processing variable ldab */ | |||
| 70566 | ldab = MAX(1, shape(ab, 0))((1 > ab_Dims[0]) ? (1) : (ab_Dims[0])); | |||
| 70567 | /* Processing variable n */ | |||
| 70568 | n = MAX(1, shape(ab, 1))((1 > ab_Dims[1]) ? (1) : (ab_Dims[1])); | |||
| 70569 | /* Processing variable kd */ | |||
| 70570 | kd = ldab-1; | |||
| 70571 | /* Processing variable ldb */ | |||
| 70572 | ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 70573 | CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","stbtrs:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stbtrs:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb" , ldb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 70574 | /* Processing variable nrhs */ | |||
| 70575 | nrhs = MAX(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1])); | |||
| 70576 | /* Processing variable trans */ | |||
| 70577 | slen(trans)capi_trans_len = 1; | |||
| 70578 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.stbtrs to C string"); | |||
| 70579 | if (f2py_success) { | |||
| 70580 | CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","2nd keyword trans","stbtrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""stbtrs:slen(trans)=%d trans=\"%s\"" , "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""2nd keyword trans" , capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 70581 | /* Processing variable diag */ | |||
| 70582 | slen(diag)capi_diag_len = 1; | |||
| 70583 | f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 3rd keyword `diag' of _flapack.stbtrs to C string"); | |||
| 70584 | if (f2py_success) { | |||
| 70585 | CHECKSTRING(*diag=='N'||*diag=='U',"*diag=='N'||*diag=='U'","3rd keyword diag","stbtrs:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='N'||*diag=='U')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stbtrs:slen(diag)=%d diag=\"%s\"", "(""*diag=='N'||*diag=='U'" ") failed for ""3rd keyword diag", capi_diag_len, diag); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 70586 | /*end of frompyobj*/ | |||
| 70587 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70588 | f2py_start_call_clock(); | |||
| 70589 | #endif | |||
| 70590 | /*callfortranroutine*/ | |||
| 70591 | (*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info) ; | |||
| 70592 | /*(*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info,slen(uplo),slen(trans),slen(diag));*/ | |||
| 70593 | if (PyErr_Occurred()) | |||
| 70594 | f2py_success = 0; | |||
| 70595 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70596 | f2py_stop_call_clock(); | |||
| 70597 | #endif | |||
| 70598 | /*end of callfortranroutine*/ | |||
| 70599 | if (f2py_success) { | |||
| 70600 | /*pyobjfrom*/ | |||
| 70601 | /*end of pyobjfrom*/ | |||
| 70602 | CFUNCSMESS("Building return value.\n"); | |||
| 70603 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 70604 | /*closepyobjfrom*/ | |||
| 70605 | /*end of closepyobjfrom*/ | |||
| 70606 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 70607 | /*cleanupfrompyobj*/ | |||
| 70608 | } /*CHECKSTRING(*diag=='N'||*diag=='U')*/ | |||
| 70609 | STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0); | |||
| 70610 | } /*if (f2py_success) of diag*/ | |||
| 70611 | /* End of cleaning variable diag */ | |||
| 70612 | } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/ | |||
| 70613 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 70614 | } /*if (f2py_success) of trans*/ | |||
| 70615 | /* End of cleaning variable trans */ | |||
| 70616 | /* End of cleaning variable nrhs */ | |||
| 70617 | } /*CHECKSCALAR(ldb >= n)*/ | |||
| 70618 | /* End of cleaning variable ldb */ | |||
| 70619 | /* End of cleaning variable kd */ | |||
| 70620 | /* End of cleaning variable n */ | |||
| 70621 | /* End of cleaning variable ldab */ | |||
| 70622 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 70623 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 70624 | } /*if (f2py_success) of uplo*/ | |||
| 70625 | /* End of cleaning variable uplo */ | |||
| 70626 | /* End of cleaning variable info */ | |||
| 70627 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 70628 | /* End of cleaning variable b */ | |||
| 70629 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 70630 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 70631 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 70632 | /* End of cleaning variable ab */ | |||
| 70633 | /*end of cleanupfrompyobj*/ | |||
| 70634 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 70635 | /*routdebugfailure*/ | |||
| 70636 | } else { | |||
| 70637 | /*routdebugleave*/ | |||
| 70638 | } | |||
| 70639 | CFUNCSMESS("Freeing memory.\n"); | |||
| 70640 | /*freemem*/ | |||
| 70641 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70642 | f2py_stop_clock(); | |||
| 70643 | #endif | |||
| 70644 | return capi_buildvalue; | |||
| 70645 | } | |||
| 70646 | /******************************* end of stbtrs *******************************/ | |||
| 70647 | ||||
| 70648 | /*********************************** dtbtrs ***********************************/ | |||
| 70649 | static char doc_f2py_rout__flapack_dtbtrs[] = "\ | |||
| 70650 | x,info = dtbtrs(ab,b,[uplo,trans,diag,overwrite_b])\n\nWrapper for ``dtbtrs``.\ | |||
| 70651 | \n\nParameters\n----------\n" | |||
| 70652 | "ab : input rank-2 array('d') with bounds (ldab,n)\n" | |||
| 70653 | "b : input rank-2 array('d') with bounds (ldb,nrhs)\n" | |||
| 70654 | "\nOther Parameters\n----------------\n" | |||
| 70655 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 70656 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 70657 | "diag : input string(len=1), optional\n Default: 'N'\n" | |||
| 70658 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 70659 | "\nReturns\n-------\n" | |||
| 70660 | "x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n" | |||
| 70661 | "info : int"; | |||
| 70662 | /* extern void F_FUNC(dtbtrs,DTBTRS)(char*,char*,char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 70663 | static PyObject *f2py_rout__flapack_dtbtrs(const PyObject *capi_self, | |||
| 70664 | PyObject *capi_args, | |||
| 70665 | PyObject *capi_keywds, | |||
| 70666 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 70667 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 70668 | volatile int f2py_success = 1; | |||
| 70669 | /*decl*/ | |||
| 70670 | ||||
| 70671 | string uplo = NULL((void*)0); | |||
| 70672 | int slen(uplo)capi_uplo_len; | |||
| 70673 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 70674 | string trans = NULL((void*)0); | |||
| 70675 | int slen(trans)capi_trans_len; | |||
| 70676 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 70677 | string diag = NULL((void*)0); | |||
| 70678 | int slen(diag)capi_diag_len; | |||
| 70679 | PyObject *diag_capi = Py_None(&_Py_NoneStruct); | |||
| 70680 | int n = 0; | |||
| 70681 | int kd = 0; | |||
| 70682 | int nrhs = 0; | |||
| 70683 | double *ab = NULL((void*)0); | |||
| 70684 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 70685 | const int ab_Rank = 2; | |||
| 70686 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 70687 | int capi_ab_intent = 0; | |||
| 70688 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 70689 | int ldab = 0; | |||
| 70690 | double *b = NULL((void*)0); | |||
| 70691 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 70692 | const int b_Rank = 2; | |||
| 70693 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 70694 | int capi_b_intent = 0; | |||
| 70695 | int capi_overwrite_b = 0; | |||
| 70696 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 70697 | int ldb = 0; | |||
| 70698 | int info = 0; | |||
| 70699 | static char *capi_kwlist[] = {"ab","b","uplo","trans","diag","overwrite_b",NULL((void*)0)}; | |||
| 70700 | ||||
| 70701 | /*routdebugenter*/ | |||
| 70702 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70703 | f2py_start_clock(); | |||
| 70704 | #endif | |||
| 70705 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 70706 | "OO|OOOi:_flapack.dtbtrs",\ | |||
| 70707 | capi_kwlist,&ab_capi,&b_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b)) | |||
| 70708 | return NULL((void*)0); | |||
| 70709 | /*frompyobj*/ | |||
| 70710 | /* Processing variable ab */ | |||
| 70711 | ; | |||
| 70712 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 70713 | capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 70714 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 70715 | if (!PyErr_Occurred()) | |||
| 70716 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dtbtrs to C/Fortran array" ); | |||
| 70717 | } else { | |||
| 70718 | ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 70719 | ||||
| 70720 | /* Processing variable b */ | |||
| 70721 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 70722 | ; | |||
| 70723 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 70724 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 70725 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 70726 | if (!PyErr_Occurred()) | |||
| 70727 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dtbtrs to C/Fortran array" ); | |||
| 70728 | } else { | |||
| 70729 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 70730 | ||||
| 70731 | /* Processing variable info */ | |||
| 70732 | /* Processing variable uplo */ | |||
| 70733 | slen(uplo)capi_uplo_len = 1; | |||
| 70734 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.dtbtrs to C string"); | |||
| 70735 | if (f2py_success) { | |||
| 70736 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","dtbtrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtbtrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 70737 | /* Processing variable ldab */ | |||
| 70738 | ldab = MAX(1, shape(ab, 0))((1 > ab_Dims[0]) ? (1) : (ab_Dims[0])); | |||
| 70739 | /* Processing variable n */ | |||
| 70740 | n = MAX(1, shape(ab, 1))((1 > ab_Dims[1]) ? (1) : (ab_Dims[1])); | |||
| 70741 | /* Processing variable kd */ | |||
| 70742 | kd = ldab-1; | |||
| 70743 | /* Processing variable ldb */ | |||
| 70744 | ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 70745 | CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","dtbtrs:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtbtrs:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb" , ldb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 70746 | /* Processing variable nrhs */ | |||
| 70747 | nrhs = MAX(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1])); | |||
| 70748 | /* Processing variable trans */ | |||
| 70749 | slen(trans)capi_trans_len = 1; | |||
| 70750 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dtbtrs to C string"); | |||
| 70751 | if (f2py_success) { | |||
| 70752 | CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","2nd keyword trans","dtbtrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dtbtrs:slen(trans)=%d trans=\"%s\"" , "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""2nd keyword trans" , capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 70753 | /* Processing variable diag */ | |||
| 70754 | slen(diag)capi_diag_len = 1; | |||
| 70755 | f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 3rd keyword `diag' of _flapack.dtbtrs to C string"); | |||
| 70756 | if (f2py_success) { | |||
| 70757 | CHECKSTRING(*diag=='N'||*diag=='U',"*diag=='N'||*diag=='U'","3rd keyword diag","dtbtrs:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='N'||*diag=='U')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtbtrs:slen(diag)=%d diag=\"%s\"", "(""*diag=='N'||*diag=='U'" ") failed for ""3rd keyword diag", capi_diag_len, diag); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 70758 | /*end of frompyobj*/ | |||
| 70759 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70760 | f2py_start_call_clock(); | |||
| 70761 | #endif | |||
| 70762 | /*callfortranroutine*/ | |||
| 70763 | (*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info) ; | |||
| 70764 | /*(*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info,slen(uplo),slen(trans),slen(diag));*/ | |||
| 70765 | if (PyErr_Occurred()) | |||
| 70766 | f2py_success = 0; | |||
| 70767 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70768 | f2py_stop_call_clock(); | |||
| 70769 | #endif | |||
| 70770 | /*end of callfortranroutine*/ | |||
| 70771 | if (f2py_success) { | |||
| 70772 | /*pyobjfrom*/ | |||
| 70773 | /*end of pyobjfrom*/ | |||
| 70774 | CFUNCSMESS("Building return value.\n"); | |||
| 70775 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 70776 | /*closepyobjfrom*/ | |||
| 70777 | /*end of closepyobjfrom*/ | |||
| 70778 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 70779 | /*cleanupfrompyobj*/ | |||
| 70780 | } /*CHECKSTRING(*diag=='N'||*diag=='U')*/ | |||
| 70781 | STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0); | |||
| 70782 | } /*if (f2py_success) of diag*/ | |||
| 70783 | /* End of cleaning variable diag */ | |||
| 70784 | } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/ | |||
| 70785 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 70786 | } /*if (f2py_success) of trans*/ | |||
| 70787 | /* End of cleaning variable trans */ | |||
| 70788 | /* End of cleaning variable nrhs */ | |||
| 70789 | } /*CHECKSCALAR(ldb >= n)*/ | |||
| 70790 | /* End of cleaning variable ldb */ | |||
| 70791 | /* End of cleaning variable kd */ | |||
| 70792 | /* End of cleaning variable n */ | |||
| 70793 | /* End of cleaning variable ldab */ | |||
| 70794 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 70795 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 70796 | } /*if (f2py_success) of uplo*/ | |||
| 70797 | /* End of cleaning variable uplo */ | |||
| 70798 | /* End of cleaning variable info */ | |||
| 70799 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 70800 | /* End of cleaning variable b */ | |||
| 70801 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 70802 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 70803 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 70804 | /* End of cleaning variable ab */ | |||
| 70805 | /*end of cleanupfrompyobj*/ | |||
| 70806 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 70807 | /*routdebugfailure*/ | |||
| 70808 | } else { | |||
| 70809 | /*routdebugleave*/ | |||
| 70810 | } | |||
| 70811 | CFUNCSMESS("Freeing memory.\n"); | |||
| 70812 | /*freemem*/ | |||
| 70813 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70814 | f2py_stop_clock(); | |||
| 70815 | #endif | |||
| 70816 | return capi_buildvalue; | |||
| 70817 | } | |||
| 70818 | /******************************* end of dtbtrs *******************************/ | |||
| 70819 | ||||
| 70820 | /*********************************** ctbtrs ***********************************/ | |||
| 70821 | static char doc_f2py_rout__flapack_ctbtrs[] = "\ | |||
| 70822 | x,info = ctbtrs(ab,b,[uplo,trans,diag,overwrite_b])\n\nWrapper for ``ctbtrs``.\ | |||
| 70823 | \n\nParameters\n----------\n" | |||
| 70824 | "ab : input rank-2 array('F') with bounds (ldab,n)\n" | |||
| 70825 | "b : input rank-2 array('F') with bounds (ldb,nrhs)\n" | |||
| 70826 | "\nOther Parameters\n----------------\n" | |||
| 70827 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 70828 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 70829 | "diag : input string(len=1), optional\n Default: 'N'\n" | |||
| 70830 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 70831 | "\nReturns\n-------\n" | |||
| 70832 | "x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n" | |||
| 70833 | "info : int"; | |||
| 70834 | /* extern void F_FUNC(ctbtrs,CTBTRS)(char*,char*,char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 70835 | static PyObject *f2py_rout__flapack_ctbtrs(const PyObject *capi_self, | |||
| 70836 | PyObject *capi_args, | |||
| 70837 | PyObject *capi_keywds, | |||
| 70838 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 70839 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 70840 | volatile int f2py_success = 1; | |||
| 70841 | /*decl*/ | |||
| 70842 | ||||
| 70843 | string uplo = NULL((void*)0); | |||
| 70844 | int slen(uplo)capi_uplo_len; | |||
| 70845 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 70846 | string trans = NULL((void*)0); | |||
| 70847 | int slen(trans)capi_trans_len; | |||
| 70848 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 70849 | string diag = NULL((void*)0); | |||
| 70850 | int slen(diag)capi_diag_len; | |||
| 70851 | PyObject *diag_capi = Py_None(&_Py_NoneStruct); | |||
| 70852 | int n = 0; | |||
| 70853 | int kd = 0; | |||
| 70854 | int nrhs = 0; | |||
| 70855 | complex_float *ab = NULL((void*)0); | |||
| 70856 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 70857 | const int ab_Rank = 2; | |||
| 70858 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 70859 | int capi_ab_intent = 0; | |||
| 70860 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 70861 | int ldab = 0; | |||
| 70862 | complex_float *b = NULL((void*)0); | |||
| 70863 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 70864 | const int b_Rank = 2; | |||
| 70865 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 70866 | int capi_b_intent = 0; | |||
| 70867 | int capi_overwrite_b = 0; | |||
| 70868 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 70869 | int ldb = 0; | |||
| 70870 | int info = 0; | |||
| 70871 | static char *capi_kwlist[] = {"ab","b","uplo","trans","diag","overwrite_b",NULL((void*)0)}; | |||
| 70872 | ||||
| 70873 | /*routdebugenter*/ | |||
| 70874 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70875 | f2py_start_clock(); | |||
| 70876 | #endif | |||
| 70877 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 70878 | "OO|OOOi:_flapack.ctbtrs",\ | |||
| 70879 | capi_kwlist,&ab_capi,&b_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b)) | |||
| 70880 | return NULL((void*)0); | |||
| 70881 | /*frompyobj*/ | |||
| 70882 | /* Processing variable ab */ | |||
| 70883 | ; | |||
| 70884 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 70885 | capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 70886 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 70887 | if (!PyErr_Occurred()) | |||
| 70888 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.ctbtrs to C/Fortran array" ); | |||
| 70889 | } else { | |||
| 70890 | ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 70891 | ||||
| 70892 | /* Processing variable b */ | |||
| 70893 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 70894 | ; | |||
| 70895 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 70896 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 70897 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 70898 | if (!PyErr_Occurred()) | |||
| 70899 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ctbtrs to C/Fortran array" ); | |||
| 70900 | } else { | |||
| 70901 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 70902 | ||||
| 70903 | /* Processing variable info */ | |||
| 70904 | /* Processing variable uplo */ | |||
| 70905 | slen(uplo)capi_uplo_len = 1; | |||
| 70906 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ctbtrs to C string"); | |||
| 70907 | if (f2py_success) { | |||
| 70908 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ctbtrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctbtrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 70909 | /* Processing variable ldab */ | |||
| 70910 | ldab = MAX(1, shape(ab, 0))((1 > ab_Dims[0]) ? (1) : (ab_Dims[0])); | |||
| 70911 | /* Processing variable n */ | |||
| 70912 | n = MAX(1, shape(ab, 1))((1 > ab_Dims[1]) ? (1) : (ab_Dims[1])); | |||
| 70913 | /* Processing variable kd */ | |||
| 70914 | kd = ldab-1; | |||
| 70915 | /* Processing variable ldb */ | |||
| 70916 | ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 70917 | CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","ctbtrs:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctbtrs:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb" , ldb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 70918 | /* Processing variable nrhs */ | |||
| 70919 | nrhs = MAX(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1])); | |||
| 70920 | /* Processing variable trans */ | |||
| 70921 | slen(trans)capi_trans_len = 1; | |||
| 70922 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.ctbtrs to C string"); | |||
| 70923 | if (f2py_success) { | |||
| 70924 | CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","2nd keyword trans","ctbtrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ctbtrs:slen(trans)=%d trans=\"%s\"" , "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""2nd keyword trans" , capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 70925 | /* Processing variable diag */ | |||
| 70926 | slen(diag)capi_diag_len = 1; | |||
| 70927 | f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 3rd keyword `diag' of _flapack.ctbtrs to C string"); | |||
| 70928 | if (f2py_success) { | |||
| 70929 | CHECKSTRING(*diag=='N'||*diag=='U',"*diag=='N'||*diag=='U'","3rd keyword diag","ctbtrs:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='N'||*diag=='U')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctbtrs:slen(diag)=%d diag=\"%s\"", "(""*diag=='N'||*diag=='U'" ") failed for ""3rd keyword diag", capi_diag_len, diag); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 70930 | /*end of frompyobj*/ | |||
| 70931 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70932 | f2py_start_call_clock(); | |||
| 70933 | #endif | |||
| 70934 | /*callfortranroutine*/ | |||
| 70935 | (*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info) ; | |||
| 70936 | /*(*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info,slen(uplo),slen(trans),slen(diag));*/ | |||
| 70937 | if (PyErr_Occurred()) | |||
| 70938 | f2py_success = 0; | |||
| 70939 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70940 | f2py_stop_call_clock(); | |||
| 70941 | #endif | |||
| 70942 | /*end of callfortranroutine*/ | |||
| 70943 | if (f2py_success) { | |||
| 70944 | /*pyobjfrom*/ | |||
| 70945 | /*end of pyobjfrom*/ | |||
| 70946 | CFUNCSMESS("Building return value.\n"); | |||
| 70947 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 70948 | /*closepyobjfrom*/ | |||
| 70949 | /*end of closepyobjfrom*/ | |||
| 70950 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 70951 | /*cleanupfrompyobj*/ | |||
| 70952 | } /*CHECKSTRING(*diag=='N'||*diag=='U')*/ | |||
| 70953 | STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0); | |||
| 70954 | } /*if (f2py_success) of diag*/ | |||
| 70955 | /* End of cleaning variable diag */ | |||
| 70956 | } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/ | |||
| 70957 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 70958 | } /*if (f2py_success) of trans*/ | |||
| 70959 | /* End of cleaning variable trans */ | |||
| 70960 | /* End of cleaning variable nrhs */ | |||
| 70961 | } /*CHECKSCALAR(ldb >= n)*/ | |||
| 70962 | /* End of cleaning variable ldb */ | |||
| 70963 | /* End of cleaning variable kd */ | |||
| 70964 | /* End of cleaning variable n */ | |||
| 70965 | /* End of cleaning variable ldab */ | |||
| 70966 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 70967 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 70968 | } /*if (f2py_success) of uplo*/ | |||
| 70969 | /* End of cleaning variable uplo */ | |||
| 70970 | /* End of cleaning variable info */ | |||
| 70971 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 70972 | /* End of cleaning variable b */ | |||
| 70973 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 70974 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 70975 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 70976 | /* End of cleaning variable ab */ | |||
| 70977 | /*end of cleanupfrompyobj*/ | |||
| 70978 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 70979 | /*routdebugfailure*/ | |||
| 70980 | } else { | |||
| 70981 | /*routdebugleave*/ | |||
| 70982 | } | |||
| 70983 | CFUNCSMESS("Freeing memory.\n"); | |||
| 70984 | /*freemem*/ | |||
| 70985 | #ifdef F2PY_REPORT_ATEXIT | |||
| 70986 | f2py_stop_clock(); | |||
| 70987 | #endif | |||
| 70988 | return capi_buildvalue; | |||
| 70989 | } | |||
| 70990 | /******************************* end of ctbtrs *******************************/ | |||
| 70991 | ||||
| 70992 | /*********************************** ztbtrs ***********************************/ | |||
| 70993 | static char doc_f2py_rout__flapack_ztbtrs[] = "\ | |||
| 70994 | x,info = ztbtrs(ab,b,[uplo,trans,diag,overwrite_b])\n\nWrapper for ``ztbtrs``.\ | |||
| 70995 | \n\nParameters\n----------\n" | |||
| 70996 | "ab : input rank-2 array('D') with bounds (ldab,n)\n" | |||
| 70997 | "b : input rank-2 array('D') with bounds (ldb,nrhs)\n" | |||
| 70998 | "\nOther Parameters\n----------------\n" | |||
| 70999 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 71000 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 71001 | "diag : input string(len=1), optional\n Default: 'N'\n" | |||
| 71002 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 71003 | "\nReturns\n-------\n" | |||
| 71004 | "x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n" | |||
| 71005 | "info : int"; | |||
| 71006 | /* extern void F_FUNC(ztbtrs,ZTBTRS)(char*,char*,char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 71007 | static PyObject *f2py_rout__flapack_ztbtrs(const PyObject *capi_self, | |||
| 71008 | PyObject *capi_args, | |||
| 71009 | PyObject *capi_keywds, | |||
| 71010 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 71011 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 71012 | volatile int f2py_success = 1; | |||
| 71013 | /*decl*/ | |||
| 71014 | ||||
| 71015 | string uplo = NULL((void*)0); | |||
| 71016 | int slen(uplo)capi_uplo_len; | |||
| 71017 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 71018 | string trans = NULL((void*)0); | |||
| 71019 | int slen(trans)capi_trans_len; | |||
| 71020 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 71021 | string diag = NULL((void*)0); | |||
| 71022 | int slen(diag)capi_diag_len; | |||
| 71023 | PyObject *diag_capi = Py_None(&_Py_NoneStruct); | |||
| 71024 | int n = 0; | |||
| 71025 | int kd = 0; | |||
| 71026 | int nrhs = 0; | |||
| 71027 | complex_double *ab = NULL((void*)0); | |||
| 71028 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 71029 | const int ab_Rank = 2; | |||
| 71030 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 71031 | int capi_ab_intent = 0; | |||
| 71032 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 71033 | int ldab = 0; | |||
| 71034 | complex_double *b = NULL((void*)0); | |||
| 71035 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 71036 | const int b_Rank = 2; | |||
| 71037 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 71038 | int capi_b_intent = 0; | |||
| 71039 | int capi_overwrite_b = 0; | |||
| 71040 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 71041 | int ldb = 0; | |||
| 71042 | int info = 0; | |||
| 71043 | static char *capi_kwlist[] = {"ab","b","uplo","trans","diag","overwrite_b",NULL((void*)0)}; | |||
| 71044 | ||||
| 71045 | /*routdebugenter*/ | |||
| 71046 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71047 | f2py_start_clock(); | |||
| 71048 | #endif | |||
| 71049 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 71050 | "OO|OOOi:_flapack.ztbtrs",\ | |||
| 71051 | capi_kwlist,&ab_capi,&b_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b)) | |||
| 71052 | return NULL((void*)0); | |||
| 71053 | /*frompyobj*/ | |||
| 71054 | /* Processing variable ab */ | |||
| 71055 | ; | |||
| 71056 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 71057 | capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 71058 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 71059 | if (!PyErr_Occurred()) | |||
| 71060 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.ztbtrs to C/Fortran array" ); | |||
| 71061 | } else { | |||
| 71062 | ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 71063 | ||||
| 71064 | /* Processing variable b */ | |||
| 71065 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 71066 | ; | |||
| 71067 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 71068 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 71069 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 71070 | if (!PyErr_Occurred()) | |||
| 71071 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ztbtrs to C/Fortran array" ); | |||
| 71072 | } else { | |||
| 71073 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 71074 | ||||
| 71075 | /* Processing variable info */ | |||
| 71076 | /* Processing variable uplo */ | |||
| 71077 | slen(uplo)capi_uplo_len = 1; | |||
| 71078 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ztbtrs to C string"); | |||
| 71079 | if (f2py_success) { | |||
| 71080 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ztbtrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztbtrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 71081 | /* Processing variable ldab */ | |||
| 71082 | ldab = MAX(1, shape(ab, 0))((1 > ab_Dims[0]) ? (1) : (ab_Dims[0])); | |||
| 71083 | /* Processing variable n */ | |||
| 71084 | n = MAX(1, shape(ab, 1))((1 > ab_Dims[1]) ? (1) : (ab_Dims[1])); | |||
| 71085 | /* Processing variable kd */ | |||
| 71086 | kd = ldab-1; | |||
| 71087 | /* Processing variable ldb */ | |||
| 71088 | ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 71089 | CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","ztbtrs:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztbtrs:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb" , ldb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 71090 | /* Processing variable nrhs */ | |||
| 71091 | nrhs = MAX(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1])); | |||
| 71092 | /* Processing variable trans */ | |||
| 71093 | slen(trans)capi_trans_len = 1; | |||
| 71094 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.ztbtrs to C string"); | |||
| 71095 | if (f2py_success) { | |||
| 71096 | CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","2nd keyword trans","ztbtrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ztbtrs:slen(trans)=%d trans=\"%s\"" , "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""2nd keyword trans" , capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 71097 | /* Processing variable diag */ | |||
| 71098 | slen(diag)capi_diag_len = 1; | |||
| 71099 | f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 3rd keyword `diag' of _flapack.ztbtrs to C string"); | |||
| 71100 | if (f2py_success) { | |||
| 71101 | CHECKSTRING(*diag=='N'||*diag=='U',"*diag=='N'||*diag=='U'","3rd keyword diag","ztbtrs:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='N'||*diag=='U')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztbtrs:slen(diag)=%d diag=\"%s\"", "(""*diag=='N'||*diag=='U'" ") failed for ""3rd keyword diag", capi_diag_len, diag); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 71102 | /*end of frompyobj*/ | |||
| 71103 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71104 | f2py_start_call_clock(); | |||
| 71105 | #endif | |||
| 71106 | /*callfortranroutine*/ | |||
| 71107 | (*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info) ; | |||
| 71108 | /*(*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info,slen(uplo),slen(trans),slen(diag));*/ | |||
| 71109 | if (PyErr_Occurred()) | |||
| 71110 | f2py_success = 0; | |||
| 71111 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71112 | f2py_stop_call_clock(); | |||
| 71113 | #endif | |||
| 71114 | /*end of callfortranroutine*/ | |||
| 71115 | if (f2py_success) { | |||
| 71116 | /*pyobjfrom*/ | |||
| 71117 | /*end of pyobjfrom*/ | |||
| 71118 | CFUNCSMESS("Building return value.\n"); | |||
| 71119 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 71120 | /*closepyobjfrom*/ | |||
| 71121 | /*end of closepyobjfrom*/ | |||
| 71122 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 71123 | /*cleanupfrompyobj*/ | |||
| 71124 | } /*CHECKSTRING(*diag=='N'||*diag=='U')*/ | |||
| 71125 | STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0); | |||
| 71126 | } /*if (f2py_success) of diag*/ | |||
| 71127 | /* End of cleaning variable diag */ | |||
| 71128 | } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/ | |||
| 71129 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 71130 | } /*if (f2py_success) of trans*/ | |||
| 71131 | /* End of cleaning variable trans */ | |||
| 71132 | /* End of cleaning variable nrhs */ | |||
| 71133 | } /*CHECKSCALAR(ldb >= n)*/ | |||
| 71134 | /* End of cleaning variable ldb */ | |||
| 71135 | /* End of cleaning variable kd */ | |||
| 71136 | /* End of cleaning variable n */ | |||
| 71137 | /* End of cleaning variable ldab */ | |||
| 71138 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 71139 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 71140 | } /*if (f2py_success) of uplo*/ | |||
| 71141 | /* End of cleaning variable uplo */ | |||
| 71142 | /* End of cleaning variable info */ | |||
| 71143 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 71144 | /* End of cleaning variable b */ | |||
| 71145 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 71146 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 71147 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 71148 | /* End of cleaning variable ab */ | |||
| 71149 | /*end of cleanupfrompyobj*/ | |||
| 71150 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 71151 | /*routdebugfailure*/ | |||
| 71152 | } else { | |||
| 71153 | /*routdebugleave*/ | |||
| 71154 | } | |||
| 71155 | CFUNCSMESS("Freeing memory.\n"); | |||
| 71156 | /*freemem*/ | |||
| 71157 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71158 | f2py_stop_clock(); | |||
| 71159 | #endif | |||
| 71160 | return capi_buildvalue; | |||
| 71161 | } | |||
| 71162 | /******************************* end of ztbtrs *******************************/ | |||
| 71163 | ||||
| 71164 | /*********************************** spbsv ***********************************/ | |||
| 71165 | static char doc_f2py_rout__flapack_spbsv[] = "\ | |||
| 71166 | c,x,info = spbsv(ab,b,[lower,ldab,overwrite_ab,overwrite_b])\n\nWrapper for ``spbsv``.\ | |||
| 71167 | \n\nParameters\n----------\n" | |||
| 71168 | "ab : input rank-2 array('f') with bounds (ldab,n)\n" | |||
| 71169 | "b : input rank-2 array('f') with bounds (ldb,nrhs)\n" | |||
| 71170 | "\nOther Parameters\n----------------\n" | |||
| 71171 | "lower : input int, optional\n Default: 0\n" | |||
| 71172 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 71173 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 71174 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 71175 | "\nReturns\n-------\n" | |||
| 71176 | "c : rank-2 array('f') with bounds (ldab,n) and ab storage\n" | |||
| 71177 | "x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n" | |||
| 71178 | "info : int"; | |||
| 71179 | /* extern void F_FUNC(spbsv,SPBSV)(char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 71180 | static PyObject *f2py_rout__flapack_spbsv(const PyObject *capi_self, | |||
| 71181 | PyObject *capi_args, | |||
| 71182 | PyObject *capi_keywds, | |||
| 71183 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 71184 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 71185 | volatile int f2py_success = 1; | |||
| 71186 | /*decl*/ | |||
| 71187 | ||||
| 71188 | int lower = 0; | |||
| 71189 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 71190 | int n = 0; | |||
| 71191 | int kd = 0; | |||
| 71192 | int nrhs = 0; | |||
| 71193 | float *ab = NULL((void*)0); | |||
| 71194 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 71195 | const int ab_Rank = 2; | |||
| 71196 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 71197 | int capi_ab_intent = 0; | |||
| 71198 | int capi_overwrite_ab = 0; | |||
| 71199 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 71200 | int ldab = 0; | |||
| 71201 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 71202 | float *b = NULL((void*)0); | |||
| 71203 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 71204 | const int b_Rank = 2; | |||
| 71205 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 71206 | int capi_b_intent = 0; | |||
| 71207 | int capi_overwrite_b = 0; | |||
| 71208 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 71209 | int ldb = 0; | |||
| 71210 | int info = 0; | |||
| 71211 | static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_ab","overwrite_b",NULL((void*)0)}; | |||
| 71212 | ||||
| 71213 | /*routdebugenter*/ | |||
| 71214 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71215 | f2py_start_clock(); | |||
| 71216 | #endif | |||
| 71217 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 71218 | "OO|OOii:_flapack.spbsv",\ | |||
| 71219 | capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab,&capi_overwrite_b)) | |||
| 71220 | return NULL((void*)0); | |||
| 71221 | /*frompyobj*/ | |||
| 71222 | /* Processing variable lower */ | |||
| 71223 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 71224 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spbsv() 1st keyword (lower) can't be converted to int"); | |||
| 71225 | if (f2py_success) { | |||
| 71226 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spbsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spbsv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 71227 | /* Processing variable b */ | |||
| 71228 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 71229 | ; | |||
| 71230 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 71231 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 71232 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 71233 | if (!PyErr_Occurred()) | |||
| 71234 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.spbsv to C/Fortran array" ); | |||
| 71235 | } else { | |||
| 71236 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 71237 | ||||
| 71238 | /* Processing variable ab */ | |||
| 71239 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 71240 | ; | |||
| 71241 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 71242 | capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 71243 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 71244 | if (!PyErr_Occurred()) | |||
| 71245 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.spbsv to C/Fortran array" ); | |||
| 71246 | } else { | |||
| 71247 | ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 71248 | ||||
| 71249 | /* Processing variable info */ | |||
| 71250 | /* Processing variable ldab */ | |||
| 71251 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 71252 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.spbsv() 2nd keyword (ldab) can't be converted to int"); | |||
| 71253 | if (f2py_success) { | |||
| 71254 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","spbsv:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spbsv:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 71255 | /* Processing variable n */ | |||
| 71256 | n = shape(ab,1)ab_Dims[1]; | |||
| 71257 | /* Processing variable kd */ | |||
| 71258 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 71259 | /* Processing variable ldb */ | |||
| 71260 | ldb = shape(b,0)b_Dims[0]; | |||
| 71261 | /* Processing variable nrhs */ | |||
| 71262 | nrhs = shape(b,1)b_Dims[1]; | |||
| 71263 | /*end of frompyobj*/ | |||
| 71264 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71265 | f2py_start_call_clock(); | |||
| 71266 | #endif | |||
| 71267 | /*callfortranroutine*/ | |||
| 71268 | (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ; | |||
| 71269 | /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/ | |||
| 71270 | if (PyErr_Occurred()) | |||
| 71271 | f2py_success = 0; | |||
| 71272 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71273 | f2py_stop_call_clock(); | |||
| 71274 | #endif | |||
| 71275 | /*end of callfortranroutine*/ | |||
| 71276 | if (f2py_success) { | |||
| 71277 | /*pyobjfrom*/ | |||
| 71278 | /*end of pyobjfrom*/ | |||
| 71279 | CFUNCSMESS("Building return value.\n"); | |||
| 71280 | capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_b_tmp,info); | |||
| 71281 | /*closepyobjfrom*/ | |||
| 71282 | /*end of closepyobjfrom*/ | |||
| 71283 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 71284 | /*cleanupfrompyobj*/ | |||
| 71285 | /* End of cleaning variable nrhs */ | |||
| 71286 | /* End of cleaning variable ldb */ | |||
| 71287 | /* End of cleaning variable kd */ | |||
| 71288 | /* End of cleaning variable n */ | |||
| 71289 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 71290 | } /*if (f2py_success) of ldab*/ | |||
| 71291 | /* End of cleaning variable ldab */ | |||
| 71292 | /* End of cleaning variable info */ | |||
| 71293 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 71294 | /* End of cleaning variable ab */ | |||
| 71295 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 71296 | /* End of cleaning variable b */ | |||
| 71297 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 71298 | } /*if (f2py_success) of lower*/ | |||
| 71299 | /* End of cleaning variable lower */ | |||
| 71300 | /*end of cleanupfrompyobj*/ | |||
| 71301 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 71302 | /*routdebugfailure*/ | |||
| 71303 | } else { | |||
| 71304 | /*routdebugleave*/ | |||
| 71305 | } | |||
| 71306 | CFUNCSMESS("Freeing memory.\n"); | |||
| 71307 | /*freemem*/ | |||
| 71308 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71309 | f2py_stop_clock(); | |||
| 71310 | #endif | |||
| 71311 | return capi_buildvalue; | |||
| 71312 | } | |||
| 71313 | /******************************** end of spbsv ********************************/ | |||
| 71314 | ||||
| 71315 | /*********************************** dpbsv ***********************************/ | |||
| 71316 | static char doc_f2py_rout__flapack_dpbsv[] = "\ | |||
| 71317 | c,x,info = dpbsv(ab,b,[lower,ldab,overwrite_ab,overwrite_b])\n\nWrapper for ``dpbsv``.\ | |||
| 71318 | \n\nParameters\n----------\n" | |||
| 71319 | "ab : input rank-2 array('d') with bounds (ldab,n)\n" | |||
| 71320 | "b : input rank-2 array('d') with bounds (ldb,nrhs)\n" | |||
| 71321 | "\nOther Parameters\n----------------\n" | |||
| 71322 | "lower : input int, optional\n Default: 0\n" | |||
| 71323 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 71324 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 71325 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 71326 | "\nReturns\n-------\n" | |||
| 71327 | "c : rank-2 array('d') with bounds (ldab,n) and ab storage\n" | |||
| 71328 | "x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n" | |||
| 71329 | "info : int"; | |||
| 71330 | /* extern void F_FUNC(dpbsv,DPBSV)(char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 71331 | static PyObject *f2py_rout__flapack_dpbsv(const PyObject *capi_self, | |||
| 71332 | PyObject *capi_args, | |||
| 71333 | PyObject *capi_keywds, | |||
| 71334 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 71335 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 71336 | volatile int f2py_success = 1; | |||
| 71337 | /*decl*/ | |||
| 71338 | ||||
| 71339 | int lower = 0; | |||
| 71340 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 71341 | int n = 0; | |||
| 71342 | int kd = 0; | |||
| 71343 | int nrhs = 0; | |||
| 71344 | double *ab = NULL((void*)0); | |||
| 71345 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 71346 | const int ab_Rank = 2; | |||
| 71347 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 71348 | int capi_ab_intent = 0; | |||
| 71349 | int capi_overwrite_ab = 0; | |||
| 71350 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 71351 | int ldab = 0; | |||
| 71352 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 71353 | double *b = NULL((void*)0); | |||
| 71354 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 71355 | const int b_Rank = 2; | |||
| 71356 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 71357 | int capi_b_intent = 0; | |||
| 71358 | int capi_overwrite_b = 0; | |||
| 71359 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 71360 | int ldb = 0; | |||
| 71361 | int info = 0; | |||
| 71362 | static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_ab","overwrite_b",NULL((void*)0)}; | |||
| 71363 | ||||
| 71364 | /*routdebugenter*/ | |||
| 71365 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71366 | f2py_start_clock(); | |||
| 71367 | #endif | |||
| 71368 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 71369 | "OO|OOii:_flapack.dpbsv",\ | |||
| 71370 | capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab,&capi_overwrite_b)) | |||
| 71371 | return NULL((void*)0); | |||
| 71372 | /*frompyobj*/ | |||
| 71373 | /* Processing variable lower */ | |||
| 71374 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 71375 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpbsv() 1st keyword (lower) can't be converted to int"); | |||
| 71376 | if (f2py_success) { | |||
| 71377 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpbsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpbsv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 71378 | /* Processing variable b */ | |||
| 71379 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 71380 | ; | |||
| 71381 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 71382 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 71383 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 71384 | if (!PyErr_Occurred()) | |||
| 71385 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dpbsv to C/Fortran array" ); | |||
| 71386 | } else { | |||
| 71387 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 71388 | ||||
| 71389 | /* Processing variable ab */ | |||
| 71390 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 71391 | ; | |||
| 71392 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 71393 | capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 71394 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 71395 | if (!PyErr_Occurred()) | |||
| 71396 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dpbsv to C/Fortran array" ); | |||
| 71397 | } else { | |||
| 71398 | ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 71399 | ||||
| 71400 | /* Processing variable info */ | |||
| 71401 | /* Processing variable ldab */ | |||
| 71402 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 71403 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dpbsv() 2nd keyword (ldab) can't be converted to int"); | |||
| 71404 | if (f2py_success) { | |||
| 71405 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","dpbsv:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpbsv:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 71406 | /* Processing variable n */ | |||
| 71407 | n = shape(ab,1)ab_Dims[1]; | |||
| 71408 | /* Processing variable kd */ | |||
| 71409 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 71410 | /* Processing variable ldb */ | |||
| 71411 | ldb = shape(b,0)b_Dims[0]; | |||
| 71412 | /* Processing variable nrhs */ | |||
| 71413 | nrhs = shape(b,1)b_Dims[1]; | |||
| 71414 | /*end of frompyobj*/ | |||
| 71415 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71416 | f2py_start_call_clock(); | |||
| 71417 | #endif | |||
| 71418 | /*callfortranroutine*/ | |||
| 71419 | (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ; | |||
| 71420 | /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/ | |||
| 71421 | if (PyErr_Occurred()) | |||
| 71422 | f2py_success = 0; | |||
| 71423 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71424 | f2py_stop_call_clock(); | |||
| 71425 | #endif | |||
| 71426 | /*end of callfortranroutine*/ | |||
| 71427 | if (f2py_success) { | |||
| 71428 | /*pyobjfrom*/ | |||
| 71429 | /*end of pyobjfrom*/ | |||
| 71430 | CFUNCSMESS("Building return value.\n"); | |||
| 71431 | capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_b_tmp,info); | |||
| 71432 | /*closepyobjfrom*/ | |||
| 71433 | /*end of closepyobjfrom*/ | |||
| 71434 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 71435 | /*cleanupfrompyobj*/ | |||
| 71436 | /* End of cleaning variable nrhs */ | |||
| 71437 | /* End of cleaning variable ldb */ | |||
| 71438 | /* End of cleaning variable kd */ | |||
| 71439 | /* End of cleaning variable n */ | |||
| 71440 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 71441 | } /*if (f2py_success) of ldab*/ | |||
| 71442 | /* End of cleaning variable ldab */ | |||
| 71443 | /* End of cleaning variable info */ | |||
| 71444 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 71445 | /* End of cleaning variable ab */ | |||
| 71446 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 71447 | /* End of cleaning variable b */ | |||
| 71448 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 71449 | } /*if (f2py_success) of lower*/ | |||
| 71450 | /* End of cleaning variable lower */ | |||
| 71451 | /*end of cleanupfrompyobj*/ | |||
| 71452 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 71453 | /*routdebugfailure*/ | |||
| 71454 | } else { | |||
| 71455 | /*routdebugleave*/ | |||
| 71456 | } | |||
| 71457 | CFUNCSMESS("Freeing memory.\n"); | |||
| 71458 | /*freemem*/ | |||
| 71459 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71460 | f2py_stop_clock(); | |||
| 71461 | #endif | |||
| 71462 | return capi_buildvalue; | |||
| 71463 | } | |||
| 71464 | /******************************** end of dpbsv ********************************/ | |||
| 71465 | ||||
| 71466 | /*********************************** cpbsv ***********************************/ | |||
| 71467 | static char doc_f2py_rout__flapack_cpbsv[] = "\ | |||
| 71468 | c,x,info = cpbsv(ab,b,[lower,ldab,overwrite_ab,overwrite_b])\n\nWrapper for ``cpbsv``.\ | |||
| 71469 | \n\nParameters\n----------\n" | |||
| 71470 | "ab : input rank-2 array('F') with bounds (ldab,n)\n" | |||
| 71471 | "b : input rank-2 array('F') with bounds (ldb,nrhs)\n" | |||
| 71472 | "\nOther Parameters\n----------------\n" | |||
| 71473 | "lower : input int, optional\n Default: 0\n" | |||
| 71474 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 71475 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 71476 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 71477 | "\nReturns\n-------\n" | |||
| 71478 | "c : rank-2 array('F') with bounds (ldab,n) and ab storage\n" | |||
| 71479 | "x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n" | |||
| 71480 | "info : int"; | |||
| 71481 | /* extern void F_FUNC(cpbsv,CPBSV)(char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 71482 | static PyObject *f2py_rout__flapack_cpbsv(const PyObject *capi_self, | |||
| 71483 | PyObject *capi_args, | |||
| 71484 | PyObject *capi_keywds, | |||
| 71485 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 71486 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 71487 | volatile int f2py_success = 1; | |||
| 71488 | /*decl*/ | |||
| 71489 | ||||
| 71490 | int lower = 0; | |||
| 71491 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 71492 | int n = 0; | |||
| 71493 | int kd = 0; | |||
| 71494 | int nrhs = 0; | |||
| 71495 | complex_float *ab = NULL((void*)0); | |||
| 71496 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 71497 | const int ab_Rank = 2; | |||
| 71498 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 71499 | int capi_ab_intent = 0; | |||
| 71500 | int capi_overwrite_ab = 0; | |||
| 71501 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 71502 | int ldab = 0; | |||
| 71503 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 71504 | complex_float *b = NULL((void*)0); | |||
| 71505 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 71506 | const int b_Rank = 2; | |||
| 71507 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 71508 | int capi_b_intent = 0; | |||
| 71509 | int capi_overwrite_b = 0; | |||
| 71510 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 71511 | int ldb = 0; | |||
| 71512 | int info = 0; | |||
| 71513 | static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_ab","overwrite_b",NULL((void*)0)}; | |||
| 71514 | ||||
| 71515 | /*routdebugenter*/ | |||
| 71516 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71517 | f2py_start_clock(); | |||
| 71518 | #endif | |||
| 71519 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 71520 | "OO|OOii:_flapack.cpbsv",\ | |||
| 71521 | capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab,&capi_overwrite_b)) | |||
| 71522 | return NULL((void*)0); | |||
| 71523 | /*frompyobj*/ | |||
| 71524 | /* Processing variable lower */ | |||
| 71525 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 71526 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpbsv() 1st keyword (lower) can't be converted to int"); | |||
| 71527 | if (f2py_success) { | |||
| 71528 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpbsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpbsv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 71529 | /* Processing variable b */ | |||
| 71530 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 71531 | ; | |||
| 71532 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 71533 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 71534 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 71535 | if (!PyErr_Occurred()) | |||
| 71536 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cpbsv to C/Fortran array" ); | |||
| 71537 | } else { | |||
| 71538 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 71539 | ||||
| 71540 | /* Processing variable ab */ | |||
| 71541 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 71542 | ; | |||
| 71543 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 71544 | capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 71545 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 71546 | if (!PyErr_Occurred()) | |||
| 71547 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.cpbsv to C/Fortran array" ); | |||
| 71548 | } else { | |||
| 71549 | ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 71550 | ||||
| 71551 | /* Processing variable info */ | |||
| 71552 | /* Processing variable ldab */ | |||
| 71553 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 71554 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.cpbsv() 2nd keyword (ldab) can't be converted to int"); | |||
| 71555 | if (f2py_success) { | |||
| 71556 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","cpbsv:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpbsv:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 71557 | /* Processing variable n */ | |||
| 71558 | n = shape(ab,1)ab_Dims[1]; | |||
| 71559 | /* Processing variable kd */ | |||
| 71560 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 71561 | /* Processing variable ldb */ | |||
| 71562 | ldb = shape(b,0)b_Dims[0]; | |||
| 71563 | /* Processing variable nrhs */ | |||
| 71564 | nrhs = shape(b,1)b_Dims[1]; | |||
| 71565 | /*end of frompyobj*/ | |||
| 71566 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71567 | f2py_start_call_clock(); | |||
| 71568 | #endif | |||
| 71569 | /*callfortranroutine*/ | |||
| 71570 | (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ; | |||
| 71571 | /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/ | |||
| 71572 | if (PyErr_Occurred()) | |||
| 71573 | f2py_success = 0; | |||
| 71574 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71575 | f2py_stop_call_clock(); | |||
| 71576 | #endif | |||
| 71577 | /*end of callfortranroutine*/ | |||
| 71578 | if (f2py_success) { | |||
| 71579 | /*pyobjfrom*/ | |||
| 71580 | /*end of pyobjfrom*/ | |||
| 71581 | CFUNCSMESS("Building return value.\n"); | |||
| 71582 | capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_b_tmp,info); | |||
| 71583 | /*closepyobjfrom*/ | |||
| 71584 | /*end of closepyobjfrom*/ | |||
| 71585 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 71586 | /*cleanupfrompyobj*/ | |||
| 71587 | /* End of cleaning variable nrhs */ | |||
| 71588 | /* End of cleaning variable ldb */ | |||
| 71589 | /* End of cleaning variable kd */ | |||
| 71590 | /* End of cleaning variable n */ | |||
| 71591 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 71592 | } /*if (f2py_success) of ldab*/ | |||
| 71593 | /* End of cleaning variable ldab */ | |||
| 71594 | /* End of cleaning variable info */ | |||
| 71595 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 71596 | /* End of cleaning variable ab */ | |||
| 71597 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 71598 | /* End of cleaning variable b */ | |||
| 71599 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 71600 | } /*if (f2py_success) of lower*/ | |||
| 71601 | /* End of cleaning variable lower */ | |||
| 71602 | /*end of cleanupfrompyobj*/ | |||
| 71603 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 71604 | /*routdebugfailure*/ | |||
| 71605 | } else { | |||
| 71606 | /*routdebugleave*/ | |||
| 71607 | } | |||
| 71608 | CFUNCSMESS("Freeing memory.\n"); | |||
| 71609 | /*freemem*/ | |||
| 71610 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71611 | f2py_stop_clock(); | |||
| 71612 | #endif | |||
| 71613 | return capi_buildvalue; | |||
| 71614 | } | |||
| 71615 | /******************************** end of cpbsv ********************************/ | |||
| 71616 | ||||
| 71617 | /*********************************** zpbsv ***********************************/ | |||
| 71618 | static char doc_f2py_rout__flapack_zpbsv[] = "\ | |||
| 71619 | c,x,info = zpbsv(ab,b,[lower,ldab,overwrite_ab,overwrite_b])\n\nWrapper for ``zpbsv``.\ | |||
| 71620 | \n\nParameters\n----------\n" | |||
| 71621 | "ab : input rank-2 array('D') with bounds (ldab,n)\n" | |||
| 71622 | "b : input rank-2 array('D') with bounds (ldb,nrhs)\n" | |||
| 71623 | "\nOther Parameters\n----------------\n" | |||
| 71624 | "lower : input int, optional\n Default: 0\n" | |||
| 71625 | "overwrite_ab : input int, optional\n Default: 0\n" | |||
| 71626 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 71627 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 71628 | "\nReturns\n-------\n" | |||
| 71629 | "c : rank-2 array('D') with bounds (ldab,n) and ab storage\n" | |||
| 71630 | "x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n" | |||
| 71631 | "info : int"; | |||
| 71632 | /* extern void F_FUNC(zpbsv,ZPBSV)(char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 71633 | static PyObject *f2py_rout__flapack_zpbsv(const PyObject *capi_self, | |||
| 71634 | PyObject *capi_args, | |||
| 71635 | PyObject *capi_keywds, | |||
| 71636 | void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 71637 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 71638 | volatile int f2py_success = 1; | |||
| 71639 | /*decl*/ | |||
| 71640 | ||||
| 71641 | int lower = 0; | |||
| 71642 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 71643 | int n = 0; | |||
| 71644 | int kd = 0; | |||
| 71645 | int nrhs = 0; | |||
| 71646 | complex_double *ab = NULL((void*)0); | |||
| 71647 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 71648 | const int ab_Rank = 2; | |||
| 71649 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 71650 | int capi_ab_intent = 0; | |||
| 71651 | int capi_overwrite_ab = 0; | |||
| 71652 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 71653 | int ldab = 0; | |||
| 71654 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 71655 | complex_double *b = NULL((void*)0); | |||
| 71656 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 71657 | const int b_Rank = 2; | |||
| 71658 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 71659 | int capi_b_intent = 0; | |||
| 71660 | int capi_overwrite_b = 0; | |||
| 71661 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 71662 | int ldb = 0; | |||
| 71663 | int info = 0; | |||
| 71664 | static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_ab","overwrite_b",NULL((void*)0)}; | |||
| 71665 | ||||
| 71666 | /*routdebugenter*/ | |||
| 71667 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71668 | f2py_start_clock(); | |||
| 71669 | #endif | |||
| 71670 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 71671 | "OO|OOii:_flapack.zpbsv",\ | |||
| 71672 | capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab,&capi_overwrite_b)) | |||
| 71673 | return NULL((void*)0); | |||
| 71674 | /*frompyobj*/ | |||
| 71675 | /* Processing variable lower */ | |||
| 71676 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 71677 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpbsv() 1st keyword (lower) can't be converted to int"); | |||
| 71678 | if (f2py_success) { | |||
| 71679 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpbsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpbsv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 71680 | /* Processing variable b */ | |||
| 71681 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 71682 | ; | |||
| 71683 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 71684 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 71685 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 71686 | if (!PyErr_Occurred()) | |||
| 71687 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zpbsv to C/Fortran array" ); | |||
| 71688 | } else { | |||
| 71689 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 71690 | ||||
| 71691 | /* Processing variable ab */ | |||
| 71692 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 71693 | ; | |||
| 71694 | capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 71695 | capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 71696 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 71697 | if (!PyErr_Occurred()) | |||
| 71698 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zpbsv to C/Fortran array" ); | |||
| 71699 | } else { | |||
| 71700 | ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 71701 | ||||
| 71702 | /* Processing variable info */ | |||
| 71703 | /* Processing variable ldab */ | |||
| 71704 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 71705 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zpbsv() 2nd keyword (ldab) can't be converted to int"); | |||
| 71706 | if (f2py_success) { | |||
| 71707 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","zpbsv:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpbsv:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 71708 | /* Processing variable n */ | |||
| 71709 | n = shape(ab,1)ab_Dims[1]; | |||
| 71710 | /* Processing variable kd */ | |||
| 71711 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 71712 | /* Processing variable ldb */ | |||
| 71713 | ldb = shape(b,0)b_Dims[0]; | |||
| 71714 | /* Processing variable nrhs */ | |||
| 71715 | nrhs = shape(b,1)b_Dims[1]; | |||
| 71716 | /*end of frompyobj*/ | |||
| 71717 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71718 | f2py_start_call_clock(); | |||
| 71719 | #endif | |||
| 71720 | /*callfortranroutine*/ | |||
| 71721 | (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ; | |||
| 71722 | /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/ | |||
| 71723 | if (PyErr_Occurred()) | |||
| 71724 | f2py_success = 0; | |||
| 71725 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71726 | f2py_stop_call_clock(); | |||
| 71727 | #endif | |||
| 71728 | /*end of callfortranroutine*/ | |||
| 71729 | if (f2py_success) { | |||
| 71730 | /*pyobjfrom*/ | |||
| 71731 | /*end of pyobjfrom*/ | |||
| 71732 | CFUNCSMESS("Building return value.\n"); | |||
| 71733 | capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_b_tmp,info); | |||
| 71734 | /*closepyobjfrom*/ | |||
| 71735 | /*end of closepyobjfrom*/ | |||
| 71736 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 71737 | /*cleanupfrompyobj*/ | |||
| 71738 | /* End of cleaning variable nrhs */ | |||
| 71739 | /* End of cleaning variable ldb */ | |||
| 71740 | /* End of cleaning variable kd */ | |||
| 71741 | /* End of cleaning variable n */ | |||
| 71742 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 71743 | } /*if (f2py_success) of ldab*/ | |||
| 71744 | /* End of cleaning variable ldab */ | |||
| 71745 | /* End of cleaning variable info */ | |||
| 71746 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 71747 | /* End of cleaning variable ab */ | |||
| 71748 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 71749 | /* End of cleaning variable b */ | |||
| 71750 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 71751 | } /*if (f2py_success) of lower*/ | |||
| 71752 | /* End of cleaning variable lower */ | |||
| 71753 | /*end of cleanupfrompyobj*/ | |||
| 71754 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 71755 | /*routdebugfailure*/ | |||
| 71756 | } else { | |||
| 71757 | /*routdebugleave*/ | |||
| 71758 | } | |||
| 71759 | CFUNCSMESS("Freeing memory.\n"); | |||
| 71760 | /*freemem*/ | |||
| 71761 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71762 | f2py_stop_clock(); | |||
| 71763 | #endif | |||
| 71764 | return capi_buildvalue; | |||
| 71765 | } | |||
| 71766 | /******************************** end of zpbsv ********************************/ | |||
| 71767 | ||||
| 71768 | /*********************************** sorcsd ***********************************/ | |||
| 71769 | static char doc_f2py_rout__flapack_sorcsd[] = "\ | |||
| 71770 | cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = sorcsd(x11,x12,x21,x22,[compute_u1,compute_u2,compute_v1t,compute_v2t,trans,signs,lwork,overwrite_x11,overwrite_x12,overwrite_x21,overwrite_x22])\n\nWrapper for ``sorcsd``.\ | |||
| 71771 | \n\nParameters\n----------\n" | |||
| 71772 | "x11 : input rank-2 array('f') with bounds (p,q)\n" | |||
| 71773 | "x12 : input rank-2 array('f') with bounds (p,mmq)\n" | |||
| 71774 | "x21 : input rank-2 array('f') with bounds (mmp,q)\n" | |||
| 71775 | "x22 : input rank-2 array('f') with bounds (mmp,mmq)\n" | |||
| 71776 | "\nOther Parameters\n----------------\n" | |||
| 71777 | "compute_u1 : input int, optional\n Default: 1\n" | |||
| 71778 | "compute_u2 : input int, optional\n Default: 1\n" | |||
| 71779 | "compute_v1t : input int, optional\n Default: 1\n" | |||
| 71780 | "compute_v2t : input int, optional\n Default: 1\n" | |||
| 71781 | "trans : input int, optional\n Default: 0\n" | |||
| 71782 | "signs : input int, optional\n Default: 0\n" | |||
| 71783 | "overwrite_x11 : input int, optional\n Default: 0\n" | |||
| 71784 | "overwrite_x12 : input int, optional\n Default: 0\n" | |||
| 71785 | "overwrite_x21 : input int, optional\n Default: 0\n" | |||
| 71786 | "overwrite_x22 : input int, optional\n Default: 0\n" | |||
| 71787 | "lwork : input int, optional\n Default: 2+2*m+5*MAX(1,q-1)+4*MAX(1,q)+8*q\n" | |||
| 71788 | "\nReturns\n-------\n" | |||
| 71789 | "cs11 : rank-2 array('f') with bounds (p,q) and x11 storage\n" | |||
| 71790 | "cs12 : rank-2 array('f') with bounds (p,mmq) and x12 storage\n" | |||
| 71791 | "cs21 : rank-2 array('f') with bounds (mmp,q) and x21 storage\n" | |||
| 71792 | "cs22 : rank-2 array('f') with bounds (mmp,mmq) and x22 storage\n" | |||
| 71793 | "theta : rank-1 array('f') with bounds (min(min(p,mmp),min(q,mmq)))\n" | |||
| 71794 | "u1 : rank-2 array('f') with bounds ((compute_u1?p:0),(compute_u1?p:0))\n" | |||
| 71795 | "u2 : rank-2 array('f') with bounds ((compute_u2?mmp:0),(compute_u2?mmp:0))\n" | |||
| 71796 | "v1t : rank-2 array('f') with bounds ((compute_v1t?q:0),(compute_v1t?q:0))\n" | |||
| 71797 | "v2t : rank-2 array('f') with bounds ((compute_v2t?mmq:0),(compute_v2t?mmq:0))\n" | |||
| 71798 | "info : int"; | |||
| 71799 | /* extern void F_FUNC(sorcsd,SORCSD)(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 71800 | static PyObject *f2py_rout__flapack_sorcsd(const PyObject *capi_self, | |||
| 71801 | PyObject *capi_args, | |||
| 71802 | PyObject *capi_keywds, | |||
| 71803 | void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 71804 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 71805 | volatile int f2py_success = 1; | |||
| 71806 | /*decl*/ | |||
| 71807 | ||||
| 71808 | int compute_u1 = 0; | |||
| 71809 | PyObject *compute_u1_capi = Py_None(&_Py_NoneStruct); | |||
| 71810 | int compute_u2 = 0; | |||
| 71811 | PyObject *compute_u2_capi = Py_None(&_Py_NoneStruct); | |||
| 71812 | int compute_v1t = 0; | |||
| 71813 | PyObject *compute_v1t_capi = Py_None(&_Py_NoneStruct); | |||
| 71814 | int compute_v2t = 0; | |||
| 71815 | PyObject *compute_v2t_capi = Py_None(&_Py_NoneStruct); | |||
| 71816 | int trans = 0; | |||
| 71817 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 71818 | int signs = 0; | |||
| 71819 | PyObject *signs_capi = Py_None(&_Py_NoneStruct); | |||
| 71820 | int m = 0; | |||
| 71821 | int p = 0; | |||
| 71822 | int q = 0; | |||
| 71823 | float *x11 = NULL((void*)0); | |||
| 71824 | npy_intp x11_Dims[2] = {-1, -1}; | |||
| 71825 | const int x11_Rank = 2; | |||
| 71826 | PyArrayObject *capi_x11_tmp = NULL((void*)0); | |||
| 71827 | int capi_x11_intent = 0; | |||
| 71828 | int capi_overwrite_x11 = 0; | |||
| 71829 | PyObject *x11_capi = Py_None(&_Py_NoneStruct); | |||
| 71830 | int ldx11 = 0; | |||
| 71831 | float *x12 = NULL((void*)0); | |||
| 71832 | npy_intp x12_Dims[2] = {-1, -1}; | |||
| 71833 | const int x12_Rank = 2; | |||
| 71834 | PyArrayObject *capi_x12_tmp = NULL((void*)0); | |||
| 71835 | int capi_x12_intent = 0; | |||
| 71836 | int capi_overwrite_x12 = 0; | |||
| 71837 | PyObject *x12_capi = Py_None(&_Py_NoneStruct); | |||
| 71838 | int ldx12 = 0; | |||
| 71839 | float *x21 = NULL((void*)0); | |||
| 71840 | npy_intp x21_Dims[2] = {-1, -1}; | |||
| 71841 | const int x21_Rank = 2; | |||
| 71842 | PyArrayObject *capi_x21_tmp = NULL((void*)0); | |||
| 71843 | int capi_x21_intent = 0; | |||
| 71844 | int capi_overwrite_x21 = 0; | |||
| 71845 | PyObject *x21_capi = Py_None(&_Py_NoneStruct); | |||
| 71846 | int ldx21 = 0; | |||
| 71847 | float *x22 = NULL((void*)0); | |||
| 71848 | npy_intp x22_Dims[2] = {-1, -1}; | |||
| 71849 | const int x22_Rank = 2; | |||
| 71850 | PyArrayObject *capi_x22_tmp = NULL((void*)0); | |||
| 71851 | int capi_x22_intent = 0; | |||
| 71852 | int capi_overwrite_x22 = 0; | |||
| 71853 | PyObject *x22_capi = Py_None(&_Py_NoneStruct); | |||
| 71854 | int ldx22 = 0; | |||
| 71855 | float *theta = NULL((void*)0); | |||
| 71856 | npy_intp theta_Dims[1] = {-1}; | |||
| 71857 | const int theta_Rank = 1; | |||
| 71858 | PyArrayObject *capi_theta_tmp = NULL((void*)0); | |||
| 71859 | int capi_theta_intent = 0; | |||
| 71860 | float *u1 = NULL((void*)0); | |||
| 71861 | npy_intp u1_Dims[2] = {-1, -1}; | |||
| 71862 | const int u1_Rank = 2; | |||
| 71863 | PyArrayObject *capi_u1_tmp = NULL((void*)0); | |||
| 71864 | int capi_u1_intent = 0; | |||
| 71865 | int ldu1 = 0; | |||
| 71866 | float *u2 = NULL((void*)0); | |||
| 71867 | npy_intp u2_Dims[2] = {-1, -1}; | |||
| 71868 | const int u2_Rank = 2; | |||
| 71869 | PyArrayObject *capi_u2_tmp = NULL((void*)0); | |||
| 71870 | int capi_u2_intent = 0; | |||
| 71871 | int ldu2 = 0; | |||
| 71872 | float *v1t = NULL((void*)0); | |||
| 71873 | npy_intp v1t_Dims[2] = {-1, -1}; | |||
| 71874 | const int v1t_Rank = 2; | |||
| 71875 | PyArrayObject *capi_v1t_tmp = NULL((void*)0); | |||
| 71876 | int capi_v1t_intent = 0; | |||
| 71877 | int ldv1t = 0; | |||
| 71878 | float *v2t = NULL((void*)0); | |||
| 71879 | npy_intp v2t_Dims[2] = {-1, -1}; | |||
| 71880 | const int v2t_Rank = 2; | |||
| 71881 | PyArrayObject *capi_v2t_tmp = NULL((void*)0); | |||
| 71882 | int capi_v2t_intent = 0; | |||
| 71883 | int ldv2t = 0; | |||
| 71884 | float *work = NULL((void*)0); | |||
| 71885 | npy_intp work_Dims[1] = {-1}; | |||
| 71886 | const int work_Rank = 1; | |||
| 71887 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 71888 | int capi_work_intent = 0; | |||
| 71889 | int lwork = 0; | |||
| 71890 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 71891 | int *iwork = NULL((void*)0); | |||
| 71892 | npy_intp iwork_Dims[1] = {-1}; | |||
| 71893 | const int iwork_Rank = 1; | |||
| 71894 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 71895 | int capi_iwork_intent = 0; | |||
| 71896 | int info = 0; | |||
| 71897 | int mmp = 0; | |||
| 71898 | int mmq = 0; | |||
| 71899 | static char *capi_kwlist[] = {"x11","x12","x21","x22","compute_u1","compute_u2","compute_v1t","compute_v2t","trans","signs","lwork","overwrite_x11","overwrite_x12","overwrite_x21","overwrite_x22",NULL((void*)0)}; | |||
| 71900 | ||||
| 71901 | /*routdebugenter*/ | |||
| 71902 | #ifdef F2PY_REPORT_ATEXIT | |||
| 71903 | f2py_start_clock(); | |||
| 71904 | #endif | |||
| 71905 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 71906 | "OOOO|OOOOOOOiiii:_flapack.sorcsd",\ | |||
| 71907 | capi_kwlist,&x11_capi,&x12_capi,&x21_capi,&x22_capi,&compute_u1_capi,&compute_u2_capi,&compute_v1t_capi,&compute_v2t_capi,&trans_capi,&signs_capi,&lwork_capi,&capi_overwrite_x11,&capi_overwrite_x12,&capi_overwrite_x21,&capi_overwrite_x22)) | |||
| 71908 | return NULL((void*)0); | |||
| 71909 | /*frompyobj*/ | |||
| 71910 | /* Processing variable compute_u1 */ | |||
| 71911 | if (compute_u1_capi == Py_None(&_Py_NoneStruct)) compute_u1 = 1; else | |||
| 71912 | f2py_success = int_from_pyobj(&compute_u1,compute_u1_capi,"_flapack.sorcsd() 1st keyword (compute_u1) can't be converted to int"); | |||
| 71913 | if (f2py_success) { | |||
| 71914 | CHECKSCALAR(compute_u1==0||compute_u1==1,"compute_u1==0||compute_u1==1","1st keyword compute_u1","sorcsd:compute_u1=%d",compute_u1)if (!(compute_u1==0||compute_u1==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sorcsd:compute_u1=%d", "(""compute_u1==0||compute_u1==1" ") failed for ""1st keyword compute_u1", compute_u1); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 71915 | /* Processing variable compute_u2 */ | |||
| 71916 | if (compute_u2_capi == Py_None(&_Py_NoneStruct)) compute_u2 = 1; else | |||
| 71917 | f2py_success = int_from_pyobj(&compute_u2,compute_u2_capi,"_flapack.sorcsd() 2nd keyword (compute_u2) can't be converted to int"); | |||
| 71918 | if (f2py_success) { | |||
| 71919 | CHECKSCALAR(compute_u2==0||compute_u2==1,"compute_u2==0||compute_u2==1","2nd keyword compute_u2","sorcsd:compute_u2=%d",compute_u2)if (!(compute_u2==0||compute_u2==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sorcsd:compute_u2=%d", "(""compute_u2==0||compute_u2==1" ") failed for ""2nd keyword compute_u2", compute_u2); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 71920 | /* Processing variable compute_v1t */ | |||
| 71921 | if (compute_v1t_capi == Py_None(&_Py_NoneStruct)) compute_v1t = 1; else | |||
| 71922 | f2py_success = int_from_pyobj(&compute_v1t,compute_v1t_capi,"_flapack.sorcsd() 3rd keyword (compute_v1t) can't be converted to int"); | |||
| 71923 | if (f2py_success) { | |||
| 71924 | CHECKSCALAR(compute_v1t==0||compute_v1t==1,"compute_v1t==0||compute_v1t==1","3rd keyword compute_v1t","sorcsd:compute_v1t=%d",compute_v1t)if (!(compute_v1t==0||compute_v1t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sorcsd:compute_v1t=%d", "(""compute_v1t==0||compute_v1t==1" ") failed for ""3rd keyword compute_v1t", compute_v1t); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 71925 | /* Processing variable compute_v2t */ | |||
| 71926 | if (compute_v2t_capi == Py_None(&_Py_NoneStruct)) compute_v2t = 1; else | |||
| 71927 | f2py_success = int_from_pyobj(&compute_v2t,compute_v2t_capi,"_flapack.sorcsd() 4th keyword (compute_v2t) can't be converted to int"); | |||
| 71928 | if (f2py_success) { | |||
| 71929 | CHECKSCALAR(compute_v2t==0||compute_v2t==1,"compute_v2t==0||compute_v2t==1","4th keyword compute_v2t","sorcsd:compute_v2t=%d",compute_v2t)if (!(compute_v2t==0||compute_v2t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sorcsd:compute_v2t=%d", "(""compute_v2t==0||compute_v2t==1" ") failed for ""4th keyword compute_v2t", compute_v2t); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 71930 | /* Processing variable trans */ | |||
| 71931 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 71932 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.sorcsd() 5th keyword (trans) can't be converted to int"); | |||
| 71933 | if (f2py_success) { | |||
| 71934 | CHECKSCALAR(trans==0||trans==1,"trans==0||trans==1","5th keyword trans","sorcsd:trans=%d",trans)if (!(trans==0||trans==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sorcsd:trans=%d", "(""trans==0||trans==1"") failed for " "5th keyword trans", trans); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 71935 | /* Processing variable signs */ | |||
| 71936 | if (signs_capi == Py_None(&_Py_NoneStruct)) signs = 0; else | |||
| 71937 | f2py_success = int_from_pyobj(&signs,signs_capi,"_flapack.sorcsd() 6th keyword (signs) can't be converted to int"); | |||
| 71938 | if (f2py_success) { | |||
| 71939 | CHECKSCALAR(signs==0||signs==1,"signs==0||signs==1","6th keyword signs","sorcsd:signs=%d",signs)if (!(signs==0||signs==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sorcsd:signs=%d", "(""signs==0||signs==1"") failed for " "6th keyword signs", signs); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 71940 | /* Processing variable x11 */ | |||
| 71941 | capi_x11_intent |= (capi_overwrite_x11?0:F2PY_INTENT_COPY32); | |||
| 71942 | ; | |||
| 71943 | capi_x11_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 71944 | capi_x11_tmp = array_from_pyobj(NPY_FLOAT,x11_Dims,x11_Rank,capi_x11_intent,x11_capi); | |||
| 71945 | if (capi_x11_tmp == NULL((void*)0)) { | |||
| 71946 | if (!PyErr_Occurred()) | |||
| 71947 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `x11' of _flapack.sorcsd to C/Fortran array" ); | |||
| 71948 | } else { | |||
| 71949 | x11 = (float *)(PyArray_DATA(capi_x11_tmp)((void *)((PyArrayObject_fields *)(capi_x11_tmp))->data)); | |||
| 71950 | ||||
| 71951 | /* Processing variable x22 */ | |||
| 71952 | capi_x22_intent |= (capi_overwrite_x22?0:F2PY_INTENT_COPY32); | |||
| 71953 | ; | |||
| 71954 | capi_x22_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 71955 | capi_x22_tmp = array_from_pyobj(NPY_FLOAT,x22_Dims,x22_Rank,capi_x22_intent,x22_capi); | |||
| 71956 | if (capi_x22_tmp == NULL((void*)0)) { | |||
| 71957 | if (!PyErr_Occurred()) | |||
| 71958 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `x22' of _flapack.sorcsd to C/Fortran array" ); | |||
| 71959 | } else { | |||
| 71960 | x22 = (float *)(PyArray_DATA(capi_x22_tmp)((void *)((PyArrayObject_fields *)(capi_x22_tmp))->data)); | |||
| 71961 | ||||
| 71962 | /* Processing variable info */ | |||
| 71963 | /* Processing variable p */ | |||
| 71964 | p = shape(x11,0)x11_Dims[0]; | |||
| 71965 | /* Processing variable q */ | |||
| 71966 | q = shape(x11,1)x11_Dims[1]; | |||
| 71967 | /* Processing variable mmp */ | |||
| 71968 | mmp = shape(x22,0)x22_Dims[0]; | |||
| 71969 | /* Processing variable mmq */ | |||
| 71970 | mmq = shape(x22,1)x22_Dims[1]; | |||
| 71971 | /* Processing variable ldx11 */ | |||
| 71972 | ldx11 = MAX(1,shape(x11,0))((1 > x11_Dims[0]) ? (1) : (x11_Dims[0])); | |||
| 71973 | /* Processing variable ldx22 */ | |||
| 71974 | ldx22 = MAX(1,shape(x22,0))((1 > x22_Dims[0]) ? (1) : (x22_Dims[0])); | |||
| 71975 | /* Processing variable theta */ | |||
| 71976 | theta_Dims[0]=min(min(p,mmp),min(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq ))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) : (mmq)))); | |||
| 71977 | capi_theta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 71978 | capi_theta_tmp = array_from_pyobj(NPY_FLOAT,theta_Dims,theta_Rank,capi_theta_intent,Py_None(&_Py_NoneStruct)); | |||
| 71979 | if (capi_theta_tmp == NULL((void*)0)) { | |||
| 71980 | if (!PyErr_Occurred()) | |||
| 71981 | PyErr_SetString(_flapack_error,"failed in converting hidden `theta' of _flapack.sorcsd to C/Fortran array" ); | |||
| 71982 | } else { | |||
| 71983 | theta = (float *)(PyArray_DATA(capi_theta_tmp)((void *)((PyArrayObject_fields *)(capi_theta_tmp))->data)); | |||
| 71984 | ||||
| 71985 | /* Processing variable u1 */ | |||
| 71986 | u1_Dims[0]=(compute_u1?p:0),u1_Dims[1]=(compute_u1?p:0); | |||
| 71987 | capi_u1_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 71988 | capi_u1_tmp = array_from_pyobj(NPY_FLOAT,u1_Dims,u1_Rank,capi_u1_intent,Py_None(&_Py_NoneStruct)); | |||
| 71989 | if (capi_u1_tmp == NULL((void*)0)) { | |||
| 71990 | if (!PyErr_Occurred()) | |||
| 71991 | PyErr_SetString(_flapack_error,"failed in converting hidden `u1' of _flapack.sorcsd to C/Fortran array" ); | |||
| 71992 | } else { | |||
| 71993 | u1 = (float *)(PyArray_DATA(capi_u1_tmp)((void *)((PyArrayObject_fields *)(capi_u1_tmp))->data)); | |||
| 71994 | ||||
| 71995 | /* Processing variable u2 */ | |||
| 71996 | u2_Dims[0]=(compute_u2?mmp:0),u2_Dims[1]=(compute_u2?mmp:0); | |||
| 71997 | capi_u2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 71998 | capi_u2_tmp = array_from_pyobj(NPY_FLOAT,u2_Dims,u2_Rank,capi_u2_intent,Py_None(&_Py_NoneStruct)); | |||
| 71999 | if (capi_u2_tmp == NULL((void*)0)) { | |||
| 72000 | if (!PyErr_Occurred()) | |||
| 72001 | PyErr_SetString(_flapack_error,"failed in converting hidden `u2' of _flapack.sorcsd to C/Fortran array" ); | |||
| 72002 | } else { | |||
| 72003 | u2 = (float *)(PyArray_DATA(capi_u2_tmp)((void *)((PyArrayObject_fields *)(capi_u2_tmp))->data)); | |||
| 72004 | ||||
| 72005 | /* Processing variable v1t */ | |||
| 72006 | v1t_Dims[0]=(compute_v1t?q:0),v1t_Dims[1]=(compute_v1t?q:0); | |||
| 72007 | capi_v1t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 72008 | capi_v1t_tmp = array_from_pyobj(NPY_FLOAT,v1t_Dims,v1t_Rank,capi_v1t_intent,Py_None(&_Py_NoneStruct)); | |||
| 72009 | if (capi_v1t_tmp == NULL((void*)0)) { | |||
| 72010 | if (!PyErr_Occurred()) | |||
| 72011 | PyErr_SetString(_flapack_error,"failed in converting hidden `v1t' of _flapack.sorcsd to C/Fortran array" ); | |||
| 72012 | } else { | |||
| 72013 | v1t = (float *)(PyArray_DATA(capi_v1t_tmp)((void *)((PyArrayObject_fields *)(capi_v1t_tmp))->data)); | |||
| 72014 | ||||
| 72015 | /* Processing variable v2t */ | |||
| 72016 | v2t_Dims[0]=(compute_v2t?mmq:0),v2t_Dims[1]=(compute_v2t?mmq:0); | |||
| 72017 | capi_v2t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 72018 | capi_v2t_tmp = array_from_pyobj(NPY_FLOAT,v2t_Dims,v2t_Rank,capi_v2t_intent,Py_None(&_Py_NoneStruct)); | |||
| 72019 | if (capi_v2t_tmp == NULL((void*)0)) { | |||
| 72020 | if (!PyErr_Occurred()) | |||
| 72021 | PyErr_SetString(_flapack_error,"failed in converting hidden `v2t' of _flapack.sorcsd to C/Fortran array" ); | |||
| 72022 | } else { | |||
| 72023 | v2t = (float *)(PyArray_DATA(capi_v2t_tmp)((void *)((PyArrayObject_fields *)(capi_v2t_tmp))->data)); | |||
| 72024 | ||||
| 72025 | /* Processing variable ldu1 */ | |||
| 72026 | ldu1 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 72027 | /* Processing variable ldu2 */ | |||
| 72028 | ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 72029 | /* Processing variable ldv1t */ | |||
| 72030 | ldv1t = MAX(1,q)((1 > q) ? (1) : (q)); | |||
| 72031 | /* Processing variable ldv2t */ | |||
| 72032 | ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq)); | |||
| 72033 | /* Processing variable iwork */ | |||
| 72034 | iwork_Dims[0]=p+mmp-MIN(MIN(p,mmp),MIN(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq ))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) : (mmq)))); | |||
| 72035 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 72036 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 72037 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 72038 | if (!PyErr_Occurred()) | |||
| 72039 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sorcsd to C/Fortran array" ); | |||
| 72040 | } else { | |||
| 72041 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 72042 | ||||
| 72043 | /* Processing variable m */ | |||
| 72044 | m = p+mmp; | |||
| 72045 | CHECKSCALAR(p+mmp==q+mmq,"p+mmp==q+mmq","hidden m","sorcsd:m=%d",m)if (!(p+mmp==q+mmq)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sorcsd:m=%d", "(""p+mmp==q+mmq"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 72046 | /* Processing variable x12 */ | |||
| 72047 | capi_x12_intent |= (capi_overwrite_x12?0:F2PY_INTENT_COPY32); | |||
| 72048 | x12_Dims[0]=p,x12_Dims[1]=mmq; | |||
| 72049 | capi_x12_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 72050 | capi_x12_tmp = array_from_pyobj(NPY_FLOAT,x12_Dims,x12_Rank,capi_x12_intent,x12_capi); | |||
| 72051 | if (capi_x12_tmp == NULL((void*)0)) { | |||
| 72052 | if (!PyErr_Occurred()) | |||
| 72053 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `x12' of _flapack.sorcsd to C/Fortran array" ); | |||
| 72054 | } else { | |||
| 72055 | x12 = (float *)(PyArray_DATA(capi_x12_tmp)((void *)((PyArrayObject_fields *)(capi_x12_tmp))->data)); | |||
| 72056 | ||||
| 72057 | CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0),"mmq==shape(x12,1)||p==shape(x12,0)","2nd argument x12")if (!(mmq==x12_Dims[1]||p==x12_Dims[0])) { PyErr_SetString(_flapack_error ,"(""mmq==shape(x12,1)||p==shape(x12,0)"") failed for ""2nd argument x12" ); } else { | |||
| 72058 | /* Processing variable x21 */ | |||
| 72059 | capi_x21_intent |= (capi_overwrite_x21?0:F2PY_INTENT_COPY32); | |||
| 72060 | x21_Dims[0]=mmp,x21_Dims[1]=q; | |||
| 72061 | capi_x21_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 72062 | capi_x21_tmp = array_from_pyobj(NPY_FLOAT,x21_Dims,x21_Rank,capi_x21_intent,x21_capi); | |||
| 72063 | if (capi_x21_tmp == NULL((void*)0)) { | |||
| 72064 | if (!PyErr_Occurred()) | |||
| 72065 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x21' of _flapack.sorcsd to C/Fortran array" ); | |||
| 72066 | } else { | |||
| 72067 | x21 = (float *)(PyArray_DATA(capi_x21_tmp)((void *)((PyArrayObject_fields *)(capi_x21_tmp))->data)); | |||
| 72068 | ||||
| 72069 | CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1),"mmp==shape(x21,0)||q==shape(x21,1)","3rd argument x21")if (!(mmp==x21_Dims[0]||q==x21_Dims[1])) { PyErr_SetString(_flapack_error ,"(""mmp==shape(x21,0)||q==shape(x21,1)"") failed for ""3rd argument x21" ); } else { | |||
| 72070 | /* Processing variable ldx12 */ | |||
| 72071 | ldx12 = MAX(1,shape(x12,0))((1 > x12_Dims[0]) ? (1) : (x12_Dims[0])); | |||
| 72072 | /* Processing variable ldx21 */ | |||
| 72073 | ldx21 = MAX(1,shape(x21,0))((1 > x21_Dims[0]) ? (1) : (x21_Dims[0])); | |||
| 72074 | /* Processing variable lwork */ | |||
| 72075 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = 2+2*m+5*MAX(1,q-1)((1 > q-1) ? (1) : (q-1))+4*MAX(1,q)((1 > q) ? (1) : (q))+8*q; else | |||
| 72076 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sorcsd() 7th keyword (lwork) can't be converted to int"); | |||
| 72077 | if (f2py_success) { | |||
| 72078 | CHECKSCALAR(lwork==-1||lwork>0,"lwork==-1||lwork>0","7th keyword lwork","sorcsd:lwork=%d",lwork)if (!(lwork==-1||lwork>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sorcsd:lwork=%d", "(""lwork==-1||lwork>0"") failed for " "7th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 72079 | /* Processing variable work */ | |||
| 72080 | work_Dims[0]=lwork; | |||
| 72081 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 72082 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 72083 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 72084 | if (!PyErr_Occurred()) | |||
| 72085 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sorcsd to C/Fortran array" ); | |||
| 72086 | } else { | |||
| 72087 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 72088 | ||||
| 72089 | /*end of frompyobj*/ | |||
| 72090 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72091 | f2py_start_call_clock(); | |||
| 72092 | #endif | |||
| 72093 | /*callfortranroutine*/ | |||
| 72094 | (*f2py_func)((compute_u1?"Y":"N"),(compute_u2?"Y":"N"),(compute_v1t?"Y":"N"),(compute_v2t?"Y":"N"),(trans?"T":"N"),(signs?"O":"D"),&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,iwork,&info) ; | |||
| 72095 | /*(*f2py_func)(&compute_u1,&compute_u2,&compute_v1t,&compute_v2t,&trans,&signs,&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,iwork,&info,&mmp,&mmq);*/ | |||
| 72096 | if (PyErr_Occurred()) | |||
| 72097 | f2py_success = 0; | |||
| 72098 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72099 | f2py_stop_call_clock(); | |||
| 72100 | #endif | |||
| 72101 | /*end of callfortranroutine*/ | |||
| 72102 | if (f2py_success) { | |||
| 72103 | /*pyobjfrom*/ | |||
| 72104 | /*end of pyobjfrom*/ | |||
| 72105 | CFUNCSMESS("Building return value.\n"); | |||
| 72106 | capi_buildvalue = Py_BuildValue("NNNNNNNNNi",capi_x11_tmp,capi_x12_tmp,capi_x21_tmp,capi_x22_tmp,capi_theta_tmp,capi_u1_tmp,capi_u2_tmp,capi_v1t_tmp,capi_v2t_tmp,info); | |||
| 72107 | /*closepyobjfrom*/ | |||
| 72108 | /*end of closepyobjfrom*/ | |||
| 72109 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 72110 | /*cleanupfrompyobj*/ | |||
| 72111 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 72112 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 72113 | /* End of cleaning variable work */ | |||
| 72114 | } /*CHECKSCALAR(lwork==-1||lwork>0)*/ | |||
| 72115 | } /*if (f2py_success) of lwork*/ | |||
| 72116 | /* End of cleaning variable lwork */ | |||
| 72117 | /* End of cleaning variable ldx21 */ | |||
| 72118 | /* End of cleaning variable ldx12 */ | |||
| 72119 | } /*CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1))*/ | |||
| 72120 | } /*if (capi_x21_tmp == NULL) ... else of x21*/ | |||
| 72121 | /* End of cleaning variable x21 */ | |||
| 72122 | } /*CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0))*/ | |||
| 72123 | } /*if (capi_x12_tmp == NULL) ... else of x12*/ | |||
| 72124 | /* End of cleaning variable x12 */ | |||
| 72125 | } /*CHECKSCALAR(p+mmp==q+mmq)*/ | |||
| 72126 | /* End of cleaning variable m */ | |||
| 72127 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 72128 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 72129 | /* End of cleaning variable iwork */ | |||
| 72130 | /* End of cleaning variable ldv2t */ | |||
| 72131 | /* End of cleaning variable ldv1t */ | |||
| 72132 | /* End of cleaning variable ldu2 */ | |||
| 72133 | /* End of cleaning variable ldu1 */ | |||
| 72134 | } /*if (capi_v2t_tmp == NULL) ... else of v2t*/ | |||
| 72135 | /* End of cleaning variable v2t */ | |||
| 72136 | } /*if (capi_v1t_tmp == NULL) ... else of v1t*/ | |||
| 72137 | /* End of cleaning variable v1t */ | |||
| 72138 | } /*if (capi_u2_tmp == NULL) ... else of u2*/ | |||
| 72139 | /* End of cleaning variable u2 */ | |||
| 72140 | } /*if (capi_u1_tmp == NULL) ... else of u1*/ | |||
| 72141 | /* End of cleaning variable u1 */ | |||
| 72142 | } /*if (capi_theta_tmp == NULL) ... else of theta*/ | |||
| 72143 | /* End of cleaning variable theta */ | |||
| 72144 | /* End of cleaning variable ldx22 */ | |||
| 72145 | /* End of cleaning variable ldx11 */ | |||
| 72146 | /* End of cleaning variable mmq */ | |||
| 72147 | /* End of cleaning variable mmp */ | |||
| 72148 | /* End of cleaning variable q */ | |||
| 72149 | /* End of cleaning variable p */ | |||
| 72150 | /* End of cleaning variable info */ | |||
| 72151 | } /*if (capi_x22_tmp == NULL) ... else of x22*/ | |||
| 72152 | /* End of cleaning variable x22 */ | |||
| 72153 | } /*if (capi_x11_tmp == NULL) ... else of x11*/ | |||
| 72154 | /* End of cleaning variable x11 */ | |||
| 72155 | } /*CHECKSCALAR(signs==0||signs==1)*/ | |||
| 72156 | } /*if (f2py_success) of signs*/ | |||
| 72157 | /* End of cleaning variable signs */ | |||
| 72158 | } /*CHECKSCALAR(trans==0||trans==1)*/ | |||
| 72159 | } /*if (f2py_success) of trans*/ | |||
| 72160 | /* End of cleaning variable trans */ | |||
| 72161 | } /*CHECKSCALAR(compute_v2t==0||compute_v2t==1)*/ | |||
| 72162 | } /*if (f2py_success) of compute_v2t*/ | |||
| 72163 | /* End of cleaning variable compute_v2t */ | |||
| 72164 | } /*CHECKSCALAR(compute_v1t==0||compute_v1t==1)*/ | |||
| 72165 | } /*if (f2py_success) of compute_v1t*/ | |||
| 72166 | /* End of cleaning variable compute_v1t */ | |||
| 72167 | } /*CHECKSCALAR(compute_u2==0||compute_u2==1)*/ | |||
| 72168 | } /*if (f2py_success) of compute_u2*/ | |||
| 72169 | /* End of cleaning variable compute_u2 */ | |||
| 72170 | } /*CHECKSCALAR(compute_u1==0||compute_u1==1)*/ | |||
| 72171 | } /*if (f2py_success) of compute_u1*/ | |||
| 72172 | /* End of cleaning variable compute_u1 */ | |||
| 72173 | /*end of cleanupfrompyobj*/ | |||
| 72174 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 72175 | /*routdebugfailure*/ | |||
| 72176 | } else { | |||
| 72177 | /*routdebugleave*/ | |||
| 72178 | } | |||
| 72179 | CFUNCSMESS("Freeing memory.\n"); | |||
| 72180 | /*freemem*/ | |||
| 72181 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72182 | f2py_stop_clock(); | |||
| 72183 | #endif | |||
| 72184 | return capi_buildvalue; | |||
| 72185 | } | |||
| 72186 | /******************************* end of sorcsd *******************************/ | |||
| 72187 | ||||
| 72188 | /*********************************** dorcsd ***********************************/ | |||
| 72189 | static char doc_f2py_rout__flapack_dorcsd[] = "\ | |||
| 72190 | cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = dorcsd(x11,x12,x21,x22,[compute_u1,compute_u2,compute_v1t,compute_v2t,trans,signs,lwork,overwrite_x11,overwrite_x12,overwrite_x21,overwrite_x22])\n\nWrapper for ``dorcsd``.\ | |||
| 72191 | \n\nParameters\n----------\n" | |||
| 72192 | "x11 : input rank-2 array('d') with bounds (p,q)\n" | |||
| 72193 | "x12 : input rank-2 array('d') with bounds (p,mmq)\n" | |||
| 72194 | "x21 : input rank-2 array('d') with bounds (mmp,q)\n" | |||
| 72195 | "x22 : input rank-2 array('d') with bounds (mmp,mmq)\n" | |||
| 72196 | "\nOther Parameters\n----------------\n" | |||
| 72197 | "compute_u1 : input int, optional\n Default: 1\n" | |||
| 72198 | "compute_u2 : input int, optional\n Default: 1\n" | |||
| 72199 | "compute_v1t : input int, optional\n Default: 1\n" | |||
| 72200 | "compute_v2t : input int, optional\n Default: 1\n" | |||
| 72201 | "trans : input int, optional\n Default: 0\n" | |||
| 72202 | "signs : input int, optional\n Default: 0\n" | |||
| 72203 | "overwrite_x11 : input int, optional\n Default: 0\n" | |||
| 72204 | "overwrite_x12 : input int, optional\n Default: 0\n" | |||
| 72205 | "overwrite_x21 : input int, optional\n Default: 0\n" | |||
| 72206 | "overwrite_x22 : input int, optional\n Default: 0\n" | |||
| 72207 | "lwork : input int, optional\n Default: 2+2*m+5*MAX(1,q-1)+4*MAX(1,q)+8*q\n" | |||
| 72208 | "\nReturns\n-------\n" | |||
| 72209 | "cs11 : rank-2 array('d') with bounds (p,q) and x11 storage\n" | |||
| 72210 | "cs12 : rank-2 array('d') with bounds (p,mmq) and x12 storage\n" | |||
| 72211 | "cs21 : rank-2 array('d') with bounds (mmp,q) and x21 storage\n" | |||
| 72212 | "cs22 : rank-2 array('d') with bounds (mmp,mmq) and x22 storage\n" | |||
| 72213 | "theta : rank-1 array('d') with bounds (min(min(p,mmp),min(q,mmq)))\n" | |||
| 72214 | "u1 : rank-2 array('d') with bounds ((compute_u1?p:0),(compute_u1?p:0))\n" | |||
| 72215 | "u2 : rank-2 array('d') with bounds ((compute_u2?mmp:0),(compute_u2?mmp:0))\n" | |||
| 72216 | "v1t : rank-2 array('d') with bounds ((compute_v1t?q:0),(compute_v1t?q:0))\n" | |||
| 72217 | "v2t : rank-2 array('d') with bounds ((compute_v2t?mmq:0),(compute_v2t?mmq:0))\n" | |||
| 72218 | "info : int"; | |||
| 72219 | /* extern void F_FUNC(dorcsd,DORCSD)(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 72220 | static PyObject *f2py_rout__flapack_dorcsd(const PyObject *capi_self, | |||
| 72221 | PyObject *capi_args, | |||
| 72222 | PyObject *capi_keywds, | |||
| 72223 | void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 72224 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 72225 | volatile int f2py_success = 1; | |||
| 72226 | /*decl*/ | |||
| 72227 | ||||
| 72228 | int compute_u1 = 0; | |||
| 72229 | PyObject *compute_u1_capi = Py_None(&_Py_NoneStruct); | |||
| 72230 | int compute_u2 = 0; | |||
| 72231 | PyObject *compute_u2_capi = Py_None(&_Py_NoneStruct); | |||
| 72232 | int compute_v1t = 0; | |||
| 72233 | PyObject *compute_v1t_capi = Py_None(&_Py_NoneStruct); | |||
| 72234 | int compute_v2t = 0; | |||
| 72235 | PyObject *compute_v2t_capi = Py_None(&_Py_NoneStruct); | |||
| 72236 | int trans = 0; | |||
| 72237 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 72238 | int signs = 0; | |||
| 72239 | PyObject *signs_capi = Py_None(&_Py_NoneStruct); | |||
| 72240 | int m = 0; | |||
| 72241 | int p = 0; | |||
| 72242 | int q = 0; | |||
| 72243 | double *x11 = NULL((void*)0); | |||
| 72244 | npy_intp x11_Dims[2] = {-1, -1}; | |||
| 72245 | const int x11_Rank = 2; | |||
| 72246 | PyArrayObject *capi_x11_tmp = NULL((void*)0); | |||
| 72247 | int capi_x11_intent = 0; | |||
| 72248 | int capi_overwrite_x11 = 0; | |||
| 72249 | PyObject *x11_capi = Py_None(&_Py_NoneStruct); | |||
| 72250 | int ldx11 = 0; | |||
| 72251 | double *x12 = NULL((void*)0); | |||
| 72252 | npy_intp x12_Dims[2] = {-1, -1}; | |||
| 72253 | const int x12_Rank = 2; | |||
| 72254 | PyArrayObject *capi_x12_tmp = NULL((void*)0); | |||
| 72255 | int capi_x12_intent = 0; | |||
| 72256 | int capi_overwrite_x12 = 0; | |||
| 72257 | PyObject *x12_capi = Py_None(&_Py_NoneStruct); | |||
| 72258 | int ldx12 = 0; | |||
| 72259 | double *x21 = NULL((void*)0); | |||
| 72260 | npy_intp x21_Dims[2] = {-1, -1}; | |||
| 72261 | const int x21_Rank = 2; | |||
| 72262 | PyArrayObject *capi_x21_tmp = NULL((void*)0); | |||
| 72263 | int capi_x21_intent = 0; | |||
| 72264 | int capi_overwrite_x21 = 0; | |||
| 72265 | PyObject *x21_capi = Py_None(&_Py_NoneStruct); | |||
| 72266 | int ldx21 = 0; | |||
| 72267 | double *x22 = NULL((void*)0); | |||
| 72268 | npy_intp x22_Dims[2] = {-1, -1}; | |||
| 72269 | const int x22_Rank = 2; | |||
| 72270 | PyArrayObject *capi_x22_tmp = NULL((void*)0); | |||
| 72271 | int capi_x22_intent = 0; | |||
| 72272 | int capi_overwrite_x22 = 0; | |||
| 72273 | PyObject *x22_capi = Py_None(&_Py_NoneStruct); | |||
| 72274 | int ldx22 = 0; | |||
| 72275 | double *theta = NULL((void*)0); | |||
| 72276 | npy_intp theta_Dims[1] = {-1}; | |||
| 72277 | const int theta_Rank = 1; | |||
| 72278 | PyArrayObject *capi_theta_tmp = NULL((void*)0); | |||
| 72279 | int capi_theta_intent = 0; | |||
| 72280 | double *u1 = NULL((void*)0); | |||
| 72281 | npy_intp u1_Dims[2] = {-1, -1}; | |||
| 72282 | const int u1_Rank = 2; | |||
| 72283 | PyArrayObject *capi_u1_tmp = NULL((void*)0); | |||
| 72284 | int capi_u1_intent = 0; | |||
| 72285 | int ldu1 = 0; | |||
| 72286 | double *u2 = NULL((void*)0); | |||
| 72287 | npy_intp u2_Dims[2] = {-1, -1}; | |||
| 72288 | const int u2_Rank = 2; | |||
| 72289 | PyArrayObject *capi_u2_tmp = NULL((void*)0); | |||
| 72290 | int capi_u2_intent = 0; | |||
| 72291 | int ldu2 = 0; | |||
| 72292 | double *v1t = NULL((void*)0); | |||
| 72293 | npy_intp v1t_Dims[2] = {-1, -1}; | |||
| 72294 | const int v1t_Rank = 2; | |||
| 72295 | PyArrayObject *capi_v1t_tmp = NULL((void*)0); | |||
| 72296 | int capi_v1t_intent = 0; | |||
| 72297 | int ldv1t = 0; | |||
| 72298 | double *v2t = NULL((void*)0); | |||
| 72299 | npy_intp v2t_Dims[2] = {-1, -1}; | |||
| 72300 | const int v2t_Rank = 2; | |||
| 72301 | PyArrayObject *capi_v2t_tmp = NULL((void*)0); | |||
| 72302 | int capi_v2t_intent = 0; | |||
| 72303 | int ldv2t = 0; | |||
| 72304 | double *work = NULL((void*)0); | |||
| 72305 | npy_intp work_Dims[1] = {-1}; | |||
| 72306 | const int work_Rank = 1; | |||
| 72307 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 72308 | int capi_work_intent = 0; | |||
| 72309 | int lwork = 0; | |||
| 72310 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 72311 | int *iwork = NULL((void*)0); | |||
| 72312 | npy_intp iwork_Dims[1] = {-1}; | |||
| 72313 | const int iwork_Rank = 1; | |||
| 72314 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 72315 | int capi_iwork_intent = 0; | |||
| 72316 | int info = 0; | |||
| 72317 | int mmp = 0; | |||
| 72318 | int mmq = 0; | |||
| 72319 | static char *capi_kwlist[] = {"x11","x12","x21","x22","compute_u1","compute_u2","compute_v1t","compute_v2t","trans","signs","lwork","overwrite_x11","overwrite_x12","overwrite_x21","overwrite_x22",NULL((void*)0)}; | |||
| 72320 | ||||
| 72321 | /*routdebugenter*/ | |||
| 72322 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72323 | f2py_start_clock(); | |||
| 72324 | #endif | |||
| 72325 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 72326 | "OOOO|OOOOOOOiiii:_flapack.dorcsd",\ | |||
| 72327 | capi_kwlist,&x11_capi,&x12_capi,&x21_capi,&x22_capi,&compute_u1_capi,&compute_u2_capi,&compute_v1t_capi,&compute_v2t_capi,&trans_capi,&signs_capi,&lwork_capi,&capi_overwrite_x11,&capi_overwrite_x12,&capi_overwrite_x21,&capi_overwrite_x22)) | |||
| 72328 | return NULL((void*)0); | |||
| 72329 | /*frompyobj*/ | |||
| 72330 | /* Processing variable compute_u1 */ | |||
| 72331 | if (compute_u1_capi == Py_None(&_Py_NoneStruct)) compute_u1 = 1; else | |||
| 72332 | f2py_success = int_from_pyobj(&compute_u1,compute_u1_capi,"_flapack.dorcsd() 1st keyword (compute_u1) can't be converted to int"); | |||
| 72333 | if (f2py_success) { | |||
| 72334 | CHECKSCALAR(compute_u1==0||compute_u1==1,"compute_u1==0||compute_u1==1","1st keyword compute_u1","dorcsd:compute_u1=%d",compute_u1)if (!(compute_u1==0||compute_u1==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dorcsd:compute_u1=%d", "(""compute_u1==0||compute_u1==1" ") failed for ""1st keyword compute_u1", compute_u1); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 72335 | /* Processing variable compute_u2 */ | |||
| 72336 | if (compute_u2_capi == Py_None(&_Py_NoneStruct)) compute_u2 = 1; else | |||
| 72337 | f2py_success = int_from_pyobj(&compute_u2,compute_u2_capi,"_flapack.dorcsd() 2nd keyword (compute_u2) can't be converted to int"); | |||
| 72338 | if (f2py_success) { | |||
| 72339 | CHECKSCALAR(compute_u2==0||compute_u2==1,"compute_u2==0||compute_u2==1","2nd keyword compute_u2","dorcsd:compute_u2=%d",compute_u2)if (!(compute_u2==0||compute_u2==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dorcsd:compute_u2=%d", "(""compute_u2==0||compute_u2==1" ") failed for ""2nd keyword compute_u2", compute_u2); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 72340 | /* Processing variable compute_v1t */ | |||
| 72341 | if (compute_v1t_capi == Py_None(&_Py_NoneStruct)) compute_v1t = 1; else | |||
| 72342 | f2py_success = int_from_pyobj(&compute_v1t,compute_v1t_capi,"_flapack.dorcsd() 3rd keyword (compute_v1t) can't be converted to int"); | |||
| 72343 | if (f2py_success) { | |||
| 72344 | CHECKSCALAR(compute_v1t==0||compute_v1t==1,"compute_v1t==0||compute_v1t==1","3rd keyword compute_v1t","dorcsd:compute_v1t=%d",compute_v1t)if (!(compute_v1t==0||compute_v1t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dorcsd:compute_v1t=%d", "(""compute_v1t==0||compute_v1t==1" ") failed for ""3rd keyword compute_v1t", compute_v1t); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 72345 | /* Processing variable compute_v2t */ | |||
| 72346 | if (compute_v2t_capi == Py_None(&_Py_NoneStruct)) compute_v2t = 1; else | |||
| 72347 | f2py_success = int_from_pyobj(&compute_v2t,compute_v2t_capi,"_flapack.dorcsd() 4th keyword (compute_v2t) can't be converted to int"); | |||
| 72348 | if (f2py_success) { | |||
| 72349 | CHECKSCALAR(compute_v2t==0||compute_v2t==1,"compute_v2t==0||compute_v2t==1","4th keyword compute_v2t","dorcsd:compute_v2t=%d",compute_v2t)if (!(compute_v2t==0||compute_v2t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dorcsd:compute_v2t=%d", "(""compute_v2t==0||compute_v2t==1" ") failed for ""4th keyword compute_v2t", compute_v2t); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 72350 | /* Processing variable trans */ | |||
| 72351 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 72352 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.dorcsd() 5th keyword (trans) can't be converted to int"); | |||
| 72353 | if (f2py_success) { | |||
| 72354 | CHECKSCALAR(trans==0||trans==1,"trans==0||trans==1","5th keyword trans","dorcsd:trans=%d",trans)if (!(trans==0||trans==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dorcsd:trans=%d", "(""trans==0||trans==1"") failed for " "5th keyword trans", trans); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 72355 | /* Processing variable signs */ | |||
| 72356 | if (signs_capi == Py_None(&_Py_NoneStruct)) signs = 0; else | |||
| 72357 | f2py_success = int_from_pyobj(&signs,signs_capi,"_flapack.dorcsd() 6th keyword (signs) can't be converted to int"); | |||
| 72358 | if (f2py_success) { | |||
| 72359 | CHECKSCALAR(signs==0||signs==1,"signs==0||signs==1","6th keyword signs","dorcsd:signs=%d",signs)if (!(signs==0||signs==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dorcsd:signs=%d", "(""signs==0||signs==1"") failed for " "6th keyword signs", signs); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 72360 | /* Processing variable x11 */ | |||
| 72361 | capi_x11_intent |= (capi_overwrite_x11?0:F2PY_INTENT_COPY32); | |||
| 72362 | ; | |||
| 72363 | capi_x11_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 72364 | capi_x11_tmp = array_from_pyobj(NPY_DOUBLE,x11_Dims,x11_Rank,capi_x11_intent,x11_capi); | |||
| 72365 | if (capi_x11_tmp == NULL((void*)0)) { | |||
| 72366 | if (!PyErr_Occurred()) | |||
| 72367 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `x11' of _flapack.dorcsd to C/Fortran array" ); | |||
| 72368 | } else { | |||
| 72369 | x11 = (double *)(PyArray_DATA(capi_x11_tmp)((void *)((PyArrayObject_fields *)(capi_x11_tmp))->data)); | |||
| 72370 | ||||
| 72371 | /* Processing variable x22 */ | |||
| 72372 | capi_x22_intent |= (capi_overwrite_x22?0:F2PY_INTENT_COPY32); | |||
| 72373 | ; | |||
| 72374 | capi_x22_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 72375 | capi_x22_tmp = array_from_pyobj(NPY_DOUBLE,x22_Dims,x22_Rank,capi_x22_intent,x22_capi); | |||
| 72376 | if (capi_x22_tmp == NULL((void*)0)) { | |||
| 72377 | if (!PyErr_Occurred()) | |||
| 72378 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `x22' of _flapack.dorcsd to C/Fortran array" ); | |||
| 72379 | } else { | |||
| 72380 | x22 = (double *)(PyArray_DATA(capi_x22_tmp)((void *)((PyArrayObject_fields *)(capi_x22_tmp))->data)); | |||
| 72381 | ||||
| 72382 | /* Processing variable info */ | |||
| 72383 | /* Processing variable p */ | |||
| 72384 | p = shape(x11,0)x11_Dims[0]; | |||
| 72385 | /* Processing variable q */ | |||
| 72386 | q = shape(x11,1)x11_Dims[1]; | |||
| 72387 | /* Processing variable mmp */ | |||
| 72388 | mmp = shape(x22,0)x22_Dims[0]; | |||
| 72389 | /* Processing variable mmq */ | |||
| 72390 | mmq = shape(x22,1)x22_Dims[1]; | |||
| 72391 | /* Processing variable ldx11 */ | |||
| 72392 | ldx11 = MAX(1,shape(x11,0))((1 > x11_Dims[0]) ? (1) : (x11_Dims[0])); | |||
| 72393 | /* Processing variable ldx22 */ | |||
| 72394 | ldx22 = MAX(1,shape(x22,0))((1 > x22_Dims[0]) ? (1) : (x22_Dims[0])); | |||
| 72395 | /* Processing variable theta */ | |||
| 72396 | theta_Dims[0]=min(min(p,mmp),min(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq ))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) : (mmq)))); | |||
| 72397 | capi_theta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 72398 | capi_theta_tmp = array_from_pyobj(NPY_DOUBLE,theta_Dims,theta_Rank,capi_theta_intent,Py_None(&_Py_NoneStruct)); | |||
| 72399 | if (capi_theta_tmp == NULL((void*)0)) { | |||
| 72400 | if (!PyErr_Occurred()) | |||
| 72401 | PyErr_SetString(_flapack_error,"failed in converting hidden `theta' of _flapack.dorcsd to C/Fortran array" ); | |||
| 72402 | } else { | |||
| 72403 | theta = (double *)(PyArray_DATA(capi_theta_tmp)((void *)((PyArrayObject_fields *)(capi_theta_tmp))->data)); | |||
| 72404 | ||||
| 72405 | /* Processing variable u1 */ | |||
| 72406 | u1_Dims[0]=(compute_u1?p:0),u1_Dims[1]=(compute_u1?p:0); | |||
| 72407 | capi_u1_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 72408 | capi_u1_tmp = array_from_pyobj(NPY_DOUBLE,u1_Dims,u1_Rank,capi_u1_intent,Py_None(&_Py_NoneStruct)); | |||
| 72409 | if (capi_u1_tmp == NULL((void*)0)) { | |||
| 72410 | if (!PyErr_Occurred()) | |||
| 72411 | PyErr_SetString(_flapack_error,"failed in converting hidden `u1' of _flapack.dorcsd to C/Fortran array" ); | |||
| 72412 | } else { | |||
| 72413 | u1 = (double *)(PyArray_DATA(capi_u1_tmp)((void *)((PyArrayObject_fields *)(capi_u1_tmp))->data)); | |||
| 72414 | ||||
| 72415 | /* Processing variable u2 */ | |||
| 72416 | u2_Dims[0]=(compute_u2?mmp:0),u2_Dims[1]=(compute_u2?mmp:0); | |||
| 72417 | capi_u2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 72418 | capi_u2_tmp = array_from_pyobj(NPY_DOUBLE,u2_Dims,u2_Rank,capi_u2_intent,Py_None(&_Py_NoneStruct)); | |||
| 72419 | if (capi_u2_tmp == NULL((void*)0)) { | |||
| 72420 | if (!PyErr_Occurred()) | |||
| 72421 | PyErr_SetString(_flapack_error,"failed in converting hidden `u2' of _flapack.dorcsd to C/Fortran array" ); | |||
| 72422 | } else { | |||
| 72423 | u2 = (double *)(PyArray_DATA(capi_u2_tmp)((void *)((PyArrayObject_fields *)(capi_u2_tmp))->data)); | |||
| 72424 | ||||
| 72425 | /* Processing variable v1t */ | |||
| 72426 | v1t_Dims[0]=(compute_v1t?q:0),v1t_Dims[1]=(compute_v1t?q:0); | |||
| 72427 | capi_v1t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 72428 | capi_v1t_tmp = array_from_pyobj(NPY_DOUBLE,v1t_Dims,v1t_Rank,capi_v1t_intent,Py_None(&_Py_NoneStruct)); | |||
| 72429 | if (capi_v1t_tmp == NULL((void*)0)) { | |||
| 72430 | if (!PyErr_Occurred()) | |||
| 72431 | PyErr_SetString(_flapack_error,"failed in converting hidden `v1t' of _flapack.dorcsd to C/Fortran array" ); | |||
| 72432 | } else { | |||
| 72433 | v1t = (double *)(PyArray_DATA(capi_v1t_tmp)((void *)((PyArrayObject_fields *)(capi_v1t_tmp))->data)); | |||
| 72434 | ||||
| 72435 | /* Processing variable v2t */ | |||
| 72436 | v2t_Dims[0]=(compute_v2t?mmq:0),v2t_Dims[1]=(compute_v2t?mmq:0); | |||
| 72437 | capi_v2t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 72438 | capi_v2t_tmp = array_from_pyobj(NPY_DOUBLE,v2t_Dims,v2t_Rank,capi_v2t_intent,Py_None(&_Py_NoneStruct)); | |||
| 72439 | if (capi_v2t_tmp == NULL((void*)0)) { | |||
| 72440 | if (!PyErr_Occurred()) | |||
| 72441 | PyErr_SetString(_flapack_error,"failed in converting hidden `v2t' of _flapack.dorcsd to C/Fortran array" ); | |||
| 72442 | } else { | |||
| 72443 | v2t = (double *)(PyArray_DATA(capi_v2t_tmp)((void *)((PyArrayObject_fields *)(capi_v2t_tmp))->data)); | |||
| 72444 | ||||
| 72445 | /* Processing variable ldu1 */ | |||
| 72446 | ldu1 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 72447 | /* Processing variable ldu2 */ | |||
| 72448 | ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 72449 | /* Processing variable ldv1t */ | |||
| 72450 | ldv1t = MAX(1,q)((1 > q) ? (1) : (q)); | |||
| 72451 | /* Processing variable ldv2t */ | |||
| 72452 | ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq)); | |||
| 72453 | /* Processing variable iwork */ | |||
| 72454 | iwork_Dims[0]=p+mmp-MIN(MIN(p,mmp),MIN(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq ))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) : (mmq)))); | |||
| 72455 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 72456 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 72457 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 72458 | if (!PyErr_Occurred()) | |||
| 72459 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dorcsd to C/Fortran array" ); | |||
| 72460 | } else { | |||
| 72461 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 72462 | ||||
| 72463 | /* Processing variable m */ | |||
| 72464 | m = p+mmp; | |||
| 72465 | CHECKSCALAR(p+mmp==q+mmq,"p+mmp==q+mmq","hidden m","dorcsd:m=%d",m)if (!(p+mmp==q+mmq)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dorcsd:m=%d", "(""p+mmp==q+mmq"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 72466 | /* Processing variable x12 */ | |||
| 72467 | capi_x12_intent |= (capi_overwrite_x12?0:F2PY_INTENT_COPY32); | |||
| 72468 | x12_Dims[0]=p,x12_Dims[1]=mmq; | |||
| 72469 | capi_x12_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 72470 | capi_x12_tmp = array_from_pyobj(NPY_DOUBLE,x12_Dims,x12_Rank,capi_x12_intent,x12_capi); | |||
| 72471 | if (capi_x12_tmp == NULL((void*)0)) { | |||
| 72472 | if (!PyErr_Occurred()) | |||
| 72473 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `x12' of _flapack.dorcsd to C/Fortran array" ); | |||
| 72474 | } else { | |||
| 72475 | x12 = (double *)(PyArray_DATA(capi_x12_tmp)((void *)((PyArrayObject_fields *)(capi_x12_tmp))->data)); | |||
| 72476 | ||||
| 72477 | CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0),"mmq==shape(x12,1)||p==shape(x12,0)","2nd argument x12")if (!(mmq==x12_Dims[1]||p==x12_Dims[0])) { PyErr_SetString(_flapack_error ,"(""mmq==shape(x12,1)||p==shape(x12,0)"") failed for ""2nd argument x12" ); } else { | |||
| 72478 | /* Processing variable x21 */ | |||
| 72479 | capi_x21_intent |= (capi_overwrite_x21?0:F2PY_INTENT_COPY32); | |||
| 72480 | x21_Dims[0]=mmp,x21_Dims[1]=q; | |||
| 72481 | capi_x21_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 72482 | capi_x21_tmp = array_from_pyobj(NPY_DOUBLE,x21_Dims,x21_Rank,capi_x21_intent,x21_capi); | |||
| 72483 | if (capi_x21_tmp == NULL((void*)0)) { | |||
| 72484 | if (!PyErr_Occurred()) | |||
| 72485 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x21' of _flapack.dorcsd to C/Fortran array" ); | |||
| 72486 | } else { | |||
| 72487 | x21 = (double *)(PyArray_DATA(capi_x21_tmp)((void *)((PyArrayObject_fields *)(capi_x21_tmp))->data)); | |||
| 72488 | ||||
| 72489 | CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1),"mmp==shape(x21,0)||q==shape(x21,1)","3rd argument x21")if (!(mmp==x21_Dims[0]||q==x21_Dims[1])) { PyErr_SetString(_flapack_error ,"(""mmp==shape(x21,0)||q==shape(x21,1)"") failed for ""3rd argument x21" ); } else { | |||
| 72490 | /* Processing variable ldx12 */ | |||
| 72491 | ldx12 = MAX(1,shape(x12,0))((1 > x12_Dims[0]) ? (1) : (x12_Dims[0])); | |||
| 72492 | /* Processing variable ldx21 */ | |||
| 72493 | ldx21 = MAX(1,shape(x21,0))((1 > x21_Dims[0]) ? (1) : (x21_Dims[0])); | |||
| 72494 | /* Processing variable lwork */ | |||
| 72495 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = 2+2*m+5*MAX(1,q-1)((1 > q-1) ? (1) : (q-1))+4*MAX(1,q)((1 > q) ? (1) : (q))+8*q; else | |||
| 72496 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dorcsd() 7th keyword (lwork) can't be converted to int"); | |||
| 72497 | if (f2py_success) { | |||
| 72498 | CHECKSCALAR(lwork==-1||lwork>0,"lwork==-1||lwork>0","7th keyword lwork","dorcsd:lwork=%d",lwork)if (!(lwork==-1||lwork>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dorcsd:lwork=%d", "(""lwork==-1||lwork>0"") failed for " "7th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 72499 | /* Processing variable work */ | |||
| 72500 | work_Dims[0]=lwork; | |||
| 72501 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 72502 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 72503 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 72504 | if (!PyErr_Occurred()) | |||
| 72505 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dorcsd to C/Fortran array" ); | |||
| 72506 | } else { | |||
| 72507 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 72508 | ||||
| 72509 | /*end of frompyobj*/ | |||
| 72510 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72511 | f2py_start_call_clock(); | |||
| 72512 | #endif | |||
| 72513 | /*callfortranroutine*/ | |||
| 72514 | (*f2py_func)((compute_u1?"Y":"N"),(compute_u2?"Y":"N"),(compute_v1t?"Y":"N"),(compute_v2t?"Y":"N"),(trans?"T":"N"),(signs?"O":"D"),&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,iwork,&info) ; | |||
| 72515 | /*(*f2py_func)(&compute_u1,&compute_u2,&compute_v1t,&compute_v2t,&trans,&signs,&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,iwork,&info,&mmp,&mmq);*/ | |||
| 72516 | if (PyErr_Occurred()) | |||
| 72517 | f2py_success = 0; | |||
| 72518 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72519 | f2py_stop_call_clock(); | |||
| 72520 | #endif | |||
| 72521 | /*end of callfortranroutine*/ | |||
| 72522 | if (f2py_success) { | |||
| 72523 | /*pyobjfrom*/ | |||
| 72524 | /*end of pyobjfrom*/ | |||
| 72525 | CFUNCSMESS("Building return value.\n"); | |||
| 72526 | capi_buildvalue = Py_BuildValue("NNNNNNNNNi",capi_x11_tmp,capi_x12_tmp,capi_x21_tmp,capi_x22_tmp,capi_theta_tmp,capi_u1_tmp,capi_u2_tmp,capi_v1t_tmp,capi_v2t_tmp,info); | |||
| 72527 | /*closepyobjfrom*/ | |||
| 72528 | /*end of closepyobjfrom*/ | |||
| 72529 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 72530 | /*cleanupfrompyobj*/ | |||
| 72531 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 72532 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 72533 | /* End of cleaning variable work */ | |||
| 72534 | } /*CHECKSCALAR(lwork==-1||lwork>0)*/ | |||
| 72535 | } /*if (f2py_success) of lwork*/ | |||
| 72536 | /* End of cleaning variable lwork */ | |||
| 72537 | /* End of cleaning variable ldx21 */ | |||
| 72538 | /* End of cleaning variable ldx12 */ | |||
| 72539 | } /*CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1))*/ | |||
| 72540 | } /*if (capi_x21_tmp == NULL) ... else of x21*/ | |||
| 72541 | /* End of cleaning variable x21 */ | |||
| 72542 | } /*CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0))*/ | |||
| 72543 | } /*if (capi_x12_tmp == NULL) ... else of x12*/ | |||
| 72544 | /* End of cleaning variable x12 */ | |||
| 72545 | } /*CHECKSCALAR(p+mmp==q+mmq)*/ | |||
| 72546 | /* End of cleaning variable m */ | |||
| 72547 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 72548 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 72549 | /* End of cleaning variable iwork */ | |||
| 72550 | /* End of cleaning variable ldv2t */ | |||
| 72551 | /* End of cleaning variable ldv1t */ | |||
| 72552 | /* End of cleaning variable ldu2 */ | |||
| 72553 | /* End of cleaning variable ldu1 */ | |||
| 72554 | } /*if (capi_v2t_tmp == NULL) ... else of v2t*/ | |||
| 72555 | /* End of cleaning variable v2t */ | |||
| 72556 | } /*if (capi_v1t_tmp == NULL) ... else of v1t*/ | |||
| 72557 | /* End of cleaning variable v1t */ | |||
| 72558 | } /*if (capi_u2_tmp == NULL) ... else of u2*/ | |||
| 72559 | /* End of cleaning variable u2 */ | |||
| 72560 | } /*if (capi_u1_tmp == NULL) ... else of u1*/ | |||
| 72561 | /* End of cleaning variable u1 */ | |||
| 72562 | } /*if (capi_theta_tmp == NULL) ... else of theta*/ | |||
| 72563 | /* End of cleaning variable theta */ | |||
| 72564 | /* End of cleaning variable ldx22 */ | |||
| 72565 | /* End of cleaning variable ldx11 */ | |||
| 72566 | /* End of cleaning variable mmq */ | |||
| 72567 | /* End of cleaning variable mmp */ | |||
| 72568 | /* End of cleaning variable q */ | |||
| 72569 | /* End of cleaning variable p */ | |||
| 72570 | /* End of cleaning variable info */ | |||
| 72571 | } /*if (capi_x22_tmp == NULL) ... else of x22*/ | |||
| 72572 | /* End of cleaning variable x22 */ | |||
| 72573 | } /*if (capi_x11_tmp == NULL) ... else of x11*/ | |||
| 72574 | /* End of cleaning variable x11 */ | |||
| 72575 | } /*CHECKSCALAR(signs==0||signs==1)*/ | |||
| 72576 | } /*if (f2py_success) of signs*/ | |||
| 72577 | /* End of cleaning variable signs */ | |||
| 72578 | } /*CHECKSCALAR(trans==0||trans==1)*/ | |||
| 72579 | } /*if (f2py_success) of trans*/ | |||
| 72580 | /* End of cleaning variable trans */ | |||
| 72581 | } /*CHECKSCALAR(compute_v2t==0||compute_v2t==1)*/ | |||
| 72582 | } /*if (f2py_success) of compute_v2t*/ | |||
| 72583 | /* End of cleaning variable compute_v2t */ | |||
| 72584 | } /*CHECKSCALAR(compute_v1t==0||compute_v1t==1)*/ | |||
| 72585 | } /*if (f2py_success) of compute_v1t*/ | |||
| 72586 | /* End of cleaning variable compute_v1t */ | |||
| 72587 | } /*CHECKSCALAR(compute_u2==0||compute_u2==1)*/ | |||
| 72588 | } /*if (f2py_success) of compute_u2*/ | |||
| 72589 | /* End of cleaning variable compute_u2 */ | |||
| 72590 | } /*CHECKSCALAR(compute_u1==0||compute_u1==1)*/ | |||
| 72591 | } /*if (f2py_success) of compute_u1*/ | |||
| 72592 | /* End of cleaning variable compute_u1 */ | |||
| 72593 | /*end of cleanupfrompyobj*/ | |||
| 72594 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 72595 | /*routdebugfailure*/ | |||
| 72596 | } else { | |||
| 72597 | /*routdebugleave*/ | |||
| 72598 | } | |||
| 72599 | CFUNCSMESS("Freeing memory.\n"); | |||
| 72600 | /*freemem*/ | |||
| 72601 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72602 | f2py_stop_clock(); | |||
| 72603 | #endif | |||
| 72604 | return capi_buildvalue; | |||
| 72605 | } | |||
| 72606 | /******************************* end of dorcsd *******************************/ | |||
| 72607 | ||||
| 72608 | /******************************** sorcsd_lwork ********************************/ | |||
| 72609 | static char doc_f2py_rout__flapack_sorcsd_lwork[] = "\ | |||
| 72610 | work,info = sorcsd_lwork(m,p,q)\n\nWrapper for ``sorcsd_lwork``.\ | |||
| 72611 | \n\nParameters\n----------\n" | |||
| 72612 | "m : input int\n" | |||
| 72613 | "p : input int\n" | |||
| 72614 | "q : input int\n" | |||
| 72615 | "\nReturns\n-------\n" | |||
| 72616 | "work : float\n" | |||
| 72617 | "info : int"; | |||
| 72618 | /* extern void F_FUNC(sorcsd ,SORCSD )(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 72619 | static PyObject *f2py_rout__flapack_sorcsd_lwork(const PyObject *capi_self, | |||
| 72620 | PyObject *capi_args, | |||
| 72621 | PyObject *capi_keywds, | |||
| 72622 | void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 72623 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 72624 | volatile int f2py_success = 1; | |||
| 72625 | /*decl*/ | |||
| 72626 | ||||
| 72627 | int m = 0; | |||
| 72628 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 72629 | int p = 0; | |||
| 72630 | PyObject *p_capi = Py_None(&_Py_NoneStruct); | |||
| 72631 | int q = 0; | |||
| 72632 | PyObject *q_capi = Py_None(&_Py_NoneStruct); | |||
| 72633 | float x11 = 0; | |||
| 72634 | int ldx11 = 0; | |||
| 72635 | float x12 = 0; | |||
| 72636 | int ldx12 = 0; | |||
| 72637 | float x21 = 0; | |||
| 72638 | int ldx21 = 0; | |||
| 72639 | float x22 = 0; | |||
| 72640 | int ldx22 = 0; | |||
| 72641 | float theta = 0; | |||
| 72642 | float u1 = 0; | |||
| 72643 | int ldu1 = 0; | |||
| 72644 | float u2 = 0; | |||
| 72645 | int ldu2 = 0; | |||
| 72646 | float v1t = 0; | |||
| 72647 | int ldv1t = 0; | |||
| 72648 | float v2t = 0; | |||
| 72649 | int ldv2t = 0; | |||
| 72650 | float work = 0; | |||
| 72651 | int lwork = 0; | |||
| 72652 | int iwork = 0; | |||
| 72653 | int info = 0; | |||
| 72654 | int mmp = 0; | |||
| 72655 | int mmq = 0; | |||
| 72656 | static char *capi_kwlist[] = {"m","p","q",NULL((void*)0)}; | |||
| 72657 | ||||
| 72658 | /*routdebugenter*/ | |||
| 72659 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72660 | f2py_start_clock(); | |||
| 72661 | #endif | |||
| 72662 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 72663 | "OOO:_flapack.sorcsd_lwork",\ | |||
| 72664 | capi_kwlist,&m_capi,&p_capi,&q_capi)) | |||
| 72665 | return NULL((void*)0); | |||
| 72666 | /*frompyobj*/ | |||
| 72667 | /* Processing variable m */ | |||
| 72668 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sorcsd_lwork() 1st argument (m) can't be converted to int"); | |||
| 72669 | if (f2py_success) { | |||
| 72670 | /* Processing variable p */ | |||
| 72671 | f2py_success = int_from_pyobj(&p,p_capi,"_flapack.sorcsd_lwork() 2nd argument (p) can't be converted to int"); | |||
| 72672 | if (f2py_success) { | |||
| 72673 | /* Processing variable q */ | |||
| 72674 | f2py_success = int_from_pyobj(&q,q_capi,"_flapack.sorcsd_lwork() 3rd argument (q) can't be converted to int"); | |||
| 72675 | if (f2py_success) { | |||
| 72676 | /* Processing variable x11 */ | |||
| 72677 | /* Processing variable x22 */ | |||
| 72678 | /* Processing variable x12 */ | |||
| 72679 | /* Processing variable x21 */ | |||
| 72680 | /* Processing variable theta */ | |||
| 72681 | /* Processing variable u1 */ | |||
| 72682 | /* Processing variable u2 */ | |||
| 72683 | /* Processing variable v1t */ | |||
| 72684 | /* Processing variable v2t */ | |||
| 72685 | /* Processing variable iwork */ | |||
| 72686 | /* Processing variable lwork */ | |||
| 72687 | lwork = -1; | |||
| 72688 | /* Processing variable work */ | |||
| 72689 | /* Processing variable info */ | |||
| 72690 | /* Processing variable mmp */ | |||
| 72691 | mmp = m-p; | |||
| 72692 | /* Processing variable mmq */ | |||
| 72693 | mmq = m-q; | |||
| 72694 | /* Processing variable ldx11 */ | |||
| 72695 | ldx11 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 72696 | /* Processing variable ldx12 */ | |||
| 72697 | ldx12 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 72698 | /* Processing variable ldx21 */ | |||
| 72699 | ldx21 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 72700 | /* Processing variable ldx22 */ | |||
| 72701 | ldx22 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 72702 | /* Processing variable ldu1 */ | |||
| 72703 | ldu1 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 72704 | /* Processing variable ldu2 */ | |||
| 72705 | ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 72706 | /* Processing variable ldv1t */ | |||
| 72707 | ldv1t = MAX(1,q)((1 > q) ? (1) : (q)); | |||
| 72708 | /* Processing variable ldv2t */ | |||
| 72709 | ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq)); | |||
| 72710 | /*end of frompyobj*/ | |||
| 72711 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72712 | f2py_start_call_clock(); | |||
| 72713 | #endif | |||
| 72714 | /*callfortranroutine*/ | |||
| 72715 | (*f2py_func)("Y","Y","Y","Y","N","D",&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&iwork,&info) ; | |||
| 72716 | /*(*f2py_func)(&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&iwork,&info,&mmp,&mmq);*/ | |||
| 72717 | if (PyErr_Occurred()) | |||
| 72718 | f2py_success = 0; | |||
| 72719 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72720 | f2py_stop_call_clock(); | |||
| 72721 | #endif | |||
| 72722 | /*end of callfortranroutine*/ | |||
| 72723 | if (f2py_success) { | |||
| 72724 | /*pyobjfrom*/ | |||
| 72725 | /*end of pyobjfrom*/ | |||
| 72726 | CFUNCSMESS("Building return value.\n"); | |||
| 72727 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 72728 | /*closepyobjfrom*/ | |||
| 72729 | /*end of closepyobjfrom*/ | |||
| 72730 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 72731 | /*cleanupfrompyobj*/ | |||
| 72732 | /* End of cleaning variable ldv2t */ | |||
| 72733 | /* End of cleaning variable ldv1t */ | |||
| 72734 | /* End of cleaning variable ldu2 */ | |||
| 72735 | /* End of cleaning variable ldu1 */ | |||
| 72736 | /* End of cleaning variable ldx22 */ | |||
| 72737 | /* End of cleaning variable ldx21 */ | |||
| 72738 | /* End of cleaning variable ldx12 */ | |||
| 72739 | /* End of cleaning variable ldx11 */ | |||
| 72740 | /* End of cleaning variable mmq */ | |||
| 72741 | /* End of cleaning variable mmp */ | |||
| 72742 | /* End of cleaning variable info */ | |||
| 72743 | /* End of cleaning variable work */ | |||
| 72744 | /* End of cleaning variable lwork */ | |||
| 72745 | /* End of cleaning variable iwork */ | |||
| 72746 | /* End of cleaning variable v2t */ | |||
| 72747 | /* End of cleaning variable v1t */ | |||
| 72748 | /* End of cleaning variable u2 */ | |||
| 72749 | /* End of cleaning variable u1 */ | |||
| 72750 | /* End of cleaning variable theta */ | |||
| 72751 | /* End of cleaning variable x21 */ | |||
| 72752 | /* End of cleaning variable x12 */ | |||
| 72753 | /* End of cleaning variable x22 */ | |||
| 72754 | /* End of cleaning variable x11 */ | |||
| 72755 | } /*if (f2py_success) of q*/ | |||
| 72756 | /* End of cleaning variable q */ | |||
| 72757 | } /*if (f2py_success) of p*/ | |||
| 72758 | /* End of cleaning variable p */ | |||
| 72759 | } /*if (f2py_success) of m*/ | |||
| 72760 | /* End of cleaning variable m */ | |||
| 72761 | /*end of cleanupfrompyobj*/ | |||
| 72762 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 72763 | /*routdebugfailure*/ | |||
| 72764 | } else { | |||
| 72765 | /*routdebugleave*/ | |||
| 72766 | } | |||
| 72767 | CFUNCSMESS("Freeing memory.\n"); | |||
| 72768 | /*freemem*/ | |||
| 72769 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72770 | f2py_stop_clock(); | |||
| 72771 | #endif | |||
| 72772 | return capi_buildvalue; | |||
| 72773 | } | |||
| 72774 | /**************************** end of sorcsd_lwork ****************************/ | |||
| 72775 | ||||
| 72776 | /******************************** dorcsd_lwork ********************************/ | |||
| 72777 | static char doc_f2py_rout__flapack_dorcsd_lwork[] = "\ | |||
| 72778 | work,info = dorcsd_lwork(m,p,q)\n\nWrapper for ``dorcsd_lwork``.\ | |||
| 72779 | \n\nParameters\n----------\n" | |||
| 72780 | "m : input int\n" | |||
| 72781 | "p : input int\n" | |||
| 72782 | "q : input int\n" | |||
| 72783 | "\nReturns\n-------\n" | |||
| 72784 | "work : float\n" | |||
| 72785 | "info : int"; | |||
| 72786 | /* extern void F_FUNC(dorcsd ,DORCSD )(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 72787 | static PyObject *f2py_rout__flapack_dorcsd_lwork(const PyObject *capi_self, | |||
| 72788 | PyObject *capi_args, | |||
| 72789 | PyObject *capi_keywds, | |||
| 72790 | void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 72791 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 72792 | volatile int f2py_success = 1; | |||
| 72793 | /*decl*/ | |||
| 72794 | ||||
| 72795 | int m = 0; | |||
| 72796 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 72797 | int p = 0; | |||
| 72798 | PyObject *p_capi = Py_None(&_Py_NoneStruct); | |||
| 72799 | int q = 0; | |||
| 72800 | PyObject *q_capi = Py_None(&_Py_NoneStruct); | |||
| 72801 | double x11 = 0; | |||
| 72802 | int ldx11 = 0; | |||
| 72803 | double x12 = 0; | |||
| 72804 | int ldx12 = 0; | |||
| 72805 | double x21 = 0; | |||
| 72806 | int ldx21 = 0; | |||
| 72807 | double x22 = 0; | |||
| 72808 | int ldx22 = 0; | |||
| 72809 | double theta = 0; | |||
| 72810 | double u1 = 0; | |||
| 72811 | int ldu1 = 0; | |||
| 72812 | double u2 = 0; | |||
| 72813 | int ldu2 = 0; | |||
| 72814 | double v1t = 0; | |||
| 72815 | int ldv1t = 0; | |||
| 72816 | double v2t = 0; | |||
| 72817 | int ldv2t = 0; | |||
| 72818 | double work = 0; | |||
| 72819 | int lwork = 0; | |||
| 72820 | int iwork = 0; | |||
| 72821 | int info = 0; | |||
| 72822 | int mmp = 0; | |||
| 72823 | int mmq = 0; | |||
| 72824 | static char *capi_kwlist[] = {"m","p","q",NULL((void*)0)}; | |||
| 72825 | ||||
| 72826 | /*routdebugenter*/ | |||
| 72827 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72828 | f2py_start_clock(); | |||
| 72829 | #endif | |||
| 72830 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 72831 | "OOO:_flapack.dorcsd_lwork",\ | |||
| 72832 | capi_kwlist,&m_capi,&p_capi,&q_capi)) | |||
| 72833 | return NULL((void*)0); | |||
| 72834 | /*frompyobj*/ | |||
| 72835 | /* Processing variable m */ | |||
| 72836 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dorcsd_lwork() 1st argument (m) can't be converted to int"); | |||
| 72837 | if (f2py_success) { | |||
| 72838 | /* Processing variable p */ | |||
| 72839 | f2py_success = int_from_pyobj(&p,p_capi,"_flapack.dorcsd_lwork() 2nd argument (p) can't be converted to int"); | |||
| 72840 | if (f2py_success) { | |||
| 72841 | /* Processing variable q */ | |||
| 72842 | f2py_success = int_from_pyobj(&q,q_capi,"_flapack.dorcsd_lwork() 3rd argument (q) can't be converted to int"); | |||
| 72843 | if (f2py_success) { | |||
| 72844 | /* Processing variable x11 */ | |||
| 72845 | /* Processing variable x22 */ | |||
| 72846 | /* Processing variable x12 */ | |||
| 72847 | /* Processing variable x21 */ | |||
| 72848 | /* Processing variable theta */ | |||
| 72849 | /* Processing variable u1 */ | |||
| 72850 | /* Processing variable u2 */ | |||
| 72851 | /* Processing variable v1t */ | |||
| 72852 | /* Processing variable v2t */ | |||
| 72853 | /* Processing variable iwork */ | |||
| 72854 | /* Processing variable lwork */ | |||
| 72855 | lwork = -1; | |||
| 72856 | /* Processing variable work */ | |||
| 72857 | /* Processing variable info */ | |||
| 72858 | /* Processing variable mmp */ | |||
| 72859 | mmp = m-p; | |||
| 72860 | /* Processing variable mmq */ | |||
| 72861 | mmq = m-q; | |||
| 72862 | /* Processing variable ldx11 */ | |||
| 72863 | ldx11 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 72864 | /* Processing variable ldx12 */ | |||
| 72865 | ldx12 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 72866 | /* Processing variable ldx21 */ | |||
| 72867 | ldx21 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 72868 | /* Processing variable ldx22 */ | |||
| 72869 | ldx22 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 72870 | /* Processing variable ldu1 */ | |||
| 72871 | ldu1 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 72872 | /* Processing variable ldu2 */ | |||
| 72873 | ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 72874 | /* Processing variable ldv1t */ | |||
| 72875 | ldv1t = MAX(1,q)((1 > q) ? (1) : (q)); | |||
| 72876 | /* Processing variable ldv2t */ | |||
| 72877 | ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq)); | |||
| 72878 | /*end of frompyobj*/ | |||
| 72879 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72880 | f2py_start_call_clock(); | |||
| 72881 | #endif | |||
| 72882 | /*callfortranroutine*/ | |||
| 72883 | (*f2py_func)("Y","Y","Y","Y","N","D",&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&iwork,&info) ; | |||
| 72884 | /*(*f2py_func)(&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&iwork,&info,&mmp,&mmq);*/ | |||
| 72885 | if (PyErr_Occurred()) | |||
| 72886 | f2py_success = 0; | |||
| 72887 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72888 | f2py_stop_call_clock(); | |||
| 72889 | #endif | |||
| 72890 | /*end of callfortranroutine*/ | |||
| 72891 | if (f2py_success) { | |||
| 72892 | /*pyobjfrom*/ | |||
| 72893 | /*end of pyobjfrom*/ | |||
| 72894 | CFUNCSMESS("Building return value.\n"); | |||
| 72895 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 72896 | /*closepyobjfrom*/ | |||
| 72897 | /*end of closepyobjfrom*/ | |||
| 72898 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 72899 | /*cleanupfrompyobj*/ | |||
| 72900 | /* End of cleaning variable ldv2t */ | |||
| 72901 | /* End of cleaning variable ldv1t */ | |||
| 72902 | /* End of cleaning variable ldu2 */ | |||
| 72903 | /* End of cleaning variable ldu1 */ | |||
| 72904 | /* End of cleaning variable ldx22 */ | |||
| 72905 | /* End of cleaning variable ldx21 */ | |||
| 72906 | /* End of cleaning variable ldx12 */ | |||
| 72907 | /* End of cleaning variable ldx11 */ | |||
| 72908 | /* End of cleaning variable mmq */ | |||
| 72909 | /* End of cleaning variable mmp */ | |||
| 72910 | /* End of cleaning variable info */ | |||
| 72911 | /* End of cleaning variable work */ | |||
| 72912 | /* End of cleaning variable lwork */ | |||
| 72913 | /* End of cleaning variable iwork */ | |||
| 72914 | /* End of cleaning variable v2t */ | |||
| 72915 | /* End of cleaning variable v1t */ | |||
| 72916 | /* End of cleaning variable u2 */ | |||
| 72917 | /* End of cleaning variable u1 */ | |||
| 72918 | /* End of cleaning variable theta */ | |||
| 72919 | /* End of cleaning variable x21 */ | |||
| 72920 | /* End of cleaning variable x12 */ | |||
| 72921 | /* End of cleaning variable x22 */ | |||
| 72922 | /* End of cleaning variable x11 */ | |||
| 72923 | } /*if (f2py_success) of q*/ | |||
| 72924 | /* End of cleaning variable q */ | |||
| 72925 | } /*if (f2py_success) of p*/ | |||
| 72926 | /* End of cleaning variable p */ | |||
| 72927 | } /*if (f2py_success) of m*/ | |||
| 72928 | /* End of cleaning variable m */ | |||
| 72929 | /*end of cleanupfrompyobj*/ | |||
| 72930 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 72931 | /*routdebugfailure*/ | |||
| 72932 | } else { | |||
| 72933 | /*routdebugleave*/ | |||
| 72934 | } | |||
| 72935 | CFUNCSMESS("Freeing memory.\n"); | |||
| 72936 | /*freemem*/ | |||
| 72937 | #ifdef F2PY_REPORT_ATEXIT | |||
| 72938 | f2py_stop_clock(); | |||
| 72939 | #endif | |||
| 72940 | return capi_buildvalue; | |||
| 72941 | } | |||
| 72942 | /**************************** end of dorcsd_lwork ****************************/ | |||
| 72943 | ||||
| 72944 | /*********************************** cuncsd ***********************************/ | |||
| 72945 | static char doc_f2py_rout__flapack_cuncsd[] = "\ | |||
| 72946 | cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = cuncsd(x11,x12,x21,x22,[compute_u1,compute_u2,compute_v1t,compute_v2t,trans,signs,lwork,lrwork,overwrite_x11,overwrite_x12,overwrite_x21,overwrite_x22])\n\nWrapper for ``cuncsd``.\ | |||
| 72947 | \n\nParameters\n----------\n" | |||
| 72948 | "x11 : input rank-2 array('F') with bounds (p,q)\n" | |||
| 72949 | "x12 : input rank-2 array('F') with bounds (p,mmq)\n" | |||
| 72950 | "x21 : input rank-2 array('F') with bounds (mmp,q)\n" | |||
| 72951 | "x22 : input rank-2 array('F') with bounds (mmp,mmq)\n" | |||
| 72952 | "\nOther Parameters\n----------------\n" | |||
| 72953 | "compute_u1 : input int, optional\n Default: 1\n" | |||
| 72954 | "compute_u2 : input int, optional\n Default: 1\n" | |||
| 72955 | "compute_v1t : input int, optional\n Default: 1\n" | |||
| 72956 | "compute_v2t : input int, optional\n Default: 1\n" | |||
| 72957 | "trans : input int, optional\n Default: 0\n" | |||
| 72958 | "signs : input int, optional\n Default: 0\n" | |||
| 72959 | "overwrite_x11 : input int, optional\n Default: 0\n" | |||
| 72960 | "overwrite_x12 : input int, optional\n Default: 0\n" | |||
| 72961 | "overwrite_x21 : input int, optional\n Default: 0\n" | |||
| 72962 | "overwrite_x22 : input int, optional\n Default: 0\n" | |||
| 72963 | "lwork : input int, optional\n Default: 2*m+MAX(1,MAX(mmp,mmq))+1\n" | |||
| 72964 | "lrwork : input int, optional\n Default: 5*MAX(1,q-1)+4*MAX(1,q)+8*q+1\n" | |||
| 72965 | "\nReturns\n-------\n" | |||
| 72966 | "cs11 : rank-2 array('F') with bounds (p,q) and x11 storage\n" | |||
| 72967 | "cs12 : rank-2 array('F') with bounds (p,mmq) and x12 storage\n" | |||
| 72968 | "cs21 : rank-2 array('F') with bounds (mmp,q) and x21 storage\n" | |||
| 72969 | "cs22 : rank-2 array('F') with bounds (mmp,mmq) and x22 storage\n" | |||
| 72970 | "theta : rank-1 array('f') with bounds (min(min(p,mmp),min(q,mmq)))\n" | |||
| 72971 | "u1 : rank-2 array('F') with bounds ((compute_u1?p:0),(compute_u1?p:0))\n" | |||
| 72972 | "u2 : rank-2 array('F') with bounds ((compute_u2?mmp:0),(compute_u2?mmp:0))\n" | |||
| 72973 | "v1t : rank-2 array('F') with bounds ((compute_v1t?q:0),(compute_v1t?q:0))\n" | |||
| 72974 | "v2t : rank-2 array('F') with bounds ((compute_v2t?mmq:0),(compute_v2t?mmq:0))\n" | |||
| 72975 | "info : int"; | |||
| 72976 | /* extern void F_FUNC(cuncsd,CUNCSD)(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 72977 | static PyObject *f2py_rout__flapack_cuncsd(const PyObject *capi_self, | |||
| 72978 | PyObject *capi_args, | |||
| 72979 | PyObject *capi_keywds, | |||
| 72980 | void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 72981 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 72982 | volatile int f2py_success = 1; | |||
| 72983 | /*decl*/ | |||
| 72984 | ||||
| 72985 | int compute_u1 = 0; | |||
| 72986 | PyObject *compute_u1_capi = Py_None(&_Py_NoneStruct); | |||
| 72987 | int compute_u2 = 0; | |||
| 72988 | PyObject *compute_u2_capi = Py_None(&_Py_NoneStruct); | |||
| 72989 | int compute_v1t = 0; | |||
| 72990 | PyObject *compute_v1t_capi = Py_None(&_Py_NoneStruct); | |||
| 72991 | int compute_v2t = 0; | |||
| 72992 | PyObject *compute_v2t_capi = Py_None(&_Py_NoneStruct); | |||
| 72993 | int trans = 0; | |||
| 72994 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 72995 | int signs = 0; | |||
| 72996 | PyObject *signs_capi = Py_None(&_Py_NoneStruct); | |||
| 72997 | int m = 0; | |||
| 72998 | int p = 0; | |||
| 72999 | int q = 0; | |||
| 73000 | complex_float *x11 = NULL((void*)0); | |||
| 73001 | npy_intp x11_Dims[2] = {-1, -1}; | |||
| 73002 | const int x11_Rank = 2; | |||
| 73003 | PyArrayObject *capi_x11_tmp = NULL((void*)0); | |||
| 73004 | int capi_x11_intent = 0; | |||
| 73005 | int capi_overwrite_x11 = 0; | |||
| 73006 | PyObject *x11_capi = Py_None(&_Py_NoneStruct); | |||
| 73007 | int ldx11 = 0; | |||
| 73008 | complex_float *x12 = NULL((void*)0); | |||
| 73009 | npy_intp x12_Dims[2] = {-1, -1}; | |||
| 73010 | const int x12_Rank = 2; | |||
| 73011 | PyArrayObject *capi_x12_tmp = NULL((void*)0); | |||
| 73012 | int capi_x12_intent = 0; | |||
| 73013 | int capi_overwrite_x12 = 0; | |||
| 73014 | PyObject *x12_capi = Py_None(&_Py_NoneStruct); | |||
| 73015 | int ldx12 = 0; | |||
| 73016 | complex_float *x21 = NULL((void*)0); | |||
| 73017 | npy_intp x21_Dims[2] = {-1, -1}; | |||
| 73018 | const int x21_Rank = 2; | |||
| 73019 | PyArrayObject *capi_x21_tmp = NULL((void*)0); | |||
| 73020 | int capi_x21_intent = 0; | |||
| 73021 | int capi_overwrite_x21 = 0; | |||
| 73022 | PyObject *x21_capi = Py_None(&_Py_NoneStruct); | |||
| 73023 | int ldx21 = 0; | |||
| 73024 | complex_float *x22 = NULL((void*)0); | |||
| 73025 | npy_intp x22_Dims[2] = {-1, -1}; | |||
| 73026 | const int x22_Rank = 2; | |||
| 73027 | PyArrayObject *capi_x22_tmp = NULL((void*)0); | |||
| 73028 | int capi_x22_intent = 0; | |||
| 73029 | int capi_overwrite_x22 = 0; | |||
| 73030 | PyObject *x22_capi = Py_None(&_Py_NoneStruct); | |||
| 73031 | int ldx22 = 0; | |||
| 73032 | float *theta = NULL((void*)0); | |||
| 73033 | npy_intp theta_Dims[1] = {-1}; | |||
| 73034 | const int theta_Rank = 1; | |||
| 73035 | PyArrayObject *capi_theta_tmp = NULL((void*)0); | |||
| 73036 | int capi_theta_intent = 0; | |||
| 73037 | complex_float *u1 = NULL((void*)0); | |||
| 73038 | npy_intp u1_Dims[2] = {-1, -1}; | |||
| 73039 | const int u1_Rank = 2; | |||
| 73040 | PyArrayObject *capi_u1_tmp = NULL((void*)0); | |||
| 73041 | int capi_u1_intent = 0; | |||
| 73042 | int ldu1 = 0; | |||
| 73043 | complex_float *u2 = NULL((void*)0); | |||
| 73044 | npy_intp u2_Dims[2] = {-1, -1}; | |||
| 73045 | const int u2_Rank = 2; | |||
| 73046 | PyArrayObject *capi_u2_tmp = NULL((void*)0); | |||
| 73047 | int capi_u2_intent = 0; | |||
| 73048 | int ldu2 = 0; | |||
| 73049 | complex_float *v1t = NULL((void*)0); | |||
| 73050 | npy_intp v1t_Dims[2] = {-1, -1}; | |||
| 73051 | const int v1t_Rank = 2; | |||
| 73052 | PyArrayObject *capi_v1t_tmp = NULL((void*)0); | |||
| 73053 | int capi_v1t_intent = 0; | |||
| 73054 | int ldv1t = 0; | |||
| 73055 | complex_float *v2t = NULL((void*)0); | |||
| 73056 | npy_intp v2t_Dims[2] = {-1, -1}; | |||
| 73057 | const int v2t_Rank = 2; | |||
| 73058 | PyArrayObject *capi_v2t_tmp = NULL((void*)0); | |||
| 73059 | int capi_v2t_intent = 0; | |||
| 73060 | int ldv2t = 0; | |||
| 73061 | complex_float *work = NULL((void*)0); | |||
| 73062 | npy_intp work_Dims[1] = {-1}; | |||
| 73063 | const int work_Rank = 1; | |||
| 73064 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 73065 | int capi_work_intent = 0; | |||
| 73066 | int lwork = 0; | |||
| 73067 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 73068 | float *rwork = NULL((void*)0); | |||
| 73069 | npy_intp rwork_Dims[1] = {-1}; | |||
| 73070 | const int rwork_Rank = 1; | |||
| 73071 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 73072 | int capi_rwork_intent = 0; | |||
| 73073 | int lrwork = 0; | |||
| 73074 | PyObject *lrwork_capi = Py_None(&_Py_NoneStruct); | |||
| 73075 | int *iwork = NULL((void*)0); | |||
| 73076 | npy_intp iwork_Dims[1] = {-1}; | |||
| 73077 | const int iwork_Rank = 1; | |||
| 73078 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 73079 | int capi_iwork_intent = 0; | |||
| 73080 | int info = 0; | |||
| 73081 | int mmp = 0; | |||
| 73082 | int mmq = 0; | |||
| 73083 | static char *capi_kwlist[] = {"x11","x12","x21","x22","compute_u1","compute_u2","compute_v1t","compute_v2t","trans","signs","lwork","lrwork","overwrite_x11","overwrite_x12","overwrite_x21","overwrite_x22",NULL((void*)0)}; | |||
| 73084 | ||||
| 73085 | /*routdebugenter*/ | |||
| 73086 | #ifdef F2PY_REPORT_ATEXIT | |||
| 73087 | f2py_start_clock(); | |||
| 73088 | #endif | |||
| 73089 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 73090 | "OOOO|OOOOOOOOiiii:_flapack.cuncsd",\ | |||
| 73091 | capi_kwlist,&x11_capi,&x12_capi,&x21_capi,&x22_capi,&compute_u1_capi,&compute_u2_capi,&compute_v1t_capi,&compute_v2t_capi,&trans_capi,&signs_capi,&lwork_capi,&lrwork_capi,&capi_overwrite_x11,&capi_overwrite_x12,&capi_overwrite_x21,&capi_overwrite_x22)) | |||
| 73092 | return NULL((void*)0); | |||
| 73093 | /*frompyobj*/ | |||
| 73094 | /* Processing variable compute_u1 */ | |||
| 73095 | if (compute_u1_capi == Py_None(&_Py_NoneStruct)) compute_u1 = 1; else | |||
| 73096 | f2py_success = int_from_pyobj(&compute_u1,compute_u1_capi,"_flapack.cuncsd() 1st keyword (compute_u1) can't be converted to int"); | |||
| 73097 | if (f2py_success) { | |||
| 73098 | CHECKSCALAR(compute_u1==0||compute_u1==1,"compute_u1==0||compute_u1==1","1st keyword compute_u1","cuncsd:compute_u1=%d",compute_u1)if (!(compute_u1==0||compute_u1==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cuncsd:compute_u1=%d", "(""compute_u1==0||compute_u1==1" ") failed for ""1st keyword compute_u1", compute_u1); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 73099 | /* Processing variable compute_u2 */ | |||
| 73100 | if (compute_u2_capi == Py_None(&_Py_NoneStruct)) compute_u2 = 1; else | |||
| 73101 | f2py_success = int_from_pyobj(&compute_u2,compute_u2_capi,"_flapack.cuncsd() 2nd keyword (compute_u2) can't be converted to int"); | |||
| 73102 | if (f2py_success) { | |||
| 73103 | CHECKSCALAR(compute_u2==0||compute_u2==1,"compute_u2==0||compute_u2==1","2nd keyword compute_u2","cuncsd:compute_u2=%d",compute_u2)if (!(compute_u2==0||compute_u2==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cuncsd:compute_u2=%d", "(""compute_u2==0||compute_u2==1" ") failed for ""2nd keyword compute_u2", compute_u2); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 73104 | /* Processing variable compute_v1t */ | |||
| 73105 | if (compute_v1t_capi == Py_None(&_Py_NoneStruct)) compute_v1t = 1; else | |||
| 73106 | f2py_success = int_from_pyobj(&compute_v1t,compute_v1t_capi,"_flapack.cuncsd() 3rd keyword (compute_v1t) can't be converted to int"); | |||
| 73107 | if (f2py_success) { | |||
| 73108 | CHECKSCALAR(compute_v1t==0||compute_v1t==1,"compute_v1t==0||compute_v1t==1","3rd keyword compute_v1t","cuncsd:compute_v1t=%d",compute_v1t)if (!(compute_v1t==0||compute_v1t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cuncsd:compute_v1t=%d", "(""compute_v1t==0||compute_v1t==1" ") failed for ""3rd keyword compute_v1t", compute_v1t); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 73109 | /* Processing variable compute_v2t */ | |||
| 73110 | if (compute_v2t_capi == Py_None(&_Py_NoneStruct)) compute_v2t = 1; else | |||
| 73111 | f2py_success = int_from_pyobj(&compute_v2t,compute_v2t_capi,"_flapack.cuncsd() 4th keyword (compute_v2t) can't be converted to int"); | |||
| 73112 | if (f2py_success) { | |||
| 73113 | CHECKSCALAR(compute_v2t==0||compute_v2t==1,"compute_v2t==0||compute_v2t==1","4th keyword compute_v2t","cuncsd:compute_v2t=%d",compute_v2t)if (!(compute_v2t==0||compute_v2t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cuncsd:compute_v2t=%d", "(""compute_v2t==0||compute_v2t==1" ") failed for ""4th keyword compute_v2t", compute_v2t); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 73114 | /* Processing variable trans */ | |||
| 73115 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 73116 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.cuncsd() 5th keyword (trans) can't be converted to int"); | |||
| 73117 | if (f2py_success) { | |||
| 73118 | CHECKSCALAR(trans==0||trans==1,"trans==0||trans==1","5th keyword trans","cuncsd:trans=%d",trans)if (!(trans==0||trans==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cuncsd:trans=%d", "(""trans==0||trans==1"") failed for " "5th keyword trans", trans); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 73119 | /* Processing variable signs */ | |||
| 73120 | if (signs_capi == Py_None(&_Py_NoneStruct)) signs = 0; else | |||
| 73121 | f2py_success = int_from_pyobj(&signs,signs_capi,"_flapack.cuncsd() 6th keyword (signs) can't be converted to int"); | |||
| 73122 | if (f2py_success) { | |||
| 73123 | CHECKSCALAR(signs==0||signs==1,"signs==0||signs==1","6th keyword signs","cuncsd:signs=%d",signs)if (!(signs==0||signs==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cuncsd:signs=%d", "(""signs==0||signs==1"") failed for " "6th keyword signs", signs); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 73124 | /* Processing variable x11 */ | |||
| 73125 | capi_x11_intent |= (capi_overwrite_x11?0:F2PY_INTENT_COPY32); | |||
| 73126 | ; | |||
| 73127 | capi_x11_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 73128 | capi_x11_tmp = array_from_pyobj(NPY_CFLOAT,x11_Dims,x11_Rank,capi_x11_intent,x11_capi); | |||
| 73129 | if (capi_x11_tmp == NULL((void*)0)) { | |||
| 73130 | if (!PyErr_Occurred()) | |||
| 73131 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `x11' of _flapack.cuncsd to C/Fortran array" ); | |||
| 73132 | } else { | |||
| 73133 | x11 = (complex_float *)(PyArray_DATA(capi_x11_tmp)((void *)((PyArrayObject_fields *)(capi_x11_tmp))->data)); | |||
| 73134 | ||||
| 73135 | /* Processing variable x22 */ | |||
| 73136 | capi_x22_intent |= (capi_overwrite_x22?0:F2PY_INTENT_COPY32); | |||
| 73137 | ; | |||
| 73138 | capi_x22_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 73139 | capi_x22_tmp = array_from_pyobj(NPY_CFLOAT,x22_Dims,x22_Rank,capi_x22_intent,x22_capi); | |||
| 73140 | if (capi_x22_tmp == NULL((void*)0)) { | |||
| 73141 | if (!PyErr_Occurred()) | |||
| 73142 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `x22' of _flapack.cuncsd to C/Fortran array" ); | |||
| 73143 | } else { | |||
| 73144 | x22 = (complex_float *)(PyArray_DATA(capi_x22_tmp)((void *)((PyArrayObject_fields *)(capi_x22_tmp))->data)); | |||
| 73145 | ||||
| 73146 | /* Processing variable info */ | |||
| 73147 | /* Processing variable p */ | |||
| 73148 | p = shape(x11,0)x11_Dims[0]; | |||
| 73149 | /* Processing variable q */ | |||
| 73150 | q = shape(x11,1)x11_Dims[1]; | |||
| 73151 | /* Processing variable mmp */ | |||
| 73152 | mmp = shape(x22,0)x22_Dims[0]; | |||
| 73153 | /* Processing variable mmq */ | |||
| 73154 | mmq = shape(x22,1)x22_Dims[1]; | |||
| 73155 | /* Processing variable ldx11 */ | |||
| 73156 | ldx11 = MAX(1,shape(x11,0))((1 > x11_Dims[0]) ? (1) : (x11_Dims[0])); | |||
| 73157 | /* Processing variable ldx22 */ | |||
| 73158 | ldx22 = MAX(1,shape(x22,0))((1 > x22_Dims[0]) ? (1) : (x22_Dims[0])); | |||
| 73159 | /* Processing variable theta */ | |||
| 73160 | theta_Dims[0]=min(min(p,mmp),min(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq ))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) : (mmq)))); | |||
| 73161 | capi_theta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 73162 | capi_theta_tmp = array_from_pyobj(NPY_FLOAT,theta_Dims,theta_Rank,capi_theta_intent,Py_None(&_Py_NoneStruct)); | |||
| 73163 | if (capi_theta_tmp == NULL((void*)0)) { | |||
| 73164 | if (!PyErr_Occurred()) | |||
| 73165 | PyErr_SetString(_flapack_error,"failed in converting hidden `theta' of _flapack.cuncsd to C/Fortran array" ); | |||
| 73166 | } else { | |||
| 73167 | theta = (float *)(PyArray_DATA(capi_theta_tmp)((void *)((PyArrayObject_fields *)(capi_theta_tmp))->data)); | |||
| 73168 | ||||
| 73169 | /* Processing variable u1 */ | |||
| 73170 | u1_Dims[0]=(compute_u1?p:0),u1_Dims[1]=(compute_u1?p:0); | |||
| 73171 | capi_u1_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 73172 | capi_u1_tmp = array_from_pyobj(NPY_CFLOAT,u1_Dims,u1_Rank,capi_u1_intent,Py_None(&_Py_NoneStruct)); | |||
| 73173 | if (capi_u1_tmp == NULL((void*)0)) { | |||
| 73174 | if (!PyErr_Occurred()) | |||
| 73175 | PyErr_SetString(_flapack_error,"failed in converting hidden `u1' of _flapack.cuncsd to C/Fortran array" ); | |||
| 73176 | } else { | |||
| 73177 | u1 = (complex_float *)(PyArray_DATA(capi_u1_tmp)((void *)((PyArrayObject_fields *)(capi_u1_tmp))->data)); | |||
| 73178 | ||||
| 73179 | /* Processing variable u2 */ | |||
| 73180 | u2_Dims[0]=(compute_u2?mmp:0),u2_Dims[1]=(compute_u2?mmp:0); | |||
| 73181 | capi_u2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 73182 | capi_u2_tmp = array_from_pyobj(NPY_CFLOAT,u2_Dims,u2_Rank,capi_u2_intent,Py_None(&_Py_NoneStruct)); | |||
| 73183 | if (capi_u2_tmp == NULL((void*)0)) { | |||
| 73184 | if (!PyErr_Occurred()) | |||
| 73185 | PyErr_SetString(_flapack_error,"failed in converting hidden `u2' of _flapack.cuncsd to C/Fortran array" ); | |||
| 73186 | } else { | |||
| 73187 | u2 = (complex_float *)(PyArray_DATA(capi_u2_tmp)((void *)((PyArrayObject_fields *)(capi_u2_tmp))->data)); | |||
| 73188 | ||||
| 73189 | /* Processing variable v1t */ | |||
| 73190 | v1t_Dims[0]=(compute_v1t?q:0),v1t_Dims[1]=(compute_v1t?q:0); | |||
| 73191 | capi_v1t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 73192 | capi_v1t_tmp = array_from_pyobj(NPY_CFLOAT,v1t_Dims,v1t_Rank,capi_v1t_intent,Py_None(&_Py_NoneStruct)); | |||
| 73193 | if (capi_v1t_tmp == NULL((void*)0)) { | |||
| 73194 | if (!PyErr_Occurred()) | |||
| 73195 | PyErr_SetString(_flapack_error,"failed in converting hidden `v1t' of _flapack.cuncsd to C/Fortran array" ); | |||
| 73196 | } else { | |||
| 73197 | v1t = (complex_float *)(PyArray_DATA(capi_v1t_tmp)((void *)((PyArrayObject_fields *)(capi_v1t_tmp))->data)); | |||
| 73198 | ||||
| 73199 | /* Processing variable v2t */ | |||
| 73200 | v2t_Dims[0]=(compute_v2t?mmq:0),v2t_Dims[1]=(compute_v2t?mmq:0); | |||
| 73201 | capi_v2t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 73202 | capi_v2t_tmp = array_from_pyobj(NPY_CFLOAT,v2t_Dims,v2t_Rank,capi_v2t_intent,Py_None(&_Py_NoneStruct)); | |||
| 73203 | if (capi_v2t_tmp == NULL((void*)0)) { | |||
| 73204 | if (!PyErr_Occurred()) | |||
| 73205 | PyErr_SetString(_flapack_error,"failed in converting hidden `v2t' of _flapack.cuncsd to C/Fortran array" ); | |||
| 73206 | } else { | |||
| 73207 | v2t = (complex_float *)(PyArray_DATA(capi_v2t_tmp)((void *)((PyArrayObject_fields *)(capi_v2t_tmp))->data)); | |||
| 73208 | ||||
| 73209 | /* Processing variable ldu1 */ | |||
| 73210 | ldu1 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 73211 | /* Processing variable ldu2 */ | |||
| 73212 | ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 73213 | /* Processing variable ldv1t */ | |||
| 73214 | ldv1t = MAX(1,q)((1 > q) ? (1) : (q)); | |||
| 73215 | /* Processing variable ldv2t */ | |||
| 73216 | ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq)); | |||
| 73217 | /* Processing variable iwork */ | |||
| 73218 | iwork_Dims[0]=p+mmp-MIN(MIN(p,mmp),MIN(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq ))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) : (mmq)))); | |||
| 73219 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 73220 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 73221 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 73222 | if (!PyErr_Occurred()) | |||
| 73223 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.cuncsd to C/Fortran array" ); | |||
| 73224 | } else { | |||
| 73225 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 73226 | ||||
| 73227 | /* Processing variable lrwork */ | |||
| 73228 | if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = 5*MAX(1,q-1)((1 > q-1) ? (1) : (q-1))+4*MAX(1,q)((1 > q) ? (1) : (q))+8*q+1; else | |||
| 73229 | f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.cuncsd() 8th keyword (lrwork) can't be converted to int"); | |||
| 73230 | if (f2py_success) { | |||
| 73231 | CHECKSCALAR(lrwork==-1||lrwork>0,"lrwork==-1||lrwork>0","8th keyword lrwork","cuncsd:lrwork=%d",lrwork)if (!(lrwork==-1||lrwork>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cuncsd:lrwork=%d", "(""lrwork==-1||lrwork>0"") failed for " "8th keyword lrwork", lrwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 73232 | /* Processing variable m */ | |||
| 73233 | m = p+mmp; | |||
| 73234 | CHECKSCALAR(p+mmp==q+mmq,"p+mmp==q+mmq","hidden m","cuncsd:m=%d",m)if (!(p+mmp==q+mmq)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cuncsd:m=%d", "(""p+mmp==q+mmq"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 73235 | /* Processing variable x12 */ | |||
| 73236 | capi_x12_intent |= (capi_overwrite_x12?0:F2PY_INTENT_COPY32); | |||
| 73237 | x12_Dims[0]=p,x12_Dims[1]=mmq; | |||
| 73238 | capi_x12_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 73239 | capi_x12_tmp = array_from_pyobj(NPY_CFLOAT,x12_Dims,x12_Rank,capi_x12_intent,x12_capi); | |||
| 73240 | if (capi_x12_tmp == NULL((void*)0)) { | |||
| 73241 | if (!PyErr_Occurred()) | |||
| 73242 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `x12' of _flapack.cuncsd to C/Fortran array" ); | |||
| 73243 | } else { | |||
| 73244 | x12 = (complex_float *)(PyArray_DATA(capi_x12_tmp)((void *)((PyArrayObject_fields *)(capi_x12_tmp))->data)); | |||
| 73245 | ||||
| 73246 | CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0),"mmq==shape(x12,1)||p==shape(x12,0)","2nd argument x12")if (!(mmq==x12_Dims[1]||p==x12_Dims[0])) { PyErr_SetString(_flapack_error ,"(""mmq==shape(x12,1)||p==shape(x12,0)"") failed for ""2nd argument x12" ); } else { | |||
| 73247 | /* Processing variable x21 */ | |||
| 73248 | capi_x21_intent |= (capi_overwrite_x21?0:F2PY_INTENT_COPY32); | |||
| 73249 | x21_Dims[0]=mmp,x21_Dims[1]=q; | |||
| 73250 | capi_x21_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 73251 | capi_x21_tmp = array_from_pyobj(NPY_CFLOAT,x21_Dims,x21_Rank,capi_x21_intent,x21_capi); | |||
| 73252 | if (capi_x21_tmp == NULL((void*)0)) { | |||
| 73253 | if (!PyErr_Occurred()) | |||
| 73254 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x21' of _flapack.cuncsd to C/Fortran array" ); | |||
| 73255 | } else { | |||
| 73256 | x21 = (complex_float *)(PyArray_DATA(capi_x21_tmp)((void *)((PyArrayObject_fields *)(capi_x21_tmp))->data)); | |||
| 73257 | ||||
| 73258 | CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1),"mmp==shape(x21,0)||q==shape(x21,1)","3rd argument x21")if (!(mmp==x21_Dims[0]||q==x21_Dims[1])) { PyErr_SetString(_flapack_error ,"(""mmp==shape(x21,0)||q==shape(x21,1)"") failed for ""3rd argument x21" ); } else { | |||
| 73259 | /* Processing variable ldx12 */ | |||
| 73260 | ldx12 = MAX(1,shape(x12,0))((1 > x12_Dims[0]) ? (1) : (x12_Dims[0])); | |||
| 73261 | /* Processing variable ldx21 */ | |||
| 73262 | ldx21 = MAX(1,shape(x21,0))((1 > x21_Dims[0]) ? (1) : (x21_Dims[0])); | |||
| 73263 | /* Processing variable rwork */ | |||
| 73264 | rwork_Dims[0]=lrwork; | |||
| 73265 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 73266 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 73267 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 73268 | if (!PyErr_Occurred()) | |||
| 73269 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cuncsd to C/Fortran array" ); | |||
| 73270 | } else { | |||
| 73271 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 73272 | ||||
| 73273 | /* Processing variable lwork */ | |||
| 73274 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = 2*m+MAX(1,MAX(mmp,mmq))((1 > ((mmp > mmq) ? (mmp) : (mmq))) ? (1) : (((mmp > mmq) ? (mmp) : (mmq))))+1; else | |||
| 73275 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cuncsd() 7th keyword (lwork) can't be converted to int"); | |||
| 73276 | if (f2py_success) { | |||
| 73277 | CHECKSCALAR(lwork==-1||lwork>0,"lwork==-1||lwork>0","7th keyword lwork","cuncsd:lwork=%d",lwork)if (!(lwork==-1||lwork>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cuncsd:lwork=%d", "(""lwork==-1||lwork>0"") failed for " "7th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 73278 | /* Processing variable work */ | |||
| 73279 | work_Dims[0]=lwork; | |||
| 73280 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 73281 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 73282 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 73283 | if (!PyErr_Occurred()) | |||
| 73284 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cuncsd to C/Fortran array" ); | |||
| 73285 | } else { | |||
| 73286 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 73287 | ||||
| 73288 | /*end of frompyobj*/ | |||
| 73289 | #ifdef F2PY_REPORT_ATEXIT | |||
| 73290 | f2py_start_call_clock(); | |||
| 73291 | #endif | |||
| 73292 | /*callfortranroutine*/ | |||
| 73293 | (*f2py_func)((compute_u1?"Y":"N"),(compute_u2?"Y":"N"),(compute_v1t?"Y":"N"),(compute_v2t?"Y":"N"),(trans?"T":"N"),(signs?"O":"D"),&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,rwork,&lrwork,iwork,&info) ; | |||
| 73294 | /*(*f2py_func)(&compute_u1,&compute_u2,&compute_v1t,&compute_v2t,&trans,&signs,&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,rwork,&lrwork,iwork,&info,&mmp,&mmq);*/ | |||
| 73295 | if (PyErr_Occurred()) | |||
| 73296 | f2py_success = 0; | |||
| 73297 | #ifdef F2PY_REPORT_ATEXIT | |||
| 73298 | f2py_stop_call_clock(); | |||
| 73299 | #endif | |||
| 73300 | /*end of callfortranroutine*/ | |||
| 73301 | if (f2py_success) { | |||
| 73302 | /*pyobjfrom*/ | |||
| 73303 | /*end of pyobjfrom*/ | |||
| 73304 | CFUNCSMESS("Building return value.\n"); | |||
| 73305 | capi_buildvalue = Py_BuildValue("NNNNNNNNNi",capi_x11_tmp,capi_x12_tmp,capi_x21_tmp,capi_x22_tmp,capi_theta_tmp,capi_u1_tmp,capi_u2_tmp,capi_v1t_tmp,capi_v2t_tmp,info); | |||
| 73306 | /*closepyobjfrom*/ | |||
| 73307 | /*end of closepyobjfrom*/ | |||
| 73308 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 73309 | /*cleanupfrompyobj*/ | |||
| 73310 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 73311 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 73312 | /* End of cleaning variable work */ | |||
| 73313 | } /*CHECKSCALAR(lwork==-1||lwork>0)*/ | |||
| 73314 | } /*if (f2py_success) of lwork*/ | |||
| 73315 | /* End of cleaning variable lwork */ | |||
| 73316 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 73317 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 73318 | /* End of cleaning variable rwork */ | |||
| 73319 | /* End of cleaning variable ldx21 */ | |||
| 73320 | /* End of cleaning variable ldx12 */ | |||
| 73321 | } /*CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1))*/ | |||
| 73322 | } /*if (capi_x21_tmp == NULL) ... else of x21*/ | |||
| 73323 | /* End of cleaning variable x21 */ | |||
| 73324 | } /*CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0))*/ | |||
| 73325 | } /*if (capi_x12_tmp == NULL) ... else of x12*/ | |||
| 73326 | /* End of cleaning variable x12 */ | |||
| 73327 | } /*CHECKSCALAR(p+mmp==q+mmq)*/ | |||
| 73328 | /* End of cleaning variable m */ | |||
| 73329 | } /*CHECKSCALAR(lrwork==-1||lrwork>0)*/ | |||
| 73330 | } /*if (f2py_success) of lrwork*/ | |||
| 73331 | /* End of cleaning variable lrwork */ | |||
| 73332 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 73333 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 73334 | /* End of cleaning variable iwork */ | |||
| 73335 | /* End of cleaning variable ldv2t */ | |||
| 73336 | /* End of cleaning variable ldv1t */ | |||
| 73337 | /* End of cleaning variable ldu2 */ | |||
| 73338 | /* End of cleaning variable ldu1 */ | |||
| 73339 | } /*if (capi_v2t_tmp == NULL) ... else of v2t*/ | |||
| 73340 | /* End of cleaning variable v2t */ | |||
| 73341 | } /*if (capi_v1t_tmp == NULL) ... else of v1t*/ | |||
| 73342 | /* End of cleaning variable v1t */ | |||
| 73343 | } /*if (capi_u2_tmp == NULL) ... else of u2*/ | |||
| 73344 | /* End of cleaning variable u2 */ | |||
| 73345 | } /*if (capi_u1_tmp == NULL) ... else of u1*/ | |||
| 73346 | /* End of cleaning variable u1 */ | |||
| 73347 | } /*if (capi_theta_tmp == NULL) ... else of theta*/ | |||
| 73348 | /* End of cleaning variable theta */ | |||
| 73349 | /* End of cleaning variable ldx22 */ | |||
| 73350 | /* End of cleaning variable ldx11 */ | |||
| 73351 | /* End of cleaning variable mmq */ | |||
| 73352 | /* End of cleaning variable mmp */ | |||
| 73353 | /* End of cleaning variable q */ | |||
| 73354 | /* End of cleaning variable p */ | |||
| 73355 | /* End of cleaning variable info */ | |||
| 73356 | } /*if (capi_x22_tmp == NULL) ... else of x22*/ | |||
| 73357 | /* End of cleaning variable x22 */ | |||
| 73358 | } /*if (capi_x11_tmp == NULL) ... else of x11*/ | |||
| 73359 | /* End of cleaning variable x11 */ | |||
| 73360 | } /*CHECKSCALAR(signs==0||signs==1)*/ | |||
| 73361 | } /*if (f2py_success) of signs*/ | |||
| 73362 | /* End of cleaning variable signs */ | |||
| 73363 | } /*CHECKSCALAR(trans==0||trans==1)*/ | |||
| 73364 | } /*if (f2py_success) of trans*/ | |||
| 73365 | /* End of cleaning variable trans */ | |||
| 73366 | } /*CHECKSCALAR(compute_v2t==0||compute_v2t==1)*/ | |||
| 73367 | } /*if (f2py_success) of compute_v2t*/ | |||
| 73368 | /* End of cleaning variable compute_v2t */ | |||
| 73369 | } /*CHECKSCALAR(compute_v1t==0||compute_v1t==1)*/ | |||
| 73370 | } /*if (f2py_success) of compute_v1t*/ | |||
| 73371 | /* End of cleaning variable compute_v1t */ | |||
| 73372 | } /*CHECKSCALAR(compute_u2==0||compute_u2==1)*/ | |||
| 73373 | } /*if (f2py_success) of compute_u2*/ | |||
| 73374 | /* End of cleaning variable compute_u2 */ | |||
| 73375 | } /*CHECKSCALAR(compute_u1==0||compute_u1==1)*/ | |||
| 73376 | } /*if (f2py_success) of compute_u1*/ | |||
| 73377 | /* End of cleaning variable compute_u1 */ | |||
| 73378 | /*end of cleanupfrompyobj*/ | |||
| 73379 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 73380 | /*routdebugfailure*/ | |||
| 73381 | } else { | |||
| 73382 | /*routdebugleave*/ | |||
| 73383 | } | |||
| 73384 | CFUNCSMESS("Freeing memory.\n"); | |||
| 73385 | /*freemem*/ | |||
| 73386 | #ifdef F2PY_REPORT_ATEXIT | |||
| 73387 | f2py_stop_clock(); | |||
| 73388 | #endif | |||
| 73389 | return capi_buildvalue; | |||
| 73390 | } | |||
| 73391 | /******************************* end of cuncsd *******************************/ | |||
| 73392 | ||||
| 73393 | /*********************************** zuncsd ***********************************/ | |||
| 73394 | static char doc_f2py_rout__flapack_zuncsd[] = "\ | |||
| 73395 | cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = zuncsd(x11,x12,x21,x22,[compute_u1,compute_u2,compute_v1t,compute_v2t,trans,signs,lwork,lrwork,overwrite_x11,overwrite_x12,overwrite_x21,overwrite_x22])\n\nWrapper for ``zuncsd``.\ | |||
| 73396 | \n\nParameters\n----------\n" | |||
| 73397 | "x11 : input rank-2 array('D') with bounds (p,q)\n" | |||
| 73398 | "x12 : input rank-2 array('D') with bounds (p,mmq)\n" | |||
| 73399 | "x21 : input rank-2 array('D') with bounds (mmp,q)\n" | |||
| 73400 | "x22 : input rank-2 array('D') with bounds (mmp,mmq)\n" | |||
| 73401 | "\nOther Parameters\n----------------\n" | |||
| 73402 | "compute_u1 : input int, optional\n Default: 1\n" | |||
| 73403 | "compute_u2 : input int, optional\n Default: 1\n" | |||
| 73404 | "compute_v1t : input int, optional\n Default: 1\n" | |||
| 73405 | "compute_v2t : input int, optional\n Default: 1\n" | |||
| 73406 | "trans : input int, optional\n Default: 0\n" | |||
| 73407 | "signs : input int, optional\n Default: 0\n" | |||
| 73408 | "overwrite_x11 : input int, optional\n Default: 0\n" | |||
| 73409 | "overwrite_x12 : input int, optional\n Default: 0\n" | |||
| 73410 | "overwrite_x21 : input int, optional\n Default: 0\n" | |||
| 73411 | "overwrite_x22 : input int, optional\n Default: 0\n" | |||
| 73412 | "lwork : input int, optional\n Default: 2*m+MAX(1,MAX(mmp,mmq))+1\n" | |||
| 73413 | "lrwork : input int, optional\n Default: 5*MAX(1,q-1)+4*MAX(1,q)+8*q+1\n" | |||
| 73414 | "\nReturns\n-------\n" | |||
| 73415 | "cs11 : rank-2 array('D') with bounds (p,q) and x11 storage\n" | |||
| 73416 | "cs12 : rank-2 array('D') with bounds (p,mmq) and x12 storage\n" | |||
| 73417 | "cs21 : rank-2 array('D') with bounds (mmp,q) and x21 storage\n" | |||
| 73418 | "cs22 : rank-2 array('D') with bounds (mmp,mmq) and x22 storage\n" | |||
| 73419 | "theta : rank-1 array('d') with bounds (min(min(p,mmp),min(q,mmq)))\n" | |||
| 73420 | "u1 : rank-2 array('D') with bounds ((compute_u1?p:0),(compute_u1?p:0))\n" | |||
| 73421 | "u2 : rank-2 array('D') with bounds ((compute_u2?mmp:0),(compute_u2?mmp:0))\n" | |||
| 73422 | "v1t : rank-2 array('D') with bounds ((compute_v1t?q:0),(compute_v1t?q:0))\n" | |||
| 73423 | "v2t : rank-2 array('D') with bounds ((compute_v2t?mmq:0),(compute_v2t?mmq:0))\n" | |||
| 73424 | "info : int"; | |||
| 73425 | /* extern void F_FUNC(zuncsd,ZUNCSD)(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 73426 | static PyObject *f2py_rout__flapack_zuncsd(const PyObject *capi_self, | |||
| 73427 | PyObject *capi_args, | |||
| 73428 | PyObject *capi_keywds, | |||
| 73429 | void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 73430 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 73431 | volatile int f2py_success = 1; | |||
| 73432 | /*decl*/ | |||
| 73433 | ||||
| 73434 | int compute_u1 = 0; | |||
| 73435 | PyObject *compute_u1_capi = Py_None(&_Py_NoneStruct); | |||
| 73436 | int compute_u2 = 0; | |||
| 73437 | PyObject *compute_u2_capi = Py_None(&_Py_NoneStruct); | |||
| 73438 | int compute_v1t = 0; | |||
| 73439 | PyObject *compute_v1t_capi = Py_None(&_Py_NoneStruct); | |||
| 73440 | int compute_v2t = 0; | |||
| 73441 | PyObject *compute_v2t_capi = Py_None(&_Py_NoneStruct); | |||
| 73442 | int trans = 0; | |||
| 73443 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 73444 | int signs = 0; | |||
| 73445 | PyObject *signs_capi = Py_None(&_Py_NoneStruct); | |||
| 73446 | int m = 0; | |||
| 73447 | int p = 0; | |||
| 73448 | int q = 0; | |||
| 73449 | complex_double *x11 = NULL((void*)0); | |||
| 73450 | npy_intp x11_Dims[2] = {-1, -1}; | |||
| 73451 | const int x11_Rank = 2; | |||
| 73452 | PyArrayObject *capi_x11_tmp = NULL((void*)0); | |||
| 73453 | int capi_x11_intent = 0; | |||
| 73454 | int capi_overwrite_x11 = 0; | |||
| 73455 | PyObject *x11_capi = Py_None(&_Py_NoneStruct); | |||
| 73456 | int ldx11 = 0; | |||
| 73457 | complex_double *x12 = NULL((void*)0); | |||
| 73458 | npy_intp x12_Dims[2] = {-1, -1}; | |||
| 73459 | const int x12_Rank = 2; | |||
| 73460 | PyArrayObject *capi_x12_tmp = NULL((void*)0); | |||
| 73461 | int capi_x12_intent = 0; | |||
| 73462 | int capi_overwrite_x12 = 0; | |||
| 73463 | PyObject *x12_capi = Py_None(&_Py_NoneStruct); | |||
| 73464 | int ldx12 = 0; | |||
| 73465 | complex_double *x21 = NULL((void*)0); | |||
| 73466 | npy_intp x21_Dims[2] = {-1, -1}; | |||
| 73467 | const int x21_Rank = 2; | |||
| 73468 | PyArrayObject *capi_x21_tmp = NULL((void*)0); | |||
| 73469 | int capi_x21_intent = 0; | |||
| 73470 | int capi_overwrite_x21 = 0; | |||
| 73471 | PyObject *x21_capi = Py_None(&_Py_NoneStruct); | |||
| 73472 | int ldx21 = 0; | |||
| 73473 | complex_double *x22 = NULL((void*)0); | |||
| 73474 | npy_intp x22_Dims[2] = {-1, -1}; | |||
| 73475 | const int x22_Rank = 2; | |||
| 73476 | PyArrayObject *capi_x22_tmp = NULL((void*)0); | |||
| 73477 | int capi_x22_intent = 0; | |||
| 73478 | int capi_overwrite_x22 = 0; | |||
| 73479 | PyObject *x22_capi = Py_None(&_Py_NoneStruct); | |||
| 73480 | int ldx22 = 0; | |||
| 73481 | double *theta = NULL((void*)0); | |||
| 73482 | npy_intp theta_Dims[1] = {-1}; | |||
| 73483 | const int theta_Rank = 1; | |||
| 73484 | PyArrayObject *capi_theta_tmp = NULL((void*)0); | |||
| 73485 | int capi_theta_intent = 0; | |||
| 73486 | complex_double *u1 = NULL((void*)0); | |||
| 73487 | npy_intp u1_Dims[2] = {-1, -1}; | |||
| 73488 | const int u1_Rank = 2; | |||
| 73489 | PyArrayObject *capi_u1_tmp = NULL((void*)0); | |||
| 73490 | int capi_u1_intent = 0; | |||
| 73491 | int ldu1 = 0; | |||
| 73492 | complex_double *u2 = NULL((void*)0); | |||
| 73493 | npy_intp u2_Dims[2] = {-1, -1}; | |||
| 73494 | const int u2_Rank = 2; | |||
| 73495 | PyArrayObject *capi_u2_tmp = NULL((void*)0); | |||
| 73496 | int capi_u2_intent = 0; | |||
| 73497 | int ldu2 = 0; | |||
| 73498 | complex_double *v1t = NULL((void*)0); | |||
| 73499 | npy_intp v1t_Dims[2] = {-1, -1}; | |||
| 73500 | const int v1t_Rank = 2; | |||
| 73501 | PyArrayObject *capi_v1t_tmp = NULL((void*)0); | |||
| 73502 | int capi_v1t_intent = 0; | |||
| 73503 | int ldv1t = 0; | |||
| 73504 | complex_double *v2t = NULL((void*)0); | |||
| 73505 | npy_intp v2t_Dims[2] = {-1, -1}; | |||
| 73506 | const int v2t_Rank = 2; | |||
| 73507 | PyArrayObject *capi_v2t_tmp = NULL((void*)0); | |||
| 73508 | int capi_v2t_intent = 0; | |||
| 73509 | int ldv2t = 0; | |||
| 73510 | complex_double *work = NULL((void*)0); | |||
| 73511 | npy_intp work_Dims[1] = {-1}; | |||
| 73512 | const int work_Rank = 1; | |||
| 73513 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 73514 | int capi_work_intent = 0; | |||
| 73515 | int lwork = 0; | |||
| 73516 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 73517 | double *rwork = NULL((void*)0); | |||
| 73518 | npy_intp rwork_Dims[1] = {-1}; | |||
| 73519 | const int rwork_Rank = 1; | |||
| 73520 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 73521 | int capi_rwork_intent = 0; | |||
| 73522 | int lrwork = 0; | |||
| 73523 | PyObject *lrwork_capi = Py_None(&_Py_NoneStruct); | |||
| 73524 | int *iwork = NULL((void*)0); | |||
| 73525 | npy_intp iwork_Dims[1] = {-1}; | |||
| 73526 | const int iwork_Rank = 1; | |||
| 73527 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 73528 | int capi_iwork_intent = 0; | |||
| 73529 | int info = 0; | |||
| 73530 | int mmp = 0; | |||
| 73531 | int mmq = 0; | |||
| 73532 | static char *capi_kwlist[] = {"x11","x12","x21","x22","compute_u1","compute_u2","compute_v1t","compute_v2t","trans","signs","lwork","lrwork","overwrite_x11","overwrite_x12","overwrite_x21","overwrite_x22",NULL((void*)0)}; | |||
| 73533 | ||||
| 73534 | /*routdebugenter*/ | |||
| 73535 | #ifdef F2PY_REPORT_ATEXIT | |||
| 73536 | f2py_start_clock(); | |||
| 73537 | #endif | |||
| 73538 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 73539 | "OOOO|OOOOOOOOiiii:_flapack.zuncsd",\ | |||
| 73540 | capi_kwlist,&x11_capi,&x12_capi,&x21_capi,&x22_capi,&compute_u1_capi,&compute_u2_capi,&compute_v1t_capi,&compute_v2t_capi,&trans_capi,&signs_capi,&lwork_capi,&lrwork_capi,&capi_overwrite_x11,&capi_overwrite_x12,&capi_overwrite_x21,&capi_overwrite_x22)) | |||
| 73541 | return NULL((void*)0); | |||
| 73542 | /*frompyobj*/ | |||
| 73543 | /* Processing variable compute_u1 */ | |||
| 73544 | if (compute_u1_capi == Py_None(&_Py_NoneStruct)) compute_u1 = 1; else | |||
| 73545 | f2py_success = int_from_pyobj(&compute_u1,compute_u1_capi,"_flapack.zuncsd() 1st keyword (compute_u1) can't be converted to int"); | |||
| 73546 | if (f2py_success) { | |||
| 73547 | CHECKSCALAR(compute_u1==0||compute_u1==1,"compute_u1==0||compute_u1==1","1st keyword compute_u1","zuncsd:compute_u1=%d",compute_u1)if (!(compute_u1==0||compute_u1==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zuncsd:compute_u1=%d", "(""compute_u1==0||compute_u1==1" ") failed for ""1st keyword compute_u1", compute_u1); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 73548 | /* Processing variable compute_u2 */ | |||
| 73549 | if (compute_u2_capi == Py_None(&_Py_NoneStruct)) compute_u2 = 1; else | |||
| 73550 | f2py_success = int_from_pyobj(&compute_u2,compute_u2_capi,"_flapack.zuncsd() 2nd keyword (compute_u2) can't be converted to int"); | |||
| 73551 | if (f2py_success) { | |||
| 73552 | CHECKSCALAR(compute_u2==0||compute_u2==1,"compute_u2==0||compute_u2==1","2nd keyword compute_u2","zuncsd:compute_u2=%d",compute_u2)if (!(compute_u2==0||compute_u2==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zuncsd:compute_u2=%d", "(""compute_u2==0||compute_u2==1" ") failed for ""2nd keyword compute_u2", compute_u2); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 73553 | /* Processing variable compute_v1t */ | |||
| 73554 | if (compute_v1t_capi == Py_None(&_Py_NoneStruct)) compute_v1t = 1; else | |||
| 73555 | f2py_success = int_from_pyobj(&compute_v1t,compute_v1t_capi,"_flapack.zuncsd() 3rd keyword (compute_v1t) can't be converted to int"); | |||
| 73556 | if (f2py_success) { | |||
| 73557 | CHECKSCALAR(compute_v1t==0||compute_v1t==1,"compute_v1t==0||compute_v1t==1","3rd keyword compute_v1t","zuncsd:compute_v1t=%d",compute_v1t)if (!(compute_v1t==0||compute_v1t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zuncsd:compute_v1t=%d", "(""compute_v1t==0||compute_v1t==1" ") failed for ""3rd keyword compute_v1t", compute_v1t); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 73558 | /* Processing variable compute_v2t */ | |||
| 73559 | if (compute_v2t_capi == Py_None(&_Py_NoneStruct)) compute_v2t = 1; else | |||
| 73560 | f2py_success = int_from_pyobj(&compute_v2t,compute_v2t_capi,"_flapack.zuncsd() 4th keyword (compute_v2t) can't be converted to int"); | |||
| 73561 | if (f2py_success) { | |||
| 73562 | CHECKSCALAR(compute_v2t==0||compute_v2t==1,"compute_v2t==0||compute_v2t==1","4th keyword compute_v2t","zuncsd:compute_v2t=%d",compute_v2t)if (!(compute_v2t==0||compute_v2t==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zuncsd:compute_v2t=%d", "(""compute_v2t==0||compute_v2t==1" ") failed for ""4th keyword compute_v2t", compute_v2t); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 73563 | /* Processing variable trans */ | |||
| 73564 | if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else | |||
| 73565 | f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.zuncsd() 5th keyword (trans) can't be converted to int"); | |||
| 73566 | if (f2py_success) { | |||
| 73567 | CHECKSCALAR(trans==0||trans==1,"trans==0||trans==1","5th keyword trans","zuncsd:trans=%d",trans)if (!(trans==0||trans==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zuncsd:trans=%d", "(""trans==0||trans==1"") failed for " "5th keyword trans", trans); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 73568 | /* Processing variable signs */ | |||
| 73569 | if (signs_capi == Py_None(&_Py_NoneStruct)) signs = 0; else | |||
| 73570 | f2py_success = int_from_pyobj(&signs,signs_capi,"_flapack.zuncsd() 6th keyword (signs) can't be converted to int"); | |||
| 73571 | if (f2py_success) { | |||
| 73572 | CHECKSCALAR(signs==0||signs==1,"signs==0||signs==1","6th keyword signs","zuncsd:signs=%d",signs)if (!(signs==0||signs==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zuncsd:signs=%d", "(""signs==0||signs==1"") failed for " "6th keyword signs", signs); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 73573 | /* Processing variable x11 */ | |||
| 73574 | capi_x11_intent |= (capi_overwrite_x11?0:F2PY_INTENT_COPY32); | |||
| 73575 | ; | |||
| 73576 | capi_x11_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 73577 | capi_x11_tmp = array_from_pyobj(NPY_CDOUBLE,x11_Dims,x11_Rank,capi_x11_intent,x11_capi); | |||
| 73578 | if (capi_x11_tmp == NULL((void*)0)) { | |||
| 73579 | if (!PyErr_Occurred()) | |||
| 73580 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `x11' of _flapack.zuncsd to C/Fortran array" ); | |||
| 73581 | } else { | |||
| 73582 | x11 = (complex_double *)(PyArray_DATA(capi_x11_tmp)((void *)((PyArrayObject_fields *)(capi_x11_tmp))->data)); | |||
| 73583 | ||||
| 73584 | /* Processing variable x22 */ | |||
| 73585 | capi_x22_intent |= (capi_overwrite_x22?0:F2PY_INTENT_COPY32); | |||
| 73586 | ; | |||
| 73587 | capi_x22_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 73588 | capi_x22_tmp = array_from_pyobj(NPY_CDOUBLE,x22_Dims,x22_Rank,capi_x22_intent,x22_capi); | |||
| 73589 | if (capi_x22_tmp == NULL((void*)0)) { | |||
| 73590 | if (!PyErr_Occurred()) | |||
| 73591 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `x22' of _flapack.zuncsd to C/Fortran array" ); | |||
| 73592 | } else { | |||
| 73593 | x22 = (complex_double *)(PyArray_DATA(capi_x22_tmp)((void *)((PyArrayObject_fields *)(capi_x22_tmp))->data)); | |||
| 73594 | ||||
| 73595 | /* Processing variable info */ | |||
| 73596 | /* Processing variable p */ | |||
| 73597 | p = shape(x11,0)x11_Dims[0]; | |||
| 73598 | /* Processing variable q */ | |||
| 73599 | q = shape(x11,1)x11_Dims[1]; | |||
| 73600 | /* Processing variable mmp */ | |||
| 73601 | mmp = shape(x22,0)x22_Dims[0]; | |||
| 73602 | /* Processing variable mmq */ | |||
| 73603 | mmq = shape(x22,1)x22_Dims[1]; | |||
| 73604 | /* Processing variable ldx11 */ | |||
| 73605 | ldx11 = MAX(1,shape(x11,0))((1 > x11_Dims[0]) ? (1) : (x11_Dims[0])); | |||
| 73606 | /* Processing variable ldx22 */ | |||
| 73607 | ldx22 = MAX(1,shape(x22,0))((1 > x22_Dims[0]) ? (1) : (x22_Dims[0])); | |||
| 73608 | /* Processing variable theta */ | |||
| 73609 | theta_Dims[0]=min(min(p,mmp),min(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq ))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) : (mmq)))); | |||
| 73610 | capi_theta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 73611 | capi_theta_tmp = array_from_pyobj(NPY_DOUBLE,theta_Dims,theta_Rank,capi_theta_intent,Py_None(&_Py_NoneStruct)); | |||
| 73612 | if (capi_theta_tmp == NULL((void*)0)) { | |||
| 73613 | if (!PyErr_Occurred()) | |||
| 73614 | PyErr_SetString(_flapack_error,"failed in converting hidden `theta' of _flapack.zuncsd to C/Fortran array" ); | |||
| 73615 | } else { | |||
| 73616 | theta = (double *)(PyArray_DATA(capi_theta_tmp)((void *)((PyArrayObject_fields *)(capi_theta_tmp))->data)); | |||
| 73617 | ||||
| 73618 | /* Processing variable u1 */ | |||
| 73619 | u1_Dims[0]=(compute_u1?p:0),u1_Dims[1]=(compute_u1?p:0); | |||
| 73620 | capi_u1_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 73621 | capi_u1_tmp = array_from_pyobj(NPY_CDOUBLE,u1_Dims,u1_Rank,capi_u1_intent,Py_None(&_Py_NoneStruct)); | |||
| 73622 | if (capi_u1_tmp == NULL((void*)0)) { | |||
| 73623 | if (!PyErr_Occurred()) | |||
| 73624 | PyErr_SetString(_flapack_error,"failed in converting hidden `u1' of _flapack.zuncsd to C/Fortran array" ); | |||
| 73625 | } else { | |||
| 73626 | u1 = (complex_double *)(PyArray_DATA(capi_u1_tmp)((void *)((PyArrayObject_fields *)(capi_u1_tmp))->data)); | |||
| 73627 | ||||
| 73628 | /* Processing variable u2 */ | |||
| 73629 | u2_Dims[0]=(compute_u2?mmp:0),u2_Dims[1]=(compute_u2?mmp:0); | |||
| 73630 | capi_u2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 73631 | capi_u2_tmp = array_from_pyobj(NPY_CDOUBLE,u2_Dims,u2_Rank,capi_u2_intent,Py_None(&_Py_NoneStruct)); | |||
| 73632 | if (capi_u2_tmp == NULL((void*)0)) { | |||
| 73633 | if (!PyErr_Occurred()) | |||
| 73634 | PyErr_SetString(_flapack_error,"failed in converting hidden `u2' of _flapack.zuncsd to C/Fortran array" ); | |||
| 73635 | } else { | |||
| 73636 | u2 = (complex_double *)(PyArray_DATA(capi_u2_tmp)((void *)((PyArrayObject_fields *)(capi_u2_tmp))->data)); | |||
| 73637 | ||||
| 73638 | /* Processing variable v1t */ | |||
| 73639 | v1t_Dims[0]=(compute_v1t?q:0),v1t_Dims[1]=(compute_v1t?q:0); | |||
| 73640 | capi_v1t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 73641 | capi_v1t_tmp = array_from_pyobj(NPY_CDOUBLE,v1t_Dims,v1t_Rank,capi_v1t_intent,Py_None(&_Py_NoneStruct)); | |||
| 73642 | if (capi_v1t_tmp == NULL((void*)0)) { | |||
| 73643 | if (!PyErr_Occurred()) | |||
| 73644 | PyErr_SetString(_flapack_error,"failed in converting hidden `v1t' of _flapack.zuncsd to C/Fortran array" ); | |||
| 73645 | } else { | |||
| 73646 | v1t = (complex_double *)(PyArray_DATA(capi_v1t_tmp)((void *)((PyArrayObject_fields *)(capi_v1t_tmp))->data)); | |||
| 73647 | ||||
| 73648 | /* Processing variable v2t */ | |||
| 73649 | v2t_Dims[0]=(compute_v2t?mmq:0),v2t_Dims[1]=(compute_v2t?mmq:0); | |||
| 73650 | capi_v2t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 73651 | capi_v2t_tmp = array_from_pyobj(NPY_CDOUBLE,v2t_Dims,v2t_Rank,capi_v2t_intent,Py_None(&_Py_NoneStruct)); | |||
| 73652 | if (capi_v2t_tmp == NULL((void*)0)) { | |||
| 73653 | if (!PyErr_Occurred()) | |||
| 73654 | PyErr_SetString(_flapack_error,"failed in converting hidden `v2t' of _flapack.zuncsd to C/Fortran array" ); | |||
| 73655 | } else { | |||
| 73656 | v2t = (complex_double *)(PyArray_DATA(capi_v2t_tmp)((void *)((PyArrayObject_fields *)(capi_v2t_tmp))->data)); | |||
| 73657 | ||||
| 73658 | /* Processing variable ldu1 */ | |||
| 73659 | ldu1 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 73660 | /* Processing variable ldu2 */ | |||
| 73661 | ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 73662 | /* Processing variable ldv1t */ | |||
| 73663 | ldv1t = MAX(1,q)((1 > q) ? (1) : (q)); | |||
| 73664 | /* Processing variable ldv2t */ | |||
| 73665 | ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq)); | |||
| 73666 | /* Processing variable iwork */ | |||
| 73667 | iwork_Dims[0]=p+mmp-MIN(MIN(p,mmp),MIN(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq ))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) : (mmq)))); | |||
| 73668 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 73669 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 73670 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 73671 | if (!PyErr_Occurred()) | |||
| 73672 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zuncsd to C/Fortran array" ); | |||
| 73673 | } else { | |||
| 73674 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 73675 | ||||
| 73676 | /* Processing variable lrwork */ | |||
| 73677 | if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = 5*MAX(1,q-1)((1 > q-1) ? (1) : (q-1))+4*MAX(1,q)((1 > q) ? (1) : (q))+8*q+1; else | |||
| 73678 | f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.zuncsd() 8th keyword (lrwork) can't be converted to int"); | |||
| 73679 | if (f2py_success) { | |||
| 73680 | CHECKSCALAR(lrwork==-1||lrwork>0,"lrwork==-1||lrwork>0","8th keyword lrwork","zuncsd:lrwork=%d",lrwork)if (!(lrwork==-1||lrwork>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zuncsd:lrwork=%d", "(""lrwork==-1||lrwork>0"") failed for " "8th keyword lrwork", lrwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 73681 | /* Processing variable m */ | |||
| 73682 | m = p+mmp; | |||
| 73683 | CHECKSCALAR(p+mmp==q+mmq,"p+mmp==q+mmq","hidden m","zuncsd:m=%d",m)if (!(p+mmp==q+mmq)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zuncsd:m=%d", "(""p+mmp==q+mmq"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 73684 | /* Processing variable x12 */ | |||
| 73685 | capi_x12_intent |= (capi_overwrite_x12?0:F2PY_INTENT_COPY32); | |||
| 73686 | x12_Dims[0]=p,x12_Dims[1]=mmq; | |||
| 73687 | capi_x12_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 73688 | capi_x12_tmp = array_from_pyobj(NPY_CDOUBLE,x12_Dims,x12_Rank,capi_x12_intent,x12_capi); | |||
| 73689 | if (capi_x12_tmp == NULL((void*)0)) { | |||
| 73690 | if (!PyErr_Occurred()) | |||
| 73691 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `x12' of _flapack.zuncsd to C/Fortran array" ); | |||
| 73692 | } else { | |||
| 73693 | x12 = (complex_double *)(PyArray_DATA(capi_x12_tmp)((void *)((PyArrayObject_fields *)(capi_x12_tmp))->data)); | |||
| 73694 | ||||
| 73695 | CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0),"mmq==shape(x12,1)||p==shape(x12,0)","2nd argument x12")if (!(mmq==x12_Dims[1]||p==x12_Dims[0])) { PyErr_SetString(_flapack_error ,"(""mmq==shape(x12,1)||p==shape(x12,0)"") failed for ""2nd argument x12" ); } else { | |||
| 73696 | /* Processing variable x21 */ | |||
| 73697 | capi_x21_intent |= (capi_overwrite_x21?0:F2PY_INTENT_COPY32); | |||
| 73698 | x21_Dims[0]=mmp,x21_Dims[1]=q; | |||
| 73699 | capi_x21_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 73700 | capi_x21_tmp = array_from_pyobj(NPY_CDOUBLE,x21_Dims,x21_Rank,capi_x21_intent,x21_capi); | |||
| 73701 | if (capi_x21_tmp == NULL((void*)0)) { | |||
| 73702 | if (!PyErr_Occurred()) | |||
| 73703 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x21' of _flapack.zuncsd to C/Fortran array" ); | |||
| 73704 | } else { | |||
| 73705 | x21 = (complex_double *)(PyArray_DATA(capi_x21_tmp)((void *)((PyArrayObject_fields *)(capi_x21_tmp))->data)); | |||
| 73706 | ||||
| 73707 | CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1),"mmp==shape(x21,0)||q==shape(x21,1)","3rd argument x21")if (!(mmp==x21_Dims[0]||q==x21_Dims[1])) { PyErr_SetString(_flapack_error ,"(""mmp==shape(x21,0)||q==shape(x21,1)"") failed for ""3rd argument x21" ); } else { | |||
| 73708 | /* Processing variable ldx12 */ | |||
| 73709 | ldx12 = MAX(1,shape(x12,0))((1 > x12_Dims[0]) ? (1) : (x12_Dims[0])); | |||
| 73710 | /* Processing variable ldx21 */ | |||
| 73711 | ldx21 = MAX(1,shape(x21,0))((1 > x21_Dims[0]) ? (1) : (x21_Dims[0])); | |||
| 73712 | /* Processing variable rwork */ | |||
| 73713 | rwork_Dims[0]=lrwork; | |||
| 73714 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 73715 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 73716 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 73717 | if (!PyErr_Occurred()) | |||
| 73718 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zuncsd to C/Fortran array" ); | |||
| 73719 | } else { | |||
| 73720 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 73721 | ||||
| 73722 | /* Processing variable lwork */ | |||
| 73723 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = 2*m+MAX(1,MAX(mmp,mmq))((1 > ((mmp > mmq) ? (mmp) : (mmq))) ? (1) : (((mmp > mmq) ? (mmp) : (mmq))))+1; else | |||
| 73724 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zuncsd() 7th keyword (lwork) can't be converted to int"); | |||
| 73725 | if (f2py_success) { | |||
| 73726 | CHECKSCALAR(lwork==-1||lwork>0,"lwork==-1||lwork>0","7th keyword lwork","zuncsd:lwork=%d",lwork)if (!(lwork==-1||lwork>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zuncsd:lwork=%d", "(""lwork==-1||lwork>0"") failed for " "7th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 73727 | /* Processing variable work */ | |||
| 73728 | work_Dims[0]=lwork; | |||
| 73729 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 73730 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 73731 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 73732 | if (!PyErr_Occurred()) | |||
| 73733 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zuncsd to C/Fortran array" ); | |||
| 73734 | } else { | |||
| 73735 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 73736 | ||||
| 73737 | /*end of frompyobj*/ | |||
| 73738 | #ifdef F2PY_REPORT_ATEXIT | |||
| 73739 | f2py_start_call_clock(); | |||
| 73740 | #endif | |||
| 73741 | /*callfortranroutine*/ | |||
| 73742 | (*f2py_func)((compute_u1?"Y":"N"),(compute_u2?"Y":"N"),(compute_v1t?"Y":"N"),(compute_v2t?"Y":"N"),(trans?"T":"N"),(signs?"O":"D"),&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,rwork,&lrwork,iwork,&info) ; | |||
| 73743 | /*(*f2py_func)(&compute_u1,&compute_u2,&compute_v1t,&compute_v2t,&trans,&signs,&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,rwork,&lrwork,iwork,&info,&mmp,&mmq);*/ | |||
| 73744 | if (PyErr_Occurred()) | |||
| 73745 | f2py_success = 0; | |||
| 73746 | #ifdef F2PY_REPORT_ATEXIT | |||
| 73747 | f2py_stop_call_clock(); | |||
| 73748 | #endif | |||
| 73749 | /*end of callfortranroutine*/ | |||
| 73750 | if (f2py_success) { | |||
| 73751 | /*pyobjfrom*/ | |||
| 73752 | /*end of pyobjfrom*/ | |||
| 73753 | CFUNCSMESS("Building return value.\n"); | |||
| 73754 | capi_buildvalue = Py_BuildValue("NNNNNNNNNi",capi_x11_tmp,capi_x12_tmp,capi_x21_tmp,capi_x22_tmp,capi_theta_tmp,capi_u1_tmp,capi_u2_tmp,capi_v1t_tmp,capi_v2t_tmp,info); | |||
| 73755 | /*closepyobjfrom*/ | |||
| 73756 | /*end of closepyobjfrom*/ | |||
| 73757 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 73758 | /*cleanupfrompyobj*/ | |||
| 73759 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 73760 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 73761 | /* End of cleaning variable work */ | |||
| 73762 | } /*CHECKSCALAR(lwork==-1||lwork>0)*/ | |||
| 73763 | } /*if (f2py_success) of lwork*/ | |||
| 73764 | /* End of cleaning variable lwork */ | |||
| 73765 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 73766 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 73767 | /* End of cleaning variable rwork */ | |||
| 73768 | /* End of cleaning variable ldx21 */ | |||
| 73769 | /* End of cleaning variable ldx12 */ | |||
| 73770 | } /*CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1))*/ | |||
| 73771 | } /*if (capi_x21_tmp == NULL) ... else of x21*/ | |||
| 73772 | /* End of cleaning variable x21 */ | |||
| 73773 | } /*CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0))*/ | |||
| 73774 | } /*if (capi_x12_tmp == NULL) ... else of x12*/ | |||
| 73775 | /* End of cleaning variable x12 */ | |||
| 73776 | } /*CHECKSCALAR(p+mmp==q+mmq)*/ | |||
| 73777 | /* End of cleaning variable m */ | |||
| 73778 | } /*CHECKSCALAR(lrwork==-1||lrwork>0)*/ | |||
| 73779 | } /*if (f2py_success) of lrwork*/ | |||
| 73780 | /* End of cleaning variable lrwork */ | |||
| 73781 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 73782 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 73783 | /* End of cleaning variable iwork */ | |||
| 73784 | /* End of cleaning variable ldv2t */ | |||
| 73785 | /* End of cleaning variable ldv1t */ | |||
| 73786 | /* End of cleaning variable ldu2 */ | |||
| 73787 | /* End of cleaning variable ldu1 */ | |||
| 73788 | } /*if (capi_v2t_tmp == NULL) ... else of v2t*/ | |||
| 73789 | /* End of cleaning variable v2t */ | |||
| 73790 | } /*if (capi_v1t_tmp == NULL) ... else of v1t*/ | |||
| 73791 | /* End of cleaning variable v1t */ | |||
| 73792 | } /*if (capi_u2_tmp == NULL) ... else of u2*/ | |||
| 73793 | /* End of cleaning variable u2 */ | |||
| 73794 | } /*if (capi_u1_tmp == NULL) ... else of u1*/ | |||
| 73795 | /* End of cleaning variable u1 */ | |||
| 73796 | } /*if (capi_theta_tmp == NULL) ... else of theta*/ | |||
| 73797 | /* End of cleaning variable theta */ | |||
| 73798 | /* End of cleaning variable ldx22 */ | |||
| 73799 | /* End of cleaning variable ldx11 */ | |||
| 73800 | /* End of cleaning variable mmq */ | |||
| 73801 | /* End of cleaning variable mmp */ | |||
| 73802 | /* End of cleaning variable q */ | |||
| 73803 | /* End of cleaning variable p */ | |||
| 73804 | /* End of cleaning variable info */ | |||
| 73805 | } /*if (capi_x22_tmp == NULL) ... else of x22*/ | |||
| 73806 | /* End of cleaning variable x22 */ | |||
| 73807 | } /*if (capi_x11_tmp == NULL) ... else of x11*/ | |||
| 73808 | /* End of cleaning variable x11 */ | |||
| 73809 | } /*CHECKSCALAR(signs==0||signs==1)*/ | |||
| 73810 | } /*if (f2py_success) of signs*/ | |||
| 73811 | /* End of cleaning variable signs */ | |||
| 73812 | } /*CHECKSCALAR(trans==0||trans==1)*/ | |||
| 73813 | } /*if (f2py_success) of trans*/ | |||
| 73814 | /* End of cleaning variable trans */ | |||
| 73815 | } /*CHECKSCALAR(compute_v2t==0||compute_v2t==1)*/ | |||
| 73816 | } /*if (f2py_success) of compute_v2t*/ | |||
| 73817 | /* End of cleaning variable compute_v2t */ | |||
| 73818 | } /*CHECKSCALAR(compute_v1t==0||compute_v1t==1)*/ | |||
| 73819 | } /*if (f2py_success) of compute_v1t*/ | |||
| 73820 | /* End of cleaning variable compute_v1t */ | |||
| 73821 | } /*CHECKSCALAR(compute_u2==0||compute_u2==1)*/ | |||
| 73822 | } /*if (f2py_success) of compute_u2*/ | |||
| 73823 | /* End of cleaning variable compute_u2 */ | |||
| 73824 | } /*CHECKSCALAR(compute_u1==0||compute_u1==1)*/ | |||
| 73825 | } /*if (f2py_success) of compute_u1*/ | |||
| 73826 | /* End of cleaning variable compute_u1 */ | |||
| 73827 | /*end of cleanupfrompyobj*/ | |||
| 73828 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 73829 | /*routdebugfailure*/ | |||
| 73830 | } else { | |||
| 73831 | /*routdebugleave*/ | |||
| 73832 | } | |||
| 73833 | CFUNCSMESS("Freeing memory.\n"); | |||
| 73834 | /*freemem*/ | |||
| 73835 | #ifdef F2PY_REPORT_ATEXIT | |||
| 73836 | f2py_stop_clock(); | |||
| 73837 | #endif | |||
| 73838 | return capi_buildvalue; | |||
| 73839 | } | |||
| 73840 | /******************************* end of zuncsd *******************************/ | |||
| 73841 | ||||
| 73842 | /******************************** cuncsd_lwork ********************************/ | |||
| 73843 | static char doc_f2py_rout__flapack_cuncsd_lwork[] = "\ | |||
| 73844 | work,rwork,info = cuncsd_lwork(m,p,q)\n\nWrapper for ``cuncsd_lwork``.\ | |||
| 73845 | \n\nParameters\n----------\n" | |||
| 73846 | "m : input int\n" | |||
| 73847 | "p : input int\n" | |||
| 73848 | "q : input int\n" | |||
| 73849 | "\nReturns\n-------\n" | |||
| 73850 | "work : complex\n" | |||
| 73851 | "rwork : float\n" | |||
| 73852 | "info : int"; | |||
| 73853 | /* extern void F_FUNC(cuncsd ,CUNCSD )(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 73854 | static PyObject *f2py_rout__flapack_cuncsd_lwork(const PyObject *capi_self, | |||
| 73855 | PyObject *capi_args, | |||
| 73856 | PyObject *capi_keywds, | |||
| 73857 | void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 73858 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 73859 | volatile int f2py_success = 1; | |||
| 73860 | /*decl*/ | |||
| 73861 | ||||
| 73862 | int m = 0; | |||
| 73863 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 73864 | int p = 0; | |||
| 73865 | PyObject *p_capi = Py_None(&_Py_NoneStruct); | |||
| 73866 | int q = 0; | |||
| 73867 | PyObject *q_capi = Py_None(&_Py_NoneStruct); | |||
| 73868 | complex_float x11; | |||
| 73869 | int ldx11 = 0; | |||
| 73870 | complex_float x12; | |||
| 73871 | int ldx12 = 0; | |||
| 73872 | complex_float x21; | |||
| 73873 | int ldx21 = 0; | |||
| 73874 | complex_float x22; | |||
| 73875 | int ldx22 = 0; | |||
| 73876 | float theta = 0; | |||
| 73877 | complex_float u1; | |||
| 73878 | int ldu1 = 0; | |||
| 73879 | complex_float u2; | |||
| 73880 | int ldu2 = 0; | |||
| 73881 | complex_float v1t; | |||
| 73882 | int ldv1t = 0; | |||
| 73883 | complex_float v2t; | |||
| 73884 | int ldv2t = 0; | |||
| 73885 | complex_float work; | |||
| 73886 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 73887 | int lwork = 0; | |||
| 73888 | float rwork = 0; | |||
| 73889 | int lrwork = 0; | |||
| 73890 | int iwork = 0; | |||
| 73891 | int info = 0; | |||
| 73892 | int mmp = 0; | |||
| 73893 | int mmq = 0; | |||
| 73894 | static char *capi_kwlist[] = {"m","p","q",NULL((void*)0)}; | |||
| 73895 | ||||
| 73896 | /*routdebugenter*/ | |||
| 73897 | #ifdef F2PY_REPORT_ATEXIT | |||
| 73898 | f2py_start_clock(); | |||
| 73899 | #endif | |||
| 73900 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 73901 | "OOO:_flapack.cuncsd_lwork",\ | |||
| 73902 | capi_kwlist,&m_capi,&p_capi,&q_capi)) | |||
| 73903 | return NULL((void*)0); | |||
| 73904 | /*frompyobj*/ | |||
| 73905 | /* Processing variable m */ | |||
| 73906 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cuncsd_lwork() 1st argument (m) can't be converted to int"); | |||
| 73907 | if (f2py_success) { | |||
| 73908 | /* Processing variable p */ | |||
| 73909 | f2py_success = int_from_pyobj(&p,p_capi,"_flapack.cuncsd_lwork() 2nd argument (p) can't be converted to int"); | |||
| 73910 | if (f2py_success) { | |||
| 73911 | /* Processing variable q */ | |||
| 73912 | f2py_success = int_from_pyobj(&q,q_capi,"_flapack.cuncsd_lwork() 3rd argument (q) can't be converted to int"); | |||
| 73913 | if (f2py_success) { | |||
| 73914 | /* Processing variable x11 */ | |||
| 73915 | /* Processing variable x22 */ | |||
| 73916 | /* Processing variable x12 */ | |||
| 73917 | /* Processing variable x21 */ | |||
| 73918 | /* Processing variable theta */ | |||
| 73919 | /* Processing variable u1 */ | |||
| 73920 | /* Processing variable u2 */ | |||
| 73921 | /* Processing variable v1t */ | |||
| 73922 | /* Processing variable v2t */ | |||
| 73923 | /* Processing variable iwork */ | |||
| 73924 | /* Processing variable lwork */ | |||
| 73925 | lwork = -1; | |||
| 73926 | /* Processing variable lrwork */ | |||
| 73927 | lrwork = -1; | |||
| 73928 | /* Processing variable work */ | |||
| 73929 | /* Processing variable rwork */ | |||
| 73930 | /* Processing variable info */ | |||
| 73931 | /* Processing variable mmp */ | |||
| 73932 | mmp = m-p; | |||
| 73933 | /* Processing variable mmq */ | |||
| 73934 | mmq = m-q; | |||
| 73935 | /* Processing variable ldx11 */ | |||
| 73936 | ldx11 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 73937 | /* Processing variable ldx12 */ | |||
| 73938 | ldx12 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 73939 | /* Processing variable ldx21 */ | |||
| 73940 | ldx21 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 73941 | /* Processing variable ldx22 */ | |||
| 73942 | ldx22 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 73943 | /* Processing variable ldu1 */ | |||
| 73944 | ldu1 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 73945 | /* Processing variable ldu2 */ | |||
| 73946 | ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 73947 | /* Processing variable ldv1t */ | |||
| 73948 | ldv1t = MAX(1,q)((1 > q) ? (1) : (q)); | |||
| 73949 | /* Processing variable ldv2t */ | |||
| 73950 | ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq)); | |||
| 73951 | /*end of frompyobj*/ | |||
| 73952 | #ifdef F2PY_REPORT_ATEXIT | |||
| 73953 | f2py_start_call_clock(); | |||
| 73954 | #endif | |||
| 73955 | /*callfortranroutine*/ | |||
| 73956 | (*f2py_func)("Y","Y","Y","Y","N","D",&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&rwork,&lrwork,&iwork,&info) ; | |||
| 73957 | /*(*f2py_func)(&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&rwork,&lrwork,&iwork,&info,&mmp,&mmq);*/ | |||
| 73958 | if (PyErr_Occurred()) | |||
| 73959 | f2py_success = 0; | |||
| 73960 | #ifdef F2PY_REPORT_ATEXIT | |||
| 73961 | f2py_stop_call_clock(); | |||
| 73962 | #endif | |||
| 73963 | /*end of callfortranroutine*/ | |||
| 73964 | if (f2py_success) { | |||
| 73965 | /*pyobjfrom*/ | |||
| 73966 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 73967 | /*end of pyobjfrom*/ | |||
| 73968 | CFUNCSMESS("Building return value.\n"); | |||
| 73969 | capi_buildvalue = Py_BuildValue("Nfi",work_capi,rwork,info); | |||
| 73970 | /*closepyobjfrom*/ | |||
| 73971 | /*end of closepyobjfrom*/ | |||
| 73972 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 73973 | /*cleanupfrompyobj*/ | |||
| 73974 | /* End of cleaning variable ldv2t */ | |||
| 73975 | /* End of cleaning variable ldv1t */ | |||
| 73976 | /* End of cleaning variable ldu2 */ | |||
| 73977 | /* End of cleaning variable ldu1 */ | |||
| 73978 | /* End of cleaning variable ldx22 */ | |||
| 73979 | /* End of cleaning variable ldx21 */ | |||
| 73980 | /* End of cleaning variable ldx12 */ | |||
| 73981 | /* End of cleaning variable ldx11 */ | |||
| 73982 | /* End of cleaning variable mmq */ | |||
| 73983 | /* End of cleaning variable mmp */ | |||
| 73984 | /* End of cleaning variable info */ | |||
| 73985 | /* End of cleaning variable rwork */ | |||
| 73986 | /* End of cleaning variable work */ | |||
| 73987 | /* End of cleaning variable lrwork */ | |||
| 73988 | /* End of cleaning variable lwork */ | |||
| 73989 | /* End of cleaning variable iwork */ | |||
| 73990 | /* End of cleaning variable v2t */ | |||
| 73991 | /* End of cleaning variable v1t */ | |||
| 73992 | /* End of cleaning variable u2 */ | |||
| 73993 | /* End of cleaning variable u1 */ | |||
| 73994 | /* End of cleaning variable theta */ | |||
| 73995 | /* End of cleaning variable x21 */ | |||
| 73996 | /* End of cleaning variable x12 */ | |||
| 73997 | /* End of cleaning variable x22 */ | |||
| 73998 | /* End of cleaning variable x11 */ | |||
| 73999 | } /*if (f2py_success) of q*/ | |||
| 74000 | /* End of cleaning variable q */ | |||
| 74001 | } /*if (f2py_success) of p*/ | |||
| 74002 | /* End of cleaning variable p */ | |||
| 74003 | } /*if (f2py_success) of m*/ | |||
| 74004 | /* End of cleaning variable m */ | |||
| 74005 | /*end of cleanupfrompyobj*/ | |||
| 74006 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 74007 | /*routdebugfailure*/ | |||
| 74008 | } else { | |||
| 74009 | /*routdebugleave*/ | |||
| 74010 | } | |||
| 74011 | CFUNCSMESS("Freeing memory.\n"); | |||
| 74012 | /*freemem*/ | |||
| 74013 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74014 | f2py_stop_clock(); | |||
| 74015 | #endif | |||
| 74016 | return capi_buildvalue; | |||
| 74017 | } | |||
| 74018 | /**************************** end of cuncsd_lwork ****************************/ | |||
| 74019 | ||||
| 74020 | /******************************** zuncsd_lwork ********************************/ | |||
| 74021 | static char doc_f2py_rout__flapack_zuncsd_lwork[] = "\ | |||
| 74022 | work,rwork,info = zuncsd_lwork(m,p,q)\n\nWrapper for ``zuncsd_lwork``.\ | |||
| 74023 | \n\nParameters\n----------\n" | |||
| 74024 | "m : input int\n" | |||
| 74025 | "p : input int\n" | |||
| 74026 | "q : input int\n" | |||
| 74027 | "\nReturns\n-------\n" | |||
| 74028 | "work : complex\n" | |||
| 74029 | "rwork : float\n" | |||
| 74030 | "info : int"; | |||
| 74031 | /* extern void F_FUNC(zuncsd ,ZUNCSD )(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 74032 | static PyObject *f2py_rout__flapack_zuncsd_lwork(const PyObject *capi_self, | |||
| 74033 | PyObject *capi_args, | |||
| 74034 | PyObject *capi_keywds, | |||
| 74035 | void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 74036 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 74037 | volatile int f2py_success = 1; | |||
| 74038 | /*decl*/ | |||
| 74039 | ||||
| 74040 | int m = 0; | |||
| 74041 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 74042 | int p = 0; | |||
| 74043 | PyObject *p_capi = Py_None(&_Py_NoneStruct); | |||
| 74044 | int q = 0; | |||
| 74045 | PyObject *q_capi = Py_None(&_Py_NoneStruct); | |||
| 74046 | complex_double x11; | |||
| 74047 | int ldx11 = 0; | |||
| 74048 | complex_double x12; | |||
| 74049 | int ldx12 = 0; | |||
| 74050 | complex_double x21; | |||
| 74051 | int ldx21 = 0; | |||
| 74052 | complex_double x22; | |||
| 74053 | int ldx22 = 0; | |||
| 74054 | double theta = 0; | |||
| 74055 | complex_double u1; | |||
| 74056 | int ldu1 = 0; | |||
| 74057 | complex_double u2; | |||
| 74058 | int ldu2 = 0; | |||
| 74059 | complex_double v1t; | |||
| 74060 | int ldv1t = 0; | |||
| 74061 | complex_double v2t; | |||
| 74062 | int ldv2t = 0; | |||
| 74063 | complex_double work; | |||
| 74064 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 74065 | int lwork = 0; | |||
| 74066 | double rwork = 0; | |||
| 74067 | int lrwork = 0; | |||
| 74068 | int iwork = 0; | |||
| 74069 | int info = 0; | |||
| 74070 | int mmp = 0; | |||
| 74071 | int mmq = 0; | |||
| 74072 | static char *capi_kwlist[] = {"m","p","q",NULL((void*)0)}; | |||
| 74073 | ||||
| 74074 | /*routdebugenter*/ | |||
| 74075 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74076 | f2py_start_clock(); | |||
| 74077 | #endif | |||
| 74078 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 74079 | "OOO:_flapack.zuncsd_lwork",\ | |||
| 74080 | capi_kwlist,&m_capi,&p_capi,&q_capi)) | |||
| 74081 | return NULL((void*)0); | |||
| 74082 | /*frompyobj*/ | |||
| 74083 | /* Processing variable m */ | |||
| 74084 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zuncsd_lwork() 1st argument (m) can't be converted to int"); | |||
| 74085 | if (f2py_success) { | |||
| 74086 | /* Processing variable p */ | |||
| 74087 | f2py_success = int_from_pyobj(&p,p_capi,"_flapack.zuncsd_lwork() 2nd argument (p) can't be converted to int"); | |||
| 74088 | if (f2py_success) { | |||
| 74089 | /* Processing variable q */ | |||
| 74090 | f2py_success = int_from_pyobj(&q,q_capi,"_flapack.zuncsd_lwork() 3rd argument (q) can't be converted to int"); | |||
| 74091 | if (f2py_success) { | |||
| 74092 | /* Processing variable x11 */ | |||
| 74093 | /* Processing variable x22 */ | |||
| 74094 | /* Processing variable x12 */ | |||
| 74095 | /* Processing variable x21 */ | |||
| 74096 | /* Processing variable theta */ | |||
| 74097 | /* Processing variable u1 */ | |||
| 74098 | /* Processing variable u2 */ | |||
| 74099 | /* Processing variable v1t */ | |||
| 74100 | /* Processing variable v2t */ | |||
| 74101 | /* Processing variable iwork */ | |||
| 74102 | /* Processing variable lwork */ | |||
| 74103 | lwork = -1; | |||
| 74104 | /* Processing variable lrwork */ | |||
| 74105 | lrwork = -1; | |||
| 74106 | /* Processing variable work */ | |||
| 74107 | /* Processing variable rwork */ | |||
| 74108 | /* Processing variable info */ | |||
| 74109 | /* Processing variable mmp */ | |||
| 74110 | mmp = m-p; | |||
| 74111 | /* Processing variable mmq */ | |||
| 74112 | mmq = m-q; | |||
| 74113 | /* Processing variable ldx11 */ | |||
| 74114 | ldx11 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 74115 | /* Processing variable ldx12 */ | |||
| 74116 | ldx12 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 74117 | /* Processing variable ldx21 */ | |||
| 74118 | ldx21 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 74119 | /* Processing variable ldx22 */ | |||
| 74120 | ldx22 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 74121 | /* Processing variable ldu1 */ | |||
| 74122 | ldu1 = MAX(1,p)((1 > p) ? (1) : (p)); | |||
| 74123 | /* Processing variable ldu2 */ | |||
| 74124 | ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp)); | |||
| 74125 | /* Processing variable ldv1t */ | |||
| 74126 | ldv1t = MAX(1,q)((1 > q) ? (1) : (q)); | |||
| 74127 | /* Processing variable ldv2t */ | |||
| 74128 | ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq)); | |||
| 74129 | /*end of frompyobj*/ | |||
| 74130 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74131 | f2py_start_call_clock(); | |||
| 74132 | #endif | |||
| 74133 | /*callfortranroutine*/ | |||
| 74134 | (*f2py_func)("Y","Y","Y","Y","N","D",&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&rwork,&lrwork,&iwork,&info) ; | |||
| 74135 | /*(*f2py_func)(&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&rwork,&lrwork,&iwork,&info,&mmp,&mmq);*/ | |||
| 74136 | if (PyErr_Occurred()) | |||
| 74137 | f2py_success = 0; | |||
| 74138 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74139 | f2py_stop_call_clock(); | |||
| 74140 | #endif | |||
| 74141 | /*end of callfortranroutine*/ | |||
| 74142 | if (f2py_success) { | |||
| 74143 | /*pyobjfrom*/ | |||
| 74144 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 74145 | /*end of pyobjfrom*/ | |||
| 74146 | CFUNCSMESS("Building return value.\n"); | |||
| 74147 | capi_buildvalue = Py_BuildValue("Ndi",work_capi,rwork,info); | |||
| 74148 | /*closepyobjfrom*/ | |||
| 74149 | /*end of closepyobjfrom*/ | |||
| 74150 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 74151 | /*cleanupfrompyobj*/ | |||
| 74152 | /* End of cleaning variable ldv2t */ | |||
| 74153 | /* End of cleaning variable ldv1t */ | |||
| 74154 | /* End of cleaning variable ldu2 */ | |||
| 74155 | /* End of cleaning variable ldu1 */ | |||
| 74156 | /* End of cleaning variable ldx22 */ | |||
| 74157 | /* End of cleaning variable ldx21 */ | |||
| 74158 | /* End of cleaning variable ldx12 */ | |||
| 74159 | /* End of cleaning variable ldx11 */ | |||
| 74160 | /* End of cleaning variable mmq */ | |||
| 74161 | /* End of cleaning variable mmp */ | |||
| 74162 | /* End of cleaning variable info */ | |||
| 74163 | /* End of cleaning variable rwork */ | |||
| 74164 | /* End of cleaning variable work */ | |||
| 74165 | /* End of cleaning variable lrwork */ | |||
| 74166 | /* End of cleaning variable lwork */ | |||
| 74167 | /* End of cleaning variable iwork */ | |||
| 74168 | /* End of cleaning variable v2t */ | |||
| 74169 | /* End of cleaning variable v1t */ | |||
| 74170 | /* End of cleaning variable u2 */ | |||
| 74171 | /* End of cleaning variable u1 */ | |||
| 74172 | /* End of cleaning variable theta */ | |||
| 74173 | /* End of cleaning variable x21 */ | |||
| 74174 | /* End of cleaning variable x12 */ | |||
| 74175 | /* End of cleaning variable x22 */ | |||
| 74176 | /* End of cleaning variable x11 */ | |||
| 74177 | } /*if (f2py_success) of q*/ | |||
| 74178 | /* End of cleaning variable q */ | |||
| 74179 | } /*if (f2py_success) of p*/ | |||
| 74180 | /* End of cleaning variable p */ | |||
| 74181 | } /*if (f2py_success) of m*/ | |||
| 74182 | /* End of cleaning variable m */ | |||
| 74183 | /*end of cleanupfrompyobj*/ | |||
| 74184 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 74185 | /*routdebugfailure*/ | |||
| 74186 | } else { | |||
| 74187 | /*routdebugleave*/ | |||
| 74188 | } | |||
| 74189 | CFUNCSMESS("Freeing memory.\n"); | |||
| 74190 | /*freemem*/ | |||
| 74191 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74192 | f2py_stop_clock(); | |||
| 74193 | #endif | |||
| 74194 | return capi_buildvalue; | |||
| 74195 | } | |||
| 74196 | /**************************** end of zuncsd_lwork ****************************/ | |||
| 74197 | ||||
| 74198 | /*********************************** sorghr ***********************************/ | |||
| 74199 | static char doc_f2py_rout__flapack_sorghr[] = "\ | |||
| 74200 | ht,info = sorghr(a,tau,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``sorghr``.\ | |||
| 74201 | \n\nParameters\n----------\n" | |||
| 74202 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 74203 | "tau : input rank-1 array('f') with bounds (n - 1)\n" | |||
| 74204 | "\nOther Parameters\n----------------\n" | |||
| 74205 | "lo : input int, optional\n Default: 0\n" | |||
| 74206 | "hi : input int, optional\n Default: n-1\n" | |||
| 74207 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 74208 | "lwork : input int, optional\n Default: max(hi-lo,1)\n" | |||
| 74209 | "\nReturns\n-------\n" | |||
| 74210 | "ht : rank-2 array('f') with bounds (n,n) and a storage\n" | |||
| 74211 | "info : int"; | |||
| 74212 | /* extern void F_FUNC(sorghr,SORGHR)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 74213 | static PyObject *f2py_rout__flapack_sorghr(const PyObject *capi_self, | |||
| 74214 | PyObject *capi_args, | |||
| 74215 | PyObject *capi_keywds, | |||
| 74216 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 74217 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 74218 | volatile int f2py_success = 1; | |||
| 74219 | /*decl*/ | |||
| 74220 | ||||
| 74221 | int n = 0; | |||
| 74222 | int lo = 0; | |||
| 74223 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 74224 | int hi = 0; | |||
| 74225 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 74226 | float *a = NULL((void*)0); | |||
| 74227 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 74228 | const int a_Rank = 2; | |||
| 74229 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 74230 | int capi_a_intent = 0; | |||
| 74231 | int capi_overwrite_a = 0; | |||
| 74232 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 74233 | float *tau = NULL((void*)0); | |||
| 74234 | npy_intp tau_Dims[1] = {-1}; | |||
| 74235 | const int tau_Rank = 1; | |||
| 74236 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 74237 | int capi_tau_intent = 0; | |||
| 74238 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 74239 | float *work = NULL((void*)0); | |||
| 74240 | npy_intp work_Dims[1] = {-1}; | |||
| 74241 | const int work_Rank = 1; | |||
| 74242 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 74243 | int capi_work_intent = 0; | |||
| 74244 | int lwork = 0; | |||
| 74245 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 74246 | int info = 0; | |||
| 74247 | static char *capi_kwlist[] = {"a","tau","lo","hi","lwork","overwrite_a",NULL((void*)0)}; | |||
| 74248 | ||||
| 74249 | /*routdebugenter*/ | |||
| 74250 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74251 | f2py_start_clock(); | |||
| 74252 | #endif | |||
| 74253 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 74254 | "OO|OOOi:_flapack.sorghr",\ | |||
| 74255 | capi_kwlist,&a_capi,&tau_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 74256 | return NULL((void*)0); | |||
| 74257 | /*frompyobj*/ | |||
| 74258 | /* Processing variable a */ | |||
| 74259 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 74260 | ; | |||
| 74261 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 74262 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 74263 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 74264 | if (!PyErr_Occurred()) | |||
| 74265 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sorghr to C/Fortran array" ); | |||
| 74266 | } else { | |||
| 74267 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 74268 | ||||
| 74269 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 74270 | /* Processing variable lo */ | |||
| 74271 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 74272 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.sorghr() 1st keyword (lo) can't be converted to int"); | |||
| 74273 | if (f2py_success) { | |||
| 74274 | /* Processing variable info */ | |||
| 74275 | /* Processing variable n */ | |||
| 74276 | n = shape(a,0)a_Dims[0]; | |||
| 74277 | /* Processing variable hi */ | |||
| 74278 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 74279 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.sorghr() 2nd keyword (hi) can't be converted to int"); | |||
| 74280 | if (f2py_success) { | |||
| 74281 | /* Processing variable tau */ | |||
| 74282 | tau_Dims[0]=n - 1; | |||
| 74283 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 74284 | capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 74285 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 74286 | if (!PyErr_Occurred()) | |||
| 74287 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.sorghr to C/Fortran array" ); | |||
| 74288 | } else { | |||
| 74289 | tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 74290 | ||||
| 74291 | /* Processing variable lwork */ | |||
| 74292 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(hi-lo,1)((hi-lo > 1) ? (hi-lo) : (1)); else | |||
| 74293 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sorghr() 3rd keyword (lwork) can't be converted to int"); | |||
| 74294 | if (f2py_success) { | |||
| 74295 | CHECKSCALAR(lwork>=hi-lo,"lwork>=hi-lo","3rd keyword lwork","sorghr:lwork=%d",lwork)if (!(lwork>=hi-lo)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sorghr:lwork=%d", "(""lwork>=hi-lo"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 74296 | /* Processing variable work */ | |||
| 74297 | work_Dims[0]=lwork; | |||
| 74298 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 74299 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 74300 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 74301 | if (!PyErr_Occurred()) | |||
| 74302 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sorghr to C/Fortran array" ); | |||
| 74303 | } else { | |||
| 74304 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 74305 | ||||
| 74306 | /*end of frompyobj*/ | |||
| 74307 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74308 | f2py_start_call_clock(); | |||
| 74309 | #endif | |||
| 74310 | /*callfortranroutine*/ | |||
| 74311 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ; | |||
| 74312 | /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/ | |||
| 74313 | if (PyErr_Occurred()) | |||
| 74314 | f2py_success = 0; | |||
| 74315 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74316 | f2py_stop_call_clock(); | |||
| 74317 | #endif | |||
| 74318 | /*end of callfortranroutine*/ | |||
| 74319 | if (f2py_success) { | |||
| 74320 | /*pyobjfrom*/ | |||
| 74321 | /*end of pyobjfrom*/ | |||
| 74322 | CFUNCSMESS("Building return value.\n"); | |||
| 74323 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 74324 | /*closepyobjfrom*/ | |||
| 74325 | /*end of closepyobjfrom*/ | |||
| 74326 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 74327 | /*cleanupfrompyobj*/ | |||
| 74328 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 74329 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 74330 | /* End of cleaning variable work */ | |||
| 74331 | } /*CHECKSCALAR(lwork>=hi-lo)*/ | |||
| 74332 | } /*if (f2py_success) of lwork*/ | |||
| 74333 | /* End of cleaning variable lwork */ | |||
| 74334 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 74335 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 74336 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 74337 | /* End of cleaning variable tau */ | |||
| 74338 | } /*if (f2py_success) of hi*/ | |||
| 74339 | /* End of cleaning variable hi */ | |||
| 74340 | /* End of cleaning variable n */ | |||
| 74341 | /* End of cleaning variable info */ | |||
| 74342 | } /*if (f2py_success) of lo*/ | |||
| 74343 | /* End of cleaning variable lo */ | |||
| 74344 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 74345 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 74346 | /* End of cleaning variable a */ | |||
| 74347 | /*end of cleanupfrompyobj*/ | |||
| 74348 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 74349 | /*routdebugfailure*/ | |||
| 74350 | } else { | |||
| 74351 | /*routdebugleave*/ | |||
| 74352 | } | |||
| 74353 | CFUNCSMESS("Freeing memory.\n"); | |||
| 74354 | /*freemem*/ | |||
| 74355 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74356 | f2py_stop_clock(); | |||
| 74357 | #endif | |||
| 74358 | return capi_buildvalue; | |||
| 74359 | } | |||
| 74360 | /******************************* end of sorghr *******************************/ | |||
| 74361 | ||||
| 74362 | /*********************************** dorghr ***********************************/ | |||
| 74363 | static char doc_f2py_rout__flapack_dorghr[] = "\ | |||
| 74364 | ht,info = dorghr(a,tau,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``dorghr``.\ | |||
| 74365 | \n\nParameters\n----------\n" | |||
| 74366 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 74367 | "tau : input rank-1 array('d') with bounds (n - 1)\n" | |||
| 74368 | "\nOther Parameters\n----------------\n" | |||
| 74369 | "lo : input int, optional\n Default: 0\n" | |||
| 74370 | "hi : input int, optional\n Default: n-1\n" | |||
| 74371 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 74372 | "lwork : input int, optional\n Default: max(hi-lo,1)\n" | |||
| 74373 | "\nReturns\n-------\n" | |||
| 74374 | "ht : rank-2 array('d') with bounds (n,n) and a storage\n" | |||
| 74375 | "info : int"; | |||
| 74376 | /* extern void F_FUNC(dorghr,DORGHR)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 74377 | static PyObject *f2py_rout__flapack_dorghr(const PyObject *capi_self, | |||
| 74378 | PyObject *capi_args, | |||
| 74379 | PyObject *capi_keywds, | |||
| 74380 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 74381 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 74382 | volatile int f2py_success = 1; | |||
| 74383 | /*decl*/ | |||
| 74384 | ||||
| 74385 | int n = 0; | |||
| 74386 | int lo = 0; | |||
| 74387 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 74388 | int hi = 0; | |||
| 74389 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 74390 | double *a = NULL((void*)0); | |||
| 74391 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 74392 | const int a_Rank = 2; | |||
| 74393 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 74394 | int capi_a_intent = 0; | |||
| 74395 | int capi_overwrite_a = 0; | |||
| 74396 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 74397 | double *tau = NULL((void*)0); | |||
| 74398 | npy_intp tau_Dims[1] = {-1}; | |||
| 74399 | const int tau_Rank = 1; | |||
| 74400 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 74401 | int capi_tau_intent = 0; | |||
| 74402 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 74403 | double *work = NULL((void*)0); | |||
| 74404 | npy_intp work_Dims[1] = {-1}; | |||
| 74405 | const int work_Rank = 1; | |||
| 74406 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 74407 | int capi_work_intent = 0; | |||
| 74408 | int lwork = 0; | |||
| 74409 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 74410 | int info = 0; | |||
| 74411 | static char *capi_kwlist[] = {"a","tau","lo","hi","lwork","overwrite_a",NULL((void*)0)}; | |||
| 74412 | ||||
| 74413 | /*routdebugenter*/ | |||
| 74414 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74415 | f2py_start_clock(); | |||
| 74416 | #endif | |||
| 74417 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 74418 | "OO|OOOi:_flapack.dorghr",\ | |||
| 74419 | capi_kwlist,&a_capi,&tau_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 74420 | return NULL((void*)0); | |||
| 74421 | /*frompyobj*/ | |||
| 74422 | /* Processing variable a */ | |||
| 74423 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 74424 | ; | |||
| 74425 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 74426 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 74427 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 74428 | if (!PyErr_Occurred()) | |||
| 74429 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dorghr to C/Fortran array" ); | |||
| 74430 | } else { | |||
| 74431 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 74432 | ||||
| 74433 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 74434 | /* Processing variable lo */ | |||
| 74435 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 74436 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.dorghr() 1st keyword (lo) can't be converted to int"); | |||
| 74437 | if (f2py_success) { | |||
| 74438 | /* Processing variable info */ | |||
| 74439 | /* Processing variable n */ | |||
| 74440 | n = shape(a,0)a_Dims[0]; | |||
| 74441 | /* Processing variable hi */ | |||
| 74442 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 74443 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.dorghr() 2nd keyword (hi) can't be converted to int"); | |||
| 74444 | if (f2py_success) { | |||
| 74445 | /* Processing variable tau */ | |||
| 74446 | tau_Dims[0]=n - 1; | |||
| 74447 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 74448 | capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 74449 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 74450 | if (!PyErr_Occurred()) | |||
| 74451 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.dorghr to C/Fortran array" ); | |||
| 74452 | } else { | |||
| 74453 | tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 74454 | ||||
| 74455 | /* Processing variable lwork */ | |||
| 74456 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(hi-lo,1)((hi-lo > 1) ? (hi-lo) : (1)); else | |||
| 74457 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dorghr() 3rd keyword (lwork) can't be converted to int"); | |||
| 74458 | if (f2py_success) { | |||
| 74459 | CHECKSCALAR(lwork>=hi-lo,"lwork>=hi-lo","3rd keyword lwork","dorghr:lwork=%d",lwork)if (!(lwork>=hi-lo)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dorghr:lwork=%d", "(""lwork>=hi-lo"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 74460 | /* Processing variable work */ | |||
| 74461 | work_Dims[0]=lwork; | |||
| 74462 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 74463 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 74464 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 74465 | if (!PyErr_Occurred()) | |||
| 74466 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dorghr to C/Fortran array" ); | |||
| 74467 | } else { | |||
| 74468 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 74469 | ||||
| 74470 | /*end of frompyobj*/ | |||
| 74471 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74472 | f2py_start_call_clock(); | |||
| 74473 | #endif | |||
| 74474 | /*callfortranroutine*/ | |||
| 74475 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ; | |||
| 74476 | /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/ | |||
| 74477 | if (PyErr_Occurred()) | |||
| 74478 | f2py_success = 0; | |||
| 74479 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74480 | f2py_stop_call_clock(); | |||
| 74481 | #endif | |||
| 74482 | /*end of callfortranroutine*/ | |||
| 74483 | if (f2py_success) { | |||
| 74484 | /*pyobjfrom*/ | |||
| 74485 | /*end of pyobjfrom*/ | |||
| 74486 | CFUNCSMESS("Building return value.\n"); | |||
| 74487 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 74488 | /*closepyobjfrom*/ | |||
| 74489 | /*end of closepyobjfrom*/ | |||
| 74490 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 74491 | /*cleanupfrompyobj*/ | |||
| 74492 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 74493 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 74494 | /* End of cleaning variable work */ | |||
| 74495 | } /*CHECKSCALAR(lwork>=hi-lo)*/ | |||
| 74496 | } /*if (f2py_success) of lwork*/ | |||
| 74497 | /* End of cleaning variable lwork */ | |||
| 74498 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 74499 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 74500 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 74501 | /* End of cleaning variable tau */ | |||
| 74502 | } /*if (f2py_success) of hi*/ | |||
| 74503 | /* End of cleaning variable hi */ | |||
| 74504 | /* End of cleaning variable n */ | |||
| 74505 | /* End of cleaning variable info */ | |||
| 74506 | } /*if (f2py_success) of lo*/ | |||
| 74507 | /* End of cleaning variable lo */ | |||
| 74508 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 74509 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 74510 | /* End of cleaning variable a */ | |||
| 74511 | /*end of cleanupfrompyobj*/ | |||
| 74512 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 74513 | /*routdebugfailure*/ | |||
| 74514 | } else { | |||
| 74515 | /*routdebugleave*/ | |||
| 74516 | } | |||
| 74517 | CFUNCSMESS("Freeing memory.\n"); | |||
| 74518 | /*freemem*/ | |||
| 74519 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74520 | f2py_stop_clock(); | |||
| 74521 | #endif | |||
| 74522 | return capi_buildvalue; | |||
| 74523 | } | |||
| 74524 | /******************************* end of dorghr *******************************/ | |||
| 74525 | ||||
| 74526 | /******************************** sorghr_lwork ********************************/ | |||
| 74527 | static char doc_f2py_rout__flapack_sorghr_lwork[] = "\ | |||
| 74528 | work,info = sorghr_lwork(n,[lo,hi])\n\nWrapper for ``sorghr_lwork``.\ | |||
| 74529 | \n\nParameters\n----------\n" | |||
| 74530 | "n : input int\n" | |||
| 74531 | "\nOther Parameters\n----------------\n" | |||
| 74532 | "lo : input int, optional\n Default: 0\n" | |||
| 74533 | "hi : input int, optional\n Default: n-1\n" | |||
| 74534 | "\nReturns\n-------\n" | |||
| 74535 | "work : float\n" | |||
| 74536 | "info : int"; | |||
| 74537 | /* extern void F_FUNC(sorghr ,SORGHR )(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 74538 | static PyObject *f2py_rout__flapack_sorghr_lwork(const PyObject *capi_self, | |||
| 74539 | PyObject *capi_args, | |||
| 74540 | PyObject *capi_keywds, | |||
| 74541 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 74542 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 74543 | volatile int f2py_success = 1; | |||
| 74544 | /*decl*/ | |||
| 74545 | ||||
| 74546 | int n = 0; | |||
| 74547 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 74548 | int lo = 0; | |||
| 74549 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 74550 | int hi = 0; | |||
| 74551 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 74552 | float a = 0; | |||
| 74553 | float tau = 0; | |||
| 74554 | float work = 0; | |||
| 74555 | int lwork = 0; | |||
| 74556 | int info = 0; | |||
| 74557 | static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)}; | |||
| 74558 | ||||
| 74559 | /*routdebugenter*/ | |||
| 74560 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74561 | f2py_start_clock(); | |||
| 74562 | #endif | |||
| 74563 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 74564 | "O|OO:_flapack.sorghr_lwork",\ | |||
| 74565 | capi_kwlist,&n_capi,&lo_capi,&hi_capi)) | |||
| 74566 | return NULL((void*)0); | |||
| 74567 | /*frompyobj*/ | |||
| 74568 | /* Processing variable n */ | |||
| 74569 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sorghr_lwork() 1st argument (n) can't be converted to int"); | |||
| 74570 | if (f2py_success) { | |||
| 74571 | /* Processing variable a */ | |||
| 74572 | /* Processing variable lo */ | |||
| 74573 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 74574 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.sorghr_lwork() 1st keyword (lo) can't be converted to int"); | |||
| 74575 | if (f2py_success) { | |||
| 74576 | /* Processing variable tau */ | |||
| 74577 | /* Processing variable work */ | |||
| 74578 | /* Processing variable lwork */ | |||
| 74579 | lwork = -1; | |||
| 74580 | /* Processing variable info */ | |||
| 74581 | /* Processing variable hi */ | |||
| 74582 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 74583 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.sorghr_lwork() 2nd keyword (hi) can't be converted to int"); | |||
| 74584 | if (f2py_success) { | |||
| 74585 | /*end of frompyobj*/ | |||
| 74586 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74587 | f2py_start_call_clock(); | |||
| 74588 | #endif | |||
| 74589 | /*callfortranroutine*/ | |||
| 74590 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ; | |||
| 74591 | /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/ | |||
| 74592 | if (PyErr_Occurred()) | |||
| 74593 | f2py_success = 0; | |||
| 74594 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74595 | f2py_stop_call_clock(); | |||
| 74596 | #endif | |||
| 74597 | /*end of callfortranroutine*/ | |||
| 74598 | if (f2py_success) { | |||
| 74599 | /*pyobjfrom*/ | |||
| 74600 | /*end of pyobjfrom*/ | |||
| 74601 | CFUNCSMESS("Building return value.\n"); | |||
| 74602 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 74603 | /*closepyobjfrom*/ | |||
| 74604 | /*end of closepyobjfrom*/ | |||
| 74605 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 74606 | /*cleanupfrompyobj*/ | |||
| 74607 | } /*if (f2py_success) of hi*/ | |||
| 74608 | /* End of cleaning variable hi */ | |||
| 74609 | /* End of cleaning variable info */ | |||
| 74610 | /* End of cleaning variable lwork */ | |||
| 74611 | /* End of cleaning variable work */ | |||
| 74612 | /* End of cleaning variable tau */ | |||
| 74613 | } /*if (f2py_success) of lo*/ | |||
| 74614 | /* End of cleaning variable lo */ | |||
| 74615 | /* End of cleaning variable a */ | |||
| 74616 | } /*if (f2py_success) of n*/ | |||
| 74617 | /* End of cleaning variable n */ | |||
| 74618 | /*end of cleanupfrompyobj*/ | |||
| 74619 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 74620 | /*routdebugfailure*/ | |||
| 74621 | } else { | |||
| 74622 | /*routdebugleave*/ | |||
| 74623 | } | |||
| 74624 | CFUNCSMESS("Freeing memory.\n"); | |||
| 74625 | /*freemem*/ | |||
| 74626 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74627 | f2py_stop_clock(); | |||
| 74628 | #endif | |||
| 74629 | return capi_buildvalue; | |||
| 74630 | } | |||
| 74631 | /**************************** end of sorghr_lwork ****************************/ | |||
| 74632 | ||||
| 74633 | /******************************** dorghr_lwork ********************************/ | |||
| 74634 | static char doc_f2py_rout__flapack_dorghr_lwork[] = "\ | |||
| 74635 | work,info = dorghr_lwork(n,[lo,hi])\n\nWrapper for ``dorghr_lwork``.\ | |||
| 74636 | \n\nParameters\n----------\n" | |||
| 74637 | "n : input int\n" | |||
| 74638 | "\nOther Parameters\n----------------\n" | |||
| 74639 | "lo : input int, optional\n Default: 0\n" | |||
| 74640 | "hi : input int, optional\n Default: n-1\n" | |||
| 74641 | "\nReturns\n-------\n" | |||
| 74642 | "work : float\n" | |||
| 74643 | "info : int"; | |||
| 74644 | /* extern void F_FUNC(dorghr ,DORGHR )(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 74645 | static PyObject *f2py_rout__flapack_dorghr_lwork(const PyObject *capi_self, | |||
| 74646 | PyObject *capi_args, | |||
| 74647 | PyObject *capi_keywds, | |||
| 74648 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 74649 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 74650 | volatile int f2py_success = 1; | |||
| 74651 | /*decl*/ | |||
| 74652 | ||||
| 74653 | int n = 0; | |||
| 74654 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 74655 | int lo = 0; | |||
| 74656 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 74657 | int hi = 0; | |||
| 74658 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 74659 | double a = 0; | |||
| 74660 | double tau = 0; | |||
| 74661 | double work = 0; | |||
| 74662 | int lwork = 0; | |||
| 74663 | int info = 0; | |||
| 74664 | static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)}; | |||
| 74665 | ||||
| 74666 | /*routdebugenter*/ | |||
| 74667 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74668 | f2py_start_clock(); | |||
| 74669 | #endif | |||
| 74670 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 74671 | "O|OO:_flapack.dorghr_lwork",\ | |||
| 74672 | capi_kwlist,&n_capi,&lo_capi,&hi_capi)) | |||
| 74673 | return NULL((void*)0); | |||
| 74674 | /*frompyobj*/ | |||
| 74675 | /* Processing variable n */ | |||
| 74676 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dorghr_lwork() 1st argument (n) can't be converted to int"); | |||
| 74677 | if (f2py_success) { | |||
| 74678 | /* Processing variable a */ | |||
| 74679 | /* Processing variable lo */ | |||
| 74680 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 74681 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.dorghr_lwork() 1st keyword (lo) can't be converted to int"); | |||
| 74682 | if (f2py_success) { | |||
| 74683 | /* Processing variable tau */ | |||
| 74684 | /* Processing variable work */ | |||
| 74685 | /* Processing variable lwork */ | |||
| 74686 | lwork = -1; | |||
| 74687 | /* Processing variable info */ | |||
| 74688 | /* Processing variable hi */ | |||
| 74689 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 74690 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.dorghr_lwork() 2nd keyword (hi) can't be converted to int"); | |||
| 74691 | if (f2py_success) { | |||
| 74692 | /*end of frompyobj*/ | |||
| 74693 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74694 | f2py_start_call_clock(); | |||
| 74695 | #endif | |||
| 74696 | /*callfortranroutine*/ | |||
| 74697 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ; | |||
| 74698 | /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/ | |||
| 74699 | if (PyErr_Occurred()) | |||
| 74700 | f2py_success = 0; | |||
| 74701 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74702 | f2py_stop_call_clock(); | |||
| 74703 | #endif | |||
| 74704 | /*end of callfortranroutine*/ | |||
| 74705 | if (f2py_success) { | |||
| 74706 | /*pyobjfrom*/ | |||
| 74707 | /*end of pyobjfrom*/ | |||
| 74708 | CFUNCSMESS("Building return value.\n"); | |||
| 74709 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 74710 | /*closepyobjfrom*/ | |||
| 74711 | /*end of closepyobjfrom*/ | |||
| 74712 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 74713 | /*cleanupfrompyobj*/ | |||
| 74714 | } /*if (f2py_success) of hi*/ | |||
| 74715 | /* End of cleaning variable hi */ | |||
| 74716 | /* End of cleaning variable info */ | |||
| 74717 | /* End of cleaning variable lwork */ | |||
| 74718 | /* End of cleaning variable work */ | |||
| 74719 | /* End of cleaning variable tau */ | |||
| 74720 | } /*if (f2py_success) of lo*/ | |||
| 74721 | /* End of cleaning variable lo */ | |||
| 74722 | /* End of cleaning variable a */ | |||
| 74723 | } /*if (f2py_success) of n*/ | |||
| 74724 | /* End of cleaning variable n */ | |||
| 74725 | /*end of cleanupfrompyobj*/ | |||
| 74726 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 74727 | /*routdebugfailure*/ | |||
| 74728 | } else { | |||
| 74729 | /*routdebugleave*/ | |||
| 74730 | } | |||
| 74731 | CFUNCSMESS("Freeing memory.\n"); | |||
| 74732 | /*freemem*/ | |||
| 74733 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74734 | f2py_stop_clock(); | |||
| 74735 | #endif | |||
| 74736 | return capi_buildvalue; | |||
| 74737 | } | |||
| 74738 | /**************************** end of dorghr_lwork ****************************/ | |||
| 74739 | ||||
| 74740 | /*********************************** cunghr ***********************************/ | |||
| 74741 | static char doc_f2py_rout__flapack_cunghr[] = "\ | |||
| 74742 | ht,info = cunghr(a,tau,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``cunghr``.\ | |||
| 74743 | \n\nParameters\n----------\n" | |||
| 74744 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 74745 | "tau : input rank-1 array('F') with bounds (n - 1)\n" | |||
| 74746 | "\nOther Parameters\n----------------\n" | |||
| 74747 | "lo : input int, optional\n Default: 0\n" | |||
| 74748 | "hi : input int, optional\n Default: n-1\n" | |||
| 74749 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 74750 | "lwork : input int, optional\n Default: max(hi-lo,1)\n" | |||
| 74751 | "\nReturns\n-------\n" | |||
| 74752 | "ht : rank-2 array('F') with bounds (n,n) and a storage\n" | |||
| 74753 | "info : int"; | |||
| 74754 | /* extern void F_FUNC(cunghr,CUNGHR)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 74755 | static PyObject *f2py_rout__flapack_cunghr(const PyObject *capi_self, | |||
| 74756 | PyObject *capi_args, | |||
| 74757 | PyObject *capi_keywds, | |||
| 74758 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 74759 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 74760 | volatile int f2py_success = 1; | |||
| 74761 | /*decl*/ | |||
| 74762 | ||||
| 74763 | int n = 0; | |||
| 74764 | int lo = 0; | |||
| 74765 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 74766 | int hi = 0; | |||
| 74767 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 74768 | complex_float *a = NULL((void*)0); | |||
| 74769 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 74770 | const int a_Rank = 2; | |||
| 74771 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 74772 | int capi_a_intent = 0; | |||
| 74773 | int capi_overwrite_a = 0; | |||
| 74774 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 74775 | complex_float *tau = NULL((void*)0); | |||
| 74776 | npy_intp tau_Dims[1] = {-1}; | |||
| 74777 | const int tau_Rank = 1; | |||
| 74778 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 74779 | int capi_tau_intent = 0; | |||
| 74780 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 74781 | complex_float *work = NULL((void*)0); | |||
| 74782 | npy_intp work_Dims[1] = {-1}; | |||
| 74783 | const int work_Rank = 1; | |||
| 74784 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 74785 | int capi_work_intent = 0; | |||
| 74786 | int lwork = 0; | |||
| 74787 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 74788 | int info = 0; | |||
| 74789 | static char *capi_kwlist[] = {"a","tau","lo","hi","lwork","overwrite_a",NULL((void*)0)}; | |||
| 74790 | ||||
| 74791 | /*routdebugenter*/ | |||
| 74792 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74793 | f2py_start_clock(); | |||
| 74794 | #endif | |||
| 74795 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 74796 | "OO|OOOi:_flapack.cunghr",\ | |||
| 74797 | capi_kwlist,&a_capi,&tau_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 74798 | return NULL((void*)0); | |||
| 74799 | /*frompyobj*/ | |||
| 74800 | /* Processing variable a */ | |||
| 74801 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 74802 | ; | |||
| 74803 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 74804 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 74805 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 74806 | if (!PyErr_Occurred()) | |||
| 74807 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cunghr to C/Fortran array" ); | |||
| 74808 | } else { | |||
| 74809 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 74810 | ||||
| 74811 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 74812 | /* Processing variable lo */ | |||
| 74813 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 74814 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.cunghr() 1st keyword (lo) can't be converted to int"); | |||
| 74815 | if (f2py_success) { | |||
| 74816 | /* Processing variable info */ | |||
| 74817 | /* Processing variable n */ | |||
| 74818 | n = shape(a,0)a_Dims[0]; | |||
| 74819 | /* Processing variable hi */ | |||
| 74820 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 74821 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.cunghr() 2nd keyword (hi) can't be converted to int"); | |||
| 74822 | if (f2py_success) { | |||
| 74823 | /* Processing variable tau */ | |||
| 74824 | tau_Dims[0]=n - 1; | |||
| 74825 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 74826 | capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 74827 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 74828 | if (!PyErr_Occurred()) | |||
| 74829 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.cunghr to C/Fortran array" ); | |||
| 74830 | } else { | |||
| 74831 | tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 74832 | ||||
| 74833 | /* Processing variable lwork */ | |||
| 74834 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(hi-lo,1)((hi-lo > 1) ? (hi-lo) : (1)); else | |||
| 74835 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cunghr() 3rd keyword (lwork) can't be converted to int"); | |||
| 74836 | if (f2py_success) { | |||
| 74837 | CHECKSCALAR(lwork>=hi-lo,"lwork>=hi-lo","3rd keyword lwork","cunghr:lwork=%d",lwork)if (!(lwork>=hi-lo)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cunghr:lwork=%d", "(""lwork>=hi-lo"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 74838 | /* Processing variable work */ | |||
| 74839 | work_Dims[0]=lwork; | |||
| 74840 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 74841 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 74842 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 74843 | if (!PyErr_Occurred()) | |||
| 74844 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cunghr to C/Fortran array" ); | |||
| 74845 | } else { | |||
| 74846 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 74847 | ||||
| 74848 | /*end of frompyobj*/ | |||
| 74849 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74850 | f2py_start_call_clock(); | |||
| 74851 | #endif | |||
| 74852 | /*callfortranroutine*/ | |||
| 74853 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ; | |||
| 74854 | /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/ | |||
| 74855 | if (PyErr_Occurred()) | |||
| 74856 | f2py_success = 0; | |||
| 74857 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74858 | f2py_stop_call_clock(); | |||
| 74859 | #endif | |||
| 74860 | /*end of callfortranroutine*/ | |||
| 74861 | if (f2py_success) { | |||
| 74862 | /*pyobjfrom*/ | |||
| 74863 | /*end of pyobjfrom*/ | |||
| 74864 | CFUNCSMESS("Building return value.\n"); | |||
| 74865 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 74866 | /*closepyobjfrom*/ | |||
| 74867 | /*end of closepyobjfrom*/ | |||
| 74868 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 74869 | /*cleanupfrompyobj*/ | |||
| 74870 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 74871 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 74872 | /* End of cleaning variable work */ | |||
| 74873 | } /*CHECKSCALAR(lwork>=hi-lo)*/ | |||
| 74874 | } /*if (f2py_success) of lwork*/ | |||
| 74875 | /* End of cleaning variable lwork */ | |||
| 74876 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 74877 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 74878 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 74879 | /* End of cleaning variable tau */ | |||
| 74880 | } /*if (f2py_success) of hi*/ | |||
| 74881 | /* End of cleaning variable hi */ | |||
| 74882 | /* End of cleaning variable n */ | |||
| 74883 | /* End of cleaning variable info */ | |||
| 74884 | } /*if (f2py_success) of lo*/ | |||
| 74885 | /* End of cleaning variable lo */ | |||
| 74886 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 74887 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 74888 | /* End of cleaning variable a */ | |||
| 74889 | /*end of cleanupfrompyobj*/ | |||
| 74890 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 74891 | /*routdebugfailure*/ | |||
| 74892 | } else { | |||
| 74893 | /*routdebugleave*/ | |||
| 74894 | } | |||
| 74895 | CFUNCSMESS("Freeing memory.\n"); | |||
| 74896 | /*freemem*/ | |||
| 74897 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74898 | f2py_stop_clock(); | |||
| 74899 | #endif | |||
| 74900 | return capi_buildvalue; | |||
| 74901 | } | |||
| 74902 | /******************************* end of cunghr *******************************/ | |||
| 74903 | ||||
| 74904 | /*********************************** zunghr ***********************************/ | |||
| 74905 | static char doc_f2py_rout__flapack_zunghr[] = "\ | |||
| 74906 | ht,info = zunghr(a,tau,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``zunghr``.\ | |||
| 74907 | \n\nParameters\n----------\n" | |||
| 74908 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 74909 | "tau : input rank-1 array('D') with bounds (n - 1)\n" | |||
| 74910 | "\nOther Parameters\n----------------\n" | |||
| 74911 | "lo : input int, optional\n Default: 0\n" | |||
| 74912 | "hi : input int, optional\n Default: n-1\n" | |||
| 74913 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 74914 | "lwork : input int, optional\n Default: max(hi-lo,1)\n" | |||
| 74915 | "\nReturns\n-------\n" | |||
| 74916 | "ht : rank-2 array('D') with bounds (n,n) and a storage\n" | |||
| 74917 | "info : int"; | |||
| 74918 | /* extern void F_FUNC(zunghr,ZUNGHR)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 74919 | static PyObject *f2py_rout__flapack_zunghr(const PyObject *capi_self, | |||
| 74920 | PyObject *capi_args, | |||
| 74921 | PyObject *capi_keywds, | |||
| 74922 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 74923 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 74924 | volatile int f2py_success = 1; | |||
| 74925 | /*decl*/ | |||
| 74926 | ||||
| 74927 | int n = 0; | |||
| 74928 | int lo = 0; | |||
| 74929 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 74930 | int hi = 0; | |||
| 74931 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 74932 | complex_double *a = NULL((void*)0); | |||
| 74933 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 74934 | const int a_Rank = 2; | |||
| 74935 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 74936 | int capi_a_intent = 0; | |||
| 74937 | int capi_overwrite_a = 0; | |||
| 74938 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 74939 | complex_double *tau = NULL((void*)0); | |||
| 74940 | npy_intp tau_Dims[1] = {-1}; | |||
| 74941 | const int tau_Rank = 1; | |||
| 74942 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 74943 | int capi_tau_intent = 0; | |||
| 74944 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 74945 | complex_double *work = NULL((void*)0); | |||
| 74946 | npy_intp work_Dims[1] = {-1}; | |||
| 74947 | const int work_Rank = 1; | |||
| 74948 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 74949 | int capi_work_intent = 0; | |||
| 74950 | int lwork = 0; | |||
| 74951 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 74952 | int info = 0; | |||
| 74953 | static char *capi_kwlist[] = {"a","tau","lo","hi","lwork","overwrite_a",NULL((void*)0)}; | |||
| 74954 | ||||
| 74955 | /*routdebugenter*/ | |||
| 74956 | #ifdef F2PY_REPORT_ATEXIT | |||
| 74957 | f2py_start_clock(); | |||
| 74958 | #endif | |||
| 74959 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 74960 | "OO|OOOi:_flapack.zunghr",\ | |||
| 74961 | capi_kwlist,&a_capi,&tau_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 74962 | return NULL((void*)0); | |||
| 74963 | /*frompyobj*/ | |||
| 74964 | /* Processing variable a */ | |||
| 74965 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 74966 | ; | |||
| 74967 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024; | |||
| 74968 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 74969 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 74970 | if (!PyErr_Occurred()) | |||
| 74971 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zunghr to C/Fortran array" ); | |||
| 74972 | } else { | |||
| 74973 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 74974 | ||||
| 74975 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 74976 | /* Processing variable lo */ | |||
| 74977 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 74978 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.zunghr() 1st keyword (lo) can't be converted to int"); | |||
| 74979 | if (f2py_success) { | |||
| 74980 | /* Processing variable info */ | |||
| 74981 | /* Processing variable n */ | |||
| 74982 | n = shape(a,0)a_Dims[0]; | |||
| 74983 | /* Processing variable hi */ | |||
| 74984 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 74985 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.zunghr() 2nd keyword (hi) can't be converted to int"); | |||
| 74986 | if (f2py_success) { | |||
| 74987 | /* Processing variable tau */ | |||
| 74988 | tau_Dims[0]=n - 1; | |||
| 74989 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 74990 | capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 74991 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 74992 | if (!PyErr_Occurred()) | |||
| 74993 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.zunghr to C/Fortran array" ); | |||
| 74994 | } else { | |||
| 74995 | tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 74996 | ||||
| 74997 | /* Processing variable lwork */ | |||
| 74998 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(hi-lo,1)((hi-lo > 1) ? (hi-lo) : (1)); else | |||
| 74999 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zunghr() 3rd keyword (lwork) can't be converted to int"); | |||
| 75000 | if (f2py_success) { | |||
| 75001 | CHECKSCALAR(lwork>=hi-lo,"lwork>=hi-lo","3rd keyword lwork","zunghr:lwork=%d",lwork)if (!(lwork>=hi-lo)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zunghr:lwork=%d", "(""lwork>=hi-lo"") failed for " "3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 75002 | /* Processing variable work */ | |||
| 75003 | work_Dims[0]=lwork; | |||
| 75004 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 75005 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 75006 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 75007 | if (!PyErr_Occurred()) | |||
| 75008 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zunghr to C/Fortran array" ); | |||
| 75009 | } else { | |||
| 75010 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 75011 | ||||
| 75012 | /*end of frompyobj*/ | |||
| 75013 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75014 | f2py_start_call_clock(); | |||
| 75015 | #endif | |||
| 75016 | /*callfortranroutine*/ | |||
| 75017 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ; | |||
| 75018 | /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/ | |||
| 75019 | if (PyErr_Occurred()) | |||
| 75020 | f2py_success = 0; | |||
| 75021 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75022 | f2py_stop_call_clock(); | |||
| 75023 | #endif | |||
| 75024 | /*end of callfortranroutine*/ | |||
| 75025 | if (f2py_success) { | |||
| 75026 | /*pyobjfrom*/ | |||
| 75027 | /*end of pyobjfrom*/ | |||
| 75028 | CFUNCSMESS("Building return value.\n"); | |||
| 75029 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 75030 | /*closepyobjfrom*/ | |||
| 75031 | /*end of closepyobjfrom*/ | |||
| 75032 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 75033 | /*cleanupfrompyobj*/ | |||
| 75034 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 75035 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 75036 | /* End of cleaning variable work */ | |||
| 75037 | } /*CHECKSCALAR(lwork>=hi-lo)*/ | |||
| 75038 | } /*if (f2py_success) of lwork*/ | |||
| 75039 | /* End of cleaning variable lwork */ | |||
| 75040 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 75041 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 75042 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 75043 | /* End of cleaning variable tau */ | |||
| 75044 | } /*if (f2py_success) of hi*/ | |||
| 75045 | /* End of cleaning variable hi */ | |||
| 75046 | /* End of cleaning variable n */ | |||
| 75047 | /* End of cleaning variable info */ | |||
| 75048 | } /*if (f2py_success) of lo*/ | |||
| 75049 | /* End of cleaning variable lo */ | |||
| 75050 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 75051 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 75052 | /* End of cleaning variable a */ | |||
| 75053 | /*end of cleanupfrompyobj*/ | |||
| 75054 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 75055 | /*routdebugfailure*/ | |||
| 75056 | } else { | |||
| 75057 | /*routdebugleave*/ | |||
| 75058 | } | |||
| 75059 | CFUNCSMESS("Freeing memory.\n"); | |||
| 75060 | /*freemem*/ | |||
| 75061 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75062 | f2py_stop_clock(); | |||
| 75063 | #endif | |||
| 75064 | return capi_buildvalue; | |||
| 75065 | } | |||
| 75066 | /******************************* end of zunghr *******************************/ | |||
| 75067 | ||||
| 75068 | /******************************** cunghr_lwork ********************************/ | |||
| 75069 | static char doc_f2py_rout__flapack_cunghr_lwork[] = "\ | |||
| 75070 | work,info = cunghr_lwork(n,[lo,hi])\n\nWrapper for ``cunghr_lwork``.\ | |||
| 75071 | \n\nParameters\n----------\n" | |||
| 75072 | "n : input int\n" | |||
| 75073 | "\nOther Parameters\n----------------\n" | |||
| 75074 | "lo : input int, optional\n Default: 0\n" | |||
| 75075 | "hi : input int, optional\n Default: n-1\n" | |||
| 75076 | "\nReturns\n-------\n" | |||
| 75077 | "work : complex\n" | |||
| 75078 | "info : int"; | |||
| 75079 | /* extern void F_FUNC(cunghr ,CUNGHR )(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 75080 | static PyObject *f2py_rout__flapack_cunghr_lwork(const PyObject *capi_self, | |||
| 75081 | PyObject *capi_args, | |||
| 75082 | PyObject *capi_keywds, | |||
| 75083 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 75084 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 75085 | volatile int f2py_success = 1; | |||
| 75086 | /*decl*/ | |||
| 75087 | ||||
| 75088 | int n = 0; | |||
| 75089 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 75090 | int lo = 0; | |||
| 75091 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 75092 | int hi = 0; | |||
| 75093 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 75094 | complex_float a; | |||
| 75095 | complex_float tau; | |||
| 75096 | complex_float work; | |||
| 75097 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 75098 | int lwork = 0; | |||
| 75099 | int info = 0; | |||
| 75100 | static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)}; | |||
| 75101 | ||||
| 75102 | /*routdebugenter*/ | |||
| 75103 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75104 | f2py_start_clock(); | |||
| 75105 | #endif | |||
| 75106 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 75107 | "O|OO:_flapack.cunghr_lwork",\ | |||
| 75108 | capi_kwlist,&n_capi,&lo_capi,&hi_capi)) | |||
| 75109 | return NULL((void*)0); | |||
| 75110 | /*frompyobj*/ | |||
| 75111 | /* Processing variable n */ | |||
| 75112 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cunghr_lwork() 1st argument (n) can't be converted to int"); | |||
| 75113 | if (f2py_success) { | |||
| 75114 | /* Processing variable a */ | |||
| 75115 | /* Processing variable lo */ | |||
| 75116 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 75117 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.cunghr_lwork() 1st keyword (lo) can't be converted to int"); | |||
| 75118 | if (f2py_success) { | |||
| 75119 | /* Processing variable tau */ | |||
| 75120 | /* Processing variable work */ | |||
| 75121 | /* Processing variable lwork */ | |||
| 75122 | lwork = -1; | |||
| 75123 | /* Processing variable info */ | |||
| 75124 | /* Processing variable hi */ | |||
| 75125 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 75126 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.cunghr_lwork() 2nd keyword (hi) can't be converted to int"); | |||
| 75127 | if (f2py_success) { | |||
| 75128 | /*end of frompyobj*/ | |||
| 75129 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75130 | f2py_start_call_clock(); | |||
| 75131 | #endif | |||
| 75132 | /*callfortranroutine*/ | |||
| 75133 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ; | |||
| 75134 | /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/ | |||
| 75135 | if (PyErr_Occurred()) | |||
| 75136 | f2py_success = 0; | |||
| 75137 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75138 | f2py_stop_call_clock(); | |||
| 75139 | #endif | |||
| 75140 | /*end of callfortranroutine*/ | |||
| 75141 | if (f2py_success) { | |||
| 75142 | /*pyobjfrom*/ | |||
| 75143 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 75144 | /*end of pyobjfrom*/ | |||
| 75145 | CFUNCSMESS("Building return value.\n"); | |||
| 75146 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 75147 | /*closepyobjfrom*/ | |||
| 75148 | /*end of closepyobjfrom*/ | |||
| 75149 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 75150 | /*cleanupfrompyobj*/ | |||
| 75151 | } /*if (f2py_success) of hi*/ | |||
| 75152 | /* End of cleaning variable hi */ | |||
| 75153 | /* End of cleaning variable info */ | |||
| 75154 | /* End of cleaning variable lwork */ | |||
| 75155 | /* End of cleaning variable work */ | |||
| 75156 | /* End of cleaning variable tau */ | |||
| 75157 | } /*if (f2py_success) of lo*/ | |||
| 75158 | /* End of cleaning variable lo */ | |||
| 75159 | /* End of cleaning variable a */ | |||
| 75160 | } /*if (f2py_success) of n*/ | |||
| 75161 | /* End of cleaning variable n */ | |||
| 75162 | /*end of cleanupfrompyobj*/ | |||
| 75163 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 75164 | /*routdebugfailure*/ | |||
| 75165 | } else { | |||
| 75166 | /*routdebugleave*/ | |||
| 75167 | } | |||
| 75168 | CFUNCSMESS("Freeing memory.\n"); | |||
| 75169 | /*freemem*/ | |||
| 75170 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75171 | f2py_stop_clock(); | |||
| 75172 | #endif | |||
| 75173 | return capi_buildvalue; | |||
| 75174 | } | |||
| 75175 | /**************************** end of cunghr_lwork ****************************/ | |||
| 75176 | ||||
| 75177 | /******************************** zunghr_lwork ********************************/ | |||
| 75178 | static char doc_f2py_rout__flapack_zunghr_lwork[] = "\ | |||
| 75179 | work,info = zunghr_lwork(n,[lo,hi])\n\nWrapper for ``zunghr_lwork``.\ | |||
| 75180 | \n\nParameters\n----------\n" | |||
| 75181 | "n : input int\n" | |||
| 75182 | "\nOther Parameters\n----------------\n" | |||
| 75183 | "lo : input int, optional\n Default: 0\n" | |||
| 75184 | "hi : input int, optional\n Default: n-1\n" | |||
| 75185 | "\nReturns\n-------\n" | |||
| 75186 | "work : complex\n" | |||
| 75187 | "info : int"; | |||
| 75188 | /* extern void F_FUNC(zunghr ,ZUNGHR )(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 75189 | static PyObject *f2py_rout__flapack_zunghr_lwork(const PyObject *capi_self, | |||
| 75190 | PyObject *capi_args, | |||
| 75191 | PyObject *capi_keywds, | |||
| 75192 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 75193 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 75194 | volatile int f2py_success = 1; | |||
| 75195 | /*decl*/ | |||
| 75196 | ||||
| 75197 | int n = 0; | |||
| 75198 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 75199 | int lo = 0; | |||
| 75200 | PyObject *lo_capi = Py_None(&_Py_NoneStruct); | |||
| 75201 | int hi = 0; | |||
| 75202 | PyObject *hi_capi = Py_None(&_Py_NoneStruct); | |||
| 75203 | complex_double a; | |||
| 75204 | complex_double tau; | |||
| 75205 | complex_double work; | |||
| 75206 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 75207 | int lwork = 0; | |||
| 75208 | int info = 0; | |||
| 75209 | static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)}; | |||
| 75210 | ||||
| 75211 | /*routdebugenter*/ | |||
| 75212 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75213 | f2py_start_clock(); | |||
| 75214 | #endif | |||
| 75215 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 75216 | "O|OO:_flapack.zunghr_lwork",\ | |||
| 75217 | capi_kwlist,&n_capi,&lo_capi,&hi_capi)) | |||
| 75218 | return NULL((void*)0); | |||
| 75219 | /*frompyobj*/ | |||
| 75220 | /* Processing variable n */ | |||
| 75221 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zunghr_lwork() 1st argument (n) can't be converted to int"); | |||
| 75222 | if (f2py_success) { | |||
| 75223 | /* Processing variable a */ | |||
| 75224 | /* Processing variable lo */ | |||
| 75225 | if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else | |||
| 75226 | f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.zunghr_lwork() 1st keyword (lo) can't be converted to int"); | |||
| 75227 | if (f2py_success) { | |||
| 75228 | /* Processing variable tau */ | |||
| 75229 | /* Processing variable work */ | |||
| 75230 | /* Processing variable lwork */ | |||
| 75231 | lwork = -1; | |||
| 75232 | /* Processing variable info */ | |||
| 75233 | /* Processing variable hi */ | |||
| 75234 | if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else | |||
| 75235 | f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.zunghr_lwork() 2nd keyword (hi) can't be converted to int"); | |||
| 75236 | if (f2py_success) { | |||
| 75237 | /*end of frompyobj*/ | |||
| 75238 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75239 | f2py_start_call_clock(); | |||
| 75240 | #endif | |||
| 75241 | /*callfortranroutine*/ | |||
| 75242 | { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ; | |||
| 75243 | /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/ | |||
| 75244 | if (PyErr_Occurred()) | |||
| 75245 | f2py_success = 0; | |||
| 75246 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75247 | f2py_stop_call_clock(); | |||
| 75248 | #endif | |||
| 75249 | /*end of callfortranroutine*/ | |||
| 75250 | if (f2py_success) { | |||
| 75251 | /*pyobjfrom*/ | |||
| 75252 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 75253 | /*end of pyobjfrom*/ | |||
| 75254 | CFUNCSMESS("Building return value.\n"); | |||
| 75255 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 75256 | /*closepyobjfrom*/ | |||
| 75257 | /*end of closepyobjfrom*/ | |||
| 75258 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 75259 | /*cleanupfrompyobj*/ | |||
| 75260 | } /*if (f2py_success) of hi*/ | |||
| 75261 | /* End of cleaning variable hi */ | |||
| 75262 | /* End of cleaning variable info */ | |||
| 75263 | /* End of cleaning variable lwork */ | |||
| 75264 | /* End of cleaning variable work */ | |||
| 75265 | /* End of cleaning variable tau */ | |||
| 75266 | } /*if (f2py_success) of lo*/ | |||
| 75267 | /* End of cleaning variable lo */ | |||
| 75268 | /* End of cleaning variable a */ | |||
| 75269 | } /*if (f2py_success) of n*/ | |||
| 75270 | /* End of cleaning variable n */ | |||
| 75271 | /*end of cleanupfrompyobj*/ | |||
| 75272 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 75273 | /*routdebugfailure*/ | |||
| 75274 | } else { | |||
| 75275 | /*routdebugleave*/ | |||
| 75276 | } | |||
| 75277 | CFUNCSMESS("Freeing memory.\n"); | |||
| 75278 | /*freemem*/ | |||
| 75279 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75280 | f2py_stop_clock(); | |||
| 75281 | #endif | |||
| 75282 | return capi_buildvalue; | |||
| 75283 | } | |||
| 75284 | /**************************** end of zunghr_lwork ****************************/ | |||
| 75285 | ||||
| 75286 | /*********************************** sorgqr ***********************************/ | |||
| 75287 | static char doc_f2py_rout__flapack_sorgqr[] = "\ | |||
| 75288 | q,work,info = sorgqr(a,tau,[lwork,overwrite_a])\n\nWrapper for ``sorgqr``.\ | |||
| 75289 | \n\nParameters\n----------\n" | |||
| 75290 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 75291 | "tau : input rank-1 array('f') with bounds (k)\n" | |||
| 75292 | "\nOther Parameters\n----------------\n" | |||
| 75293 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 75294 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 75295 | "\nReturns\n-------\n" | |||
| 75296 | "q : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 75297 | "work : rank-1 array('f') with bounds (MAX(lwork,1))\n" | |||
| 75298 | "info : int"; | |||
| 75299 | /* extern void F_FUNC(sorgqr,SORGQR)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 75300 | static PyObject *f2py_rout__flapack_sorgqr(const PyObject *capi_self, | |||
| 75301 | PyObject *capi_args, | |||
| 75302 | PyObject *capi_keywds, | |||
| 75303 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 75304 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 75305 | volatile int f2py_success = 1; | |||
| 75306 | /*decl*/ | |||
| 75307 | ||||
| 75308 | int m = 0; | |||
| 75309 | int n = 0; | |||
| 75310 | int k = 0; | |||
| 75311 | float *a = NULL((void*)0); | |||
| 75312 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 75313 | const int a_Rank = 2; | |||
| 75314 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 75315 | int capi_a_intent = 0; | |||
| 75316 | int capi_overwrite_a = 0; | |||
| 75317 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 75318 | float *tau = NULL((void*)0); | |||
| 75319 | npy_intp tau_Dims[1] = {-1}; | |||
| 75320 | const int tau_Rank = 1; | |||
| 75321 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 75322 | int capi_tau_intent = 0; | |||
| 75323 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 75324 | float *work = NULL((void*)0); | |||
| 75325 | npy_intp work_Dims[1] = {-1}; | |||
| 75326 | const int work_Rank = 1; | |||
| 75327 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 75328 | int capi_work_intent = 0; | |||
| 75329 | int lwork = 0; | |||
| 75330 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 75331 | int info = 0; | |||
| 75332 | static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)}; | |||
| 75333 | ||||
| 75334 | /*routdebugenter*/ | |||
| 75335 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75336 | f2py_start_clock(); | |||
| 75337 | #endif | |||
| 75338 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 75339 | "OO|Oi:_flapack.sorgqr",\ | |||
| 75340 | capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 75341 | return NULL((void*)0); | |||
| 75342 | /*frompyobj*/ | |||
| 75343 | /* Processing variable a */ | |||
| 75344 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 75345 | ; | |||
| 75346 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 75347 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 75348 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 75349 | if (!PyErr_Occurred()) | |||
| 75350 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sorgqr to C/Fortran array" ); | |||
| 75351 | } else { | |||
| 75352 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 75353 | ||||
| 75354 | /* Processing variable tau */ | |||
| 75355 | ; | |||
| 75356 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 75357 | capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 75358 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 75359 | if (!PyErr_Occurred()) | |||
| 75360 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.sorgqr to C/Fortran array" ); | |||
| 75361 | } else { | |||
| 75362 | tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 75363 | ||||
| 75364 | /* Processing variable info */ | |||
| 75365 | /* Processing variable m */ | |||
| 75366 | m = shape(a,0)a_Dims[0]; | |||
| 75367 | /* Processing variable n */ | |||
| 75368 | n = shape(a,1)a_Dims[1]; | |||
| 75369 | /* Processing variable k */ | |||
| 75370 | k = shape(tau,0)tau_Dims[0]; | |||
| 75371 | /* Processing variable lwork */ | |||
| 75372 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 75373 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sorgqr() 1st keyword (lwork) can't be converted to int"); | |||
| 75374 | if (f2py_success) { | |||
| 75375 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","sorgqr:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sorgqr:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 75376 | /* Processing variable work */ | |||
| 75377 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 75378 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 75379 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 75380 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 75381 | if (!PyErr_Occurred()) | |||
| 75382 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sorgqr to C/Fortran array" ); | |||
| 75383 | } else { | |||
| 75384 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 75385 | ||||
| 75386 | /*end of frompyobj*/ | |||
| 75387 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75388 | f2py_start_call_clock(); | |||
| 75389 | #endif | |||
| 75390 | /*callfortranroutine*/ | |||
| 75391 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 75392 | (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ; | |||
| 75393 | /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/ | |||
| 75394 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 75395 | if (PyErr_Occurred()) | |||
| 75396 | f2py_success = 0; | |||
| 75397 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75398 | f2py_stop_call_clock(); | |||
| 75399 | #endif | |||
| 75400 | /*end of callfortranroutine*/ | |||
| 75401 | if (f2py_success) { | |||
| 75402 | /*pyobjfrom*/ | |||
| 75403 | /*end of pyobjfrom*/ | |||
| 75404 | CFUNCSMESS("Building return value.\n"); | |||
| 75405 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info); | |||
| 75406 | /*closepyobjfrom*/ | |||
| 75407 | /*end of closepyobjfrom*/ | |||
| 75408 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 75409 | /*cleanupfrompyobj*/ | |||
| 75410 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 75411 | /* End of cleaning variable work */ | |||
| 75412 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 75413 | } /*if (f2py_success) of lwork*/ | |||
| 75414 | /* End of cleaning variable lwork */ | |||
| 75415 | /* End of cleaning variable k */ | |||
| 75416 | /* End of cleaning variable n */ | |||
| 75417 | /* End of cleaning variable m */ | |||
| 75418 | /* End of cleaning variable info */ | |||
| 75419 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 75420 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 75421 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 75422 | /* End of cleaning variable tau */ | |||
| 75423 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 75424 | /* End of cleaning variable a */ | |||
| 75425 | /*end of cleanupfrompyobj*/ | |||
| 75426 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 75427 | /*routdebugfailure*/ | |||
| 75428 | } else { | |||
| 75429 | /*routdebugleave*/ | |||
| 75430 | } | |||
| 75431 | CFUNCSMESS("Freeing memory.\n"); | |||
| 75432 | /*freemem*/ | |||
| 75433 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75434 | f2py_stop_clock(); | |||
| 75435 | #endif | |||
| 75436 | return capi_buildvalue; | |||
| 75437 | } | |||
| 75438 | /******************************* end of sorgqr *******************************/ | |||
| 75439 | ||||
| 75440 | /*********************************** dorgqr ***********************************/ | |||
| 75441 | static char doc_f2py_rout__flapack_dorgqr[] = "\ | |||
| 75442 | q,work,info = dorgqr(a,tau,[lwork,overwrite_a])\n\nWrapper for ``dorgqr``.\ | |||
| 75443 | \n\nParameters\n----------\n" | |||
| 75444 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 75445 | "tau : input rank-1 array('d') with bounds (k)\n" | |||
| 75446 | "\nOther Parameters\n----------------\n" | |||
| 75447 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 75448 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 75449 | "\nReturns\n-------\n" | |||
| 75450 | "q : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 75451 | "work : rank-1 array('d') with bounds (MAX(lwork,1))\n" | |||
| 75452 | "info : int"; | |||
| 75453 | /* extern void F_FUNC(dorgqr,DORGQR)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 75454 | static PyObject *f2py_rout__flapack_dorgqr(const PyObject *capi_self, | |||
| 75455 | PyObject *capi_args, | |||
| 75456 | PyObject *capi_keywds, | |||
| 75457 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 75458 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 75459 | volatile int f2py_success = 1; | |||
| 75460 | /*decl*/ | |||
| 75461 | ||||
| 75462 | int m = 0; | |||
| 75463 | int n = 0; | |||
| 75464 | int k = 0; | |||
| 75465 | double *a = NULL((void*)0); | |||
| 75466 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 75467 | const int a_Rank = 2; | |||
| 75468 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 75469 | int capi_a_intent = 0; | |||
| 75470 | int capi_overwrite_a = 0; | |||
| 75471 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 75472 | double *tau = NULL((void*)0); | |||
| 75473 | npy_intp tau_Dims[1] = {-1}; | |||
| 75474 | const int tau_Rank = 1; | |||
| 75475 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 75476 | int capi_tau_intent = 0; | |||
| 75477 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 75478 | double *work = NULL((void*)0); | |||
| 75479 | npy_intp work_Dims[1] = {-1}; | |||
| 75480 | const int work_Rank = 1; | |||
| 75481 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 75482 | int capi_work_intent = 0; | |||
| 75483 | int lwork = 0; | |||
| 75484 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 75485 | int info = 0; | |||
| 75486 | static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)}; | |||
| 75487 | ||||
| 75488 | /*routdebugenter*/ | |||
| 75489 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75490 | f2py_start_clock(); | |||
| 75491 | #endif | |||
| 75492 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 75493 | "OO|Oi:_flapack.dorgqr",\ | |||
| 75494 | capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 75495 | return NULL((void*)0); | |||
| 75496 | /*frompyobj*/ | |||
| 75497 | /* Processing variable a */ | |||
| 75498 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 75499 | ; | |||
| 75500 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 75501 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 75502 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 75503 | if (!PyErr_Occurred()) | |||
| 75504 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dorgqr to C/Fortran array" ); | |||
| 75505 | } else { | |||
| 75506 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 75507 | ||||
| 75508 | /* Processing variable tau */ | |||
| 75509 | ; | |||
| 75510 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 75511 | capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 75512 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 75513 | if (!PyErr_Occurred()) | |||
| 75514 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.dorgqr to C/Fortran array" ); | |||
| 75515 | } else { | |||
| 75516 | tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 75517 | ||||
| 75518 | /* Processing variable info */ | |||
| 75519 | /* Processing variable m */ | |||
| 75520 | m = shape(a,0)a_Dims[0]; | |||
| 75521 | /* Processing variable n */ | |||
| 75522 | n = shape(a,1)a_Dims[1]; | |||
| 75523 | /* Processing variable k */ | |||
| 75524 | k = shape(tau,0)tau_Dims[0]; | |||
| 75525 | /* Processing variable lwork */ | |||
| 75526 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 75527 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dorgqr() 1st keyword (lwork) can't be converted to int"); | |||
| 75528 | if (f2py_success) { | |||
| 75529 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","dorgqr:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dorgqr:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 75530 | /* Processing variable work */ | |||
| 75531 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 75532 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 75533 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 75534 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 75535 | if (!PyErr_Occurred()) | |||
| 75536 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dorgqr to C/Fortran array" ); | |||
| 75537 | } else { | |||
| 75538 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 75539 | ||||
| 75540 | /*end of frompyobj*/ | |||
| 75541 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75542 | f2py_start_call_clock(); | |||
| 75543 | #endif | |||
| 75544 | /*callfortranroutine*/ | |||
| 75545 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 75546 | (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ; | |||
| 75547 | /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/ | |||
| 75548 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 75549 | if (PyErr_Occurred()) | |||
| 75550 | f2py_success = 0; | |||
| 75551 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75552 | f2py_stop_call_clock(); | |||
| 75553 | #endif | |||
| 75554 | /*end of callfortranroutine*/ | |||
| 75555 | if (f2py_success) { | |||
| 75556 | /*pyobjfrom*/ | |||
| 75557 | /*end of pyobjfrom*/ | |||
| 75558 | CFUNCSMESS("Building return value.\n"); | |||
| 75559 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info); | |||
| 75560 | /*closepyobjfrom*/ | |||
| 75561 | /*end of closepyobjfrom*/ | |||
| 75562 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 75563 | /*cleanupfrompyobj*/ | |||
| 75564 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 75565 | /* End of cleaning variable work */ | |||
| 75566 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 75567 | } /*if (f2py_success) of lwork*/ | |||
| 75568 | /* End of cleaning variable lwork */ | |||
| 75569 | /* End of cleaning variable k */ | |||
| 75570 | /* End of cleaning variable n */ | |||
| 75571 | /* End of cleaning variable m */ | |||
| 75572 | /* End of cleaning variable info */ | |||
| 75573 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 75574 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 75575 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 75576 | /* End of cleaning variable tau */ | |||
| 75577 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 75578 | /* End of cleaning variable a */ | |||
| 75579 | /*end of cleanupfrompyobj*/ | |||
| 75580 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 75581 | /*routdebugfailure*/ | |||
| 75582 | } else { | |||
| 75583 | /*routdebugleave*/ | |||
| 75584 | } | |||
| 75585 | CFUNCSMESS("Freeing memory.\n"); | |||
| 75586 | /*freemem*/ | |||
| 75587 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75588 | f2py_stop_clock(); | |||
| 75589 | #endif | |||
| 75590 | return capi_buildvalue; | |||
| 75591 | } | |||
| 75592 | /******************************* end of dorgqr *******************************/ | |||
| 75593 | ||||
| 75594 | /*********************************** cungqr ***********************************/ | |||
| 75595 | static char doc_f2py_rout__flapack_cungqr[] = "\ | |||
| 75596 | q,work,info = cungqr(a,tau,[lwork,overwrite_a])\n\nWrapper for ``cungqr``.\ | |||
| 75597 | \n\nParameters\n----------\n" | |||
| 75598 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 75599 | "tau : input rank-1 array('F') with bounds (k)\n" | |||
| 75600 | "\nOther Parameters\n----------------\n" | |||
| 75601 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 75602 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 75603 | "\nReturns\n-------\n" | |||
| 75604 | "q : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 75605 | "work : rank-1 array('F') with bounds (MAX(lwork,1))\n" | |||
| 75606 | "info : int"; | |||
| 75607 | /* extern void F_FUNC(cungqr,CUNGQR)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 75608 | static PyObject *f2py_rout__flapack_cungqr(const PyObject *capi_self, | |||
| 75609 | PyObject *capi_args, | |||
| 75610 | PyObject *capi_keywds, | |||
| 75611 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 75612 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 75613 | volatile int f2py_success = 1; | |||
| 75614 | /*decl*/ | |||
| 75615 | ||||
| 75616 | int m = 0; | |||
| 75617 | int n = 0; | |||
| 75618 | int k = 0; | |||
| 75619 | complex_float *a = NULL((void*)0); | |||
| 75620 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 75621 | const int a_Rank = 2; | |||
| 75622 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 75623 | int capi_a_intent = 0; | |||
| 75624 | int capi_overwrite_a = 0; | |||
| 75625 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 75626 | complex_float *tau = NULL((void*)0); | |||
| 75627 | npy_intp tau_Dims[1] = {-1}; | |||
| 75628 | const int tau_Rank = 1; | |||
| 75629 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 75630 | int capi_tau_intent = 0; | |||
| 75631 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 75632 | complex_float *work = NULL((void*)0); | |||
| 75633 | npy_intp work_Dims[1] = {-1}; | |||
| 75634 | const int work_Rank = 1; | |||
| 75635 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 75636 | int capi_work_intent = 0; | |||
| 75637 | int lwork = 0; | |||
| 75638 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 75639 | int info = 0; | |||
| 75640 | static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)}; | |||
| 75641 | ||||
| 75642 | /*routdebugenter*/ | |||
| 75643 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75644 | f2py_start_clock(); | |||
| 75645 | #endif | |||
| 75646 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 75647 | "OO|Oi:_flapack.cungqr",\ | |||
| 75648 | capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 75649 | return NULL((void*)0); | |||
| 75650 | /*frompyobj*/ | |||
| 75651 | /* Processing variable a */ | |||
| 75652 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 75653 | ; | |||
| 75654 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 75655 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 75656 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 75657 | if (!PyErr_Occurred()) | |||
| 75658 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cungqr to C/Fortran array" ); | |||
| 75659 | } else { | |||
| 75660 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 75661 | ||||
| 75662 | /* Processing variable tau */ | |||
| 75663 | ; | |||
| 75664 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 75665 | capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 75666 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 75667 | if (!PyErr_Occurred()) | |||
| 75668 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.cungqr to C/Fortran array" ); | |||
| 75669 | } else { | |||
| 75670 | tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 75671 | ||||
| 75672 | /* Processing variable info */ | |||
| 75673 | /* Processing variable m */ | |||
| 75674 | m = shape(a,0)a_Dims[0]; | |||
| 75675 | /* Processing variable n */ | |||
| 75676 | n = shape(a,1)a_Dims[1]; | |||
| 75677 | /* Processing variable k */ | |||
| 75678 | k = shape(tau,0)tau_Dims[0]; | |||
| 75679 | /* Processing variable lwork */ | |||
| 75680 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 75681 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cungqr() 1st keyword (lwork) can't be converted to int"); | |||
| 75682 | if (f2py_success) { | |||
| 75683 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","cungqr:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cungqr:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 75684 | /* Processing variable work */ | |||
| 75685 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 75686 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 75687 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 75688 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 75689 | if (!PyErr_Occurred()) | |||
| 75690 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cungqr to C/Fortran array" ); | |||
| 75691 | } else { | |||
| 75692 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 75693 | ||||
| 75694 | /*end of frompyobj*/ | |||
| 75695 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75696 | f2py_start_call_clock(); | |||
| 75697 | #endif | |||
| 75698 | /*callfortranroutine*/ | |||
| 75699 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 75700 | (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ; | |||
| 75701 | /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/ | |||
| 75702 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 75703 | if (PyErr_Occurred()) | |||
| 75704 | f2py_success = 0; | |||
| 75705 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75706 | f2py_stop_call_clock(); | |||
| 75707 | #endif | |||
| 75708 | /*end of callfortranroutine*/ | |||
| 75709 | if (f2py_success) { | |||
| 75710 | /*pyobjfrom*/ | |||
| 75711 | /*end of pyobjfrom*/ | |||
| 75712 | CFUNCSMESS("Building return value.\n"); | |||
| 75713 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info); | |||
| 75714 | /*closepyobjfrom*/ | |||
| 75715 | /*end of closepyobjfrom*/ | |||
| 75716 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 75717 | /*cleanupfrompyobj*/ | |||
| 75718 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 75719 | /* End of cleaning variable work */ | |||
| 75720 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 75721 | } /*if (f2py_success) of lwork*/ | |||
| 75722 | /* End of cleaning variable lwork */ | |||
| 75723 | /* End of cleaning variable k */ | |||
| 75724 | /* End of cleaning variable n */ | |||
| 75725 | /* End of cleaning variable m */ | |||
| 75726 | /* End of cleaning variable info */ | |||
| 75727 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 75728 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 75729 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 75730 | /* End of cleaning variable tau */ | |||
| 75731 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 75732 | /* End of cleaning variable a */ | |||
| 75733 | /*end of cleanupfrompyobj*/ | |||
| 75734 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 75735 | /*routdebugfailure*/ | |||
| 75736 | } else { | |||
| 75737 | /*routdebugleave*/ | |||
| 75738 | } | |||
| 75739 | CFUNCSMESS("Freeing memory.\n"); | |||
| 75740 | /*freemem*/ | |||
| 75741 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75742 | f2py_stop_clock(); | |||
| 75743 | #endif | |||
| 75744 | return capi_buildvalue; | |||
| 75745 | } | |||
| 75746 | /******************************* end of cungqr *******************************/ | |||
| 75747 | ||||
| 75748 | /*********************************** zungqr ***********************************/ | |||
| 75749 | static char doc_f2py_rout__flapack_zungqr[] = "\ | |||
| 75750 | q,work,info = zungqr(a,tau,[lwork,overwrite_a])\n\nWrapper for ``zungqr``.\ | |||
| 75751 | \n\nParameters\n----------\n" | |||
| 75752 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 75753 | "tau : input rank-1 array('D') with bounds (k)\n" | |||
| 75754 | "\nOther Parameters\n----------------\n" | |||
| 75755 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 75756 | "lwork : input int, optional\n Default: max(3*n,1)\n" | |||
| 75757 | "\nReturns\n-------\n" | |||
| 75758 | "q : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 75759 | "work : rank-1 array('D') with bounds (MAX(lwork,1))\n" | |||
| 75760 | "info : int"; | |||
| 75761 | /* extern void F_FUNC(zungqr,ZUNGQR)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 75762 | static PyObject *f2py_rout__flapack_zungqr(const PyObject *capi_self, | |||
| 75763 | PyObject *capi_args, | |||
| 75764 | PyObject *capi_keywds, | |||
| 75765 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 75766 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 75767 | volatile int f2py_success = 1; | |||
| 75768 | /*decl*/ | |||
| 75769 | ||||
| 75770 | int m = 0; | |||
| 75771 | int n = 0; | |||
| 75772 | int k = 0; | |||
| 75773 | complex_double *a = NULL((void*)0); | |||
| 75774 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 75775 | const int a_Rank = 2; | |||
| 75776 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 75777 | int capi_a_intent = 0; | |||
| 75778 | int capi_overwrite_a = 0; | |||
| 75779 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 75780 | complex_double *tau = NULL((void*)0); | |||
| 75781 | npy_intp tau_Dims[1] = {-1}; | |||
| 75782 | const int tau_Rank = 1; | |||
| 75783 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 75784 | int capi_tau_intent = 0; | |||
| 75785 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 75786 | complex_double *work = NULL((void*)0); | |||
| 75787 | npy_intp work_Dims[1] = {-1}; | |||
| 75788 | const int work_Rank = 1; | |||
| 75789 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 75790 | int capi_work_intent = 0; | |||
| 75791 | int lwork = 0; | |||
| 75792 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 75793 | int info = 0; | |||
| 75794 | static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)}; | |||
| 75795 | ||||
| 75796 | /*routdebugenter*/ | |||
| 75797 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75798 | f2py_start_clock(); | |||
| 75799 | #endif | |||
| 75800 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 75801 | "OO|Oi:_flapack.zungqr",\ | |||
| 75802 | capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 75803 | return NULL((void*)0); | |||
| 75804 | /*frompyobj*/ | |||
| 75805 | /* Processing variable a */ | |||
| 75806 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 75807 | ; | |||
| 75808 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 75809 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 75810 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 75811 | if (!PyErr_Occurred()) | |||
| 75812 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zungqr to C/Fortran array" ); | |||
| 75813 | } else { | |||
| 75814 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 75815 | ||||
| 75816 | /* Processing variable tau */ | |||
| 75817 | ; | |||
| 75818 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 75819 | capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 75820 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 75821 | if (!PyErr_Occurred()) | |||
| 75822 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.zungqr to C/Fortran array" ); | |||
| 75823 | } else { | |||
| 75824 | tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 75825 | ||||
| 75826 | /* Processing variable info */ | |||
| 75827 | /* Processing variable m */ | |||
| 75828 | m = shape(a,0)a_Dims[0]; | |||
| 75829 | /* Processing variable n */ | |||
| 75830 | n = shape(a,1)a_Dims[1]; | |||
| 75831 | /* Processing variable k */ | |||
| 75832 | k = shape(tau,0)tau_Dims[0]; | |||
| 75833 | /* Processing variable lwork */ | |||
| 75834 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else | |||
| 75835 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zungqr() 1st keyword (lwork) can't be converted to int"); | |||
| 75836 | if (f2py_success) { | |||
| 75837 | CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","zungqr:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zungqr:lwork=%d", "(""lwork>=n||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 75838 | /* Processing variable work */ | |||
| 75839 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 75840 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 75841 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 75842 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 75843 | if (!PyErr_Occurred()) | |||
| 75844 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zungqr to C/Fortran array" ); | |||
| 75845 | } else { | |||
| 75846 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 75847 | ||||
| 75848 | /*end of frompyobj*/ | |||
| 75849 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75850 | f2py_start_call_clock(); | |||
| 75851 | #endif | |||
| 75852 | /*callfortranroutine*/ | |||
| 75853 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 75854 | (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ; | |||
| 75855 | /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/ | |||
| 75856 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 75857 | if (PyErr_Occurred()) | |||
| 75858 | f2py_success = 0; | |||
| 75859 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75860 | f2py_stop_call_clock(); | |||
| 75861 | #endif | |||
| 75862 | /*end of callfortranroutine*/ | |||
| 75863 | if (f2py_success) { | |||
| 75864 | /*pyobjfrom*/ | |||
| 75865 | /*end of pyobjfrom*/ | |||
| 75866 | CFUNCSMESS("Building return value.\n"); | |||
| 75867 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info); | |||
| 75868 | /*closepyobjfrom*/ | |||
| 75869 | /*end of closepyobjfrom*/ | |||
| 75870 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 75871 | /*cleanupfrompyobj*/ | |||
| 75872 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 75873 | /* End of cleaning variable work */ | |||
| 75874 | } /*CHECKSCALAR(lwork>=n||lwork==-1)*/ | |||
| 75875 | } /*if (f2py_success) of lwork*/ | |||
| 75876 | /* End of cleaning variable lwork */ | |||
| 75877 | /* End of cleaning variable k */ | |||
| 75878 | /* End of cleaning variable n */ | |||
| 75879 | /* End of cleaning variable m */ | |||
| 75880 | /* End of cleaning variable info */ | |||
| 75881 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 75882 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 75883 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 75884 | /* End of cleaning variable tau */ | |||
| 75885 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 75886 | /* End of cleaning variable a */ | |||
| 75887 | /*end of cleanupfrompyobj*/ | |||
| 75888 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 75889 | /*routdebugfailure*/ | |||
| 75890 | } else { | |||
| 75891 | /*routdebugleave*/ | |||
| 75892 | } | |||
| 75893 | CFUNCSMESS("Freeing memory.\n"); | |||
| 75894 | /*freemem*/ | |||
| 75895 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75896 | f2py_stop_clock(); | |||
| 75897 | #endif | |||
| 75898 | return capi_buildvalue; | |||
| 75899 | } | |||
| 75900 | /******************************* end of zungqr *******************************/ | |||
| 75901 | ||||
| 75902 | /*********************************** sormqr ***********************************/ | |||
| 75903 | static char doc_f2py_rout__flapack_sormqr[] = "\ | |||
| 75904 | cq,work,info = sormqr(side,trans,a,tau,c,lwork,[overwrite_c])\n\nWrapper for ``sormqr``.\ | |||
| 75905 | \n\nParameters\n----------\n" | |||
| 75906 | "side : input string(len=1)\n" | |||
| 75907 | "trans : input string(len=1)\n" | |||
| 75908 | "a : input rank-2 array('f') with bounds (lda,k)\n" | |||
| 75909 | "tau : input rank-1 array('f') with bounds (k)\n" | |||
| 75910 | "c : input rank-2 array('f') with bounds (ldc,n)\n" | |||
| 75911 | "lwork : input int\n" | |||
| 75912 | "\nOther Parameters\n----------------\n" | |||
| 75913 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 75914 | "\nReturns\n-------\n" | |||
| 75915 | "cq : rank-2 array('f') with bounds (ldc,n) and c storage\n" | |||
| 75916 | "work : rank-1 array('f') with bounds (MAX(lwork,1))\n" | |||
| 75917 | "info : int"; | |||
| 75918 | /* extern void F_FUNC(sormqr,SORMQR)(char*,char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 75919 | static PyObject *f2py_rout__flapack_sormqr(const PyObject *capi_self, | |||
| 75920 | PyObject *capi_args, | |||
| 75921 | PyObject *capi_keywds, | |||
| 75922 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 75923 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 75924 | volatile int f2py_success = 1; | |||
| 75925 | /*decl*/ | |||
| 75926 | ||||
| 75927 | string side = NULL((void*)0); | |||
| 75928 | int slen(side)capi_side_len; | |||
| 75929 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 75930 | string trans = NULL((void*)0); | |||
| 75931 | int slen(trans)capi_trans_len; | |||
| 75932 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 75933 | int m = 0; | |||
| 75934 | int n = 0; | |||
| 75935 | int k = 0; | |||
| 75936 | float *a = NULL((void*)0); | |||
| 75937 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 75938 | const int a_Rank = 2; | |||
| 75939 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 75940 | int capi_a_intent = 0; | |||
| 75941 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 75942 | int lda = 0; | |||
| 75943 | float *tau = NULL((void*)0); | |||
| 75944 | npy_intp tau_Dims[1] = {-1}; | |||
| 75945 | const int tau_Rank = 1; | |||
| 75946 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 75947 | int capi_tau_intent = 0; | |||
| 75948 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 75949 | float *c = NULL((void*)0); | |||
| 75950 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 75951 | const int c_Rank = 2; | |||
| 75952 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 75953 | int capi_c_intent = 0; | |||
| 75954 | int capi_overwrite_c = 0; | |||
| 75955 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 75956 | int ldc = 0; | |||
| 75957 | float *work = NULL((void*)0); | |||
| 75958 | npy_intp work_Dims[1] = {-1}; | |||
| 75959 | const int work_Rank = 1; | |||
| 75960 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 75961 | int capi_work_intent = 0; | |||
| 75962 | int lwork = 0; | |||
| 75963 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 75964 | int info = 0; | |||
| 75965 | static char *capi_kwlist[] = {"side","trans","a","tau","c","lwork","overwrite_c",NULL((void*)0)}; | |||
| 75966 | ||||
| 75967 | /*routdebugenter*/ | |||
| 75968 | #ifdef F2PY_REPORT_ATEXIT | |||
| 75969 | f2py_start_clock(); | |||
| 75970 | #endif | |||
| 75971 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 75972 | "OOOOOO|i:_flapack.sormqr",\ | |||
| 75973 | capi_kwlist,&side_capi,&trans_capi,&a_capi,&tau_capi,&c_capi,&lwork_capi,&capi_overwrite_c)) | |||
| 75974 | return NULL((void*)0); | |||
| 75975 | /*frompyobj*/ | |||
| 75976 | /* Processing variable side */ | |||
| 75977 | slen(side)capi_side_len = 1; | |||
| 75978 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"",side_capi,"string_from_pyobj failed in converting 1st argument `side' of _flapack.sormqr to C string"); | |||
| 75979 | if (f2py_success) { | |||
| 75980 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st argument side","sormqr:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sormqr:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st argument side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 75981 | /* Processing variable trans */ | |||
| 75982 | slen(trans)capi_trans_len = 1; | |||
| 75983 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"",trans_capi,"string_from_pyobj failed in converting 2nd argument `trans' of _flapack.sormqr to C string"); | |||
| 75984 | if (f2py_success) { | |||
| 75985 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd argument trans","sormqr:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sormqr:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""2nd argument trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 75986 | /* Processing variable a */ | |||
| 75987 | ; | |||
| 75988 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 75989 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 75990 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 75991 | if (!PyErr_Occurred()) | |||
| 75992 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.sormqr to C/Fortran array" ); | |||
| 75993 | } else { | |||
| 75994 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 75995 | ||||
| 75996 | /* Processing variable c */ | |||
| 75997 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 75998 | ; | |||
| 75999 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 76000 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 76001 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 76002 | if (!PyErr_Occurred()) | |||
| 76003 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `c' of _flapack.sormqr to C/Fortran array" ); | |||
| 76004 | } else { | |||
| 76005 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 76006 | ||||
| 76007 | /* Processing variable lwork */ | |||
| 76008 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sormqr() 6th argument (lwork) can't be converted to int"); | |||
| 76009 | if (f2py_success) { | |||
| 76010 | /* Processing variable info */ | |||
| 76011 | /* Processing variable m */ | |||
| 76012 | m = shape(c,0)c_Dims[0]; | |||
| 76013 | /* Processing variable n */ | |||
| 76014 | n = shape(c,1)c_Dims[1]; | |||
| 76015 | /* Processing variable k */ | |||
| 76016 | k = shape(a,1)a_Dims[1]; | |||
| 76017 | /* Processing variable lda */ | |||
| 76018 | lda = shape(a, 0)a_Dims[0]; | |||
| 76019 | /* Processing variable tau */ | |||
| 76020 | tau_Dims[0]=k; | |||
| 76021 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 76022 | capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 76023 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 76024 | if (!PyErr_Occurred()) | |||
| 76025 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `tau' of _flapack.sormqr to C/Fortran array" ); | |||
| 76026 | } else { | |||
| 76027 | tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 76028 | ||||
| 76029 | /* Processing variable ldc */ | |||
| 76030 | ldc = shape(c, 0)c_Dims[0]; | |||
| 76031 | /* Processing variable work */ | |||
| 76032 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 76033 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 76034 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 76035 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 76036 | if (!PyErr_Occurred()) | |||
| 76037 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sormqr to C/Fortran array" ); | |||
| 76038 | } else { | |||
| 76039 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 76040 | ||||
| 76041 | /*end of frompyobj*/ | |||
| 76042 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76043 | f2py_start_call_clock(); | |||
| 76044 | #endif | |||
| 76045 | /*callfortranroutine*/ | |||
| 76046 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 76047 | (*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info) ; | |||
| 76048 | /*(*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/ | |||
| 76049 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 76050 | if (PyErr_Occurred()) | |||
| 76051 | f2py_success = 0; | |||
| 76052 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76053 | f2py_stop_call_clock(); | |||
| 76054 | #endif | |||
| 76055 | /*end of callfortranroutine*/ | |||
| 76056 | if (f2py_success) { | |||
| 76057 | /*pyobjfrom*/ | |||
| 76058 | /*end of pyobjfrom*/ | |||
| 76059 | CFUNCSMESS("Building return value.\n"); | |||
| 76060 | capi_buildvalue = Py_BuildValue("NNi",capi_c_tmp,capi_work_tmp,info); | |||
| 76061 | /*closepyobjfrom*/ | |||
| 76062 | /*end of closepyobjfrom*/ | |||
| 76063 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 76064 | /*cleanupfrompyobj*/ | |||
| 76065 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 76066 | /* End of cleaning variable work */ | |||
| 76067 | /* End of cleaning variable ldc */ | |||
| 76068 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 76069 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 76070 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 76071 | /* End of cleaning variable tau */ | |||
| 76072 | /* End of cleaning variable lda */ | |||
| 76073 | /* End of cleaning variable k */ | |||
| 76074 | /* End of cleaning variable n */ | |||
| 76075 | /* End of cleaning variable m */ | |||
| 76076 | /* End of cleaning variable info */ | |||
| 76077 | } /*if (f2py_success) of lwork*/ | |||
| 76078 | /* End of cleaning variable lwork */ | |||
| 76079 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 76080 | /* End of cleaning variable c */ | |||
| 76081 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 76082 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 76083 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 76084 | /* End of cleaning variable a */ | |||
| 76085 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 76086 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 76087 | } /*if (f2py_success) of trans*/ | |||
| 76088 | /* End of cleaning variable trans */ | |||
| 76089 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 76090 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 76091 | } /*if (f2py_success) of side*/ | |||
| 76092 | /* End of cleaning variable side */ | |||
| 76093 | /*end of cleanupfrompyobj*/ | |||
| 76094 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 76095 | /*routdebugfailure*/ | |||
| 76096 | } else { | |||
| 76097 | /*routdebugleave*/ | |||
| 76098 | } | |||
| 76099 | CFUNCSMESS("Freeing memory.\n"); | |||
| 76100 | /*freemem*/ | |||
| 76101 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76102 | f2py_stop_clock(); | |||
| 76103 | #endif | |||
| 76104 | return capi_buildvalue; | |||
| 76105 | } | |||
| 76106 | /******************************* end of sormqr *******************************/ | |||
| 76107 | ||||
| 76108 | /*********************************** dormqr ***********************************/ | |||
| 76109 | static char doc_f2py_rout__flapack_dormqr[] = "\ | |||
| 76110 | cq,work,info = dormqr(side,trans,a,tau,c,lwork,[overwrite_c])\n\nWrapper for ``dormqr``.\ | |||
| 76111 | \n\nParameters\n----------\n" | |||
| 76112 | "side : input string(len=1)\n" | |||
| 76113 | "trans : input string(len=1)\n" | |||
| 76114 | "a : input rank-2 array('d') with bounds (lda,k)\n" | |||
| 76115 | "tau : input rank-1 array('d') with bounds (k)\n" | |||
| 76116 | "c : input rank-2 array('d') with bounds (ldc,n)\n" | |||
| 76117 | "lwork : input int\n" | |||
| 76118 | "\nOther Parameters\n----------------\n" | |||
| 76119 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 76120 | "\nReturns\n-------\n" | |||
| 76121 | "cq : rank-2 array('d') with bounds (ldc,n) and c storage\n" | |||
| 76122 | "work : rank-1 array('d') with bounds (MAX(lwork,1))\n" | |||
| 76123 | "info : int"; | |||
| 76124 | /* extern void F_FUNC(dormqr,DORMQR)(char*,char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 76125 | static PyObject *f2py_rout__flapack_dormqr(const PyObject *capi_self, | |||
| 76126 | PyObject *capi_args, | |||
| 76127 | PyObject *capi_keywds, | |||
| 76128 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 76129 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 76130 | volatile int f2py_success = 1; | |||
| 76131 | /*decl*/ | |||
| 76132 | ||||
| 76133 | string side = NULL((void*)0); | |||
| 76134 | int slen(side)capi_side_len; | |||
| 76135 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 76136 | string trans = NULL((void*)0); | |||
| 76137 | int slen(trans)capi_trans_len; | |||
| 76138 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 76139 | int m = 0; | |||
| 76140 | int n = 0; | |||
| 76141 | int k = 0; | |||
| 76142 | double *a = NULL((void*)0); | |||
| 76143 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 76144 | const int a_Rank = 2; | |||
| 76145 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 76146 | int capi_a_intent = 0; | |||
| 76147 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 76148 | int lda = 0; | |||
| 76149 | double *tau = NULL((void*)0); | |||
| 76150 | npy_intp tau_Dims[1] = {-1}; | |||
| 76151 | const int tau_Rank = 1; | |||
| 76152 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 76153 | int capi_tau_intent = 0; | |||
| 76154 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 76155 | double *c = NULL((void*)0); | |||
| 76156 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 76157 | const int c_Rank = 2; | |||
| 76158 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 76159 | int capi_c_intent = 0; | |||
| 76160 | int capi_overwrite_c = 0; | |||
| 76161 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 76162 | int ldc = 0; | |||
| 76163 | double *work = NULL((void*)0); | |||
| 76164 | npy_intp work_Dims[1] = {-1}; | |||
| 76165 | const int work_Rank = 1; | |||
| 76166 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 76167 | int capi_work_intent = 0; | |||
| 76168 | int lwork = 0; | |||
| 76169 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 76170 | int info = 0; | |||
| 76171 | static char *capi_kwlist[] = {"side","trans","a","tau","c","lwork","overwrite_c",NULL((void*)0)}; | |||
| 76172 | ||||
| 76173 | /*routdebugenter*/ | |||
| 76174 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76175 | f2py_start_clock(); | |||
| 76176 | #endif | |||
| 76177 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 76178 | "OOOOOO|i:_flapack.dormqr",\ | |||
| 76179 | capi_kwlist,&side_capi,&trans_capi,&a_capi,&tau_capi,&c_capi,&lwork_capi,&capi_overwrite_c)) | |||
| 76180 | return NULL((void*)0); | |||
| 76181 | /*frompyobj*/ | |||
| 76182 | /* Processing variable side */ | |||
| 76183 | slen(side)capi_side_len = 1; | |||
| 76184 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"",side_capi,"string_from_pyobj failed in converting 1st argument `side' of _flapack.dormqr to C string"); | |||
| 76185 | if (f2py_success) { | |||
| 76186 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st argument side","dormqr:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dormqr:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st argument side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 76187 | /* Processing variable trans */ | |||
| 76188 | slen(trans)capi_trans_len = 1; | |||
| 76189 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"",trans_capi,"string_from_pyobj failed in converting 2nd argument `trans' of _flapack.dormqr to C string"); | |||
| 76190 | if (f2py_success) { | |||
| 76191 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd argument trans","dormqr:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dormqr:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""2nd argument trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 76192 | /* Processing variable a */ | |||
| 76193 | ; | |||
| 76194 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 76195 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 76196 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 76197 | if (!PyErr_Occurred()) | |||
| 76198 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.dormqr to C/Fortran array" ); | |||
| 76199 | } else { | |||
| 76200 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 76201 | ||||
| 76202 | /* Processing variable c */ | |||
| 76203 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 76204 | ; | |||
| 76205 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 76206 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 76207 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 76208 | if (!PyErr_Occurred()) | |||
| 76209 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `c' of _flapack.dormqr to C/Fortran array" ); | |||
| 76210 | } else { | |||
| 76211 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 76212 | ||||
| 76213 | /* Processing variable lwork */ | |||
| 76214 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dormqr() 6th argument (lwork) can't be converted to int"); | |||
| 76215 | if (f2py_success) { | |||
| 76216 | /* Processing variable info */ | |||
| 76217 | /* Processing variable m */ | |||
| 76218 | m = shape(c,0)c_Dims[0]; | |||
| 76219 | /* Processing variable n */ | |||
| 76220 | n = shape(c,1)c_Dims[1]; | |||
| 76221 | /* Processing variable k */ | |||
| 76222 | k = shape(a,1)a_Dims[1]; | |||
| 76223 | /* Processing variable lda */ | |||
| 76224 | lda = shape(a, 0)a_Dims[0]; | |||
| 76225 | /* Processing variable tau */ | |||
| 76226 | tau_Dims[0]=k; | |||
| 76227 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 76228 | capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 76229 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 76230 | if (!PyErr_Occurred()) | |||
| 76231 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `tau' of _flapack.dormqr to C/Fortran array" ); | |||
| 76232 | } else { | |||
| 76233 | tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 76234 | ||||
| 76235 | /* Processing variable ldc */ | |||
| 76236 | ldc = shape(c, 0)c_Dims[0]; | |||
| 76237 | /* Processing variable work */ | |||
| 76238 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 76239 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 76240 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 76241 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 76242 | if (!PyErr_Occurred()) | |||
| 76243 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dormqr to C/Fortran array" ); | |||
| 76244 | } else { | |||
| 76245 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 76246 | ||||
| 76247 | /*end of frompyobj*/ | |||
| 76248 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76249 | f2py_start_call_clock(); | |||
| 76250 | #endif | |||
| 76251 | /*callfortranroutine*/ | |||
| 76252 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 76253 | (*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info) ; | |||
| 76254 | /*(*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/ | |||
| 76255 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 76256 | if (PyErr_Occurred()) | |||
| 76257 | f2py_success = 0; | |||
| 76258 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76259 | f2py_stop_call_clock(); | |||
| 76260 | #endif | |||
| 76261 | /*end of callfortranroutine*/ | |||
| 76262 | if (f2py_success) { | |||
| 76263 | /*pyobjfrom*/ | |||
| 76264 | /*end of pyobjfrom*/ | |||
| 76265 | CFUNCSMESS("Building return value.\n"); | |||
| 76266 | capi_buildvalue = Py_BuildValue("NNi",capi_c_tmp,capi_work_tmp,info); | |||
| 76267 | /*closepyobjfrom*/ | |||
| 76268 | /*end of closepyobjfrom*/ | |||
| 76269 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 76270 | /*cleanupfrompyobj*/ | |||
| 76271 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 76272 | /* End of cleaning variable work */ | |||
| 76273 | /* End of cleaning variable ldc */ | |||
| 76274 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 76275 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 76276 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 76277 | /* End of cleaning variable tau */ | |||
| 76278 | /* End of cleaning variable lda */ | |||
| 76279 | /* End of cleaning variable k */ | |||
| 76280 | /* End of cleaning variable n */ | |||
| 76281 | /* End of cleaning variable m */ | |||
| 76282 | /* End of cleaning variable info */ | |||
| 76283 | } /*if (f2py_success) of lwork*/ | |||
| 76284 | /* End of cleaning variable lwork */ | |||
| 76285 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 76286 | /* End of cleaning variable c */ | |||
| 76287 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 76288 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 76289 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 76290 | /* End of cleaning variable a */ | |||
| 76291 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 76292 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 76293 | } /*if (f2py_success) of trans*/ | |||
| 76294 | /* End of cleaning variable trans */ | |||
| 76295 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 76296 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 76297 | } /*if (f2py_success) of side*/ | |||
| 76298 | /* End of cleaning variable side */ | |||
| 76299 | /*end of cleanupfrompyobj*/ | |||
| 76300 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 76301 | /*routdebugfailure*/ | |||
| 76302 | } else { | |||
| 76303 | /*routdebugleave*/ | |||
| 76304 | } | |||
| 76305 | CFUNCSMESS("Freeing memory.\n"); | |||
| 76306 | /*freemem*/ | |||
| 76307 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76308 | f2py_stop_clock(); | |||
| 76309 | #endif | |||
| 76310 | return capi_buildvalue; | |||
| 76311 | } | |||
| 76312 | /******************************* end of dormqr *******************************/ | |||
| 76313 | ||||
| 76314 | /*********************************** cunmqr ***********************************/ | |||
| 76315 | static char doc_f2py_rout__flapack_cunmqr[] = "\ | |||
| 76316 | cq,work,info = cunmqr(side,trans,a,tau,c,lwork,[overwrite_c])\n\nWrapper for ``cunmqr``.\ | |||
| 76317 | \n\nParameters\n----------\n" | |||
| 76318 | "side : input string(len=1)\n" | |||
| 76319 | "trans : input string(len=1)\n" | |||
| 76320 | "a : input rank-2 array('F') with bounds (lda,k)\n" | |||
| 76321 | "tau : input rank-1 array('F') with bounds (k)\n" | |||
| 76322 | "c : input rank-2 array('F') with bounds (ldc,n)\n" | |||
| 76323 | "lwork : input int\n" | |||
| 76324 | "\nOther Parameters\n----------------\n" | |||
| 76325 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 76326 | "\nReturns\n-------\n" | |||
| 76327 | "cq : rank-2 array('F') with bounds (ldc,n) and c storage\n" | |||
| 76328 | "work : rank-1 array('F') with bounds (MAX(lwork,1))\n" | |||
| 76329 | "info : int"; | |||
| 76330 | /* extern void F_FUNC(cunmqr,CUNMQR)(char*,char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 76331 | static PyObject *f2py_rout__flapack_cunmqr(const PyObject *capi_self, | |||
| 76332 | PyObject *capi_args, | |||
| 76333 | PyObject *capi_keywds, | |||
| 76334 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 76335 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 76336 | volatile int f2py_success = 1; | |||
| 76337 | /*decl*/ | |||
| 76338 | ||||
| 76339 | string side = NULL((void*)0); | |||
| 76340 | int slen(side)capi_side_len; | |||
| 76341 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 76342 | string trans = NULL((void*)0); | |||
| 76343 | int slen(trans)capi_trans_len; | |||
| 76344 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 76345 | int m = 0; | |||
| 76346 | int n = 0; | |||
| 76347 | int k = 0; | |||
| 76348 | complex_float *a = NULL((void*)0); | |||
| 76349 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 76350 | const int a_Rank = 2; | |||
| 76351 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 76352 | int capi_a_intent = 0; | |||
| 76353 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 76354 | int lda = 0; | |||
| 76355 | complex_float *tau = NULL((void*)0); | |||
| 76356 | npy_intp tau_Dims[1] = {-1}; | |||
| 76357 | const int tau_Rank = 1; | |||
| 76358 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 76359 | int capi_tau_intent = 0; | |||
| 76360 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 76361 | complex_float *c = NULL((void*)0); | |||
| 76362 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 76363 | const int c_Rank = 2; | |||
| 76364 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 76365 | int capi_c_intent = 0; | |||
| 76366 | int capi_overwrite_c = 0; | |||
| 76367 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 76368 | int ldc = 0; | |||
| 76369 | complex_float *work = NULL((void*)0); | |||
| 76370 | npy_intp work_Dims[1] = {-1}; | |||
| 76371 | const int work_Rank = 1; | |||
| 76372 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 76373 | int capi_work_intent = 0; | |||
| 76374 | int lwork = 0; | |||
| 76375 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 76376 | int info = 0; | |||
| 76377 | static char *capi_kwlist[] = {"side","trans","a","tau","c","lwork","overwrite_c",NULL((void*)0)}; | |||
| 76378 | ||||
| 76379 | /*routdebugenter*/ | |||
| 76380 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76381 | f2py_start_clock(); | |||
| 76382 | #endif | |||
| 76383 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 76384 | "OOOOOO|i:_flapack.cunmqr",\ | |||
| 76385 | capi_kwlist,&side_capi,&trans_capi,&a_capi,&tau_capi,&c_capi,&lwork_capi,&capi_overwrite_c)) | |||
| 76386 | return NULL((void*)0); | |||
| 76387 | /*frompyobj*/ | |||
| 76388 | /* Processing variable side */ | |||
| 76389 | slen(side)capi_side_len = 1; | |||
| 76390 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"",side_capi,"string_from_pyobj failed in converting 1st argument `side' of _flapack.cunmqr to C string"); | |||
| 76391 | if (f2py_success) { | |||
| 76392 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st argument side","cunmqr:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cunmqr:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st argument side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 76393 | /* Processing variable trans */ | |||
| 76394 | slen(trans)capi_trans_len = 1; | |||
| 76395 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"",trans_capi,"string_from_pyobj failed in converting 2nd argument `trans' of _flapack.cunmqr to C string"); | |||
| 76396 | if (f2py_success) { | |||
| 76397 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd argument trans","cunmqr:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cunmqr:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""2nd argument trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 76398 | /* Processing variable a */ | |||
| 76399 | ; | |||
| 76400 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 76401 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 76402 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 76403 | if (!PyErr_Occurred()) | |||
| 76404 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.cunmqr to C/Fortran array" ); | |||
| 76405 | } else { | |||
| 76406 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 76407 | ||||
| 76408 | /* Processing variable c */ | |||
| 76409 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 76410 | ; | |||
| 76411 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 76412 | capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 76413 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 76414 | if (!PyErr_Occurred()) | |||
| 76415 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `c' of _flapack.cunmqr to C/Fortran array" ); | |||
| 76416 | } else { | |||
| 76417 | c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 76418 | ||||
| 76419 | /* Processing variable lwork */ | |||
| 76420 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cunmqr() 6th argument (lwork) can't be converted to int"); | |||
| 76421 | if (f2py_success) { | |||
| 76422 | /* Processing variable info */ | |||
| 76423 | /* Processing variable m */ | |||
| 76424 | m = shape(c,0)c_Dims[0]; | |||
| 76425 | /* Processing variable n */ | |||
| 76426 | n = shape(c,1)c_Dims[1]; | |||
| 76427 | /* Processing variable k */ | |||
| 76428 | k = shape(a,1)a_Dims[1]; | |||
| 76429 | /* Processing variable lda */ | |||
| 76430 | lda = shape(a, 0)a_Dims[0]; | |||
| 76431 | /* Processing variable tau */ | |||
| 76432 | tau_Dims[0]=k; | |||
| 76433 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 76434 | capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 76435 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 76436 | if (!PyErr_Occurred()) | |||
| 76437 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `tau' of _flapack.cunmqr to C/Fortran array" ); | |||
| 76438 | } else { | |||
| 76439 | tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 76440 | ||||
| 76441 | /* Processing variable ldc */ | |||
| 76442 | ldc = shape(c, 0)c_Dims[0]; | |||
| 76443 | /* Processing variable work */ | |||
| 76444 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 76445 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 76446 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 76447 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 76448 | if (!PyErr_Occurred()) | |||
| 76449 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cunmqr to C/Fortran array" ); | |||
| 76450 | } else { | |||
| 76451 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 76452 | ||||
| 76453 | /*end of frompyobj*/ | |||
| 76454 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76455 | f2py_start_call_clock(); | |||
| 76456 | #endif | |||
| 76457 | /*callfortranroutine*/ | |||
| 76458 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 76459 | (*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info) ; | |||
| 76460 | /*(*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/ | |||
| 76461 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 76462 | if (PyErr_Occurred()) | |||
| 76463 | f2py_success = 0; | |||
| 76464 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76465 | f2py_stop_call_clock(); | |||
| 76466 | #endif | |||
| 76467 | /*end of callfortranroutine*/ | |||
| 76468 | if (f2py_success) { | |||
| 76469 | /*pyobjfrom*/ | |||
| 76470 | /*end of pyobjfrom*/ | |||
| 76471 | CFUNCSMESS("Building return value.\n"); | |||
| 76472 | capi_buildvalue = Py_BuildValue("NNi",capi_c_tmp,capi_work_tmp,info); | |||
| 76473 | /*closepyobjfrom*/ | |||
| 76474 | /*end of closepyobjfrom*/ | |||
| 76475 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 76476 | /*cleanupfrompyobj*/ | |||
| 76477 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 76478 | /* End of cleaning variable work */ | |||
| 76479 | /* End of cleaning variable ldc */ | |||
| 76480 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 76481 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 76482 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 76483 | /* End of cleaning variable tau */ | |||
| 76484 | /* End of cleaning variable lda */ | |||
| 76485 | /* End of cleaning variable k */ | |||
| 76486 | /* End of cleaning variable n */ | |||
| 76487 | /* End of cleaning variable m */ | |||
| 76488 | /* End of cleaning variable info */ | |||
| 76489 | } /*if (f2py_success) of lwork*/ | |||
| 76490 | /* End of cleaning variable lwork */ | |||
| 76491 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 76492 | /* End of cleaning variable c */ | |||
| 76493 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 76494 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 76495 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 76496 | /* End of cleaning variable a */ | |||
| 76497 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 76498 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 76499 | } /*if (f2py_success) of trans*/ | |||
| 76500 | /* End of cleaning variable trans */ | |||
| 76501 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 76502 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 76503 | } /*if (f2py_success) of side*/ | |||
| 76504 | /* End of cleaning variable side */ | |||
| 76505 | /*end of cleanupfrompyobj*/ | |||
| 76506 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 76507 | /*routdebugfailure*/ | |||
| 76508 | } else { | |||
| 76509 | /*routdebugleave*/ | |||
| 76510 | } | |||
| 76511 | CFUNCSMESS("Freeing memory.\n"); | |||
| 76512 | /*freemem*/ | |||
| 76513 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76514 | f2py_stop_clock(); | |||
| 76515 | #endif | |||
| 76516 | return capi_buildvalue; | |||
| 76517 | } | |||
| 76518 | /******************************* end of cunmqr *******************************/ | |||
| 76519 | ||||
| 76520 | /*********************************** zunmqr ***********************************/ | |||
| 76521 | static char doc_f2py_rout__flapack_zunmqr[] = "\ | |||
| 76522 | cq,work,info = zunmqr(side,trans,a,tau,c,lwork,[overwrite_c])\n\nWrapper for ``zunmqr``.\ | |||
| 76523 | \n\nParameters\n----------\n" | |||
| 76524 | "side : input string(len=1)\n" | |||
| 76525 | "trans : input string(len=1)\n" | |||
| 76526 | "a : input rank-2 array('D') with bounds (lda,k)\n" | |||
| 76527 | "tau : input rank-1 array('D') with bounds (k)\n" | |||
| 76528 | "c : input rank-2 array('D') with bounds (ldc,n)\n" | |||
| 76529 | "lwork : input int\n" | |||
| 76530 | "\nOther Parameters\n----------------\n" | |||
| 76531 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 76532 | "\nReturns\n-------\n" | |||
| 76533 | "cq : rank-2 array('D') with bounds (ldc,n) and c storage\n" | |||
| 76534 | "work : rank-1 array('D') with bounds (MAX(lwork,1))\n" | |||
| 76535 | "info : int"; | |||
| 76536 | /* extern void F_FUNC(zunmqr,ZUNMQR)(char*,char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 76537 | static PyObject *f2py_rout__flapack_zunmqr(const PyObject *capi_self, | |||
| 76538 | PyObject *capi_args, | |||
| 76539 | PyObject *capi_keywds, | |||
| 76540 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 76541 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 76542 | volatile int f2py_success = 1; | |||
| 76543 | /*decl*/ | |||
| 76544 | ||||
| 76545 | string side = NULL((void*)0); | |||
| 76546 | int slen(side)capi_side_len; | |||
| 76547 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 76548 | string trans = NULL((void*)0); | |||
| 76549 | int slen(trans)capi_trans_len; | |||
| 76550 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 76551 | int m = 0; | |||
| 76552 | int n = 0; | |||
| 76553 | int k = 0; | |||
| 76554 | complex_double *a = NULL((void*)0); | |||
| 76555 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 76556 | const int a_Rank = 2; | |||
| 76557 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 76558 | int capi_a_intent = 0; | |||
| 76559 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 76560 | int lda = 0; | |||
| 76561 | complex_double *tau = NULL((void*)0); | |||
| 76562 | npy_intp tau_Dims[1] = {-1}; | |||
| 76563 | const int tau_Rank = 1; | |||
| 76564 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 76565 | int capi_tau_intent = 0; | |||
| 76566 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 76567 | complex_double *c = NULL((void*)0); | |||
| 76568 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 76569 | const int c_Rank = 2; | |||
| 76570 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 76571 | int capi_c_intent = 0; | |||
| 76572 | int capi_overwrite_c = 0; | |||
| 76573 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 76574 | int ldc = 0; | |||
| 76575 | complex_double *work = NULL((void*)0); | |||
| 76576 | npy_intp work_Dims[1] = {-1}; | |||
| 76577 | const int work_Rank = 1; | |||
| 76578 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 76579 | int capi_work_intent = 0; | |||
| 76580 | int lwork = 0; | |||
| 76581 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 76582 | int info = 0; | |||
| 76583 | static char *capi_kwlist[] = {"side","trans","a","tau","c","lwork","overwrite_c",NULL((void*)0)}; | |||
| 76584 | ||||
| 76585 | /*routdebugenter*/ | |||
| 76586 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76587 | f2py_start_clock(); | |||
| 76588 | #endif | |||
| 76589 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 76590 | "OOOOOO|i:_flapack.zunmqr",\ | |||
| 76591 | capi_kwlist,&side_capi,&trans_capi,&a_capi,&tau_capi,&c_capi,&lwork_capi,&capi_overwrite_c)) | |||
| 76592 | return NULL((void*)0); | |||
| 76593 | /*frompyobj*/ | |||
| 76594 | /* Processing variable side */ | |||
| 76595 | slen(side)capi_side_len = 1; | |||
| 76596 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"",side_capi,"string_from_pyobj failed in converting 1st argument `side' of _flapack.zunmqr to C string"); | |||
| 76597 | if (f2py_success) { | |||
| 76598 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st argument side","zunmqr:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zunmqr:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st argument side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 76599 | /* Processing variable trans */ | |||
| 76600 | slen(trans)capi_trans_len = 1; | |||
| 76601 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"",trans_capi,"string_from_pyobj failed in converting 2nd argument `trans' of _flapack.zunmqr to C string"); | |||
| 76602 | if (f2py_success) { | |||
| 76603 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd argument trans","zunmqr:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zunmqr:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""2nd argument trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 76604 | /* Processing variable a */ | |||
| 76605 | ; | |||
| 76606 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 76607 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 76608 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 76609 | if (!PyErr_Occurred()) | |||
| 76610 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.zunmqr to C/Fortran array" ); | |||
| 76611 | } else { | |||
| 76612 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 76613 | ||||
| 76614 | /* Processing variable c */ | |||
| 76615 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 76616 | ; | |||
| 76617 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 76618 | capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 76619 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 76620 | if (!PyErr_Occurred()) | |||
| 76621 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `c' of _flapack.zunmqr to C/Fortran array" ); | |||
| 76622 | } else { | |||
| 76623 | c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 76624 | ||||
| 76625 | /* Processing variable lwork */ | |||
| 76626 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zunmqr() 6th argument (lwork) can't be converted to int"); | |||
| 76627 | if (f2py_success) { | |||
| 76628 | /* Processing variable info */ | |||
| 76629 | /* Processing variable m */ | |||
| 76630 | m = shape(c,0)c_Dims[0]; | |||
| 76631 | /* Processing variable n */ | |||
| 76632 | n = shape(c,1)c_Dims[1]; | |||
| 76633 | /* Processing variable k */ | |||
| 76634 | k = shape(a,1)a_Dims[1]; | |||
| 76635 | /* Processing variable lda */ | |||
| 76636 | lda = shape(a, 0)a_Dims[0]; | |||
| 76637 | /* Processing variable tau */ | |||
| 76638 | tau_Dims[0]=k; | |||
| 76639 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 76640 | capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 76641 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 76642 | if (!PyErr_Occurred()) | |||
| 76643 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `tau' of _flapack.zunmqr to C/Fortran array" ); | |||
| 76644 | } else { | |||
| 76645 | tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 76646 | ||||
| 76647 | /* Processing variable ldc */ | |||
| 76648 | ldc = shape(c, 0)c_Dims[0]; | |||
| 76649 | /* Processing variable work */ | |||
| 76650 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 76651 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 76652 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 76653 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 76654 | if (!PyErr_Occurred()) | |||
| 76655 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zunmqr to C/Fortran array" ); | |||
| 76656 | } else { | |||
| 76657 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 76658 | ||||
| 76659 | /*end of frompyobj*/ | |||
| 76660 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76661 | f2py_start_call_clock(); | |||
| 76662 | #endif | |||
| 76663 | /*callfortranroutine*/ | |||
| 76664 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 76665 | (*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info) ; | |||
| 76666 | /*(*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/ | |||
| 76667 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 76668 | if (PyErr_Occurred()) | |||
| 76669 | f2py_success = 0; | |||
| 76670 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76671 | f2py_stop_call_clock(); | |||
| 76672 | #endif | |||
| 76673 | /*end of callfortranroutine*/ | |||
| 76674 | if (f2py_success) { | |||
| 76675 | /*pyobjfrom*/ | |||
| 76676 | /*end of pyobjfrom*/ | |||
| 76677 | CFUNCSMESS("Building return value.\n"); | |||
| 76678 | capi_buildvalue = Py_BuildValue("NNi",capi_c_tmp,capi_work_tmp,info); | |||
| 76679 | /*closepyobjfrom*/ | |||
| 76680 | /*end of closepyobjfrom*/ | |||
| 76681 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 76682 | /*cleanupfrompyobj*/ | |||
| 76683 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 76684 | /* End of cleaning variable work */ | |||
| 76685 | /* End of cleaning variable ldc */ | |||
| 76686 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 76687 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 76688 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 76689 | /* End of cleaning variable tau */ | |||
| 76690 | /* End of cleaning variable lda */ | |||
| 76691 | /* End of cleaning variable k */ | |||
| 76692 | /* End of cleaning variable n */ | |||
| 76693 | /* End of cleaning variable m */ | |||
| 76694 | /* End of cleaning variable info */ | |||
| 76695 | } /*if (f2py_success) of lwork*/ | |||
| 76696 | /* End of cleaning variable lwork */ | |||
| 76697 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 76698 | /* End of cleaning variable c */ | |||
| 76699 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 76700 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 76701 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 76702 | /* End of cleaning variable a */ | |||
| 76703 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 76704 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 76705 | } /*if (f2py_success) of trans*/ | |||
| 76706 | /* End of cleaning variable trans */ | |||
| 76707 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 76708 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 76709 | } /*if (f2py_success) of side*/ | |||
| 76710 | /* End of cleaning variable side */ | |||
| 76711 | /*end of cleanupfrompyobj*/ | |||
| 76712 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 76713 | /*routdebugfailure*/ | |||
| 76714 | } else { | |||
| 76715 | /*routdebugleave*/ | |||
| 76716 | } | |||
| 76717 | CFUNCSMESS("Freeing memory.\n"); | |||
| 76718 | /*freemem*/ | |||
| 76719 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76720 | f2py_stop_clock(); | |||
| 76721 | #endif | |||
| 76722 | return capi_buildvalue; | |||
| 76723 | } | |||
| 76724 | /******************************* end of zunmqr *******************************/ | |||
| 76725 | ||||
| 76726 | /*********************************** sgeqrt ***********************************/ | |||
| 76727 | static char doc_f2py_rout__flapack_sgeqrt[] = "\ | |||
| 76728 | a,t,info = sgeqrt(nb,a,[overwrite_a])\n\nWrapper for ``sgeqrt``.\ | |||
| 76729 | \n\nParameters\n----------\n" | |||
| 76730 | "nb : input int\n" | |||
| 76731 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 76732 | "\nOther Parameters\n----------------\n" | |||
| 76733 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 76734 | "\nReturns\n-------\n" | |||
| 76735 | "a : rank-2 array('f') with bounds (m,n)\n" | |||
| 76736 | "t : rank-2 array('f') with bounds (nb,MIN(m,n))\n" | |||
| 76737 | "info : int"; | |||
| 76738 | /* extern void F_FUNC(sgeqrt,SGEQRT)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT* ); */ | |||
| 76739 | static PyObject *f2py_rout__flapack_sgeqrt(const PyObject *capi_self, | |||
| 76740 | PyObject *capi_args, | |||
| 76741 | PyObject *capi_keywds, | |||
| 76742 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) { | |||
| 76743 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 76744 | volatile int f2py_success = 1; | |||
| 76745 | /*decl*/ | |||
| 76746 | ||||
| 76747 | int m = 0; | |||
| 76748 | int n = 0; | |||
| 76749 | int nb = 0; | |||
| 76750 | PyObject *nb_capi = Py_None(&_Py_NoneStruct); | |||
| 76751 | float *a = NULL((void*)0); | |||
| 76752 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 76753 | const int a_Rank = 2; | |||
| 76754 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 76755 | int capi_a_intent = 0; | |||
| 76756 | int capi_overwrite_a = 0; | |||
| 76757 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 76758 | int lda = 0; | |||
| 76759 | float *t = NULL((void*)0); | |||
| 76760 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 76761 | const int t_Rank = 2; | |||
| 76762 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 76763 | int capi_t_intent = 0; | |||
| 76764 | int ldt = 0; | |||
| 76765 | float *work = NULL((void*)0); | |||
| 76766 | npy_intp work_Dims[2] = {-1, -1}; | |||
| 76767 | const int work_Rank = 2; | |||
| 76768 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 76769 | int capi_work_intent = 0; | |||
| 76770 | int info = 0; | |||
| 76771 | static char *capi_kwlist[] = {"nb","a","overwrite_a",NULL((void*)0)}; | |||
| 76772 | ||||
| 76773 | /*routdebugenter*/ | |||
| 76774 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76775 | f2py_start_clock(); | |||
| 76776 | #endif | |||
| 76777 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 76778 | "OO|i:_flapack.sgeqrt",\ | |||
| 76779 | capi_kwlist,&nb_capi,&a_capi,&capi_overwrite_a)) | |||
| 76780 | return NULL((void*)0); | |||
| 76781 | /*frompyobj*/ | |||
| 76782 | /* Processing variable a */ | |||
| 76783 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 76784 | ; | |||
| 76785 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 76786 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 76787 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 76788 | if (!PyErr_Occurred()) | |||
| 76789 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.sgeqrt to C/Fortran array" ); | |||
| 76790 | } else { | |||
| 76791 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 76792 | ||||
| 76793 | /* Processing variable info */ | |||
| 76794 | /* Processing variable m */ | |||
| 76795 | m = shape(a,0)a_Dims[0]; | |||
| 76796 | /* Processing variable n */ | |||
| 76797 | n = shape(a,1)a_Dims[1]; | |||
| 76798 | /* Processing variable nb */ | |||
| 76799 | f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.sgeqrt() 1st argument (nb) can't be converted to int"); | |||
| 76800 | if (f2py_success) { | |||
| 76801 | CHECKSCALAR(MIN(m,n)>=nb&&nb>=1,"MIN(m,n)>=nb&&nb>=1","1st argument nb","sgeqrt:nb=%d",nb)if (!(((m < n) ? (m) : (n))>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgeqrt:nb=%d", "(""MIN(m,n)>=nb&&nb>=1" ") failed for ""1st argument nb", nb); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 76802 | /* Processing variable lda */ | |||
| 76803 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 76804 | /* Processing variable t */ | |||
| 76805 | t_Dims[0]=nb,t_Dims[1]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 76806 | capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 76807 | capi_t_tmp = array_from_pyobj(NPY_FLOAT,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct)); | |||
| 76808 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 76809 | if (!PyErr_Occurred()) | |||
| 76810 | PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.sgeqrt to C/Fortran array" ); | |||
| 76811 | } else { | |||
| 76812 | t = (float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 76813 | ||||
| 76814 | /* Processing variable ldt */ | |||
| 76815 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 76816 | /* Processing variable work */ | |||
| 76817 | work_Dims[0]=nb,work_Dims[1]=n; | |||
| 76818 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 76819 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 76820 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 76821 | if (!PyErr_Occurred()) | |||
| 76822 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgeqrt to C/Fortran array" ); | |||
| 76823 | } else { | |||
| 76824 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 76825 | ||||
| 76826 | /*end of frompyobj*/ | |||
| 76827 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76828 | f2py_start_call_clock(); | |||
| 76829 | #endif | |||
| 76830 | /*callfortranroutine*/ | |||
| 76831 | (*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info) ; | |||
| 76832 | /*(*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info);*/ | |||
| 76833 | if (PyErr_Occurred()) | |||
| 76834 | f2py_success = 0; | |||
| 76835 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76836 | f2py_stop_call_clock(); | |||
| 76837 | #endif | |||
| 76838 | /*end of callfortranroutine*/ | |||
| 76839 | if (f2py_success) { | |||
| 76840 | /*pyobjfrom*/ | |||
| 76841 | /*end of pyobjfrom*/ | |||
| 76842 | CFUNCSMESS("Building return value.\n"); | |||
| 76843 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_t_tmp,info); | |||
| 76844 | /*closepyobjfrom*/ | |||
| 76845 | /*end of closepyobjfrom*/ | |||
| 76846 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 76847 | /*cleanupfrompyobj*/ | |||
| 76848 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 76849 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 76850 | /* End of cleaning variable work */ | |||
| 76851 | /* End of cleaning variable ldt */ | |||
| 76852 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 76853 | /* End of cleaning variable t */ | |||
| 76854 | /* End of cleaning variable lda */ | |||
| 76855 | } /*CHECKSCALAR(MIN(m,n)>=nb&&nb>=1)*/ | |||
| 76856 | } /*if (f2py_success) of nb*/ | |||
| 76857 | /* End of cleaning variable nb */ | |||
| 76858 | /* End of cleaning variable n */ | |||
| 76859 | /* End of cleaning variable m */ | |||
| 76860 | /* End of cleaning variable info */ | |||
| 76861 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 76862 | /* End of cleaning variable a */ | |||
| 76863 | /*end of cleanupfrompyobj*/ | |||
| 76864 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 76865 | /*routdebugfailure*/ | |||
| 76866 | } else { | |||
| 76867 | /*routdebugleave*/ | |||
| 76868 | } | |||
| 76869 | CFUNCSMESS("Freeing memory.\n"); | |||
| 76870 | /*freemem*/ | |||
| 76871 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76872 | f2py_stop_clock(); | |||
| 76873 | #endif | |||
| 76874 | return capi_buildvalue; | |||
| 76875 | } | |||
| 76876 | /******************************* end of sgeqrt *******************************/ | |||
| 76877 | ||||
| 76878 | /*********************************** dgeqrt ***********************************/ | |||
| 76879 | static char doc_f2py_rout__flapack_dgeqrt[] = "\ | |||
| 76880 | a,t,info = dgeqrt(nb,a,[overwrite_a])\n\nWrapper for ``dgeqrt``.\ | |||
| 76881 | \n\nParameters\n----------\n" | |||
| 76882 | "nb : input int\n" | |||
| 76883 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 76884 | "\nOther Parameters\n----------------\n" | |||
| 76885 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 76886 | "\nReturns\n-------\n" | |||
| 76887 | "a : rank-2 array('d') with bounds (m,n)\n" | |||
| 76888 | "t : rank-2 array('d') with bounds (nb,MIN(m,n))\n" | |||
| 76889 | "info : int"; | |||
| 76890 | /* extern void F_FUNC(dgeqrt,DGEQRT)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT* ); */ | |||
| 76891 | static PyObject *f2py_rout__flapack_dgeqrt(const PyObject *capi_self, | |||
| 76892 | PyObject *capi_args, | |||
| 76893 | PyObject *capi_keywds, | |||
| 76894 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) { | |||
| 76895 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 76896 | volatile int f2py_success = 1; | |||
| 76897 | /*decl*/ | |||
| 76898 | ||||
| 76899 | int m = 0; | |||
| 76900 | int n = 0; | |||
| 76901 | int nb = 0; | |||
| 76902 | PyObject *nb_capi = Py_None(&_Py_NoneStruct); | |||
| 76903 | double *a = NULL((void*)0); | |||
| 76904 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 76905 | const int a_Rank = 2; | |||
| 76906 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 76907 | int capi_a_intent = 0; | |||
| 76908 | int capi_overwrite_a = 0; | |||
| 76909 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 76910 | int lda = 0; | |||
| 76911 | double *t = NULL((void*)0); | |||
| 76912 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 76913 | const int t_Rank = 2; | |||
| 76914 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 76915 | int capi_t_intent = 0; | |||
| 76916 | int ldt = 0; | |||
| 76917 | double *work = NULL((void*)0); | |||
| 76918 | npy_intp work_Dims[2] = {-1, -1}; | |||
| 76919 | const int work_Rank = 2; | |||
| 76920 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 76921 | int capi_work_intent = 0; | |||
| 76922 | int info = 0; | |||
| 76923 | static char *capi_kwlist[] = {"nb","a","overwrite_a",NULL((void*)0)}; | |||
| 76924 | ||||
| 76925 | /*routdebugenter*/ | |||
| 76926 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76927 | f2py_start_clock(); | |||
| 76928 | #endif | |||
| 76929 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 76930 | "OO|i:_flapack.dgeqrt",\ | |||
| 76931 | capi_kwlist,&nb_capi,&a_capi,&capi_overwrite_a)) | |||
| 76932 | return NULL((void*)0); | |||
| 76933 | /*frompyobj*/ | |||
| 76934 | /* Processing variable a */ | |||
| 76935 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 76936 | ; | |||
| 76937 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 76938 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 76939 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 76940 | if (!PyErr_Occurred()) | |||
| 76941 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dgeqrt to C/Fortran array" ); | |||
| 76942 | } else { | |||
| 76943 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 76944 | ||||
| 76945 | /* Processing variable info */ | |||
| 76946 | /* Processing variable m */ | |||
| 76947 | m = shape(a,0)a_Dims[0]; | |||
| 76948 | /* Processing variable n */ | |||
| 76949 | n = shape(a,1)a_Dims[1]; | |||
| 76950 | /* Processing variable nb */ | |||
| 76951 | f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.dgeqrt() 1st argument (nb) can't be converted to int"); | |||
| 76952 | if (f2py_success) { | |||
| 76953 | CHECKSCALAR(MIN(m,n)>=nb&&nb>=1,"MIN(m,n)>=nb&&nb>=1","1st argument nb","dgeqrt:nb=%d",nb)if (!(((m < n) ? (m) : (n))>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgeqrt:nb=%d", "(""MIN(m,n)>=nb&&nb>=1" ") failed for ""1st argument nb", nb); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 76954 | /* Processing variable lda */ | |||
| 76955 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 76956 | /* Processing variable t */ | |||
| 76957 | t_Dims[0]=nb,t_Dims[1]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 76958 | capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 76959 | capi_t_tmp = array_from_pyobj(NPY_DOUBLE,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct)); | |||
| 76960 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 76961 | if (!PyErr_Occurred()) | |||
| 76962 | PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.dgeqrt to C/Fortran array" ); | |||
| 76963 | } else { | |||
| 76964 | t = (double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 76965 | ||||
| 76966 | /* Processing variable ldt */ | |||
| 76967 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 76968 | /* Processing variable work */ | |||
| 76969 | work_Dims[0]=nb,work_Dims[1]=n; | |||
| 76970 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 76971 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 76972 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 76973 | if (!PyErr_Occurred()) | |||
| 76974 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgeqrt to C/Fortran array" ); | |||
| 76975 | } else { | |||
| 76976 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 76977 | ||||
| 76978 | /*end of frompyobj*/ | |||
| 76979 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76980 | f2py_start_call_clock(); | |||
| 76981 | #endif | |||
| 76982 | /*callfortranroutine*/ | |||
| 76983 | (*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info) ; | |||
| 76984 | /*(*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info);*/ | |||
| 76985 | if (PyErr_Occurred()) | |||
| 76986 | f2py_success = 0; | |||
| 76987 | #ifdef F2PY_REPORT_ATEXIT | |||
| 76988 | f2py_stop_call_clock(); | |||
| 76989 | #endif | |||
| 76990 | /*end of callfortranroutine*/ | |||
| 76991 | if (f2py_success) { | |||
| 76992 | /*pyobjfrom*/ | |||
| 76993 | /*end of pyobjfrom*/ | |||
| 76994 | CFUNCSMESS("Building return value.\n"); | |||
| 76995 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_t_tmp,info); | |||
| 76996 | /*closepyobjfrom*/ | |||
| 76997 | /*end of closepyobjfrom*/ | |||
| 76998 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 76999 | /*cleanupfrompyobj*/ | |||
| 77000 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 77001 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 77002 | /* End of cleaning variable work */ | |||
| 77003 | /* End of cleaning variable ldt */ | |||
| 77004 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 77005 | /* End of cleaning variable t */ | |||
| 77006 | /* End of cleaning variable lda */ | |||
| 77007 | } /*CHECKSCALAR(MIN(m,n)>=nb&&nb>=1)*/ | |||
| 77008 | } /*if (f2py_success) of nb*/ | |||
| 77009 | /* End of cleaning variable nb */ | |||
| 77010 | /* End of cleaning variable n */ | |||
| 77011 | /* End of cleaning variable m */ | |||
| 77012 | /* End of cleaning variable info */ | |||
| 77013 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 77014 | /* End of cleaning variable a */ | |||
| 77015 | /*end of cleanupfrompyobj*/ | |||
| 77016 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 77017 | /*routdebugfailure*/ | |||
| 77018 | } else { | |||
| 77019 | /*routdebugleave*/ | |||
| 77020 | } | |||
| 77021 | CFUNCSMESS("Freeing memory.\n"); | |||
| 77022 | /*freemem*/ | |||
| 77023 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77024 | f2py_stop_clock(); | |||
| 77025 | #endif | |||
| 77026 | return capi_buildvalue; | |||
| 77027 | } | |||
| 77028 | /******************************* end of dgeqrt *******************************/ | |||
| 77029 | ||||
| 77030 | /*********************************** cgeqrt ***********************************/ | |||
| 77031 | static char doc_f2py_rout__flapack_cgeqrt[] = "\ | |||
| 77032 | a,t,info = cgeqrt(nb,a,[overwrite_a])\n\nWrapper for ``cgeqrt``.\ | |||
| 77033 | \n\nParameters\n----------\n" | |||
| 77034 | "nb : input int\n" | |||
| 77035 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 77036 | "\nOther Parameters\n----------------\n" | |||
| 77037 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 77038 | "\nReturns\n-------\n" | |||
| 77039 | "a : rank-2 array('F') with bounds (m,n)\n" | |||
| 77040 | "t : rank-2 array('F') with bounds (nb,MIN(m,n))\n" | |||
| 77041 | "info : int"; | |||
| 77042 | /* extern void F_FUNC(cgeqrt,CGEQRT)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT* ); */ | |||
| 77043 | static PyObject *f2py_rout__flapack_cgeqrt(const PyObject *capi_self, | |||
| 77044 | PyObject *capi_args, | |||
| 77045 | PyObject *capi_keywds, | |||
| 77046 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* )) { | |||
| 77047 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 77048 | volatile int f2py_success = 1; | |||
| 77049 | /*decl*/ | |||
| 77050 | ||||
| 77051 | int m = 0; | |||
| 77052 | int n = 0; | |||
| 77053 | int nb = 0; | |||
| 77054 | PyObject *nb_capi = Py_None(&_Py_NoneStruct); | |||
| 77055 | complex_float *a = NULL((void*)0); | |||
| 77056 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 77057 | const int a_Rank = 2; | |||
| 77058 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 77059 | int capi_a_intent = 0; | |||
| 77060 | int capi_overwrite_a = 0; | |||
| 77061 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 77062 | int lda = 0; | |||
| 77063 | complex_float *t = NULL((void*)0); | |||
| 77064 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 77065 | const int t_Rank = 2; | |||
| 77066 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 77067 | int capi_t_intent = 0; | |||
| 77068 | int ldt = 0; | |||
| 77069 | complex_float *work = NULL((void*)0); | |||
| 77070 | npy_intp work_Dims[2] = {-1, -1}; | |||
| 77071 | const int work_Rank = 2; | |||
| 77072 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 77073 | int capi_work_intent = 0; | |||
| 77074 | int info = 0; | |||
| 77075 | static char *capi_kwlist[] = {"nb","a","overwrite_a",NULL((void*)0)}; | |||
| 77076 | ||||
| 77077 | /*routdebugenter*/ | |||
| 77078 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77079 | f2py_start_clock(); | |||
| 77080 | #endif | |||
| 77081 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 77082 | "OO|i:_flapack.cgeqrt",\ | |||
| 77083 | capi_kwlist,&nb_capi,&a_capi,&capi_overwrite_a)) | |||
| 77084 | return NULL((void*)0); | |||
| 77085 | /*frompyobj*/ | |||
| 77086 | /* Processing variable a */ | |||
| 77087 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 77088 | ; | |||
| 77089 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 77090 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 77091 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 77092 | if (!PyErr_Occurred()) | |||
| 77093 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.cgeqrt to C/Fortran array" ); | |||
| 77094 | } else { | |||
| 77095 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 77096 | ||||
| 77097 | /* Processing variable info */ | |||
| 77098 | /* Processing variable m */ | |||
| 77099 | m = shape(a,0)a_Dims[0]; | |||
| 77100 | /* Processing variable n */ | |||
| 77101 | n = shape(a,1)a_Dims[1]; | |||
| 77102 | /* Processing variable nb */ | |||
| 77103 | f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.cgeqrt() 1st argument (nb) can't be converted to int"); | |||
| 77104 | if (f2py_success) { | |||
| 77105 | CHECKSCALAR(MIN(m,n)>=nb&&nb>=1,"MIN(m,n)>=nb&&nb>=1","1st argument nb","cgeqrt:nb=%d",nb)if (!(((m < n) ? (m) : (n))>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgeqrt:nb=%d", "(""MIN(m,n)>=nb&&nb>=1" ") failed for ""1st argument nb", nb); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 77106 | /* Processing variable lda */ | |||
| 77107 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 77108 | /* Processing variable t */ | |||
| 77109 | t_Dims[0]=nb,t_Dims[1]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 77110 | capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 77111 | capi_t_tmp = array_from_pyobj(NPY_CFLOAT,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct)); | |||
| 77112 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 77113 | if (!PyErr_Occurred()) | |||
| 77114 | PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.cgeqrt to C/Fortran array" ); | |||
| 77115 | } else { | |||
| 77116 | t = (complex_float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 77117 | ||||
| 77118 | /* Processing variable ldt */ | |||
| 77119 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 77120 | /* Processing variable work */ | |||
| 77121 | work_Dims[0]=nb,work_Dims[1]=n; | |||
| 77122 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 77123 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 77124 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 77125 | if (!PyErr_Occurred()) | |||
| 77126 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgeqrt to C/Fortran array" ); | |||
| 77127 | } else { | |||
| 77128 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 77129 | ||||
| 77130 | /*end of frompyobj*/ | |||
| 77131 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77132 | f2py_start_call_clock(); | |||
| 77133 | #endif | |||
| 77134 | /*callfortranroutine*/ | |||
| 77135 | (*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info) ; | |||
| 77136 | /*(*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info);*/ | |||
| 77137 | if (PyErr_Occurred()) | |||
| 77138 | f2py_success = 0; | |||
| 77139 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77140 | f2py_stop_call_clock(); | |||
| 77141 | #endif | |||
| 77142 | /*end of callfortranroutine*/ | |||
| 77143 | if (f2py_success) { | |||
| 77144 | /*pyobjfrom*/ | |||
| 77145 | /*end of pyobjfrom*/ | |||
| 77146 | CFUNCSMESS("Building return value.\n"); | |||
| 77147 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_t_tmp,info); | |||
| 77148 | /*closepyobjfrom*/ | |||
| 77149 | /*end of closepyobjfrom*/ | |||
| 77150 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 77151 | /*cleanupfrompyobj*/ | |||
| 77152 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 77153 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 77154 | /* End of cleaning variable work */ | |||
| 77155 | /* End of cleaning variable ldt */ | |||
| 77156 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 77157 | /* End of cleaning variable t */ | |||
| 77158 | /* End of cleaning variable lda */ | |||
| 77159 | } /*CHECKSCALAR(MIN(m,n)>=nb&&nb>=1)*/ | |||
| 77160 | } /*if (f2py_success) of nb*/ | |||
| 77161 | /* End of cleaning variable nb */ | |||
| 77162 | /* End of cleaning variable n */ | |||
| 77163 | /* End of cleaning variable m */ | |||
| 77164 | /* End of cleaning variable info */ | |||
| 77165 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 77166 | /* End of cleaning variable a */ | |||
| 77167 | /*end of cleanupfrompyobj*/ | |||
| 77168 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 77169 | /*routdebugfailure*/ | |||
| 77170 | } else { | |||
| 77171 | /*routdebugleave*/ | |||
| 77172 | } | |||
| 77173 | CFUNCSMESS("Freeing memory.\n"); | |||
| 77174 | /*freemem*/ | |||
| 77175 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77176 | f2py_stop_clock(); | |||
| 77177 | #endif | |||
| 77178 | return capi_buildvalue; | |||
| 77179 | } | |||
| 77180 | /******************************* end of cgeqrt *******************************/ | |||
| 77181 | ||||
| 77182 | /*********************************** zgeqrt ***********************************/ | |||
| 77183 | static char doc_f2py_rout__flapack_zgeqrt[] = "\ | |||
| 77184 | a,t,info = zgeqrt(nb,a,[overwrite_a])\n\nWrapper for ``zgeqrt``.\ | |||
| 77185 | \n\nParameters\n----------\n" | |||
| 77186 | "nb : input int\n" | |||
| 77187 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 77188 | "\nOther Parameters\n----------------\n" | |||
| 77189 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 77190 | "\nReturns\n-------\n" | |||
| 77191 | "a : rank-2 array('D') with bounds (m,n)\n" | |||
| 77192 | "t : rank-2 array('D') with bounds (nb,MIN(m,n))\n" | |||
| 77193 | "info : int"; | |||
| 77194 | /* extern void F_FUNC(zgeqrt,ZGEQRT)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT* ); */ | |||
| 77195 | static PyObject *f2py_rout__flapack_zgeqrt(const PyObject *capi_self, | |||
| 77196 | PyObject *capi_args, | |||
| 77197 | PyObject *capi_keywds, | |||
| 77198 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* )) { | |||
| 77199 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 77200 | volatile int f2py_success = 1; | |||
| 77201 | /*decl*/ | |||
| 77202 | ||||
| 77203 | int m = 0; | |||
| 77204 | int n = 0; | |||
| 77205 | int nb = 0; | |||
| 77206 | PyObject *nb_capi = Py_None(&_Py_NoneStruct); | |||
| 77207 | complex_double *a = NULL((void*)0); | |||
| 77208 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 77209 | const int a_Rank = 2; | |||
| 77210 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 77211 | int capi_a_intent = 0; | |||
| 77212 | int capi_overwrite_a = 0; | |||
| 77213 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 77214 | int lda = 0; | |||
| 77215 | complex_double *t = NULL((void*)0); | |||
| 77216 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 77217 | const int t_Rank = 2; | |||
| 77218 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 77219 | int capi_t_intent = 0; | |||
| 77220 | int ldt = 0; | |||
| 77221 | complex_double *work = NULL((void*)0); | |||
| 77222 | npy_intp work_Dims[2] = {-1, -1}; | |||
| 77223 | const int work_Rank = 2; | |||
| 77224 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 77225 | int capi_work_intent = 0; | |||
| 77226 | int info = 0; | |||
| 77227 | static char *capi_kwlist[] = {"nb","a","overwrite_a",NULL((void*)0)}; | |||
| 77228 | ||||
| 77229 | /*routdebugenter*/ | |||
| 77230 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77231 | f2py_start_clock(); | |||
| 77232 | #endif | |||
| 77233 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 77234 | "OO|i:_flapack.zgeqrt",\ | |||
| 77235 | capi_kwlist,&nb_capi,&a_capi,&capi_overwrite_a)) | |||
| 77236 | return NULL((void*)0); | |||
| 77237 | /*frompyobj*/ | |||
| 77238 | /* Processing variable a */ | |||
| 77239 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 77240 | ; | |||
| 77241 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 77242 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 77243 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 77244 | if (!PyErr_Occurred()) | |||
| 77245 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zgeqrt to C/Fortran array" ); | |||
| 77246 | } else { | |||
| 77247 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 77248 | ||||
| 77249 | /* Processing variable info */ | |||
| 77250 | /* Processing variable m */ | |||
| 77251 | m = shape(a,0)a_Dims[0]; | |||
| 77252 | /* Processing variable n */ | |||
| 77253 | n = shape(a,1)a_Dims[1]; | |||
| 77254 | /* Processing variable nb */ | |||
| 77255 | f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.zgeqrt() 1st argument (nb) can't be converted to int"); | |||
| 77256 | if (f2py_success) { | |||
| 77257 | CHECKSCALAR(MIN(m,n)>=nb&&nb>=1,"MIN(m,n)>=nb&&nb>=1","1st argument nb","zgeqrt:nb=%d",nb)if (!(((m < n) ? (m) : (n))>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgeqrt:nb=%d", "(""MIN(m,n)>=nb&&nb>=1" ") failed for ""1st argument nb", nb); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 77258 | /* Processing variable lda */ | |||
| 77259 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 77260 | /* Processing variable t */ | |||
| 77261 | t_Dims[0]=nb,t_Dims[1]=MIN(m,n)((m < n) ? (m) : (n)); | |||
| 77262 | capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 77263 | capi_t_tmp = array_from_pyobj(NPY_CDOUBLE,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct)); | |||
| 77264 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 77265 | if (!PyErr_Occurred()) | |||
| 77266 | PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.zgeqrt to C/Fortran array" ); | |||
| 77267 | } else { | |||
| 77268 | t = (complex_double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 77269 | ||||
| 77270 | /* Processing variable ldt */ | |||
| 77271 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 77272 | /* Processing variable work */ | |||
| 77273 | work_Dims[0]=nb,work_Dims[1]=n; | |||
| 77274 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 77275 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 77276 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 77277 | if (!PyErr_Occurred()) | |||
| 77278 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgeqrt to C/Fortran array" ); | |||
| 77279 | } else { | |||
| 77280 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 77281 | ||||
| 77282 | /*end of frompyobj*/ | |||
| 77283 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77284 | f2py_start_call_clock(); | |||
| 77285 | #endif | |||
| 77286 | /*callfortranroutine*/ | |||
| 77287 | (*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info) ; | |||
| 77288 | /*(*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info);*/ | |||
| 77289 | if (PyErr_Occurred()) | |||
| 77290 | f2py_success = 0; | |||
| 77291 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77292 | f2py_stop_call_clock(); | |||
| 77293 | #endif | |||
| 77294 | /*end of callfortranroutine*/ | |||
| 77295 | if (f2py_success) { | |||
| 77296 | /*pyobjfrom*/ | |||
| 77297 | /*end of pyobjfrom*/ | |||
| 77298 | CFUNCSMESS("Building return value.\n"); | |||
| 77299 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_t_tmp,info); | |||
| 77300 | /*closepyobjfrom*/ | |||
| 77301 | /*end of closepyobjfrom*/ | |||
| 77302 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 77303 | /*cleanupfrompyobj*/ | |||
| 77304 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 77305 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 77306 | /* End of cleaning variable work */ | |||
| 77307 | /* End of cleaning variable ldt */ | |||
| 77308 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 77309 | /* End of cleaning variable t */ | |||
| 77310 | /* End of cleaning variable lda */ | |||
| 77311 | } /*CHECKSCALAR(MIN(m,n)>=nb&&nb>=1)*/ | |||
| 77312 | } /*if (f2py_success) of nb*/ | |||
| 77313 | /* End of cleaning variable nb */ | |||
| 77314 | /* End of cleaning variable n */ | |||
| 77315 | /* End of cleaning variable m */ | |||
| 77316 | /* End of cleaning variable info */ | |||
| 77317 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 77318 | /* End of cleaning variable a */ | |||
| 77319 | /*end of cleanupfrompyobj*/ | |||
| 77320 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 77321 | /*routdebugfailure*/ | |||
| 77322 | } else { | |||
| 77323 | /*routdebugleave*/ | |||
| 77324 | } | |||
| 77325 | CFUNCSMESS("Freeing memory.\n"); | |||
| 77326 | /*freemem*/ | |||
| 77327 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77328 | f2py_stop_clock(); | |||
| 77329 | #endif | |||
| 77330 | return capi_buildvalue; | |||
| 77331 | } | |||
| 77332 | /******************************* end of zgeqrt *******************************/ | |||
| 77333 | ||||
| 77334 | /********************************** sgemqrt **********************************/ | |||
| 77335 | static char doc_f2py_rout__flapack_sgemqrt[] = "\ | |||
| 77336 | c,info = sgemqrt(v,t,c,[side,trans,overwrite_c])\n\nWrapper for ``sgemqrt``.\ | |||
| 77337 | \n\nParameters\n----------\n" | |||
| 77338 | "v : input rank-2 array('f') with bounds ((side[0]=='L'?m:n),k)\n" | |||
| 77339 | "t : input rank-2 array('f') with bounds (nb,k)\n" | |||
| 77340 | "c : input rank-2 array('f') with bounds (m,n)\n" | |||
| 77341 | "\nOther Parameters\n----------------\n" | |||
| 77342 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 77343 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 77344 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 77345 | "\nReturns\n-------\n" | |||
| 77346 | "c : rank-2 array('f') with bounds (m,n)\n" | |||
| 77347 | "info : int"; | |||
| 77348 | /* extern void F_FUNC(sgemqrt,SGEMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT* ); */ | |||
| 77349 | static PyObject *f2py_rout__flapack_sgemqrt(const PyObject *capi_self, | |||
| 77350 | PyObject *capi_args, | |||
| 77351 | PyObject *capi_keywds, | |||
| 77352 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) { | |||
| 77353 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 77354 | volatile int f2py_success = 1; | |||
| 77355 | /*decl*/ | |||
| 77356 | ||||
| 77357 | string side = NULL((void*)0); | |||
| 77358 | int slen(side)capi_side_len; | |||
| 77359 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 77360 | string trans = NULL((void*)0); | |||
| 77361 | int slen(trans)capi_trans_len; | |||
| 77362 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 77363 | int m = 0; | |||
| 77364 | int n = 0; | |||
| 77365 | int k = 0; | |||
| 77366 | int nb = 0; | |||
| 77367 | float *v = NULL((void*)0); | |||
| 77368 | npy_intp v_Dims[2] = {-1, -1}; | |||
| 77369 | const int v_Rank = 2; | |||
| 77370 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 77371 | int capi_v_intent = 0; | |||
| 77372 | PyObject *v_capi = Py_None(&_Py_NoneStruct); | |||
| 77373 | int ldv = 0; | |||
| 77374 | float *t = NULL((void*)0); | |||
| 77375 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 77376 | const int t_Rank = 2; | |||
| 77377 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 77378 | int capi_t_intent = 0; | |||
| 77379 | PyObject *t_capi = Py_None(&_Py_NoneStruct); | |||
| 77380 | int ldt = 0; | |||
| 77381 | float *c = NULL((void*)0); | |||
| 77382 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 77383 | const int c_Rank = 2; | |||
| 77384 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 77385 | int capi_c_intent = 0; | |||
| 77386 | int capi_overwrite_c = 0; | |||
| 77387 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 77388 | int ldc = 0; | |||
| 77389 | float *work = NULL((void*)0); | |||
| 77390 | npy_intp work_Dims[1] = {-1}; | |||
| 77391 | const int work_Rank = 1; | |||
| 77392 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 77393 | int capi_work_intent = 0; | |||
| 77394 | int info = 0; | |||
| 77395 | static char *capi_kwlist[] = {"v","t","c","side","trans","overwrite_c",NULL((void*)0)}; | |||
| 77396 | ||||
| 77397 | /*routdebugenter*/ | |||
| 77398 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77399 | f2py_start_clock(); | |||
| 77400 | #endif | |||
| 77401 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 77402 | "OOO|OOi:_flapack.sgemqrt",\ | |||
| 77403 | capi_kwlist,&v_capi,&t_capi,&c_capi,&side_capi,&trans_capi,&capi_overwrite_c)) | |||
| 77404 | return NULL((void*)0); | |||
| 77405 | /*frompyobj*/ | |||
| 77406 | /* Processing variable side */ | |||
| 77407 | slen(side)capi_side_len = 1; | |||
| 77408 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.sgemqrt to C string"); | |||
| 77409 | if (f2py_success) { | |||
| 77410 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","sgemqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgemqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 77411 | /* Processing variable c */ | |||
| 77412 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 77413 | ; | |||
| 77414 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 77415 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 77416 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 77417 | if (!PyErr_Occurred()) | |||
| 77418 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.sgemqrt to C/Fortran array" ); | |||
| 77419 | } else { | |||
| 77420 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 77421 | ||||
| 77422 | /* Processing variable info */ | |||
| 77423 | /* Processing variable m */ | |||
| 77424 | m = shape(c,0)c_Dims[0]; | |||
| 77425 | /* Processing variable n */ | |||
| 77426 | n = shape(c,1)c_Dims[1]; | |||
| 77427 | /* Processing variable v */ | |||
| 77428 | v_Dims[0]=(side[0]=='L'?m:n); | |||
| 77429 | capi_v_intent |= F2PY_INTENT_IN1; | |||
| 77430 | capi_v_tmp = array_from_pyobj(NPY_FLOAT,v_Dims,v_Rank,capi_v_intent,v_capi); | |||
| 77431 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 77432 | if (!PyErr_Occurred()) | |||
| 77433 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.sgemqrt to C/Fortran array" ); | |||
| 77434 | } else { | |||
| 77435 | v = (float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 77436 | ||||
| 77437 | /* Processing variable ldv */ | |||
| 77438 | ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0])); | |||
| 77439 | /* Processing variable ldc */ | |||
| 77440 | ldc = MAX(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0])); | |||
| 77441 | /* Processing variable trans */ | |||
| 77442 | slen(trans)capi_trans_len = 1; | |||
| 77443 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.sgemqrt to C string"); | |||
| 77444 | if (f2py_success) { | |||
| 77445 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","sgemqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgemqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 77446 | /* Processing variable k */ | |||
| 77447 | k = shape(v,1)v_Dims[1]; | |||
| 77448 | CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0,"(*side=='L'?m:n)>=k&&k>=0","hidden k","sgemqrt:k=%d",k)if (!((*side=='L'?m:n)>=k&&k>=0)) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgemqrt:k=%d", "(""(*side=='L'?m:n)>=k&&k>=0" ") failed for ""hidden k", k); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 77449 | /* Processing variable t */ | |||
| 77450 | t_Dims[1]=k; | |||
| 77451 | capi_t_intent |= F2PY_INTENT_IN1; | |||
| 77452 | capi_t_tmp = array_from_pyobj(NPY_FLOAT,t_Dims,t_Rank,capi_t_intent,t_capi); | |||
| 77453 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 77454 | if (!PyErr_Occurred()) | |||
| 77455 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `t' of _flapack.sgemqrt to C/Fortran array" ); | |||
| 77456 | } else { | |||
| 77457 | t = (float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 77458 | ||||
| 77459 | /* Processing variable ldt */ | |||
| 77460 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 77461 | /* Processing variable nb */ | |||
| 77462 | nb = shape(t,0)t_Dims[0]; | |||
| 77463 | CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","sgemqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgemqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for " "hidden nb", nb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 77464 | /* Processing variable work */ | |||
| 77465 | work_Dims[0]=(side[0]=='L'?n:m)*nb; | |||
| 77466 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 77467 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 77468 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 77469 | if (!PyErr_Occurred()) | |||
| 77470 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgemqrt to C/Fortran array" ); | |||
| 77471 | } else { | |||
| 77472 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 77473 | ||||
| 77474 | /*end of frompyobj*/ | |||
| 77475 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77476 | f2py_start_call_clock(); | |||
| 77477 | #endif | |||
| 77478 | /*callfortranroutine*/ | |||
| 77479 | (*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info) ; | |||
| 77480 | /*(*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info,slen(side),slen(trans));*/ | |||
| 77481 | if (PyErr_Occurred()) | |||
| 77482 | f2py_success = 0; | |||
| 77483 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77484 | f2py_stop_call_clock(); | |||
| 77485 | #endif | |||
| 77486 | /*end of callfortranroutine*/ | |||
| 77487 | if (f2py_success) { | |||
| 77488 | /*pyobjfrom*/ | |||
| 77489 | /*end of pyobjfrom*/ | |||
| 77490 | CFUNCSMESS("Building return value.\n"); | |||
| 77491 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 77492 | /*closepyobjfrom*/ | |||
| 77493 | /*end of closepyobjfrom*/ | |||
| 77494 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 77495 | /*cleanupfrompyobj*/ | |||
| 77496 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 77497 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 77498 | /* End of cleaning variable work */ | |||
| 77499 | } /*CHECKSCALAR(k>=nb&&nb>=1)*/ | |||
| 77500 | /* End of cleaning variable nb */ | |||
| 77501 | /* End of cleaning variable ldt */ | |||
| 77502 | if((PyObject *)capi_t_tmp!=t_capi) { | |||
| 77503 | Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); } | |||
| 77504 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 77505 | /* End of cleaning variable t */ | |||
| 77506 | } /*CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0)*/ | |||
| 77507 | /* End of cleaning variable k */ | |||
| 77508 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 77509 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 77510 | } /*if (f2py_success) of trans*/ | |||
| 77511 | /* End of cleaning variable trans */ | |||
| 77512 | /* End of cleaning variable ldc */ | |||
| 77513 | /* End of cleaning variable ldv */ | |||
| 77514 | if((PyObject *)capi_v_tmp!=v_capi) { | |||
| 77515 | Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); } | |||
| 77516 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 77517 | /* End of cleaning variable v */ | |||
| 77518 | /* End of cleaning variable n */ | |||
| 77519 | /* End of cleaning variable m */ | |||
| 77520 | /* End of cleaning variable info */ | |||
| 77521 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 77522 | /* End of cleaning variable c */ | |||
| 77523 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 77524 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 77525 | } /*if (f2py_success) of side*/ | |||
| 77526 | /* End of cleaning variable side */ | |||
| 77527 | /*end of cleanupfrompyobj*/ | |||
| 77528 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 77529 | /*routdebugfailure*/ | |||
| 77530 | } else { | |||
| 77531 | /*routdebugleave*/ | |||
| 77532 | } | |||
| 77533 | CFUNCSMESS("Freeing memory.\n"); | |||
| 77534 | /*freemem*/ | |||
| 77535 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77536 | f2py_stop_clock(); | |||
| 77537 | #endif | |||
| 77538 | return capi_buildvalue; | |||
| 77539 | } | |||
| 77540 | /******************************* end of sgemqrt *******************************/ | |||
| 77541 | ||||
| 77542 | /********************************** dgemqrt **********************************/ | |||
| 77543 | static char doc_f2py_rout__flapack_dgemqrt[] = "\ | |||
| 77544 | c,info = dgemqrt(v,t,c,[side,trans,overwrite_c])\n\nWrapper for ``dgemqrt``.\ | |||
| 77545 | \n\nParameters\n----------\n" | |||
| 77546 | "v : input rank-2 array('d') with bounds ((side[0]=='L'?m:n),k)\n" | |||
| 77547 | "t : input rank-2 array('d') with bounds (nb,k)\n" | |||
| 77548 | "c : input rank-2 array('d') with bounds (m,n)\n" | |||
| 77549 | "\nOther Parameters\n----------------\n" | |||
| 77550 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 77551 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 77552 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 77553 | "\nReturns\n-------\n" | |||
| 77554 | "c : rank-2 array('d') with bounds (m,n)\n" | |||
| 77555 | "info : int"; | |||
| 77556 | /* extern void F_FUNC(dgemqrt,DGEMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT* ); */ | |||
| 77557 | static PyObject *f2py_rout__flapack_dgemqrt(const PyObject *capi_self, | |||
| 77558 | PyObject *capi_args, | |||
| 77559 | PyObject *capi_keywds, | |||
| 77560 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) { | |||
| 77561 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 77562 | volatile int f2py_success = 1; | |||
| 77563 | /*decl*/ | |||
| 77564 | ||||
| 77565 | string side = NULL((void*)0); | |||
| 77566 | int slen(side)capi_side_len; | |||
| 77567 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 77568 | string trans = NULL((void*)0); | |||
| 77569 | int slen(trans)capi_trans_len; | |||
| 77570 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 77571 | int m = 0; | |||
| 77572 | int n = 0; | |||
| 77573 | int k = 0; | |||
| 77574 | int nb = 0; | |||
| 77575 | double *v = NULL((void*)0); | |||
| 77576 | npy_intp v_Dims[2] = {-1, -1}; | |||
| 77577 | const int v_Rank = 2; | |||
| 77578 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 77579 | int capi_v_intent = 0; | |||
| 77580 | PyObject *v_capi = Py_None(&_Py_NoneStruct); | |||
| 77581 | int ldv = 0; | |||
| 77582 | double *t = NULL((void*)0); | |||
| 77583 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 77584 | const int t_Rank = 2; | |||
| 77585 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 77586 | int capi_t_intent = 0; | |||
| 77587 | PyObject *t_capi = Py_None(&_Py_NoneStruct); | |||
| 77588 | int ldt = 0; | |||
| 77589 | double *c = NULL((void*)0); | |||
| 77590 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 77591 | const int c_Rank = 2; | |||
| 77592 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 77593 | int capi_c_intent = 0; | |||
| 77594 | int capi_overwrite_c = 0; | |||
| 77595 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 77596 | int ldc = 0; | |||
| 77597 | double *work = NULL((void*)0); | |||
| 77598 | npy_intp work_Dims[1] = {-1}; | |||
| 77599 | const int work_Rank = 1; | |||
| 77600 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 77601 | int capi_work_intent = 0; | |||
| 77602 | int info = 0; | |||
| 77603 | static char *capi_kwlist[] = {"v","t","c","side","trans","overwrite_c",NULL((void*)0)}; | |||
| 77604 | ||||
| 77605 | /*routdebugenter*/ | |||
| 77606 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77607 | f2py_start_clock(); | |||
| 77608 | #endif | |||
| 77609 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 77610 | "OOO|OOi:_flapack.dgemqrt",\ | |||
| 77611 | capi_kwlist,&v_capi,&t_capi,&c_capi,&side_capi,&trans_capi,&capi_overwrite_c)) | |||
| 77612 | return NULL((void*)0); | |||
| 77613 | /*frompyobj*/ | |||
| 77614 | /* Processing variable side */ | |||
| 77615 | slen(side)capi_side_len = 1; | |||
| 77616 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.dgemqrt to C string"); | |||
| 77617 | if (f2py_success) { | |||
| 77618 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","dgemqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgemqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 77619 | /* Processing variable c */ | |||
| 77620 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 77621 | ; | |||
| 77622 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 77623 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 77624 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 77625 | if (!PyErr_Occurred()) | |||
| 77626 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.dgemqrt to C/Fortran array" ); | |||
| 77627 | } else { | |||
| 77628 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 77629 | ||||
| 77630 | /* Processing variable info */ | |||
| 77631 | /* Processing variable m */ | |||
| 77632 | m = shape(c,0)c_Dims[0]; | |||
| 77633 | /* Processing variable n */ | |||
| 77634 | n = shape(c,1)c_Dims[1]; | |||
| 77635 | /* Processing variable v */ | |||
| 77636 | v_Dims[0]=(side[0]=='L'?m:n); | |||
| 77637 | capi_v_intent |= F2PY_INTENT_IN1; | |||
| 77638 | capi_v_tmp = array_from_pyobj(NPY_DOUBLE,v_Dims,v_Rank,capi_v_intent,v_capi); | |||
| 77639 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 77640 | if (!PyErr_Occurred()) | |||
| 77641 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.dgemqrt to C/Fortran array" ); | |||
| 77642 | } else { | |||
| 77643 | v = (double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 77644 | ||||
| 77645 | /* Processing variable ldv */ | |||
| 77646 | ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0])); | |||
| 77647 | /* Processing variable ldc */ | |||
| 77648 | ldc = MAX(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0])); | |||
| 77649 | /* Processing variable trans */ | |||
| 77650 | slen(trans)capi_trans_len = 1; | |||
| 77651 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dgemqrt to C string"); | |||
| 77652 | if (f2py_success) { | |||
| 77653 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","dgemqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgemqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 77654 | /* Processing variable k */ | |||
| 77655 | k = shape(v,1)v_Dims[1]; | |||
| 77656 | CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0,"(*side=='L'?m:n)>=k&&k>=0","hidden k","dgemqrt:k=%d",k)if (!((*side=='L'?m:n)>=k&&k>=0)) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgemqrt:k=%d", "(""(*side=='L'?m:n)>=k&&k>=0" ") failed for ""hidden k", k); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 77657 | /* Processing variable t */ | |||
| 77658 | t_Dims[1]=k; | |||
| 77659 | capi_t_intent |= F2PY_INTENT_IN1; | |||
| 77660 | capi_t_tmp = array_from_pyobj(NPY_DOUBLE,t_Dims,t_Rank,capi_t_intent,t_capi); | |||
| 77661 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 77662 | if (!PyErr_Occurred()) | |||
| 77663 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `t' of _flapack.dgemqrt to C/Fortran array" ); | |||
| 77664 | } else { | |||
| 77665 | t = (double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 77666 | ||||
| 77667 | /* Processing variable ldt */ | |||
| 77668 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 77669 | /* Processing variable nb */ | |||
| 77670 | nb = shape(t,0)t_Dims[0]; | |||
| 77671 | CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","dgemqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgemqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for " "hidden nb", nb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 77672 | /* Processing variable work */ | |||
| 77673 | work_Dims[0]=(side[0]=='L'?n:m)*nb; | |||
| 77674 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 77675 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 77676 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 77677 | if (!PyErr_Occurred()) | |||
| 77678 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgemqrt to C/Fortran array" ); | |||
| 77679 | } else { | |||
| 77680 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 77681 | ||||
| 77682 | /*end of frompyobj*/ | |||
| 77683 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77684 | f2py_start_call_clock(); | |||
| 77685 | #endif | |||
| 77686 | /*callfortranroutine*/ | |||
| 77687 | (*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info) ; | |||
| 77688 | /*(*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info,slen(side),slen(trans));*/ | |||
| 77689 | if (PyErr_Occurred()) | |||
| 77690 | f2py_success = 0; | |||
| 77691 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77692 | f2py_stop_call_clock(); | |||
| 77693 | #endif | |||
| 77694 | /*end of callfortranroutine*/ | |||
| 77695 | if (f2py_success) { | |||
| 77696 | /*pyobjfrom*/ | |||
| 77697 | /*end of pyobjfrom*/ | |||
| 77698 | CFUNCSMESS("Building return value.\n"); | |||
| 77699 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 77700 | /*closepyobjfrom*/ | |||
| 77701 | /*end of closepyobjfrom*/ | |||
| 77702 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 77703 | /*cleanupfrompyobj*/ | |||
| 77704 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 77705 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 77706 | /* End of cleaning variable work */ | |||
| 77707 | } /*CHECKSCALAR(k>=nb&&nb>=1)*/ | |||
| 77708 | /* End of cleaning variable nb */ | |||
| 77709 | /* End of cleaning variable ldt */ | |||
| 77710 | if((PyObject *)capi_t_tmp!=t_capi) { | |||
| 77711 | Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); } | |||
| 77712 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 77713 | /* End of cleaning variable t */ | |||
| 77714 | } /*CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0)*/ | |||
| 77715 | /* End of cleaning variable k */ | |||
| 77716 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 77717 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 77718 | } /*if (f2py_success) of trans*/ | |||
| 77719 | /* End of cleaning variable trans */ | |||
| 77720 | /* End of cleaning variable ldc */ | |||
| 77721 | /* End of cleaning variable ldv */ | |||
| 77722 | if((PyObject *)capi_v_tmp!=v_capi) { | |||
| 77723 | Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); } | |||
| 77724 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 77725 | /* End of cleaning variable v */ | |||
| 77726 | /* End of cleaning variable n */ | |||
| 77727 | /* End of cleaning variable m */ | |||
| 77728 | /* End of cleaning variable info */ | |||
| 77729 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 77730 | /* End of cleaning variable c */ | |||
| 77731 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 77732 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 77733 | } /*if (f2py_success) of side*/ | |||
| 77734 | /* End of cleaning variable side */ | |||
| 77735 | /*end of cleanupfrompyobj*/ | |||
| 77736 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 77737 | /*routdebugfailure*/ | |||
| 77738 | } else { | |||
| 77739 | /*routdebugleave*/ | |||
| 77740 | } | |||
| 77741 | CFUNCSMESS("Freeing memory.\n"); | |||
| 77742 | /*freemem*/ | |||
| 77743 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77744 | f2py_stop_clock(); | |||
| 77745 | #endif | |||
| 77746 | return capi_buildvalue; | |||
| 77747 | } | |||
| 77748 | /******************************* end of dgemqrt *******************************/ | |||
| 77749 | ||||
| 77750 | /********************************** cgemqrt **********************************/ | |||
| 77751 | static char doc_f2py_rout__flapack_cgemqrt[] = "\ | |||
| 77752 | c,info = cgemqrt(v,t,c,[side,trans,overwrite_c])\n\nWrapper for ``cgemqrt``.\ | |||
| 77753 | \n\nParameters\n----------\n" | |||
| 77754 | "v : input rank-2 array('F') with bounds ((side[0]=='L'?m:n),k)\n" | |||
| 77755 | "t : input rank-2 array('F') with bounds (nb,k)\n" | |||
| 77756 | "c : input rank-2 array('F') with bounds (m,n)\n" | |||
| 77757 | "\nOther Parameters\n----------------\n" | |||
| 77758 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 77759 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 77760 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 77761 | "\nReturns\n-------\n" | |||
| 77762 | "c : rank-2 array('F') with bounds (m,n)\n" | |||
| 77763 | "info : int"; | |||
| 77764 | /* extern void F_FUNC(cgemqrt,CGEMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT* ); */ | |||
| 77765 | static PyObject *f2py_rout__flapack_cgemqrt(const PyObject *capi_self, | |||
| 77766 | PyObject *capi_args, | |||
| 77767 | PyObject *capi_keywds, | |||
| 77768 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* )) { | |||
| 77769 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 77770 | volatile int f2py_success = 1; | |||
| 77771 | /*decl*/ | |||
| 77772 | ||||
| 77773 | string side = NULL((void*)0); | |||
| 77774 | int slen(side)capi_side_len; | |||
| 77775 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 77776 | string trans = NULL((void*)0); | |||
| 77777 | int slen(trans)capi_trans_len; | |||
| 77778 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 77779 | int m = 0; | |||
| 77780 | int n = 0; | |||
| 77781 | int k = 0; | |||
| 77782 | int nb = 0; | |||
| 77783 | complex_float *v = NULL((void*)0); | |||
| 77784 | npy_intp v_Dims[2] = {-1, -1}; | |||
| 77785 | const int v_Rank = 2; | |||
| 77786 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 77787 | int capi_v_intent = 0; | |||
| 77788 | PyObject *v_capi = Py_None(&_Py_NoneStruct); | |||
| 77789 | int ldv = 0; | |||
| 77790 | complex_float *t = NULL((void*)0); | |||
| 77791 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 77792 | const int t_Rank = 2; | |||
| 77793 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 77794 | int capi_t_intent = 0; | |||
| 77795 | PyObject *t_capi = Py_None(&_Py_NoneStruct); | |||
| 77796 | int ldt = 0; | |||
| 77797 | complex_float *c = NULL((void*)0); | |||
| 77798 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 77799 | const int c_Rank = 2; | |||
| 77800 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 77801 | int capi_c_intent = 0; | |||
| 77802 | int capi_overwrite_c = 0; | |||
| 77803 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 77804 | int ldc = 0; | |||
| 77805 | complex_float *work = NULL((void*)0); | |||
| 77806 | npy_intp work_Dims[1] = {-1}; | |||
| 77807 | const int work_Rank = 1; | |||
| 77808 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 77809 | int capi_work_intent = 0; | |||
| 77810 | int info = 0; | |||
| 77811 | static char *capi_kwlist[] = {"v","t","c","side","trans","overwrite_c",NULL((void*)0)}; | |||
| 77812 | ||||
| 77813 | /*routdebugenter*/ | |||
| 77814 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77815 | f2py_start_clock(); | |||
| 77816 | #endif | |||
| 77817 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 77818 | "OOO|OOi:_flapack.cgemqrt",\ | |||
| 77819 | capi_kwlist,&v_capi,&t_capi,&c_capi,&side_capi,&trans_capi,&capi_overwrite_c)) | |||
| 77820 | return NULL((void*)0); | |||
| 77821 | /*frompyobj*/ | |||
| 77822 | /* Processing variable side */ | |||
| 77823 | slen(side)capi_side_len = 1; | |||
| 77824 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.cgemqrt to C string"); | |||
| 77825 | if (f2py_success) { | |||
| 77826 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","cgemqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgemqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 77827 | /* Processing variable c */ | |||
| 77828 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 77829 | ; | |||
| 77830 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 77831 | capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 77832 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 77833 | if (!PyErr_Occurred()) | |||
| 77834 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.cgemqrt to C/Fortran array" ); | |||
| 77835 | } else { | |||
| 77836 | c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 77837 | ||||
| 77838 | /* Processing variable info */ | |||
| 77839 | /* Processing variable m */ | |||
| 77840 | m = shape(c,0)c_Dims[0]; | |||
| 77841 | /* Processing variable n */ | |||
| 77842 | n = shape(c,1)c_Dims[1]; | |||
| 77843 | /* Processing variable v */ | |||
| 77844 | v_Dims[0]=(side[0]=='L'?m:n); | |||
| 77845 | capi_v_intent |= F2PY_INTENT_IN1; | |||
| 77846 | capi_v_tmp = array_from_pyobj(NPY_CFLOAT,v_Dims,v_Rank,capi_v_intent,v_capi); | |||
| 77847 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 77848 | if (!PyErr_Occurred()) | |||
| 77849 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.cgemqrt to C/Fortran array" ); | |||
| 77850 | } else { | |||
| 77851 | v = (complex_float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 77852 | ||||
| 77853 | /* Processing variable ldv */ | |||
| 77854 | ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0])); | |||
| 77855 | /* Processing variable ldc */ | |||
| 77856 | ldc = MAX(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0])); | |||
| 77857 | /* Processing variable trans */ | |||
| 77858 | slen(trans)capi_trans_len = 1; | |||
| 77859 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.cgemqrt to C string"); | |||
| 77860 | if (f2py_success) { | |||
| 77861 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","cgemqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgemqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 77862 | /* Processing variable k */ | |||
| 77863 | k = shape(v,1)v_Dims[1]; | |||
| 77864 | CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0,"(*side=='L'?m:n)>=k&&k>=0","hidden k","cgemqrt:k=%d",k)if (!((*side=='L'?m:n)>=k&&k>=0)) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgemqrt:k=%d", "(""(*side=='L'?m:n)>=k&&k>=0" ") failed for ""hidden k", k); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 77865 | /* Processing variable t */ | |||
| 77866 | t_Dims[1]=k; | |||
| 77867 | capi_t_intent |= F2PY_INTENT_IN1; | |||
| 77868 | capi_t_tmp = array_from_pyobj(NPY_CFLOAT,t_Dims,t_Rank,capi_t_intent,t_capi); | |||
| 77869 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 77870 | if (!PyErr_Occurred()) | |||
| 77871 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `t' of _flapack.cgemqrt to C/Fortran array" ); | |||
| 77872 | } else { | |||
| 77873 | t = (complex_float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 77874 | ||||
| 77875 | /* Processing variable ldt */ | |||
| 77876 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 77877 | /* Processing variable nb */ | |||
| 77878 | nb = shape(t,0)t_Dims[0]; | |||
| 77879 | CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","cgemqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgemqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for " "hidden nb", nb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 77880 | /* Processing variable work */ | |||
| 77881 | work_Dims[0]=(side[0]=='L'?n:m)*nb; | |||
| 77882 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 77883 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 77884 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 77885 | if (!PyErr_Occurred()) | |||
| 77886 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgemqrt to C/Fortran array" ); | |||
| 77887 | } else { | |||
| 77888 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 77889 | ||||
| 77890 | /*end of frompyobj*/ | |||
| 77891 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77892 | f2py_start_call_clock(); | |||
| 77893 | #endif | |||
| 77894 | /*callfortranroutine*/ | |||
| 77895 | (*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info) ; | |||
| 77896 | /*(*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info,slen(side),slen(trans));*/ | |||
| 77897 | if (PyErr_Occurred()) | |||
| 77898 | f2py_success = 0; | |||
| 77899 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77900 | f2py_stop_call_clock(); | |||
| 77901 | #endif | |||
| 77902 | /*end of callfortranroutine*/ | |||
| 77903 | if (f2py_success) { | |||
| 77904 | /*pyobjfrom*/ | |||
| 77905 | /*end of pyobjfrom*/ | |||
| 77906 | CFUNCSMESS("Building return value.\n"); | |||
| 77907 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 77908 | /*closepyobjfrom*/ | |||
| 77909 | /*end of closepyobjfrom*/ | |||
| 77910 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 77911 | /*cleanupfrompyobj*/ | |||
| 77912 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 77913 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 77914 | /* End of cleaning variable work */ | |||
| 77915 | } /*CHECKSCALAR(k>=nb&&nb>=1)*/ | |||
| 77916 | /* End of cleaning variable nb */ | |||
| 77917 | /* End of cleaning variable ldt */ | |||
| 77918 | if((PyObject *)capi_t_tmp!=t_capi) { | |||
| 77919 | Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); } | |||
| 77920 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 77921 | /* End of cleaning variable t */ | |||
| 77922 | } /*CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0)*/ | |||
| 77923 | /* End of cleaning variable k */ | |||
| 77924 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 77925 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 77926 | } /*if (f2py_success) of trans*/ | |||
| 77927 | /* End of cleaning variable trans */ | |||
| 77928 | /* End of cleaning variable ldc */ | |||
| 77929 | /* End of cleaning variable ldv */ | |||
| 77930 | if((PyObject *)capi_v_tmp!=v_capi) { | |||
| 77931 | Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); } | |||
| 77932 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 77933 | /* End of cleaning variable v */ | |||
| 77934 | /* End of cleaning variable n */ | |||
| 77935 | /* End of cleaning variable m */ | |||
| 77936 | /* End of cleaning variable info */ | |||
| 77937 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 77938 | /* End of cleaning variable c */ | |||
| 77939 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 77940 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 77941 | } /*if (f2py_success) of side*/ | |||
| 77942 | /* End of cleaning variable side */ | |||
| 77943 | /*end of cleanupfrompyobj*/ | |||
| 77944 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 77945 | /*routdebugfailure*/ | |||
| 77946 | } else { | |||
| 77947 | /*routdebugleave*/ | |||
| 77948 | } | |||
| 77949 | CFUNCSMESS("Freeing memory.\n"); | |||
| 77950 | /*freemem*/ | |||
| 77951 | #ifdef F2PY_REPORT_ATEXIT | |||
| 77952 | f2py_stop_clock(); | |||
| 77953 | #endif | |||
| 77954 | return capi_buildvalue; | |||
| 77955 | } | |||
| 77956 | /******************************* end of cgemqrt *******************************/ | |||
| 77957 | ||||
| 77958 | /********************************** zgemqrt **********************************/ | |||
| 77959 | static char doc_f2py_rout__flapack_zgemqrt[] = "\ | |||
| 77960 | c,info = zgemqrt(v,t,c,[side,trans,overwrite_c])\n\nWrapper for ``zgemqrt``.\ | |||
| 77961 | \n\nParameters\n----------\n" | |||
| 77962 | "v : input rank-2 array('D') with bounds ((side[0]=='L'?m:n),k)\n" | |||
| 77963 | "t : input rank-2 array('D') with bounds (nb,k)\n" | |||
| 77964 | "c : input rank-2 array('D') with bounds (m,n)\n" | |||
| 77965 | "\nOther Parameters\n----------------\n" | |||
| 77966 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 77967 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 77968 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 77969 | "\nReturns\n-------\n" | |||
| 77970 | "c : rank-2 array('D') with bounds (m,n)\n" | |||
| 77971 | "info : int"; | |||
| 77972 | /* extern void F_FUNC(zgemqrt,ZGEMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT* ); */ | |||
| 77973 | static PyObject *f2py_rout__flapack_zgemqrt(const PyObject *capi_self, | |||
| 77974 | PyObject *capi_args, | |||
| 77975 | PyObject *capi_keywds, | |||
| 77976 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* )) { | |||
| 77977 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 77978 | volatile int f2py_success = 1; | |||
| 77979 | /*decl*/ | |||
| 77980 | ||||
| 77981 | string side = NULL((void*)0); | |||
| 77982 | int slen(side)capi_side_len; | |||
| 77983 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 77984 | string trans = NULL((void*)0); | |||
| 77985 | int slen(trans)capi_trans_len; | |||
| 77986 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 77987 | int m = 0; | |||
| 77988 | int n = 0; | |||
| 77989 | int k = 0; | |||
| 77990 | int nb = 0; | |||
| 77991 | complex_double *v = NULL((void*)0); | |||
| 77992 | npy_intp v_Dims[2] = {-1, -1}; | |||
| 77993 | const int v_Rank = 2; | |||
| 77994 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 77995 | int capi_v_intent = 0; | |||
| 77996 | PyObject *v_capi = Py_None(&_Py_NoneStruct); | |||
| 77997 | int ldv = 0; | |||
| 77998 | complex_double *t = NULL((void*)0); | |||
| 77999 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 78000 | const int t_Rank = 2; | |||
| 78001 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 78002 | int capi_t_intent = 0; | |||
| 78003 | PyObject *t_capi = Py_None(&_Py_NoneStruct); | |||
| 78004 | int ldt = 0; | |||
| 78005 | complex_double *c = NULL((void*)0); | |||
| 78006 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 78007 | const int c_Rank = 2; | |||
| 78008 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 78009 | int capi_c_intent = 0; | |||
| 78010 | int capi_overwrite_c = 0; | |||
| 78011 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 78012 | int ldc = 0; | |||
| 78013 | complex_double *work = NULL((void*)0); | |||
| 78014 | npy_intp work_Dims[1] = {-1}; | |||
| 78015 | const int work_Rank = 1; | |||
| 78016 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 78017 | int capi_work_intent = 0; | |||
| 78018 | int info = 0; | |||
| 78019 | static char *capi_kwlist[] = {"v","t","c","side","trans","overwrite_c",NULL((void*)0)}; | |||
| 78020 | ||||
| 78021 | /*routdebugenter*/ | |||
| 78022 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78023 | f2py_start_clock(); | |||
| 78024 | #endif | |||
| 78025 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 78026 | "OOO|OOi:_flapack.zgemqrt",\ | |||
| 78027 | capi_kwlist,&v_capi,&t_capi,&c_capi,&side_capi,&trans_capi,&capi_overwrite_c)) | |||
| 78028 | return NULL((void*)0); | |||
| 78029 | /*frompyobj*/ | |||
| 78030 | /* Processing variable side */ | |||
| 78031 | slen(side)capi_side_len = 1; | |||
| 78032 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.zgemqrt to C string"); | |||
| 78033 | if (f2py_success) { | |||
| 78034 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","zgemqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgemqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 78035 | /* Processing variable c */ | |||
| 78036 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 78037 | ; | |||
| 78038 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 78039 | capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 78040 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 78041 | if (!PyErr_Occurred()) | |||
| 78042 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.zgemqrt to C/Fortran array" ); | |||
| 78043 | } else { | |||
| 78044 | c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 78045 | ||||
| 78046 | /* Processing variable info */ | |||
| 78047 | /* Processing variable m */ | |||
| 78048 | m = shape(c,0)c_Dims[0]; | |||
| 78049 | /* Processing variable n */ | |||
| 78050 | n = shape(c,1)c_Dims[1]; | |||
| 78051 | /* Processing variable v */ | |||
| 78052 | v_Dims[0]=(side[0]=='L'?m:n); | |||
| 78053 | capi_v_intent |= F2PY_INTENT_IN1; | |||
| 78054 | capi_v_tmp = array_from_pyobj(NPY_CDOUBLE,v_Dims,v_Rank,capi_v_intent,v_capi); | |||
| 78055 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 78056 | if (!PyErr_Occurred()) | |||
| 78057 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.zgemqrt to C/Fortran array" ); | |||
| 78058 | } else { | |||
| 78059 | v = (complex_double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 78060 | ||||
| 78061 | /* Processing variable ldv */ | |||
| 78062 | ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0])); | |||
| 78063 | /* Processing variable ldc */ | |||
| 78064 | ldc = MAX(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0])); | |||
| 78065 | /* Processing variable trans */ | |||
| 78066 | slen(trans)capi_trans_len = 1; | |||
| 78067 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.zgemqrt to C string"); | |||
| 78068 | if (f2py_success) { | |||
| 78069 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","zgemqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgemqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 78070 | /* Processing variable k */ | |||
| 78071 | k = shape(v,1)v_Dims[1]; | |||
| 78072 | CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0,"(*side=='L'?m:n)>=k&&k>=0","hidden k","zgemqrt:k=%d",k)if (!((*side=='L'?m:n)>=k&&k>=0)) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgemqrt:k=%d", "(""(*side=='L'?m:n)>=k&&k>=0" ") failed for ""hidden k", k); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 78073 | /* Processing variable t */ | |||
| 78074 | t_Dims[1]=k; | |||
| 78075 | capi_t_intent |= F2PY_INTENT_IN1; | |||
| 78076 | capi_t_tmp = array_from_pyobj(NPY_CDOUBLE,t_Dims,t_Rank,capi_t_intent,t_capi); | |||
| 78077 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 78078 | if (!PyErr_Occurred()) | |||
| 78079 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `t' of _flapack.zgemqrt to C/Fortran array" ); | |||
| 78080 | } else { | |||
| 78081 | t = (complex_double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 78082 | ||||
| 78083 | /* Processing variable ldt */ | |||
| 78084 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 78085 | /* Processing variable nb */ | |||
| 78086 | nb = shape(t,0)t_Dims[0]; | |||
| 78087 | CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","zgemqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgemqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for " "hidden nb", nb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 78088 | /* Processing variable work */ | |||
| 78089 | work_Dims[0]=(side[0]=='L'?n:m)*nb; | |||
| 78090 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 78091 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 78092 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 78093 | if (!PyErr_Occurred()) | |||
| 78094 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgemqrt to C/Fortran array" ); | |||
| 78095 | } else { | |||
| 78096 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 78097 | ||||
| 78098 | /*end of frompyobj*/ | |||
| 78099 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78100 | f2py_start_call_clock(); | |||
| 78101 | #endif | |||
| 78102 | /*callfortranroutine*/ | |||
| 78103 | (*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info) ; | |||
| 78104 | /*(*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info,slen(side),slen(trans));*/ | |||
| 78105 | if (PyErr_Occurred()) | |||
| 78106 | f2py_success = 0; | |||
| 78107 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78108 | f2py_stop_call_clock(); | |||
| 78109 | #endif | |||
| 78110 | /*end of callfortranroutine*/ | |||
| 78111 | if (f2py_success) { | |||
| 78112 | /*pyobjfrom*/ | |||
| 78113 | /*end of pyobjfrom*/ | |||
| 78114 | CFUNCSMESS("Building return value.\n"); | |||
| 78115 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 78116 | /*closepyobjfrom*/ | |||
| 78117 | /*end of closepyobjfrom*/ | |||
| 78118 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 78119 | /*cleanupfrompyobj*/ | |||
| 78120 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 78121 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 78122 | /* End of cleaning variable work */ | |||
| 78123 | } /*CHECKSCALAR(k>=nb&&nb>=1)*/ | |||
| 78124 | /* End of cleaning variable nb */ | |||
| 78125 | /* End of cleaning variable ldt */ | |||
| 78126 | if((PyObject *)capi_t_tmp!=t_capi) { | |||
| 78127 | Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); } | |||
| 78128 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 78129 | /* End of cleaning variable t */ | |||
| 78130 | } /*CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0)*/ | |||
| 78131 | /* End of cleaning variable k */ | |||
| 78132 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 78133 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 78134 | } /*if (f2py_success) of trans*/ | |||
| 78135 | /* End of cleaning variable trans */ | |||
| 78136 | /* End of cleaning variable ldc */ | |||
| 78137 | /* End of cleaning variable ldv */ | |||
| 78138 | if((PyObject *)capi_v_tmp!=v_capi) { | |||
| 78139 | Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); } | |||
| 78140 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 78141 | /* End of cleaning variable v */ | |||
| 78142 | /* End of cleaning variable n */ | |||
| 78143 | /* End of cleaning variable m */ | |||
| 78144 | /* End of cleaning variable info */ | |||
| 78145 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 78146 | /* End of cleaning variable c */ | |||
| 78147 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 78148 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 78149 | } /*if (f2py_success) of side*/ | |||
| 78150 | /* End of cleaning variable side */ | |||
| 78151 | /*end of cleanupfrompyobj*/ | |||
| 78152 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 78153 | /*routdebugfailure*/ | |||
| 78154 | } else { | |||
| 78155 | /*routdebugleave*/ | |||
| 78156 | } | |||
| 78157 | CFUNCSMESS("Freeing memory.\n"); | |||
| 78158 | /*freemem*/ | |||
| 78159 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78160 | f2py_stop_clock(); | |||
| 78161 | #endif | |||
| 78162 | return capi_buildvalue; | |||
| 78163 | } | |||
| 78164 | /******************************* end of zgemqrt *******************************/ | |||
| 78165 | ||||
| 78166 | /*********************************** stpqrt ***********************************/ | |||
| 78167 | static char doc_f2py_rout__flapack_stpqrt[] = "\ | |||
| 78168 | a,b,t,info = stpqrt(l,nb,a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``stpqrt``.\ | |||
| 78169 | \n\nParameters\n----------\n" | |||
| 78170 | "l : input int\n" | |||
| 78171 | "nb : input int\n" | |||
| 78172 | "a : input rank-2 array('f') with bounds (n,n)\n" | |||
| 78173 | "b : input rank-2 array('f') with bounds (m,n)\n" | |||
| 78174 | "\nOther Parameters\n----------------\n" | |||
| 78175 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 78176 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 78177 | "\nReturns\n-------\n" | |||
| 78178 | "a : rank-2 array('f') with bounds (n,n)\n" | |||
| 78179 | "b : rank-2 array('f') with bounds (m,n)\n" | |||
| 78180 | "t : rank-2 array('f') with bounds (nb,n)\n" | |||
| 78181 | "info : int"; | |||
| 78182 | /* extern void F_FUNC(stpqrt,STPQRT)(F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT* ); */ | |||
| 78183 | static PyObject *f2py_rout__flapack_stpqrt(const PyObject *capi_self, | |||
| 78184 | PyObject *capi_args, | |||
| 78185 | PyObject *capi_keywds, | |||
| 78186 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) { | |||
| 78187 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 78188 | volatile int f2py_success = 1; | |||
| 78189 | /*decl*/ | |||
| 78190 | ||||
| 78191 | int m = 0; | |||
| 78192 | int n = 0; | |||
| 78193 | int l = 0; | |||
| 78194 | PyObject *l_capi = Py_None(&_Py_NoneStruct); | |||
| 78195 | int nb = 0; | |||
| 78196 | PyObject *nb_capi = Py_None(&_Py_NoneStruct); | |||
| 78197 | float *a = NULL((void*)0); | |||
| 78198 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 78199 | const int a_Rank = 2; | |||
| 78200 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 78201 | int capi_a_intent = 0; | |||
| 78202 | int capi_overwrite_a = 0; | |||
| 78203 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 78204 | int lda = 0; | |||
| 78205 | float *b = NULL((void*)0); | |||
| 78206 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 78207 | const int b_Rank = 2; | |||
| 78208 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 78209 | int capi_b_intent = 0; | |||
| 78210 | int capi_overwrite_b = 0; | |||
| 78211 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 78212 | int ldb = 0; | |||
| 78213 | float *t = NULL((void*)0); | |||
| 78214 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 78215 | const int t_Rank = 2; | |||
| 78216 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 78217 | int capi_t_intent = 0; | |||
| 78218 | int ldt = 0; | |||
| 78219 | float *work = NULL((void*)0); | |||
| 78220 | npy_intp work_Dims[2] = {-1, -1}; | |||
| 78221 | const int work_Rank = 2; | |||
| 78222 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 78223 | int capi_work_intent = 0; | |||
| 78224 | int info = 0; | |||
| 78225 | static char *capi_kwlist[] = {"l","nb","a","b","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 78226 | ||||
| 78227 | /*routdebugenter*/ | |||
| 78228 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78229 | f2py_start_clock(); | |||
| 78230 | #endif | |||
| 78231 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 78232 | "OOOO|ii:_flapack.stpqrt",\ | |||
| 78233 | capi_kwlist,&l_capi,&nb_capi,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 78234 | return NULL((void*)0); | |||
| 78235 | /*frompyobj*/ | |||
| 78236 | /* Processing variable b */ | |||
| 78237 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 78238 | ; | |||
| 78239 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 78240 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 78241 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 78242 | if (!PyErr_Occurred()) | |||
| 78243 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.stpqrt to C/Fortran array" ); | |||
| 78244 | } else { | |||
| 78245 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 78246 | ||||
| 78247 | /* Processing variable info */ | |||
| 78248 | /* Processing variable m */ | |||
| 78249 | m = shape(b,0)b_Dims[0]; | |||
| 78250 | /* Processing variable n */ | |||
| 78251 | n = shape(b,1)b_Dims[1]; | |||
| 78252 | /* Processing variable l */ | |||
| 78253 | f2py_success = int_from_pyobj(&l,l_capi,"_flapack.stpqrt() 1st argument (l) can't be converted to int"); | |||
| 78254 | if (f2py_success) { | |||
| 78255 | CHECKSCALAR(MIN(m,n)>=l&&l>=0,"MIN(m,n)>=l&&l>=0","1st argument l","stpqrt:l=%d",l)if (!(((m < n) ? (m) : (n))>=l&&l>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""stpqrt:l=%d", "(""MIN(m,n)>=l&&l>=0" ") failed for ""1st argument l", l); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 78256 | /* Processing variable nb */ | |||
| 78257 | f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.stpqrt() 2nd argument (nb) can't be converted to int"); | |||
| 78258 | if (f2py_success) { | |||
| 78259 | CHECKSCALAR(n>=nb&&nb>=1,"n>=nb&&nb>=1","2nd argument nb","stpqrt:nb=%d",nb)if (!(n>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stpqrt:nb=%d", "(""n>=nb&&nb>=1"") failed for " "2nd argument nb", nb); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 78260 | /* Processing variable a */ | |||
| 78261 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 78262 | a_Dims[0]=n,a_Dims[1]=n; | |||
| 78263 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 78264 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 78265 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 78266 | if (!PyErr_Occurred()) | |||
| 78267 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.stpqrt to C/Fortran array" ); | |||
| 78268 | } else { | |||
| 78269 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 78270 | ||||
| 78271 | /* Processing variable lda */ | |||
| 78272 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 78273 | /* Processing variable ldb */ | |||
| 78274 | ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 78275 | /* Processing variable t */ | |||
| 78276 | t_Dims[0]=nb,t_Dims[1]=n; | |||
| 78277 | capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 78278 | capi_t_tmp = array_from_pyobj(NPY_FLOAT,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct)); | |||
| 78279 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 78280 | if (!PyErr_Occurred()) | |||
| 78281 | PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.stpqrt to C/Fortran array" ); | |||
| 78282 | } else { | |||
| 78283 | t = (float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 78284 | ||||
| 78285 | /* Processing variable ldt */ | |||
| 78286 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 78287 | /* Processing variable work */ | |||
| 78288 | work_Dims[0]=nb,work_Dims[1]=n; | |||
| 78289 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 78290 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 78291 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 78292 | if (!PyErr_Occurred()) | |||
| 78293 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.stpqrt to C/Fortran array" ); | |||
| 78294 | } else { | |||
| 78295 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 78296 | ||||
| 78297 | /*end of frompyobj*/ | |||
| 78298 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78299 | f2py_start_call_clock(); | |||
| 78300 | #endif | |||
| 78301 | /*callfortranroutine*/ | |||
| 78302 | (*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info) ; | |||
| 78303 | /*(*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info);*/ | |||
| 78304 | if (PyErr_Occurred()) | |||
| 78305 | f2py_success = 0; | |||
| 78306 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78307 | f2py_stop_call_clock(); | |||
| 78308 | #endif | |||
| 78309 | /*end of callfortranroutine*/ | |||
| 78310 | if (f2py_success) { | |||
| 78311 | /*pyobjfrom*/ | |||
| 78312 | /*end of pyobjfrom*/ | |||
| 78313 | CFUNCSMESS("Building return value.\n"); | |||
| 78314 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_b_tmp,capi_t_tmp,info); | |||
| 78315 | /*closepyobjfrom*/ | |||
| 78316 | /*end of closepyobjfrom*/ | |||
| 78317 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 78318 | /*cleanupfrompyobj*/ | |||
| 78319 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 78320 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 78321 | /* End of cleaning variable work */ | |||
| 78322 | /* End of cleaning variable ldt */ | |||
| 78323 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 78324 | /* End of cleaning variable t */ | |||
| 78325 | /* End of cleaning variable ldb */ | |||
| 78326 | /* End of cleaning variable lda */ | |||
| 78327 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 78328 | /* End of cleaning variable a */ | |||
| 78329 | } /*CHECKSCALAR(n>=nb&&nb>=1)*/ | |||
| 78330 | } /*if (f2py_success) of nb*/ | |||
| 78331 | /* End of cleaning variable nb */ | |||
| 78332 | } /*CHECKSCALAR(MIN(m,n)>=l&&l>=0)*/ | |||
| 78333 | } /*if (f2py_success) of l*/ | |||
| 78334 | /* End of cleaning variable l */ | |||
| 78335 | /* End of cleaning variable n */ | |||
| 78336 | /* End of cleaning variable m */ | |||
| 78337 | /* End of cleaning variable info */ | |||
| 78338 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 78339 | /* End of cleaning variable b */ | |||
| 78340 | /*end of cleanupfrompyobj*/ | |||
| 78341 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 78342 | /*routdebugfailure*/ | |||
| 78343 | } else { | |||
| 78344 | /*routdebugleave*/ | |||
| 78345 | } | |||
| 78346 | CFUNCSMESS("Freeing memory.\n"); | |||
| 78347 | /*freemem*/ | |||
| 78348 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78349 | f2py_stop_clock(); | |||
| 78350 | #endif | |||
| 78351 | return capi_buildvalue; | |||
| 78352 | } | |||
| 78353 | /******************************* end of stpqrt *******************************/ | |||
| 78354 | ||||
| 78355 | /*********************************** dtpqrt ***********************************/ | |||
| 78356 | static char doc_f2py_rout__flapack_dtpqrt[] = "\ | |||
| 78357 | a,b,t,info = dtpqrt(l,nb,a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``dtpqrt``.\ | |||
| 78358 | \n\nParameters\n----------\n" | |||
| 78359 | "l : input int\n" | |||
| 78360 | "nb : input int\n" | |||
| 78361 | "a : input rank-2 array('d') with bounds (n,n)\n" | |||
| 78362 | "b : input rank-2 array('d') with bounds (m,n)\n" | |||
| 78363 | "\nOther Parameters\n----------------\n" | |||
| 78364 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 78365 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 78366 | "\nReturns\n-------\n" | |||
| 78367 | "a : rank-2 array('d') with bounds (n,n)\n" | |||
| 78368 | "b : rank-2 array('d') with bounds (m,n)\n" | |||
| 78369 | "t : rank-2 array('d') with bounds (nb,n)\n" | |||
| 78370 | "info : int"; | |||
| 78371 | /* extern void F_FUNC(dtpqrt,DTPQRT)(F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT* ); */ | |||
| 78372 | static PyObject *f2py_rout__flapack_dtpqrt(const PyObject *capi_self, | |||
| 78373 | PyObject *capi_args, | |||
| 78374 | PyObject *capi_keywds, | |||
| 78375 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) { | |||
| 78376 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 78377 | volatile int f2py_success = 1; | |||
| 78378 | /*decl*/ | |||
| 78379 | ||||
| 78380 | int m = 0; | |||
| 78381 | int n = 0; | |||
| 78382 | int l = 0; | |||
| 78383 | PyObject *l_capi = Py_None(&_Py_NoneStruct); | |||
| 78384 | int nb = 0; | |||
| 78385 | PyObject *nb_capi = Py_None(&_Py_NoneStruct); | |||
| 78386 | double *a = NULL((void*)0); | |||
| 78387 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 78388 | const int a_Rank = 2; | |||
| 78389 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 78390 | int capi_a_intent = 0; | |||
| 78391 | int capi_overwrite_a = 0; | |||
| 78392 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 78393 | int lda = 0; | |||
| 78394 | double *b = NULL((void*)0); | |||
| 78395 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 78396 | const int b_Rank = 2; | |||
| 78397 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 78398 | int capi_b_intent = 0; | |||
| 78399 | int capi_overwrite_b = 0; | |||
| 78400 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 78401 | int ldb = 0; | |||
| 78402 | double *t = NULL((void*)0); | |||
| 78403 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 78404 | const int t_Rank = 2; | |||
| 78405 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 78406 | int capi_t_intent = 0; | |||
| 78407 | int ldt = 0; | |||
| 78408 | double *work = NULL((void*)0); | |||
| 78409 | npy_intp work_Dims[2] = {-1, -1}; | |||
| 78410 | const int work_Rank = 2; | |||
| 78411 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 78412 | int capi_work_intent = 0; | |||
| 78413 | int info = 0; | |||
| 78414 | static char *capi_kwlist[] = {"l","nb","a","b","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 78415 | ||||
| 78416 | /*routdebugenter*/ | |||
| 78417 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78418 | f2py_start_clock(); | |||
| 78419 | #endif | |||
| 78420 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 78421 | "OOOO|ii:_flapack.dtpqrt",\ | |||
| 78422 | capi_kwlist,&l_capi,&nb_capi,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 78423 | return NULL((void*)0); | |||
| 78424 | /*frompyobj*/ | |||
| 78425 | /* Processing variable b */ | |||
| 78426 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 78427 | ; | |||
| 78428 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 78429 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 78430 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 78431 | if (!PyErr_Occurred()) | |||
| 78432 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.dtpqrt to C/Fortran array" ); | |||
| 78433 | } else { | |||
| 78434 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 78435 | ||||
| 78436 | /* Processing variable info */ | |||
| 78437 | /* Processing variable m */ | |||
| 78438 | m = shape(b,0)b_Dims[0]; | |||
| 78439 | /* Processing variable n */ | |||
| 78440 | n = shape(b,1)b_Dims[1]; | |||
| 78441 | /* Processing variable l */ | |||
| 78442 | f2py_success = int_from_pyobj(&l,l_capi,"_flapack.dtpqrt() 1st argument (l) can't be converted to int"); | |||
| 78443 | if (f2py_success) { | |||
| 78444 | CHECKSCALAR(MIN(m,n)>=l&&l>=0,"MIN(m,n)>=l&&l>=0","1st argument l","dtpqrt:l=%d",l)if (!(((m < n) ? (m) : (n))>=l&&l>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dtpqrt:l=%d", "(""MIN(m,n)>=l&&l>=0" ") failed for ""1st argument l", l); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 78445 | /* Processing variable nb */ | |||
| 78446 | f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.dtpqrt() 2nd argument (nb) can't be converted to int"); | |||
| 78447 | if (f2py_success) { | |||
| 78448 | CHECKSCALAR(n>=nb&&nb>=1,"n>=nb&&nb>=1","2nd argument nb","dtpqrt:nb=%d",nb)if (!(n>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtpqrt:nb=%d", "(""n>=nb&&nb>=1"") failed for " "2nd argument nb", nb); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 78449 | /* Processing variable a */ | |||
| 78450 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 78451 | a_Dims[0]=n,a_Dims[1]=n; | |||
| 78452 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 78453 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 78454 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 78455 | if (!PyErr_Occurred()) | |||
| 78456 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.dtpqrt to C/Fortran array" ); | |||
| 78457 | } else { | |||
| 78458 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 78459 | ||||
| 78460 | /* Processing variable lda */ | |||
| 78461 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 78462 | /* Processing variable ldb */ | |||
| 78463 | ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 78464 | /* Processing variable t */ | |||
| 78465 | t_Dims[0]=nb,t_Dims[1]=n; | |||
| 78466 | capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 78467 | capi_t_tmp = array_from_pyobj(NPY_DOUBLE,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct)); | |||
| 78468 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 78469 | if (!PyErr_Occurred()) | |||
| 78470 | PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.dtpqrt to C/Fortran array" ); | |||
| 78471 | } else { | |||
| 78472 | t = (double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 78473 | ||||
| 78474 | /* Processing variable ldt */ | |||
| 78475 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 78476 | /* Processing variable work */ | |||
| 78477 | work_Dims[0]=nb,work_Dims[1]=n; | |||
| 78478 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 78479 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 78480 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 78481 | if (!PyErr_Occurred()) | |||
| 78482 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dtpqrt to C/Fortran array" ); | |||
| 78483 | } else { | |||
| 78484 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 78485 | ||||
| 78486 | /*end of frompyobj*/ | |||
| 78487 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78488 | f2py_start_call_clock(); | |||
| 78489 | #endif | |||
| 78490 | /*callfortranroutine*/ | |||
| 78491 | (*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info) ; | |||
| 78492 | /*(*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info);*/ | |||
| 78493 | if (PyErr_Occurred()) | |||
| 78494 | f2py_success = 0; | |||
| 78495 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78496 | f2py_stop_call_clock(); | |||
| 78497 | #endif | |||
| 78498 | /*end of callfortranroutine*/ | |||
| 78499 | if (f2py_success) { | |||
| 78500 | /*pyobjfrom*/ | |||
| 78501 | /*end of pyobjfrom*/ | |||
| 78502 | CFUNCSMESS("Building return value.\n"); | |||
| 78503 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_b_tmp,capi_t_tmp,info); | |||
| 78504 | /*closepyobjfrom*/ | |||
| 78505 | /*end of closepyobjfrom*/ | |||
| 78506 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 78507 | /*cleanupfrompyobj*/ | |||
| 78508 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 78509 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 78510 | /* End of cleaning variable work */ | |||
| 78511 | /* End of cleaning variable ldt */ | |||
| 78512 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 78513 | /* End of cleaning variable t */ | |||
| 78514 | /* End of cleaning variable ldb */ | |||
| 78515 | /* End of cleaning variable lda */ | |||
| 78516 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 78517 | /* End of cleaning variable a */ | |||
| 78518 | } /*CHECKSCALAR(n>=nb&&nb>=1)*/ | |||
| 78519 | } /*if (f2py_success) of nb*/ | |||
| 78520 | /* End of cleaning variable nb */ | |||
| 78521 | } /*CHECKSCALAR(MIN(m,n)>=l&&l>=0)*/ | |||
| 78522 | } /*if (f2py_success) of l*/ | |||
| 78523 | /* End of cleaning variable l */ | |||
| 78524 | /* End of cleaning variable n */ | |||
| 78525 | /* End of cleaning variable m */ | |||
| 78526 | /* End of cleaning variable info */ | |||
| 78527 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 78528 | /* End of cleaning variable b */ | |||
| 78529 | /*end of cleanupfrompyobj*/ | |||
| 78530 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 78531 | /*routdebugfailure*/ | |||
| 78532 | } else { | |||
| 78533 | /*routdebugleave*/ | |||
| 78534 | } | |||
| 78535 | CFUNCSMESS("Freeing memory.\n"); | |||
| 78536 | /*freemem*/ | |||
| 78537 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78538 | f2py_stop_clock(); | |||
| 78539 | #endif | |||
| 78540 | return capi_buildvalue; | |||
| 78541 | } | |||
| 78542 | /******************************* end of dtpqrt *******************************/ | |||
| 78543 | ||||
| 78544 | /*********************************** ctpqrt ***********************************/ | |||
| 78545 | static char doc_f2py_rout__flapack_ctpqrt[] = "\ | |||
| 78546 | a,b,t,info = ctpqrt(l,nb,a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``ctpqrt``.\ | |||
| 78547 | \n\nParameters\n----------\n" | |||
| 78548 | "l : input int\n" | |||
| 78549 | "nb : input int\n" | |||
| 78550 | "a : input rank-2 array('F') with bounds (n,n)\n" | |||
| 78551 | "b : input rank-2 array('F') with bounds (m,n)\n" | |||
| 78552 | "\nOther Parameters\n----------------\n" | |||
| 78553 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 78554 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 78555 | "\nReturns\n-------\n" | |||
| 78556 | "a : rank-2 array('F') with bounds (n,n)\n" | |||
| 78557 | "b : rank-2 array('F') with bounds (m,n)\n" | |||
| 78558 | "t : rank-2 array('F') with bounds (nb,n)\n" | |||
| 78559 | "info : int"; | |||
| 78560 | /* extern void F_FUNC(ctpqrt,CTPQRT)(F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT* ); */ | |||
| 78561 | static PyObject *f2py_rout__flapack_ctpqrt(const PyObject *capi_self, | |||
| 78562 | PyObject *capi_args, | |||
| 78563 | PyObject *capi_keywds, | |||
| 78564 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* )) { | |||
| 78565 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 78566 | volatile int f2py_success = 1; | |||
| 78567 | /*decl*/ | |||
| 78568 | ||||
| 78569 | int m = 0; | |||
| 78570 | int n = 0; | |||
| 78571 | int l = 0; | |||
| 78572 | PyObject *l_capi = Py_None(&_Py_NoneStruct); | |||
| 78573 | int nb = 0; | |||
| 78574 | PyObject *nb_capi = Py_None(&_Py_NoneStruct); | |||
| 78575 | complex_float *a = NULL((void*)0); | |||
| 78576 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 78577 | const int a_Rank = 2; | |||
| 78578 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 78579 | int capi_a_intent = 0; | |||
| 78580 | int capi_overwrite_a = 0; | |||
| 78581 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 78582 | int lda = 0; | |||
| 78583 | complex_float *b = NULL((void*)0); | |||
| 78584 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 78585 | const int b_Rank = 2; | |||
| 78586 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 78587 | int capi_b_intent = 0; | |||
| 78588 | int capi_overwrite_b = 0; | |||
| 78589 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 78590 | int ldb = 0; | |||
| 78591 | complex_float *t = NULL((void*)0); | |||
| 78592 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 78593 | const int t_Rank = 2; | |||
| 78594 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 78595 | int capi_t_intent = 0; | |||
| 78596 | int ldt = 0; | |||
| 78597 | complex_float *work = NULL((void*)0); | |||
| 78598 | npy_intp work_Dims[2] = {-1, -1}; | |||
| 78599 | const int work_Rank = 2; | |||
| 78600 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 78601 | int capi_work_intent = 0; | |||
| 78602 | int info = 0; | |||
| 78603 | static char *capi_kwlist[] = {"l","nb","a","b","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 78604 | ||||
| 78605 | /*routdebugenter*/ | |||
| 78606 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78607 | f2py_start_clock(); | |||
| 78608 | #endif | |||
| 78609 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 78610 | "OOOO|ii:_flapack.ctpqrt",\ | |||
| 78611 | capi_kwlist,&l_capi,&nb_capi,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 78612 | return NULL((void*)0); | |||
| 78613 | /*frompyobj*/ | |||
| 78614 | /* Processing variable b */ | |||
| 78615 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 78616 | ; | |||
| 78617 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 78618 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 78619 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 78620 | if (!PyErr_Occurred()) | |||
| 78621 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.ctpqrt to C/Fortran array" ); | |||
| 78622 | } else { | |||
| 78623 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 78624 | ||||
| 78625 | /* Processing variable info */ | |||
| 78626 | /* Processing variable m */ | |||
| 78627 | m = shape(b,0)b_Dims[0]; | |||
| 78628 | /* Processing variable n */ | |||
| 78629 | n = shape(b,1)b_Dims[1]; | |||
| 78630 | /* Processing variable l */ | |||
| 78631 | f2py_success = int_from_pyobj(&l,l_capi,"_flapack.ctpqrt() 1st argument (l) can't be converted to int"); | |||
| 78632 | if (f2py_success) { | |||
| 78633 | CHECKSCALAR(MIN(m,n)>=l&&l>=0,"MIN(m,n)>=l&&l>=0","1st argument l","ctpqrt:l=%d",l)if (!(((m < n) ? (m) : (n))>=l&&l>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ctpqrt:l=%d", "(""MIN(m,n)>=l&&l>=0" ") failed for ""1st argument l", l); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 78634 | /* Processing variable nb */ | |||
| 78635 | f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.ctpqrt() 2nd argument (nb) can't be converted to int"); | |||
| 78636 | if (f2py_success) { | |||
| 78637 | CHECKSCALAR(n>=nb&&nb>=1,"n>=nb&&nb>=1","2nd argument nb","ctpqrt:nb=%d",nb)if (!(n>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctpqrt:nb=%d", "(""n>=nb&&nb>=1"") failed for " "2nd argument nb", nb); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 78638 | /* Processing variable a */ | |||
| 78639 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 78640 | a_Dims[0]=n,a_Dims[1]=n; | |||
| 78641 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 78642 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 78643 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 78644 | if (!PyErr_Occurred()) | |||
| 78645 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.ctpqrt to C/Fortran array" ); | |||
| 78646 | } else { | |||
| 78647 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 78648 | ||||
| 78649 | /* Processing variable lda */ | |||
| 78650 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 78651 | /* Processing variable ldb */ | |||
| 78652 | ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 78653 | /* Processing variable t */ | |||
| 78654 | t_Dims[0]=nb,t_Dims[1]=n; | |||
| 78655 | capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 78656 | capi_t_tmp = array_from_pyobj(NPY_CFLOAT,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct)); | |||
| 78657 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 78658 | if (!PyErr_Occurred()) | |||
| 78659 | PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.ctpqrt to C/Fortran array" ); | |||
| 78660 | } else { | |||
| 78661 | t = (complex_float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 78662 | ||||
| 78663 | /* Processing variable ldt */ | |||
| 78664 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 78665 | /* Processing variable work */ | |||
| 78666 | work_Dims[0]=nb,work_Dims[1]=n; | |||
| 78667 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 78668 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 78669 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 78670 | if (!PyErr_Occurred()) | |||
| 78671 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ctpqrt to C/Fortran array" ); | |||
| 78672 | } else { | |||
| 78673 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 78674 | ||||
| 78675 | /*end of frompyobj*/ | |||
| 78676 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78677 | f2py_start_call_clock(); | |||
| 78678 | #endif | |||
| 78679 | /*callfortranroutine*/ | |||
| 78680 | (*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info) ; | |||
| 78681 | /*(*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info);*/ | |||
| 78682 | if (PyErr_Occurred()) | |||
| 78683 | f2py_success = 0; | |||
| 78684 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78685 | f2py_stop_call_clock(); | |||
| 78686 | #endif | |||
| 78687 | /*end of callfortranroutine*/ | |||
| 78688 | if (f2py_success) { | |||
| 78689 | /*pyobjfrom*/ | |||
| 78690 | /*end of pyobjfrom*/ | |||
| 78691 | CFUNCSMESS("Building return value.\n"); | |||
| 78692 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_b_tmp,capi_t_tmp,info); | |||
| 78693 | /*closepyobjfrom*/ | |||
| 78694 | /*end of closepyobjfrom*/ | |||
| 78695 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 78696 | /*cleanupfrompyobj*/ | |||
| 78697 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 78698 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 78699 | /* End of cleaning variable work */ | |||
| 78700 | /* End of cleaning variable ldt */ | |||
| 78701 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 78702 | /* End of cleaning variable t */ | |||
| 78703 | /* End of cleaning variable ldb */ | |||
| 78704 | /* End of cleaning variable lda */ | |||
| 78705 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 78706 | /* End of cleaning variable a */ | |||
| 78707 | } /*CHECKSCALAR(n>=nb&&nb>=1)*/ | |||
| 78708 | } /*if (f2py_success) of nb*/ | |||
| 78709 | /* End of cleaning variable nb */ | |||
| 78710 | } /*CHECKSCALAR(MIN(m,n)>=l&&l>=0)*/ | |||
| 78711 | } /*if (f2py_success) of l*/ | |||
| 78712 | /* End of cleaning variable l */ | |||
| 78713 | /* End of cleaning variable n */ | |||
| 78714 | /* End of cleaning variable m */ | |||
| 78715 | /* End of cleaning variable info */ | |||
| 78716 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 78717 | /* End of cleaning variable b */ | |||
| 78718 | /*end of cleanupfrompyobj*/ | |||
| 78719 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 78720 | /*routdebugfailure*/ | |||
| 78721 | } else { | |||
| 78722 | /*routdebugleave*/ | |||
| 78723 | } | |||
| 78724 | CFUNCSMESS("Freeing memory.\n"); | |||
| 78725 | /*freemem*/ | |||
| 78726 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78727 | f2py_stop_clock(); | |||
| 78728 | #endif | |||
| 78729 | return capi_buildvalue; | |||
| 78730 | } | |||
| 78731 | /******************************* end of ctpqrt *******************************/ | |||
| 78732 | ||||
| 78733 | /*********************************** ztpqrt ***********************************/ | |||
| 78734 | static char doc_f2py_rout__flapack_ztpqrt[] = "\ | |||
| 78735 | a,b,t,info = ztpqrt(l,nb,a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``ztpqrt``.\ | |||
| 78736 | \n\nParameters\n----------\n" | |||
| 78737 | "l : input int\n" | |||
| 78738 | "nb : input int\n" | |||
| 78739 | "a : input rank-2 array('D') with bounds (n,n)\n" | |||
| 78740 | "b : input rank-2 array('D') with bounds (m,n)\n" | |||
| 78741 | "\nOther Parameters\n----------------\n" | |||
| 78742 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 78743 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 78744 | "\nReturns\n-------\n" | |||
| 78745 | "a : rank-2 array('D') with bounds (n,n)\n" | |||
| 78746 | "b : rank-2 array('D') with bounds (m,n)\n" | |||
| 78747 | "t : rank-2 array('D') with bounds (nb,n)\n" | |||
| 78748 | "info : int"; | |||
| 78749 | /* extern void F_FUNC(ztpqrt,ZTPQRT)(F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT* ); */ | |||
| 78750 | static PyObject *f2py_rout__flapack_ztpqrt(const PyObject *capi_self, | |||
| 78751 | PyObject *capi_args, | |||
| 78752 | PyObject *capi_keywds, | |||
| 78753 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* )) { | |||
| 78754 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 78755 | volatile int f2py_success = 1; | |||
| 78756 | /*decl*/ | |||
| 78757 | ||||
| 78758 | int m = 0; | |||
| 78759 | int n = 0; | |||
| 78760 | int l = 0; | |||
| 78761 | PyObject *l_capi = Py_None(&_Py_NoneStruct); | |||
| 78762 | int nb = 0; | |||
| 78763 | PyObject *nb_capi = Py_None(&_Py_NoneStruct); | |||
| 78764 | complex_double *a = NULL((void*)0); | |||
| 78765 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 78766 | const int a_Rank = 2; | |||
| 78767 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 78768 | int capi_a_intent = 0; | |||
| 78769 | int capi_overwrite_a = 0; | |||
| 78770 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 78771 | int lda = 0; | |||
| 78772 | complex_double *b = NULL((void*)0); | |||
| 78773 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 78774 | const int b_Rank = 2; | |||
| 78775 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 78776 | int capi_b_intent = 0; | |||
| 78777 | int capi_overwrite_b = 0; | |||
| 78778 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 78779 | int ldb = 0; | |||
| 78780 | complex_double *t = NULL((void*)0); | |||
| 78781 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 78782 | const int t_Rank = 2; | |||
| 78783 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 78784 | int capi_t_intent = 0; | |||
| 78785 | int ldt = 0; | |||
| 78786 | complex_double *work = NULL((void*)0); | |||
| 78787 | npy_intp work_Dims[2] = {-1, -1}; | |||
| 78788 | const int work_Rank = 2; | |||
| 78789 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 78790 | int capi_work_intent = 0; | |||
| 78791 | int info = 0; | |||
| 78792 | static char *capi_kwlist[] = {"l","nb","a","b","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 78793 | ||||
| 78794 | /*routdebugenter*/ | |||
| 78795 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78796 | f2py_start_clock(); | |||
| 78797 | #endif | |||
| 78798 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 78799 | "OOOO|ii:_flapack.ztpqrt",\ | |||
| 78800 | capi_kwlist,&l_capi,&nb_capi,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 78801 | return NULL((void*)0); | |||
| 78802 | /*frompyobj*/ | |||
| 78803 | /* Processing variable b */ | |||
| 78804 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 78805 | ; | |||
| 78806 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 78807 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 78808 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 78809 | if (!PyErr_Occurred()) | |||
| 78810 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.ztpqrt to C/Fortran array" ); | |||
| 78811 | } else { | |||
| 78812 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 78813 | ||||
| 78814 | /* Processing variable info */ | |||
| 78815 | /* Processing variable m */ | |||
| 78816 | m = shape(b,0)b_Dims[0]; | |||
| 78817 | /* Processing variable n */ | |||
| 78818 | n = shape(b,1)b_Dims[1]; | |||
| 78819 | /* Processing variable l */ | |||
| 78820 | f2py_success = int_from_pyobj(&l,l_capi,"_flapack.ztpqrt() 1st argument (l) can't be converted to int"); | |||
| 78821 | if (f2py_success) { | |||
| 78822 | CHECKSCALAR(MIN(m,n)>=l&&l>=0,"MIN(m,n)>=l&&l>=0","1st argument l","ztpqrt:l=%d",l)if (!(((m < n) ? (m) : (n))>=l&&l>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ztpqrt:l=%d", "(""MIN(m,n)>=l&&l>=0" ") failed for ""1st argument l", l); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 78823 | /* Processing variable nb */ | |||
| 78824 | f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.ztpqrt() 2nd argument (nb) can't be converted to int"); | |||
| 78825 | if (f2py_success) { | |||
| 78826 | CHECKSCALAR(n>=nb&&nb>=1,"n>=nb&&nb>=1","2nd argument nb","ztpqrt:nb=%d",nb)if (!(n>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztpqrt:nb=%d", "(""n>=nb&&nb>=1"") failed for " "2nd argument nb", nb); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 78827 | /* Processing variable a */ | |||
| 78828 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 78829 | a_Dims[0]=n,a_Dims[1]=n; | |||
| 78830 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 78831 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 78832 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 78833 | if (!PyErr_Occurred()) | |||
| 78834 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.ztpqrt to C/Fortran array" ); | |||
| 78835 | } else { | |||
| 78836 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 78837 | ||||
| 78838 | /* Processing variable lda */ | |||
| 78839 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 78840 | /* Processing variable ldb */ | |||
| 78841 | ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 78842 | /* Processing variable t */ | |||
| 78843 | t_Dims[0]=nb,t_Dims[1]=n; | |||
| 78844 | capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 78845 | capi_t_tmp = array_from_pyobj(NPY_CDOUBLE,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct)); | |||
| 78846 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 78847 | if (!PyErr_Occurred()) | |||
| 78848 | PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.ztpqrt to C/Fortran array" ); | |||
| 78849 | } else { | |||
| 78850 | t = (complex_double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 78851 | ||||
| 78852 | /* Processing variable ldt */ | |||
| 78853 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 78854 | /* Processing variable work */ | |||
| 78855 | work_Dims[0]=nb,work_Dims[1]=n; | |||
| 78856 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 78857 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 78858 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 78859 | if (!PyErr_Occurred()) | |||
| 78860 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ztpqrt to C/Fortran array" ); | |||
| 78861 | } else { | |||
| 78862 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 78863 | ||||
| 78864 | /*end of frompyobj*/ | |||
| 78865 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78866 | f2py_start_call_clock(); | |||
| 78867 | #endif | |||
| 78868 | /*callfortranroutine*/ | |||
| 78869 | (*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info) ; | |||
| 78870 | /*(*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info);*/ | |||
| 78871 | if (PyErr_Occurred()) | |||
| 78872 | f2py_success = 0; | |||
| 78873 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78874 | f2py_stop_call_clock(); | |||
| 78875 | #endif | |||
| 78876 | /*end of callfortranroutine*/ | |||
| 78877 | if (f2py_success) { | |||
| 78878 | /*pyobjfrom*/ | |||
| 78879 | /*end of pyobjfrom*/ | |||
| 78880 | CFUNCSMESS("Building return value.\n"); | |||
| 78881 | capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_b_tmp,capi_t_tmp,info); | |||
| 78882 | /*closepyobjfrom*/ | |||
| 78883 | /*end of closepyobjfrom*/ | |||
| 78884 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 78885 | /*cleanupfrompyobj*/ | |||
| 78886 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 78887 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 78888 | /* End of cleaning variable work */ | |||
| 78889 | /* End of cleaning variable ldt */ | |||
| 78890 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 78891 | /* End of cleaning variable t */ | |||
| 78892 | /* End of cleaning variable ldb */ | |||
| 78893 | /* End of cleaning variable lda */ | |||
| 78894 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 78895 | /* End of cleaning variable a */ | |||
| 78896 | } /*CHECKSCALAR(n>=nb&&nb>=1)*/ | |||
| 78897 | } /*if (f2py_success) of nb*/ | |||
| 78898 | /* End of cleaning variable nb */ | |||
| 78899 | } /*CHECKSCALAR(MIN(m,n)>=l&&l>=0)*/ | |||
| 78900 | } /*if (f2py_success) of l*/ | |||
| 78901 | /* End of cleaning variable l */ | |||
| 78902 | /* End of cleaning variable n */ | |||
| 78903 | /* End of cleaning variable m */ | |||
| 78904 | /* End of cleaning variable info */ | |||
| 78905 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 78906 | /* End of cleaning variable b */ | |||
| 78907 | /*end of cleanupfrompyobj*/ | |||
| 78908 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 78909 | /*routdebugfailure*/ | |||
| 78910 | } else { | |||
| 78911 | /*routdebugleave*/ | |||
| 78912 | } | |||
| 78913 | CFUNCSMESS("Freeing memory.\n"); | |||
| 78914 | /*freemem*/ | |||
| 78915 | #ifdef F2PY_REPORT_ATEXIT | |||
| 78916 | f2py_stop_clock(); | |||
| 78917 | #endif | |||
| 78918 | return capi_buildvalue; | |||
| 78919 | } | |||
| 78920 | /******************************* end of ztpqrt *******************************/ | |||
| 78921 | ||||
| 78922 | /********************************** stpmqrt **********************************/ | |||
| 78923 | static char doc_f2py_rout__flapack_stpmqrt[] = "\ | |||
| 78924 | a,b,info = stpmqrt(l,v,t,a,b,[side,trans,overwrite_a,overwrite_b])\n\nWrapper for ``stpmqrt``.\ | |||
| 78925 | \n\nParameters\n----------\n" | |||
| 78926 | "l : input int\n" | |||
| 78927 | "v : input rank-2 array('f') with bounds ((side[0]=='L'?m:n),k)\n" | |||
| 78928 | "t : input rank-2 array('f') with bounds (nb,k)\n" | |||
| 78929 | "a : input rank-2 array('f') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n" | |||
| 78930 | "b : input rank-2 array('f') with bounds (m,n)\n" | |||
| 78931 | "\nOther Parameters\n----------------\n" | |||
| 78932 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 78933 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 78934 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 78935 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 78936 | "\nReturns\n-------\n" | |||
| 78937 | "a : rank-2 array('f') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n" | |||
| 78938 | "b : rank-2 array('f') with bounds (m,n)\n" | |||
| 78939 | "info : int"; | |||
| 78940 | /* extern void F_FUNC(stpmqrt,STPMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT* ); */ | |||
| 78941 | static PyObject *f2py_rout__flapack_stpmqrt(const PyObject *capi_self, | |||
| 78942 | PyObject *capi_args, | |||
| 78943 | PyObject *capi_keywds, | |||
| 78944 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) { | |||
| 78945 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 78946 | volatile int f2py_success = 1; | |||
| 78947 | /*decl*/ | |||
| 78948 | ||||
| 78949 | string side = NULL((void*)0); | |||
| 78950 | int slen(side)capi_side_len; | |||
| 78951 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 78952 | string trans = NULL((void*)0); | |||
| 78953 | int slen(trans)capi_trans_len; | |||
| 78954 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 78955 | int m = 0; | |||
| 78956 | int n = 0; | |||
| 78957 | int k = 0; | |||
| 78958 | int l = 0; | |||
| 78959 | PyObject *l_capi = Py_None(&_Py_NoneStruct); | |||
| 78960 | int nb = 0; | |||
| 78961 | float *v = NULL((void*)0); | |||
| 78962 | npy_intp v_Dims[2] = {-1, -1}; | |||
| 78963 | const int v_Rank = 2; | |||
| 78964 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 78965 | int capi_v_intent = 0; | |||
| 78966 | PyObject *v_capi = Py_None(&_Py_NoneStruct); | |||
| 78967 | int ldv = 0; | |||
| 78968 | float *t = NULL((void*)0); | |||
| 78969 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 78970 | const int t_Rank = 2; | |||
| 78971 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 78972 | int capi_t_intent = 0; | |||
| 78973 | PyObject *t_capi = Py_None(&_Py_NoneStruct); | |||
| 78974 | int ldt = 0; | |||
| 78975 | float *a = NULL((void*)0); | |||
| 78976 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 78977 | const int a_Rank = 2; | |||
| 78978 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 78979 | int capi_a_intent = 0; | |||
| 78980 | int capi_overwrite_a = 0; | |||
| 78981 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 78982 | int lda = 0; | |||
| 78983 | float *b = NULL((void*)0); | |||
| 78984 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 78985 | const int b_Rank = 2; | |||
| 78986 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 78987 | int capi_b_intent = 0; | |||
| 78988 | int capi_overwrite_b = 0; | |||
| 78989 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 78990 | int ldb = 0; | |||
| 78991 | float *work = NULL((void*)0); | |||
| 78992 | npy_intp work_Dims[1] = {-1}; | |||
| 78993 | const int work_Rank = 1; | |||
| 78994 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 78995 | int capi_work_intent = 0; | |||
| 78996 | int info = 0; | |||
| 78997 | static char *capi_kwlist[] = {"l","v","t","a","b","side","trans","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 78998 | ||||
| 78999 | /*routdebugenter*/ | |||
| 79000 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79001 | f2py_start_clock(); | |||
| 79002 | #endif | |||
| 79003 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 79004 | "OOOOO|OOii:_flapack.stpmqrt",\ | |||
| 79005 | capi_kwlist,&l_capi,&v_capi,&t_capi,&a_capi,&b_capi,&side_capi,&trans_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 79006 | return NULL((void*)0); | |||
| 79007 | /*frompyobj*/ | |||
| 79008 | /* Processing variable t */ | |||
| 79009 | ; | |||
| 79010 | capi_t_intent |= F2PY_INTENT_IN1; | |||
| 79011 | capi_t_tmp = array_from_pyobj(NPY_FLOAT,t_Dims,t_Rank,capi_t_intent,t_capi); | |||
| 79012 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 79013 | if (!PyErr_Occurred()) | |||
| 79014 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `t' of _flapack.stpmqrt to C/Fortran array" ); | |||
| 79015 | } else { | |||
| 79016 | t = (float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 79017 | ||||
| 79018 | /* Processing variable b */ | |||
| 79019 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 79020 | ; | |||
| 79021 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 79022 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 79023 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 79024 | if (!PyErr_Occurred()) | |||
| 79025 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `b' of _flapack.stpmqrt to C/Fortran array" ); | |||
| 79026 | } else { | |||
| 79027 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 79028 | ||||
| 79029 | /* Processing variable info */ | |||
| 79030 | /* Processing variable m */ | |||
| 79031 | m = shape(b,0)b_Dims[0]; | |||
| 79032 | /* Processing variable n */ | |||
| 79033 | n = shape(b,1)b_Dims[1]; | |||
| 79034 | /* Processing variable k */ | |||
| 79035 | k = shape(t,1)t_Dims[1]; | |||
| 79036 | /* Processing variable l */ | |||
| 79037 | f2py_success = int_from_pyobj(&l,l_capi,"_flapack.stpmqrt() 1st argument (l) can't be converted to int"); | |||
| 79038 | if (f2py_success) { | |||
| 79039 | CHECKSCALAR(k>=l&&l>=0,"k>=l&&l>=0","1st argument l","stpmqrt:l=%d",l)if (!(k>=l&&l>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stpmqrt:l=%d", "(""k>=l&&l>=0"") failed for " "1st argument l", l); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 79040 | /* Processing variable nb */ | |||
| 79041 | nb = shape(t,0)t_Dims[0]; | |||
| 79042 | CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","stpmqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stpmqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for " "hidden nb", nb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 79043 | /* Processing variable ldt */ | |||
| 79044 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 79045 | /* Processing variable ldb */ | |||
| 79046 | ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 79047 | /* Processing variable side */ | |||
| 79048 | slen(side)capi_side_len = 1; | |||
| 79049 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.stpmqrt to C string"); | |||
| 79050 | if (f2py_success) { | |||
| 79051 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","stpmqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stpmqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 79052 | /* Processing variable trans */ | |||
| 79053 | slen(trans)capi_trans_len = 1; | |||
| 79054 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.stpmqrt to C string"); | |||
| 79055 | if (f2py_success) { | |||
| 79056 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","stpmqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stpmqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 79057 | /* Processing variable v */ | |||
| 79058 | v_Dims[0]=(side[0]=='L'?m:n),v_Dims[1]=k; | |||
| 79059 | capi_v_intent |= F2PY_INTENT_IN1; | |||
| 79060 | capi_v_tmp = array_from_pyobj(NPY_FLOAT,v_Dims,v_Rank,capi_v_intent,v_capi); | |||
| 79061 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 79062 | if (!PyErr_Occurred()) | |||
| 79063 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `v' of _flapack.stpmqrt to C/Fortran array" ); | |||
| 79064 | } else { | |||
| 79065 | v = (float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 79066 | ||||
| 79067 | /* Processing variable ldv */ | |||
| 79068 | ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0])); | |||
| 79069 | /* Processing variable a */ | |||
| 79070 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 79071 | a_Dims[0]=(side[0]=='L'?k:m),a_Dims[1]=(side[0]=='L'?n:k); | |||
| 79072 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 79073 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 79074 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 79075 | if (!PyErr_Occurred()) | |||
| 79076 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.stpmqrt to C/Fortran array" ); | |||
| 79077 | } else { | |||
| 79078 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 79079 | ||||
| 79080 | /* Processing variable lda */ | |||
| 79081 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 79082 | /* Processing variable work */ | |||
| 79083 | work_Dims[0]=(side[0]=='L'?n:m)*nb; | |||
| 79084 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 79085 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 79086 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 79087 | if (!PyErr_Occurred()) | |||
| 79088 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.stpmqrt to C/Fortran array" ); | |||
| 79089 | } else { | |||
| 79090 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 79091 | ||||
| 79092 | /*end of frompyobj*/ | |||
| 79093 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79094 | f2py_start_call_clock(); | |||
| 79095 | #endif | |||
| 79096 | /*callfortranroutine*/ | |||
| 79097 | (*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info) ; | |||
| 79098 | /*(*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info,slen(side),slen(trans));*/ | |||
| 79099 | if (PyErr_Occurred()) | |||
| 79100 | f2py_success = 0; | |||
| 79101 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79102 | f2py_stop_call_clock(); | |||
| 79103 | #endif | |||
| 79104 | /*end of callfortranroutine*/ | |||
| 79105 | if (f2py_success) { | |||
| 79106 | /*pyobjfrom*/ | |||
| 79107 | /*end of pyobjfrom*/ | |||
| 79108 | CFUNCSMESS("Building return value.\n"); | |||
| 79109 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info); | |||
| 79110 | /*closepyobjfrom*/ | |||
| 79111 | /*end of closepyobjfrom*/ | |||
| 79112 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 79113 | /*cleanupfrompyobj*/ | |||
| 79114 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 79115 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 79116 | /* End of cleaning variable work */ | |||
| 79117 | /* End of cleaning variable lda */ | |||
| 79118 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 79119 | /* End of cleaning variable a */ | |||
| 79120 | /* End of cleaning variable ldv */ | |||
| 79121 | if((PyObject *)capi_v_tmp!=v_capi) { | |||
| 79122 | Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); } | |||
| 79123 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 79124 | /* End of cleaning variable v */ | |||
| 79125 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 79126 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 79127 | } /*if (f2py_success) of trans*/ | |||
| 79128 | /* End of cleaning variable trans */ | |||
| 79129 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 79130 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 79131 | } /*if (f2py_success) of side*/ | |||
| 79132 | /* End of cleaning variable side */ | |||
| 79133 | /* End of cleaning variable ldb */ | |||
| 79134 | /* End of cleaning variable ldt */ | |||
| 79135 | } /*CHECKSCALAR(k>=nb&&nb>=1)*/ | |||
| 79136 | /* End of cleaning variable nb */ | |||
| 79137 | } /*CHECKSCALAR(k>=l&&l>=0)*/ | |||
| 79138 | } /*if (f2py_success) of l*/ | |||
| 79139 | /* End of cleaning variable l */ | |||
| 79140 | /* End of cleaning variable k */ | |||
| 79141 | /* End of cleaning variable n */ | |||
| 79142 | /* End of cleaning variable m */ | |||
| 79143 | /* End of cleaning variable info */ | |||
| 79144 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 79145 | /* End of cleaning variable b */ | |||
| 79146 | if((PyObject *)capi_t_tmp!=t_capi) { | |||
| 79147 | Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); } | |||
| 79148 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 79149 | /* End of cleaning variable t */ | |||
| 79150 | /*end of cleanupfrompyobj*/ | |||
| 79151 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 79152 | /*routdebugfailure*/ | |||
| 79153 | } else { | |||
| 79154 | /*routdebugleave*/ | |||
| 79155 | } | |||
| 79156 | CFUNCSMESS("Freeing memory.\n"); | |||
| 79157 | /*freemem*/ | |||
| 79158 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79159 | f2py_stop_clock(); | |||
| 79160 | #endif | |||
| 79161 | return capi_buildvalue; | |||
| 79162 | } | |||
| 79163 | /******************************* end of stpmqrt *******************************/ | |||
| 79164 | ||||
| 79165 | /********************************** dtpmqrt **********************************/ | |||
| 79166 | static char doc_f2py_rout__flapack_dtpmqrt[] = "\ | |||
| 79167 | a,b,info = dtpmqrt(l,v,t,a,b,[side,trans,overwrite_a,overwrite_b])\n\nWrapper for ``dtpmqrt``.\ | |||
| 79168 | \n\nParameters\n----------\n" | |||
| 79169 | "l : input int\n" | |||
| 79170 | "v : input rank-2 array('d') with bounds ((side[0]=='L'?m:n),k)\n" | |||
| 79171 | "t : input rank-2 array('d') with bounds (nb,k)\n" | |||
| 79172 | "a : input rank-2 array('d') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n" | |||
| 79173 | "b : input rank-2 array('d') with bounds (m,n)\n" | |||
| 79174 | "\nOther Parameters\n----------------\n" | |||
| 79175 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 79176 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 79177 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 79178 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 79179 | "\nReturns\n-------\n" | |||
| 79180 | "a : rank-2 array('d') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n" | |||
| 79181 | "b : rank-2 array('d') with bounds (m,n)\n" | |||
| 79182 | "info : int"; | |||
| 79183 | /* extern void F_FUNC(dtpmqrt,DTPMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT* ); */ | |||
| 79184 | static PyObject *f2py_rout__flapack_dtpmqrt(const PyObject *capi_self, | |||
| 79185 | PyObject *capi_args, | |||
| 79186 | PyObject *capi_keywds, | |||
| 79187 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) { | |||
| 79188 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 79189 | volatile int f2py_success = 1; | |||
| 79190 | /*decl*/ | |||
| 79191 | ||||
| 79192 | string side = NULL((void*)0); | |||
| 79193 | int slen(side)capi_side_len; | |||
| 79194 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 79195 | string trans = NULL((void*)0); | |||
| 79196 | int slen(trans)capi_trans_len; | |||
| 79197 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 79198 | int m = 0; | |||
| 79199 | int n = 0; | |||
| 79200 | int k = 0; | |||
| 79201 | int l = 0; | |||
| 79202 | PyObject *l_capi = Py_None(&_Py_NoneStruct); | |||
| 79203 | int nb = 0; | |||
| 79204 | double *v = NULL((void*)0); | |||
| 79205 | npy_intp v_Dims[2] = {-1, -1}; | |||
| 79206 | const int v_Rank = 2; | |||
| 79207 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 79208 | int capi_v_intent = 0; | |||
| 79209 | PyObject *v_capi = Py_None(&_Py_NoneStruct); | |||
| 79210 | int ldv = 0; | |||
| 79211 | double *t = NULL((void*)0); | |||
| 79212 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 79213 | const int t_Rank = 2; | |||
| 79214 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 79215 | int capi_t_intent = 0; | |||
| 79216 | PyObject *t_capi = Py_None(&_Py_NoneStruct); | |||
| 79217 | int ldt = 0; | |||
| 79218 | double *a = NULL((void*)0); | |||
| 79219 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 79220 | const int a_Rank = 2; | |||
| 79221 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 79222 | int capi_a_intent = 0; | |||
| 79223 | int capi_overwrite_a = 0; | |||
| 79224 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 79225 | int lda = 0; | |||
| 79226 | double *b = NULL((void*)0); | |||
| 79227 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 79228 | const int b_Rank = 2; | |||
| 79229 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 79230 | int capi_b_intent = 0; | |||
| 79231 | int capi_overwrite_b = 0; | |||
| 79232 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 79233 | int ldb = 0; | |||
| 79234 | double *work = NULL((void*)0); | |||
| 79235 | npy_intp work_Dims[1] = {-1}; | |||
| 79236 | const int work_Rank = 1; | |||
| 79237 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 79238 | int capi_work_intent = 0; | |||
| 79239 | int info = 0; | |||
| 79240 | static char *capi_kwlist[] = {"l","v","t","a","b","side","trans","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 79241 | ||||
| 79242 | /*routdebugenter*/ | |||
| 79243 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79244 | f2py_start_clock(); | |||
| 79245 | #endif | |||
| 79246 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 79247 | "OOOOO|OOii:_flapack.dtpmqrt",\ | |||
| 79248 | capi_kwlist,&l_capi,&v_capi,&t_capi,&a_capi,&b_capi,&side_capi,&trans_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 79249 | return NULL((void*)0); | |||
| 79250 | /*frompyobj*/ | |||
| 79251 | /* Processing variable t */ | |||
| 79252 | ; | |||
| 79253 | capi_t_intent |= F2PY_INTENT_IN1; | |||
| 79254 | capi_t_tmp = array_from_pyobj(NPY_DOUBLE,t_Dims,t_Rank,capi_t_intent,t_capi); | |||
| 79255 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 79256 | if (!PyErr_Occurred()) | |||
| 79257 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `t' of _flapack.dtpmqrt to C/Fortran array" ); | |||
| 79258 | } else { | |||
| 79259 | t = (double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 79260 | ||||
| 79261 | /* Processing variable b */ | |||
| 79262 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 79263 | ; | |||
| 79264 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 79265 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 79266 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 79267 | if (!PyErr_Occurred()) | |||
| 79268 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `b' of _flapack.dtpmqrt to C/Fortran array" ); | |||
| 79269 | } else { | |||
| 79270 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 79271 | ||||
| 79272 | /* Processing variable info */ | |||
| 79273 | /* Processing variable m */ | |||
| 79274 | m = shape(b,0)b_Dims[0]; | |||
| 79275 | /* Processing variable n */ | |||
| 79276 | n = shape(b,1)b_Dims[1]; | |||
| 79277 | /* Processing variable k */ | |||
| 79278 | k = shape(t,1)t_Dims[1]; | |||
| 79279 | /* Processing variable l */ | |||
| 79280 | f2py_success = int_from_pyobj(&l,l_capi,"_flapack.dtpmqrt() 1st argument (l) can't be converted to int"); | |||
| 79281 | if (f2py_success) { | |||
| 79282 | CHECKSCALAR(k>=l&&l>=0,"k>=l&&l>=0","1st argument l","dtpmqrt:l=%d",l)if (!(k>=l&&l>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtpmqrt:l=%d", "(""k>=l&&l>=0"") failed for " "1st argument l", l); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 79283 | /* Processing variable nb */ | |||
| 79284 | nb = shape(t,0)t_Dims[0]; | |||
| 79285 | CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","dtpmqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtpmqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for " "hidden nb", nb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 79286 | /* Processing variable ldt */ | |||
| 79287 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 79288 | /* Processing variable ldb */ | |||
| 79289 | ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 79290 | /* Processing variable side */ | |||
| 79291 | slen(side)capi_side_len = 1; | |||
| 79292 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.dtpmqrt to C string"); | |||
| 79293 | if (f2py_success) { | |||
| 79294 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","dtpmqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtpmqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 79295 | /* Processing variable trans */ | |||
| 79296 | slen(trans)capi_trans_len = 1; | |||
| 79297 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dtpmqrt to C string"); | |||
| 79298 | if (f2py_success) { | |||
| 79299 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","dtpmqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtpmqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 79300 | /* Processing variable v */ | |||
| 79301 | v_Dims[0]=(side[0]=='L'?m:n),v_Dims[1]=k; | |||
| 79302 | capi_v_intent |= F2PY_INTENT_IN1; | |||
| 79303 | capi_v_tmp = array_from_pyobj(NPY_DOUBLE,v_Dims,v_Rank,capi_v_intent,v_capi); | |||
| 79304 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 79305 | if (!PyErr_Occurred()) | |||
| 79306 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `v' of _flapack.dtpmqrt to C/Fortran array" ); | |||
| 79307 | } else { | |||
| 79308 | v = (double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 79309 | ||||
| 79310 | /* Processing variable ldv */ | |||
| 79311 | ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0])); | |||
| 79312 | /* Processing variable a */ | |||
| 79313 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 79314 | a_Dims[0]=(side[0]=='L'?k:m),a_Dims[1]=(side[0]=='L'?n:k); | |||
| 79315 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 79316 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 79317 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 79318 | if (!PyErr_Occurred()) | |||
| 79319 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.dtpmqrt to C/Fortran array" ); | |||
| 79320 | } else { | |||
| 79321 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 79322 | ||||
| 79323 | /* Processing variable lda */ | |||
| 79324 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 79325 | /* Processing variable work */ | |||
| 79326 | work_Dims[0]=(side[0]=='L'?n:m)*nb; | |||
| 79327 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 79328 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 79329 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 79330 | if (!PyErr_Occurred()) | |||
| 79331 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dtpmqrt to C/Fortran array" ); | |||
| 79332 | } else { | |||
| 79333 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 79334 | ||||
| 79335 | /*end of frompyobj*/ | |||
| 79336 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79337 | f2py_start_call_clock(); | |||
| 79338 | #endif | |||
| 79339 | /*callfortranroutine*/ | |||
| 79340 | (*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info) ; | |||
| 79341 | /*(*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info,slen(side),slen(trans));*/ | |||
| 79342 | if (PyErr_Occurred()) | |||
| 79343 | f2py_success = 0; | |||
| 79344 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79345 | f2py_stop_call_clock(); | |||
| 79346 | #endif | |||
| 79347 | /*end of callfortranroutine*/ | |||
| 79348 | if (f2py_success) { | |||
| 79349 | /*pyobjfrom*/ | |||
| 79350 | /*end of pyobjfrom*/ | |||
| 79351 | CFUNCSMESS("Building return value.\n"); | |||
| 79352 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info); | |||
| 79353 | /*closepyobjfrom*/ | |||
| 79354 | /*end of closepyobjfrom*/ | |||
| 79355 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 79356 | /*cleanupfrompyobj*/ | |||
| 79357 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 79358 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 79359 | /* End of cleaning variable work */ | |||
| 79360 | /* End of cleaning variable lda */ | |||
| 79361 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 79362 | /* End of cleaning variable a */ | |||
| 79363 | /* End of cleaning variable ldv */ | |||
| 79364 | if((PyObject *)capi_v_tmp!=v_capi) { | |||
| 79365 | Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); } | |||
| 79366 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 79367 | /* End of cleaning variable v */ | |||
| 79368 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 79369 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 79370 | } /*if (f2py_success) of trans*/ | |||
| 79371 | /* End of cleaning variable trans */ | |||
| 79372 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 79373 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 79374 | } /*if (f2py_success) of side*/ | |||
| 79375 | /* End of cleaning variable side */ | |||
| 79376 | /* End of cleaning variable ldb */ | |||
| 79377 | /* End of cleaning variable ldt */ | |||
| 79378 | } /*CHECKSCALAR(k>=nb&&nb>=1)*/ | |||
| 79379 | /* End of cleaning variable nb */ | |||
| 79380 | } /*CHECKSCALAR(k>=l&&l>=0)*/ | |||
| 79381 | } /*if (f2py_success) of l*/ | |||
| 79382 | /* End of cleaning variable l */ | |||
| 79383 | /* End of cleaning variable k */ | |||
| 79384 | /* End of cleaning variable n */ | |||
| 79385 | /* End of cleaning variable m */ | |||
| 79386 | /* End of cleaning variable info */ | |||
| 79387 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 79388 | /* End of cleaning variable b */ | |||
| 79389 | if((PyObject *)capi_t_tmp!=t_capi) { | |||
| 79390 | Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); } | |||
| 79391 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 79392 | /* End of cleaning variable t */ | |||
| 79393 | /*end of cleanupfrompyobj*/ | |||
| 79394 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 79395 | /*routdebugfailure*/ | |||
| 79396 | } else { | |||
| 79397 | /*routdebugleave*/ | |||
| 79398 | } | |||
| 79399 | CFUNCSMESS("Freeing memory.\n"); | |||
| 79400 | /*freemem*/ | |||
| 79401 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79402 | f2py_stop_clock(); | |||
| 79403 | #endif | |||
| 79404 | return capi_buildvalue; | |||
| 79405 | } | |||
| 79406 | /******************************* end of dtpmqrt *******************************/ | |||
| 79407 | ||||
| 79408 | /********************************** ctpmqrt **********************************/ | |||
| 79409 | static char doc_f2py_rout__flapack_ctpmqrt[] = "\ | |||
| 79410 | a,b,info = ctpmqrt(l,v,t,a,b,[side,trans,overwrite_a,overwrite_b])\n\nWrapper for ``ctpmqrt``.\ | |||
| 79411 | \n\nParameters\n----------\n" | |||
| 79412 | "l : input int\n" | |||
| 79413 | "v : input rank-2 array('F') with bounds ((side[0]=='L'?m:n),k)\n" | |||
| 79414 | "t : input rank-2 array('F') with bounds (nb,k)\n" | |||
| 79415 | "a : input rank-2 array('F') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n" | |||
| 79416 | "b : input rank-2 array('F') with bounds (m,n)\n" | |||
| 79417 | "\nOther Parameters\n----------------\n" | |||
| 79418 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 79419 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 79420 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 79421 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 79422 | "\nReturns\n-------\n" | |||
| 79423 | "a : rank-2 array('F') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n" | |||
| 79424 | "b : rank-2 array('F') with bounds (m,n)\n" | |||
| 79425 | "info : int"; | |||
| 79426 | /* extern void F_FUNC(ctpmqrt,CTPMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT* ); */ | |||
| 79427 | static PyObject *f2py_rout__flapack_ctpmqrt(const PyObject *capi_self, | |||
| 79428 | PyObject *capi_args, | |||
| 79429 | PyObject *capi_keywds, | |||
| 79430 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* )) { | |||
| 79431 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 79432 | volatile int f2py_success = 1; | |||
| 79433 | /*decl*/ | |||
| 79434 | ||||
| 79435 | string side = NULL((void*)0); | |||
| 79436 | int slen(side)capi_side_len; | |||
| 79437 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 79438 | string trans = NULL((void*)0); | |||
| 79439 | int slen(trans)capi_trans_len; | |||
| 79440 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 79441 | int m = 0; | |||
| 79442 | int n = 0; | |||
| 79443 | int k = 0; | |||
| 79444 | int l = 0; | |||
| 79445 | PyObject *l_capi = Py_None(&_Py_NoneStruct); | |||
| 79446 | int nb = 0; | |||
| 79447 | complex_float *v = NULL((void*)0); | |||
| 79448 | npy_intp v_Dims[2] = {-1, -1}; | |||
| 79449 | const int v_Rank = 2; | |||
| 79450 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 79451 | int capi_v_intent = 0; | |||
| 79452 | PyObject *v_capi = Py_None(&_Py_NoneStruct); | |||
| 79453 | int ldv = 0; | |||
| 79454 | complex_float *t = NULL((void*)0); | |||
| 79455 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 79456 | const int t_Rank = 2; | |||
| 79457 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 79458 | int capi_t_intent = 0; | |||
| 79459 | PyObject *t_capi = Py_None(&_Py_NoneStruct); | |||
| 79460 | int ldt = 0; | |||
| 79461 | complex_float *a = NULL((void*)0); | |||
| 79462 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 79463 | const int a_Rank = 2; | |||
| 79464 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 79465 | int capi_a_intent = 0; | |||
| 79466 | int capi_overwrite_a = 0; | |||
| 79467 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 79468 | int lda = 0; | |||
| 79469 | complex_float *b = NULL((void*)0); | |||
| 79470 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 79471 | const int b_Rank = 2; | |||
| 79472 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 79473 | int capi_b_intent = 0; | |||
| 79474 | int capi_overwrite_b = 0; | |||
| 79475 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 79476 | int ldb = 0; | |||
| 79477 | complex_float *work = NULL((void*)0); | |||
| 79478 | npy_intp work_Dims[1] = {-1}; | |||
| 79479 | const int work_Rank = 1; | |||
| 79480 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 79481 | int capi_work_intent = 0; | |||
| 79482 | int info = 0; | |||
| 79483 | static char *capi_kwlist[] = {"l","v","t","a","b","side","trans","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 79484 | ||||
| 79485 | /*routdebugenter*/ | |||
| 79486 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79487 | f2py_start_clock(); | |||
| 79488 | #endif | |||
| 79489 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 79490 | "OOOOO|OOii:_flapack.ctpmqrt",\ | |||
| 79491 | capi_kwlist,&l_capi,&v_capi,&t_capi,&a_capi,&b_capi,&side_capi,&trans_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 79492 | return NULL((void*)0); | |||
| 79493 | /*frompyobj*/ | |||
| 79494 | /* Processing variable t */ | |||
| 79495 | ; | |||
| 79496 | capi_t_intent |= F2PY_INTENT_IN1; | |||
| 79497 | capi_t_tmp = array_from_pyobj(NPY_CFLOAT,t_Dims,t_Rank,capi_t_intent,t_capi); | |||
| 79498 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 79499 | if (!PyErr_Occurred()) | |||
| 79500 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `t' of _flapack.ctpmqrt to C/Fortran array" ); | |||
| 79501 | } else { | |||
| 79502 | t = (complex_float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 79503 | ||||
| 79504 | /* Processing variable b */ | |||
| 79505 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 79506 | ; | |||
| 79507 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 79508 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 79509 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 79510 | if (!PyErr_Occurred()) | |||
| 79511 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `b' of _flapack.ctpmqrt to C/Fortran array" ); | |||
| 79512 | } else { | |||
| 79513 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 79514 | ||||
| 79515 | /* Processing variable info */ | |||
| 79516 | /* Processing variable m */ | |||
| 79517 | m = shape(b,0)b_Dims[0]; | |||
| 79518 | /* Processing variable n */ | |||
| 79519 | n = shape(b,1)b_Dims[1]; | |||
| 79520 | /* Processing variable k */ | |||
| 79521 | k = shape(t,1)t_Dims[1]; | |||
| 79522 | /* Processing variable l */ | |||
| 79523 | f2py_success = int_from_pyobj(&l,l_capi,"_flapack.ctpmqrt() 1st argument (l) can't be converted to int"); | |||
| 79524 | if (f2py_success) { | |||
| 79525 | CHECKSCALAR(k>=l&&l>=0,"k>=l&&l>=0","1st argument l","ctpmqrt:l=%d",l)if (!(k>=l&&l>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctpmqrt:l=%d", "(""k>=l&&l>=0"") failed for " "1st argument l", l); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 79526 | /* Processing variable nb */ | |||
| 79527 | nb = shape(t,0)t_Dims[0]; | |||
| 79528 | CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","ctpmqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctpmqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for " "hidden nb", nb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 79529 | /* Processing variable ldt */ | |||
| 79530 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 79531 | /* Processing variable ldb */ | |||
| 79532 | ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 79533 | /* Processing variable side */ | |||
| 79534 | slen(side)capi_side_len = 1; | |||
| 79535 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.ctpmqrt to C string"); | |||
| 79536 | if (f2py_success) { | |||
| 79537 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","ctpmqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctpmqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 79538 | /* Processing variable trans */ | |||
| 79539 | slen(trans)capi_trans_len = 1; | |||
| 79540 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.ctpmqrt to C string"); | |||
| 79541 | if (f2py_success) { | |||
| 79542 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","ctpmqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctpmqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 79543 | /* Processing variable v */ | |||
| 79544 | v_Dims[0]=(side[0]=='L'?m:n),v_Dims[1]=k; | |||
| 79545 | capi_v_intent |= F2PY_INTENT_IN1; | |||
| 79546 | capi_v_tmp = array_from_pyobj(NPY_CFLOAT,v_Dims,v_Rank,capi_v_intent,v_capi); | |||
| 79547 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 79548 | if (!PyErr_Occurred()) | |||
| 79549 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `v' of _flapack.ctpmqrt to C/Fortran array" ); | |||
| 79550 | } else { | |||
| 79551 | v = (complex_float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 79552 | ||||
| 79553 | /* Processing variable ldv */ | |||
| 79554 | ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0])); | |||
| 79555 | /* Processing variable a */ | |||
| 79556 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 79557 | a_Dims[0]=(side[0]=='L'?k:m),a_Dims[1]=(side[0]=='L'?n:k); | |||
| 79558 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 79559 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 79560 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 79561 | if (!PyErr_Occurred()) | |||
| 79562 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.ctpmqrt to C/Fortran array" ); | |||
| 79563 | } else { | |||
| 79564 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 79565 | ||||
| 79566 | /* Processing variable lda */ | |||
| 79567 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 79568 | /* Processing variable work */ | |||
| 79569 | work_Dims[0]=(side[0]=='L'?n:m)*nb; | |||
| 79570 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 79571 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 79572 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 79573 | if (!PyErr_Occurred()) | |||
| 79574 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ctpmqrt to C/Fortran array" ); | |||
| 79575 | } else { | |||
| 79576 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 79577 | ||||
| 79578 | /*end of frompyobj*/ | |||
| 79579 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79580 | f2py_start_call_clock(); | |||
| 79581 | #endif | |||
| 79582 | /*callfortranroutine*/ | |||
| 79583 | (*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info) ; | |||
| 79584 | /*(*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info,slen(side),slen(trans));*/ | |||
| 79585 | if (PyErr_Occurred()) | |||
| 79586 | f2py_success = 0; | |||
| 79587 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79588 | f2py_stop_call_clock(); | |||
| 79589 | #endif | |||
| 79590 | /*end of callfortranroutine*/ | |||
| 79591 | if (f2py_success) { | |||
| 79592 | /*pyobjfrom*/ | |||
| 79593 | /*end of pyobjfrom*/ | |||
| 79594 | CFUNCSMESS("Building return value.\n"); | |||
| 79595 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info); | |||
| 79596 | /*closepyobjfrom*/ | |||
| 79597 | /*end of closepyobjfrom*/ | |||
| 79598 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 79599 | /*cleanupfrompyobj*/ | |||
| 79600 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 79601 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 79602 | /* End of cleaning variable work */ | |||
| 79603 | /* End of cleaning variable lda */ | |||
| 79604 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 79605 | /* End of cleaning variable a */ | |||
| 79606 | /* End of cleaning variable ldv */ | |||
| 79607 | if((PyObject *)capi_v_tmp!=v_capi) { | |||
| 79608 | Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); } | |||
| 79609 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 79610 | /* End of cleaning variable v */ | |||
| 79611 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 79612 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 79613 | } /*if (f2py_success) of trans*/ | |||
| 79614 | /* End of cleaning variable trans */ | |||
| 79615 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 79616 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 79617 | } /*if (f2py_success) of side*/ | |||
| 79618 | /* End of cleaning variable side */ | |||
| 79619 | /* End of cleaning variable ldb */ | |||
| 79620 | /* End of cleaning variable ldt */ | |||
| 79621 | } /*CHECKSCALAR(k>=nb&&nb>=1)*/ | |||
| 79622 | /* End of cleaning variable nb */ | |||
| 79623 | } /*CHECKSCALAR(k>=l&&l>=0)*/ | |||
| 79624 | } /*if (f2py_success) of l*/ | |||
| 79625 | /* End of cleaning variable l */ | |||
| 79626 | /* End of cleaning variable k */ | |||
| 79627 | /* End of cleaning variable n */ | |||
| 79628 | /* End of cleaning variable m */ | |||
| 79629 | /* End of cleaning variable info */ | |||
| 79630 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 79631 | /* End of cleaning variable b */ | |||
| 79632 | if((PyObject *)capi_t_tmp!=t_capi) { | |||
| 79633 | Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); } | |||
| 79634 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 79635 | /* End of cleaning variable t */ | |||
| 79636 | /*end of cleanupfrompyobj*/ | |||
| 79637 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 79638 | /*routdebugfailure*/ | |||
| 79639 | } else { | |||
| 79640 | /*routdebugleave*/ | |||
| 79641 | } | |||
| 79642 | CFUNCSMESS("Freeing memory.\n"); | |||
| 79643 | /*freemem*/ | |||
| 79644 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79645 | f2py_stop_clock(); | |||
| 79646 | #endif | |||
| 79647 | return capi_buildvalue; | |||
| 79648 | } | |||
| 79649 | /******************************* end of ctpmqrt *******************************/ | |||
| 79650 | ||||
| 79651 | /********************************** ztpmqrt **********************************/ | |||
| 79652 | static char doc_f2py_rout__flapack_ztpmqrt[] = "\ | |||
| 79653 | a,b,info = ztpmqrt(l,v,t,a,b,[side,trans,overwrite_a,overwrite_b])\n\nWrapper for ``ztpmqrt``.\ | |||
| 79654 | \n\nParameters\n----------\n" | |||
| 79655 | "l : input int\n" | |||
| 79656 | "v : input rank-2 array('D') with bounds ((side[0]=='L'?m:n),k)\n" | |||
| 79657 | "t : input rank-2 array('D') with bounds (nb,k)\n" | |||
| 79658 | "a : input rank-2 array('D') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n" | |||
| 79659 | "b : input rank-2 array('D') with bounds (m,n)\n" | |||
| 79660 | "\nOther Parameters\n----------------\n" | |||
| 79661 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 79662 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 79663 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 79664 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 79665 | "\nReturns\n-------\n" | |||
| 79666 | "a : rank-2 array('D') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n" | |||
| 79667 | "b : rank-2 array('D') with bounds (m,n)\n" | |||
| 79668 | "info : int"; | |||
| 79669 | /* extern void F_FUNC(ztpmqrt,ZTPMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT* ); */ | |||
| 79670 | static PyObject *f2py_rout__flapack_ztpmqrt(const PyObject *capi_self, | |||
| 79671 | PyObject *capi_args, | |||
| 79672 | PyObject *capi_keywds, | |||
| 79673 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* )) { | |||
| 79674 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 79675 | volatile int f2py_success = 1; | |||
| 79676 | /*decl*/ | |||
| 79677 | ||||
| 79678 | string side = NULL((void*)0); | |||
| 79679 | int slen(side)capi_side_len; | |||
| 79680 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 79681 | string trans = NULL((void*)0); | |||
| 79682 | int slen(trans)capi_trans_len; | |||
| 79683 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 79684 | int m = 0; | |||
| 79685 | int n = 0; | |||
| 79686 | int k = 0; | |||
| 79687 | int l = 0; | |||
| 79688 | PyObject *l_capi = Py_None(&_Py_NoneStruct); | |||
| 79689 | int nb = 0; | |||
| 79690 | complex_double *v = NULL((void*)0); | |||
| 79691 | npy_intp v_Dims[2] = {-1, -1}; | |||
| 79692 | const int v_Rank = 2; | |||
| 79693 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 79694 | int capi_v_intent = 0; | |||
| 79695 | PyObject *v_capi = Py_None(&_Py_NoneStruct); | |||
| 79696 | int ldv = 0; | |||
| 79697 | complex_double *t = NULL((void*)0); | |||
| 79698 | npy_intp t_Dims[2] = {-1, -1}; | |||
| 79699 | const int t_Rank = 2; | |||
| 79700 | PyArrayObject *capi_t_tmp = NULL((void*)0); | |||
| 79701 | int capi_t_intent = 0; | |||
| 79702 | PyObject *t_capi = Py_None(&_Py_NoneStruct); | |||
| 79703 | int ldt = 0; | |||
| 79704 | complex_double *a = NULL((void*)0); | |||
| 79705 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 79706 | const int a_Rank = 2; | |||
| 79707 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 79708 | int capi_a_intent = 0; | |||
| 79709 | int capi_overwrite_a = 0; | |||
| 79710 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 79711 | int lda = 0; | |||
| 79712 | complex_double *b = NULL((void*)0); | |||
| 79713 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 79714 | const int b_Rank = 2; | |||
| 79715 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 79716 | int capi_b_intent = 0; | |||
| 79717 | int capi_overwrite_b = 0; | |||
| 79718 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 79719 | int ldb = 0; | |||
| 79720 | complex_double *work = NULL((void*)0); | |||
| 79721 | npy_intp work_Dims[1] = {-1}; | |||
| 79722 | const int work_Rank = 1; | |||
| 79723 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 79724 | int capi_work_intent = 0; | |||
| 79725 | int info = 0; | |||
| 79726 | static char *capi_kwlist[] = {"l","v","t","a","b","side","trans","overwrite_a","overwrite_b",NULL((void*)0)}; | |||
| 79727 | ||||
| 79728 | /*routdebugenter*/ | |||
| 79729 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79730 | f2py_start_clock(); | |||
| 79731 | #endif | |||
| 79732 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 79733 | "OOOOO|OOii:_flapack.ztpmqrt",\ | |||
| 79734 | capi_kwlist,&l_capi,&v_capi,&t_capi,&a_capi,&b_capi,&side_capi,&trans_capi,&capi_overwrite_a,&capi_overwrite_b)) | |||
| 79735 | return NULL((void*)0); | |||
| 79736 | /*frompyobj*/ | |||
| 79737 | /* Processing variable t */ | |||
| 79738 | ; | |||
| 79739 | capi_t_intent |= F2PY_INTENT_IN1; | |||
| 79740 | capi_t_tmp = array_from_pyobj(NPY_CDOUBLE,t_Dims,t_Rank,capi_t_intent,t_capi); | |||
| 79741 | if (capi_t_tmp == NULL((void*)0)) { | |||
| 79742 | if (!PyErr_Occurred()) | |||
| 79743 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `t' of _flapack.ztpmqrt to C/Fortran array" ); | |||
| 79744 | } else { | |||
| 79745 | t = (complex_double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data)); | |||
| 79746 | ||||
| 79747 | /* Processing variable b */ | |||
| 79748 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 79749 | ; | |||
| 79750 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 79751 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 79752 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 79753 | if (!PyErr_Occurred()) | |||
| 79754 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `b' of _flapack.ztpmqrt to C/Fortran array" ); | |||
| 79755 | } else { | |||
| 79756 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 79757 | ||||
| 79758 | /* Processing variable info */ | |||
| 79759 | /* Processing variable m */ | |||
| 79760 | m = shape(b,0)b_Dims[0]; | |||
| 79761 | /* Processing variable n */ | |||
| 79762 | n = shape(b,1)b_Dims[1]; | |||
| 79763 | /* Processing variable k */ | |||
| 79764 | k = shape(t,1)t_Dims[1]; | |||
| 79765 | /* Processing variable l */ | |||
| 79766 | f2py_success = int_from_pyobj(&l,l_capi,"_flapack.ztpmqrt() 1st argument (l) can't be converted to int"); | |||
| 79767 | if (f2py_success) { | |||
| 79768 | CHECKSCALAR(k>=l&&l>=0,"k>=l&&l>=0","1st argument l","ztpmqrt:l=%d",l)if (!(k>=l&&l>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztpmqrt:l=%d", "(""k>=l&&l>=0"") failed for " "1st argument l", l); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 79769 | /* Processing variable nb */ | |||
| 79770 | nb = shape(t,0)t_Dims[0]; | |||
| 79771 | CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","ztpmqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztpmqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for " "hidden nb", nb); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 79772 | /* Processing variable ldt */ | |||
| 79773 | ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0])); | |||
| 79774 | /* Processing variable ldb */ | |||
| 79775 | ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 79776 | /* Processing variable side */ | |||
| 79777 | slen(side)capi_side_len = 1; | |||
| 79778 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.ztpmqrt to C string"); | |||
| 79779 | if (f2py_success) { | |||
| 79780 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","ztpmqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztpmqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 79781 | /* Processing variable trans */ | |||
| 79782 | slen(trans)capi_trans_len = 1; | |||
| 79783 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.ztpmqrt to C string"); | |||
| 79784 | if (f2py_success) { | |||
| 79785 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","ztpmqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztpmqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 79786 | /* Processing variable v */ | |||
| 79787 | v_Dims[0]=(side[0]=='L'?m:n),v_Dims[1]=k; | |||
| 79788 | capi_v_intent |= F2PY_INTENT_IN1; | |||
| 79789 | capi_v_tmp = array_from_pyobj(NPY_CDOUBLE,v_Dims,v_Rank,capi_v_intent,v_capi); | |||
| 79790 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 79791 | if (!PyErr_Occurred()) | |||
| 79792 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `v' of _flapack.ztpmqrt to C/Fortran array" ); | |||
| 79793 | } else { | |||
| 79794 | v = (complex_double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 79795 | ||||
| 79796 | /* Processing variable ldv */ | |||
| 79797 | ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0])); | |||
| 79798 | /* Processing variable a */ | |||
| 79799 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 79800 | a_Dims[0]=(side[0]=='L'?k:m),a_Dims[1]=(side[0]=='L'?n:k); | |||
| 79801 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 79802 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 79803 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 79804 | if (!PyErr_Occurred()) | |||
| 79805 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.ztpmqrt to C/Fortran array" ); | |||
| 79806 | } else { | |||
| 79807 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 79808 | ||||
| 79809 | /* Processing variable lda */ | |||
| 79810 | lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0])); | |||
| 79811 | /* Processing variable work */ | |||
| 79812 | work_Dims[0]=(side[0]=='L'?n:m)*nb; | |||
| 79813 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 79814 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 79815 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 79816 | if (!PyErr_Occurred()) | |||
| 79817 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ztpmqrt to C/Fortran array" ); | |||
| 79818 | } else { | |||
| 79819 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 79820 | ||||
| 79821 | /*end of frompyobj*/ | |||
| 79822 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79823 | f2py_start_call_clock(); | |||
| 79824 | #endif | |||
| 79825 | /*callfortranroutine*/ | |||
| 79826 | (*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info) ; | |||
| 79827 | /*(*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info,slen(side),slen(trans));*/ | |||
| 79828 | if (PyErr_Occurred()) | |||
| 79829 | f2py_success = 0; | |||
| 79830 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79831 | f2py_stop_call_clock(); | |||
| 79832 | #endif | |||
| 79833 | /*end of callfortranroutine*/ | |||
| 79834 | if (f2py_success) { | |||
| 79835 | /*pyobjfrom*/ | |||
| 79836 | /*end of pyobjfrom*/ | |||
| 79837 | CFUNCSMESS("Building return value.\n"); | |||
| 79838 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info); | |||
| 79839 | /*closepyobjfrom*/ | |||
| 79840 | /*end of closepyobjfrom*/ | |||
| 79841 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 79842 | /*cleanupfrompyobj*/ | |||
| 79843 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 79844 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 79845 | /* End of cleaning variable work */ | |||
| 79846 | /* End of cleaning variable lda */ | |||
| 79847 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 79848 | /* End of cleaning variable a */ | |||
| 79849 | /* End of cleaning variable ldv */ | |||
| 79850 | if((PyObject *)capi_v_tmp!=v_capi) { | |||
| 79851 | Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); } | |||
| 79852 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 79853 | /* End of cleaning variable v */ | |||
| 79854 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 79855 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 79856 | } /*if (f2py_success) of trans*/ | |||
| 79857 | /* End of cleaning variable trans */ | |||
| 79858 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 79859 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 79860 | } /*if (f2py_success) of side*/ | |||
| 79861 | /* End of cleaning variable side */ | |||
| 79862 | /* End of cleaning variable ldb */ | |||
| 79863 | /* End of cleaning variable ldt */ | |||
| 79864 | } /*CHECKSCALAR(k>=nb&&nb>=1)*/ | |||
| 79865 | /* End of cleaning variable nb */ | |||
| 79866 | } /*CHECKSCALAR(k>=l&&l>=0)*/ | |||
| 79867 | } /*if (f2py_success) of l*/ | |||
| 79868 | /* End of cleaning variable l */ | |||
| 79869 | /* End of cleaning variable k */ | |||
| 79870 | /* End of cleaning variable n */ | |||
| 79871 | /* End of cleaning variable m */ | |||
| 79872 | /* End of cleaning variable info */ | |||
| 79873 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 79874 | /* End of cleaning variable b */ | |||
| 79875 | if((PyObject *)capi_t_tmp!=t_capi) { | |||
| 79876 | Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); } | |||
| 79877 | } /*if (capi_t_tmp == NULL) ... else of t*/ | |||
| 79878 | /* End of cleaning variable t */ | |||
| 79879 | /*end of cleanupfrompyobj*/ | |||
| 79880 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 79881 | /*routdebugfailure*/ | |||
| 79882 | } else { | |||
| 79883 | /*routdebugleave*/ | |||
| 79884 | } | |||
| 79885 | CFUNCSMESS("Freeing memory.\n"); | |||
| 79886 | /*freemem*/ | |||
| 79887 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79888 | f2py_stop_clock(); | |||
| 79889 | #endif | |||
| 79890 | return capi_buildvalue; | |||
| 79891 | } | |||
| 79892 | /******************************* end of ztpmqrt *******************************/ | |||
| 79893 | ||||
| 79894 | /*********************************** sormrz ***********************************/ | |||
| 79895 | static char doc_f2py_rout__flapack_sormrz[] = "\ | |||
| 79896 | cq,info = sormrz(a,tau,c,[side,trans,lwork,overwrite_c])\n\nWrapper for ``sormrz``.\ | |||
| 79897 | \n\nParameters\n----------\n" | |||
| 79898 | "a : input rank-2 array('f') with bounds (k,nt)\n" | |||
| 79899 | "tau : input rank-1 array('f') with bounds (k)\n" | |||
| 79900 | "c : input rank-2 array('f') with bounds (m,n)\n" | |||
| 79901 | "\nOther Parameters\n----------------\n" | |||
| 79902 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 79903 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 79904 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 79905 | "lwork : input int, optional\n Default: MAX((side[0]=='L'?n:m),1)\n" | |||
| 79906 | "\nReturns\n-------\n" | |||
| 79907 | "cq : rank-2 array('f') with bounds (m,n) and c storage\n" | |||
| 79908 | "info : int"; | |||
| 79909 | /* extern void F_FUNC(sormrz,SORMRZ)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 79910 | static PyObject *f2py_rout__flapack_sormrz(const PyObject *capi_self, | |||
| 79911 | PyObject *capi_args, | |||
| 79912 | PyObject *capi_keywds, | |||
| 79913 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 79914 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 79915 | volatile int f2py_success = 1; | |||
| 79916 | /*decl*/ | |||
| 79917 | ||||
| 79918 | string side = NULL((void*)0); | |||
| 79919 | int slen(side)capi_side_len; | |||
| 79920 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 79921 | string trans = NULL((void*)0); | |||
| 79922 | int slen(trans)capi_trans_len; | |||
| 79923 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 79924 | int m = 0; | |||
| 79925 | int n = 0; | |||
| 79926 | int k = 0; | |||
| 79927 | int l = 0; | |||
| 79928 | float *a = NULL((void*)0); | |||
| 79929 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 79930 | const int a_Rank = 2; | |||
| 79931 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 79932 | int capi_a_intent = 0; | |||
| 79933 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 79934 | int lda = 0; | |||
| 79935 | int nt = 0; | |||
| 79936 | float *tau = NULL((void*)0); | |||
| 79937 | npy_intp tau_Dims[1] = {-1}; | |||
| 79938 | const int tau_Rank = 1; | |||
| 79939 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 79940 | int capi_tau_intent = 0; | |||
| 79941 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 79942 | float *c = NULL((void*)0); | |||
| 79943 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 79944 | const int c_Rank = 2; | |||
| 79945 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 79946 | int capi_c_intent = 0; | |||
| 79947 | int capi_overwrite_c = 0; | |||
| 79948 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 79949 | int ldc = 0; | |||
| 79950 | float *work = NULL((void*)0); | |||
| 79951 | npy_intp work_Dims[1] = {-1}; | |||
| 79952 | const int work_Rank = 1; | |||
| 79953 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 79954 | int capi_work_intent = 0; | |||
| 79955 | int lwork = 0; | |||
| 79956 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 79957 | int info = 0; | |||
| 79958 | static char *capi_kwlist[] = {"a","tau","c","side","trans","lwork","overwrite_c",NULL((void*)0)}; | |||
| 79959 | ||||
| 79960 | /*routdebugenter*/ | |||
| 79961 | #ifdef F2PY_REPORT_ATEXIT | |||
| 79962 | f2py_start_clock(); | |||
| 79963 | #endif | |||
| 79964 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 79965 | "OOO|OOOi:_flapack.sormrz",\ | |||
| 79966 | capi_kwlist,&a_capi,&tau_capi,&c_capi,&side_capi,&trans_capi,&lwork_capi,&capi_overwrite_c)) | |||
| 79967 | return NULL((void*)0); | |||
| 79968 | /*frompyobj*/ | |||
| 79969 | /* Processing variable a */ | |||
| 79970 | ; | |||
| 79971 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 79972 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 79973 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 79974 | if (!PyErr_Occurred()) | |||
| 79975 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sormrz to C/Fortran array" ); | |||
| 79976 | } else { | |||
| 79977 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 79978 | ||||
| 79979 | CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a" ); } else { | |||
| 79980 | /* Processing variable c */ | |||
| 79981 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 79982 | ; | |||
| 79983 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 79984 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 79985 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 79986 | if (!PyErr_Occurred()) | |||
| 79987 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.sormrz to C/Fortran array" ); | |||
| 79988 | } else { | |||
| 79989 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 79990 | ||||
| 79991 | /* Processing variable info */ | |||
| 79992 | /* Processing variable m */ | |||
| 79993 | m = shape(c,0)c_Dims[0]; | |||
| 79994 | CHECKSCALAR(m>=0,"m>=0","hidden m","sormrz:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sormrz:m=%d", "(""m>=0"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 79995 | /* Processing variable n */ | |||
| 79996 | n = shape(c,1)c_Dims[1]; | |||
| 79997 | CHECKSCALAR(n>=0,"n>=0","hidden n","sormrz:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sormrz:n=%d", "(""n>=0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 79998 | /* Processing variable k */ | |||
| 79999 | k = shape(a,0)a_Dims[0]; | |||
| 80000 | /* Processing variable l */ | |||
| 80001 | l = shape(a,1)a_Dims[1]-shape(a,0)a_Dims[0]; | |||
| 80002 | /* Processing variable lda */ | |||
| 80003 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 80004 | /* Processing variable tau */ | |||
| 80005 | tau_Dims[0]=k; | |||
| 80006 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 80007 | capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 80008 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 80009 | if (!PyErr_Occurred()) | |||
| 80010 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.sormrz to C/Fortran array" ); | |||
| 80011 | } else { | |||
| 80012 | tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 80013 | ||||
| 80014 | CHECKARRAY(rank(tau)==1,"rank(tau)==1","2nd argument tau")if (!(tau_Rank==1)) { PyErr_SetString(_flapack_error,"(""rank(tau)==1" ") failed for ""2nd argument tau"); } else { | |||
| 80015 | /* Processing variable ldc */ | |||
| 80016 | ldc = MAX(shape(c,0),1)((c_Dims[0] > 1) ? (c_Dims[0]) : (1)); | |||
| 80017 | /* Processing variable side */ | |||
| 80018 | slen(side)capi_side_len = 1; | |||
| 80019 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.sormrz to C string"); | |||
| 80020 | if (f2py_success) { | |||
| 80021 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","sormrz:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sormrz:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 80022 | /* Processing variable trans */ | |||
| 80023 | slen(trans)capi_trans_len = 1; | |||
| 80024 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.sormrz to C string"); | |||
| 80025 | if (f2py_success) { | |||
| 80026 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","sormrz:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sormrz:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 80027 | /* Processing variable nt */ | |||
| 80028 | nt = shape(a,1)a_Dims[1]; | |||
| 80029 | CHECKSCALAR((*side=='L'?m:n)==nt,"(*side=='L'?m:n)==nt","hidden nt","sormrz:nt=%d",nt)if (!((*side=='L'?m:n)==nt)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sormrz:nt=%d", "(""(*side=='L'?m:n)==nt"") failed for " "hidden nt", nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 80030 | /* Processing variable lwork */ | |||
| 80031 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX((side[0]=='L'?n:m),1)(((side[0]=='L'?n:m) > 1) ? ((side[0]=='L'?n:m)) : (1)); else | |||
| 80032 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sormrz() 3rd keyword (lwork) can't be converted to int"); | |||
| 80033 | if (f2py_success) { | |||
| 80034 | CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1,"lwork>=(*side=='L'?n:m)||lwork==-1","3rd keyword lwork","sormrz:lwork=%d",lwork)if (!(lwork>=(*side=='L'?n:m)||lwork==-1)) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sormrz:lwork=%d", "(""lwork>=(*side=='L'?n:m)||lwork==-1" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 80035 | /* Processing variable work */ | |||
| 80036 | work_Dims[0]=lwork; | |||
| 80037 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 80038 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 80039 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 80040 | if (!PyErr_Occurred()) | |||
| 80041 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sormrz to C/Fortran array" ); | |||
| 80042 | } else { | |||
| 80043 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 80044 | ||||
| 80045 | /*end of frompyobj*/ | |||
| 80046 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80047 | f2py_start_call_clock(); | |||
| 80048 | #endif | |||
| 80049 | /*callfortranroutine*/ | |||
| 80050 | (*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,tau,c,&ldc,work,&lwork,&info) ; | |||
| 80051 | /*(*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,&nt,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/ | |||
| 80052 | if (PyErr_Occurred()) | |||
| 80053 | f2py_success = 0; | |||
| 80054 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80055 | f2py_stop_call_clock(); | |||
| 80056 | #endif | |||
| 80057 | /*end of callfortranroutine*/ | |||
| 80058 | if (f2py_success) { | |||
| 80059 | /*pyobjfrom*/ | |||
| 80060 | /*end of pyobjfrom*/ | |||
| 80061 | CFUNCSMESS("Building return value.\n"); | |||
| 80062 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 80063 | /*closepyobjfrom*/ | |||
| 80064 | /*end of closepyobjfrom*/ | |||
| 80065 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 80066 | /*cleanupfrompyobj*/ | |||
| 80067 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 80068 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 80069 | /* End of cleaning variable work */ | |||
| 80070 | } /*CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1)*/ | |||
| 80071 | } /*if (f2py_success) of lwork*/ | |||
| 80072 | /* End of cleaning variable lwork */ | |||
| 80073 | } /*CHECKSCALAR((*side=='L'?m:n)==nt)*/ | |||
| 80074 | /* End of cleaning variable nt */ | |||
| 80075 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 80076 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 80077 | } /*if (f2py_success) of trans*/ | |||
| 80078 | /* End of cleaning variable trans */ | |||
| 80079 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 80080 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 80081 | } /*if (f2py_success) of side*/ | |||
| 80082 | /* End of cleaning variable side */ | |||
| 80083 | /* End of cleaning variable ldc */ | |||
| 80084 | } /*CHECKARRAY(rank(tau)==1)*/ | |||
| 80085 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 80086 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 80087 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 80088 | /* End of cleaning variable tau */ | |||
| 80089 | /* End of cleaning variable lda */ | |||
| 80090 | /* End of cleaning variable l */ | |||
| 80091 | /* End of cleaning variable k */ | |||
| 80092 | } /*CHECKSCALAR(n>=0)*/ | |||
| 80093 | /* End of cleaning variable n */ | |||
| 80094 | } /*CHECKSCALAR(m>=0)*/ | |||
| 80095 | /* End of cleaning variable m */ | |||
| 80096 | /* End of cleaning variable info */ | |||
| 80097 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 80098 | /* End of cleaning variable c */ | |||
| 80099 | } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/ | |||
| 80100 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 80101 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 80102 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 80103 | /* End of cleaning variable a */ | |||
| 80104 | /*end of cleanupfrompyobj*/ | |||
| 80105 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 80106 | /*routdebugfailure*/ | |||
| 80107 | } else { | |||
| 80108 | /*routdebugleave*/ | |||
| 80109 | } | |||
| 80110 | CFUNCSMESS("Freeing memory.\n"); | |||
| 80111 | /*freemem*/ | |||
| 80112 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80113 | f2py_stop_clock(); | |||
| 80114 | #endif | |||
| 80115 | return capi_buildvalue; | |||
| 80116 | } | |||
| 80117 | /******************************* end of sormrz *******************************/ | |||
| 80118 | ||||
| 80119 | /*********************************** dormrz ***********************************/ | |||
| 80120 | static char doc_f2py_rout__flapack_dormrz[] = "\ | |||
| 80121 | cq,info = dormrz(a,tau,c,[side,trans,lwork,overwrite_c])\n\nWrapper for ``dormrz``.\ | |||
| 80122 | \n\nParameters\n----------\n" | |||
| 80123 | "a : input rank-2 array('d') with bounds (k,nt)\n" | |||
| 80124 | "tau : input rank-1 array('d') with bounds (k)\n" | |||
| 80125 | "c : input rank-2 array('d') with bounds (m,n)\n" | |||
| 80126 | "\nOther Parameters\n----------------\n" | |||
| 80127 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 80128 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 80129 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 80130 | "lwork : input int, optional\n Default: MAX((side[0]=='L'?n:m),1)\n" | |||
| 80131 | "\nReturns\n-------\n" | |||
| 80132 | "cq : rank-2 array('d') with bounds (m,n) and c storage\n" | |||
| 80133 | "info : int"; | |||
| 80134 | /* extern void F_FUNC(dormrz,DORMRZ)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 80135 | static PyObject *f2py_rout__flapack_dormrz(const PyObject *capi_self, | |||
| 80136 | PyObject *capi_args, | |||
| 80137 | PyObject *capi_keywds, | |||
| 80138 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 80139 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 80140 | volatile int f2py_success = 1; | |||
| 80141 | /*decl*/ | |||
| 80142 | ||||
| 80143 | string side = NULL((void*)0); | |||
| 80144 | int slen(side)capi_side_len; | |||
| 80145 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 80146 | string trans = NULL((void*)0); | |||
| 80147 | int slen(trans)capi_trans_len; | |||
| 80148 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 80149 | int m = 0; | |||
| 80150 | int n = 0; | |||
| 80151 | int k = 0; | |||
| 80152 | int l = 0; | |||
| 80153 | double *a = NULL((void*)0); | |||
| 80154 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 80155 | const int a_Rank = 2; | |||
| 80156 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 80157 | int capi_a_intent = 0; | |||
| 80158 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 80159 | int lda = 0; | |||
| 80160 | int nt = 0; | |||
| 80161 | double *tau = NULL((void*)0); | |||
| 80162 | npy_intp tau_Dims[1] = {-1}; | |||
| 80163 | const int tau_Rank = 1; | |||
| 80164 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 80165 | int capi_tau_intent = 0; | |||
| 80166 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 80167 | double *c = NULL((void*)0); | |||
| 80168 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 80169 | const int c_Rank = 2; | |||
| 80170 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 80171 | int capi_c_intent = 0; | |||
| 80172 | int capi_overwrite_c = 0; | |||
| 80173 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 80174 | int ldc = 0; | |||
| 80175 | double *work = NULL((void*)0); | |||
| 80176 | npy_intp work_Dims[1] = {-1}; | |||
| 80177 | const int work_Rank = 1; | |||
| 80178 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 80179 | int capi_work_intent = 0; | |||
| 80180 | int lwork = 0; | |||
| 80181 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 80182 | int info = 0; | |||
| 80183 | static char *capi_kwlist[] = {"a","tau","c","side","trans","lwork","overwrite_c",NULL((void*)0)}; | |||
| 80184 | ||||
| 80185 | /*routdebugenter*/ | |||
| 80186 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80187 | f2py_start_clock(); | |||
| 80188 | #endif | |||
| 80189 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 80190 | "OOO|OOOi:_flapack.dormrz",\ | |||
| 80191 | capi_kwlist,&a_capi,&tau_capi,&c_capi,&side_capi,&trans_capi,&lwork_capi,&capi_overwrite_c)) | |||
| 80192 | return NULL((void*)0); | |||
| 80193 | /*frompyobj*/ | |||
| 80194 | /* Processing variable a */ | |||
| 80195 | ; | |||
| 80196 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 80197 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 80198 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 80199 | if (!PyErr_Occurred()) | |||
| 80200 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dormrz to C/Fortran array" ); | |||
| 80201 | } else { | |||
| 80202 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 80203 | ||||
| 80204 | CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a" ); } else { | |||
| 80205 | /* Processing variable c */ | |||
| 80206 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 80207 | ; | |||
| 80208 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 80209 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 80210 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 80211 | if (!PyErr_Occurred()) | |||
| 80212 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.dormrz to C/Fortran array" ); | |||
| 80213 | } else { | |||
| 80214 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 80215 | ||||
| 80216 | /* Processing variable info */ | |||
| 80217 | /* Processing variable m */ | |||
| 80218 | m = shape(c,0)c_Dims[0]; | |||
| 80219 | CHECKSCALAR(m>=0,"m>=0","hidden m","dormrz:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dormrz:m=%d", "(""m>=0"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 80220 | /* Processing variable n */ | |||
| 80221 | n = shape(c,1)c_Dims[1]; | |||
| 80222 | CHECKSCALAR(n>=0,"n>=0","hidden n","dormrz:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dormrz:n=%d", "(""n>=0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 80223 | /* Processing variable k */ | |||
| 80224 | k = shape(a,0)a_Dims[0]; | |||
| 80225 | /* Processing variable l */ | |||
| 80226 | l = shape(a,1)a_Dims[1]-shape(a,0)a_Dims[0]; | |||
| 80227 | /* Processing variable lda */ | |||
| 80228 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 80229 | /* Processing variable tau */ | |||
| 80230 | tau_Dims[0]=k; | |||
| 80231 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 80232 | capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 80233 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 80234 | if (!PyErr_Occurred()) | |||
| 80235 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.dormrz to C/Fortran array" ); | |||
| 80236 | } else { | |||
| 80237 | tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 80238 | ||||
| 80239 | CHECKARRAY(rank(tau)==1,"rank(tau)==1","2nd argument tau")if (!(tau_Rank==1)) { PyErr_SetString(_flapack_error,"(""rank(tau)==1" ") failed for ""2nd argument tau"); } else { | |||
| 80240 | /* Processing variable ldc */ | |||
| 80241 | ldc = MAX(shape(c,0),1)((c_Dims[0] > 1) ? (c_Dims[0]) : (1)); | |||
| 80242 | /* Processing variable side */ | |||
| 80243 | slen(side)capi_side_len = 1; | |||
| 80244 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.dormrz to C string"); | |||
| 80245 | if (f2py_success) { | |||
| 80246 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","dormrz:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dormrz:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 80247 | /* Processing variable trans */ | |||
| 80248 | slen(trans)capi_trans_len = 1; | |||
| 80249 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dormrz to C string"); | |||
| 80250 | if (f2py_success) { | |||
| 80251 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","dormrz:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dormrz:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 80252 | /* Processing variable nt */ | |||
| 80253 | nt = shape(a,1)a_Dims[1]; | |||
| 80254 | CHECKSCALAR((*side=='L'?m:n)==nt,"(*side=='L'?m:n)==nt","hidden nt","dormrz:nt=%d",nt)if (!((*side=='L'?m:n)==nt)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dormrz:nt=%d", "(""(*side=='L'?m:n)==nt"") failed for " "hidden nt", nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 80255 | /* Processing variable lwork */ | |||
| 80256 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX((side[0]=='L'?n:m),1)(((side[0]=='L'?n:m) > 1) ? ((side[0]=='L'?n:m)) : (1)); else | |||
| 80257 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dormrz() 3rd keyword (lwork) can't be converted to int"); | |||
| 80258 | if (f2py_success) { | |||
| 80259 | CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1,"lwork>=(*side=='L'?n:m)||lwork==-1","3rd keyword lwork","dormrz:lwork=%d",lwork)if (!(lwork>=(*side=='L'?n:m)||lwork==-1)) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dormrz:lwork=%d", "(""lwork>=(*side=='L'?n:m)||lwork==-1" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 80260 | /* Processing variable work */ | |||
| 80261 | work_Dims[0]=lwork; | |||
| 80262 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 80263 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 80264 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 80265 | if (!PyErr_Occurred()) | |||
| 80266 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dormrz to C/Fortran array" ); | |||
| 80267 | } else { | |||
| 80268 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 80269 | ||||
| 80270 | /*end of frompyobj*/ | |||
| 80271 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80272 | f2py_start_call_clock(); | |||
| 80273 | #endif | |||
| 80274 | /*callfortranroutine*/ | |||
| 80275 | (*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,tau,c,&ldc,work,&lwork,&info) ; | |||
| 80276 | /*(*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,&nt,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/ | |||
| 80277 | if (PyErr_Occurred()) | |||
| 80278 | f2py_success = 0; | |||
| 80279 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80280 | f2py_stop_call_clock(); | |||
| 80281 | #endif | |||
| 80282 | /*end of callfortranroutine*/ | |||
| 80283 | if (f2py_success) { | |||
| 80284 | /*pyobjfrom*/ | |||
| 80285 | /*end of pyobjfrom*/ | |||
| 80286 | CFUNCSMESS("Building return value.\n"); | |||
| 80287 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 80288 | /*closepyobjfrom*/ | |||
| 80289 | /*end of closepyobjfrom*/ | |||
| 80290 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 80291 | /*cleanupfrompyobj*/ | |||
| 80292 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 80293 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 80294 | /* End of cleaning variable work */ | |||
| 80295 | } /*CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1)*/ | |||
| 80296 | } /*if (f2py_success) of lwork*/ | |||
| 80297 | /* End of cleaning variable lwork */ | |||
| 80298 | } /*CHECKSCALAR((*side=='L'?m:n)==nt)*/ | |||
| 80299 | /* End of cleaning variable nt */ | |||
| 80300 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 80301 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 80302 | } /*if (f2py_success) of trans*/ | |||
| 80303 | /* End of cleaning variable trans */ | |||
| 80304 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 80305 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 80306 | } /*if (f2py_success) of side*/ | |||
| 80307 | /* End of cleaning variable side */ | |||
| 80308 | /* End of cleaning variable ldc */ | |||
| 80309 | } /*CHECKARRAY(rank(tau)==1)*/ | |||
| 80310 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 80311 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 80312 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 80313 | /* End of cleaning variable tau */ | |||
| 80314 | /* End of cleaning variable lda */ | |||
| 80315 | /* End of cleaning variable l */ | |||
| 80316 | /* End of cleaning variable k */ | |||
| 80317 | } /*CHECKSCALAR(n>=0)*/ | |||
| 80318 | /* End of cleaning variable n */ | |||
| 80319 | } /*CHECKSCALAR(m>=0)*/ | |||
| 80320 | /* End of cleaning variable m */ | |||
| 80321 | /* End of cleaning variable info */ | |||
| 80322 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 80323 | /* End of cleaning variable c */ | |||
| 80324 | } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/ | |||
| 80325 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 80326 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 80327 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 80328 | /* End of cleaning variable a */ | |||
| 80329 | /*end of cleanupfrompyobj*/ | |||
| 80330 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 80331 | /*routdebugfailure*/ | |||
| 80332 | } else { | |||
| 80333 | /*routdebugleave*/ | |||
| 80334 | } | |||
| 80335 | CFUNCSMESS("Freeing memory.\n"); | |||
| 80336 | /*freemem*/ | |||
| 80337 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80338 | f2py_stop_clock(); | |||
| 80339 | #endif | |||
| 80340 | return capi_buildvalue; | |||
| 80341 | } | |||
| 80342 | /******************************* end of dormrz *******************************/ | |||
| 80343 | ||||
| 80344 | /*********************************** cunmrz ***********************************/ | |||
| 80345 | static char doc_f2py_rout__flapack_cunmrz[] = "\ | |||
| 80346 | cq,info = cunmrz(a,tau,c,[side,trans,lwork,overwrite_c])\n\nWrapper for ``cunmrz``.\ | |||
| 80347 | \n\nParameters\n----------\n" | |||
| 80348 | "a : input rank-2 array('F') with bounds (k,nt)\n" | |||
| 80349 | "tau : input rank-1 array('F') with bounds (k)\n" | |||
| 80350 | "c : input rank-2 array('F') with bounds (m,n)\n" | |||
| 80351 | "\nOther Parameters\n----------------\n" | |||
| 80352 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 80353 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 80354 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 80355 | "lwork : input int, optional\n Default: MAX((side[0]=='L'?n:m),1)\n" | |||
| 80356 | "\nReturns\n-------\n" | |||
| 80357 | "cq : rank-2 array('F') with bounds (m,n) and c storage\n" | |||
| 80358 | "info : int"; | |||
| 80359 | /* extern void F_FUNC(cunmrz,CUNMRZ)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 80360 | static PyObject *f2py_rout__flapack_cunmrz(const PyObject *capi_self, | |||
| 80361 | PyObject *capi_args, | |||
| 80362 | PyObject *capi_keywds, | |||
| 80363 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 80364 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 80365 | volatile int f2py_success = 1; | |||
| 80366 | /*decl*/ | |||
| 80367 | ||||
| 80368 | string side = NULL((void*)0); | |||
| 80369 | int slen(side)capi_side_len; | |||
| 80370 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 80371 | string trans = NULL((void*)0); | |||
| 80372 | int slen(trans)capi_trans_len; | |||
| 80373 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 80374 | int m = 0; | |||
| 80375 | int n = 0; | |||
| 80376 | int k = 0; | |||
| 80377 | int l = 0; | |||
| 80378 | complex_float *a = NULL((void*)0); | |||
| 80379 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 80380 | const int a_Rank = 2; | |||
| 80381 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 80382 | int capi_a_intent = 0; | |||
| 80383 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 80384 | int lda = 0; | |||
| 80385 | int nt = 0; | |||
| 80386 | complex_float *tau = NULL((void*)0); | |||
| 80387 | npy_intp tau_Dims[1] = {-1}; | |||
| 80388 | const int tau_Rank = 1; | |||
| 80389 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 80390 | int capi_tau_intent = 0; | |||
| 80391 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 80392 | complex_float *c = NULL((void*)0); | |||
| 80393 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 80394 | const int c_Rank = 2; | |||
| 80395 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 80396 | int capi_c_intent = 0; | |||
| 80397 | int capi_overwrite_c = 0; | |||
| 80398 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 80399 | int ldc = 0; | |||
| 80400 | complex_float *work = NULL((void*)0); | |||
| 80401 | npy_intp work_Dims[1] = {-1}; | |||
| 80402 | const int work_Rank = 1; | |||
| 80403 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 80404 | int capi_work_intent = 0; | |||
| 80405 | int lwork = 0; | |||
| 80406 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 80407 | int info = 0; | |||
| 80408 | static char *capi_kwlist[] = {"a","tau","c","side","trans","lwork","overwrite_c",NULL((void*)0)}; | |||
| 80409 | ||||
| 80410 | /*routdebugenter*/ | |||
| 80411 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80412 | f2py_start_clock(); | |||
| 80413 | #endif | |||
| 80414 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 80415 | "OOO|OOOi:_flapack.cunmrz",\ | |||
| 80416 | capi_kwlist,&a_capi,&tau_capi,&c_capi,&side_capi,&trans_capi,&lwork_capi,&capi_overwrite_c)) | |||
| 80417 | return NULL((void*)0); | |||
| 80418 | /*frompyobj*/ | |||
| 80419 | /* Processing variable a */ | |||
| 80420 | ; | |||
| 80421 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 80422 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 80423 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 80424 | if (!PyErr_Occurred()) | |||
| 80425 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cunmrz to C/Fortran array" ); | |||
| 80426 | } else { | |||
| 80427 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 80428 | ||||
| 80429 | CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a" ); } else { | |||
| 80430 | /* Processing variable c */ | |||
| 80431 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 80432 | ; | |||
| 80433 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 80434 | capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 80435 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 80436 | if (!PyErr_Occurred()) | |||
| 80437 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.cunmrz to C/Fortran array" ); | |||
| 80438 | } else { | |||
| 80439 | c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 80440 | ||||
| 80441 | /* Processing variable info */ | |||
| 80442 | /* Processing variable m */ | |||
| 80443 | m = shape(c,0)c_Dims[0]; | |||
| 80444 | CHECKSCALAR(m>=0,"m>=0","hidden m","cunmrz:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cunmrz:m=%d", "(""m>=0"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 80445 | /* Processing variable n */ | |||
| 80446 | n = shape(c,1)c_Dims[1]; | |||
| 80447 | CHECKSCALAR(n>=0,"n>=0","hidden n","cunmrz:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cunmrz:n=%d", "(""n>=0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 80448 | /* Processing variable k */ | |||
| 80449 | k = shape(a,0)a_Dims[0]; | |||
| 80450 | /* Processing variable l */ | |||
| 80451 | l = shape(a,1)a_Dims[1]-shape(a,0)a_Dims[0]; | |||
| 80452 | /* Processing variable lda */ | |||
| 80453 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 80454 | /* Processing variable tau */ | |||
| 80455 | tau_Dims[0]=k; | |||
| 80456 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 80457 | capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 80458 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 80459 | if (!PyErr_Occurred()) | |||
| 80460 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.cunmrz to C/Fortran array" ); | |||
| 80461 | } else { | |||
| 80462 | tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 80463 | ||||
| 80464 | CHECKARRAY(rank(tau)==1,"rank(tau)==1","2nd argument tau")if (!(tau_Rank==1)) { PyErr_SetString(_flapack_error,"(""rank(tau)==1" ") failed for ""2nd argument tau"); } else { | |||
| 80465 | /* Processing variable ldc */ | |||
| 80466 | ldc = MAX(shape(c,0),1)((c_Dims[0] > 1) ? (c_Dims[0]) : (1)); | |||
| 80467 | /* Processing variable side */ | |||
| 80468 | slen(side)capi_side_len = 1; | |||
| 80469 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.cunmrz to C string"); | |||
| 80470 | if (f2py_success) { | |||
| 80471 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","cunmrz:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cunmrz:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 80472 | /* Processing variable trans */ | |||
| 80473 | slen(trans)capi_trans_len = 1; | |||
| 80474 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.cunmrz to C string"); | |||
| 80475 | if (f2py_success) { | |||
| 80476 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","cunmrz:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cunmrz:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 80477 | /* Processing variable nt */ | |||
| 80478 | nt = shape(a,1)a_Dims[1]; | |||
| 80479 | CHECKSCALAR((*side=='L'?m:n)==nt,"(*side=='L'?m:n)==nt","hidden nt","cunmrz:nt=%d",nt)if (!((*side=='L'?m:n)==nt)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cunmrz:nt=%d", "(""(*side=='L'?m:n)==nt"") failed for " "hidden nt", nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 80480 | /* Processing variable lwork */ | |||
| 80481 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX((side[0]=='L'?n:m),1)(((side[0]=='L'?n:m) > 1) ? ((side[0]=='L'?n:m)) : (1)); else | |||
| 80482 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cunmrz() 3rd keyword (lwork) can't be converted to int"); | |||
| 80483 | if (f2py_success) { | |||
| 80484 | CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1,"lwork>=(*side=='L'?n:m)||lwork==-1","3rd keyword lwork","cunmrz:lwork=%d",lwork)if (!(lwork>=(*side=='L'?n:m)||lwork==-1)) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cunmrz:lwork=%d", "(""lwork>=(*side=='L'?n:m)||lwork==-1" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 80485 | /* Processing variable work */ | |||
| 80486 | work_Dims[0]=lwork; | |||
| 80487 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 80488 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 80489 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 80490 | if (!PyErr_Occurred()) | |||
| 80491 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cunmrz to C/Fortran array" ); | |||
| 80492 | } else { | |||
| 80493 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 80494 | ||||
| 80495 | /*end of frompyobj*/ | |||
| 80496 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80497 | f2py_start_call_clock(); | |||
| 80498 | #endif | |||
| 80499 | /*callfortranroutine*/ | |||
| 80500 | (*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,tau,c,&ldc,work,&lwork,&info) ; | |||
| 80501 | /*(*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,&nt,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/ | |||
| 80502 | if (PyErr_Occurred()) | |||
| 80503 | f2py_success = 0; | |||
| 80504 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80505 | f2py_stop_call_clock(); | |||
| 80506 | #endif | |||
| 80507 | /*end of callfortranroutine*/ | |||
| 80508 | if (f2py_success) { | |||
| 80509 | /*pyobjfrom*/ | |||
| 80510 | /*end of pyobjfrom*/ | |||
| 80511 | CFUNCSMESS("Building return value.\n"); | |||
| 80512 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 80513 | /*closepyobjfrom*/ | |||
| 80514 | /*end of closepyobjfrom*/ | |||
| 80515 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 80516 | /*cleanupfrompyobj*/ | |||
| 80517 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 80518 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 80519 | /* End of cleaning variable work */ | |||
| 80520 | } /*CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1)*/ | |||
| 80521 | } /*if (f2py_success) of lwork*/ | |||
| 80522 | /* End of cleaning variable lwork */ | |||
| 80523 | } /*CHECKSCALAR((*side=='L'?m:n)==nt)*/ | |||
| 80524 | /* End of cleaning variable nt */ | |||
| 80525 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 80526 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 80527 | } /*if (f2py_success) of trans*/ | |||
| 80528 | /* End of cleaning variable trans */ | |||
| 80529 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 80530 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 80531 | } /*if (f2py_success) of side*/ | |||
| 80532 | /* End of cleaning variable side */ | |||
| 80533 | /* End of cleaning variable ldc */ | |||
| 80534 | } /*CHECKARRAY(rank(tau)==1)*/ | |||
| 80535 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 80536 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 80537 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 80538 | /* End of cleaning variable tau */ | |||
| 80539 | /* End of cleaning variable lda */ | |||
| 80540 | /* End of cleaning variable l */ | |||
| 80541 | /* End of cleaning variable k */ | |||
| 80542 | } /*CHECKSCALAR(n>=0)*/ | |||
| 80543 | /* End of cleaning variable n */ | |||
| 80544 | } /*CHECKSCALAR(m>=0)*/ | |||
| 80545 | /* End of cleaning variable m */ | |||
| 80546 | /* End of cleaning variable info */ | |||
| 80547 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 80548 | /* End of cleaning variable c */ | |||
| 80549 | } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/ | |||
| 80550 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 80551 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 80552 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 80553 | /* End of cleaning variable a */ | |||
| 80554 | /*end of cleanupfrompyobj*/ | |||
| 80555 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 80556 | /*routdebugfailure*/ | |||
| 80557 | } else { | |||
| 80558 | /*routdebugleave*/ | |||
| 80559 | } | |||
| 80560 | CFUNCSMESS("Freeing memory.\n"); | |||
| 80561 | /*freemem*/ | |||
| 80562 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80563 | f2py_stop_clock(); | |||
| 80564 | #endif | |||
| 80565 | return capi_buildvalue; | |||
| 80566 | } | |||
| 80567 | /******************************* end of cunmrz *******************************/ | |||
| 80568 | ||||
| 80569 | /*********************************** zunmrz ***********************************/ | |||
| 80570 | static char doc_f2py_rout__flapack_zunmrz[] = "\ | |||
| 80571 | cq,info = zunmrz(a,tau,c,[side,trans,lwork,overwrite_c])\n\nWrapper for ``zunmrz``.\ | |||
| 80572 | \n\nParameters\n----------\n" | |||
| 80573 | "a : input rank-2 array('D') with bounds (k,nt)\n" | |||
| 80574 | "tau : input rank-1 array('D') with bounds (k)\n" | |||
| 80575 | "c : input rank-2 array('D') with bounds (m,n)\n" | |||
| 80576 | "\nOther Parameters\n----------------\n" | |||
| 80577 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 80578 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 80579 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 80580 | "lwork : input int, optional\n Default: MAX((side[0]=='L'?n:m),1)\n" | |||
| 80581 | "\nReturns\n-------\n" | |||
| 80582 | "cq : rank-2 array('D') with bounds (m,n) and c storage\n" | |||
| 80583 | "info : int"; | |||
| 80584 | /* extern void F_FUNC(zunmrz,ZUNMRZ)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 80585 | static PyObject *f2py_rout__flapack_zunmrz(const PyObject *capi_self, | |||
| 80586 | PyObject *capi_args, | |||
| 80587 | PyObject *capi_keywds, | |||
| 80588 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 80589 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 80590 | volatile int f2py_success = 1; | |||
| 80591 | /*decl*/ | |||
| 80592 | ||||
| 80593 | string side = NULL((void*)0); | |||
| 80594 | int slen(side)capi_side_len; | |||
| 80595 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 80596 | string trans = NULL((void*)0); | |||
| 80597 | int slen(trans)capi_trans_len; | |||
| 80598 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 80599 | int m = 0; | |||
| 80600 | int n = 0; | |||
| 80601 | int k = 0; | |||
| 80602 | int l = 0; | |||
| 80603 | complex_double *a = NULL((void*)0); | |||
| 80604 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 80605 | const int a_Rank = 2; | |||
| 80606 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 80607 | int capi_a_intent = 0; | |||
| 80608 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 80609 | int lda = 0; | |||
| 80610 | int nt = 0; | |||
| 80611 | complex_double *tau = NULL((void*)0); | |||
| 80612 | npy_intp tau_Dims[1] = {-1}; | |||
| 80613 | const int tau_Rank = 1; | |||
| 80614 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 80615 | int capi_tau_intent = 0; | |||
| 80616 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 80617 | complex_double *c = NULL((void*)0); | |||
| 80618 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 80619 | const int c_Rank = 2; | |||
| 80620 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 80621 | int capi_c_intent = 0; | |||
| 80622 | int capi_overwrite_c = 0; | |||
| 80623 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 80624 | int ldc = 0; | |||
| 80625 | complex_double *work = NULL((void*)0); | |||
| 80626 | npy_intp work_Dims[1] = {-1}; | |||
| 80627 | const int work_Rank = 1; | |||
| 80628 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 80629 | int capi_work_intent = 0; | |||
| 80630 | int lwork = 0; | |||
| 80631 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 80632 | int info = 0; | |||
| 80633 | static char *capi_kwlist[] = {"a","tau","c","side","trans","lwork","overwrite_c",NULL((void*)0)}; | |||
| 80634 | ||||
| 80635 | /*routdebugenter*/ | |||
| 80636 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80637 | f2py_start_clock(); | |||
| 80638 | #endif | |||
| 80639 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 80640 | "OOO|OOOi:_flapack.zunmrz",\ | |||
| 80641 | capi_kwlist,&a_capi,&tau_capi,&c_capi,&side_capi,&trans_capi,&lwork_capi,&capi_overwrite_c)) | |||
| 80642 | return NULL((void*)0); | |||
| 80643 | /*frompyobj*/ | |||
| 80644 | /* Processing variable a */ | |||
| 80645 | ; | |||
| 80646 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 80647 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 80648 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 80649 | if (!PyErr_Occurred()) | |||
| 80650 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zunmrz to C/Fortran array" ); | |||
| 80651 | } else { | |||
| 80652 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 80653 | ||||
| 80654 | CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a" ); } else { | |||
| 80655 | /* Processing variable c */ | |||
| 80656 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 80657 | ; | |||
| 80658 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 80659 | capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 80660 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 80661 | if (!PyErr_Occurred()) | |||
| 80662 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.zunmrz to C/Fortran array" ); | |||
| 80663 | } else { | |||
| 80664 | c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 80665 | ||||
| 80666 | /* Processing variable info */ | |||
| 80667 | /* Processing variable m */ | |||
| 80668 | m = shape(c,0)c_Dims[0]; | |||
| 80669 | CHECKSCALAR(m>=0,"m>=0","hidden m","zunmrz:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zunmrz:m=%d", "(""m>=0"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 80670 | /* Processing variable n */ | |||
| 80671 | n = shape(c,1)c_Dims[1]; | |||
| 80672 | CHECKSCALAR(n>=0,"n>=0","hidden n","zunmrz:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zunmrz:n=%d", "(""n>=0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 80673 | /* Processing variable k */ | |||
| 80674 | k = shape(a,0)a_Dims[0]; | |||
| 80675 | /* Processing variable l */ | |||
| 80676 | l = shape(a,1)a_Dims[1]-shape(a,0)a_Dims[0]; | |||
| 80677 | /* Processing variable lda */ | |||
| 80678 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 80679 | /* Processing variable tau */ | |||
| 80680 | tau_Dims[0]=k; | |||
| 80681 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 80682 | capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 80683 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 80684 | if (!PyErr_Occurred()) | |||
| 80685 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.zunmrz to C/Fortran array" ); | |||
| 80686 | } else { | |||
| 80687 | tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 80688 | ||||
| 80689 | CHECKARRAY(rank(tau)==1,"rank(tau)==1","2nd argument tau")if (!(tau_Rank==1)) { PyErr_SetString(_flapack_error,"(""rank(tau)==1" ") failed for ""2nd argument tau"); } else { | |||
| 80690 | /* Processing variable ldc */ | |||
| 80691 | ldc = MAX(shape(c,0),1)((c_Dims[0] > 1) ? (c_Dims[0]) : (1)); | |||
| 80692 | /* Processing variable side */ | |||
| 80693 | slen(side)capi_side_len = 1; | |||
| 80694 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.zunmrz to C string"); | |||
| 80695 | if (f2py_success) { | |||
| 80696 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","zunmrz:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zunmrz:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 80697 | /* Processing variable trans */ | |||
| 80698 | slen(trans)capi_trans_len = 1; | |||
| 80699 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.zunmrz to C string"); | |||
| 80700 | if (f2py_success) { | |||
| 80701 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","zunmrz:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zunmrz:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 80702 | /* Processing variable nt */ | |||
| 80703 | nt = shape(a,1)a_Dims[1]; | |||
| 80704 | CHECKSCALAR((*side=='L'?m:n)==nt,"(*side=='L'?m:n)==nt","hidden nt","zunmrz:nt=%d",nt)if (!((*side=='L'?m:n)==nt)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zunmrz:nt=%d", "(""(*side=='L'?m:n)==nt"") failed for " "hidden nt", nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 80705 | /* Processing variable lwork */ | |||
| 80706 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX((side[0]=='L'?n:m),1)(((side[0]=='L'?n:m) > 1) ? ((side[0]=='L'?n:m)) : (1)); else | |||
| 80707 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zunmrz() 3rd keyword (lwork) can't be converted to int"); | |||
| 80708 | if (f2py_success) { | |||
| 80709 | CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1,"lwork>=(*side=='L'?n:m)||lwork==-1","3rd keyword lwork","zunmrz:lwork=%d",lwork)if (!(lwork>=(*side=='L'?n:m)||lwork==-1)) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zunmrz:lwork=%d", "(""lwork>=(*side=='L'?n:m)||lwork==-1" ") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 80710 | /* Processing variable work */ | |||
| 80711 | work_Dims[0]=lwork; | |||
| 80712 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 80713 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 80714 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 80715 | if (!PyErr_Occurred()) | |||
| 80716 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zunmrz to C/Fortran array" ); | |||
| 80717 | } else { | |||
| 80718 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 80719 | ||||
| 80720 | /*end of frompyobj*/ | |||
| 80721 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80722 | f2py_start_call_clock(); | |||
| 80723 | #endif | |||
| 80724 | /*callfortranroutine*/ | |||
| 80725 | (*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,tau,c,&ldc,work,&lwork,&info) ; | |||
| 80726 | /*(*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,&nt,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/ | |||
| 80727 | if (PyErr_Occurred()) | |||
| 80728 | f2py_success = 0; | |||
| 80729 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80730 | f2py_stop_call_clock(); | |||
| 80731 | #endif | |||
| 80732 | /*end of callfortranroutine*/ | |||
| 80733 | if (f2py_success) { | |||
| 80734 | /*pyobjfrom*/ | |||
| 80735 | /*end of pyobjfrom*/ | |||
| 80736 | CFUNCSMESS("Building return value.\n"); | |||
| 80737 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 80738 | /*closepyobjfrom*/ | |||
| 80739 | /*end of closepyobjfrom*/ | |||
| 80740 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 80741 | /*cleanupfrompyobj*/ | |||
| 80742 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 80743 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 80744 | /* End of cleaning variable work */ | |||
| 80745 | } /*CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1)*/ | |||
| 80746 | } /*if (f2py_success) of lwork*/ | |||
| 80747 | /* End of cleaning variable lwork */ | |||
| 80748 | } /*CHECKSCALAR((*side=='L'?m:n)==nt)*/ | |||
| 80749 | /* End of cleaning variable nt */ | |||
| 80750 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 80751 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 80752 | } /*if (f2py_success) of trans*/ | |||
| 80753 | /* End of cleaning variable trans */ | |||
| 80754 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 80755 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 80756 | } /*if (f2py_success) of side*/ | |||
| 80757 | /* End of cleaning variable side */ | |||
| 80758 | /* End of cleaning variable ldc */ | |||
| 80759 | } /*CHECKARRAY(rank(tau)==1)*/ | |||
| 80760 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 80761 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 80762 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 80763 | /* End of cleaning variable tau */ | |||
| 80764 | /* End of cleaning variable lda */ | |||
| 80765 | /* End of cleaning variable l */ | |||
| 80766 | /* End of cleaning variable k */ | |||
| 80767 | } /*CHECKSCALAR(n>=0)*/ | |||
| 80768 | /* End of cleaning variable n */ | |||
| 80769 | } /*CHECKSCALAR(m>=0)*/ | |||
| 80770 | /* End of cleaning variable m */ | |||
| 80771 | /* End of cleaning variable info */ | |||
| 80772 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 80773 | /* End of cleaning variable c */ | |||
| 80774 | } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/ | |||
| 80775 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 80776 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 80777 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 80778 | /* End of cleaning variable a */ | |||
| 80779 | /*end of cleanupfrompyobj*/ | |||
| 80780 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 80781 | /*routdebugfailure*/ | |||
| 80782 | } else { | |||
| 80783 | /*routdebugleave*/ | |||
| 80784 | } | |||
| 80785 | CFUNCSMESS("Freeing memory.\n"); | |||
| 80786 | /*freemem*/ | |||
| 80787 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80788 | f2py_stop_clock(); | |||
| 80789 | #endif | |||
| 80790 | return capi_buildvalue; | |||
| 80791 | } | |||
| 80792 | /******************************* end of zunmrz *******************************/ | |||
| 80793 | ||||
| 80794 | /******************************** sormrz_lwork ********************************/ | |||
| 80795 | static char doc_f2py_rout__flapack_sormrz_lwork[] = "\ | |||
| 80796 | work,info = sormrz_lwork(m,n,[side,trans])\n\nWrapper for ``sormrz_lwork``.\ | |||
| 80797 | \n\nParameters\n----------\n" | |||
| 80798 | "m : input int\n" | |||
| 80799 | "n : input int\n" | |||
| 80800 | "\nOther Parameters\n----------------\n" | |||
| 80801 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 80802 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 80803 | "\nReturns\n-------\n" | |||
| 80804 | "work : float\n" | |||
| 80805 | "info : int"; | |||
| 80806 | /* extern void F_FUNC(sormrz ,SORMRZ )(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 80807 | static PyObject *f2py_rout__flapack_sormrz_lwork(const PyObject *capi_self, | |||
| 80808 | PyObject *capi_args, | |||
| 80809 | PyObject *capi_keywds, | |||
| 80810 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 80811 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 80812 | volatile int f2py_success = 1; | |||
| 80813 | /*decl*/ | |||
| 80814 | ||||
| 80815 | string side = NULL((void*)0); | |||
| 80816 | int slen(side)capi_side_len; | |||
| 80817 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 80818 | string trans = NULL((void*)0); | |||
| 80819 | int slen(trans)capi_trans_len; | |||
| 80820 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 80821 | int m = 0; | |||
| 80822 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 80823 | int n = 0; | |||
| 80824 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 80825 | int k = 0; | |||
| 80826 | int l = 0; | |||
| 80827 | float a = 0; | |||
| 80828 | int lda = 0; | |||
| 80829 | float tau = 0; | |||
| 80830 | float c = 0; | |||
| 80831 | int ldc = 0; | |||
| 80832 | float work = 0; | |||
| 80833 | int lwork = 0; | |||
| 80834 | int info = 0; | |||
| 80835 | static char *capi_kwlist[] = {"m","n","side","trans",NULL((void*)0)}; | |||
| 80836 | ||||
| 80837 | /*routdebugenter*/ | |||
| 80838 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80839 | f2py_start_clock(); | |||
| 80840 | #endif | |||
| 80841 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 80842 | "OO|OO:_flapack.sormrz_lwork",\ | |||
| 80843 | capi_kwlist,&m_capi,&n_capi,&side_capi,&trans_capi)) | |||
| 80844 | return NULL((void*)0); | |||
| 80845 | /*frompyobj*/ | |||
| 80846 | /* Processing variable m */ | |||
| 80847 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sormrz_lwork() 1st argument (m) can't be converted to int"); | |||
| 80848 | if (f2py_success) { | |||
| 80849 | /* Processing variable n */ | |||
| 80850 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sormrz_lwork() 2nd argument (n) can't be converted to int"); | |||
| 80851 | if (f2py_success) { | |||
| 80852 | /* Processing variable l */ | |||
| 80853 | /* Processing variable a */ | |||
| 80854 | /* Processing variable c */ | |||
| 80855 | /* Processing variable tau */ | |||
| 80856 | /* Processing variable work */ | |||
| 80857 | /* Processing variable lwork */ | |||
| 80858 | lwork = -1; | |||
| 80859 | /* Processing variable info */ | |||
| 80860 | /* Processing variable side */ | |||
| 80861 | slen(side)capi_side_len = 1; | |||
| 80862 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.sormrz_lwork to C string"); | |||
| 80863 | if (f2py_success) { | |||
| 80864 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","sormrz_lwork:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sormrz_lwork:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 80865 | /* Processing variable trans */ | |||
| 80866 | slen(trans)capi_trans_len = 1; | |||
| 80867 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.sormrz_lwork to C string"); | |||
| 80868 | if (f2py_success) { | |||
| 80869 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","sormrz_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sormrz_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 80870 | /* Processing variable k */ | |||
| 80871 | k = (*side=='L'?m:n); | |||
| 80872 | /* Processing variable lda */ | |||
| 80873 | lda = k; | |||
| 80874 | /* Processing variable ldc */ | |||
| 80875 | ldc = m; | |||
| 80876 | /*end of frompyobj*/ | |||
| 80877 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80878 | f2py_start_call_clock(); | |||
| 80879 | #endif | |||
| 80880 | /*callfortranroutine*/ | |||
| 80881 | (*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info) ; | |||
| 80882 | /*(*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info,slen(side),slen(trans));*/ | |||
| 80883 | if (PyErr_Occurred()) | |||
| 80884 | f2py_success = 0; | |||
| 80885 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80886 | f2py_stop_call_clock(); | |||
| 80887 | #endif | |||
| 80888 | /*end of callfortranroutine*/ | |||
| 80889 | if (f2py_success) { | |||
| 80890 | /*pyobjfrom*/ | |||
| 80891 | /*end of pyobjfrom*/ | |||
| 80892 | CFUNCSMESS("Building return value.\n"); | |||
| 80893 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 80894 | /*closepyobjfrom*/ | |||
| 80895 | /*end of closepyobjfrom*/ | |||
| 80896 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 80897 | /*cleanupfrompyobj*/ | |||
| 80898 | /* End of cleaning variable ldc */ | |||
| 80899 | /* End of cleaning variable lda */ | |||
| 80900 | /* End of cleaning variable k */ | |||
| 80901 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 80902 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 80903 | } /*if (f2py_success) of trans*/ | |||
| 80904 | /* End of cleaning variable trans */ | |||
| 80905 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 80906 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 80907 | } /*if (f2py_success) of side*/ | |||
| 80908 | /* End of cleaning variable side */ | |||
| 80909 | /* End of cleaning variable info */ | |||
| 80910 | /* End of cleaning variable lwork */ | |||
| 80911 | /* End of cleaning variable work */ | |||
| 80912 | /* End of cleaning variable tau */ | |||
| 80913 | /* End of cleaning variable c */ | |||
| 80914 | /* End of cleaning variable a */ | |||
| 80915 | /* End of cleaning variable l */ | |||
| 80916 | } /*if (f2py_success) of n*/ | |||
| 80917 | /* End of cleaning variable n */ | |||
| 80918 | } /*if (f2py_success) of m*/ | |||
| 80919 | /* End of cleaning variable m */ | |||
| 80920 | /*end of cleanupfrompyobj*/ | |||
| 80921 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 80922 | /*routdebugfailure*/ | |||
| 80923 | } else { | |||
| 80924 | /*routdebugleave*/ | |||
| 80925 | } | |||
| 80926 | CFUNCSMESS("Freeing memory.\n"); | |||
| 80927 | /*freemem*/ | |||
| 80928 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80929 | f2py_stop_clock(); | |||
| 80930 | #endif | |||
| 80931 | return capi_buildvalue; | |||
| 80932 | } | |||
| 80933 | /**************************** end of sormrz_lwork ****************************/ | |||
| 80934 | ||||
| 80935 | /******************************** dormrz_lwork ********************************/ | |||
| 80936 | static char doc_f2py_rout__flapack_dormrz_lwork[] = "\ | |||
| 80937 | work,info = dormrz_lwork(m,n,[side,trans])\n\nWrapper for ``dormrz_lwork``.\ | |||
| 80938 | \n\nParameters\n----------\n" | |||
| 80939 | "m : input int\n" | |||
| 80940 | "n : input int\n" | |||
| 80941 | "\nOther Parameters\n----------------\n" | |||
| 80942 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 80943 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 80944 | "\nReturns\n-------\n" | |||
| 80945 | "work : float\n" | |||
| 80946 | "info : int"; | |||
| 80947 | /* extern void F_FUNC(dormrz ,DORMRZ )(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 80948 | static PyObject *f2py_rout__flapack_dormrz_lwork(const PyObject *capi_self, | |||
| 80949 | PyObject *capi_args, | |||
| 80950 | PyObject *capi_keywds, | |||
| 80951 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 80952 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 80953 | volatile int f2py_success = 1; | |||
| 80954 | /*decl*/ | |||
| 80955 | ||||
| 80956 | string side = NULL((void*)0); | |||
| 80957 | int slen(side)capi_side_len; | |||
| 80958 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 80959 | string trans = NULL((void*)0); | |||
| 80960 | int slen(trans)capi_trans_len; | |||
| 80961 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 80962 | int m = 0; | |||
| 80963 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 80964 | int n = 0; | |||
| 80965 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 80966 | int k = 0; | |||
| 80967 | int l = 0; | |||
| 80968 | double a = 0; | |||
| 80969 | int lda = 0; | |||
| 80970 | double tau = 0; | |||
| 80971 | double c = 0; | |||
| 80972 | int ldc = 0; | |||
| 80973 | double work = 0; | |||
| 80974 | int lwork = 0; | |||
| 80975 | int info = 0; | |||
| 80976 | static char *capi_kwlist[] = {"m","n","side","trans",NULL((void*)0)}; | |||
| 80977 | ||||
| 80978 | /*routdebugenter*/ | |||
| 80979 | #ifdef F2PY_REPORT_ATEXIT | |||
| 80980 | f2py_start_clock(); | |||
| 80981 | #endif | |||
| 80982 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 80983 | "OO|OO:_flapack.dormrz_lwork",\ | |||
| 80984 | capi_kwlist,&m_capi,&n_capi,&side_capi,&trans_capi)) | |||
| 80985 | return NULL((void*)0); | |||
| 80986 | /*frompyobj*/ | |||
| 80987 | /* Processing variable m */ | |||
| 80988 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dormrz_lwork() 1st argument (m) can't be converted to int"); | |||
| 80989 | if (f2py_success) { | |||
| 80990 | /* Processing variable n */ | |||
| 80991 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dormrz_lwork() 2nd argument (n) can't be converted to int"); | |||
| 80992 | if (f2py_success) { | |||
| 80993 | /* Processing variable l */ | |||
| 80994 | /* Processing variable a */ | |||
| 80995 | /* Processing variable c */ | |||
| 80996 | /* Processing variable tau */ | |||
| 80997 | /* Processing variable work */ | |||
| 80998 | /* Processing variable lwork */ | |||
| 80999 | lwork = -1; | |||
| 81000 | /* Processing variable info */ | |||
| 81001 | /* Processing variable side */ | |||
| 81002 | slen(side)capi_side_len = 1; | |||
| 81003 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.dormrz_lwork to C string"); | |||
| 81004 | if (f2py_success) { | |||
| 81005 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","dormrz_lwork:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dormrz_lwork:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 81006 | /* Processing variable trans */ | |||
| 81007 | slen(trans)capi_trans_len = 1; | |||
| 81008 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dormrz_lwork to C string"); | |||
| 81009 | if (f2py_success) { | |||
| 81010 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","dormrz_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dormrz_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 81011 | /* Processing variable k */ | |||
| 81012 | k = (*side=='L'?m:n); | |||
| 81013 | /* Processing variable lda */ | |||
| 81014 | lda = k; | |||
| 81015 | /* Processing variable ldc */ | |||
| 81016 | ldc = m; | |||
| 81017 | /*end of frompyobj*/ | |||
| 81018 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81019 | f2py_start_call_clock(); | |||
| 81020 | #endif | |||
| 81021 | /*callfortranroutine*/ | |||
| 81022 | (*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info) ; | |||
| 81023 | /*(*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info,slen(side),slen(trans));*/ | |||
| 81024 | if (PyErr_Occurred()) | |||
| 81025 | f2py_success = 0; | |||
| 81026 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81027 | f2py_stop_call_clock(); | |||
| 81028 | #endif | |||
| 81029 | /*end of callfortranroutine*/ | |||
| 81030 | if (f2py_success) { | |||
| 81031 | /*pyobjfrom*/ | |||
| 81032 | /*end of pyobjfrom*/ | |||
| 81033 | CFUNCSMESS("Building return value.\n"); | |||
| 81034 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 81035 | /*closepyobjfrom*/ | |||
| 81036 | /*end of closepyobjfrom*/ | |||
| 81037 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 81038 | /*cleanupfrompyobj*/ | |||
| 81039 | /* End of cleaning variable ldc */ | |||
| 81040 | /* End of cleaning variable lda */ | |||
| 81041 | /* End of cleaning variable k */ | |||
| 81042 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 81043 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 81044 | } /*if (f2py_success) of trans*/ | |||
| 81045 | /* End of cleaning variable trans */ | |||
| 81046 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 81047 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 81048 | } /*if (f2py_success) of side*/ | |||
| 81049 | /* End of cleaning variable side */ | |||
| 81050 | /* End of cleaning variable info */ | |||
| 81051 | /* End of cleaning variable lwork */ | |||
| 81052 | /* End of cleaning variable work */ | |||
| 81053 | /* End of cleaning variable tau */ | |||
| 81054 | /* End of cleaning variable c */ | |||
| 81055 | /* End of cleaning variable a */ | |||
| 81056 | /* End of cleaning variable l */ | |||
| 81057 | } /*if (f2py_success) of n*/ | |||
| 81058 | /* End of cleaning variable n */ | |||
| 81059 | } /*if (f2py_success) of m*/ | |||
| 81060 | /* End of cleaning variable m */ | |||
| 81061 | /*end of cleanupfrompyobj*/ | |||
| 81062 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 81063 | /*routdebugfailure*/ | |||
| 81064 | } else { | |||
| 81065 | /*routdebugleave*/ | |||
| 81066 | } | |||
| 81067 | CFUNCSMESS("Freeing memory.\n"); | |||
| 81068 | /*freemem*/ | |||
| 81069 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81070 | f2py_stop_clock(); | |||
| 81071 | #endif | |||
| 81072 | return capi_buildvalue; | |||
| 81073 | } | |||
| 81074 | /**************************** end of dormrz_lwork ****************************/ | |||
| 81075 | ||||
| 81076 | /******************************** cunmrz_lwork ********************************/ | |||
| 81077 | static char doc_f2py_rout__flapack_cunmrz_lwork[] = "\ | |||
| 81078 | work,info = cunmrz_lwork(m,n,[side,trans])\n\nWrapper for ``cunmrz_lwork``.\ | |||
| 81079 | \n\nParameters\n----------\n" | |||
| 81080 | "m : input int\n" | |||
| 81081 | "n : input int\n" | |||
| 81082 | "\nOther Parameters\n----------------\n" | |||
| 81083 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 81084 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 81085 | "\nReturns\n-------\n" | |||
| 81086 | "work : complex\n" | |||
| 81087 | "info : int"; | |||
| 81088 | /* extern void F_FUNC(cunmrz ,CUNMRZ )(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 81089 | static PyObject *f2py_rout__flapack_cunmrz_lwork(const PyObject *capi_self, | |||
| 81090 | PyObject *capi_args, | |||
| 81091 | PyObject *capi_keywds, | |||
| 81092 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 81093 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 81094 | volatile int f2py_success = 1; | |||
| 81095 | /*decl*/ | |||
| 81096 | ||||
| 81097 | string side = NULL((void*)0); | |||
| 81098 | int slen(side)capi_side_len; | |||
| 81099 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 81100 | string trans = NULL((void*)0); | |||
| 81101 | int slen(trans)capi_trans_len; | |||
| 81102 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 81103 | int m = 0; | |||
| 81104 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 81105 | int n = 0; | |||
| 81106 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 81107 | int k = 0; | |||
| 81108 | int l = 0; | |||
| 81109 | complex_float a; | |||
| 81110 | int lda = 0; | |||
| 81111 | complex_float tau; | |||
| 81112 | complex_float c; | |||
| 81113 | int ldc = 0; | |||
| 81114 | complex_float work; | |||
| 81115 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 81116 | int lwork = 0; | |||
| 81117 | int info = 0; | |||
| 81118 | static char *capi_kwlist[] = {"m","n","side","trans",NULL((void*)0)}; | |||
| 81119 | ||||
| 81120 | /*routdebugenter*/ | |||
| 81121 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81122 | f2py_start_clock(); | |||
| 81123 | #endif | |||
| 81124 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 81125 | "OO|OO:_flapack.cunmrz_lwork",\ | |||
| 81126 | capi_kwlist,&m_capi,&n_capi,&side_capi,&trans_capi)) | |||
| 81127 | return NULL((void*)0); | |||
| 81128 | /*frompyobj*/ | |||
| 81129 | /* Processing variable m */ | |||
| 81130 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cunmrz_lwork() 1st argument (m) can't be converted to int"); | |||
| 81131 | if (f2py_success) { | |||
| 81132 | /* Processing variable n */ | |||
| 81133 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cunmrz_lwork() 2nd argument (n) can't be converted to int"); | |||
| 81134 | if (f2py_success) { | |||
| 81135 | /* Processing variable l */ | |||
| 81136 | /* Processing variable a */ | |||
| 81137 | /* Processing variable c */ | |||
| 81138 | /* Processing variable tau */ | |||
| 81139 | /* Processing variable work */ | |||
| 81140 | /* Processing variable lwork */ | |||
| 81141 | lwork = -1; | |||
| 81142 | /* Processing variable info */ | |||
| 81143 | /* Processing variable side */ | |||
| 81144 | slen(side)capi_side_len = 1; | |||
| 81145 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.cunmrz_lwork to C string"); | |||
| 81146 | if (f2py_success) { | |||
| 81147 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","cunmrz_lwork:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cunmrz_lwork:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 81148 | /* Processing variable trans */ | |||
| 81149 | slen(trans)capi_trans_len = 1; | |||
| 81150 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.cunmrz_lwork to C string"); | |||
| 81151 | if (f2py_success) { | |||
| 81152 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","cunmrz_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cunmrz_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 81153 | /* Processing variable k */ | |||
| 81154 | k = (*side=='L'?m:n); | |||
| 81155 | /* Processing variable lda */ | |||
| 81156 | lda = k; | |||
| 81157 | /* Processing variable ldc */ | |||
| 81158 | ldc = m; | |||
| 81159 | /*end of frompyobj*/ | |||
| 81160 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81161 | f2py_start_call_clock(); | |||
| 81162 | #endif | |||
| 81163 | /*callfortranroutine*/ | |||
| 81164 | (*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info) ; | |||
| 81165 | /*(*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info,slen(side),slen(trans));*/ | |||
| 81166 | if (PyErr_Occurred()) | |||
| 81167 | f2py_success = 0; | |||
| 81168 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81169 | f2py_stop_call_clock(); | |||
| 81170 | #endif | |||
| 81171 | /*end of callfortranroutine*/ | |||
| 81172 | if (f2py_success) { | |||
| 81173 | /*pyobjfrom*/ | |||
| 81174 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 81175 | /*end of pyobjfrom*/ | |||
| 81176 | CFUNCSMESS("Building return value.\n"); | |||
| 81177 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 81178 | /*closepyobjfrom*/ | |||
| 81179 | /*end of closepyobjfrom*/ | |||
| 81180 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 81181 | /*cleanupfrompyobj*/ | |||
| 81182 | /* End of cleaning variable ldc */ | |||
| 81183 | /* End of cleaning variable lda */ | |||
| 81184 | /* End of cleaning variable k */ | |||
| 81185 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 81186 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 81187 | } /*if (f2py_success) of trans*/ | |||
| 81188 | /* End of cleaning variable trans */ | |||
| 81189 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 81190 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 81191 | } /*if (f2py_success) of side*/ | |||
| 81192 | /* End of cleaning variable side */ | |||
| 81193 | /* End of cleaning variable info */ | |||
| 81194 | /* End of cleaning variable lwork */ | |||
| 81195 | /* End of cleaning variable work */ | |||
| 81196 | /* End of cleaning variable tau */ | |||
| 81197 | /* End of cleaning variable c */ | |||
| 81198 | /* End of cleaning variable a */ | |||
| 81199 | /* End of cleaning variable l */ | |||
| 81200 | } /*if (f2py_success) of n*/ | |||
| 81201 | /* End of cleaning variable n */ | |||
| 81202 | } /*if (f2py_success) of m*/ | |||
| 81203 | /* End of cleaning variable m */ | |||
| 81204 | /*end of cleanupfrompyobj*/ | |||
| 81205 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 81206 | /*routdebugfailure*/ | |||
| 81207 | } else { | |||
| 81208 | /*routdebugleave*/ | |||
| 81209 | } | |||
| 81210 | CFUNCSMESS("Freeing memory.\n"); | |||
| 81211 | /*freemem*/ | |||
| 81212 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81213 | f2py_stop_clock(); | |||
| 81214 | #endif | |||
| 81215 | return capi_buildvalue; | |||
| 81216 | } | |||
| 81217 | /**************************** end of cunmrz_lwork ****************************/ | |||
| 81218 | ||||
| 81219 | /******************************** zunmrz_lwork ********************************/ | |||
| 81220 | static char doc_f2py_rout__flapack_zunmrz_lwork[] = "\ | |||
| 81221 | work,info = zunmrz_lwork(m,n,[side,trans])\n\nWrapper for ``zunmrz_lwork``.\ | |||
| 81222 | \n\nParameters\n----------\n" | |||
| 81223 | "m : input int\n" | |||
| 81224 | "n : input int\n" | |||
| 81225 | "\nOther Parameters\n----------------\n" | |||
| 81226 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 81227 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 81228 | "\nReturns\n-------\n" | |||
| 81229 | "work : complex\n" | |||
| 81230 | "info : int"; | |||
| 81231 | /* extern void F_FUNC(zunmrz ,ZUNMRZ )(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 81232 | static PyObject *f2py_rout__flapack_zunmrz_lwork(const PyObject *capi_self, | |||
| 81233 | PyObject *capi_args, | |||
| 81234 | PyObject *capi_keywds, | |||
| 81235 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 81236 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 81237 | volatile int f2py_success = 1; | |||
| 81238 | /*decl*/ | |||
| 81239 | ||||
| 81240 | string side = NULL((void*)0); | |||
| 81241 | int slen(side)capi_side_len; | |||
| 81242 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 81243 | string trans = NULL((void*)0); | |||
| 81244 | int slen(trans)capi_trans_len; | |||
| 81245 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 81246 | int m = 0; | |||
| 81247 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 81248 | int n = 0; | |||
| 81249 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 81250 | int k = 0; | |||
| 81251 | int l = 0; | |||
| 81252 | complex_double a; | |||
| 81253 | int lda = 0; | |||
| 81254 | complex_double tau; | |||
| 81255 | complex_double c; | |||
| 81256 | int ldc = 0; | |||
| 81257 | complex_double work; | |||
| 81258 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 81259 | int lwork = 0; | |||
| 81260 | int info = 0; | |||
| 81261 | static char *capi_kwlist[] = {"m","n","side","trans",NULL((void*)0)}; | |||
| 81262 | ||||
| 81263 | /*routdebugenter*/ | |||
| 81264 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81265 | f2py_start_clock(); | |||
| 81266 | #endif | |||
| 81267 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 81268 | "OO|OO:_flapack.zunmrz_lwork",\ | |||
| 81269 | capi_kwlist,&m_capi,&n_capi,&side_capi,&trans_capi)) | |||
| 81270 | return NULL((void*)0); | |||
| 81271 | /*frompyobj*/ | |||
| 81272 | /* Processing variable m */ | |||
| 81273 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zunmrz_lwork() 1st argument (m) can't be converted to int"); | |||
| 81274 | if (f2py_success) { | |||
| 81275 | /* Processing variable n */ | |||
| 81276 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zunmrz_lwork() 2nd argument (n) can't be converted to int"); | |||
| 81277 | if (f2py_success) { | |||
| 81278 | /* Processing variable l */ | |||
| 81279 | /* Processing variable a */ | |||
| 81280 | /* Processing variable c */ | |||
| 81281 | /* Processing variable tau */ | |||
| 81282 | /* Processing variable work */ | |||
| 81283 | /* Processing variable lwork */ | |||
| 81284 | lwork = -1; | |||
| 81285 | /* Processing variable info */ | |||
| 81286 | /* Processing variable side */ | |||
| 81287 | slen(side)capi_side_len = 1; | |||
| 81288 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.zunmrz_lwork to C string"); | |||
| 81289 | if (f2py_success) { | |||
| 81290 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","zunmrz_lwork:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zunmrz_lwork:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 81291 | /* Processing variable trans */ | |||
| 81292 | slen(trans)capi_trans_len = 1; | |||
| 81293 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.zunmrz_lwork to C string"); | |||
| 81294 | if (f2py_success) { | |||
| 81295 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","zunmrz_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zunmrz_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 81296 | /* Processing variable k */ | |||
| 81297 | k = (*side=='L'?m:n); | |||
| 81298 | /* Processing variable lda */ | |||
| 81299 | lda = k; | |||
| 81300 | /* Processing variable ldc */ | |||
| 81301 | ldc = m; | |||
| 81302 | /*end of frompyobj*/ | |||
| 81303 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81304 | f2py_start_call_clock(); | |||
| 81305 | #endif | |||
| 81306 | /*callfortranroutine*/ | |||
| 81307 | (*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info) ; | |||
| 81308 | /*(*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info,slen(side),slen(trans));*/ | |||
| 81309 | if (PyErr_Occurred()) | |||
| 81310 | f2py_success = 0; | |||
| 81311 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81312 | f2py_stop_call_clock(); | |||
| 81313 | #endif | |||
| 81314 | /*end of callfortranroutine*/ | |||
| 81315 | if (f2py_success) { | |||
| 81316 | /*pyobjfrom*/ | |||
| 81317 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 81318 | /*end of pyobjfrom*/ | |||
| 81319 | CFUNCSMESS("Building return value.\n"); | |||
| 81320 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 81321 | /*closepyobjfrom*/ | |||
| 81322 | /*end of closepyobjfrom*/ | |||
| 81323 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 81324 | /*cleanupfrompyobj*/ | |||
| 81325 | /* End of cleaning variable ldc */ | |||
| 81326 | /* End of cleaning variable lda */ | |||
| 81327 | /* End of cleaning variable k */ | |||
| 81328 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 81329 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 81330 | } /*if (f2py_success) of trans*/ | |||
| 81331 | /* End of cleaning variable trans */ | |||
| 81332 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 81333 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 81334 | } /*if (f2py_success) of side*/ | |||
| 81335 | /* End of cleaning variable side */ | |||
| 81336 | /* End of cleaning variable info */ | |||
| 81337 | /* End of cleaning variable lwork */ | |||
| 81338 | /* End of cleaning variable work */ | |||
| 81339 | /* End of cleaning variable tau */ | |||
| 81340 | /* End of cleaning variable c */ | |||
| 81341 | /* End of cleaning variable a */ | |||
| 81342 | /* End of cleaning variable l */ | |||
| 81343 | } /*if (f2py_success) of n*/ | |||
| 81344 | /* End of cleaning variable n */ | |||
| 81345 | } /*if (f2py_success) of m*/ | |||
| 81346 | /* End of cleaning variable m */ | |||
| 81347 | /*end of cleanupfrompyobj*/ | |||
| 81348 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 81349 | /*routdebugfailure*/ | |||
| 81350 | } else { | |||
| 81351 | /*routdebugleave*/ | |||
| 81352 | } | |||
| 81353 | CFUNCSMESS("Freeing memory.\n"); | |||
| 81354 | /*freemem*/ | |||
| 81355 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81356 | f2py_stop_clock(); | |||
| 81357 | #endif | |||
| 81358 | return capi_buildvalue; | |||
| 81359 | } | |||
| 81360 | /**************************** end of zunmrz_lwork ****************************/ | |||
| 81361 | ||||
| 81362 | /*********************************** sorgrq ***********************************/ | |||
| 81363 | static char doc_f2py_rout__flapack_sorgrq[] = "\ | |||
| 81364 | q,work,info = sorgrq(a,tau,[lwork,overwrite_a])\n\nWrapper for ``sorgrq``.\ | |||
| 81365 | \n\nParameters\n----------\n" | |||
| 81366 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 81367 | "tau : input rank-1 array('f') with bounds (k)\n" | |||
| 81368 | "\nOther Parameters\n----------------\n" | |||
| 81369 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 81370 | "lwork : input int, optional\n Default: max(3*m,1)\n" | |||
| 81371 | "\nReturns\n-------\n" | |||
| 81372 | "q : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 81373 | "work : rank-1 array('f') with bounds (MAX(lwork,1))\n" | |||
| 81374 | "info : int"; | |||
| 81375 | /* extern void F_FUNC(sorgrq,SORGRQ)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 81376 | static PyObject *f2py_rout__flapack_sorgrq(const PyObject *capi_self, | |||
| 81377 | PyObject *capi_args, | |||
| 81378 | PyObject *capi_keywds, | |||
| 81379 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 81380 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 81381 | volatile int f2py_success = 1; | |||
| 81382 | /*decl*/ | |||
| 81383 | ||||
| 81384 | int m = 0; | |||
| 81385 | int n = 0; | |||
| 81386 | int k = 0; | |||
| 81387 | float *a = NULL((void*)0); | |||
| 81388 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 81389 | const int a_Rank = 2; | |||
| 81390 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 81391 | int capi_a_intent = 0; | |||
| 81392 | int capi_overwrite_a = 0; | |||
| 81393 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 81394 | float *tau = NULL((void*)0); | |||
| 81395 | npy_intp tau_Dims[1] = {-1}; | |||
| 81396 | const int tau_Rank = 1; | |||
| 81397 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 81398 | int capi_tau_intent = 0; | |||
| 81399 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 81400 | float *work = NULL((void*)0); | |||
| 81401 | npy_intp work_Dims[1] = {-1}; | |||
| 81402 | const int work_Rank = 1; | |||
| 81403 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 81404 | int capi_work_intent = 0; | |||
| 81405 | int lwork = 0; | |||
| 81406 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 81407 | int info = 0; | |||
| 81408 | static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)}; | |||
| 81409 | ||||
| 81410 | /*routdebugenter*/ | |||
| 81411 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81412 | f2py_start_clock(); | |||
| 81413 | #endif | |||
| 81414 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 81415 | "OO|Oi:_flapack.sorgrq",\ | |||
| 81416 | capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 81417 | return NULL((void*)0); | |||
| 81418 | /*frompyobj*/ | |||
| 81419 | /* Processing variable a */ | |||
| 81420 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 81421 | ; | |||
| 81422 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 81423 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 81424 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 81425 | if (!PyErr_Occurred()) | |||
| 81426 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sorgrq to C/Fortran array" ); | |||
| 81427 | } else { | |||
| 81428 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 81429 | ||||
| 81430 | /* Processing variable tau */ | |||
| 81431 | ; | |||
| 81432 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 81433 | capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 81434 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 81435 | if (!PyErr_Occurred()) | |||
| 81436 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.sorgrq to C/Fortran array" ); | |||
| 81437 | } else { | |||
| 81438 | tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 81439 | ||||
| 81440 | /* Processing variable info */ | |||
| 81441 | /* Processing variable m */ | |||
| 81442 | m = shape(a,0)a_Dims[0]; | |||
| 81443 | /* Processing variable n */ | |||
| 81444 | n = shape(a,1)a_Dims[1]; | |||
| 81445 | /* Processing variable k */ | |||
| 81446 | k = shape(tau,0)tau_Dims[0]; | |||
| 81447 | /* Processing variable lwork */ | |||
| 81448 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else | |||
| 81449 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sorgrq() 1st keyword (lwork) can't be converted to int"); | |||
| 81450 | if (f2py_success) { | |||
| 81451 | CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","sorgrq:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sorgrq:lwork=%d", "(""lwork>=m||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 81452 | /* Processing variable work */ | |||
| 81453 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 81454 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 81455 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 81456 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 81457 | if (!PyErr_Occurred()) | |||
| 81458 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sorgrq to C/Fortran array" ); | |||
| 81459 | } else { | |||
| 81460 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 81461 | ||||
| 81462 | /*end of frompyobj*/ | |||
| 81463 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81464 | f2py_start_call_clock(); | |||
| 81465 | #endif | |||
| 81466 | /*callfortranroutine*/ | |||
| 81467 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 81468 | (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ; | |||
| 81469 | /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/ | |||
| 81470 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 81471 | if (PyErr_Occurred()) | |||
| 81472 | f2py_success = 0; | |||
| 81473 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81474 | f2py_stop_call_clock(); | |||
| 81475 | #endif | |||
| 81476 | /*end of callfortranroutine*/ | |||
| 81477 | if (f2py_success) { | |||
| 81478 | /*pyobjfrom*/ | |||
| 81479 | /*end of pyobjfrom*/ | |||
| 81480 | CFUNCSMESS("Building return value.\n"); | |||
| 81481 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info); | |||
| 81482 | /*closepyobjfrom*/ | |||
| 81483 | /*end of closepyobjfrom*/ | |||
| 81484 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 81485 | /*cleanupfrompyobj*/ | |||
| 81486 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 81487 | /* End of cleaning variable work */ | |||
| 81488 | } /*CHECKSCALAR(lwork>=m||lwork==-1)*/ | |||
| 81489 | } /*if (f2py_success) of lwork*/ | |||
| 81490 | /* End of cleaning variable lwork */ | |||
| 81491 | /* End of cleaning variable k */ | |||
| 81492 | /* End of cleaning variable n */ | |||
| 81493 | /* End of cleaning variable m */ | |||
| 81494 | /* End of cleaning variable info */ | |||
| 81495 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 81496 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 81497 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 81498 | /* End of cleaning variable tau */ | |||
| 81499 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 81500 | /* End of cleaning variable a */ | |||
| 81501 | /*end of cleanupfrompyobj*/ | |||
| 81502 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 81503 | /*routdebugfailure*/ | |||
| 81504 | } else { | |||
| 81505 | /*routdebugleave*/ | |||
| 81506 | } | |||
| 81507 | CFUNCSMESS("Freeing memory.\n"); | |||
| 81508 | /*freemem*/ | |||
| 81509 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81510 | f2py_stop_clock(); | |||
| 81511 | #endif | |||
| 81512 | return capi_buildvalue; | |||
| 81513 | } | |||
| 81514 | /******************************* end of sorgrq *******************************/ | |||
| 81515 | ||||
| 81516 | /*********************************** dorgrq ***********************************/ | |||
| 81517 | static char doc_f2py_rout__flapack_dorgrq[] = "\ | |||
| 81518 | q,work,info = dorgrq(a,tau,[lwork,overwrite_a])\n\nWrapper for ``dorgrq``.\ | |||
| 81519 | \n\nParameters\n----------\n" | |||
| 81520 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 81521 | "tau : input rank-1 array('d') with bounds (k)\n" | |||
| 81522 | "\nOther Parameters\n----------------\n" | |||
| 81523 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 81524 | "lwork : input int, optional\n Default: max(3*m,1)\n" | |||
| 81525 | "\nReturns\n-------\n" | |||
| 81526 | "q : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 81527 | "work : rank-1 array('d') with bounds (MAX(lwork,1))\n" | |||
| 81528 | "info : int"; | |||
| 81529 | /* extern void F_FUNC(dorgrq,DORGRQ)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 81530 | static PyObject *f2py_rout__flapack_dorgrq(const PyObject *capi_self, | |||
| 81531 | PyObject *capi_args, | |||
| 81532 | PyObject *capi_keywds, | |||
| 81533 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 81534 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 81535 | volatile int f2py_success = 1; | |||
| 81536 | /*decl*/ | |||
| 81537 | ||||
| 81538 | int m = 0; | |||
| 81539 | int n = 0; | |||
| 81540 | int k = 0; | |||
| 81541 | double *a = NULL((void*)0); | |||
| 81542 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 81543 | const int a_Rank = 2; | |||
| 81544 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 81545 | int capi_a_intent = 0; | |||
| 81546 | int capi_overwrite_a = 0; | |||
| 81547 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 81548 | double *tau = NULL((void*)0); | |||
| 81549 | npy_intp tau_Dims[1] = {-1}; | |||
| 81550 | const int tau_Rank = 1; | |||
| 81551 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 81552 | int capi_tau_intent = 0; | |||
| 81553 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 81554 | double *work = NULL((void*)0); | |||
| 81555 | npy_intp work_Dims[1] = {-1}; | |||
| 81556 | const int work_Rank = 1; | |||
| 81557 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 81558 | int capi_work_intent = 0; | |||
| 81559 | int lwork = 0; | |||
| 81560 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 81561 | int info = 0; | |||
| 81562 | static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)}; | |||
| 81563 | ||||
| 81564 | /*routdebugenter*/ | |||
| 81565 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81566 | f2py_start_clock(); | |||
| 81567 | #endif | |||
| 81568 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 81569 | "OO|Oi:_flapack.dorgrq",\ | |||
| 81570 | capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 81571 | return NULL((void*)0); | |||
| 81572 | /*frompyobj*/ | |||
| 81573 | /* Processing variable a */ | |||
| 81574 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 81575 | ; | |||
| 81576 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 81577 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 81578 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 81579 | if (!PyErr_Occurred()) | |||
| 81580 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dorgrq to C/Fortran array" ); | |||
| 81581 | } else { | |||
| 81582 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 81583 | ||||
| 81584 | /* Processing variable tau */ | |||
| 81585 | ; | |||
| 81586 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 81587 | capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 81588 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 81589 | if (!PyErr_Occurred()) | |||
| 81590 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.dorgrq to C/Fortran array" ); | |||
| 81591 | } else { | |||
| 81592 | tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 81593 | ||||
| 81594 | /* Processing variable info */ | |||
| 81595 | /* Processing variable m */ | |||
| 81596 | m = shape(a,0)a_Dims[0]; | |||
| 81597 | /* Processing variable n */ | |||
| 81598 | n = shape(a,1)a_Dims[1]; | |||
| 81599 | /* Processing variable k */ | |||
| 81600 | k = shape(tau,0)tau_Dims[0]; | |||
| 81601 | /* Processing variable lwork */ | |||
| 81602 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else | |||
| 81603 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dorgrq() 1st keyword (lwork) can't be converted to int"); | |||
| 81604 | if (f2py_success) { | |||
| 81605 | CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","dorgrq:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dorgrq:lwork=%d", "(""lwork>=m||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 81606 | /* Processing variable work */ | |||
| 81607 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 81608 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 81609 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 81610 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 81611 | if (!PyErr_Occurred()) | |||
| 81612 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dorgrq to C/Fortran array" ); | |||
| 81613 | } else { | |||
| 81614 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 81615 | ||||
| 81616 | /*end of frompyobj*/ | |||
| 81617 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81618 | f2py_start_call_clock(); | |||
| 81619 | #endif | |||
| 81620 | /*callfortranroutine*/ | |||
| 81621 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 81622 | (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ; | |||
| 81623 | /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/ | |||
| 81624 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 81625 | if (PyErr_Occurred()) | |||
| 81626 | f2py_success = 0; | |||
| 81627 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81628 | f2py_stop_call_clock(); | |||
| 81629 | #endif | |||
| 81630 | /*end of callfortranroutine*/ | |||
| 81631 | if (f2py_success) { | |||
| 81632 | /*pyobjfrom*/ | |||
| 81633 | /*end of pyobjfrom*/ | |||
| 81634 | CFUNCSMESS("Building return value.\n"); | |||
| 81635 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info); | |||
| 81636 | /*closepyobjfrom*/ | |||
| 81637 | /*end of closepyobjfrom*/ | |||
| 81638 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 81639 | /*cleanupfrompyobj*/ | |||
| 81640 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 81641 | /* End of cleaning variable work */ | |||
| 81642 | } /*CHECKSCALAR(lwork>=m||lwork==-1)*/ | |||
| 81643 | } /*if (f2py_success) of lwork*/ | |||
| 81644 | /* End of cleaning variable lwork */ | |||
| 81645 | /* End of cleaning variable k */ | |||
| 81646 | /* End of cleaning variable n */ | |||
| 81647 | /* End of cleaning variable m */ | |||
| 81648 | /* End of cleaning variable info */ | |||
| 81649 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 81650 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 81651 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 81652 | /* End of cleaning variable tau */ | |||
| 81653 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 81654 | /* End of cleaning variable a */ | |||
| 81655 | /*end of cleanupfrompyobj*/ | |||
| 81656 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 81657 | /*routdebugfailure*/ | |||
| 81658 | } else { | |||
| 81659 | /*routdebugleave*/ | |||
| 81660 | } | |||
| 81661 | CFUNCSMESS("Freeing memory.\n"); | |||
| 81662 | /*freemem*/ | |||
| 81663 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81664 | f2py_stop_clock(); | |||
| 81665 | #endif | |||
| 81666 | return capi_buildvalue; | |||
| 81667 | } | |||
| 81668 | /******************************* end of dorgrq *******************************/ | |||
| 81669 | ||||
| 81670 | /*********************************** cungrq ***********************************/ | |||
| 81671 | static char doc_f2py_rout__flapack_cungrq[] = "\ | |||
| 81672 | q,work,info = cungrq(a,tau,[lwork,overwrite_a])\n\nWrapper for ``cungrq``.\ | |||
| 81673 | \n\nParameters\n----------\n" | |||
| 81674 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 81675 | "tau : input rank-1 array('F') with bounds (k)\n" | |||
| 81676 | "\nOther Parameters\n----------------\n" | |||
| 81677 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 81678 | "lwork : input int, optional\n Default: max(3*m,1)\n" | |||
| 81679 | "\nReturns\n-------\n" | |||
| 81680 | "q : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 81681 | "work : rank-1 array('F') with bounds (MAX(lwork,1))\n" | |||
| 81682 | "info : int"; | |||
| 81683 | /* extern void F_FUNC(cungrq,CUNGRQ)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 81684 | static PyObject *f2py_rout__flapack_cungrq(const PyObject *capi_self, | |||
| 81685 | PyObject *capi_args, | |||
| 81686 | PyObject *capi_keywds, | |||
| 81687 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 81688 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 81689 | volatile int f2py_success = 1; | |||
| 81690 | /*decl*/ | |||
| 81691 | ||||
| 81692 | int m = 0; | |||
| 81693 | int n = 0; | |||
| 81694 | int k = 0; | |||
| 81695 | complex_float *a = NULL((void*)0); | |||
| 81696 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 81697 | const int a_Rank = 2; | |||
| 81698 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 81699 | int capi_a_intent = 0; | |||
| 81700 | int capi_overwrite_a = 0; | |||
| 81701 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 81702 | complex_float *tau = NULL((void*)0); | |||
| 81703 | npy_intp tau_Dims[1] = {-1}; | |||
| 81704 | const int tau_Rank = 1; | |||
| 81705 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 81706 | int capi_tau_intent = 0; | |||
| 81707 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 81708 | complex_float *work = NULL((void*)0); | |||
| 81709 | npy_intp work_Dims[1] = {-1}; | |||
| 81710 | const int work_Rank = 1; | |||
| 81711 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 81712 | int capi_work_intent = 0; | |||
| 81713 | int lwork = 0; | |||
| 81714 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 81715 | int info = 0; | |||
| 81716 | static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)}; | |||
| 81717 | ||||
| 81718 | /*routdebugenter*/ | |||
| 81719 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81720 | f2py_start_clock(); | |||
| 81721 | #endif | |||
| 81722 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 81723 | "OO|Oi:_flapack.cungrq",\ | |||
| 81724 | capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 81725 | return NULL((void*)0); | |||
| 81726 | /*frompyobj*/ | |||
| 81727 | /* Processing variable a */ | |||
| 81728 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 81729 | ; | |||
| 81730 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 81731 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 81732 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 81733 | if (!PyErr_Occurred()) | |||
| 81734 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cungrq to C/Fortran array" ); | |||
| 81735 | } else { | |||
| 81736 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 81737 | ||||
| 81738 | /* Processing variable tau */ | |||
| 81739 | ; | |||
| 81740 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 81741 | capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 81742 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 81743 | if (!PyErr_Occurred()) | |||
| 81744 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.cungrq to C/Fortran array" ); | |||
| 81745 | } else { | |||
| 81746 | tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 81747 | ||||
| 81748 | /* Processing variable info */ | |||
| 81749 | /* Processing variable m */ | |||
| 81750 | m = shape(a,0)a_Dims[0]; | |||
| 81751 | /* Processing variable n */ | |||
| 81752 | n = shape(a,1)a_Dims[1]; | |||
| 81753 | /* Processing variable k */ | |||
| 81754 | k = shape(tau,0)tau_Dims[0]; | |||
| 81755 | /* Processing variable lwork */ | |||
| 81756 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else | |||
| 81757 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cungrq() 1st keyword (lwork) can't be converted to int"); | |||
| 81758 | if (f2py_success) { | |||
| 81759 | CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","cungrq:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cungrq:lwork=%d", "(""lwork>=m||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 81760 | /* Processing variable work */ | |||
| 81761 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 81762 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 81763 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 81764 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 81765 | if (!PyErr_Occurred()) | |||
| 81766 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cungrq to C/Fortran array" ); | |||
| 81767 | } else { | |||
| 81768 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 81769 | ||||
| 81770 | /*end of frompyobj*/ | |||
| 81771 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81772 | f2py_start_call_clock(); | |||
| 81773 | #endif | |||
| 81774 | /*callfortranroutine*/ | |||
| 81775 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 81776 | (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ; | |||
| 81777 | /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/ | |||
| 81778 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 81779 | if (PyErr_Occurred()) | |||
| 81780 | f2py_success = 0; | |||
| 81781 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81782 | f2py_stop_call_clock(); | |||
| 81783 | #endif | |||
| 81784 | /*end of callfortranroutine*/ | |||
| 81785 | if (f2py_success) { | |||
| 81786 | /*pyobjfrom*/ | |||
| 81787 | /*end of pyobjfrom*/ | |||
| 81788 | CFUNCSMESS("Building return value.\n"); | |||
| 81789 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info); | |||
| 81790 | /*closepyobjfrom*/ | |||
| 81791 | /*end of closepyobjfrom*/ | |||
| 81792 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 81793 | /*cleanupfrompyobj*/ | |||
| 81794 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 81795 | /* End of cleaning variable work */ | |||
| 81796 | } /*CHECKSCALAR(lwork>=m||lwork==-1)*/ | |||
| 81797 | } /*if (f2py_success) of lwork*/ | |||
| 81798 | /* End of cleaning variable lwork */ | |||
| 81799 | /* End of cleaning variable k */ | |||
| 81800 | /* End of cleaning variable n */ | |||
| 81801 | /* End of cleaning variable m */ | |||
| 81802 | /* End of cleaning variable info */ | |||
| 81803 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 81804 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 81805 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 81806 | /* End of cleaning variable tau */ | |||
| 81807 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 81808 | /* End of cleaning variable a */ | |||
| 81809 | /*end of cleanupfrompyobj*/ | |||
| 81810 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 81811 | /*routdebugfailure*/ | |||
| 81812 | } else { | |||
| 81813 | /*routdebugleave*/ | |||
| 81814 | } | |||
| 81815 | CFUNCSMESS("Freeing memory.\n"); | |||
| 81816 | /*freemem*/ | |||
| 81817 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81818 | f2py_stop_clock(); | |||
| 81819 | #endif | |||
| 81820 | return capi_buildvalue; | |||
| 81821 | } | |||
| 81822 | /******************************* end of cungrq *******************************/ | |||
| 81823 | ||||
| 81824 | /*********************************** zungrq ***********************************/ | |||
| 81825 | static char doc_f2py_rout__flapack_zungrq[] = "\ | |||
| 81826 | q,work,info = zungrq(a,tau,[lwork,overwrite_a])\n\nWrapper for ``zungrq``.\ | |||
| 81827 | \n\nParameters\n----------\n" | |||
| 81828 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 81829 | "tau : input rank-1 array('D') with bounds (k)\n" | |||
| 81830 | "\nOther Parameters\n----------------\n" | |||
| 81831 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 81832 | "lwork : input int, optional\n Default: max(3*m,1)\n" | |||
| 81833 | "\nReturns\n-------\n" | |||
| 81834 | "q : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 81835 | "work : rank-1 array('D') with bounds (MAX(lwork,1))\n" | |||
| 81836 | "info : int"; | |||
| 81837 | /* extern void F_FUNC(zungrq,ZUNGRQ)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 81838 | static PyObject *f2py_rout__flapack_zungrq(const PyObject *capi_self, | |||
| 81839 | PyObject *capi_args, | |||
| 81840 | PyObject *capi_keywds, | |||
| 81841 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 81842 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 81843 | volatile int f2py_success = 1; | |||
| 81844 | /*decl*/ | |||
| 81845 | ||||
| 81846 | int m = 0; | |||
| 81847 | int n = 0; | |||
| 81848 | int k = 0; | |||
| 81849 | complex_double *a = NULL((void*)0); | |||
| 81850 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 81851 | const int a_Rank = 2; | |||
| 81852 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 81853 | int capi_a_intent = 0; | |||
| 81854 | int capi_overwrite_a = 0; | |||
| 81855 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 81856 | complex_double *tau = NULL((void*)0); | |||
| 81857 | npy_intp tau_Dims[1] = {-1}; | |||
| 81858 | const int tau_Rank = 1; | |||
| 81859 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 81860 | int capi_tau_intent = 0; | |||
| 81861 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 81862 | complex_double *work = NULL((void*)0); | |||
| 81863 | npy_intp work_Dims[1] = {-1}; | |||
| 81864 | const int work_Rank = 1; | |||
| 81865 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 81866 | int capi_work_intent = 0; | |||
| 81867 | int lwork = 0; | |||
| 81868 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 81869 | int info = 0; | |||
| 81870 | static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)}; | |||
| 81871 | ||||
| 81872 | /*routdebugenter*/ | |||
| 81873 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81874 | f2py_start_clock(); | |||
| 81875 | #endif | |||
| 81876 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 81877 | "OO|Oi:_flapack.zungrq",\ | |||
| 81878 | capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 81879 | return NULL((void*)0); | |||
| 81880 | /*frompyobj*/ | |||
| 81881 | /* Processing variable a */ | |||
| 81882 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 81883 | ; | |||
| 81884 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 81885 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 81886 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 81887 | if (!PyErr_Occurred()) | |||
| 81888 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zungrq to C/Fortran array" ); | |||
| 81889 | } else { | |||
| 81890 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 81891 | ||||
| 81892 | /* Processing variable tau */ | |||
| 81893 | ; | |||
| 81894 | capi_tau_intent |= F2PY_INTENT_IN1; | |||
| 81895 | capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi); | |||
| 81896 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 81897 | if (!PyErr_Occurred()) | |||
| 81898 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.zungrq to C/Fortran array" ); | |||
| 81899 | } else { | |||
| 81900 | tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 81901 | ||||
| 81902 | /* Processing variable info */ | |||
| 81903 | /* Processing variable m */ | |||
| 81904 | m = shape(a,0)a_Dims[0]; | |||
| 81905 | /* Processing variable n */ | |||
| 81906 | n = shape(a,1)a_Dims[1]; | |||
| 81907 | /* Processing variable k */ | |||
| 81908 | k = shape(tau,0)tau_Dims[0]; | |||
| 81909 | /* Processing variable lwork */ | |||
| 81910 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else | |||
| 81911 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zungrq() 1st keyword (lwork) can't be converted to int"); | |||
| 81912 | if (f2py_success) { | |||
| 81913 | CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","zungrq:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zungrq:lwork=%d", "(""lwork>=m||lwork==-1"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 81914 | /* Processing variable work */ | |||
| 81915 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 81916 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 81917 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 81918 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 81919 | if (!PyErr_Occurred()) | |||
| 81920 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zungrq to C/Fortran array" ); | |||
| 81921 | } else { | |||
| 81922 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 81923 | ||||
| 81924 | /*end of frompyobj*/ | |||
| 81925 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81926 | f2py_start_call_clock(); | |||
| 81927 | #endif | |||
| 81928 | /*callfortranroutine*/ | |||
| 81929 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 81930 | (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ; | |||
| 81931 | /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/ | |||
| 81932 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 81933 | if (PyErr_Occurred()) | |||
| 81934 | f2py_success = 0; | |||
| 81935 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81936 | f2py_stop_call_clock(); | |||
| 81937 | #endif | |||
| 81938 | /*end of callfortranroutine*/ | |||
| 81939 | if (f2py_success) { | |||
| 81940 | /*pyobjfrom*/ | |||
| 81941 | /*end of pyobjfrom*/ | |||
| 81942 | CFUNCSMESS("Building return value.\n"); | |||
| 81943 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info); | |||
| 81944 | /*closepyobjfrom*/ | |||
| 81945 | /*end of closepyobjfrom*/ | |||
| 81946 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 81947 | /*cleanupfrompyobj*/ | |||
| 81948 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 81949 | /* End of cleaning variable work */ | |||
| 81950 | } /*CHECKSCALAR(lwork>=m||lwork==-1)*/ | |||
| 81951 | } /*if (f2py_success) of lwork*/ | |||
| 81952 | /* End of cleaning variable lwork */ | |||
| 81953 | /* End of cleaning variable k */ | |||
| 81954 | /* End of cleaning variable n */ | |||
| 81955 | /* End of cleaning variable m */ | |||
| 81956 | /* End of cleaning variable info */ | |||
| 81957 | if((PyObject *)capi_tau_tmp!=tau_capi) { | |||
| 81958 | Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); } | |||
| 81959 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 81960 | /* End of cleaning variable tau */ | |||
| 81961 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 81962 | /* End of cleaning variable a */ | |||
| 81963 | /*end of cleanupfrompyobj*/ | |||
| 81964 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 81965 | /*routdebugfailure*/ | |||
| 81966 | } else { | |||
| 81967 | /*routdebugleave*/ | |||
| 81968 | } | |||
| 81969 | CFUNCSMESS("Freeing memory.\n"); | |||
| 81970 | /*freemem*/ | |||
| 81971 | #ifdef F2PY_REPORT_ATEXIT | |||
| 81972 | f2py_stop_clock(); | |||
| 81973 | #endif | |||
| 81974 | return capi_buildvalue; | |||
| 81975 | } | |||
| 81976 | /******************************* end of zungrq *******************************/ | |||
| 81977 | ||||
| 81978 | /*********************************** strtri ***********************************/ | |||
| 81979 | static char doc_f2py_rout__flapack_strtri[] = "\ | |||
| 81980 | inv_c,info = strtri(c,[lower,unitdiag,overwrite_c])\n\nWrapper for ``strtri``.\ | |||
| 81981 | \n\nParameters\n----------\n" | |||
| 81982 | "c : input rank-2 array('f') with bounds (n,n)\n" | |||
| 81983 | "\nOther Parameters\n----------------\n" | |||
| 81984 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 81985 | "lower : input int, optional\n Default: 0\n" | |||
| 81986 | "unitdiag : input int, optional\n Default: 0\n" | |||
| 81987 | "\nReturns\n-------\n" | |||
| 81988 | "inv_c : rank-2 array('f') with bounds (n,n) and c storage\n" | |||
| 81989 | "info : int"; | |||
| 81990 | /* extern void F_FUNC(strtri,STRTRI)(char*,char*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 81991 | static PyObject *f2py_rout__flapack_strtri(const PyObject *capi_self, | |||
| 81992 | PyObject *capi_args, | |||
| 81993 | PyObject *capi_keywds, | |||
| 81994 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 81995 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 81996 | volatile int f2py_success = 1; | |||
| 81997 | /*decl*/ | |||
| 81998 | ||||
| 81999 | int n = 0; | |||
| 82000 | float *c = NULL((void*)0); | |||
| 82001 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 82002 | const int c_Rank = 2; | |||
| 82003 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 82004 | int capi_c_intent = 0; | |||
| 82005 | int capi_overwrite_c = 0; | |||
| 82006 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 82007 | int info = 0; | |||
| 82008 | int lower = 0; | |||
| 82009 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 82010 | int unitdiag = 0; | |||
| 82011 | PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct); | |||
| 82012 | static char *capi_kwlist[] = {"c","lower","unitdiag","overwrite_c",NULL((void*)0)}; | |||
| 82013 | ||||
| 82014 | /*routdebugenter*/ | |||
| 82015 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82016 | f2py_start_clock(); | |||
| 82017 | #endif | |||
| 82018 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 82019 | "O|OOi:_flapack.strtri",\ | |||
| 82020 | capi_kwlist,&c_capi,&lower_capi,&unitdiag_capi,&capi_overwrite_c)) | |||
| 82021 | return NULL((void*)0); | |||
| 82022 | /*frompyobj*/ | |||
| 82023 | /* Processing variable lower */ | |||
| 82024 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 82025 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.strtri() 1st keyword (lower) can't be converted to int"); | |||
| 82026 | if (f2py_success) { | |||
| 82027 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","strtri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""strtri:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 82028 | /* Processing variable unitdiag */ | |||
| 82029 | if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else | |||
| 82030 | f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.strtri() 2nd keyword (unitdiag) can't be converted to int"); | |||
| 82031 | if (f2py_success) { | |||
| 82032 | CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","2nd keyword unitdiag","strtri:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""strtri:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for " "2nd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 82033 | /* Processing variable c */ | |||
| 82034 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 82035 | ; | |||
| 82036 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 82037 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 82038 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 82039 | if (!PyErr_Occurred()) | |||
| 82040 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.strtri to C/Fortran array" ); | |||
| 82041 | } else { | |||
| 82042 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 82043 | ||||
| 82044 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 82045 | /* Processing variable info */ | |||
| 82046 | /* Processing variable n */ | |||
| 82047 | n = shape(c,0)c_Dims[0]; | |||
| 82048 | /*end of frompyobj*/ | |||
| 82049 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82050 | f2py_start_call_clock(); | |||
| 82051 | #endif | |||
| 82052 | /*callfortranroutine*/ | |||
| 82053 | (*f2py_func)((lower?"L":"U"),(unitdiag?"U":"N"),&n,c,&n,&info) ; | |||
| 82054 | /*(*f2py_func)(&n,c,&info,&lower,&unitdiag);*/ | |||
| 82055 | if (PyErr_Occurred()) | |||
| 82056 | f2py_success = 0; | |||
| 82057 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82058 | f2py_stop_call_clock(); | |||
| 82059 | #endif | |||
| 82060 | /*end of callfortranroutine*/ | |||
| 82061 | if (f2py_success) { | |||
| 82062 | /*pyobjfrom*/ | |||
| 82063 | /*end of pyobjfrom*/ | |||
| 82064 | CFUNCSMESS("Building return value.\n"); | |||
| 82065 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 82066 | /*closepyobjfrom*/ | |||
| 82067 | /*end of closepyobjfrom*/ | |||
| 82068 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 82069 | /*cleanupfrompyobj*/ | |||
| 82070 | /* End of cleaning variable n */ | |||
| 82071 | /* End of cleaning variable info */ | |||
| 82072 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 82073 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 82074 | /* End of cleaning variable c */ | |||
| 82075 | } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/ | |||
| 82076 | } /*if (f2py_success) of unitdiag*/ | |||
| 82077 | /* End of cleaning variable unitdiag */ | |||
| 82078 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 82079 | } /*if (f2py_success) of lower*/ | |||
| 82080 | /* End of cleaning variable lower */ | |||
| 82081 | /*end of cleanupfrompyobj*/ | |||
| 82082 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 82083 | /*routdebugfailure*/ | |||
| 82084 | } else { | |||
| 82085 | /*routdebugleave*/ | |||
| 82086 | } | |||
| 82087 | CFUNCSMESS("Freeing memory.\n"); | |||
| 82088 | /*freemem*/ | |||
| 82089 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82090 | f2py_stop_clock(); | |||
| 82091 | #endif | |||
| 82092 | return capi_buildvalue; | |||
| 82093 | } | |||
| 82094 | /******************************* end of strtri *******************************/ | |||
| 82095 | ||||
| 82096 | /*********************************** dtrtri ***********************************/ | |||
| 82097 | static char doc_f2py_rout__flapack_dtrtri[] = "\ | |||
| 82098 | inv_c,info = dtrtri(c,[lower,unitdiag,overwrite_c])\n\nWrapper for ``dtrtri``.\ | |||
| 82099 | \n\nParameters\n----------\n" | |||
| 82100 | "c : input rank-2 array('d') with bounds (n,n)\n" | |||
| 82101 | "\nOther Parameters\n----------------\n" | |||
| 82102 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 82103 | "lower : input int, optional\n Default: 0\n" | |||
| 82104 | "unitdiag : input int, optional\n Default: 0\n" | |||
| 82105 | "\nReturns\n-------\n" | |||
| 82106 | "inv_c : rank-2 array('d') with bounds (n,n) and c storage\n" | |||
| 82107 | "info : int"; | |||
| 82108 | /* extern void F_FUNC(dtrtri,DTRTRI)(char*,char*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 82109 | static PyObject *f2py_rout__flapack_dtrtri(const PyObject *capi_self, | |||
| 82110 | PyObject *capi_args, | |||
| 82111 | PyObject *capi_keywds, | |||
| 82112 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 82113 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 82114 | volatile int f2py_success = 1; | |||
| 82115 | /*decl*/ | |||
| 82116 | ||||
| 82117 | int n = 0; | |||
| 82118 | double *c = NULL((void*)0); | |||
| 82119 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 82120 | const int c_Rank = 2; | |||
| 82121 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 82122 | int capi_c_intent = 0; | |||
| 82123 | int capi_overwrite_c = 0; | |||
| 82124 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 82125 | int info = 0; | |||
| 82126 | int lower = 0; | |||
| 82127 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 82128 | int unitdiag = 0; | |||
| 82129 | PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct); | |||
| 82130 | static char *capi_kwlist[] = {"c","lower","unitdiag","overwrite_c",NULL((void*)0)}; | |||
| 82131 | ||||
| 82132 | /*routdebugenter*/ | |||
| 82133 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82134 | f2py_start_clock(); | |||
| 82135 | #endif | |||
| 82136 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 82137 | "O|OOi:_flapack.dtrtri",\ | |||
| 82138 | capi_kwlist,&c_capi,&lower_capi,&unitdiag_capi,&capi_overwrite_c)) | |||
| 82139 | return NULL((void*)0); | |||
| 82140 | /*frompyobj*/ | |||
| 82141 | /* Processing variable lower */ | |||
| 82142 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 82143 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dtrtri() 1st keyword (lower) can't be converted to int"); | |||
| 82144 | if (f2py_success) { | |||
| 82145 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dtrtri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtrtri:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 82146 | /* Processing variable unitdiag */ | |||
| 82147 | if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else | |||
| 82148 | f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.dtrtri() 2nd keyword (unitdiag) can't be converted to int"); | |||
| 82149 | if (f2py_success) { | |||
| 82150 | CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","2nd keyword unitdiag","dtrtri:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtrtri:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for " "2nd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 82151 | /* Processing variable c */ | |||
| 82152 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 82153 | ; | |||
| 82154 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 82155 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 82156 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 82157 | if (!PyErr_Occurred()) | |||
| 82158 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.dtrtri to C/Fortran array" ); | |||
| 82159 | } else { | |||
| 82160 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 82161 | ||||
| 82162 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 82163 | /* Processing variable info */ | |||
| 82164 | /* Processing variable n */ | |||
| 82165 | n = shape(c,0)c_Dims[0]; | |||
| 82166 | /*end of frompyobj*/ | |||
| 82167 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82168 | f2py_start_call_clock(); | |||
| 82169 | #endif | |||
| 82170 | /*callfortranroutine*/ | |||
| 82171 | (*f2py_func)((lower?"L":"U"),(unitdiag?"U":"N"),&n,c,&n,&info) ; | |||
| 82172 | /*(*f2py_func)(&n,c,&info,&lower,&unitdiag);*/ | |||
| 82173 | if (PyErr_Occurred()) | |||
| 82174 | f2py_success = 0; | |||
| 82175 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82176 | f2py_stop_call_clock(); | |||
| 82177 | #endif | |||
| 82178 | /*end of callfortranroutine*/ | |||
| 82179 | if (f2py_success) { | |||
| 82180 | /*pyobjfrom*/ | |||
| 82181 | /*end of pyobjfrom*/ | |||
| 82182 | CFUNCSMESS("Building return value.\n"); | |||
| 82183 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 82184 | /*closepyobjfrom*/ | |||
| 82185 | /*end of closepyobjfrom*/ | |||
| 82186 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 82187 | /*cleanupfrompyobj*/ | |||
| 82188 | /* End of cleaning variable n */ | |||
| 82189 | /* End of cleaning variable info */ | |||
| 82190 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 82191 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 82192 | /* End of cleaning variable c */ | |||
| 82193 | } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/ | |||
| 82194 | } /*if (f2py_success) of unitdiag*/ | |||
| 82195 | /* End of cleaning variable unitdiag */ | |||
| 82196 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 82197 | } /*if (f2py_success) of lower*/ | |||
| 82198 | /* End of cleaning variable lower */ | |||
| 82199 | /*end of cleanupfrompyobj*/ | |||
| 82200 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 82201 | /*routdebugfailure*/ | |||
| 82202 | } else { | |||
| 82203 | /*routdebugleave*/ | |||
| 82204 | } | |||
| 82205 | CFUNCSMESS("Freeing memory.\n"); | |||
| 82206 | /*freemem*/ | |||
| 82207 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82208 | f2py_stop_clock(); | |||
| 82209 | #endif | |||
| 82210 | return capi_buildvalue; | |||
| 82211 | } | |||
| 82212 | /******************************* end of dtrtri *******************************/ | |||
| 82213 | ||||
| 82214 | /*********************************** ctrtri ***********************************/ | |||
| 82215 | static char doc_f2py_rout__flapack_ctrtri[] = "\ | |||
| 82216 | inv_c,info = ctrtri(c,[lower,unitdiag,overwrite_c])\n\nWrapper for ``ctrtri``.\ | |||
| 82217 | \n\nParameters\n----------\n" | |||
| 82218 | "c : input rank-2 array('F') with bounds (n,n)\n" | |||
| 82219 | "\nOther Parameters\n----------------\n" | |||
| 82220 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 82221 | "lower : input int, optional\n Default: 0\n" | |||
| 82222 | "unitdiag : input int, optional\n Default: 0\n" | |||
| 82223 | "\nReturns\n-------\n" | |||
| 82224 | "inv_c : rank-2 array('F') with bounds (n,n) and c storage\n" | |||
| 82225 | "info : int"; | |||
| 82226 | /* extern void F_FUNC(ctrtri,CTRTRI)(char*,char*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 82227 | static PyObject *f2py_rout__flapack_ctrtri(const PyObject *capi_self, | |||
| 82228 | PyObject *capi_args, | |||
| 82229 | PyObject *capi_keywds, | |||
| 82230 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 82231 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 82232 | volatile int f2py_success = 1; | |||
| 82233 | /*decl*/ | |||
| 82234 | ||||
| 82235 | int n = 0; | |||
| 82236 | complex_float *c = NULL((void*)0); | |||
| 82237 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 82238 | const int c_Rank = 2; | |||
| 82239 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 82240 | int capi_c_intent = 0; | |||
| 82241 | int capi_overwrite_c = 0; | |||
| 82242 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 82243 | int info = 0; | |||
| 82244 | int lower = 0; | |||
| 82245 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 82246 | int unitdiag = 0; | |||
| 82247 | PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct); | |||
| 82248 | static char *capi_kwlist[] = {"c","lower","unitdiag","overwrite_c",NULL((void*)0)}; | |||
| 82249 | ||||
| 82250 | /*routdebugenter*/ | |||
| 82251 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82252 | f2py_start_clock(); | |||
| 82253 | #endif | |||
| 82254 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 82255 | "O|OOi:_flapack.ctrtri",\ | |||
| 82256 | capi_kwlist,&c_capi,&lower_capi,&unitdiag_capi,&capi_overwrite_c)) | |||
| 82257 | return NULL((void*)0); | |||
| 82258 | /*frompyobj*/ | |||
| 82259 | /* Processing variable lower */ | |||
| 82260 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 82261 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ctrtri() 1st keyword (lower) can't be converted to int"); | |||
| 82262 | if (f2py_success) { | |||
| 82263 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ctrtri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctrtri:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 82264 | /* Processing variable unitdiag */ | |||
| 82265 | if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else | |||
| 82266 | f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.ctrtri() 2nd keyword (unitdiag) can't be converted to int"); | |||
| 82267 | if (f2py_success) { | |||
| 82268 | CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","2nd keyword unitdiag","ctrtri:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctrtri:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for " "2nd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 82269 | /* Processing variable c */ | |||
| 82270 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 82271 | ; | |||
| 82272 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 82273 | capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 82274 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 82275 | if (!PyErr_Occurred()) | |||
| 82276 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.ctrtri to C/Fortran array" ); | |||
| 82277 | } else { | |||
| 82278 | c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 82279 | ||||
| 82280 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 82281 | /* Processing variable info */ | |||
| 82282 | /* Processing variable n */ | |||
| 82283 | n = shape(c,0)c_Dims[0]; | |||
| 82284 | /*end of frompyobj*/ | |||
| 82285 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82286 | f2py_start_call_clock(); | |||
| 82287 | #endif | |||
| 82288 | /*callfortranroutine*/ | |||
| 82289 | (*f2py_func)((lower?"L":"U"),(unitdiag?"U":"N"),&n,c,&n,&info) ; | |||
| 82290 | /*(*f2py_func)(&n,c,&info,&lower,&unitdiag);*/ | |||
| 82291 | if (PyErr_Occurred()) | |||
| 82292 | f2py_success = 0; | |||
| 82293 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82294 | f2py_stop_call_clock(); | |||
| 82295 | #endif | |||
| 82296 | /*end of callfortranroutine*/ | |||
| 82297 | if (f2py_success) { | |||
| 82298 | /*pyobjfrom*/ | |||
| 82299 | /*end of pyobjfrom*/ | |||
| 82300 | CFUNCSMESS("Building return value.\n"); | |||
| 82301 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 82302 | /*closepyobjfrom*/ | |||
| 82303 | /*end of closepyobjfrom*/ | |||
| 82304 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 82305 | /*cleanupfrompyobj*/ | |||
| 82306 | /* End of cleaning variable n */ | |||
| 82307 | /* End of cleaning variable info */ | |||
| 82308 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 82309 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 82310 | /* End of cleaning variable c */ | |||
| 82311 | } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/ | |||
| 82312 | } /*if (f2py_success) of unitdiag*/ | |||
| 82313 | /* End of cleaning variable unitdiag */ | |||
| 82314 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 82315 | } /*if (f2py_success) of lower*/ | |||
| 82316 | /* End of cleaning variable lower */ | |||
| 82317 | /*end of cleanupfrompyobj*/ | |||
| 82318 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 82319 | /*routdebugfailure*/ | |||
| 82320 | } else { | |||
| 82321 | /*routdebugleave*/ | |||
| 82322 | } | |||
| 82323 | CFUNCSMESS("Freeing memory.\n"); | |||
| 82324 | /*freemem*/ | |||
| 82325 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82326 | f2py_stop_clock(); | |||
| 82327 | #endif | |||
| 82328 | return capi_buildvalue; | |||
| 82329 | } | |||
| 82330 | /******************************* end of ctrtri *******************************/ | |||
| 82331 | ||||
| 82332 | /*********************************** ztrtri ***********************************/ | |||
| 82333 | static char doc_f2py_rout__flapack_ztrtri[] = "\ | |||
| 82334 | inv_c,info = ztrtri(c,[lower,unitdiag,overwrite_c])\n\nWrapper for ``ztrtri``.\ | |||
| 82335 | \n\nParameters\n----------\n" | |||
| 82336 | "c : input rank-2 array('D') with bounds (n,n)\n" | |||
| 82337 | "\nOther Parameters\n----------------\n" | |||
| 82338 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 82339 | "lower : input int, optional\n Default: 0\n" | |||
| 82340 | "unitdiag : input int, optional\n Default: 0\n" | |||
| 82341 | "\nReturns\n-------\n" | |||
| 82342 | "inv_c : rank-2 array('D') with bounds (n,n) and c storage\n" | |||
| 82343 | "info : int"; | |||
| 82344 | /* extern void F_FUNC(ztrtri,ZTRTRI)(char*,char*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 82345 | static PyObject *f2py_rout__flapack_ztrtri(const PyObject *capi_self, | |||
| 82346 | PyObject *capi_args, | |||
| 82347 | PyObject *capi_keywds, | |||
| 82348 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 82349 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 82350 | volatile int f2py_success = 1; | |||
| 82351 | /*decl*/ | |||
| 82352 | ||||
| 82353 | int n = 0; | |||
| 82354 | complex_double *c = NULL((void*)0); | |||
| 82355 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 82356 | const int c_Rank = 2; | |||
| 82357 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 82358 | int capi_c_intent = 0; | |||
| 82359 | int capi_overwrite_c = 0; | |||
| 82360 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 82361 | int info = 0; | |||
| 82362 | int lower = 0; | |||
| 82363 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 82364 | int unitdiag = 0; | |||
| 82365 | PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct); | |||
| 82366 | static char *capi_kwlist[] = {"c","lower","unitdiag","overwrite_c",NULL((void*)0)}; | |||
| 82367 | ||||
| 82368 | /*routdebugenter*/ | |||
| 82369 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82370 | f2py_start_clock(); | |||
| 82371 | #endif | |||
| 82372 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 82373 | "O|OOi:_flapack.ztrtri",\ | |||
| 82374 | capi_kwlist,&c_capi,&lower_capi,&unitdiag_capi,&capi_overwrite_c)) | |||
| 82375 | return NULL((void*)0); | |||
| 82376 | /*frompyobj*/ | |||
| 82377 | /* Processing variable lower */ | |||
| 82378 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 82379 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ztrtri() 1st keyword (lower) can't be converted to int"); | |||
| 82380 | if (f2py_success) { | |||
| 82381 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ztrtri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztrtri:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 82382 | /* Processing variable unitdiag */ | |||
| 82383 | if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else | |||
| 82384 | f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.ztrtri() 2nd keyword (unitdiag) can't be converted to int"); | |||
| 82385 | if (f2py_success) { | |||
| 82386 | CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","2nd keyword unitdiag","ztrtri:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztrtri:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for " "2nd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 82387 | /* Processing variable c */ | |||
| 82388 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 82389 | ; | |||
| 82390 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 82391 | capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 82392 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 82393 | if (!PyErr_Occurred()) | |||
| 82394 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.ztrtri to C/Fortran array" ); | |||
| 82395 | } else { | |||
| 82396 | c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 82397 | ||||
| 82398 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 82399 | /* Processing variable info */ | |||
| 82400 | /* Processing variable n */ | |||
| 82401 | n = shape(c,0)c_Dims[0]; | |||
| 82402 | /*end of frompyobj*/ | |||
| 82403 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82404 | f2py_start_call_clock(); | |||
| 82405 | #endif | |||
| 82406 | /*callfortranroutine*/ | |||
| 82407 | (*f2py_func)((lower?"L":"U"),(unitdiag?"U":"N"),&n,c,&n,&info) ; | |||
| 82408 | /*(*f2py_func)(&n,c,&info,&lower,&unitdiag);*/ | |||
| 82409 | if (PyErr_Occurred()) | |||
| 82410 | f2py_success = 0; | |||
| 82411 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82412 | f2py_stop_call_clock(); | |||
| 82413 | #endif | |||
| 82414 | /*end of callfortranroutine*/ | |||
| 82415 | if (f2py_success) { | |||
| 82416 | /*pyobjfrom*/ | |||
| 82417 | /*end of pyobjfrom*/ | |||
| 82418 | CFUNCSMESS("Building return value.\n"); | |||
| 82419 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 82420 | /*closepyobjfrom*/ | |||
| 82421 | /*end of closepyobjfrom*/ | |||
| 82422 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 82423 | /*cleanupfrompyobj*/ | |||
| 82424 | /* End of cleaning variable n */ | |||
| 82425 | /* End of cleaning variable info */ | |||
| 82426 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 82427 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 82428 | /* End of cleaning variable c */ | |||
| 82429 | } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/ | |||
| 82430 | } /*if (f2py_success) of unitdiag*/ | |||
| 82431 | /* End of cleaning variable unitdiag */ | |||
| 82432 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 82433 | } /*if (f2py_success) of lower*/ | |||
| 82434 | /* End of cleaning variable lower */ | |||
| 82435 | /*end of cleanupfrompyobj*/ | |||
| 82436 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 82437 | /*routdebugfailure*/ | |||
| 82438 | } else { | |||
| 82439 | /*routdebugleave*/ | |||
| 82440 | } | |||
| 82441 | CFUNCSMESS("Freeing memory.\n"); | |||
| 82442 | /*freemem*/ | |||
| 82443 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82444 | f2py_stop_clock(); | |||
| 82445 | #endif | |||
| 82446 | return capi_buildvalue; | |||
| 82447 | } | |||
| 82448 | /******************************* end of ztrtri *******************************/ | |||
| 82449 | ||||
| 82450 | /*********************************** strsyl ***********************************/ | |||
| 82451 | static char doc_f2py_rout__flapack_strsyl[] = "\ | |||
| 82452 | x,scale,info = strsyl(a,b,c,[trana,tranb,isgn,overwrite_c])\n\nWrapper for ``strsyl``.\ | |||
| 82453 | \n\nParameters\n----------\n" | |||
| 82454 | "a : input rank-2 array('f') with bounds (m,m)\n" | |||
| 82455 | "b : input rank-2 array('f') with bounds (n,n)\n" | |||
| 82456 | "c : input rank-2 array('f') with bounds (m,n)\n" | |||
| 82457 | "\nOther Parameters\n----------------\n" | |||
| 82458 | "trana : input string(len=1), optional\n Default: 'N'\n" | |||
| 82459 | "tranb : input string(len=1), optional\n Default: 'N'\n" | |||
| 82460 | "isgn : input int, optional\n Default: 1\n" | |||
| 82461 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 82462 | "\nReturns\n-------\n" | |||
| 82463 | "x : rank-2 array('f') with bounds (m,n) and c storage\n" | |||
| 82464 | "scale : float\n" | |||
| 82465 | "info : int"; | |||
| 82466 | /* extern void F_FUNC(strsyl,STRSYL)(char*,char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT* ); */ | |||
| 82467 | static PyObject *f2py_rout__flapack_strsyl(const PyObject *capi_self, | |||
| 82468 | PyObject *capi_args, | |||
| 82469 | PyObject *capi_keywds, | |||
| 82470 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) { | |||
| 82471 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 82472 | volatile int f2py_success = 1; | |||
| 82473 | /*decl*/ | |||
| 82474 | ||||
| 82475 | string trana = NULL((void*)0); | |||
| 82476 | int slen(trana)capi_trana_len; | |||
| 82477 | PyObject *trana_capi = Py_None(&_Py_NoneStruct); | |||
| 82478 | string tranb = NULL((void*)0); | |||
| 82479 | int slen(tranb)capi_tranb_len; | |||
| 82480 | PyObject *tranb_capi = Py_None(&_Py_NoneStruct); | |||
| 82481 | int isgn = 0; | |||
| 82482 | PyObject *isgn_capi = Py_None(&_Py_NoneStruct); | |||
| 82483 | int m = 0; | |||
| 82484 | int n = 0; | |||
| 82485 | float *a = NULL((void*)0); | |||
| 82486 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 82487 | const int a_Rank = 2; | |||
| 82488 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 82489 | int capi_a_intent = 0; | |||
| 82490 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 82491 | int lda = 0; | |||
| 82492 | float *b = NULL((void*)0); | |||
| 82493 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 82494 | const int b_Rank = 2; | |||
| 82495 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 82496 | int capi_b_intent = 0; | |||
| 82497 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 82498 | int ldb = 0; | |||
| 82499 | float *c = NULL((void*)0); | |||
| 82500 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 82501 | const int c_Rank = 2; | |||
| 82502 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 82503 | int capi_c_intent = 0; | |||
| 82504 | int capi_overwrite_c = 0; | |||
| 82505 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 82506 | int ldc = 0; | |||
| 82507 | float scale = 0; | |||
| 82508 | int info = 0; | |||
| 82509 | static char *capi_kwlist[] = {"a","b","c","trana","tranb","isgn","overwrite_c",NULL((void*)0)}; | |||
| 82510 | ||||
| 82511 | /*routdebugenter*/ | |||
| 82512 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82513 | f2py_start_clock(); | |||
| 82514 | #endif | |||
| 82515 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 82516 | "OOO|OOOi:_flapack.strsyl",\ | |||
| 82517 | capi_kwlist,&a_capi,&b_capi,&c_capi,&trana_capi,&tranb_capi,&isgn_capi,&capi_overwrite_c)) | |||
| 82518 | return NULL((void*)0); | |||
| 82519 | /*frompyobj*/ | |||
| 82520 | /* Processing variable isgn */ | |||
| 82521 | if (isgn_capi == Py_None(&_Py_NoneStruct)) isgn = 1; else | |||
| 82522 | f2py_success = int_from_pyobj(&isgn,isgn_capi,"_flapack.strsyl() 3rd keyword (isgn) can't be converted to int"); | |||
| 82523 | if (f2py_success) { | |||
| 82524 | CHECKSCALAR(isgn==1||isgn==-1,"isgn==1||isgn==-1","3rd keyword isgn","strsyl:isgn=%d",isgn)if (!(isgn==1||isgn==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""strsyl:isgn=%d", "(""isgn==1||isgn==-1"") failed for " "3rd keyword isgn", isgn); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 82525 | /* Processing variable a */ | |||
| 82526 | ; | |||
| 82527 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 82528 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 82529 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 82530 | if (!PyErr_Occurred()) | |||
| 82531 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.strsyl to C/Fortran array" ); | |||
| 82532 | } else { | |||
| 82533 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 82534 | ||||
| 82535 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 82536 | /* Processing variable b */ | |||
| 82537 | ; | |||
| 82538 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 82539 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 82540 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 82541 | if (!PyErr_Occurred()) | |||
| 82542 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.strsyl to C/Fortran array" ); | |||
| 82543 | } else { | |||
| 82544 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 82545 | ||||
| 82546 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 82547 | /* Processing variable scale */ | |||
| 82548 | /* Processing variable info */ | |||
| 82549 | /* Processing variable m */ | |||
| 82550 | m = shape(a,0)a_Dims[0]; | |||
| 82551 | /* Processing variable n */ | |||
| 82552 | n = shape(b,0)b_Dims[0]; | |||
| 82553 | /* Processing variable lda */ | |||
| 82554 | lda = shape(a,0)a_Dims[0]; | |||
| 82555 | /* Processing variable ldb */ | |||
| 82556 | ldb = shape(b,0)b_Dims[0]; | |||
| 82557 | /* Processing variable c */ | |||
| 82558 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 82559 | c_Dims[0]=m,c_Dims[1]=n; | |||
| 82560 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 82561 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 82562 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 82563 | if (!PyErr_Occurred()) | |||
| 82564 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.strsyl to C/Fortran array" ); | |||
| 82565 | } else { | |||
| 82566 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 82567 | ||||
| 82568 | /* Processing variable ldc */ | |||
| 82569 | ldc = shape(c,0)c_Dims[0]; | |||
| 82570 | /* Processing variable trana */ | |||
| 82571 | slen(trana)capi_trana_len = 1; | |||
| 82572 | f2py_success = string_from_pyobj(&trana,&slen(trana)capi_trana_len,"N",trana_capi,"string_from_pyobj failed in converting 1st keyword `trana' of _flapack.strsyl to C string"); | |||
| 82573 | if (f2py_success) { | |||
| 82574 | CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C',"*trana=='N'||*trana=='T'||*trana=='C'","1st keyword trana","strsyl:slen(trana)=%d trana=\"%s\"",trana)if (!(*trana=='N'||*trana=='T'||*trana=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""strsyl:slen(trana)=%d trana=\"%s\"" , "(""*trana=='N'||*trana=='T'||*trana=='C'"") failed for ""1st keyword trana" , capi_trana_len, trana); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 82575 | /* Processing variable tranb */ | |||
| 82576 | slen(tranb)capi_tranb_len = 1; | |||
| 82577 | f2py_success = string_from_pyobj(&tranb,&slen(tranb)capi_tranb_len,"N",tranb_capi,"string_from_pyobj failed in converting 2nd keyword `tranb' of _flapack.strsyl to C string"); | |||
| 82578 | if (f2py_success) { | |||
| 82579 | CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C',"*tranb=='N'||*tranb=='T'||*tranb=='C'","2nd keyword tranb","strsyl:slen(tranb)=%d tranb=\"%s\"",tranb)if (!(*tranb=='N'||*tranb=='T'||*tranb=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""strsyl:slen(tranb)=%d tranb=\"%s\"" , "(""*tranb=='N'||*tranb=='T'||*tranb=='C'"") failed for ""2nd keyword tranb" , capi_tranb_len, tranb); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 82580 | /*end of frompyobj*/ | |||
| 82581 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82582 | f2py_start_call_clock(); | |||
| 82583 | #endif | |||
| 82584 | /*callfortranroutine*/ | |||
| 82585 | (*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info) ; | |||
| 82586 | /*(*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info,slen(trana),slen(tranb));*/ | |||
| 82587 | if (PyErr_Occurred()) | |||
| 82588 | f2py_success = 0; | |||
| 82589 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82590 | f2py_stop_call_clock(); | |||
| 82591 | #endif | |||
| 82592 | /*end of callfortranroutine*/ | |||
| 82593 | if (f2py_success) { | |||
| 82594 | /*pyobjfrom*/ | |||
| 82595 | /*end of pyobjfrom*/ | |||
| 82596 | CFUNCSMESS("Building return value.\n"); | |||
| 82597 | capi_buildvalue = Py_BuildValue("Nfi",capi_c_tmp,scale,info); | |||
| 82598 | /*closepyobjfrom*/ | |||
| 82599 | /*end of closepyobjfrom*/ | |||
| 82600 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 82601 | /*cleanupfrompyobj*/ | |||
| 82602 | } /*CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C')*/ | |||
| 82603 | STRINGFREE(tranb)do {if (!(tranb == ((void*)0))) free(tranb);} while (0); | |||
| 82604 | } /*if (f2py_success) of tranb*/ | |||
| 82605 | /* End of cleaning variable tranb */ | |||
| 82606 | } /*CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C')*/ | |||
| 82607 | STRINGFREE(trana)do {if (!(trana == ((void*)0))) free(trana);} while (0); | |||
| 82608 | } /*if (f2py_success) of trana*/ | |||
| 82609 | /* End of cleaning variable trana */ | |||
| 82610 | /* End of cleaning variable ldc */ | |||
| 82611 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 82612 | /* End of cleaning variable c */ | |||
| 82613 | /* End of cleaning variable ldb */ | |||
| 82614 | /* End of cleaning variable lda */ | |||
| 82615 | /* End of cleaning variable n */ | |||
| 82616 | /* End of cleaning variable m */ | |||
| 82617 | /* End of cleaning variable info */ | |||
| 82618 | /* End of cleaning variable scale */ | |||
| 82619 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 82620 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 82621 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 82622 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 82623 | /* End of cleaning variable b */ | |||
| 82624 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 82625 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 82626 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 82627 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 82628 | /* End of cleaning variable a */ | |||
| 82629 | } /*CHECKSCALAR(isgn==1||isgn==-1)*/ | |||
| 82630 | } /*if (f2py_success) of isgn*/ | |||
| 82631 | /* End of cleaning variable isgn */ | |||
| 82632 | /*end of cleanupfrompyobj*/ | |||
| 82633 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 82634 | /*routdebugfailure*/ | |||
| 82635 | } else { | |||
| 82636 | /*routdebugleave*/ | |||
| 82637 | } | |||
| 82638 | CFUNCSMESS("Freeing memory.\n"); | |||
| 82639 | /*freemem*/ | |||
| 82640 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82641 | f2py_stop_clock(); | |||
| 82642 | #endif | |||
| 82643 | return capi_buildvalue; | |||
| 82644 | } | |||
| 82645 | /******************************* end of strsyl *******************************/ | |||
| 82646 | ||||
| 82647 | /*********************************** dtrsyl ***********************************/ | |||
| 82648 | static char doc_f2py_rout__flapack_dtrsyl[] = "\ | |||
| 82649 | x,scale,info = dtrsyl(a,b,c,[trana,tranb,isgn,overwrite_c])\n\nWrapper for ``dtrsyl``.\ | |||
| 82650 | \n\nParameters\n----------\n" | |||
| 82651 | "a : input rank-2 array('d') with bounds (m,m)\n" | |||
| 82652 | "b : input rank-2 array('d') with bounds (n,n)\n" | |||
| 82653 | "c : input rank-2 array('d') with bounds (m,n)\n" | |||
| 82654 | "\nOther Parameters\n----------------\n" | |||
| 82655 | "trana : input string(len=1), optional\n Default: 'N'\n" | |||
| 82656 | "tranb : input string(len=1), optional\n Default: 'N'\n" | |||
| 82657 | "isgn : input int, optional\n Default: 1\n" | |||
| 82658 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 82659 | "\nReturns\n-------\n" | |||
| 82660 | "x : rank-2 array('d') with bounds (m,n) and c storage\n" | |||
| 82661 | "scale : float\n" | |||
| 82662 | "info : int"; | |||
| 82663 | /* extern void F_FUNC(dtrsyl,DTRSYL)(char*,char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT* ); */ | |||
| 82664 | static PyObject *f2py_rout__flapack_dtrsyl(const PyObject *capi_self, | |||
| 82665 | PyObject *capi_args, | |||
| 82666 | PyObject *capi_keywds, | |||
| 82667 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) { | |||
| 82668 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 82669 | volatile int f2py_success = 1; | |||
| 82670 | /*decl*/ | |||
| 82671 | ||||
| 82672 | string trana = NULL((void*)0); | |||
| 82673 | int slen(trana)capi_trana_len; | |||
| 82674 | PyObject *trana_capi = Py_None(&_Py_NoneStruct); | |||
| 82675 | string tranb = NULL((void*)0); | |||
| 82676 | int slen(tranb)capi_tranb_len; | |||
| 82677 | PyObject *tranb_capi = Py_None(&_Py_NoneStruct); | |||
| 82678 | int isgn = 0; | |||
| 82679 | PyObject *isgn_capi = Py_None(&_Py_NoneStruct); | |||
| 82680 | int m = 0; | |||
| 82681 | int n = 0; | |||
| 82682 | double *a = NULL((void*)0); | |||
| 82683 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 82684 | const int a_Rank = 2; | |||
| 82685 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 82686 | int capi_a_intent = 0; | |||
| 82687 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 82688 | int lda = 0; | |||
| 82689 | double *b = NULL((void*)0); | |||
| 82690 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 82691 | const int b_Rank = 2; | |||
| 82692 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 82693 | int capi_b_intent = 0; | |||
| 82694 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 82695 | int ldb = 0; | |||
| 82696 | double *c = NULL((void*)0); | |||
| 82697 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 82698 | const int c_Rank = 2; | |||
| 82699 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 82700 | int capi_c_intent = 0; | |||
| 82701 | int capi_overwrite_c = 0; | |||
| 82702 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 82703 | int ldc = 0; | |||
| 82704 | double scale = 0; | |||
| 82705 | int info = 0; | |||
| 82706 | static char *capi_kwlist[] = {"a","b","c","trana","tranb","isgn","overwrite_c",NULL((void*)0)}; | |||
| 82707 | ||||
| 82708 | /*routdebugenter*/ | |||
| 82709 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82710 | f2py_start_clock(); | |||
| 82711 | #endif | |||
| 82712 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 82713 | "OOO|OOOi:_flapack.dtrsyl",\ | |||
| 82714 | capi_kwlist,&a_capi,&b_capi,&c_capi,&trana_capi,&tranb_capi,&isgn_capi,&capi_overwrite_c)) | |||
| 82715 | return NULL((void*)0); | |||
| 82716 | /*frompyobj*/ | |||
| 82717 | /* Processing variable isgn */ | |||
| 82718 | if (isgn_capi == Py_None(&_Py_NoneStruct)) isgn = 1; else | |||
| 82719 | f2py_success = int_from_pyobj(&isgn,isgn_capi,"_flapack.dtrsyl() 3rd keyword (isgn) can't be converted to int"); | |||
| 82720 | if (f2py_success) { | |||
| 82721 | CHECKSCALAR(isgn==1||isgn==-1,"isgn==1||isgn==-1","3rd keyword isgn","dtrsyl:isgn=%d",isgn)if (!(isgn==1||isgn==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtrsyl:isgn=%d", "(""isgn==1||isgn==-1"") failed for " "3rd keyword isgn", isgn); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 82722 | /* Processing variable a */ | |||
| 82723 | ; | |||
| 82724 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 82725 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 82726 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 82727 | if (!PyErr_Occurred()) | |||
| 82728 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dtrsyl to C/Fortran array" ); | |||
| 82729 | } else { | |||
| 82730 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 82731 | ||||
| 82732 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 82733 | /* Processing variable b */ | |||
| 82734 | ; | |||
| 82735 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 82736 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 82737 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 82738 | if (!PyErr_Occurred()) | |||
| 82739 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dtrsyl to C/Fortran array" ); | |||
| 82740 | } else { | |||
| 82741 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 82742 | ||||
| 82743 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 82744 | /* Processing variable scale */ | |||
| 82745 | /* Processing variable info */ | |||
| 82746 | /* Processing variable m */ | |||
| 82747 | m = shape(a,0)a_Dims[0]; | |||
| 82748 | /* Processing variable n */ | |||
| 82749 | n = shape(b,0)b_Dims[0]; | |||
| 82750 | /* Processing variable lda */ | |||
| 82751 | lda = shape(a,0)a_Dims[0]; | |||
| 82752 | /* Processing variable ldb */ | |||
| 82753 | ldb = shape(b,0)b_Dims[0]; | |||
| 82754 | /* Processing variable c */ | |||
| 82755 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 82756 | c_Dims[0]=m,c_Dims[1]=n; | |||
| 82757 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 82758 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 82759 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 82760 | if (!PyErr_Occurred()) | |||
| 82761 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.dtrsyl to C/Fortran array" ); | |||
| 82762 | } else { | |||
| 82763 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 82764 | ||||
| 82765 | /* Processing variable ldc */ | |||
| 82766 | ldc = shape(c,0)c_Dims[0]; | |||
| 82767 | /* Processing variable trana */ | |||
| 82768 | slen(trana)capi_trana_len = 1; | |||
| 82769 | f2py_success = string_from_pyobj(&trana,&slen(trana)capi_trana_len,"N",trana_capi,"string_from_pyobj failed in converting 1st keyword `trana' of _flapack.dtrsyl to C string"); | |||
| 82770 | if (f2py_success) { | |||
| 82771 | CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C',"*trana=='N'||*trana=='T'||*trana=='C'","1st keyword trana","dtrsyl:slen(trana)=%d trana=\"%s\"",trana)if (!(*trana=='N'||*trana=='T'||*trana=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dtrsyl:slen(trana)=%d trana=\"%s\"" , "(""*trana=='N'||*trana=='T'||*trana=='C'"") failed for ""1st keyword trana" , capi_trana_len, trana); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 82772 | /* Processing variable tranb */ | |||
| 82773 | slen(tranb)capi_tranb_len = 1; | |||
| 82774 | f2py_success = string_from_pyobj(&tranb,&slen(tranb)capi_tranb_len,"N",tranb_capi,"string_from_pyobj failed in converting 2nd keyword `tranb' of _flapack.dtrsyl to C string"); | |||
| 82775 | if (f2py_success) { | |||
| 82776 | CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C',"*tranb=='N'||*tranb=='T'||*tranb=='C'","2nd keyword tranb","dtrsyl:slen(tranb)=%d tranb=\"%s\"",tranb)if (!(*tranb=='N'||*tranb=='T'||*tranb=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dtrsyl:slen(tranb)=%d tranb=\"%s\"" , "(""*tranb=='N'||*tranb=='T'||*tranb=='C'"") failed for ""2nd keyword tranb" , capi_tranb_len, tranb); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 82777 | /*end of frompyobj*/ | |||
| 82778 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82779 | f2py_start_call_clock(); | |||
| 82780 | #endif | |||
| 82781 | /*callfortranroutine*/ | |||
| 82782 | (*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info) ; | |||
| 82783 | /*(*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info,slen(trana),slen(tranb));*/ | |||
| 82784 | if (PyErr_Occurred()) | |||
| 82785 | f2py_success = 0; | |||
| 82786 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82787 | f2py_stop_call_clock(); | |||
| 82788 | #endif | |||
| 82789 | /*end of callfortranroutine*/ | |||
| 82790 | if (f2py_success) { | |||
| 82791 | /*pyobjfrom*/ | |||
| 82792 | /*end of pyobjfrom*/ | |||
| 82793 | CFUNCSMESS("Building return value.\n"); | |||
| 82794 | capi_buildvalue = Py_BuildValue("Ndi",capi_c_tmp,scale,info); | |||
| 82795 | /*closepyobjfrom*/ | |||
| 82796 | /*end of closepyobjfrom*/ | |||
| 82797 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 82798 | /*cleanupfrompyobj*/ | |||
| 82799 | } /*CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C')*/ | |||
| 82800 | STRINGFREE(tranb)do {if (!(tranb == ((void*)0))) free(tranb);} while (0); | |||
| 82801 | } /*if (f2py_success) of tranb*/ | |||
| 82802 | /* End of cleaning variable tranb */ | |||
| 82803 | } /*CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C')*/ | |||
| 82804 | STRINGFREE(trana)do {if (!(trana == ((void*)0))) free(trana);} while (0); | |||
| 82805 | } /*if (f2py_success) of trana*/ | |||
| 82806 | /* End of cleaning variable trana */ | |||
| 82807 | /* End of cleaning variable ldc */ | |||
| 82808 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 82809 | /* End of cleaning variable c */ | |||
| 82810 | /* End of cleaning variable ldb */ | |||
| 82811 | /* End of cleaning variable lda */ | |||
| 82812 | /* End of cleaning variable n */ | |||
| 82813 | /* End of cleaning variable m */ | |||
| 82814 | /* End of cleaning variable info */ | |||
| 82815 | /* End of cleaning variable scale */ | |||
| 82816 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 82817 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 82818 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 82819 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 82820 | /* End of cleaning variable b */ | |||
| 82821 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 82822 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 82823 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 82824 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 82825 | /* End of cleaning variable a */ | |||
| 82826 | } /*CHECKSCALAR(isgn==1||isgn==-1)*/ | |||
| 82827 | } /*if (f2py_success) of isgn*/ | |||
| 82828 | /* End of cleaning variable isgn */ | |||
| 82829 | /*end of cleanupfrompyobj*/ | |||
| 82830 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 82831 | /*routdebugfailure*/ | |||
| 82832 | } else { | |||
| 82833 | /*routdebugleave*/ | |||
| 82834 | } | |||
| 82835 | CFUNCSMESS("Freeing memory.\n"); | |||
| 82836 | /*freemem*/ | |||
| 82837 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82838 | f2py_stop_clock(); | |||
| 82839 | #endif | |||
| 82840 | return capi_buildvalue; | |||
| 82841 | } | |||
| 82842 | /******************************* end of dtrsyl *******************************/ | |||
| 82843 | ||||
| 82844 | /*********************************** ctrsyl ***********************************/ | |||
| 82845 | static char doc_f2py_rout__flapack_ctrsyl[] = "\ | |||
| 82846 | x,scale,info = ctrsyl(a,b,c,[trana,tranb,isgn,overwrite_c])\n\nWrapper for ``ctrsyl``.\ | |||
| 82847 | \n\nParameters\n----------\n" | |||
| 82848 | "a : input rank-2 array('F') with bounds (m,m)\n" | |||
| 82849 | "b : input rank-2 array('F') with bounds (n,n)\n" | |||
| 82850 | "c : input rank-2 array('F') with bounds (m,n)\n" | |||
| 82851 | "\nOther Parameters\n----------------\n" | |||
| 82852 | "trana : input string(len=1), optional\n Default: 'N'\n" | |||
| 82853 | "tranb : input string(len=1), optional\n Default: 'N'\n" | |||
| 82854 | "isgn : input int, optional\n Default: 1\n" | |||
| 82855 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 82856 | "\nReturns\n-------\n" | |||
| 82857 | "x : rank-2 array('F') with bounds (m,n) and c storage\n" | |||
| 82858 | "scale : float\n" | |||
| 82859 | "info : int"; | |||
| 82860 | /* extern void F_FUNC(ctrsyl,CTRSYL)(char*,char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */ | |||
| 82861 | static PyObject *f2py_rout__flapack_ctrsyl(const PyObject *capi_self, | |||
| 82862 | PyObject *capi_args, | |||
| 82863 | PyObject *capi_keywds, | |||
| 82864 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) { | |||
| 82865 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 82866 | volatile int f2py_success = 1; | |||
| 82867 | /*decl*/ | |||
| 82868 | ||||
| 82869 | string trana = NULL((void*)0); | |||
| 82870 | int slen(trana)capi_trana_len; | |||
| 82871 | PyObject *trana_capi = Py_None(&_Py_NoneStruct); | |||
| 82872 | string tranb = NULL((void*)0); | |||
| 82873 | int slen(tranb)capi_tranb_len; | |||
| 82874 | PyObject *tranb_capi = Py_None(&_Py_NoneStruct); | |||
| 82875 | int isgn = 0; | |||
| 82876 | PyObject *isgn_capi = Py_None(&_Py_NoneStruct); | |||
| 82877 | int m = 0; | |||
| 82878 | int n = 0; | |||
| 82879 | complex_float *a = NULL((void*)0); | |||
| 82880 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 82881 | const int a_Rank = 2; | |||
| 82882 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 82883 | int capi_a_intent = 0; | |||
| 82884 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 82885 | int lda = 0; | |||
| 82886 | complex_float *b = NULL((void*)0); | |||
| 82887 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 82888 | const int b_Rank = 2; | |||
| 82889 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 82890 | int capi_b_intent = 0; | |||
| 82891 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 82892 | int ldb = 0; | |||
| 82893 | complex_float *c = NULL((void*)0); | |||
| 82894 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 82895 | const int c_Rank = 2; | |||
| 82896 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 82897 | int capi_c_intent = 0; | |||
| 82898 | int capi_overwrite_c = 0; | |||
| 82899 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 82900 | int ldc = 0; | |||
| 82901 | float scale = 0; | |||
| 82902 | int info = 0; | |||
| 82903 | static char *capi_kwlist[] = {"a","b","c","trana","tranb","isgn","overwrite_c",NULL((void*)0)}; | |||
| 82904 | ||||
| 82905 | /*routdebugenter*/ | |||
| 82906 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82907 | f2py_start_clock(); | |||
| 82908 | #endif | |||
| 82909 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 82910 | "OOO|OOOi:_flapack.ctrsyl",\ | |||
| 82911 | capi_kwlist,&a_capi,&b_capi,&c_capi,&trana_capi,&tranb_capi,&isgn_capi,&capi_overwrite_c)) | |||
| 82912 | return NULL((void*)0); | |||
| 82913 | /*frompyobj*/ | |||
| 82914 | /* Processing variable isgn */ | |||
| 82915 | if (isgn_capi == Py_None(&_Py_NoneStruct)) isgn = 1; else | |||
| 82916 | f2py_success = int_from_pyobj(&isgn,isgn_capi,"_flapack.ctrsyl() 3rd keyword (isgn) can't be converted to int"); | |||
| 82917 | if (f2py_success) { | |||
| 82918 | CHECKSCALAR(isgn==1||isgn==-1,"isgn==1||isgn==-1","3rd keyword isgn","ctrsyl:isgn=%d",isgn)if (!(isgn==1||isgn==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctrsyl:isgn=%d", "(""isgn==1||isgn==-1"") failed for " "3rd keyword isgn", isgn); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 82919 | /* Processing variable a */ | |||
| 82920 | ; | |||
| 82921 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 82922 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 82923 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 82924 | if (!PyErr_Occurred()) | |||
| 82925 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ctrsyl to C/Fortran array" ); | |||
| 82926 | } else { | |||
| 82927 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 82928 | ||||
| 82929 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 82930 | /* Processing variable b */ | |||
| 82931 | ; | |||
| 82932 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 82933 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 82934 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 82935 | if (!PyErr_Occurred()) | |||
| 82936 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ctrsyl to C/Fortran array" ); | |||
| 82937 | } else { | |||
| 82938 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 82939 | ||||
| 82940 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 82941 | /* Processing variable scale */ | |||
| 82942 | /* Processing variable info */ | |||
| 82943 | /* Processing variable m */ | |||
| 82944 | m = shape(a,0)a_Dims[0]; | |||
| 82945 | /* Processing variable n */ | |||
| 82946 | n = shape(b,0)b_Dims[0]; | |||
| 82947 | /* Processing variable lda */ | |||
| 82948 | lda = shape(a,0)a_Dims[0]; | |||
| 82949 | /* Processing variable ldb */ | |||
| 82950 | ldb = shape(b,0)b_Dims[0]; | |||
| 82951 | /* Processing variable c */ | |||
| 82952 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 82953 | c_Dims[0]=m,c_Dims[1]=n; | |||
| 82954 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 82955 | capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 82956 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 82957 | if (!PyErr_Occurred()) | |||
| 82958 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.ctrsyl to C/Fortran array" ); | |||
| 82959 | } else { | |||
| 82960 | c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 82961 | ||||
| 82962 | /* Processing variable ldc */ | |||
| 82963 | ldc = shape(c,0)c_Dims[0]; | |||
| 82964 | /* Processing variable trana */ | |||
| 82965 | slen(trana)capi_trana_len = 1; | |||
| 82966 | f2py_success = string_from_pyobj(&trana,&slen(trana)capi_trana_len,"N",trana_capi,"string_from_pyobj failed in converting 1st keyword `trana' of _flapack.ctrsyl to C string"); | |||
| 82967 | if (f2py_success) { | |||
| 82968 | CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C',"*trana=='N'||*trana=='T'||*trana=='C'","1st keyword trana","ctrsyl:slen(trana)=%d trana=\"%s\"",trana)if (!(*trana=='N'||*trana=='T'||*trana=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ctrsyl:slen(trana)=%d trana=\"%s\"" , "(""*trana=='N'||*trana=='T'||*trana=='C'"") failed for ""1st keyword trana" , capi_trana_len, trana); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 82969 | /* Processing variable tranb */ | |||
| 82970 | slen(tranb)capi_tranb_len = 1; | |||
| 82971 | f2py_success = string_from_pyobj(&tranb,&slen(tranb)capi_tranb_len,"N",tranb_capi,"string_from_pyobj failed in converting 2nd keyword `tranb' of _flapack.ctrsyl to C string"); | |||
| 82972 | if (f2py_success) { | |||
| 82973 | CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C',"*tranb=='N'||*tranb=='T'||*tranb=='C'","2nd keyword tranb","ctrsyl:slen(tranb)=%d tranb=\"%s\"",tranb)if (!(*tranb=='N'||*tranb=='T'||*tranb=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ctrsyl:slen(tranb)=%d tranb=\"%s\"" , "(""*tranb=='N'||*tranb=='T'||*tranb=='C'"") failed for ""2nd keyword tranb" , capi_tranb_len, tranb); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 82974 | /*end of frompyobj*/ | |||
| 82975 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82976 | f2py_start_call_clock(); | |||
| 82977 | #endif | |||
| 82978 | /*callfortranroutine*/ | |||
| 82979 | (*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info) ; | |||
| 82980 | /*(*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info,slen(trana),slen(tranb));*/ | |||
| 82981 | if (PyErr_Occurred()) | |||
| 82982 | f2py_success = 0; | |||
| 82983 | #ifdef F2PY_REPORT_ATEXIT | |||
| 82984 | f2py_stop_call_clock(); | |||
| 82985 | #endif | |||
| 82986 | /*end of callfortranroutine*/ | |||
| 82987 | if (f2py_success) { | |||
| 82988 | /*pyobjfrom*/ | |||
| 82989 | /*end of pyobjfrom*/ | |||
| 82990 | CFUNCSMESS("Building return value.\n"); | |||
| 82991 | capi_buildvalue = Py_BuildValue("Nfi",capi_c_tmp,scale,info); | |||
| 82992 | /*closepyobjfrom*/ | |||
| 82993 | /*end of closepyobjfrom*/ | |||
| 82994 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 82995 | /*cleanupfrompyobj*/ | |||
| 82996 | } /*CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C')*/ | |||
| 82997 | STRINGFREE(tranb)do {if (!(tranb == ((void*)0))) free(tranb);} while (0); | |||
| 82998 | } /*if (f2py_success) of tranb*/ | |||
| 82999 | /* End of cleaning variable tranb */ | |||
| 83000 | } /*CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C')*/ | |||
| 83001 | STRINGFREE(trana)do {if (!(trana == ((void*)0))) free(trana);} while (0); | |||
| 83002 | } /*if (f2py_success) of trana*/ | |||
| 83003 | /* End of cleaning variable trana */ | |||
| 83004 | /* End of cleaning variable ldc */ | |||
| 83005 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 83006 | /* End of cleaning variable c */ | |||
| 83007 | /* End of cleaning variable ldb */ | |||
| 83008 | /* End of cleaning variable lda */ | |||
| 83009 | /* End of cleaning variable n */ | |||
| 83010 | /* End of cleaning variable m */ | |||
| 83011 | /* End of cleaning variable info */ | |||
| 83012 | /* End of cleaning variable scale */ | |||
| 83013 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 83014 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 83015 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 83016 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 83017 | /* End of cleaning variable b */ | |||
| 83018 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 83019 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 83020 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 83021 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 83022 | /* End of cleaning variable a */ | |||
| 83023 | } /*CHECKSCALAR(isgn==1||isgn==-1)*/ | |||
| 83024 | } /*if (f2py_success) of isgn*/ | |||
| 83025 | /* End of cleaning variable isgn */ | |||
| 83026 | /*end of cleanupfrompyobj*/ | |||
| 83027 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 83028 | /*routdebugfailure*/ | |||
| 83029 | } else { | |||
| 83030 | /*routdebugleave*/ | |||
| 83031 | } | |||
| 83032 | CFUNCSMESS("Freeing memory.\n"); | |||
| 83033 | /*freemem*/ | |||
| 83034 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83035 | f2py_stop_clock(); | |||
| 83036 | #endif | |||
| 83037 | return capi_buildvalue; | |||
| 83038 | } | |||
| 83039 | /******************************* end of ctrsyl *******************************/ | |||
| 83040 | ||||
| 83041 | /*********************************** ztrsyl ***********************************/ | |||
| 83042 | static char doc_f2py_rout__flapack_ztrsyl[] = "\ | |||
| 83043 | x,scale,info = ztrsyl(a,b,c,[trana,tranb,isgn,overwrite_c])\n\nWrapper for ``ztrsyl``.\ | |||
| 83044 | \n\nParameters\n----------\n" | |||
| 83045 | "a : input rank-2 array('D') with bounds (m,m)\n" | |||
| 83046 | "b : input rank-2 array('D') with bounds (n,n)\n" | |||
| 83047 | "c : input rank-2 array('D') with bounds (m,n)\n" | |||
| 83048 | "\nOther Parameters\n----------------\n" | |||
| 83049 | "trana : input string(len=1), optional\n Default: 'N'\n" | |||
| 83050 | "tranb : input string(len=1), optional\n Default: 'N'\n" | |||
| 83051 | "isgn : input int, optional\n Default: 1\n" | |||
| 83052 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 83053 | "\nReturns\n-------\n" | |||
| 83054 | "x : rank-2 array('D') with bounds (m,n) and c storage\n" | |||
| 83055 | "scale : float\n" | |||
| 83056 | "info : int"; | |||
| 83057 | /* extern void F_FUNC(ztrsyl,ZTRSYL)(char*,char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */ | |||
| 83058 | static PyObject *f2py_rout__flapack_ztrsyl(const PyObject *capi_self, | |||
| 83059 | PyObject *capi_args, | |||
| 83060 | PyObject *capi_keywds, | |||
| 83061 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) { | |||
| 83062 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 83063 | volatile int f2py_success = 1; | |||
| 83064 | /*decl*/ | |||
| 83065 | ||||
| 83066 | string trana = NULL((void*)0); | |||
| 83067 | int slen(trana)capi_trana_len; | |||
| 83068 | PyObject *trana_capi = Py_None(&_Py_NoneStruct); | |||
| 83069 | string tranb = NULL((void*)0); | |||
| 83070 | int slen(tranb)capi_tranb_len; | |||
| 83071 | PyObject *tranb_capi = Py_None(&_Py_NoneStruct); | |||
| 83072 | int isgn = 0; | |||
| 83073 | PyObject *isgn_capi = Py_None(&_Py_NoneStruct); | |||
| 83074 | int m = 0; | |||
| 83075 | int n = 0; | |||
| 83076 | complex_double *a = NULL((void*)0); | |||
| 83077 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 83078 | const int a_Rank = 2; | |||
| 83079 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 83080 | int capi_a_intent = 0; | |||
| 83081 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 83082 | int lda = 0; | |||
| 83083 | complex_double *b = NULL((void*)0); | |||
| 83084 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 83085 | const int b_Rank = 2; | |||
| 83086 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 83087 | int capi_b_intent = 0; | |||
| 83088 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 83089 | int ldb = 0; | |||
| 83090 | complex_double *c = NULL((void*)0); | |||
| 83091 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 83092 | const int c_Rank = 2; | |||
| 83093 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 83094 | int capi_c_intent = 0; | |||
| 83095 | int capi_overwrite_c = 0; | |||
| 83096 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 83097 | int ldc = 0; | |||
| 83098 | double scale = 0; | |||
| 83099 | int info = 0; | |||
| 83100 | static char *capi_kwlist[] = {"a","b","c","trana","tranb","isgn","overwrite_c",NULL((void*)0)}; | |||
| 83101 | ||||
| 83102 | /*routdebugenter*/ | |||
| 83103 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83104 | f2py_start_clock(); | |||
| 83105 | #endif | |||
| 83106 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 83107 | "OOO|OOOi:_flapack.ztrsyl",\ | |||
| 83108 | capi_kwlist,&a_capi,&b_capi,&c_capi,&trana_capi,&tranb_capi,&isgn_capi,&capi_overwrite_c)) | |||
| 83109 | return NULL((void*)0); | |||
| 83110 | /*frompyobj*/ | |||
| 83111 | /* Processing variable isgn */ | |||
| 83112 | if (isgn_capi == Py_None(&_Py_NoneStruct)) isgn = 1; else | |||
| 83113 | f2py_success = int_from_pyobj(&isgn,isgn_capi,"_flapack.ztrsyl() 3rd keyword (isgn) can't be converted to int"); | |||
| 83114 | if (f2py_success) { | |||
| 83115 | CHECKSCALAR(isgn==1||isgn==-1,"isgn==1||isgn==-1","3rd keyword isgn","ztrsyl:isgn=%d",isgn)if (!(isgn==1||isgn==-1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztrsyl:isgn=%d", "(""isgn==1||isgn==-1"") failed for " "3rd keyword isgn", isgn); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 83116 | /* Processing variable a */ | |||
| 83117 | ; | |||
| 83118 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 83119 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 83120 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 83121 | if (!PyErr_Occurred()) | |||
| 83122 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ztrsyl to C/Fortran array" ); | |||
| 83123 | } else { | |||
| 83124 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 83125 | ||||
| 83126 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 83127 | /* Processing variable b */ | |||
| 83128 | ; | |||
| 83129 | capi_b_intent |= F2PY_INTENT_IN1; | |||
| 83130 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 83131 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 83132 | if (!PyErr_Occurred()) | |||
| 83133 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ztrsyl to C/Fortran array" ); | |||
| 83134 | } else { | |||
| 83135 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 83136 | ||||
| 83137 | CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b"); } else { | |||
| 83138 | /* Processing variable scale */ | |||
| 83139 | /* Processing variable info */ | |||
| 83140 | /* Processing variable m */ | |||
| 83141 | m = shape(a,0)a_Dims[0]; | |||
| 83142 | /* Processing variable n */ | |||
| 83143 | n = shape(b,0)b_Dims[0]; | |||
| 83144 | /* Processing variable lda */ | |||
| 83145 | lda = shape(a,0)a_Dims[0]; | |||
| 83146 | /* Processing variable ldb */ | |||
| 83147 | ldb = shape(b,0)b_Dims[0]; | |||
| 83148 | /* Processing variable c */ | |||
| 83149 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 83150 | c_Dims[0]=m,c_Dims[1]=n; | |||
| 83151 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 83152 | capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 83153 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 83154 | if (!PyErr_Occurred()) | |||
| 83155 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.ztrsyl to C/Fortran array" ); | |||
| 83156 | } else { | |||
| 83157 | c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 83158 | ||||
| 83159 | /* Processing variable ldc */ | |||
| 83160 | ldc = shape(c,0)c_Dims[0]; | |||
| 83161 | /* Processing variable trana */ | |||
| 83162 | slen(trana)capi_trana_len = 1; | |||
| 83163 | f2py_success = string_from_pyobj(&trana,&slen(trana)capi_trana_len,"N",trana_capi,"string_from_pyobj failed in converting 1st keyword `trana' of _flapack.ztrsyl to C string"); | |||
| 83164 | if (f2py_success) { | |||
| 83165 | CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C',"*trana=='N'||*trana=='T'||*trana=='C'","1st keyword trana","ztrsyl:slen(trana)=%d trana=\"%s\"",trana)if (!(*trana=='N'||*trana=='T'||*trana=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ztrsyl:slen(trana)=%d trana=\"%s\"" , "(""*trana=='N'||*trana=='T'||*trana=='C'"") failed for ""1st keyword trana" , capi_trana_len, trana); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 83166 | /* Processing variable tranb */ | |||
| 83167 | slen(tranb)capi_tranb_len = 1; | |||
| 83168 | f2py_success = string_from_pyobj(&tranb,&slen(tranb)capi_tranb_len,"N",tranb_capi,"string_from_pyobj failed in converting 2nd keyword `tranb' of _flapack.ztrsyl to C string"); | |||
| 83169 | if (f2py_success) { | |||
| 83170 | CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C',"*tranb=='N'||*tranb=='T'||*tranb=='C'","2nd keyword tranb","ztrsyl:slen(tranb)=%d tranb=\"%s\"",tranb)if (!(*tranb=='N'||*tranb=='T'||*tranb=='C')) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ztrsyl:slen(tranb)=%d tranb=\"%s\"" , "(""*tranb=='N'||*tranb=='T'||*tranb=='C'"") failed for ""2nd keyword tranb" , capi_tranb_len, tranb); PyErr_SetString(_flapack_error, errstring ); } else { | |||
| 83171 | /*end of frompyobj*/ | |||
| 83172 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83173 | f2py_start_call_clock(); | |||
| 83174 | #endif | |||
| 83175 | /*callfortranroutine*/ | |||
| 83176 | (*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info) ; | |||
| 83177 | /*(*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info,slen(trana),slen(tranb));*/ | |||
| 83178 | if (PyErr_Occurred()) | |||
| 83179 | f2py_success = 0; | |||
| 83180 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83181 | f2py_stop_call_clock(); | |||
| 83182 | #endif | |||
| 83183 | /*end of callfortranroutine*/ | |||
| 83184 | if (f2py_success) { | |||
| 83185 | /*pyobjfrom*/ | |||
| 83186 | /*end of pyobjfrom*/ | |||
| 83187 | CFUNCSMESS("Building return value.\n"); | |||
| 83188 | capi_buildvalue = Py_BuildValue("Ndi",capi_c_tmp,scale,info); | |||
| 83189 | /*closepyobjfrom*/ | |||
| 83190 | /*end of closepyobjfrom*/ | |||
| 83191 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 83192 | /*cleanupfrompyobj*/ | |||
| 83193 | } /*CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C')*/ | |||
| 83194 | STRINGFREE(tranb)do {if (!(tranb == ((void*)0))) free(tranb);} while (0); | |||
| 83195 | } /*if (f2py_success) of tranb*/ | |||
| 83196 | /* End of cleaning variable tranb */ | |||
| 83197 | } /*CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C')*/ | |||
| 83198 | STRINGFREE(trana)do {if (!(trana == ((void*)0))) free(trana);} while (0); | |||
| 83199 | } /*if (f2py_success) of trana*/ | |||
| 83200 | /* End of cleaning variable trana */ | |||
| 83201 | /* End of cleaning variable ldc */ | |||
| 83202 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 83203 | /* End of cleaning variable c */ | |||
| 83204 | /* End of cleaning variable ldb */ | |||
| 83205 | /* End of cleaning variable lda */ | |||
| 83206 | /* End of cleaning variable n */ | |||
| 83207 | /* End of cleaning variable m */ | |||
| 83208 | /* End of cleaning variable info */ | |||
| 83209 | /* End of cleaning variable scale */ | |||
| 83210 | } /*CHECKARRAY(shape(b,0)==shape(b,1))*/ | |||
| 83211 | if((PyObject *)capi_b_tmp!=b_capi) { | |||
| 83212 | Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); } | |||
| 83213 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 83214 | /* End of cleaning variable b */ | |||
| 83215 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 83216 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 83217 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 83218 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 83219 | /* End of cleaning variable a */ | |||
| 83220 | } /*CHECKSCALAR(isgn==1||isgn==-1)*/ | |||
| 83221 | } /*if (f2py_success) of isgn*/ | |||
| 83222 | /* End of cleaning variable isgn */ | |||
| 83223 | /*end of cleanupfrompyobj*/ | |||
| 83224 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 83225 | /*routdebugfailure*/ | |||
| 83226 | } else { | |||
| 83227 | /*routdebugleave*/ | |||
| 83228 | } | |||
| 83229 | CFUNCSMESS("Freeing memory.\n"); | |||
| 83230 | /*freemem*/ | |||
| 83231 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83232 | f2py_stop_clock(); | |||
| 83233 | #endif | |||
| 83234 | return capi_buildvalue; | |||
| 83235 | } | |||
| 83236 | /******************************* end of ztrsyl *******************************/ | |||
| 83237 | ||||
| 83238 | /*********************************** chbevd ***********************************/ | |||
| 83239 | static char doc_f2py_rout__flapack_chbevd[] = "\ | |||
| 83240 | w,z,info = chbevd(ab,[compute_v,lower,ldab,lrwork,liwork,overwrite_ab])\n\nWrapper for ``chbevd``.\ | |||
| 83241 | \n\nParameters\n----------\n" | |||
| 83242 | "ab : input rank-2 array('F') with bounds (ldab,n)\n" | |||
| 83243 | "\nOther Parameters\n----------------\n" | |||
| 83244 | "overwrite_ab : input int, optional\n Default: 1\n" | |||
| 83245 | "compute_v : input int, optional\n Default: 1\n" | |||
| 83246 | "lower : input int, optional\n Default: 0\n" | |||
| 83247 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 83248 | "lrwork : input int, optional\n Default: (compute_v?1+5*n+2*n*n:n)\n" | |||
| 83249 | "liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n" | |||
| 83250 | "\nReturns\n-------\n" | |||
| 83251 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 83252 | "z : rank-2 array('F') with bounds (ldz,ldz)\n" | |||
| 83253 | "info : int"; | |||
| 83254 | /* extern void F_FUNC(chbevd,CHBEVD)(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 83255 | static PyObject *f2py_rout__flapack_chbevd(const PyObject *capi_self, | |||
| 83256 | PyObject *capi_args, | |||
| 83257 | PyObject *capi_keywds, | |||
| 83258 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 83259 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 83260 | volatile int f2py_success = 1; | |||
| 83261 | /*decl*/ | |||
| 83262 | ||||
| 83263 | complex_float *ab = NULL((void*)0); | |||
| 83264 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 83265 | const int ab_Rank = 2; | |||
| 83266 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 83267 | int capi_ab_intent = 0; | |||
| 83268 | int capi_overwrite_ab = 1; | |||
| 83269 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 83270 | int compute_v = 0; | |||
| 83271 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 83272 | int lower = 0; | |||
| 83273 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 83274 | int n = 0; | |||
| 83275 | int ldab = 0; | |||
| 83276 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 83277 | int kd = 0; | |||
| 83278 | float *w = NULL((void*)0); | |||
| 83279 | npy_intp w_Dims[1] = {-1}; | |||
| 83280 | const int w_Rank = 1; | |||
| 83281 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 83282 | int capi_w_intent = 0; | |||
| 83283 | complex_float *z = NULL((void*)0); | |||
| 83284 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 83285 | const int z_Rank = 2; | |||
| 83286 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 83287 | int capi_z_intent = 0; | |||
| 83288 | int ldz = 0; | |||
| 83289 | complex_float *work = NULL((void*)0); | |||
| 83290 | npy_intp work_Dims[1] = {-1}; | |||
| 83291 | const int work_Rank = 1; | |||
| 83292 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 83293 | int capi_work_intent = 0; | |||
| 83294 | int lwork = 0; | |||
| 83295 | float *rwork = NULL((void*)0); | |||
| 83296 | npy_intp rwork_Dims[1] = {-1}; | |||
| 83297 | const int rwork_Rank = 1; | |||
| 83298 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 83299 | int capi_rwork_intent = 0; | |||
| 83300 | int lrwork = 0; | |||
| 83301 | PyObject *lrwork_capi = Py_None(&_Py_NoneStruct); | |||
| 83302 | int *iwork = NULL((void*)0); | |||
| 83303 | npy_intp iwork_Dims[1] = {-1}; | |||
| 83304 | const int iwork_Rank = 1; | |||
| 83305 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 83306 | int capi_iwork_intent = 0; | |||
| 83307 | int liwork = 0; | |||
| 83308 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 83309 | int info = 0; | |||
| 83310 | static char *capi_kwlist[] = {"ab","compute_v","lower","ldab","lrwork","liwork","overwrite_ab",NULL((void*)0)}; | |||
| 83311 | ||||
| 83312 | /*routdebugenter*/ | |||
| 83313 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83314 | f2py_start_clock(); | |||
| 83315 | #endif | |||
| 83316 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 83317 | "O|OOOOOi:_flapack.chbevd",\ | |||
| 83318 | capi_kwlist,&ab_capi,&compute_v_capi,&lower_capi,&ldab_capi,&lrwork_capi,&liwork_capi,&capi_overwrite_ab)) | |||
| 83319 | return NULL((void*)0); | |||
| 83320 | /*frompyobj*/ | |||
| 83321 | /* Processing variable ab */ | |||
| 83322 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 83323 | ; | |||
| 83324 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 83325 | capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 83326 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 83327 | if (!PyErr_Occurred()) | |||
| 83328 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.chbevd to C/Fortran array" ); | |||
| 83329 | } else { | |||
| 83330 | ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 83331 | ||||
| 83332 | /* Processing variable compute_v */ | |||
| 83333 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 83334 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.chbevd() 1st keyword (compute_v) can't be converted to int"); | |||
| 83335 | if (f2py_success) { | |||
| 83336 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","chbevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chbevd:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 83337 | /* Processing variable lower */ | |||
| 83338 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 83339 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chbevd() 2nd keyword (lower) can't be converted to int"); | |||
| 83340 | if (f2py_success) { | |||
| 83341 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","chbevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chbevd:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 83342 | /* Processing variable info */ | |||
| 83343 | /* Processing variable ldab */ | |||
| 83344 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 83345 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.chbevd() 3rd keyword (ldab) can't be converted to int"); | |||
| 83346 | if (f2py_success) { | |||
| 83347 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","chbevd:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chbevd:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 83348 | /* Processing variable n */ | |||
| 83349 | n = shape(ab,1)ab_Dims[1]; | |||
| 83350 | CHECKSCALAR(n>0,"n>0","hidden n","chbevd:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chbevd:n=%d", "(""n>0"") failed for ""hidden n", n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 83351 | /* Processing variable kd */ | |||
| 83352 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 83353 | /* Processing variable w */ | |||
| 83354 | w_Dims[0]=n; | |||
| 83355 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 83356 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 83357 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 83358 | if (!PyErr_Occurred()) | |||
| 83359 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.chbevd to C/Fortran array" ); | |||
| 83360 | } else { | |||
| 83361 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 83362 | ||||
| 83363 | /* Processing variable ldz */ | |||
| 83364 | ldz = (compute_v?n:1); | |||
| 83365 | /* Processing variable z */ | |||
| 83366 | z_Dims[0]=ldz,z_Dims[1]=ldz; | |||
| 83367 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 83368 | capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 83369 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 83370 | if (!PyErr_Occurred()) | |||
| 83371 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.chbevd to C/Fortran array" ); | |||
| 83372 | } else { | |||
| 83373 | z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 83374 | ||||
| 83375 | /* Processing variable lwork */ | |||
| 83376 | lwork = max((compute_v?2*n*n:n),1)(((compute_v?2*n*n:n) > 1) ? ((compute_v?2*n*n:n)) : (1)); | |||
| 83377 | /* Processing variable work */ | |||
| 83378 | work_Dims[0]=lwork; | |||
| 83379 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 83380 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 83381 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 83382 | if (!PyErr_Occurred()) | |||
| 83383 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chbevd to C/Fortran array" ); | |||
| 83384 | } else { | |||
| 83385 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 83386 | ||||
| 83387 | /* Processing variable lrwork */ | |||
| 83388 | if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = (compute_v?1+5*n+2*n*n:n); else | |||
| 83389 | f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.chbevd() 4th keyword (lrwork) can't be converted to int"); | |||
| 83390 | if (f2py_success) { | |||
| 83391 | CHECKSCALAR(lrwork>=(compute_v?1+5*n+2*n*n:n),"lrwork>=(compute_v?1+5*n+2*n*n:n)","4th keyword lrwork","chbevd:lrwork=%d",lrwork)if (!(lrwork>=(compute_v?1+5*n+2*n*n:n))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""chbevd:lrwork=%d", "(""lrwork>=(compute_v?1+5*n+2*n*n:n)" ") failed for ""4th keyword lrwork", lrwork); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 83392 | /* Processing variable rwork */ | |||
| 83393 | rwork_Dims[0]=lrwork; | |||
| 83394 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 83395 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 83396 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 83397 | if (!PyErr_Occurred()) | |||
| 83398 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.chbevd to C/Fortran array" ); | |||
| 83399 | } else { | |||
| 83400 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 83401 | ||||
| 83402 | /* Processing variable liwork */ | |||
| 83403 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else | |||
| 83404 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.chbevd() 5th keyword (liwork) can't be converted to int"); | |||
| 83405 | if (f2py_success) { | |||
| 83406 | CHECKSCALAR(liwork>=(compute_v?3+5*n:1),"liwork>=(compute_v?3+5*n:1)","5th keyword liwork","chbevd:liwork=%d",liwork)if (!(liwork>=(compute_v?3+5*n:1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""chbevd:liwork=%d", "(""liwork>=(compute_v?3+5*n:1)" ") failed for ""5th keyword liwork", liwork); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 83407 | /* Processing variable iwork */ | |||
| 83408 | iwork_Dims[0]=liwork; | |||
| 83409 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 83410 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 83411 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 83412 | if (!PyErr_Occurred()) | |||
| 83413 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.chbevd to C/Fortran array" ); | |||
| 83414 | } else { | |||
| 83415 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 83416 | ||||
| 83417 | /*end of frompyobj*/ | |||
| 83418 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83419 | f2py_start_call_clock(); | |||
| 83420 | #endif | |||
| 83421 | /*callfortranroutine*/ | |||
| 83422 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&kd,ab,&ldab,w,z,&ldz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ; | |||
| 83423 | /*(*f2py_func)(ab,&compute_v,&lower,&n,&ldab,&kd,w,z,&ldz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info);*/ | |||
| 83424 | if (PyErr_Occurred()) | |||
| 83425 | f2py_success = 0; | |||
| 83426 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83427 | f2py_stop_call_clock(); | |||
| 83428 | #endif | |||
| 83429 | /*end of callfortranroutine*/ | |||
| 83430 | if (f2py_success) { | |||
| 83431 | /*pyobjfrom*/ | |||
| 83432 | /*end of pyobjfrom*/ | |||
| 83433 | CFUNCSMESS("Building return value.\n"); | |||
| 83434 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_z_tmp,info); | |||
| 83435 | /*closepyobjfrom*/ | |||
| 83436 | /*end of closepyobjfrom*/ | |||
| 83437 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 83438 | /*cleanupfrompyobj*/ | |||
| 83439 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 83440 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 83441 | /* End of cleaning variable iwork */ | |||
| 83442 | } /*CHECKSCALAR(liwork>=(compute_v?3+5*n:1))*/ | |||
| 83443 | } /*if (f2py_success) of liwork*/ | |||
| 83444 | /* End of cleaning variable liwork */ | |||
| 83445 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 83446 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 83447 | /* End of cleaning variable rwork */ | |||
| 83448 | } /*CHECKSCALAR(lrwork>=(compute_v?1+5*n+2*n*n:n))*/ | |||
| 83449 | } /*if (f2py_success) of lrwork*/ | |||
| 83450 | /* End of cleaning variable lrwork */ | |||
| 83451 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 83452 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 83453 | /* End of cleaning variable work */ | |||
| 83454 | /* End of cleaning variable lwork */ | |||
| 83455 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 83456 | /* End of cleaning variable z */ | |||
| 83457 | /* End of cleaning variable ldz */ | |||
| 83458 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 83459 | /* End of cleaning variable w */ | |||
| 83460 | /* End of cleaning variable kd */ | |||
| 83461 | } /*CHECKSCALAR(n>0)*/ | |||
| 83462 | /* End of cleaning variable n */ | |||
| 83463 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 83464 | } /*if (f2py_success) of ldab*/ | |||
| 83465 | /* End of cleaning variable ldab */ | |||
| 83466 | /* End of cleaning variable info */ | |||
| 83467 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 83468 | } /*if (f2py_success) of lower*/ | |||
| 83469 | /* End of cleaning variable lower */ | |||
| 83470 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 83471 | } /*if (f2py_success) of compute_v*/ | |||
| 83472 | /* End of cleaning variable compute_v */ | |||
| 83473 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 83474 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 83475 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 83476 | /* End of cleaning variable ab */ | |||
| 83477 | /*end of cleanupfrompyobj*/ | |||
| 83478 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 83479 | /*routdebugfailure*/ | |||
| 83480 | } else { | |||
| 83481 | /*routdebugleave*/ | |||
| 83482 | } | |||
| 83483 | CFUNCSMESS("Freeing memory.\n"); | |||
| 83484 | /*freemem*/ | |||
| 83485 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83486 | f2py_stop_clock(); | |||
| 83487 | #endif | |||
| 83488 | return capi_buildvalue; | |||
| 83489 | } | |||
| 83490 | /******************************* end of chbevd *******************************/ | |||
| 83491 | ||||
| 83492 | /*********************************** zhbevd ***********************************/ | |||
| 83493 | static char doc_f2py_rout__flapack_zhbevd[] = "\ | |||
| 83494 | w,z,info = zhbevd(ab,[compute_v,lower,ldab,lrwork,liwork,overwrite_ab])\n\nWrapper for ``zhbevd``.\ | |||
| 83495 | \n\nParameters\n----------\n" | |||
| 83496 | "ab : input rank-2 array('D') with bounds (ldab,n)\n" | |||
| 83497 | "\nOther Parameters\n----------------\n" | |||
| 83498 | "overwrite_ab : input int, optional\n Default: 1\n" | |||
| 83499 | "compute_v : input int, optional\n Default: 1\n" | |||
| 83500 | "lower : input int, optional\n Default: 0\n" | |||
| 83501 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 83502 | "lrwork : input int, optional\n Default: (compute_v?1+5*n+2*n*n:n)\n" | |||
| 83503 | "liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n" | |||
| 83504 | "\nReturns\n-------\n" | |||
| 83505 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 83506 | "z : rank-2 array('D') with bounds (ldz,ldz)\n" | |||
| 83507 | "info : int"; | |||
| 83508 | /* extern void F_FUNC(zhbevd,ZHBEVD)(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 83509 | static PyObject *f2py_rout__flapack_zhbevd(const PyObject *capi_self, | |||
| 83510 | PyObject *capi_args, | |||
| 83511 | PyObject *capi_keywds, | |||
| 83512 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 83513 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 83514 | volatile int f2py_success = 1; | |||
| 83515 | /*decl*/ | |||
| 83516 | ||||
| 83517 | complex_double *ab = NULL((void*)0); | |||
| 83518 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 83519 | const int ab_Rank = 2; | |||
| 83520 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 83521 | int capi_ab_intent = 0; | |||
| 83522 | int capi_overwrite_ab = 1; | |||
| 83523 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 83524 | int compute_v = 0; | |||
| 83525 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 83526 | int lower = 0; | |||
| 83527 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 83528 | int n = 0; | |||
| 83529 | int ldab = 0; | |||
| 83530 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 83531 | int kd = 0; | |||
| 83532 | double *w = NULL((void*)0); | |||
| 83533 | npy_intp w_Dims[1] = {-1}; | |||
| 83534 | const int w_Rank = 1; | |||
| 83535 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 83536 | int capi_w_intent = 0; | |||
| 83537 | complex_double *z = NULL((void*)0); | |||
| 83538 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 83539 | const int z_Rank = 2; | |||
| 83540 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 83541 | int capi_z_intent = 0; | |||
| 83542 | int ldz = 0; | |||
| 83543 | complex_double *work = NULL((void*)0); | |||
| 83544 | npy_intp work_Dims[1] = {-1}; | |||
| 83545 | const int work_Rank = 1; | |||
| 83546 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 83547 | int capi_work_intent = 0; | |||
| 83548 | int lwork = 0; | |||
| 83549 | double *rwork = NULL((void*)0); | |||
| 83550 | npy_intp rwork_Dims[1] = {-1}; | |||
| 83551 | const int rwork_Rank = 1; | |||
| 83552 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 83553 | int capi_rwork_intent = 0; | |||
| 83554 | int lrwork = 0; | |||
| 83555 | PyObject *lrwork_capi = Py_None(&_Py_NoneStruct); | |||
| 83556 | int *iwork = NULL((void*)0); | |||
| 83557 | npy_intp iwork_Dims[1] = {-1}; | |||
| 83558 | const int iwork_Rank = 1; | |||
| 83559 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 83560 | int capi_iwork_intent = 0; | |||
| 83561 | int liwork = 0; | |||
| 83562 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 83563 | int info = 0; | |||
| 83564 | static char *capi_kwlist[] = {"ab","compute_v","lower","ldab","lrwork","liwork","overwrite_ab",NULL((void*)0)}; | |||
| 83565 | ||||
| 83566 | /*routdebugenter*/ | |||
| 83567 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83568 | f2py_start_clock(); | |||
| 83569 | #endif | |||
| 83570 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 83571 | "O|OOOOOi:_flapack.zhbevd",\ | |||
| 83572 | capi_kwlist,&ab_capi,&compute_v_capi,&lower_capi,&ldab_capi,&lrwork_capi,&liwork_capi,&capi_overwrite_ab)) | |||
| 83573 | return NULL((void*)0); | |||
| 83574 | /*frompyobj*/ | |||
| 83575 | /* Processing variable ab */ | |||
| 83576 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 83577 | ; | |||
| 83578 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 83579 | capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 83580 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 83581 | if (!PyErr_Occurred()) | |||
| 83582 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zhbevd to C/Fortran array" ); | |||
| 83583 | } else { | |||
| 83584 | ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 83585 | ||||
| 83586 | /* Processing variable compute_v */ | |||
| 83587 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 83588 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zhbevd() 1st keyword (compute_v) can't be converted to int"); | |||
| 83589 | if (f2py_success) { | |||
| 83590 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","zhbevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhbevd:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 83591 | /* Processing variable lower */ | |||
| 83592 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 83593 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhbevd() 2nd keyword (lower) can't be converted to int"); | |||
| 83594 | if (f2py_success) { | |||
| 83595 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zhbevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhbevd:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 83596 | /* Processing variable info */ | |||
| 83597 | /* Processing variable ldab */ | |||
| 83598 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 83599 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zhbevd() 3rd keyword (ldab) can't be converted to int"); | |||
| 83600 | if (f2py_success) { | |||
| 83601 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","zhbevd:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhbevd:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 83602 | /* Processing variable n */ | |||
| 83603 | n = shape(ab,1)ab_Dims[1]; | |||
| 83604 | CHECKSCALAR(n>0,"n>0","hidden n","zhbevd:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhbevd:n=%d", "(""n>0"") failed for ""hidden n", n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 83605 | /* Processing variable kd */ | |||
| 83606 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 83607 | /* Processing variable w */ | |||
| 83608 | w_Dims[0]=n; | |||
| 83609 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 83610 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 83611 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 83612 | if (!PyErr_Occurred()) | |||
| 83613 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zhbevd to C/Fortran array" ); | |||
| 83614 | } else { | |||
| 83615 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 83616 | ||||
| 83617 | /* Processing variable ldz */ | |||
| 83618 | ldz = (compute_v?n:1); | |||
| 83619 | /* Processing variable z */ | |||
| 83620 | z_Dims[0]=ldz,z_Dims[1]=ldz; | |||
| 83621 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 83622 | capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 83623 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 83624 | if (!PyErr_Occurred()) | |||
| 83625 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.zhbevd to C/Fortran array" ); | |||
| 83626 | } else { | |||
| 83627 | z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 83628 | ||||
| 83629 | /* Processing variable lwork */ | |||
| 83630 | lwork = max((compute_v?2*n*n:n),1)(((compute_v?2*n*n:n) > 1) ? ((compute_v?2*n*n:n)) : (1)); | |||
| 83631 | /* Processing variable work */ | |||
| 83632 | work_Dims[0]=lwork; | |||
| 83633 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 83634 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 83635 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 83636 | if (!PyErr_Occurred()) | |||
| 83637 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhbevd to C/Fortran array" ); | |||
| 83638 | } else { | |||
| 83639 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 83640 | ||||
| 83641 | /* Processing variable lrwork */ | |||
| 83642 | if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = (compute_v?1+5*n+2*n*n:n); else | |||
| 83643 | f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.zhbevd() 4th keyword (lrwork) can't be converted to int"); | |||
| 83644 | if (f2py_success) { | |||
| 83645 | CHECKSCALAR(lrwork>=(compute_v?1+5*n+2*n*n:n),"lrwork>=(compute_v?1+5*n+2*n*n:n)","4th keyword lrwork","zhbevd:lrwork=%d",lrwork)if (!(lrwork>=(compute_v?1+5*n+2*n*n:n))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zhbevd:lrwork=%d", "(""lrwork>=(compute_v?1+5*n+2*n*n:n)" ") failed for ""4th keyword lrwork", lrwork); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 83646 | /* Processing variable rwork */ | |||
| 83647 | rwork_Dims[0]=lrwork; | |||
| 83648 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 83649 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 83650 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 83651 | if (!PyErr_Occurred()) | |||
| 83652 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zhbevd to C/Fortran array" ); | |||
| 83653 | } else { | |||
| 83654 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 83655 | ||||
| 83656 | /* Processing variable liwork */ | |||
| 83657 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else | |||
| 83658 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.zhbevd() 5th keyword (liwork) can't be converted to int"); | |||
| 83659 | if (f2py_success) { | |||
| 83660 | CHECKSCALAR(liwork>=(compute_v?3+5*n:1),"liwork>=(compute_v?3+5*n:1)","5th keyword liwork","zhbevd:liwork=%d",liwork)if (!(liwork>=(compute_v?3+5*n:1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zhbevd:liwork=%d", "(""liwork>=(compute_v?3+5*n:1)" ") failed for ""5th keyword liwork", liwork); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 83661 | /* Processing variable iwork */ | |||
| 83662 | iwork_Dims[0]=liwork; | |||
| 83663 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 83664 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 83665 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 83666 | if (!PyErr_Occurred()) | |||
| 83667 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zhbevd to C/Fortran array" ); | |||
| 83668 | } else { | |||
| 83669 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 83670 | ||||
| 83671 | /*end of frompyobj*/ | |||
| 83672 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83673 | f2py_start_call_clock(); | |||
| 83674 | #endif | |||
| 83675 | /*callfortranroutine*/ | |||
| 83676 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&kd,ab,&ldab,w,z,&ldz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ; | |||
| 83677 | /*(*f2py_func)(ab,&compute_v,&lower,&n,&ldab,&kd,w,z,&ldz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info);*/ | |||
| 83678 | if (PyErr_Occurred()) | |||
| 83679 | f2py_success = 0; | |||
| 83680 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83681 | f2py_stop_call_clock(); | |||
| 83682 | #endif | |||
| 83683 | /*end of callfortranroutine*/ | |||
| 83684 | if (f2py_success) { | |||
| 83685 | /*pyobjfrom*/ | |||
| 83686 | /*end of pyobjfrom*/ | |||
| 83687 | CFUNCSMESS("Building return value.\n"); | |||
| 83688 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_z_tmp,info); | |||
| 83689 | /*closepyobjfrom*/ | |||
| 83690 | /*end of closepyobjfrom*/ | |||
| 83691 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 83692 | /*cleanupfrompyobj*/ | |||
| 83693 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 83694 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 83695 | /* End of cleaning variable iwork */ | |||
| 83696 | } /*CHECKSCALAR(liwork>=(compute_v?3+5*n:1))*/ | |||
| 83697 | } /*if (f2py_success) of liwork*/ | |||
| 83698 | /* End of cleaning variable liwork */ | |||
| 83699 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 83700 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 83701 | /* End of cleaning variable rwork */ | |||
| 83702 | } /*CHECKSCALAR(lrwork>=(compute_v?1+5*n+2*n*n:n))*/ | |||
| 83703 | } /*if (f2py_success) of lrwork*/ | |||
| 83704 | /* End of cleaning variable lrwork */ | |||
| 83705 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 83706 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 83707 | /* End of cleaning variable work */ | |||
| 83708 | /* End of cleaning variable lwork */ | |||
| 83709 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 83710 | /* End of cleaning variable z */ | |||
| 83711 | /* End of cleaning variable ldz */ | |||
| 83712 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 83713 | /* End of cleaning variable w */ | |||
| 83714 | /* End of cleaning variable kd */ | |||
| 83715 | } /*CHECKSCALAR(n>0)*/ | |||
| 83716 | /* End of cleaning variable n */ | |||
| 83717 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 83718 | } /*if (f2py_success) of ldab*/ | |||
| 83719 | /* End of cleaning variable ldab */ | |||
| 83720 | /* End of cleaning variable info */ | |||
| 83721 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 83722 | } /*if (f2py_success) of lower*/ | |||
| 83723 | /* End of cleaning variable lower */ | |||
| 83724 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 83725 | } /*if (f2py_success) of compute_v*/ | |||
| 83726 | /* End of cleaning variable compute_v */ | |||
| 83727 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 83728 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 83729 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 83730 | /* End of cleaning variable ab */ | |||
| 83731 | /*end of cleanupfrompyobj*/ | |||
| 83732 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 83733 | /*routdebugfailure*/ | |||
| 83734 | } else { | |||
| 83735 | /*routdebugleave*/ | |||
| 83736 | } | |||
| 83737 | CFUNCSMESS("Freeing memory.\n"); | |||
| 83738 | /*freemem*/ | |||
| 83739 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83740 | f2py_stop_clock(); | |||
| 83741 | #endif | |||
| 83742 | return capi_buildvalue; | |||
| 83743 | } | |||
| 83744 | /******************************* end of zhbevd *******************************/ | |||
| 83745 | ||||
| 83746 | /*********************************** chbevx ***********************************/ | |||
| 83747 | static char doc_f2py_rout__flapack_chbevx[] = "\ | |||
| 83748 | w,z,m,ifail,info = chbevx(ab,vl,vu,il,iu,[ldab,compute_v,range,lower,abstol,mmax,overwrite_ab])\n\nWrapper for ``chbevx``.\ | |||
| 83749 | \n\nParameters\n----------\n" | |||
| 83750 | "ab : input rank-2 array('F') with bounds (ldab,n)\n" | |||
| 83751 | "vl : input float\n" | |||
| 83752 | "vu : input float\n" | |||
| 83753 | "il : input int\n" | |||
| 83754 | "iu : input int\n" | |||
| 83755 | "\nOther Parameters\n----------------\n" | |||
| 83756 | "overwrite_ab : input int, optional\n Default: 1\n" | |||
| 83757 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 83758 | "compute_v : input int, optional\n Default: 1\n" | |||
| 83759 | "range : input int, optional\n Default: 0\n" | |||
| 83760 | "lower : input int, optional\n Default: 0\n" | |||
| 83761 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 83762 | "mmax : input int, optional\n Default: (compute_v?(range==2?(iu-il+1):n):1)\n" | |||
| 83763 | "\nReturns\n-------\n" | |||
| 83764 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 83765 | "z : rank-2 array('F') with bounds (ldz,mmax)\n" | |||
| 83766 | "m : int\n" | |||
| 83767 | "ifail : rank-1 array('i') with bounds ((compute_v?n:1))\n" | |||
| 83768 | "info : int"; | |||
| 83769 | /* extern void F_FUNC(chbevx,CHBEVX)(char*,char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 83770 | static PyObject *f2py_rout__flapack_chbevx(const PyObject *capi_self, | |||
| 83771 | PyObject *capi_args, | |||
| 83772 | PyObject *capi_keywds, | |||
| 83773 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 83774 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 83775 | volatile int f2py_success = 1; | |||
| 83776 | /*decl*/ | |||
| 83777 | ||||
| 83778 | complex_float *ab = NULL((void*)0); | |||
| 83779 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 83780 | const int ab_Rank = 2; | |||
| 83781 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 83782 | int capi_ab_intent = 0; | |||
| 83783 | int capi_overwrite_ab = 1; | |||
| 83784 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 83785 | int ldab = 0; | |||
| 83786 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 83787 | int compute_v = 0; | |||
| 83788 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 83789 | int range = 0; | |||
| 83790 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 83791 | int lower = 0; | |||
| 83792 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 83793 | int n = 0; | |||
| 83794 | int kd = 0; | |||
| 83795 | complex_float *q = NULL((void*)0); | |||
| 83796 | npy_intp q_Dims[2] = {-1, -1}; | |||
| 83797 | const int q_Rank = 2; | |||
| 83798 | PyArrayObject *capi_q_tmp = NULL((void*)0); | |||
| 83799 | int capi_q_intent = 0; | |||
| 83800 | int ldq = 0; | |||
| 83801 | float vl = 0; | |||
| 83802 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 83803 | float vu = 0; | |||
| 83804 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 83805 | int il = 0; | |||
| 83806 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 83807 | int iu = 0; | |||
| 83808 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 83809 | float abstol = 0; | |||
| 83810 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 83811 | float *w = NULL((void*)0); | |||
| 83812 | npy_intp w_Dims[1] = {-1}; | |||
| 83813 | const int w_Rank = 1; | |||
| 83814 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 83815 | int capi_w_intent = 0; | |||
| 83816 | complex_float *z = NULL((void*)0); | |||
| 83817 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 83818 | const int z_Rank = 2; | |||
| 83819 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 83820 | int capi_z_intent = 0; | |||
| 83821 | int m = 0; | |||
| 83822 | int mmax = 0; | |||
| 83823 | PyObject *mmax_capi = Py_None(&_Py_NoneStruct); | |||
| 83824 | int ldz = 0; | |||
| 83825 | complex_float *work = NULL((void*)0); | |||
| 83826 | npy_intp work_Dims[1] = {-1}; | |||
| 83827 | const int work_Rank = 1; | |||
| 83828 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 83829 | int capi_work_intent = 0; | |||
| 83830 | float *rwork = NULL((void*)0); | |||
| 83831 | npy_intp rwork_Dims[1] = {-1}; | |||
| 83832 | const int rwork_Rank = 1; | |||
| 83833 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 83834 | int capi_rwork_intent = 0; | |||
| 83835 | int *iwork = NULL((void*)0); | |||
| 83836 | npy_intp iwork_Dims[1] = {-1}; | |||
| 83837 | const int iwork_Rank = 1; | |||
| 83838 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 83839 | int capi_iwork_intent = 0; | |||
| 83840 | int *ifail = NULL((void*)0); | |||
| 83841 | npy_intp ifail_Dims[1] = {-1}; | |||
| 83842 | const int ifail_Rank = 1; | |||
| 83843 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 83844 | int capi_ifail_intent = 0; | |||
| 83845 | int info = 0; | |||
| 83846 | static char *capi_kwlist[] = {"ab","vl","vu","il","iu","ldab","compute_v","range","lower","abstol","mmax","overwrite_ab",NULL((void*)0)}; | |||
| 83847 | ||||
| 83848 | /*routdebugenter*/ | |||
| 83849 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83850 | f2py_start_clock(); | |||
| 83851 | #endif | |||
| 83852 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 83853 | "OOOOO|OOOOOOi:_flapack.chbevx",\ | |||
| 83854 | capi_kwlist,&ab_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&ldab_capi,&compute_v_capi,&range_capi,&lower_capi,&abstol_capi,&mmax_capi,&capi_overwrite_ab)) | |||
| 83855 | return NULL((void*)0); | |||
| 83856 | /*frompyobj*/ | |||
| 83857 | /* Processing variable compute_v */ | |||
| 83858 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 83859 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.chbevx() 2nd keyword (compute_v) can't be converted to int"); | |||
| 83860 | if (f2py_success) { | |||
| 83861 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","2nd keyword compute_v","chbevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chbevx:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""2nd keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 83862 | /* Processing variable lower */ | |||
| 83863 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 83864 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chbevx() 4th keyword (lower) can't be converted to int"); | |||
| 83865 | if (f2py_success) { | |||
| 83866 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","4th keyword lower","chbevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chbevx:lower=%d", "(""lower==0||lower==1"") failed for " "4th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 83867 | /* Processing variable range */ | |||
| 83868 | if (range_capi == Py_None(&_Py_NoneStruct)) range = 0; else | |||
| 83869 | f2py_success = int_from_pyobj(&range,range_capi,"_flapack.chbevx() 3rd keyword (range) can't be converted to int"); | |||
| 83870 | if (f2py_success) { | |||
| 83871 | CHECKSCALAR(range==2||range==1||range==0,"range==2||range==1||range==0","3rd keyword range","chbevx:range=%d",range)if (!(range==2||range==1||range==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chbevx:range=%d", "(""range==2||range==1||range==0" ") failed for ""3rd keyword range", range); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 83872 | /* Processing variable ab */ | |||
| 83873 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 83874 | ; | |||
| 83875 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 83876 | capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 83877 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 83878 | if (!PyErr_Occurred()) | |||
| 83879 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.chbevx to C/Fortran array" ); | |||
| 83880 | } else { | |||
| 83881 | ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 83882 | ||||
| 83883 | /* Processing variable vl */ | |||
| 83884 | f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.chbevx() 2nd argument (vl) can't be converted to float"); | |||
| 83885 | if (f2py_success) { | |||
| 83886 | /* Processing variable vu */ | |||
| 83887 | f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.chbevx() 3rd argument (vu) can't be converted to float"); | |||
| 83888 | if (f2py_success) { | |||
| 83889 | /* Processing variable abstol */ | |||
| 83890 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 83891 | f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.chbevx() 5th keyword (abstol) can't be converted to float"); | |||
| 83892 | if (f2py_success) { | |||
| 83893 | /* Processing variable m */ | |||
| 83894 | /* Processing variable info */ | |||
| 83895 | /* Processing variable ldab */ | |||
| 83896 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 83897 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.chbevx() 1st keyword (ldab) can't be converted to int"); | |||
| 83898 | if (f2py_success) { | |||
| 83899 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","1st keyword ldab","chbevx:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chbevx:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "1st keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 83900 | /* Processing variable n */ | |||
| 83901 | n = shape(ab,1)ab_Dims[1]; | |||
| 83902 | /* Processing variable kd */ | |||
| 83903 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 83904 | /* Processing variable ldq */ | |||
| 83905 | ldq = (compute_v?n:1); | |||
| 83906 | /* Processing variable q */ | |||
| 83907 | q_Dims[0]=ldq,q_Dims[1]=ldq; | |||
| 83908 | capi_q_intent |= F2PY_INTENT_HIDE8; | |||
| 83909 | capi_q_tmp = array_from_pyobj(NPY_CFLOAT,q_Dims,q_Rank,capi_q_intent,Py_None(&_Py_NoneStruct)); | |||
| 83910 | if (capi_q_tmp == NULL((void*)0)) { | |||
| 83911 | if (!PyErr_Occurred()) | |||
| 83912 | PyErr_SetString(_flapack_error,"failed in converting hidden `q' of _flapack.chbevx to C/Fortran array" ); | |||
| 83913 | } else { | |||
| 83914 | q = (complex_float *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data)); | |||
| 83915 | ||||
| 83916 | /* Processing variable il */ | |||
| 83917 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.chbevx() 4th argument (il) can't be converted to int"); | |||
| 83918 | if (f2py_success) { | |||
| 83919 | CHECKSCALAR((il>=1 && il<=n),"(il>=1 && il<=n)","4th argument il","chbevx:il=%d",il)if (!((il>=1 && il<=n))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""chbevx:il=%d", "(""(il>=1 && il<=n)" ") failed for ""4th argument il", il); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 83920 | /* Processing variable iu */ | |||
| 83921 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.chbevx() 5th argument (iu) can't be converted to int"); | |||
| 83922 | if (f2py_success) { | |||
| 83923 | CHECKSCALAR((iu>=1 && iu<=n && iu>=il),"(iu>=1 && iu<=n && iu>=il)","5th argument iu","chbevx:iu=%d",iu)if (!((iu>=1 && iu<=n && iu>=il))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""chbevx:iu=%d" , "(""(iu>=1 && iu<=n && iu>=il)"") failed for " "5th argument iu", iu); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 83924 | /* Processing variable w */ | |||
| 83925 | w_Dims[0]=n; | |||
| 83926 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 83927 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 83928 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 83929 | if (!PyErr_Occurred()) | |||
| 83930 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.chbevx to C/Fortran array" ); | |||
| 83931 | } else { | |||
| 83932 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 83933 | ||||
| 83934 | /* Processing variable ldz */ | |||
| 83935 | ldz = (compute_v?n:1); | |||
| 83936 | /* Processing variable mmax */ | |||
| 83937 | if (mmax_capi == Py_None(&_Py_NoneStruct)) mmax = (compute_v?(range==2?(iu-il+1):n):1); else | |||
| 83938 | f2py_success = int_from_pyobj(&mmax,mmax_capi,"_flapack.chbevx() 6th keyword (mmax) can't be converted to int"); | |||
| 83939 | if (f2py_success) { | |||
| 83940 | /* Processing variable work */ | |||
| 83941 | work_Dims[0]=n; | |||
| 83942 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 83943 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 83944 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 83945 | if (!PyErr_Occurred()) | |||
| 83946 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chbevx to C/Fortran array" ); | |||
| 83947 | } else { | |||
| 83948 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 83949 | ||||
| 83950 | /* Processing variable rwork */ | |||
| 83951 | rwork_Dims[0]=7 * n; | |||
| 83952 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 83953 | capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 83954 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 83955 | if (!PyErr_Occurred()) | |||
| 83956 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.chbevx to C/Fortran array" ); | |||
| 83957 | } else { | |||
| 83958 | rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 83959 | ||||
| 83960 | /* Processing variable iwork */ | |||
| 83961 | iwork_Dims[0]=5 * n; | |||
| 83962 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 83963 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 83964 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 83965 | if (!PyErr_Occurred()) | |||
| 83966 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.chbevx to C/Fortran array" ); | |||
| 83967 | } else { | |||
| 83968 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 83969 | ||||
| 83970 | /* Processing variable ifail */ | |||
| 83971 | ifail_Dims[0]=(compute_v?n:1); | |||
| 83972 | capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 83973 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 83974 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 83975 | if (!PyErr_Occurred()) | |||
| 83976 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.chbevx to C/Fortran array" ); | |||
| 83977 | } else { | |||
| 83978 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 83979 | ||||
| 83980 | /* Processing variable z */ | |||
| 83981 | z_Dims[0]=ldz,z_Dims[1]=mmax; | |||
| 83982 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 83983 | capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 83984 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 83985 | if (!PyErr_Occurred()) | |||
| 83986 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.chbevx to C/Fortran array" ); | |||
| 83987 | } else { | |||
| 83988 | z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 83989 | ||||
| 83990 | /*end of frompyobj*/ | |||
| 83991 | #ifdef F2PY_REPORT_ATEXIT | |||
| 83992 | f2py_start_call_clock(); | |||
| 83993 | #endif | |||
| 83994 | /*callfortranroutine*/ | |||
| 83995 | (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),(lower?"L":"U"),&n,&kd,ab,&ldab,q,&ldq,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,rwork,iwork,ifail,&info) ; | |||
| 83996 | /*(*f2py_func)(ab,&ldab,&compute_v,&range,&lower,&n,&kd,q,&ldq,&vl,&vu,&il,&iu,&abstol,w,z,&m,&mmax,&ldz,work,rwork,iwork,ifail,&info);*/ | |||
| 83997 | if (PyErr_Occurred()) | |||
| 83998 | f2py_success = 0; | |||
| 83999 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84000 | f2py_stop_call_clock(); | |||
| 84001 | #endif | |||
| 84002 | /*end of callfortranroutine*/ | |||
| 84003 | if (f2py_success) { | |||
| 84004 | /*pyobjfrom*/ | |||
| 84005 | /*end of pyobjfrom*/ | |||
| 84006 | CFUNCSMESS("Building return value.\n"); | |||
| 84007 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info); | |||
| 84008 | /*closepyobjfrom*/ | |||
| 84009 | /*end of closepyobjfrom*/ | |||
| 84010 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 84011 | /*cleanupfrompyobj*/ | |||
| 84012 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 84013 | /* End of cleaning variable z */ | |||
| 84014 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 84015 | /* End of cleaning variable ifail */ | |||
| 84016 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 84017 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 84018 | /* End of cleaning variable iwork */ | |||
| 84019 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 84020 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 84021 | /* End of cleaning variable rwork */ | |||
| 84022 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 84023 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 84024 | /* End of cleaning variable work */ | |||
| 84025 | } /*if (f2py_success) of mmax*/ | |||
| 84026 | /* End of cleaning variable mmax */ | |||
| 84027 | /* End of cleaning variable ldz */ | |||
| 84028 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 84029 | /* End of cleaning variable w */ | |||
| 84030 | } /*CHECKSCALAR((iu>=1 && iu<=n && iu>=il))*/ | |||
| 84031 | } /*if (f2py_success) of iu*/ | |||
| 84032 | /* End of cleaning variable iu */ | |||
| 84033 | } /*CHECKSCALAR((il>=1 && il<=n))*/ | |||
| 84034 | } /*if (f2py_success) of il*/ | |||
| 84035 | /* End of cleaning variable il */ | |||
| 84036 | Py_XDECREF(capi_q_tmp)_Py_XDECREF(((PyObject*)(capi_q_tmp))); | |||
| 84037 | } /*if (capi_q_tmp == NULL) ... else of q*/ | |||
| 84038 | /* End of cleaning variable q */ | |||
| 84039 | /* End of cleaning variable ldq */ | |||
| 84040 | /* End of cleaning variable kd */ | |||
| 84041 | /* End of cleaning variable n */ | |||
| 84042 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 84043 | } /*if (f2py_success) of ldab*/ | |||
| 84044 | /* End of cleaning variable ldab */ | |||
| 84045 | /* End of cleaning variable info */ | |||
| 84046 | /* End of cleaning variable m */ | |||
| 84047 | } /*if (f2py_success) of abstol*/ | |||
| 84048 | /* End of cleaning variable abstol */ | |||
| 84049 | } /*if (f2py_success) of vu*/ | |||
| 84050 | /* End of cleaning variable vu */ | |||
| 84051 | } /*if (f2py_success) of vl*/ | |||
| 84052 | /* End of cleaning variable vl */ | |||
| 84053 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 84054 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 84055 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 84056 | /* End of cleaning variable ab */ | |||
| 84057 | } /*CHECKSCALAR(range==2||range==1||range==0)*/ | |||
| 84058 | } /*if (f2py_success) of range*/ | |||
| 84059 | /* End of cleaning variable range */ | |||
| 84060 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 84061 | } /*if (f2py_success) of lower*/ | |||
| 84062 | /* End of cleaning variable lower */ | |||
| 84063 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 84064 | } /*if (f2py_success) of compute_v*/ | |||
| 84065 | /* End of cleaning variable compute_v */ | |||
| 84066 | /*end of cleanupfrompyobj*/ | |||
| 84067 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 84068 | /*routdebugfailure*/ | |||
| 84069 | } else { | |||
| 84070 | /*routdebugleave*/ | |||
| 84071 | } | |||
| 84072 | CFUNCSMESS("Freeing memory.\n"); | |||
| 84073 | /*freemem*/ | |||
| 84074 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84075 | f2py_stop_clock(); | |||
| 84076 | #endif | |||
| 84077 | return capi_buildvalue; | |||
| 84078 | } | |||
| 84079 | /******************************* end of chbevx *******************************/ | |||
| 84080 | ||||
| 84081 | /*********************************** zhbevx ***********************************/ | |||
| 84082 | static char doc_f2py_rout__flapack_zhbevx[] = "\ | |||
| 84083 | w,z,m,ifail,info = zhbevx(ab,vl,vu,il,iu,[ldab,compute_v,range,lower,abstol,mmax,overwrite_ab])\n\nWrapper for ``zhbevx``.\ | |||
| 84084 | \n\nParameters\n----------\n" | |||
| 84085 | "ab : input rank-2 array('D') with bounds (ldab,n)\n" | |||
| 84086 | "vl : input float\n" | |||
| 84087 | "vu : input float\n" | |||
| 84088 | "il : input int\n" | |||
| 84089 | "iu : input int\n" | |||
| 84090 | "\nOther Parameters\n----------------\n" | |||
| 84091 | "overwrite_ab : input int, optional\n Default: 1\n" | |||
| 84092 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 84093 | "compute_v : input int, optional\n Default: 1\n" | |||
| 84094 | "range : input int, optional\n Default: 0\n" | |||
| 84095 | "lower : input int, optional\n Default: 0\n" | |||
| 84096 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 84097 | "mmax : input int, optional\n Default: (compute_v?(range==2?(iu-il+1):n):1)\n" | |||
| 84098 | "\nReturns\n-------\n" | |||
| 84099 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 84100 | "z : rank-2 array('D') with bounds (ldz,mmax)\n" | |||
| 84101 | "m : int\n" | |||
| 84102 | "ifail : rank-1 array('i') with bounds ((compute_v?n:1))\n" | |||
| 84103 | "info : int"; | |||
| 84104 | /* extern void F_FUNC(zhbevx,ZHBEVX)(char*,char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 84105 | static PyObject *f2py_rout__flapack_zhbevx(const PyObject *capi_self, | |||
| 84106 | PyObject *capi_args, | |||
| 84107 | PyObject *capi_keywds, | |||
| 84108 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 84109 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 84110 | volatile int f2py_success = 1; | |||
| 84111 | /*decl*/ | |||
| 84112 | ||||
| 84113 | complex_double *ab = NULL((void*)0); | |||
| 84114 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 84115 | const int ab_Rank = 2; | |||
| 84116 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 84117 | int capi_ab_intent = 0; | |||
| 84118 | int capi_overwrite_ab = 1; | |||
| 84119 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 84120 | int ldab = 0; | |||
| 84121 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 84122 | int compute_v = 0; | |||
| 84123 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 84124 | int range = 0; | |||
| 84125 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 84126 | int lower = 0; | |||
| 84127 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 84128 | int n = 0; | |||
| 84129 | int kd = 0; | |||
| 84130 | complex_double *q = NULL((void*)0); | |||
| 84131 | npy_intp q_Dims[2] = {-1, -1}; | |||
| 84132 | const int q_Rank = 2; | |||
| 84133 | PyArrayObject *capi_q_tmp = NULL((void*)0); | |||
| 84134 | int capi_q_intent = 0; | |||
| 84135 | int ldq = 0; | |||
| 84136 | double vl = 0; | |||
| 84137 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 84138 | double vu = 0; | |||
| 84139 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 84140 | int il = 0; | |||
| 84141 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 84142 | int iu = 0; | |||
| 84143 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 84144 | double abstol = 0; | |||
| 84145 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 84146 | double *w = NULL((void*)0); | |||
| 84147 | npy_intp w_Dims[1] = {-1}; | |||
| 84148 | const int w_Rank = 1; | |||
| 84149 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 84150 | int capi_w_intent = 0; | |||
| 84151 | complex_double *z = NULL((void*)0); | |||
| 84152 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 84153 | const int z_Rank = 2; | |||
| 84154 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 84155 | int capi_z_intent = 0; | |||
| 84156 | int m = 0; | |||
| 84157 | int mmax = 0; | |||
| 84158 | PyObject *mmax_capi = Py_None(&_Py_NoneStruct); | |||
| 84159 | int ldz = 0; | |||
| 84160 | complex_double *work = NULL((void*)0); | |||
| 84161 | npy_intp work_Dims[1] = {-1}; | |||
| 84162 | const int work_Rank = 1; | |||
| 84163 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 84164 | int capi_work_intent = 0; | |||
| 84165 | double *rwork = NULL((void*)0); | |||
| 84166 | npy_intp rwork_Dims[1] = {-1}; | |||
| 84167 | const int rwork_Rank = 1; | |||
| 84168 | PyArrayObject *capi_rwork_tmp = NULL((void*)0); | |||
| 84169 | int capi_rwork_intent = 0; | |||
| 84170 | int *iwork = NULL((void*)0); | |||
| 84171 | npy_intp iwork_Dims[1] = {-1}; | |||
| 84172 | const int iwork_Rank = 1; | |||
| 84173 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 84174 | int capi_iwork_intent = 0; | |||
| 84175 | int *ifail = NULL((void*)0); | |||
| 84176 | npy_intp ifail_Dims[1] = {-1}; | |||
| 84177 | const int ifail_Rank = 1; | |||
| 84178 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 84179 | int capi_ifail_intent = 0; | |||
| 84180 | int info = 0; | |||
| 84181 | static char *capi_kwlist[] = {"ab","vl","vu","il","iu","ldab","compute_v","range","lower","abstol","mmax","overwrite_ab",NULL((void*)0)}; | |||
| 84182 | ||||
| 84183 | /*routdebugenter*/ | |||
| 84184 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84185 | f2py_start_clock(); | |||
| 84186 | #endif | |||
| 84187 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 84188 | "OOOOO|OOOOOOi:_flapack.zhbevx",\ | |||
| 84189 | capi_kwlist,&ab_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&ldab_capi,&compute_v_capi,&range_capi,&lower_capi,&abstol_capi,&mmax_capi,&capi_overwrite_ab)) | |||
| 84190 | return NULL((void*)0); | |||
| 84191 | /*frompyobj*/ | |||
| 84192 | /* Processing variable compute_v */ | |||
| 84193 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 84194 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zhbevx() 2nd keyword (compute_v) can't be converted to int"); | |||
| 84195 | if (f2py_success) { | |||
| 84196 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","2nd keyword compute_v","zhbevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhbevx:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""2nd keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 84197 | /* Processing variable lower */ | |||
| 84198 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 84199 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhbevx() 4th keyword (lower) can't be converted to int"); | |||
| 84200 | if (f2py_success) { | |||
| 84201 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","4th keyword lower","zhbevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhbevx:lower=%d", "(""lower==0||lower==1"") failed for " "4th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 84202 | /* Processing variable range */ | |||
| 84203 | if (range_capi == Py_None(&_Py_NoneStruct)) range = 0; else | |||
| 84204 | f2py_success = int_from_pyobj(&range,range_capi,"_flapack.zhbevx() 3rd keyword (range) can't be converted to int"); | |||
| 84205 | if (f2py_success) { | |||
| 84206 | CHECKSCALAR(range==2||range==1||range==0,"range==2||range==1||range==0","3rd keyword range","zhbevx:range=%d",range)if (!(range==2||range==1||range==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhbevx:range=%d", "(""range==2||range==1||range==0" ") failed for ""3rd keyword range", range); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 84207 | /* Processing variable ab */ | |||
| 84208 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 84209 | ; | |||
| 84210 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 84211 | capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 84212 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 84213 | if (!PyErr_Occurred()) | |||
| 84214 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zhbevx to C/Fortran array" ); | |||
| 84215 | } else { | |||
| 84216 | ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 84217 | ||||
| 84218 | /* Processing variable vl */ | |||
| 84219 | f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.zhbevx() 2nd argument (vl) can't be converted to double"); | |||
| 84220 | if (f2py_success) { | |||
| 84221 | /* Processing variable vu */ | |||
| 84222 | f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.zhbevx() 3rd argument (vu) can't be converted to double"); | |||
| 84223 | if (f2py_success) { | |||
| 84224 | /* Processing variable abstol */ | |||
| 84225 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 84226 | f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.zhbevx() 5th keyword (abstol) can't be converted to double"); | |||
| 84227 | if (f2py_success) { | |||
| 84228 | /* Processing variable m */ | |||
| 84229 | /* Processing variable info */ | |||
| 84230 | /* Processing variable ldab */ | |||
| 84231 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 84232 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zhbevx() 1st keyword (ldab) can't be converted to int"); | |||
| 84233 | if (f2py_success) { | |||
| 84234 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","1st keyword ldab","zhbevx:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhbevx:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "1st keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 84235 | /* Processing variable n */ | |||
| 84236 | n = shape(ab,1)ab_Dims[1]; | |||
| 84237 | /* Processing variable kd */ | |||
| 84238 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 84239 | /* Processing variable ldq */ | |||
| 84240 | ldq = (compute_v?n:1); | |||
| 84241 | /* Processing variable q */ | |||
| 84242 | q_Dims[0]=ldq,q_Dims[1]=ldq; | |||
| 84243 | capi_q_intent |= F2PY_INTENT_HIDE8; | |||
| 84244 | capi_q_tmp = array_from_pyobj(NPY_CDOUBLE,q_Dims,q_Rank,capi_q_intent,Py_None(&_Py_NoneStruct)); | |||
| 84245 | if (capi_q_tmp == NULL((void*)0)) { | |||
| 84246 | if (!PyErr_Occurred()) | |||
| 84247 | PyErr_SetString(_flapack_error,"failed in converting hidden `q' of _flapack.zhbevx to C/Fortran array" ); | |||
| 84248 | } else { | |||
| 84249 | q = (complex_double *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data)); | |||
| 84250 | ||||
| 84251 | /* Processing variable il */ | |||
| 84252 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.zhbevx() 4th argument (il) can't be converted to int"); | |||
| 84253 | if (f2py_success) { | |||
| 84254 | CHECKSCALAR((il>=1 && il<=n),"(il>=1 && il<=n)","4th argument il","zhbevx:il=%d",il)if (!((il>=1 && il<=n))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zhbevx:il=%d", "(""(il>=1 && il<=n)" ") failed for ""4th argument il", il); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 84255 | /* Processing variable iu */ | |||
| 84256 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.zhbevx() 5th argument (iu) can't be converted to int"); | |||
| 84257 | if (f2py_success) { | |||
| 84258 | CHECKSCALAR((iu>=1 && iu<=n && iu>=il),"(iu>=1 && iu<=n && iu>=il)","5th argument iu","zhbevx:iu=%d",iu)if (!((iu>=1 && iu<=n && iu>=il))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zhbevx:iu=%d" , "(""(iu>=1 && iu<=n && iu>=il)"") failed for " "5th argument iu", iu); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 84259 | /* Processing variable w */ | |||
| 84260 | w_Dims[0]=n; | |||
| 84261 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 84262 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 84263 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 84264 | if (!PyErr_Occurred()) | |||
| 84265 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zhbevx to C/Fortran array" ); | |||
| 84266 | } else { | |||
| 84267 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 84268 | ||||
| 84269 | /* Processing variable ldz */ | |||
| 84270 | ldz = (compute_v?n:1); | |||
| 84271 | /* Processing variable mmax */ | |||
| 84272 | if (mmax_capi == Py_None(&_Py_NoneStruct)) mmax = (compute_v?(range==2?(iu-il+1):n):1); else | |||
| 84273 | f2py_success = int_from_pyobj(&mmax,mmax_capi,"_flapack.zhbevx() 6th keyword (mmax) can't be converted to int"); | |||
| 84274 | if (f2py_success) { | |||
| 84275 | /* Processing variable work */ | |||
| 84276 | work_Dims[0]=n; | |||
| 84277 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 84278 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 84279 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 84280 | if (!PyErr_Occurred()) | |||
| 84281 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhbevx to C/Fortran array" ); | |||
| 84282 | } else { | |||
| 84283 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 84284 | ||||
| 84285 | /* Processing variable rwork */ | |||
| 84286 | rwork_Dims[0]=7 * n; | |||
| 84287 | capi_rwork_intent |= F2PY_INTENT_HIDE8; | |||
| 84288 | capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 84289 | if (capi_rwork_tmp == NULL((void*)0)) { | |||
| 84290 | if (!PyErr_Occurred()) | |||
| 84291 | PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zhbevx to C/Fortran array" ); | |||
| 84292 | } else { | |||
| 84293 | rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data)); | |||
| 84294 | ||||
| 84295 | /* Processing variable iwork */ | |||
| 84296 | iwork_Dims[0]=5 * n; | |||
| 84297 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 84298 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 84299 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 84300 | if (!PyErr_Occurred()) | |||
| 84301 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zhbevx to C/Fortran array" ); | |||
| 84302 | } else { | |||
| 84303 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 84304 | ||||
| 84305 | /* Processing variable ifail */ | |||
| 84306 | ifail_Dims[0]=(compute_v?n:1); | |||
| 84307 | capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 84308 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 84309 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 84310 | if (!PyErr_Occurred()) | |||
| 84311 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.zhbevx to C/Fortran array" ); | |||
| 84312 | } else { | |||
| 84313 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 84314 | ||||
| 84315 | /* Processing variable z */ | |||
| 84316 | z_Dims[0]=ldz,z_Dims[1]=mmax; | |||
| 84317 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 84318 | capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 84319 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 84320 | if (!PyErr_Occurred()) | |||
| 84321 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.zhbevx to C/Fortran array" ); | |||
| 84322 | } else { | |||
| 84323 | z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 84324 | ||||
| 84325 | /*end of frompyobj*/ | |||
| 84326 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84327 | f2py_start_call_clock(); | |||
| 84328 | #endif | |||
| 84329 | /*callfortranroutine*/ | |||
| 84330 | (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),(lower?"L":"U"),&n,&kd,ab,&ldab,q,&ldq,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,rwork,iwork,ifail,&info) ; | |||
| 84331 | /*(*f2py_func)(ab,&ldab,&compute_v,&range,&lower,&n,&kd,q,&ldq,&vl,&vu,&il,&iu,&abstol,w,z,&m,&mmax,&ldz,work,rwork,iwork,ifail,&info);*/ | |||
| 84332 | if (PyErr_Occurred()) | |||
| 84333 | f2py_success = 0; | |||
| 84334 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84335 | f2py_stop_call_clock(); | |||
| 84336 | #endif | |||
| 84337 | /*end of callfortranroutine*/ | |||
| 84338 | if (f2py_success) { | |||
| 84339 | /*pyobjfrom*/ | |||
| 84340 | /*end of pyobjfrom*/ | |||
| 84341 | CFUNCSMESS("Building return value.\n"); | |||
| 84342 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info); | |||
| 84343 | /*closepyobjfrom*/ | |||
| 84344 | /*end of closepyobjfrom*/ | |||
| 84345 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 84346 | /*cleanupfrompyobj*/ | |||
| 84347 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 84348 | /* End of cleaning variable z */ | |||
| 84349 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 84350 | /* End of cleaning variable ifail */ | |||
| 84351 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 84352 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 84353 | /* End of cleaning variable iwork */ | |||
| 84354 | Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp))); | |||
| 84355 | } /*if (capi_rwork_tmp == NULL) ... else of rwork*/ | |||
| 84356 | /* End of cleaning variable rwork */ | |||
| 84357 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 84358 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 84359 | /* End of cleaning variable work */ | |||
| 84360 | } /*if (f2py_success) of mmax*/ | |||
| 84361 | /* End of cleaning variable mmax */ | |||
| 84362 | /* End of cleaning variable ldz */ | |||
| 84363 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 84364 | /* End of cleaning variable w */ | |||
| 84365 | } /*CHECKSCALAR((iu>=1 && iu<=n && iu>=il))*/ | |||
| 84366 | } /*if (f2py_success) of iu*/ | |||
| 84367 | /* End of cleaning variable iu */ | |||
| 84368 | } /*CHECKSCALAR((il>=1 && il<=n))*/ | |||
| 84369 | } /*if (f2py_success) of il*/ | |||
| 84370 | /* End of cleaning variable il */ | |||
| 84371 | Py_XDECREF(capi_q_tmp)_Py_XDECREF(((PyObject*)(capi_q_tmp))); | |||
| 84372 | } /*if (capi_q_tmp == NULL) ... else of q*/ | |||
| 84373 | /* End of cleaning variable q */ | |||
| 84374 | /* End of cleaning variable ldq */ | |||
| 84375 | /* End of cleaning variable kd */ | |||
| 84376 | /* End of cleaning variable n */ | |||
| 84377 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 84378 | } /*if (f2py_success) of ldab*/ | |||
| 84379 | /* End of cleaning variable ldab */ | |||
| 84380 | /* End of cleaning variable info */ | |||
| 84381 | /* End of cleaning variable m */ | |||
| 84382 | } /*if (f2py_success) of abstol*/ | |||
| 84383 | /* End of cleaning variable abstol */ | |||
| 84384 | } /*if (f2py_success) of vu*/ | |||
| 84385 | /* End of cleaning variable vu */ | |||
| 84386 | } /*if (f2py_success) of vl*/ | |||
| 84387 | /* End of cleaning variable vl */ | |||
| 84388 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 84389 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 84390 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 84391 | /* End of cleaning variable ab */ | |||
| 84392 | } /*CHECKSCALAR(range==2||range==1||range==0)*/ | |||
| 84393 | } /*if (f2py_success) of range*/ | |||
| 84394 | /* End of cleaning variable range */ | |||
| 84395 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 84396 | } /*if (f2py_success) of lower*/ | |||
| 84397 | /* End of cleaning variable lower */ | |||
| 84398 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 84399 | } /*if (f2py_success) of compute_v*/ | |||
| 84400 | /* End of cleaning variable compute_v */ | |||
| 84401 | /*end of cleanupfrompyobj*/ | |||
| 84402 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 84403 | /*routdebugfailure*/ | |||
| 84404 | } else { | |||
| 84405 | /*routdebugleave*/ | |||
| 84406 | } | |||
| 84407 | CFUNCSMESS("Freeing memory.\n"); | |||
| 84408 | /*freemem*/ | |||
| 84409 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84410 | f2py_stop_clock(); | |||
| 84411 | #endif | |||
| 84412 | return capi_buildvalue; | |||
| 84413 | } | |||
| 84414 | /******************************* end of zhbevx *******************************/ | |||
| 84415 | ||||
| 84416 | /*********************************** sgglse ***********************************/ | |||
| 84417 | static char doc_f2py_rout__flapack_sgglse[] = "\ | |||
| 84418 | t,r,res,x,info = sgglse(a,b,c,d,[lwork,overwrite_a,overwrite_b,overwrite_c,overwrite_d])\n\nWrapper for ``sgglse``.\ | |||
| 84419 | \n\nParameters\n----------\n" | |||
| 84420 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 84421 | "b : input rank-2 array('f') with bounds (p,n)\n" | |||
| 84422 | "c : input rank-1 array('f') with bounds (m)\n" | |||
| 84423 | "d : input rank-1 array('f') with bounds (p)\n" | |||
| 84424 | "\nOther Parameters\n----------------\n" | |||
| 84425 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 84426 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 84427 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 84428 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 84429 | "lwork : input int, optional\n Default: max(m+n+p,1)\n" | |||
| 84430 | "\nReturns\n-------\n" | |||
| 84431 | "t : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 84432 | "r : rank-2 array('f') with bounds (p,n) and b storage\n" | |||
| 84433 | "res : rank-1 array('f') with bounds (m) and c storage\n" | |||
| 84434 | "x : rank-1 array('f') with bounds (n)\n" | |||
| 84435 | "info : int"; | |||
| 84436 | /* extern void F_FUNC(sgglse,SGGLSE)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */ | |||
| 84437 | static PyObject *f2py_rout__flapack_sgglse(const PyObject *capi_self, | |||
| 84438 | PyObject *capi_args, | |||
| 84439 | PyObject *capi_keywds, | |||
| 84440 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 84441 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 84442 | volatile int f2py_success = 1; | |||
| 84443 | /*decl*/ | |||
| 84444 | ||||
| 84445 | int m = 0; | |||
| 84446 | int n = 0; | |||
| 84447 | int p = 0; | |||
| 84448 | float *a = NULL((void*)0); | |||
| 84449 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 84450 | const int a_Rank = 2; | |||
| 84451 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 84452 | int capi_a_intent = 0; | |||
| 84453 | int capi_overwrite_a = 0; | |||
| 84454 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 84455 | int lda = 0; | |||
| 84456 | float *b = NULL((void*)0); | |||
| 84457 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 84458 | const int b_Rank = 2; | |||
| 84459 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 84460 | int capi_b_intent = 0; | |||
| 84461 | int capi_overwrite_b = 0; | |||
| 84462 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 84463 | int ldb = 0; | |||
| 84464 | float *c = NULL((void*)0); | |||
| 84465 | npy_intp c_Dims[1] = {-1}; | |||
| 84466 | const int c_Rank = 1; | |||
| 84467 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 84468 | int capi_c_intent = 0; | |||
| 84469 | int capi_overwrite_c = 0; | |||
| 84470 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 84471 | float *d = NULL((void*)0); | |||
| 84472 | npy_intp d_Dims[1] = {-1}; | |||
| 84473 | const int d_Rank = 1; | |||
| 84474 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 84475 | int capi_d_intent = 0; | |||
| 84476 | int capi_overwrite_d = 0; | |||
| 84477 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 84478 | float *x = NULL((void*)0); | |||
| 84479 | npy_intp x_Dims[1] = {-1}; | |||
| 84480 | const int x_Rank = 1; | |||
| 84481 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 84482 | int capi_x_intent = 0; | |||
| 84483 | float *work = NULL((void*)0); | |||
| 84484 | npy_intp work_Dims[1] = {-1}; | |||
| 84485 | const int work_Rank = 1; | |||
| 84486 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 84487 | int capi_work_intent = 0; | |||
| 84488 | int lwork = 0; | |||
| 84489 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 84490 | int info = 0; | |||
| 84491 | static char *capi_kwlist[] = {"a","b","c","d","lwork","overwrite_a","overwrite_b","overwrite_c","overwrite_d",NULL((void*)0)}; | |||
| 84492 | ||||
| 84493 | /*routdebugenter*/ | |||
| 84494 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84495 | f2py_start_clock(); | |||
| 84496 | #endif | |||
| 84497 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 84498 | "OOOO|Oiiii:_flapack.sgglse",\ | |||
| 84499 | capi_kwlist,&a_capi,&b_capi,&c_capi,&d_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_c,&capi_overwrite_d)) | |||
| 84500 | return NULL((void*)0); | |||
| 84501 | /*frompyobj*/ | |||
| 84502 | /* Processing variable info */ | |||
| 84503 | /* Processing variable a */ | |||
| 84504 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 84505 | ; | |||
| 84506 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 84507 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 84508 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 84509 | if (!PyErr_Occurred()) | |||
| 84510 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgglse to C/Fortran array" ); | |||
| 84511 | } else { | |||
| 84512 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 84513 | ||||
| 84514 | /* Processing variable m */ | |||
| 84515 | m = shape(a,0)a_Dims[0]; | |||
| 84516 | CHECKSCALAR(m>=0,"m>=0","hidden m","sgglse:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgglse:m=%d", "(""m>=0"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 84517 | /* Processing variable n */ | |||
| 84518 | n = shape(a,1)a_Dims[1]; | |||
| 84519 | CHECKSCALAR(n>=0,"n>=0","hidden n","sgglse:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgglse:n=%d", "(""n>=0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 84520 | /* Processing variable lda */ | |||
| 84521 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 84522 | /* Processing variable b */ | |||
| 84523 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 84524 | b_Dims[1]=n; | |||
| 84525 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 84526 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 84527 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 84528 | if (!PyErr_Occurred()) | |||
| 84529 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgglse to C/Fortran array" ); | |||
| 84530 | } else { | |||
| 84531 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 84532 | ||||
| 84533 | /* Processing variable ldb */ | |||
| 84534 | ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 84535 | /* Processing variable p */ | |||
| 84536 | p = shape(b,0)b_Dims[0]; | |||
| 84537 | CHECKSCALAR((p>=n-m)&&(p>=0),"(p>=n-m)&&(p>=0)","hidden p","sgglse:p=%d",p)if (!((p>=n-m)&&(p>=0))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgglse:p=%d", "(""(p>=n-m)&&(p>=0)" ") failed for ""hidden p", p); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 84538 | /* Processing variable c */ | |||
| 84539 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 84540 | c_Dims[0]=m; | |||
| 84541 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 84542 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 84543 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 84544 | if (!PyErr_Occurred()) | |||
| 84545 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.sgglse to C/Fortran array" ); | |||
| 84546 | } else { | |||
| 84547 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 84548 | ||||
| 84549 | /* Processing variable d */ | |||
| 84550 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 84551 | d_Dims[0]=p; | |||
| 84552 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 84553 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 84554 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 84555 | if (!PyErr_Occurred()) | |||
| 84556 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `d' of _flapack.sgglse to C/Fortran array" ); | |||
| 84557 | } else { | |||
| 84558 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 84559 | ||||
| 84560 | /* Processing variable x */ | |||
| 84561 | x_Dims[0]=n; | |||
| 84562 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 84563 | capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 84564 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 84565 | if (!PyErr_Occurred()) | |||
| 84566 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.sgglse to C/Fortran array" ); | |||
| 84567 | } else { | |||
| 84568 | x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 84569 | ||||
| 84570 | /* Processing variable lwork */ | |||
| 84571 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(m+n+p,1)((m+n+p > 1) ? (m+n+p) : (1)); else | |||
| 84572 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgglse() 1st keyword (lwork) can't be converted to int"); | |||
| 84573 | if (f2py_success) { | |||
| 84574 | CHECKSCALAR((lwork==-1)||(lwork>=1),"(lwork==-1)||(lwork>=1)","1st keyword lwork","sgglse:lwork=%d",lwork)if (!((lwork==-1)||(lwork>=1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgglse:lwork=%d", "(""(lwork==-1)||(lwork>=1)"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 84575 | /* Processing variable work */ | |||
| 84576 | work_Dims[0]=lwork; | |||
| 84577 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 84578 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 84579 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 84580 | if (!PyErr_Occurred()) | |||
| 84581 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgglse to C/Fortran array" ); | |||
| 84582 | } else { | |||
| 84583 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 84584 | ||||
| 84585 | /*end of frompyobj*/ | |||
| 84586 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84587 | f2py_start_call_clock(); | |||
| 84588 | #endif | |||
| 84589 | /*callfortranroutine*/ | |||
| 84590 | (*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info) ; | |||
| 84591 | /*(*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info);*/ | |||
| 84592 | if (PyErr_Occurred()) | |||
| 84593 | f2py_success = 0; | |||
| 84594 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84595 | f2py_stop_call_clock(); | |||
| 84596 | #endif | |||
| 84597 | /*end of callfortranroutine*/ | |||
| 84598 | if (f2py_success) { | |||
| 84599 | /*pyobjfrom*/ | |||
| 84600 | /*end of pyobjfrom*/ | |||
| 84601 | CFUNCSMESS("Building return value.\n"); | |||
| 84602 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_b_tmp,capi_c_tmp,capi_x_tmp,info); | |||
| 84603 | /*closepyobjfrom*/ | |||
| 84604 | /*end of closepyobjfrom*/ | |||
| 84605 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 84606 | /*cleanupfrompyobj*/ | |||
| 84607 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 84608 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 84609 | /* End of cleaning variable work */ | |||
| 84610 | } /*CHECKSCALAR((lwork==-1)||(lwork>=1))*/ | |||
| 84611 | } /*if (f2py_success) of lwork*/ | |||
| 84612 | /* End of cleaning variable lwork */ | |||
| 84613 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 84614 | /* End of cleaning variable x */ | |||
| 84615 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 84616 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 84617 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 84618 | /* End of cleaning variable d */ | |||
| 84619 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 84620 | /* End of cleaning variable c */ | |||
| 84621 | } /*CHECKSCALAR((p>=n-m)&&(p>=0))*/ | |||
| 84622 | /* End of cleaning variable p */ | |||
| 84623 | /* End of cleaning variable ldb */ | |||
| 84624 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 84625 | /* End of cleaning variable b */ | |||
| 84626 | /* End of cleaning variable lda */ | |||
| 84627 | } /*CHECKSCALAR(n>=0)*/ | |||
| 84628 | /* End of cleaning variable n */ | |||
| 84629 | } /*CHECKSCALAR(m>=0)*/ | |||
| 84630 | /* End of cleaning variable m */ | |||
| 84631 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 84632 | /* End of cleaning variable a */ | |||
| 84633 | /* End of cleaning variable info */ | |||
| 84634 | /*end of cleanupfrompyobj*/ | |||
| 84635 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 84636 | /*routdebugfailure*/ | |||
| 84637 | } else { | |||
| 84638 | /*routdebugleave*/ | |||
| 84639 | } | |||
| 84640 | CFUNCSMESS("Freeing memory.\n"); | |||
| 84641 | /*freemem*/ | |||
| 84642 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84643 | f2py_stop_clock(); | |||
| 84644 | #endif | |||
| 84645 | return capi_buildvalue; | |||
| 84646 | } | |||
| 84647 | /******************************* end of sgglse *******************************/ | |||
| 84648 | ||||
| 84649 | /*********************************** dgglse ***********************************/ | |||
| 84650 | static char doc_f2py_rout__flapack_dgglse[] = "\ | |||
| 84651 | t,r,res,x,info = dgglse(a,b,c,d,[lwork,overwrite_a,overwrite_b,overwrite_c,overwrite_d])\n\nWrapper for ``dgglse``.\ | |||
| 84652 | \n\nParameters\n----------\n" | |||
| 84653 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 84654 | "b : input rank-2 array('d') with bounds (p,n)\n" | |||
| 84655 | "c : input rank-1 array('d') with bounds (m)\n" | |||
| 84656 | "d : input rank-1 array('d') with bounds (p)\n" | |||
| 84657 | "\nOther Parameters\n----------------\n" | |||
| 84658 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 84659 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 84660 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 84661 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 84662 | "lwork : input int, optional\n Default: max(m+n+p,1)\n" | |||
| 84663 | "\nReturns\n-------\n" | |||
| 84664 | "t : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 84665 | "r : rank-2 array('d') with bounds (p,n) and b storage\n" | |||
| 84666 | "res : rank-1 array('d') with bounds (m) and c storage\n" | |||
| 84667 | "x : rank-1 array('d') with bounds (n)\n" | |||
| 84668 | "info : int"; | |||
| 84669 | /* extern void F_FUNC(dgglse,DGGLSE)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */ | |||
| 84670 | static PyObject *f2py_rout__flapack_dgglse(const PyObject *capi_self, | |||
| 84671 | PyObject *capi_args, | |||
| 84672 | PyObject *capi_keywds, | |||
| 84673 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 84674 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 84675 | volatile int f2py_success = 1; | |||
| 84676 | /*decl*/ | |||
| 84677 | ||||
| 84678 | int m = 0; | |||
| 84679 | int n = 0; | |||
| 84680 | int p = 0; | |||
| 84681 | double *a = NULL((void*)0); | |||
| 84682 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 84683 | const int a_Rank = 2; | |||
| 84684 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 84685 | int capi_a_intent = 0; | |||
| 84686 | int capi_overwrite_a = 0; | |||
| 84687 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 84688 | int lda = 0; | |||
| 84689 | double *b = NULL((void*)0); | |||
| 84690 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 84691 | const int b_Rank = 2; | |||
| 84692 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 84693 | int capi_b_intent = 0; | |||
| 84694 | int capi_overwrite_b = 0; | |||
| 84695 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 84696 | int ldb = 0; | |||
| 84697 | double *c = NULL((void*)0); | |||
| 84698 | npy_intp c_Dims[1] = {-1}; | |||
| 84699 | const int c_Rank = 1; | |||
| 84700 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 84701 | int capi_c_intent = 0; | |||
| 84702 | int capi_overwrite_c = 0; | |||
| 84703 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 84704 | double *d = NULL((void*)0); | |||
| 84705 | npy_intp d_Dims[1] = {-1}; | |||
| 84706 | const int d_Rank = 1; | |||
| 84707 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 84708 | int capi_d_intent = 0; | |||
| 84709 | int capi_overwrite_d = 0; | |||
| 84710 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 84711 | double *x = NULL((void*)0); | |||
| 84712 | npy_intp x_Dims[1] = {-1}; | |||
| 84713 | const int x_Rank = 1; | |||
| 84714 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 84715 | int capi_x_intent = 0; | |||
| 84716 | double *work = NULL((void*)0); | |||
| 84717 | npy_intp work_Dims[1] = {-1}; | |||
| 84718 | const int work_Rank = 1; | |||
| 84719 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 84720 | int capi_work_intent = 0; | |||
| 84721 | int lwork = 0; | |||
| 84722 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 84723 | int info = 0; | |||
| 84724 | static char *capi_kwlist[] = {"a","b","c","d","lwork","overwrite_a","overwrite_b","overwrite_c","overwrite_d",NULL((void*)0)}; | |||
| 84725 | ||||
| 84726 | /*routdebugenter*/ | |||
| 84727 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84728 | f2py_start_clock(); | |||
| 84729 | #endif | |||
| 84730 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 84731 | "OOOO|Oiiii:_flapack.dgglse",\ | |||
| 84732 | capi_kwlist,&a_capi,&b_capi,&c_capi,&d_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_c,&capi_overwrite_d)) | |||
| 84733 | return NULL((void*)0); | |||
| 84734 | /*frompyobj*/ | |||
| 84735 | /* Processing variable info */ | |||
| 84736 | /* Processing variable a */ | |||
| 84737 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 84738 | ; | |||
| 84739 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 84740 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 84741 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 84742 | if (!PyErr_Occurred()) | |||
| 84743 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgglse to C/Fortran array" ); | |||
| 84744 | } else { | |||
| 84745 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 84746 | ||||
| 84747 | /* Processing variable m */ | |||
| 84748 | m = shape(a,0)a_Dims[0]; | |||
| 84749 | CHECKSCALAR(m>=0,"m>=0","hidden m","dgglse:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgglse:m=%d", "(""m>=0"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 84750 | /* Processing variable n */ | |||
| 84751 | n = shape(a,1)a_Dims[1]; | |||
| 84752 | CHECKSCALAR(n>=0,"n>=0","hidden n","dgglse:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgglse:n=%d", "(""n>=0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 84753 | /* Processing variable lda */ | |||
| 84754 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 84755 | /* Processing variable b */ | |||
| 84756 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 84757 | b_Dims[1]=n; | |||
| 84758 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 84759 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 84760 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 84761 | if (!PyErr_Occurred()) | |||
| 84762 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgglse to C/Fortran array" ); | |||
| 84763 | } else { | |||
| 84764 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 84765 | ||||
| 84766 | /* Processing variable ldb */ | |||
| 84767 | ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 84768 | /* Processing variable p */ | |||
| 84769 | p = shape(b,0)b_Dims[0]; | |||
| 84770 | CHECKSCALAR((p>=n-m)&&(p>=0),"(p>=n-m)&&(p>=0)","hidden p","dgglse:p=%d",p)if (!((p>=n-m)&&(p>=0))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgglse:p=%d", "(""(p>=n-m)&&(p>=0)" ") failed for ""hidden p", p); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 84771 | /* Processing variable c */ | |||
| 84772 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 84773 | c_Dims[0]=m; | |||
| 84774 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 84775 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 84776 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 84777 | if (!PyErr_Occurred()) | |||
| 84778 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.dgglse to C/Fortran array" ); | |||
| 84779 | } else { | |||
| 84780 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 84781 | ||||
| 84782 | /* Processing variable d */ | |||
| 84783 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 84784 | d_Dims[0]=p; | |||
| 84785 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 84786 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 84787 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 84788 | if (!PyErr_Occurred()) | |||
| 84789 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `d' of _flapack.dgglse to C/Fortran array" ); | |||
| 84790 | } else { | |||
| 84791 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 84792 | ||||
| 84793 | /* Processing variable x */ | |||
| 84794 | x_Dims[0]=n; | |||
| 84795 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 84796 | capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 84797 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 84798 | if (!PyErr_Occurred()) | |||
| 84799 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.dgglse to C/Fortran array" ); | |||
| 84800 | } else { | |||
| 84801 | x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 84802 | ||||
| 84803 | /* Processing variable lwork */ | |||
| 84804 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(m+n+p,1)((m+n+p > 1) ? (m+n+p) : (1)); else | |||
| 84805 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgglse() 1st keyword (lwork) can't be converted to int"); | |||
| 84806 | if (f2py_success) { | |||
| 84807 | CHECKSCALAR((lwork==-1)||(lwork>=1),"(lwork==-1)||(lwork>=1)","1st keyword lwork","dgglse:lwork=%d",lwork)if (!((lwork==-1)||(lwork>=1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgglse:lwork=%d", "(""(lwork==-1)||(lwork>=1)"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 84808 | /* Processing variable work */ | |||
| 84809 | work_Dims[0]=lwork; | |||
| 84810 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 84811 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 84812 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 84813 | if (!PyErr_Occurred()) | |||
| 84814 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgglse to C/Fortran array" ); | |||
| 84815 | } else { | |||
| 84816 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 84817 | ||||
| 84818 | /*end of frompyobj*/ | |||
| 84819 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84820 | f2py_start_call_clock(); | |||
| 84821 | #endif | |||
| 84822 | /*callfortranroutine*/ | |||
| 84823 | (*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info) ; | |||
| 84824 | /*(*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info);*/ | |||
| 84825 | if (PyErr_Occurred()) | |||
| 84826 | f2py_success = 0; | |||
| 84827 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84828 | f2py_stop_call_clock(); | |||
| 84829 | #endif | |||
| 84830 | /*end of callfortranroutine*/ | |||
| 84831 | if (f2py_success) { | |||
| 84832 | /*pyobjfrom*/ | |||
| 84833 | /*end of pyobjfrom*/ | |||
| 84834 | CFUNCSMESS("Building return value.\n"); | |||
| 84835 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_b_tmp,capi_c_tmp,capi_x_tmp,info); | |||
| 84836 | /*closepyobjfrom*/ | |||
| 84837 | /*end of closepyobjfrom*/ | |||
| 84838 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 84839 | /*cleanupfrompyobj*/ | |||
| 84840 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 84841 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 84842 | /* End of cleaning variable work */ | |||
| 84843 | } /*CHECKSCALAR((lwork==-1)||(lwork>=1))*/ | |||
| 84844 | } /*if (f2py_success) of lwork*/ | |||
| 84845 | /* End of cleaning variable lwork */ | |||
| 84846 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 84847 | /* End of cleaning variable x */ | |||
| 84848 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 84849 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 84850 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 84851 | /* End of cleaning variable d */ | |||
| 84852 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 84853 | /* End of cleaning variable c */ | |||
| 84854 | } /*CHECKSCALAR((p>=n-m)&&(p>=0))*/ | |||
| 84855 | /* End of cleaning variable p */ | |||
| 84856 | /* End of cleaning variable ldb */ | |||
| 84857 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 84858 | /* End of cleaning variable b */ | |||
| 84859 | /* End of cleaning variable lda */ | |||
| 84860 | } /*CHECKSCALAR(n>=0)*/ | |||
| 84861 | /* End of cleaning variable n */ | |||
| 84862 | } /*CHECKSCALAR(m>=0)*/ | |||
| 84863 | /* End of cleaning variable m */ | |||
| 84864 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 84865 | /* End of cleaning variable a */ | |||
| 84866 | /* End of cleaning variable info */ | |||
| 84867 | /*end of cleanupfrompyobj*/ | |||
| 84868 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 84869 | /*routdebugfailure*/ | |||
| 84870 | } else { | |||
| 84871 | /*routdebugleave*/ | |||
| 84872 | } | |||
| 84873 | CFUNCSMESS("Freeing memory.\n"); | |||
| 84874 | /*freemem*/ | |||
| 84875 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84876 | f2py_stop_clock(); | |||
| 84877 | #endif | |||
| 84878 | return capi_buildvalue; | |||
| 84879 | } | |||
| 84880 | /******************************* end of dgglse *******************************/ | |||
| 84881 | ||||
| 84882 | /*********************************** cgglse ***********************************/ | |||
| 84883 | static char doc_f2py_rout__flapack_cgglse[] = "\ | |||
| 84884 | t,r,res,x,info = cgglse(a,b,c,d,[lwork,overwrite_a,overwrite_b,overwrite_c,overwrite_d])\n\nWrapper for ``cgglse``.\ | |||
| 84885 | \n\nParameters\n----------\n" | |||
| 84886 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 84887 | "b : input rank-2 array('F') with bounds (p,n)\n" | |||
| 84888 | "c : input rank-1 array('F') with bounds (m)\n" | |||
| 84889 | "d : input rank-1 array('F') with bounds (p)\n" | |||
| 84890 | "\nOther Parameters\n----------------\n" | |||
| 84891 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 84892 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 84893 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 84894 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 84895 | "lwork : input int, optional\n Default: max(m+n+p,1)\n" | |||
| 84896 | "\nReturns\n-------\n" | |||
| 84897 | "t : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 84898 | "r : rank-2 array('F') with bounds (p,n) and b storage\n" | |||
| 84899 | "res : rank-1 array('F') with bounds (m) and c storage\n" | |||
| 84900 | "x : rank-1 array('F') with bounds (n)\n" | |||
| 84901 | "info : int"; | |||
| 84902 | /* extern void F_FUNC(cgglse,CGGLSE)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 84903 | static PyObject *f2py_rout__flapack_cgglse(const PyObject *capi_self, | |||
| 84904 | PyObject *capi_args, | |||
| 84905 | PyObject *capi_keywds, | |||
| 84906 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 84907 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 84908 | volatile int f2py_success = 1; | |||
| 84909 | /*decl*/ | |||
| 84910 | ||||
| 84911 | int m = 0; | |||
| 84912 | int n = 0; | |||
| 84913 | int p = 0; | |||
| 84914 | complex_float *a = NULL((void*)0); | |||
| 84915 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 84916 | const int a_Rank = 2; | |||
| 84917 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 84918 | int capi_a_intent = 0; | |||
| 84919 | int capi_overwrite_a = 0; | |||
| 84920 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 84921 | int lda = 0; | |||
| 84922 | complex_float *b = NULL((void*)0); | |||
| 84923 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 84924 | const int b_Rank = 2; | |||
| 84925 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 84926 | int capi_b_intent = 0; | |||
| 84927 | int capi_overwrite_b = 0; | |||
| 84928 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 84929 | int ldb = 0; | |||
| 84930 | complex_float *c = NULL((void*)0); | |||
| 84931 | npy_intp c_Dims[1] = {-1}; | |||
| 84932 | const int c_Rank = 1; | |||
| 84933 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 84934 | int capi_c_intent = 0; | |||
| 84935 | int capi_overwrite_c = 0; | |||
| 84936 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 84937 | complex_float *d = NULL((void*)0); | |||
| 84938 | npy_intp d_Dims[1] = {-1}; | |||
| 84939 | const int d_Rank = 1; | |||
| 84940 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 84941 | int capi_d_intent = 0; | |||
| 84942 | int capi_overwrite_d = 0; | |||
| 84943 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 84944 | complex_float *x = NULL((void*)0); | |||
| 84945 | npy_intp x_Dims[1] = {-1}; | |||
| 84946 | const int x_Rank = 1; | |||
| 84947 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 84948 | int capi_x_intent = 0; | |||
| 84949 | complex_float *work = NULL((void*)0); | |||
| 84950 | npy_intp work_Dims[1] = {-1}; | |||
| 84951 | const int work_Rank = 1; | |||
| 84952 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 84953 | int capi_work_intent = 0; | |||
| 84954 | int lwork = 0; | |||
| 84955 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 84956 | int info = 0; | |||
| 84957 | static char *capi_kwlist[] = {"a","b","c","d","lwork","overwrite_a","overwrite_b","overwrite_c","overwrite_d",NULL((void*)0)}; | |||
| 84958 | ||||
| 84959 | /*routdebugenter*/ | |||
| 84960 | #ifdef F2PY_REPORT_ATEXIT | |||
| 84961 | f2py_start_clock(); | |||
| 84962 | #endif | |||
| 84963 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 84964 | "OOOO|Oiiii:_flapack.cgglse",\ | |||
| 84965 | capi_kwlist,&a_capi,&b_capi,&c_capi,&d_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_c,&capi_overwrite_d)) | |||
| 84966 | return NULL((void*)0); | |||
| 84967 | /*frompyobj*/ | |||
| 84968 | /* Processing variable info */ | |||
| 84969 | /* Processing variable a */ | |||
| 84970 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 84971 | ; | |||
| 84972 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 84973 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 84974 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 84975 | if (!PyErr_Occurred()) | |||
| 84976 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgglse to C/Fortran array" ); | |||
| 84977 | } else { | |||
| 84978 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 84979 | ||||
| 84980 | /* Processing variable m */ | |||
| 84981 | m = shape(a,0)a_Dims[0]; | |||
| 84982 | CHECKSCALAR(m>=0,"m>=0","hidden m","cgglse:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgglse:m=%d", "(""m>=0"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 84983 | /* Processing variable n */ | |||
| 84984 | n = shape(a,1)a_Dims[1]; | |||
| 84985 | CHECKSCALAR(n>=0,"n>=0","hidden n","cgglse:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgglse:n=%d", "(""n>=0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 84986 | /* Processing variable lda */ | |||
| 84987 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 84988 | /* Processing variable b */ | |||
| 84989 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 84990 | b_Dims[1]=n; | |||
| 84991 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 84992 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 84993 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 84994 | if (!PyErr_Occurred()) | |||
| 84995 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgglse to C/Fortran array" ); | |||
| 84996 | } else { | |||
| 84997 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 84998 | ||||
| 84999 | /* Processing variable ldb */ | |||
| 85000 | ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 85001 | /* Processing variable p */ | |||
| 85002 | p = shape(b,0)b_Dims[0]; | |||
| 85003 | CHECKSCALAR((p>=n-m)&&(p>=0),"(p>=n-m)&&(p>=0)","hidden p","cgglse:p=%d",p)if (!((p>=n-m)&&(p>=0))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgglse:p=%d", "(""(p>=n-m)&&(p>=0)" ") failed for ""hidden p", p); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 85004 | /* Processing variable c */ | |||
| 85005 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 85006 | c_Dims[0]=m; | |||
| 85007 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 85008 | capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 85009 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 85010 | if (!PyErr_Occurred()) | |||
| 85011 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.cgglse to C/Fortran array" ); | |||
| 85012 | } else { | |||
| 85013 | c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 85014 | ||||
| 85015 | /* Processing variable d */ | |||
| 85016 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 85017 | d_Dims[0]=p; | |||
| 85018 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 85019 | capi_d_tmp = array_from_pyobj(NPY_CFLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 85020 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 85021 | if (!PyErr_Occurred()) | |||
| 85022 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `d' of _flapack.cgglse to C/Fortran array" ); | |||
| 85023 | } else { | |||
| 85024 | d = (complex_float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 85025 | ||||
| 85026 | /* Processing variable x */ | |||
| 85027 | x_Dims[0]=n; | |||
| 85028 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 85029 | capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 85030 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 85031 | if (!PyErr_Occurred()) | |||
| 85032 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.cgglse to C/Fortran array" ); | |||
| 85033 | } else { | |||
| 85034 | x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 85035 | ||||
| 85036 | /* Processing variable lwork */ | |||
| 85037 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(m+n+p,1)((m+n+p > 1) ? (m+n+p) : (1)); else | |||
| 85038 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgglse() 1st keyword (lwork) can't be converted to int"); | |||
| 85039 | if (f2py_success) { | |||
| 85040 | CHECKSCALAR((lwork==-1)||(lwork>=1),"(lwork==-1)||(lwork>=1)","1st keyword lwork","cgglse:lwork=%d",lwork)if (!((lwork==-1)||(lwork>=1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgglse:lwork=%d", "(""(lwork==-1)||(lwork>=1)"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 85041 | /* Processing variable work */ | |||
| 85042 | work_Dims[0]=lwork; | |||
| 85043 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 85044 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 85045 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 85046 | if (!PyErr_Occurred()) | |||
| 85047 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgglse to C/Fortran array" ); | |||
| 85048 | } else { | |||
| 85049 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 85050 | ||||
| 85051 | /*end of frompyobj*/ | |||
| 85052 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85053 | f2py_start_call_clock(); | |||
| 85054 | #endif | |||
| 85055 | /*callfortranroutine*/ | |||
| 85056 | (*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info) ; | |||
| 85057 | /*(*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info);*/ | |||
| 85058 | if (PyErr_Occurred()) | |||
| 85059 | f2py_success = 0; | |||
| 85060 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85061 | f2py_stop_call_clock(); | |||
| 85062 | #endif | |||
| 85063 | /*end of callfortranroutine*/ | |||
| 85064 | if (f2py_success) { | |||
| 85065 | /*pyobjfrom*/ | |||
| 85066 | /*end of pyobjfrom*/ | |||
| 85067 | CFUNCSMESS("Building return value.\n"); | |||
| 85068 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_b_tmp,capi_c_tmp,capi_x_tmp,info); | |||
| 85069 | /*closepyobjfrom*/ | |||
| 85070 | /*end of closepyobjfrom*/ | |||
| 85071 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 85072 | /*cleanupfrompyobj*/ | |||
| 85073 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 85074 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 85075 | /* End of cleaning variable work */ | |||
| 85076 | } /*CHECKSCALAR((lwork==-1)||(lwork>=1))*/ | |||
| 85077 | } /*if (f2py_success) of lwork*/ | |||
| 85078 | /* End of cleaning variable lwork */ | |||
| 85079 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 85080 | /* End of cleaning variable x */ | |||
| 85081 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 85082 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 85083 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 85084 | /* End of cleaning variable d */ | |||
| 85085 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 85086 | /* End of cleaning variable c */ | |||
| 85087 | } /*CHECKSCALAR((p>=n-m)&&(p>=0))*/ | |||
| 85088 | /* End of cleaning variable p */ | |||
| 85089 | /* End of cleaning variable ldb */ | |||
| 85090 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 85091 | /* End of cleaning variable b */ | |||
| 85092 | /* End of cleaning variable lda */ | |||
| 85093 | } /*CHECKSCALAR(n>=0)*/ | |||
| 85094 | /* End of cleaning variable n */ | |||
| 85095 | } /*CHECKSCALAR(m>=0)*/ | |||
| 85096 | /* End of cleaning variable m */ | |||
| 85097 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 85098 | /* End of cleaning variable a */ | |||
| 85099 | /* End of cleaning variable info */ | |||
| 85100 | /*end of cleanupfrompyobj*/ | |||
| 85101 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 85102 | /*routdebugfailure*/ | |||
| 85103 | } else { | |||
| 85104 | /*routdebugleave*/ | |||
| 85105 | } | |||
| 85106 | CFUNCSMESS("Freeing memory.\n"); | |||
| 85107 | /*freemem*/ | |||
| 85108 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85109 | f2py_stop_clock(); | |||
| 85110 | #endif | |||
| 85111 | return capi_buildvalue; | |||
| 85112 | } | |||
| 85113 | /******************************* end of cgglse *******************************/ | |||
| 85114 | ||||
| 85115 | /*********************************** zgglse ***********************************/ | |||
| 85116 | static char doc_f2py_rout__flapack_zgglse[] = "\ | |||
| 85117 | t,r,res,x,info = zgglse(a,b,c,d,[lwork,overwrite_a,overwrite_b,overwrite_c,overwrite_d])\n\nWrapper for ``zgglse``.\ | |||
| 85118 | \n\nParameters\n----------\n" | |||
| 85119 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 85120 | "b : input rank-2 array('D') with bounds (p,n)\n" | |||
| 85121 | "c : input rank-1 array('D') with bounds (m)\n" | |||
| 85122 | "d : input rank-1 array('D') with bounds (p)\n" | |||
| 85123 | "\nOther Parameters\n----------------\n" | |||
| 85124 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 85125 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 85126 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 85127 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 85128 | "lwork : input int, optional\n Default: max(m+n+p,1)\n" | |||
| 85129 | "\nReturns\n-------\n" | |||
| 85130 | "t : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 85131 | "r : rank-2 array('D') with bounds (p,n) and b storage\n" | |||
| 85132 | "res : rank-1 array('D') with bounds (m) and c storage\n" | |||
| 85133 | "x : rank-1 array('D') with bounds (n)\n" | |||
| 85134 | "info : int"; | |||
| 85135 | /* extern void F_FUNC(zgglse,ZGGLSE)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 85136 | static PyObject *f2py_rout__flapack_zgglse(const PyObject *capi_self, | |||
| 85137 | PyObject *capi_args, | |||
| 85138 | PyObject *capi_keywds, | |||
| 85139 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 85140 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 85141 | volatile int f2py_success = 1; | |||
| 85142 | /*decl*/ | |||
| 85143 | ||||
| 85144 | int m = 0; | |||
| 85145 | int n = 0; | |||
| 85146 | int p = 0; | |||
| 85147 | complex_double *a = NULL((void*)0); | |||
| 85148 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 85149 | const int a_Rank = 2; | |||
| 85150 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 85151 | int capi_a_intent = 0; | |||
| 85152 | int capi_overwrite_a = 0; | |||
| 85153 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 85154 | int lda = 0; | |||
| 85155 | complex_double *b = NULL((void*)0); | |||
| 85156 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 85157 | const int b_Rank = 2; | |||
| 85158 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 85159 | int capi_b_intent = 0; | |||
| 85160 | int capi_overwrite_b = 0; | |||
| 85161 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 85162 | int ldb = 0; | |||
| 85163 | complex_double *c = NULL((void*)0); | |||
| 85164 | npy_intp c_Dims[1] = {-1}; | |||
| 85165 | const int c_Rank = 1; | |||
| 85166 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 85167 | int capi_c_intent = 0; | |||
| 85168 | int capi_overwrite_c = 0; | |||
| 85169 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 85170 | complex_double *d = NULL((void*)0); | |||
| 85171 | npy_intp d_Dims[1] = {-1}; | |||
| 85172 | const int d_Rank = 1; | |||
| 85173 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 85174 | int capi_d_intent = 0; | |||
| 85175 | int capi_overwrite_d = 0; | |||
| 85176 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 85177 | complex_double *x = NULL((void*)0); | |||
| 85178 | npy_intp x_Dims[1] = {-1}; | |||
| 85179 | const int x_Rank = 1; | |||
| 85180 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 85181 | int capi_x_intent = 0; | |||
| 85182 | complex_double *work = NULL((void*)0); | |||
| 85183 | npy_intp work_Dims[1] = {-1}; | |||
| 85184 | const int work_Rank = 1; | |||
| 85185 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 85186 | int capi_work_intent = 0; | |||
| 85187 | int lwork = 0; | |||
| 85188 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 85189 | int info = 0; | |||
| 85190 | static char *capi_kwlist[] = {"a","b","c","d","lwork","overwrite_a","overwrite_b","overwrite_c","overwrite_d",NULL((void*)0)}; | |||
| 85191 | ||||
| 85192 | /*routdebugenter*/ | |||
| 85193 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85194 | f2py_start_clock(); | |||
| 85195 | #endif | |||
| 85196 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 85197 | "OOOO|Oiiii:_flapack.zgglse",\ | |||
| 85198 | capi_kwlist,&a_capi,&b_capi,&c_capi,&d_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_c,&capi_overwrite_d)) | |||
| 85199 | return NULL((void*)0); | |||
| 85200 | /*frompyobj*/ | |||
| 85201 | /* Processing variable info */ | |||
| 85202 | /* Processing variable a */ | |||
| 85203 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 85204 | ; | |||
| 85205 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 85206 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 85207 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 85208 | if (!PyErr_Occurred()) | |||
| 85209 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgglse to C/Fortran array" ); | |||
| 85210 | } else { | |||
| 85211 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 85212 | ||||
| 85213 | /* Processing variable m */ | |||
| 85214 | m = shape(a,0)a_Dims[0]; | |||
| 85215 | CHECKSCALAR(m>=0,"m>=0","hidden m","zgglse:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgglse:m=%d", "(""m>=0"") failed for ""hidden m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 85216 | /* Processing variable n */ | |||
| 85217 | n = shape(a,1)a_Dims[1]; | |||
| 85218 | CHECKSCALAR(n>=0,"n>=0","hidden n","zgglse:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgglse:n=%d", "(""n>=0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 85219 | /* Processing variable lda */ | |||
| 85220 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 85221 | /* Processing variable b */ | |||
| 85222 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 85223 | b_Dims[1]=n; | |||
| 85224 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 85225 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 85226 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 85227 | if (!PyErr_Occurred()) | |||
| 85228 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgglse to C/Fortran array" ); | |||
| 85229 | } else { | |||
| 85230 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 85231 | ||||
| 85232 | /* Processing variable ldb */ | |||
| 85233 | ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 85234 | /* Processing variable p */ | |||
| 85235 | p = shape(b,0)b_Dims[0]; | |||
| 85236 | CHECKSCALAR((p>=n-m)&&(p>=0),"(p>=n-m)&&(p>=0)","hidden p","zgglse:p=%d",p)if (!((p>=n-m)&&(p>=0))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgglse:p=%d", "(""(p>=n-m)&&(p>=0)" ") failed for ""hidden p", p); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 85237 | /* Processing variable c */ | |||
| 85238 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 85239 | c_Dims[0]=m; | |||
| 85240 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 85241 | capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 85242 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 85243 | if (!PyErr_Occurred()) | |||
| 85244 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.zgglse to C/Fortran array" ); | |||
| 85245 | } else { | |||
| 85246 | c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 85247 | ||||
| 85248 | /* Processing variable d */ | |||
| 85249 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 85250 | d_Dims[0]=p; | |||
| 85251 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 85252 | capi_d_tmp = array_from_pyobj(NPY_CDOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 85253 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 85254 | if (!PyErr_Occurred()) | |||
| 85255 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `d' of _flapack.zgglse to C/Fortran array" ); | |||
| 85256 | } else { | |||
| 85257 | d = (complex_double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 85258 | ||||
| 85259 | /* Processing variable x */ | |||
| 85260 | x_Dims[0]=n; | |||
| 85261 | capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 85262 | capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct)); | |||
| 85263 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 85264 | if (!PyErr_Occurred()) | |||
| 85265 | PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zgglse to C/Fortran array" ); | |||
| 85266 | } else { | |||
| 85267 | x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 85268 | ||||
| 85269 | /* Processing variable lwork */ | |||
| 85270 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(m+n+p,1)((m+n+p > 1) ? (m+n+p) : (1)); else | |||
| 85271 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgglse() 1st keyword (lwork) can't be converted to int"); | |||
| 85272 | if (f2py_success) { | |||
| 85273 | CHECKSCALAR((lwork==-1)||(lwork>=1),"(lwork==-1)||(lwork>=1)","1st keyword lwork","zgglse:lwork=%d",lwork)if (!((lwork==-1)||(lwork>=1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgglse:lwork=%d", "(""(lwork==-1)||(lwork>=1)"") failed for " "1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 85274 | /* Processing variable work */ | |||
| 85275 | work_Dims[0]=lwork; | |||
| 85276 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 85277 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 85278 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 85279 | if (!PyErr_Occurred()) | |||
| 85280 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgglse to C/Fortran array" ); | |||
| 85281 | } else { | |||
| 85282 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 85283 | ||||
| 85284 | /*end of frompyobj*/ | |||
| 85285 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85286 | f2py_start_call_clock(); | |||
| 85287 | #endif | |||
| 85288 | /*callfortranroutine*/ | |||
| 85289 | (*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info) ; | |||
| 85290 | /*(*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info);*/ | |||
| 85291 | if (PyErr_Occurred()) | |||
| 85292 | f2py_success = 0; | |||
| 85293 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85294 | f2py_stop_call_clock(); | |||
| 85295 | #endif | |||
| 85296 | /*end of callfortranroutine*/ | |||
| 85297 | if (f2py_success) { | |||
| 85298 | /*pyobjfrom*/ | |||
| 85299 | /*end of pyobjfrom*/ | |||
| 85300 | CFUNCSMESS("Building return value.\n"); | |||
| 85301 | capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_b_tmp,capi_c_tmp,capi_x_tmp,info); | |||
| 85302 | /*closepyobjfrom*/ | |||
| 85303 | /*end of closepyobjfrom*/ | |||
| 85304 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 85305 | /*cleanupfrompyobj*/ | |||
| 85306 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 85307 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 85308 | /* End of cleaning variable work */ | |||
| 85309 | } /*CHECKSCALAR((lwork==-1)||(lwork>=1))*/ | |||
| 85310 | } /*if (f2py_success) of lwork*/ | |||
| 85311 | /* End of cleaning variable lwork */ | |||
| 85312 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 85313 | /* End of cleaning variable x */ | |||
| 85314 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 85315 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 85316 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 85317 | /* End of cleaning variable d */ | |||
| 85318 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 85319 | /* End of cleaning variable c */ | |||
| 85320 | } /*CHECKSCALAR((p>=n-m)&&(p>=0))*/ | |||
| 85321 | /* End of cleaning variable p */ | |||
| 85322 | /* End of cleaning variable ldb */ | |||
| 85323 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 85324 | /* End of cleaning variable b */ | |||
| 85325 | /* End of cleaning variable lda */ | |||
| 85326 | } /*CHECKSCALAR(n>=0)*/ | |||
| 85327 | /* End of cleaning variable n */ | |||
| 85328 | } /*CHECKSCALAR(m>=0)*/ | |||
| 85329 | /* End of cleaning variable m */ | |||
| 85330 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 85331 | /* End of cleaning variable a */ | |||
| 85332 | /* End of cleaning variable info */ | |||
| 85333 | /*end of cleanupfrompyobj*/ | |||
| 85334 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 85335 | /*routdebugfailure*/ | |||
| 85336 | } else { | |||
| 85337 | /*routdebugleave*/ | |||
| 85338 | } | |||
| 85339 | CFUNCSMESS("Freeing memory.\n"); | |||
| 85340 | /*freemem*/ | |||
| 85341 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85342 | f2py_stop_clock(); | |||
| 85343 | #endif | |||
| 85344 | return capi_buildvalue; | |||
| 85345 | } | |||
| 85346 | /******************************* end of zgglse *******************************/ | |||
| 85347 | ||||
| 85348 | /******************************** sgglse_lwork ********************************/ | |||
| 85349 | static char doc_f2py_rout__flapack_sgglse_lwork[] = "\ | |||
| 85350 | work,info = sgglse_lwork(m,n,p)\n\nWrapper for ``sgglse_lwork``.\ | |||
| 85351 | \n\nParameters\n----------\n" | |||
| 85352 | "m : input int\n" | |||
| 85353 | "n : input int\n" | |||
| 85354 | "p : input int\n" | |||
| 85355 | "\nReturns\n-------\n" | |||
| 85356 | "work : float\n" | |||
| 85357 | "info : int"; | |||
| 85358 | /* extern void F_FUNC(sgglse ,SGGLSE )(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */ | |||
| 85359 | static PyObject *f2py_rout__flapack_sgglse_lwork(const PyObject *capi_self, | |||
| 85360 | PyObject *capi_args, | |||
| 85361 | PyObject *capi_keywds, | |||
| 85362 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 85363 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 85364 | volatile int f2py_success = 1; | |||
| 85365 | /*decl*/ | |||
| 85366 | ||||
| 85367 | int m = 0; | |||
| 85368 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 85369 | int n = 0; | |||
| 85370 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 85371 | int p = 0; | |||
| 85372 | PyObject *p_capi = Py_None(&_Py_NoneStruct); | |||
| 85373 | float a = 0; | |||
| 85374 | int lda = 0; | |||
| 85375 | float b = 0; | |||
| 85376 | int ldb = 0; | |||
| 85377 | float c = 0; | |||
| 85378 | float d = 0; | |||
| 85379 | float x = 0; | |||
| 85380 | float work = 0; | |||
| 85381 | int lwork = 0; | |||
| 85382 | int info = 0; | |||
| 85383 | static char *capi_kwlist[] = {"m","n","p",NULL((void*)0)}; | |||
| 85384 | ||||
| 85385 | /*routdebugenter*/ | |||
| 85386 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85387 | f2py_start_clock(); | |||
| 85388 | #endif | |||
| 85389 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 85390 | "OOO:_flapack.sgglse_lwork",\ | |||
| 85391 | capi_kwlist,&m_capi,&n_capi,&p_capi)) | |||
| 85392 | return NULL((void*)0); | |||
| 85393 | /*frompyobj*/ | |||
| 85394 | /* Processing variable m */ | |||
| 85395 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgglse_lwork() 1st argument (m) can't be converted to int"); | |||
| 85396 | if (f2py_success) { | |||
| 85397 | CHECKSCALAR(m>=0,"m>=0","1st argument m","sgglse_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgglse_lwork:m=%d", "(""m>=0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 85398 | /* Processing variable n */ | |||
| 85399 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgglse_lwork() 2nd argument (n) can't be converted to int"); | |||
| 85400 | if (f2py_success) { | |||
| 85401 | CHECKSCALAR(n>=0,"n>=0","2nd argument n","sgglse_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sgglse_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 85402 | /* Processing variable info */ | |||
| 85403 | /* Processing variable work */ | |||
| 85404 | /* Processing variable a */ | |||
| 85405 | /* Processing variable b */ | |||
| 85406 | /* Processing variable c */ | |||
| 85407 | /* Processing variable d */ | |||
| 85408 | /* Processing variable x */ | |||
| 85409 | /* Processing variable lwork */ | |||
| 85410 | lwork = -1; | |||
| 85411 | /* Processing variable p */ | |||
| 85412 | f2py_success = int_from_pyobj(&p,p_capi,"_flapack.sgglse_lwork() 3rd argument (p) can't be converted to int"); | |||
| 85413 | if (f2py_success) { | |||
| 85414 | CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n,"(p>=n-m)&&(p>=0)&&p<=n","3rd argument p","sgglse_lwork:p=%d",p)if (!((p>=n-m)&&(p>=0)&&p<=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgglse_lwork:p=%d", "(""(p>=n-m)&&(p>=0)&&p<=n" ") failed for ""3rd argument p", p); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 85415 | /* Processing variable lda */ | |||
| 85416 | lda = max(1,m)((1 > m) ? (1) : (m)); | |||
| 85417 | /* Processing variable ldb */ | |||
| 85418 | ldb = max(1,p)((1 > p) ? (1) : (p)); | |||
| 85419 | /*end of frompyobj*/ | |||
| 85420 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85421 | f2py_start_call_clock(); | |||
| 85422 | #endif | |||
| 85423 | /*callfortranroutine*/ | |||
| 85424 | (*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info) ; | |||
| 85425 | /*(*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info);*/ | |||
| 85426 | if (PyErr_Occurred()) | |||
| 85427 | f2py_success = 0; | |||
| 85428 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85429 | f2py_stop_call_clock(); | |||
| 85430 | #endif | |||
| 85431 | /*end of callfortranroutine*/ | |||
| 85432 | if (f2py_success) { | |||
| 85433 | /*pyobjfrom*/ | |||
| 85434 | /*end of pyobjfrom*/ | |||
| 85435 | CFUNCSMESS("Building return value.\n"); | |||
| 85436 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 85437 | /*closepyobjfrom*/ | |||
| 85438 | /*end of closepyobjfrom*/ | |||
| 85439 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 85440 | /*cleanupfrompyobj*/ | |||
| 85441 | /* End of cleaning variable ldb */ | |||
| 85442 | /* End of cleaning variable lda */ | |||
| 85443 | } /*CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n)*/ | |||
| 85444 | } /*if (f2py_success) of p*/ | |||
| 85445 | /* End of cleaning variable p */ | |||
| 85446 | /* End of cleaning variable lwork */ | |||
| 85447 | /* End of cleaning variable x */ | |||
| 85448 | /* End of cleaning variable d */ | |||
| 85449 | /* End of cleaning variable c */ | |||
| 85450 | /* End of cleaning variable b */ | |||
| 85451 | /* End of cleaning variable a */ | |||
| 85452 | /* End of cleaning variable work */ | |||
| 85453 | /* End of cleaning variable info */ | |||
| 85454 | } /*CHECKSCALAR(n>=0)*/ | |||
| 85455 | } /*if (f2py_success) of n*/ | |||
| 85456 | /* End of cleaning variable n */ | |||
| 85457 | } /*CHECKSCALAR(m>=0)*/ | |||
| 85458 | } /*if (f2py_success) of m*/ | |||
| 85459 | /* End of cleaning variable m */ | |||
| 85460 | /*end of cleanupfrompyobj*/ | |||
| 85461 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 85462 | /*routdebugfailure*/ | |||
| 85463 | } else { | |||
| 85464 | /*routdebugleave*/ | |||
| 85465 | } | |||
| 85466 | CFUNCSMESS("Freeing memory.\n"); | |||
| 85467 | /*freemem*/ | |||
| 85468 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85469 | f2py_stop_clock(); | |||
| 85470 | #endif | |||
| 85471 | return capi_buildvalue; | |||
| 85472 | } | |||
| 85473 | /**************************** end of sgglse_lwork ****************************/ | |||
| 85474 | ||||
| 85475 | /******************************** dgglse_lwork ********************************/ | |||
| 85476 | static char doc_f2py_rout__flapack_dgglse_lwork[] = "\ | |||
| 85477 | work,info = dgglse_lwork(m,n,p)\n\nWrapper for ``dgglse_lwork``.\ | |||
| 85478 | \n\nParameters\n----------\n" | |||
| 85479 | "m : input int\n" | |||
| 85480 | "n : input int\n" | |||
| 85481 | "p : input int\n" | |||
| 85482 | "\nReturns\n-------\n" | |||
| 85483 | "work : float\n" | |||
| 85484 | "info : int"; | |||
| 85485 | /* extern void F_FUNC(dgglse ,DGGLSE )(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */ | |||
| 85486 | static PyObject *f2py_rout__flapack_dgglse_lwork(const PyObject *capi_self, | |||
| 85487 | PyObject *capi_args, | |||
| 85488 | PyObject *capi_keywds, | |||
| 85489 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 85490 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 85491 | volatile int f2py_success = 1; | |||
| 85492 | /*decl*/ | |||
| 85493 | ||||
| 85494 | int m = 0; | |||
| 85495 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 85496 | int n = 0; | |||
| 85497 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 85498 | int p = 0; | |||
| 85499 | PyObject *p_capi = Py_None(&_Py_NoneStruct); | |||
| 85500 | double a = 0; | |||
| 85501 | int lda = 0; | |||
| 85502 | double b = 0; | |||
| 85503 | int ldb = 0; | |||
| 85504 | double c = 0; | |||
| 85505 | double d = 0; | |||
| 85506 | double x = 0; | |||
| 85507 | double work = 0; | |||
| 85508 | int lwork = 0; | |||
| 85509 | int info = 0; | |||
| 85510 | static char *capi_kwlist[] = {"m","n","p",NULL((void*)0)}; | |||
| 85511 | ||||
| 85512 | /*routdebugenter*/ | |||
| 85513 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85514 | f2py_start_clock(); | |||
| 85515 | #endif | |||
| 85516 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 85517 | "OOO:_flapack.dgglse_lwork",\ | |||
| 85518 | capi_kwlist,&m_capi,&n_capi,&p_capi)) | |||
| 85519 | return NULL((void*)0); | |||
| 85520 | /*frompyobj*/ | |||
| 85521 | /* Processing variable m */ | |||
| 85522 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgglse_lwork() 1st argument (m) can't be converted to int"); | |||
| 85523 | if (f2py_success) { | |||
| 85524 | CHECKSCALAR(m>=0,"m>=0","1st argument m","dgglse_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgglse_lwork:m=%d", "(""m>=0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 85525 | /* Processing variable n */ | |||
| 85526 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgglse_lwork() 2nd argument (n) can't be converted to int"); | |||
| 85527 | if (f2py_success) { | |||
| 85528 | CHECKSCALAR(n>=0,"n>=0","2nd argument n","dgglse_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dgglse_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 85529 | /* Processing variable info */ | |||
| 85530 | /* Processing variable work */ | |||
| 85531 | /* Processing variable a */ | |||
| 85532 | /* Processing variable b */ | |||
| 85533 | /* Processing variable c */ | |||
| 85534 | /* Processing variable d */ | |||
| 85535 | /* Processing variable x */ | |||
| 85536 | /* Processing variable lwork */ | |||
| 85537 | lwork = -1; | |||
| 85538 | /* Processing variable p */ | |||
| 85539 | f2py_success = int_from_pyobj(&p,p_capi,"_flapack.dgglse_lwork() 3rd argument (p) can't be converted to int"); | |||
| 85540 | if (f2py_success) { | |||
| 85541 | CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n,"(p>=n-m)&&(p>=0)&&p<=n","3rd argument p","dgglse_lwork:p=%d",p)if (!((p>=n-m)&&(p>=0)&&p<=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgglse_lwork:p=%d", "(""(p>=n-m)&&(p>=0)&&p<=n" ") failed for ""3rd argument p", p); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 85542 | /* Processing variable lda */ | |||
| 85543 | lda = max(1,m)((1 > m) ? (1) : (m)); | |||
| 85544 | /* Processing variable ldb */ | |||
| 85545 | ldb = max(1,p)((1 > p) ? (1) : (p)); | |||
| 85546 | /*end of frompyobj*/ | |||
| 85547 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85548 | f2py_start_call_clock(); | |||
| 85549 | #endif | |||
| 85550 | /*callfortranroutine*/ | |||
| 85551 | (*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info) ; | |||
| 85552 | /*(*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info);*/ | |||
| 85553 | if (PyErr_Occurred()) | |||
| 85554 | f2py_success = 0; | |||
| 85555 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85556 | f2py_stop_call_clock(); | |||
| 85557 | #endif | |||
| 85558 | /*end of callfortranroutine*/ | |||
| 85559 | if (f2py_success) { | |||
| 85560 | /*pyobjfrom*/ | |||
| 85561 | /*end of pyobjfrom*/ | |||
| 85562 | CFUNCSMESS("Building return value.\n"); | |||
| 85563 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 85564 | /*closepyobjfrom*/ | |||
| 85565 | /*end of closepyobjfrom*/ | |||
| 85566 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 85567 | /*cleanupfrompyobj*/ | |||
| 85568 | /* End of cleaning variable ldb */ | |||
| 85569 | /* End of cleaning variable lda */ | |||
| 85570 | } /*CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n)*/ | |||
| 85571 | } /*if (f2py_success) of p*/ | |||
| 85572 | /* End of cleaning variable p */ | |||
| 85573 | /* End of cleaning variable lwork */ | |||
| 85574 | /* End of cleaning variable x */ | |||
| 85575 | /* End of cleaning variable d */ | |||
| 85576 | /* End of cleaning variable c */ | |||
| 85577 | /* End of cleaning variable b */ | |||
| 85578 | /* End of cleaning variable a */ | |||
| 85579 | /* End of cleaning variable work */ | |||
| 85580 | /* End of cleaning variable info */ | |||
| 85581 | } /*CHECKSCALAR(n>=0)*/ | |||
| 85582 | } /*if (f2py_success) of n*/ | |||
| 85583 | /* End of cleaning variable n */ | |||
| 85584 | } /*CHECKSCALAR(m>=0)*/ | |||
| 85585 | } /*if (f2py_success) of m*/ | |||
| 85586 | /* End of cleaning variable m */ | |||
| 85587 | /*end of cleanupfrompyobj*/ | |||
| 85588 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 85589 | /*routdebugfailure*/ | |||
| 85590 | } else { | |||
| 85591 | /*routdebugleave*/ | |||
| 85592 | } | |||
| 85593 | CFUNCSMESS("Freeing memory.\n"); | |||
| 85594 | /*freemem*/ | |||
| 85595 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85596 | f2py_stop_clock(); | |||
| 85597 | #endif | |||
| 85598 | return capi_buildvalue; | |||
| 85599 | } | |||
| 85600 | /**************************** end of dgglse_lwork ****************************/ | |||
| 85601 | ||||
| 85602 | /******************************** cgglse_lwork ********************************/ | |||
| 85603 | static char doc_f2py_rout__flapack_cgglse_lwork[] = "\ | |||
| 85604 | work,info = cgglse_lwork(m,n,p)\n\nWrapper for ``cgglse_lwork``.\ | |||
| 85605 | \n\nParameters\n----------\n" | |||
| 85606 | "m : input int\n" | |||
| 85607 | "n : input int\n" | |||
| 85608 | "p : input int\n" | |||
| 85609 | "\nReturns\n-------\n" | |||
| 85610 | "work : complex\n" | |||
| 85611 | "info : int"; | |||
| 85612 | /* extern void F_FUNC(cgglse ,CGGLSE )(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 85613 | static PyObject *f2py_rout__flapack_cgglse_lwork(const PyObject *capi_self, | |||
| 85614 | PyObject *capi_args, | |||
| 85615 | PyObject *capi_keywds, | |||
| 85616 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 85617 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 85618 | volatile int f2py_success = 1; | |||
| 85619 | /*decl*/ | |||
| 85620 | ||||
| 85621 | int m = 0; | |||
| 85622 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 85623 | int n = 0; | |||
| 85624 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 85625 | int p = 0; | |||
| 85626 | PyObject *p_capi = Py_None(&_Py_NoneStruct); | |||
| 85627 | complex_float a; | |||
| 85628 | int lda = 0; | |||
| 85629 | complex_float b; | |||
| 85630 | int ldb = 0; | |||
| 85631 | complex_float c; | |||
| 85632 | complex_float d; | |||
| 85633 | complex_float x; | |||
| 85634 | complex_float work; | |||
| 85635 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 85636 | int lwork = 0; | |||
| 85637 | int info = 0; | |||
| 85638 | static char *capi_kwlist[] = {"m","n","p",NULL((void*)0)}; | |||
| 85639 | ||||
| 85640 | /*routdebugenter*/ | |||
| 85641 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85642 | f2py_start_clock(); | |||
| 85643 | #endif | |||
| 85644 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 85645 | "OOO:_flapack.cgglse_lwork",\ | |||
| 85646 | capi_kwlist,&m_capi,&n_capi,&p_capi)) | |||
| 85647 | return NULL((void*)0); | |||
| 85648 | /*frompyobj*/ | |||
| 85649 | /* Processing variable m */ | |||
| 85650 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgglse_lwork() 1st argument (m) can't be converted to int"); | |||
| 85651 | if (f2py_success) { | |||
| 85652 | CHECKSCALAR(m>=0,"m>=0","1st argument m","cgglse_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgglse_lwork:m=%d", "(""m>=0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 85653 | /* Processing variable n */ | |||
| 85654 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgglse_lwork() 2nd argument (n) can't be converted to int"); | |||
| 85655 | if (f2py_success) { | |||
| 85656 | CHECKSCALAR(n>=0,"n>=0","2nd argument n","cgglse_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cgglse_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 85657 | /* Processing variable info */ | |||
| 85658 | /* Processing variable work */ | |||
| 85659 | /* Processing variable a */ | |||
| 85660 | /* Processing variable b */ | |||
| 85661 | /* Processing variable c */ | |||
| 85662 | /* Processing variable d */ | |||
| 85663 | /* Processing variable x */ | |||
| 85664 | /* Processing variable lwork */ | |||
| 85665 | lwork = -1; | |||
| 85666 | /* Processing variable p */ | |||
| 85667 | f2py_success = int_from_pyobj(&p,p_capi,"_flapack.cgglse_lwork() 3rd argument (p) can't be converted to int"); | |||
| 85668 | if (f2py_success) { | |||
| 85669 | CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n,"(p>=n-m)&&(p>=0)&&p<=n","3rd argument p","cgglse_lwork:p=%d",p)if (!((p>=n-m)&&(p>=0)&&p<=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgglse_lwork:p=%d", "(""(p>=n-m)&&(p>=0)&&p<=n" ") failed for ""3rd argument p", p); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 85670 | /* Processing variable lda */ | |||
| 85671 | lda = max(1,m)((1 > m) ? (1) : (m)); | |||
| 85672 | /* Processing variable ldb */ | |||
| 85673 | ldb = max(1,p)((1 > p) ? (1) : (p)); | |||
| 85674 | /*end of frompyobj*/ | |||
| 85675 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85676 | f2py_start_call_clock(); | |||
| 85677 | #endif | |||
| 85678 | /*callfortranroutine*/ | |||
| 85679 | (*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info) ; | |||
| 85680 | /*(*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info);*/ | |||
| 85681 | if (PyErr_Occurred()) | |||
| 85682 | f2py_success = 0; | |||
| 85683 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85684 | f2py_stop_call_clock(); | |||
| 85685 | #endif | |||
| 85686 | /*end of callfortranroutine*/ | |||
| 85687 | if (f2py_success) { | |||
| 85688 | /*pyobjfrom*/ | |||
| 85689 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 85690 | /*end of pyobjfrom*/ | |||
| 85691 | CFUNCSMESS("Building return value.\n"); | |||
| 85692 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 85693 | /*closepyobjfrom*/ | |||
| 85694 | /*end of closepyobjfrom*/ | |||
| 85695 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 85696 | /*cleanupfrompyobj*/ | |||
| 85697 | /* End of cleaning variable ldb */ | |||
| 85698 | /* End of cleaning variable lda */ | |||
| 85699 | } /*CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n)*/ | |||
| 85700 | } /*if (f2py_success) of p*/ | |||
| 85701 | /* End of cleaning variable p */ | |||
| 85702 | /* End of cleaning variable lwork */ | |||
| 85703 | /* End of cleaning variable x */ | |||
| 85704 | /* End of cleaning variable d */ | |||
| 85705 | /* End of cleaning variable c */ | |||
| 85706 | /* End of cleaning variable b */ | |||
| 85707 | /* End of cleaning variable a */ | |||
| 85708 | /* End of cleaning variable work */ | |||
| 85709 | /* End of cleaning variable info */ | |||
| 85710 | } /*CHECKSCALAR(n>=0)*/ | |||
| 85711 | } /*if (f2py_success) of n*/ | |||
| 85712 | /* End of cleaning variable n */ | |||
| 85713 | } /*CHECKSCALAR(m>=0)*/ | |||
| 85714 | } /*if (f2py_success) of m*/ | |||
| 85715 | /* End of cleaning variable m */ | |||
| 85716 | /*end of cleanupfrompyobj*/ | |||
| 85717 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 85718 | /*routdebugfailure*/ | |||
| 85719 | } else { | |||
| 85720 | /*routdebugleave*/ | |||
| 85721 | } | |||
| 85722 | CFUNCSMESS("Freeing memory.\n"); | |||
| 85723 | /*freemem*/ | |||
| 85724 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85725 | f2py_stop_clock(); | |||
| 85726 | #endif | |||
| 85727 | return capi_buildvalue; | |||
| 85728 | } | |||
| 85729 | /**************************** end of cgglse_lwork ****************************/ | |||
| 85730 | ||||
| 85731 | /******************************** zgglse_lwork ********************************/ | |||
| 85732 | static char doc_f2py_rout__flapack_zgglse_lwork[] = "\ | |||
| 85733 | work,info = zgglse_lwork(m,n,p)\n\nWrapper for ``zgglse_lwork``.\ | |||
| 85734 | \n\nParameters\n----------\n" | |||
| 85735 | "m : input int\n" | |||
| 85736 | "n : input int\n" | |||
| 85737 | "p : input int\n" | |||
| 85738 | "\nReturns\n-------\n" | |||
| 85739 | "work : complex\n" | |||
| 85740 | "info : int"; | |||
| 85741 | /* extern void F_FUNC(zgglse ,ZGGLSE )(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 85742 | static PyObject *f2py_rout__flapack_zgglse_lwork(const PyObject *capi_self, | |||
| 85743 | PyObject *capi_args, | |||
| 85744 | PyObject *capi_keywds, | |||
| 85745 | void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 85746 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 85747 | volatile int f2py_success = 1; | |||
| 85748 | /*decl*/ | |||
| 85749 | ||||
| 85750 | int m = 0; | |||
| 85751 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 85752 | int n = 0; | |||
| 85753 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 85754 | int p = 0; | |||
| 85755 | PyObject *p_capi = Py_None(&_Py_NoneStruct); | |||
| 85756 | complex_double a; | |||
| 85757 | int lda = 0; | |||
| 85758 | complex_double b; | |||
| 85759 | int ldb = 0; | |||
| 85760 | complex_double c; | |||
| 85761 | complex_double d; | |||
| 85762 | complex_double x; | |||
| 85763 | complex_double work; | |||
| 85764 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 85765 | int lwork = 0; | |||
| 85766 | int info = 0; | |||
| 85767 | static char *capi_kwlist[] = {"m","n","p",NULL((void*)0)}; | |||
| 85768 | ||||
| 85769 | /*routdebugenter*/ | |||
| 85770 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85771 | f2py_start_clock(); | |||
| 85772 | #endif | |||
| 85773 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 85774 | "OOO:_flapack.zgglse_lwork",\ | |||
| 85775 | capi_kwlist,&m_capi,&n_capi,&p_capi)) | |||
| 85776 | return NULL((void*)0); | |||
| 85777 | /*frompyobj*/ | |||
| 85778 | /* Processing variable m */ | |||
| 85779 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgglse_lwork() 1st argument (m) can't be converted to int"); | |||
| 85780 | if (f2py_success) { | |||
| 85781 | CHECKSCALAR(m>=0,"m>=0","1st argument m","zgglse_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgglse_lwork:m=%d", "(""m>=0"") failed for ""1st argument m" , m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 85782 | /* Processing variable n */ | |||
| 85783 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgglse_lwork() 2nd argument (n) can't be converted to int"); | |||
| 85784 | if (f2py_success) { | |||
| 85785 | CHECKSCALAR(n>=0,"n>=0","2nd argument n","zgglse_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zgglse_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 85786 | /* Processing variable info */ | |||
| 85787 | /* Processing variable work */ | |||
| 85788 | /* Processing variable a */ | |||
| 85789 | /* Processing variable b */ | |||
| 85790 | /* Processing variable c */ | |||
| 85791 | /* Processing variable d */ | |||
| 85792 | /* Processing variable x */ | |||
| 85793 | /* Processing variable lwork */ | |||
| 85794 | lwork = -1; | |||
| 85795 | /* Processing variable p */ | |||
| 85796 | f2py_success = int_from_pyobj(&p,p_capi,"_flapack.zgglse_lwork() 3rd argument (p) can't be converted to int"); | |||
| 85797 | if (f2py_success) { | |||
| 85798 | CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n,"(p>=n-m)&&(p>=0)&&p<=n","3rd argument p","zgglse_lwork:p=%d",p)if (!((p>=n-m)&&(p>=0)&&p<=n)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgglse_lwork:p=%d", "(""(p>=n-m)&&(p>=0)&&p<=n" ") failed for ""3rd argument p", p); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 85799 | /* Processing variable lda */ | |||
| 85800 | lda = max(1,m)((1 > m) ? (1) : (m)); | |||
| 85801 | /* Processing variable ldb */ | |||
| 85802 | ldb = max(1,p)((1 > p) ? (1) : (p)); | |||
| 85803 | /*end of frompyobj*/ | |||
| 85804 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85805 | f2py_start_call_clock(); | |||
| 85806 | #endif | |||
| 85807 | /*callfortranroutine*/ | |||
| 85808 | (*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info) ; | |||
| 85809 | /*(*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info);*/ | |||
| 85810 | if (PyErr_Occurred()) | |||
| 85811 | f2py_success = 0; | |||
| 85812 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85813 | f2py_stop_call_clock(); | |||
| 85814 | #endif | |||
| 85815 | /*end of callfortranroutine*/ | |||
| 85816 | if (f2py_success) { | |||
| 85817 | /*pyobjfrom*/ | |||
| 85818 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 85819 | /*end of pyobjfrom*/ | |||
| 85820 | CFUNCSMESS("Building return value.\n"); | |||
| 85821 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 85822 | /*closepyobjfrom*/ | |||
| 85823 | /*end of closepyobjfrom*/ | |||
| 85824 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 85825 | /*cleanupfrompyobj*/ | |||
| 85826 | /* End of cleaning variable ldb */ | |||
| 85827 | /* End of cleaning variable lda */ | |||
| 85828 | } /*CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n)*/ | |||
| 85829 | } /*if (f2py_success) of p*/ | |||
| 85830 | /* End of cleaning variable p */ | |||
| 85831 | /* End of cleaning variable lwork */ | |||
| 85832 | /* End of cleaning variable x */ | |||
| 85833 | /* End of cleaning variable d */ | |||
| 85834 | /* End of cleaning variable c */ | |||
| 85835 | /* End of cleaning variable b */ | |||
| 85836 | /* End of cleaning variable a */ | |||
| 85837 | /* End of cleaning variable work */ | |||
| 85838 | /* End of cleaning variable info */ | |||
| 85839 | } /*CHECKSCALAR(n>=0)*/ | |||
| 85840 | } /*if (f2py_success) of n*/ | |||
| 85841 | /* End of cleaning variable n */ | |||
| 85842 | } /*CHECKSCALAR(m>=0)*/ | |||
| 85843 | } /*if (f2py_success) of m*/ | |||
| 85844 | /* End of cleaning variable m */ | |||
| 85845 | /*end of cleanupfrompyobj*/ | |||
| 85846 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 85847 | /*routdebugfailure*/ | |||
| 85848 | } else { | |||
| 85849 | /*routdebugleave*/ | |||
| 85850 | } | |||
| 85851 | CFUNCSMESS("Freeing memory.\n"); | |||
| 85852 | /*freemem*/ | |||
| 85853 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85854 | f2py_stop_clock(); | |||
| 85855 | #endif | |||
| 85856 | return capi_buildvalue; | |||
| 85857 | } | |||
| 85858 | /**************************** end of zgglse_lwork ****************************/ | |||
| 85859 | ||||
| 85860 | /*********************************** sppcon ***********************************/ | |||
| 85861 | static char doc_f2py_rout__flapack_sppcon[] = "\ | |||
| 85862 | rcond,info = sppcon(n,ap,anorm,[lower])\n\nWrapper for ``sppcon``.\ | |||
| 85863 | \n\nParameters\n----------\n" | |||
| 85864 | "n : input int\n" | |||
| 85865 | "ap : input rank-1 array('f') with bounds (L)\n" | |||
| 85866 | "anorm : input float\n" | |||
| 85867 | "\nOther Parameters\n----------------\n" | |||
| 85868 | "lower : input int, optional\n Default: 0\n" | |||
| 85869 | "\nReturns\n-------\n" | |||
| 85870 | "rcond : float\n" | |||
| 85871 | "info : int"; | |||
| 85872 | /* extern void F_FUNC(sppcon,SPPCON)(char*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */ | |||
| 85873 | static PyObject *f2py_rout__flapack_sppcon(const PyObject *capi_self, | |||
| 85874 | PyObject *capi_args, | |||
| 85875 | PyObject *capi_keywds, | |||
| 85876 | void (*f2py_func)(char*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 85877 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 85878 | volatile int f2py_success = 1; | |||
| 85879 | /*decl*/ | |||
| 85880 | ||||
| 85881 | int lower = 0; | |||
| 85882 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 85883 | int n = 0; | |||
| 85884 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 85885 | float *ap = NULL((void*)0); | |||
| 85886 | npy_intp ap_Dims[1] = {-1}; | |||
| 85887 | const int ap_Rank = 1; | |||
| 85888 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 85889 | int capi_ap_intent = 0; | |||
| 85890 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 85891 | float anorm = 0; | |||
| 85892 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 85893 | float rcond = 0; | |||
| 85894 | float *work = NULL((void*)0); | |||
| 85895 | npy_intp work_Dims[1] = {-1}; | |||
| 85896 | const int work_Rank = 1; | |||
| 85897 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 85898 | int capi_work_intent = 0; | |||
| 85899 | int *irwork = NULL((void*)0); | |||
| 85900 | npy_intp irwork_Dims[1] = {-1}; | |||
| 85901 | const int irwork_Rank = 1; | |||
| 85902 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 85903 | int capi_irwork_intent = 0; | |||
| 85904 | int info = 0; | |||
| 85905 | int L = 0; | |||
| 85906 | static char *capi_kwlist[] = {"n","ap","anorm","lower",NULL((void*)0)}; | |||
| 85907 | ||||
| 85908 | /*routdebugenter*/ | |||
| 85909 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85910 | f2py_start_clock(); | |||
| 85911 | #endif | |||
| 85912 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 85913 | "OOO|O:_flapack.sppcon",\ | |||
| 85914 | capi_kwlist,&n_capi,&ap_capi,&anorm_capi,&lower_capi)) | |||
| 85915 | return NULL((void*)0); | |||
| 85916 | /*frompyobj*/ | |||
| 85917 | /* Processing variable lower */ | |||
| 85918 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 85919 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.sppcon() 1st keyword (lower) can't be converted to int"); | |||
| 85920 | if (f2py_success) { | |||
| 85921 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","sppcon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sppcon:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 85922 | /* Processing variable n */ | |||
| 85923 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sppcon() 1st argument (n) can't be converted to int"); | |||
| 85924 | if (f2py_success) { | |||
| 85925 | CHECKSCALAR(n>=0,"n>=0","1st argument n","sppcon:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sppcon:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 85926 | /* Processing variable ap */ | |||
| 85927 | ; | |||
| 85928 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 85929 | capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 85930 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 85931 | if (!PyErr_Occurred()) | |||
| 85932 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.sppcon to C/Fortran array" ); | |||
| 85933 | } else { | |||
| 85934 | ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 85935 | ||||
| 85936 | /* Processing variable anorm */ | |||
| 85937 | f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.sppcon() 3rd argument (anorm) can't be converted to float"); | |||
| 85938 | if (f2py_success) { | |||
| 85939 | /* Processing variable rcond */ | |||
| 85940 | /* Processing variable info */ | |||
| 85941 | /* Processing variable L */ | |||
| 85942 | L = len(ap)ap_Dims[0]; | |||
| 85943 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","sppcon:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sppcon:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 85944 | /* Processing variable work */ | |||
| 85945 | work_Dims[0]=3 * n; | |||
| 85946 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 85947 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 85948 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 85949 | if (!PyErr_Occurred()) | |||
| 85950 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sppcon to C/Fortran array" ); | |||
| 85951 | } else { | |||
| 85952 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 85953 | ||||
| 85954 | /* Processing variable irwork */ | |||
| 85955 | irwork_Dims[0]=n; | |||
| 85956 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 85957 | capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 85958 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 85959 | if (!PyErr_Occurred()) | |||
| 85960 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.sppcon to C/Fortran array" ); | |||
| 85961 | } else { | |||
| 85962 | irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 85963 | ||||
| 85964 | /*end of frompyobj*/ | |||
| 85965 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85966 | f2py_start_call_clock(); | |||
| 85967 | #endif | |||
| 85968 | /*callfortranroutine*/ | |||
| 85969 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 85970 | (*f2py_func)((lower?"L":"U"),&n,ap,&anorm,&rcond,work,irwork,&info) ; | |||
| 85971 | /*(*f2py_func)(&lower,&n,ap,&anorm,&rcond,work,irwork,&info,&L);*/ | |||
| 85972 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 85973 | if (PyErr_Occurred()) | |||
| 85974 | f2py_success = 0; | |||
| 85975 | #ifdef F2PY_REPORT_ATEXIT | |||
| 85976 | f2py_stop_call_clock(); | |||
| 85977 | #endif | |||
| 85978 | /*end of callfortranroutine*/ | |||
| 85979 | if (f2py_success) { | |||
| 85980 | /*pyobjfrom*/ | |||
| 85981 | /*end of pyobjfrom*/ | |||
| 85982 | CFUNCSMESS("Building return value.\n"); | |||
| 85983 | capi_buildvalue = Py_BuildValue("fi",rcond,info); | |||
| 85984 | /*closepyobjfrom*/ | |||
| 85985 | /*end of closepyobjfrom*/ | |||
| 85986 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 85987 | /*cleanupfrompyobj*/ | |||
| 85988 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 85989 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 85990 | /* End of cleaning variable irwork */ | |||
| 85991 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 85992 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 85993 | /* End of cleaning variable work */ | |||
| 85994 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 85995 | /* End of cleaning variable L */ | |||
| 85996 | /* End of cleaning variable info */ | |||
| 85997 | /* End of cleaning variable rcond */ | |||
| 85998 | } /*if (f2py_success) of anorm*/ | |||
| 85999 | /* End of cleaning variable anorm */ | |||
| 86000 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 86001 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 86002 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 86003 | /* End of cleaning variable ap */ | |||
| 86004 | } /*CHECKSCALAR(n>=0)*/ | |||
| 86005 | } /*if (f2py_success) of n*/ | |||
| 86006 | /* End of cleaning variable n */ | |||
| 86007 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 86008 | } /*if (f2py_success) of lower*/ | |||
| 86009 | /* End of cleaning variable lower */ | |||
| 86010 | /*end of cleanupfrompyobj*/ | |||
| 86011 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 86012 | /*routdebugfailure*/ | |||
| 86013 | } else { | |||
| 86014 | /*routdebugleave*/ | |||
| 86015 | } | |||
| 86016 | CFUNCSMESS("Freeing memory.\n"); | |||
| 86017 | /*freemem*/ | |||
| 86018 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86019 | f2py_stop_clock(); | |||
| 86020 | #endif | |||
| 86021 | return capi_buildvalue; | |||
| 86022 | } | |||
| 86023 | /******************************* end of sppcon *******************************/ | |||
| 86024 | ||||
| 86025 | /*********************************** dppcon ***********************************/ | |||
| 86026 | static char doc_f2py_rout__flapack_dppcon[] = "\ | |||
| 86027 | rcond,info = dppcon(n,ap,anorm,[lower])\n\nWrapper for ``dppcon``.\ | |||
| 86028 | \n\nParameters\n----------\n" | |||
| 86029 | "n : input int\n" | |||
| 86030 | "ap : input rank-1 array('d') with bounds (L)\n" | |||
| 86031 | "anorm : input float\n" | |||
| 86032 | "\nOther Parameters\n----------------\n" | |||
| 86033 | "lower : input int, optional\n Default: 0\n" | |||
| 86034 | "\nReturns\n-------\n" | |||
| 86035 | "rcond : float\n" | |||
| 86036 | "info : int"; | |||
| 86037 | /* extern void F_FUNC(dppcon,DPPCON)(char*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */ | |||
| 86038 | static PyObject *f2py_rout__flapack_dppcon(const PyObject *capi_self, | |||
| 86039 | PyObject *capi_args, | |||
| 86040 | PyObject *capi_keywds, | |||
| 86041 | void (*f2py_func)(char*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 86042 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 86043 | volatile int f2py_success = 1; | |||
| 86044 | /*decl*/ | |||
| 86045 | ||||
| 86046 | int lower = 0; | |||
| 86047 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 86048 | int n = 0; | |||
| 86049 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 86050 | double *ap = NULL((void*)0); | |||
| 86051 | npy_intp ap_Dims[1] = {-1}; | |||
| 86052 | const int ap_Rank = 1; | |||
| 86053 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 86054 | int capi_ap_intent = 0; | |||
| 86055 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 86056 | double anorm = 0; | |||
| 86057 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 86058 | double rcond = 0; | |||
| 86059 | double *work = NULL((void*)0); | |||
| 86060 | npy_intp work_Dims[1] = {-1}; | |||
| 86061 | const int work_Rank = 1; | |||
| 86062 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 86063 | int capi_work_intent = 0; | |||
| 86064 | int *irwork = NULL((void*)0); | |||
| 86065 | npy_intp irwork_Dims[1] = {-1}; | |||
| 86066 | const int irwork_Rank = 1; | |||
| 86067 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 86068 | int capi_irwork_intent = 0; | |||
| 86069 | int info = 0; | |||
| 86070 | int L = 0; | |||
| 86071 | static char *capi_kwlist[] = {"n","ap","anorm","lower",NULL((void*)0)}; | |||
| 86072 | ||||
| 86073 | /*routdebugenter*/ | |||
| 86074 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86075 | f2py_start_clock(); | |||
| 86076 | #endif | |||
| 86077 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 86078 | "OOO|O:_flapack.dppcon",\ | |||
| 86079 | capi_kwlist,&n_capi,&ap_capi,&anorm_capi,&lower_capi)) | |||
| 86080 | return NULL((void*)0); | |||
| 86081 | /*frompyobj*/ | |||
| 86082 | /* Processing variable lower */ | |||
| 86083 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 86084 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dppcon() 1st keyword (lower) can't be converted to int"); | |||
| 86085 | if (f2py_success) { | |||
| 86086 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dppcon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dppcon:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 86087 | /* Processing variable n */ | |||
| 86088 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dppcon() 1st argument (n) can't be converted to int"); | |||
| 86089 | if (f2py_success) { | |||
| 86090 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dppcon:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dppcon:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 86091 | /* Processing variable ap */ | |||
| 86092 | ; | |||
| 86093 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 86094 | capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 86095 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 86096 | if (!PyErr_Occurred()) | |||
| 86097 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dppcon to C/Fortran array" ); | |||
| 86098 | } else { | |||
| 86099 | ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 86100 | ||||
| 86101 | /* Processing variable anorm */ | |||
| 86102 | f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.dppcon() 3rd argument (anorm) can't be converted to double"); | |||
| 86103 | if (f2py_success) { | |||
| 86104 | /* Processing variable rcond */ | |||
| 86105 | /* Processing variable info */ | |||
| 86106 | /* Processing variable L */ | |||
| 86107 | L = len(ap)ap_Dims[0]; | |||
| 86108 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","dppcon:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dppcon:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 86109 | /* Processing variable work */ | |||
| 86110 | work_Dims[0]=3 * n; | |||
| 86111 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 86112 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 86113 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 86114 | if (!PyErr_Occurred()) | |||
| 86115 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dppcon to C/Fortran array" ); | |||
| 86116 | } else { | |||
| 86117 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 86118 | ||||
| 86119 | /* Processing variable irwork */ | |||
| 86120 | irwork_Dims[0]=n; | |||
| 86121 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 86122 | capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 86123 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 86124 | if (!PyErr_Occurred()) | |||
| 86125 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.dppcon to C/Fortran array" ); | |||
| 86126 | } else { | |||
| 86127 | irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 86128 | ||||
| 86129 | /*end of frompyobj*/ | |||
| 86130 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86131 | f2py_start_call_clock(); | |||
| 86132 | #endif | |||
| 86133 | /*callfortranroutine*/ | |||
| 86134 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 86135 | (*f2py_func)((lower?"L":"U"),&n,ap,&anorm,&rcond,work,irwork,&info) ; | |||
| 86136 | /*(*f2py_func)(&lower,&n,ap,&anorm,&rcond,work,irwork,&info,&L);*/ | |||
| 86137 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 86138 | if (PyErr_Occurred()) | |||
| 86139 | f2py_success = 0; | |||
| 86140 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86141 | f2py_stop_call_clock(); | |||
| 86142 | #endif | |||
| 86143 | /*end of callfortranroutine*/ | |||
| 86144 | if (f2py_success) { | |||
| 86145 | /*pyobjfrom*/ | |||
| 86146 | /*end of pyobjfrom*/ | |||
| 86147 | CFUNCSMESS("Building return value.\n"); | |||
| 86148 | capi_buildvalue = Py_BuildValue("di",rcond,info); | |||
| 86149 | /*closepyobjfrom*/ | |||
| 86150 | /*end of closepyobjfrom*/ | |||
| 86151 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 86152 | /*cleanupfrompyobj*/ | |||
| 86153 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 86154 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 86155 | /* End of cleaning variable irwork */ | |||
| 86156 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 86157 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 86158 | /* End of cleaning variable work */ | |||
| 86159 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 86160 | /* End of cleaning variable L */ | |||
| 86161 | /* End of cleaning variable info */ | |||
| 86162 | /* End of cleaning variable rcond */ | |||
| 86163 | } /*if (f2py_success) of anorm*/ | |||
| 86164 | /* End of cleaning variable anorm */ | |||
| 86165 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 86166 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 86167 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 86168 | /* End of cleaning variable ap */ | |||
| 86169 | } /*CHECKSCALAR(n>=0)*/ | |||
| 86170 | } /*if (f2py_success) of n*/ | |||
| 86171 | /* End of cleaning variable n */ | |||
| 86172 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 86173 | } /*if (f2py_success) of lower*/ | |||
| 86174 | /* End of cleaning variable lower */ | |||
| 86175 | /*end of cleanupfrompyobj*/ | |||
| 86176 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 86177 | /*routdebugfailure*/ | |||
| 86178 | } else { | |||
| 86179 | /*routdebugleave*/ | |||
| 86180 | } | |||
| 86181 | CFUNCSMESS("Freeing memory.\n"); | |||
| 86182 | /*freemem*/ | |||
| 86183 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86184 | f2py_stop_clock(); | |||
| 86185 | #endif | |||
| 86186 | return capi_buildvalue; | |||
| 86187 | } | |||
| 86188 | /******************************* end of dppcon *******************************/ | |||
| 86189 | ||||
| 86190 | /*********************************** cppcon ***********************************/ | |||
| 86191 | static char doc_f2py_rout__flapack_cppcon[] = "\ | |||
| 86192 | rcond,info = cppcon(n,ap,anorm,[lower])\n\nWrapper for ``cppcon``.\ | |||
| 86193 | \n\nParameters\n----------\n" | |||
| 86194 | "n : input int\n" | |||
| 86195 | "ap : input rank-1 array('F') with bounds (L)\n" | |||
| 86196 | "anorm : input float\n" | |||
| 86197 | "\nOther Parameters\n----------------\n" | |||
| 86198 | "lower : input int, optional\n Default: 0\n" | |||
| 86199 | "\nReturns\n-------\n" | |||
| 86200 | "rcond : float\n" | |||
| 86201 | "info : int"; | |||
| 86202 | /* extern void F_FUNC(cppcon,CPPCON)(char*,F_INT*,complex_float*,float*,float*,complex_float*,float*,F_INT* ); */ | |||
| 86203 | static PyObject *f2py_rout__flapack_cppcon(const PyObject *capi_self, | |||
| 86204 | PyObject *capi_args, | |||
| 86205 | PyObject *capi_keywds, | |||
| 86206 | void (*f2py_func)(char*,F_INTint*,complex_float*,float*,float*,complex_float*,float*,F_INTint* )) { | |||
| 86207 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 86208 | volatile int f2py_success = 1; | |||
| 86209 | /*decl*/ | |||
| 86210 | ||||
| 86211 | int lower = 0; | |||
| 86212 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 86213 | int n = 0; | |||
| 86214 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 86215 | complex_float *ap = NULL((void*)0); | |||
| 86216 | npy_intp ap_Dims[1] = {-1}; | |||
| 86217 | const int ap_Rank = 1; | |||
| 86218 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 86219 | int capi_ap_intent = 0; | |||
| 86220 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 86221 | float anorm = 0; | |||
| 86222 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 86223 | float rcond = 0; | |||
| 86224 | complex_float *work = NULL((void*)0); | |||
| 86225 | npy_intp work_Dims[1] = {-1}; | |||
| 86226 | const int work_Rank = 1; | |||
| 86227 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 86228 | int capi_work_intent = 0; | |||
| 86229 | float *irwork = NULL((void*)0); | |||
| 86230 | npy_intp irwork_Dims[1] = {-1}; | |||
| 86231 | const int irwork_Rank = 1; | |||
| 86232 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 86233 | int capi_irwork_intent = 0; | |||
| 86234 | int info = 0; | |||
| 86235 | int L = 0; | |||
| 86236 | static char *capi_kwlist[] = {"n","ap","anorm","lower",NULL((void*)0)}; | |||
| 86237 | ||||
| 86238 | /*routdebugenter*/ | |||
| 86239 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86240 | f2py_start_clock(); | |||
| 86241 | #endif | |||
| 86242 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 86243 | "OOO|O:_flapack.cppcon",\ | |||
| 86244 | capi_kwlist,&n_capi,&ap_capi,&anorm_capi,&lower_capi)) | |||
| 86245 | return NULL((void*)0); | |||
| 86246 | /*frompyobj*/ | |||
| 86247 | /* Processing variable lower */ | |||
| 86248 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 86249 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cppcon() 1st keyword (lower) can't be converted to int"); | |||
| 86250 | if (f2py_success) { | |||
| 86251 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cppcon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cppcon:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 86252 | /* Processing variable n */ | |||
| 86253 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cppcon() 1st argument (n) can't be converted to int"); | |||
| 86254 | if (f2py_success) { | |||
| 86255 | CHECKSCALAR(n>=0,"n>=0","1st argument n","cppcon:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cppcon:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 86256 | /* Processing variable ap */ | |||
| 86257 | ; | |||
| 86258 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 86259 | capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 86260 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 86261 | if (!PyErr_Occurred()) | |||
| 86262 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.cppcon to C/Fortran array" ); | |||
| 86263 | } else { | |||
| 86264 | ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 86265 | ||||
| 86266 | /* Processing variable anorm */ | |||
| 86267 | f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.cppcon() 3rd argument (anorm) can't be converted to float"); | |||
| 86268 | if (f2py_success) { | |||
| 86269 | /* Processing variable rcond */ | |||
| 86270 | /* Processing variable info */ | |||
| 86271 | /* Processing variable L */ | |||
| 86272 | L = len(ap)ap_Dims[0]; | |||
| 86273 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","cppcon:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cppcon:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 86274 | /* Processing variable work */ | |||
| 86275 | work_Dims[0]=2 * n; | |||
| 86276 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 86277 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 86278 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 86279 | if (!PyErr_Occurred()) | |||
| 86280 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cppcon to C/Fortran array" ); | |||
| 86281 | } else { | |||
| 86282 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 86283 | ||||
| 86284 | /* Processing variable irwork */ | |||
| 86285 | irwork_Dims[0]=n; | |||
| 86286 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 86287 | capi_irwork_tmp = array_from_pyobj(NPY_FLOAT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 86288 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 86289 | if (!PyErr_Occurred()) | |||
| 86290 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.cppcon to C/Fortran array" ); | |||
| 86291 | } else { | |||
| 86292 | irwork = (float *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 86293 | ||||
| 86294 | /*end of frompyobj*/ | |||
| 86295 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86296 | f2py_start_call_clock(); | |||
| 86297 | #endif | |||
| 86298 | /*callfortranroutine*/ | |||
| 86299 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 86300 | (*f2py_func)((lower?"L":"U"),&n,ap,&anorm,&rcond,work,irwork,&info) ; | |||
| 86301 | /*(*f2py_func)(&lower,&n,ap,&anorm,&rcond,work,irwork,&info,&L);*/ | |||
| 86302 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 86303 | if (PyErr_Occurred()) | |||
| 86304 | f2py_success = 0; | |||
| 86305 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86306 | f2py_stop_call_clock(); | |||
| 86307 | #endif | |||
| 86308 | /*end of callfortranroutine*/ | |||
| 86309 | if (f2py_success) { | |||
| 86310 | /*pyobjfrom*/ | |||
| 86311 | /*end of pyobjfrom*/ | |||
| 86312 | CFUNCSMESS("Building return value.\n"); | |||
| 86313 | capi_buildvalue = Py_BuildValue("fi",rcond,info); | |||
| 86314 | /*closepyobjfrom*/ | |||
| 86315 | /*end of closepyobjfrom*/ | |||
| 86316 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 86317 | /*cleanupfrompyobj*/ | |||
| 86318 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 86319 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 86320 | /* End of cleaning variable irwork */ | |||
| 86321 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 86322 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 86323 | /* End of cleaning variable work */ | |||
| 86324 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 86325 | /* End of cleaning variable L */ | |||
| 86326 | /* End of cleaning variable info */ | |||
| 86327 | /* End of cleaning variable rcond */ | |||
| 86328 | } /*if (f2py_success) of anorm*/ | |||
| 86329 | /* End of cleaning variable anorm */ | |||
| 86330 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 86331 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 86332 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 86333 | /* End of cleaning variable ap */ | |||
| 86334 | } /*CHECKSCALAR(n>=0)*/ | |||
| 86335 | } /*if (f2py_success) of n*/ | |||
| 86336 | /* End of cleaning variable n */ | |||
| 86337 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 86338 | } /*if (f2py_success) of lower*/ | |||
| 86339 | /* End of cleaning variable lower */ | |||
| 86340 | /*end of cleanupfrompyobj*/ | |||
| 86341 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 86342 | /*routdebugfailure*/ | |||
| 86343 | } else { | |||
| 86344 | /*routdebugleave*/ | |||
| 86345 | } | |||
| 86346 | CFUNCSMESS("Freeing memory.\n"); | |||
| 86347 | /*freemem*/ | |||
| 86348 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86349 | f2py_stop_clock(); | |||
| 86350 | #endif | |||
| 86351 | return capi_buildvalue; | |||
| 86352 | } | |||
| 86353 | /******************************* end of cppcon *******************************/ | |||
| 86354 | ||||
| 86355 | /*********************************** zppcon ***********************************/ | |||
| 86356 | static char doc_f2py_rout__flapack_zppcon[] = "\ | |||
| 86357 | rcond,info = zppcon(n,ap,anorm,[lower])\n\nWrapper for ``zppcon``.\ | |||
| 86358 | \n\nParameters\n----------\n" | |||
| 86359 | "n : input int\n" | |||
| 86360 | "ap : input rank-1 array('D') with bounds (L)\n" | |||
| 86361 | "anorm : input float\n" | |||
| 86362 | "\nOther Parameters\n----------------\n" | |||
| 86363 | "lower : input int, optional\n Default: 0\n" | |||
| 86364 | "\nReturns\n-------\n" | |||
| 86365 | "rcond : float\n" | |||
| 86366 | "info : int"; | |||
| 86367 | /* extern void F_FUNC(zppcon,ZPPCON)(char*,F_INT*,complex_double*,double*,double*,complex_double*,double*,F_INT* ); */ | |||
| 86368 | static PyObject *f2py_rout__flapack_zppcon(const PyObject *capi_self, | |||
| 86369 | PyObject *capi_args, | |||
| 86370 | PyObject *capi_keywds, | |||
| 86371 | void (*f2py_func)(char*,F_INTint*,complex_double*,double*,double*,complex_double*,double*,F_INTint* )) { | |||
| 86372 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 86373 | volatile int f2py_success = 1; | |||
| 86374 | /*decl*/ | |||
| 86375 | ||||
| 86376 | int lower = 0; | |||
| 86377 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 86378 | int n = 0; | |||
| 86379 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 86380 | complex_double *ap = NULL((void*)0); | |||
| 86381 | npy_intp ap_Dims[1] = {-1}; | |||
| 86382 | const int ap_Rank = 1; | |||
| 86383 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 86384 | int capi_ap_intent = 0; | |||
| 86385 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 86386 | double anorm = 0; | |||
| 86387 | PyObject *anorm_capi = Py_None(&_Py_NoneStruct); | |||
| 86388 | double rcond = 0; | |||
| 86389 | complex_double *work = NULL((void*)0); | |||
| 86390 | npy_intp work_Dims[1] = {-1}; | |||
| 86391 | const int work_Rank = 1; | |||
| 86392 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 86393 | int capi_work_intent = 0; | |||
| 86394 | double *irwork = NULL((void*)0); | |||
| 86395 | npy_intp irwork_Dims[1] = {-1}; | |||
| 86396 | const int irwork_Rank = 1; | |||
| 86397 | PyArrayObject *capi_irwork_tmp = NULL((void*)0); | |||
| 86398 | int capi_irwork_intent = 0; | |||
| 86399 | int info = 0; | |||
| 86400 | int L = 0; | |||
| 86401 | static char *capi_kwlist[] = {"n","ap","anorm","lower",NULL((void*)0)}; | |||
| 86402 | ||||
| 86403 | /*routdebugenter*/ | |||
| 86404 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86405 | f2py_start_clock(); | |||
| 86406 | #endif | |||
| 86407 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 86408 | "OOO|O:_flapack.zppcon",\ | |||
| 86409 | capi_kwlist,&n_capi,&ap_capi,&anorm_capi,&lower_capi)) | |||
| 86410 | return NULL((void*)0); | |||
| 86411 | /*frompyobj*/ | |||
| 86412 | /* Processing variable lower */ | |||
| 86413 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 86414 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zppcon() 1st keyword (lower) can't be converted to int"); | |||
| 86415 | if (f2py_success) { | |||
| 86416 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zppcon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zppcon:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 86417 | /* Processing variable n */ | |||
| 86418 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zppcon() 1st argument (n) can't be converted to int"); | |||
| 86419 | if (f2py_success) { | |||
| 86420 | CHECKSCALAR(n>=0,"n>=0","1st argument n","zppcon:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zppcon:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 86421 | /* Processing variable ap */ | |||
| 86422 | ; | |||
| 86423 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 86424 | capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 86425 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 86426 | if (!PyErr_Occurred()) | |||
| 86427 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.zppcon to C/Fortran array" ); | |||
| 86428 | } else { | |||
| 86429 | ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 86430 | ||||
| 86431 | /* Processing variable anorm */ | |||
| 86432 | f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.zppcon() 3rd argument (anorm) can't be converted to double"); | |||
| 86433 | if (f2py_success) { | |||
| 86434 | /* Processing variable rcond */ | |||
| 86435 | /* Processing variable info */ | |||
| 86436 | /* Processing variable L */ | |||
| 86437 | L = len(ap)ap_Dims[0]; | |||
| 86438 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","zppcon:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zppcon:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 86439 | /* Processing variable work */ | |||
| 86440 | work_Dims[0]=2 * n; | |||
| 86441 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 86442 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 86443 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 86444 | if (!PyErr_Occurred()) | |||
| 86445 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zppcon to C/Fortran array" ); | |||
| 86446 | } else { | |||
| 86447 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 86448 | ||||
| 86449 | /* Processing variable irwork */ | |||
| 86450 | irwork_Dims[0]=n; | |||
| 86451 | capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 86452 | capi_irwork_tmp = array_from_pyobj(NPY_DOUBLE,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 86453 | if (capi_irwork_tmp == NULL((void*)0)) { | |||
| 86454 | if (!PyErr_Occurred()) | |||
| 86455 | PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.zppcon to C/Fortran array" ); | |||
| 86456 | } else { | |||
| 86457 | irwork = (double *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data )); | |||
| 86458 | ||||
| 86459 | /*end of frompyobj*/ | |||
| 86460 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86461 | f2py_start_call_clock(); | |||
| 86462 | #endif | |||
| 86463 | /*callfortranroutine*/ | |||
| 86464 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 86465 | (*f2py_func)((lower?"L":"U"),&n,ap,&anorm,&rcond,work,irwork,&info) ; | |||
| 86466 | /*(*f2py_func)(&lower,&n,ap,&anorm,&rcond,work,irwork,&info,&L);*/ | |||
| 86467 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 86468 | if (PyErr_Occurred()) | |||
| 86469 | f2py_success = 0; | |||
| 86470 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86471 | f2py_stop_call_clock(); | |||
| 86472 | #endif | |||
| 86473 | /*end of callfortranroutine*/ | |||
| 86474 | if (f2py_success) { | |||
| 86475 | /*pyobjfrom*/ | |||
| 86476 | /*end of pyobjfrom*/ | |||
| 86477 | CFUNCSMESS("Building return value.\n"); | |||
| 86478 | capi_buildvalue = Py_BuildValue("di",rcond,info); | |||
| 86479 | /*closepyobjfrom*/ | |||
| 86480 | /*end of closepyobjfrom*/ | |||
| 86481 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 86482 | /*cleanupfrompyobj*/ | |||
| 86483 | Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp))); | |||
| 86484 | } /*if (capi_irwork_tmp == NULL) ... else of irwork*/ | |||
| 86485 | /* End of cleaning variable irwork */ | |||
| 86486 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 86487 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 86488 | /* End of cleaning variable work */ | |||
| 86489 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 86490 | /* End of cleaning variable L */ | |||
| 86491 | /* End of cleaning variable info */ | |||
| 86492 | /* End of cleaning variable rcond */ | |||
| 86493 | } /*if (f2py_success) of anorm*/ | |||
| 86494 | /* End of cleaning variable anorm */ | |||
| 86495 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 86496 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 86497 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 86498 | /* End of cleaning variable ap */ | |||
| 86499 | } /*CHECKSCALAR(n>=0)*/ | |||
| 86500 | } /*if (f2py_success) of n*/ | |||
| 86501 | /* End of cleaning variable n */ | |||
| 86502 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 86503 | } /*if (f2py_success) of lower*/ | |||
| 86504 | /* End of cleaning variable lower */ | |||
| 86505 | /*end of cleanupfrompyobj*/ | |||
| 86506 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 86507 | /*routdebugfailure*/ | |||
| 86508 | } else { | |||
| 86509 | /*routdebugleave*/ | |||
| 86510 | } | |||
| 86511 | CFUNCSMESS("Freeing memory.\n"); | |||
| 86512 | /*freemem*/ | |||
| 86513 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86514 | f2py_stop_clock(); | |||
| 86515 | #endif | |||
| 86516 | return capi_buildvalue; | |||
| 86517 | } | |||
| 86518 | /******************************* end of zppcon *******************************/ | |||
| 86519 | ||||
| 86520 | /*********************************** sppsv ***********************************/ | |||
| 86521 | static char doc_f2py_rout__flapack_sppsv[] = "\ | |||
| 86522 | x,info = sppsv(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``sppsv``.\ | |||
| 86523 | \n\nParameters\n----------\n" | |||
| 86524 | "n : input int\n" | |||
| 86525 | "ap : input rank-1 array('f') with bounds (L)\n" | |||
| 86526 | "b : input rank-2 array('f') with bounds (ldb,nrhs)\n" | |||
| 86527 | "\nOther Parameters\n----------------\n" | |||
| 86528 | "lower : input int, optional\n Default: 0\n" | |||
| 86529 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 86530 | "\nReturns\n-------\n" | |||
| 86531 | "x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n" | |||
| 86532 | "info : int"; | |||
| 86533 | /* extern void F_FUNC(sppsv,SPPSV)(char*,F_INT*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 86534 | static PyObject *f2py_rout__flapack_sppsv(const PyObject *capi_self, | |||
| 86535 | PyObject *capi_args, | |||
| 86536 | PyObject *capi_keywds, | |||
| 86537 | void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 86538 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 86539 | volatile int f2py_success = 1; | |||
| 86540 | /*decl*/ | |||
| 86541 | ||||
| 86542 | int lower = 0; | |||
| 86543 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 86544 | int n = 0; | |||
| 86545 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 86546 | int nrhs = 0; | |||
| 86547 | float *ap = NULL((void*)0); | |||
| 86548 | npy_intp ap_Dims[1] = {-1}; | |||
| 86549 | const int ap_Rank = 1; | |||
| 86550 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 86551 | int capi_ap_intent = 0; | |||
| 86552 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 86553 | float *b = NULL((void*)0); | |||
| 86554 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 86555 | const int b_Rank = 2; | |||
| 86556 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 86557 | int capi_b_intent = 0; | |||
| 86558 | int capi_overwrite_b = 0; | |||
| 86559 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 86560 | int ldb = 0; | |||
| 86561 | int info = 0; | |||
| 86562 | int L = 0; | |||
| 86563 | static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 86564 | ||||
| 86565 | /*routdebugenter*/ | |||
| 86566 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86567 | f2py_start_clock(); | |||
| 86568 | #endif | |||
| 86569 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 86570 | "OOO|Oi:_flapack.sppsv",\ | |||
| 86571 | capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 86572 | return NULL((void*)0); | |||
| 86573 | /*frompyobj*/ | |||
| 86574 | /* Processing variable lower */ | |||
| 86575 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 86576 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.sppsv() 1st keyword (lower) can't be converted to int"); | |||
| 86577 | if (f2py_success) { | |||
| 86578 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","sppsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sppsv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 86579 | /* Processing variable n */ | |||
| 86580 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sppsv() 1st argument (n) can't be converted to int"); | |||
| 86581 | if (f2py_success) { | |||
| 86582 | CHECKSCALAR(n>=0,"n>=0","1st argument n","sppsv:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sppsv:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 86583 | /* Processing variable ap */ | |||
| 86584 | ; | |||
| 86585 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 86586 | capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 86587 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 86588 | if (!PyErr_Occurred()) | |||
| 86589 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.sppsv to C/Fortran array" ); | |||
| 86590 | } else { | |||
| 86591 | ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 86592 | ||||
| 86593 | /* Processing variable b */ | |||
| 86594 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 86595 | ; | |||
| 86596 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 86597 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 86598 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 86599 | if (!PyErr_Occurred()) | |||
| 86600 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.sppsv to C/Fortran array" ); | |||
| 86601 | } else { | |||
| 86602 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 86603 | ||||
| 86604 | /* Processing variable info */ | |||
| 86605 | /* Processing variable ldb */ | |||
| 86606 | ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 86607 | /* Processing variable nrhs */ | |||
| 86608 | nrhs = shape(b,1)b_Dims[1]; | |||
| 86609 | /* Processing variable L */ | |||
| 86610 | L = len(ap)ap_Dims[0]; | |||
| 86611 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","sppsv:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sppsv:L=%d", "(""L>=(n*(n+1)/2)"") failed for ""hidden L" , L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 86612 | /*end of frompyobj*/ | |||
| 86613 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86614 | f2py_start_call_clock(); | |||
| 86615 | #endif | |||
| 86616 | /*callfortranroutine*/ | |||
| 86617 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 86618 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ; | |||
| 86619 | /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/ | |||
| 86620 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 86621 | if (PyErr_Occurred()) | |||
| 86622 | f2py_success = 0; | |||
| 86623 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86624 | f2py_stop_call_clock(); | |||
| 86625 | #endif | |||
| 86626 | /*end of callfortranroutine*/ | |||
| 86627 | if (f2py_success) { | |||
| 86628 | /*pyobjfrom*/ | |||
| 86629 | /*end of pyobjfrom*/ | |||
| 86630 | CFUNCSMESS("Building return value.\n"); | |||
| 86631 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 86632 | /*closepyobjfrom*/ | |||
| 86633 | /*end of closepyobjfrom*/ | |||
| 86634 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 86635 | /*cleanupfrompyobj*/ | |||
| 86636 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 86637 | /* End of cleaning variable L */ | |||
| 86638 | /* End of cleaning variable nrhs */ | |||
| 86639 | /* End of cleaning variable ldb */ | |||
| 86640 | /* End of cleaning variable info */ | |||
| 86641 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 86642 | /* End of cleaning variable b */ | |||
| 86643 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 86644 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 86645 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 86646 | /* End of cleaning variable ap */ | |||
| 86647 | } /*CHECKSCALAR(n>=0)*/ | |||
| 86648 | } /*if (f2py_success) of n*/ | |||
| 86649 | /* End of cleaning variable n */ | |||
| 86650 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 86651 | } /*if (f2py_success) of lower*/ | |||
| 86652 | /* End of cleaning variable lower */ | |||
| 86653 | /*end of cleanupfrompyobj*/ | |||
| 86654 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 86655 | /*routdebugfailure*/ | |||
| 86656 | } else { | |||
| 86657 | /*routdebugleave*/ | |||
| 86658 | } | |||
| 86659 | CFUNCSMESS("Freeing memory.\n"); | |||
| 86660 | /*freemem*/ | |||
| 86661 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86662 | f2py_stop_clock(); | |||
| 86663 | #endif | |||
| 86664 | return capi_buildvalue; | |||
| 86665 | } | |||
| 86666 | /******************************** end of sppsv ********************************/ | |||
| 86667 | ||||
| 86668 | /*********************************** dppsv ***********************************/ | |||
| 86669 | static char doc_f2py_rout__flapack_dppsv[] = "\ | |||
| 86670 | x,info = dppsv(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``dppsv``.\ | |||
| 86671 | \n\nParameters\n----------\n" | |||
| 86672 | "n : input int\n" | |||
| 86673 | "ap : input rank-1 array('d') with bounds (L)\n" | |||
| 86674 | "b : input rank-2 array('d') with bounds (ldb,nrhs)\n" | |||
| 86675 | "\nOther Parameters\n----------------\n" | |||
| 86676 | "lower : input int, optional\n Default: 0\n" | |||
| 86677 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 86678 | "\nReturns\n-------\n" | |||
| 86679 | "x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n" | |||
| 86680 | "info : int"; | |||
| 86681 | /* extern void F_FUNC(dppsv,DPPSV)(char*,F_INT*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 86682 | static PyObject *f2py_rout__flapack_dppsv(const PyObject *capi_self, | |||
| 86683 | PyObject *capi_args, | |||
| 86684 | PyObject *capi_keywds, | |||
| 86685 | void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 86686 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 86687 | volatile int f2py_success = 1; | |||
| 86688 | /*decl*/ | |||
| 86689 | ||||
| 86690 | int lower = 0; | |||
| 86691 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 86692 | int n = 0; | |||
| 86693 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 86694 | int nrhs = 0; | |||
| 86695 | double *ap = NULL((void*)0); | |||
| 86696 | npy_intp ap_Dims[1] = {-1}; | |||
| 86697 | const int ap_Rank = 1; | |||
| 86698 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 86699 | int capi_ap_intent = 0; | |||
| 86700 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 86701 | double *b = NULL((void*)0); | |||
| 86702 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 86703 | const int b_Rank = 2; | |||
| 86704 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 86705 | int capi_b_intent = 0; | |||
| 86706 | int capi_overwrite_b = 0; | |||
| 86707 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 86708 | int ldb = 0; | |||
| 86709 | int info = 0; | |||
| 86710 | int L = 0; | |||
| 86711 | static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 86712 | ||||
| 86713 | /*routdebugenter*/ | |||
| 86714 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86715 | f2py_start_clock(); | |||
| 86716 | #endif | |||
| 86717 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 86718 | "OOO|Oi:_flapack.dppsv",\ | |||
| 86719 | capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 86720 | return NULL((void*)0); | |||
| 86721 | /*frompyobj*/ | |||
| 86722 | /* Processing variable lower */ | |||
| 86723 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 86724 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dppsv() 1st keyword (lower) can't be converted to int"); | |||
| 86725 | if (f2py_success) { | |||
| 86726 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dppsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dppsv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 86727 | /* Processing variable n */ | |||
| 86728 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dppsv() 1st argument (n) can't be converted to int"); | |||
| 86729 | if (f2py_success) { | |||
| 86730 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dppsv:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dppsv:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 86731 | /* Processing variable ap */ | |||
| 86732 | ; | |||
| 86733 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 86734 | capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 86735 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 86736 | if (!PyErr_Occurred()) | |||
| 86737 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dppsv to C/Fortran array" ); | |||
| 86738 | } else { | |||
| 86739 | ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 86740 | ||||
| 86741 | /* Processing variable b */ | |||
| 86742 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 86743 | ; | |||
| 86744 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 86745 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 86746 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 86747 | if (!PyErr_Occurred()) | |||
| 86748 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dppsv to C/Fortran array" ); | |||
| 86749 | } else { | |||
| 86750 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 86751 | ||||
| 86752 | /* Processing variable info */ | |||
| 86753 | /* Processing variable ldb */ | |||
| 86754 | ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 86755 | /* Processing variable nrhs */ | |||
| 86756 | nrhs = shape(b,1)b_Dims[1]; | |||
| 86757 | /* Processing variable L */ | |||
| 86758 | L = len(ap)ap_Dims[0]; | |||
| 86759 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","dppsv:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dppsv:L=%d", "(""L>=(n*(n+1)/2)"") failed for ""hidden L" , L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 86760 | /*end of frompyobj*/ | |||
| 86761 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86762 | f2py_start_call_clock(); | |||
| 86763 | #endif | |||
| 86764 | /*callfortranroutine*/ | |||
| 86765 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 86766 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ; | |||
| 86767 | /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/ | |||
| 86768 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 86769 | if (PyErr_Occurred()) | |||
| 86770 | f2py_success = 0; | |||
| 86771 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86772 | f2py_stop_call_clock(); | |||
| 86773 | #endif | |||
| 86774 | /*end of callfortranroutine*/ | |||
| 86775 | if (f2py_success) { | |||
| 86776 | /*pyobjfrom*/ | |||
| 86777 | /*end of pyobjfrom*/ | |||
| 86778 | CFUNCSMESS("Building return value.\n"); | |||
| 86779 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 86780 | /*closepyobjfrom*/ | |||
| 86781 | /*end of closepyobjfrom*/ | |||
| 86782 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 86783 | /*cleanupfrompyobj*/ | |||
| 86784 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 86785 | /* End of cleaning variable L */ | |||
| 86786 | /* End of cleaning variable nrhs */ | |||
| 86787 | /* End of cleaning variable ldb */ | |||
| 86788 | /* End of cleaning variable info */ | |||
| 86789 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 86790 | /* End of cleaning variable b */ | |||
| 86791 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 86792 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 86793 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 86794 | /* End of cleaning variable ap */ | |||
| 86795 | } /*CHECKSCALAR(n>=0)*/ | |||
| 86796 | } /*if (f2py_success) of n*/ | |||
| 86797 | /* End of cleaning variable n */ | |||
| 86798 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 86799 | } /*if (f2py_success) of lower*/ | |||
| 86800 | /* End of cleaning variable lower */ | |||
| 86801 | /*end of cleanupfrompyobj*/ | |||
| 86802 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 86803 | /*routdebugfailure*/ | |||
| 86804 | } else { | |||
| 86805 | /*routdebugleave*/ | |||
| 86806 | } | |||
| 86807 | CFUNCSMESS("Freeing memory.\n"); | |||
| 86808 | /*freemem*/ | |||
| 86809 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86810 | f2py_stop_clock(); | |||
| 86811 | #endif | |||
| 86812 | return capi_buildvalue; | |||
| 86813 | } | |||
| 86814 | /******************************** end of dppsv ********************************/ | |||
| 86815 | ||||
| 86816 | /*********************************** cppsv ***********************************/ | |||
| 86817 | static char doc_f2py_rout__flapack_cppsv[] = "\ | |||
| 86818 | x,info = cppsv(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``cppsv``.\ | |||
| 86819 | \n\nParameters\n----------\n" | |||
| 86820 | "n : input int\n" | |||
| 86821 | "ap : input rank-1 array('F') with bounds (L)\n" | |||
| 86822 | "b : input rank-2 array('F') with bounds (ldb,nrhs)\n" | |||
| 86823 | "\nOther Parameters\n----------------\n" | |||
| 86824 | "lower : input int, optional\n Default: 0\n" | |||
| 86825 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 86826 | "\nReturns\n-------\n" | |||
| 86827 | "x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n" | |||
| 86828 | "info : int"; | |||
| 86829 | /* extern void F_FUNC(cppsv,CPPSV)(char*,F_INT*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 86830 | static PyObject *f2py_rout__flapack_cppsv(const PyObject *capi_self, | |||
| 86831 | PyObject *capi_args, | |||
| 86832 | PyObject *capi_keywds, | |||
| 86833 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 86834 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 86835 | volatile int f2py_success = 1; | |||
| 86836 | /*decl*/ | |||
| 86837 | ||||
| 86838 | int lower = 0; | |||
| 86839 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 86840 | int n = 0; | |||
| 86841 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 86842 | int nrhs = 0; | |||
| 86843 | complex_float *ap = NULL((void*)0); | |||
| 86844 | npy_intp ap_Dims[1] = {-1}; | |||
| 86845 | const int ap_Rank = 1; | |||
| 86846 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 86847 | int capi_ap_intent = 0; | |||
| 86848 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 86849 | complex_float *b = NULL((void*)0); | |||
| 86850 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 86851 | const int b_Rank = 2; | |||
| 86852 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 86853 | int capi_b_intent = 0; | |||
| 86854 | int capi_overwrite_b = 0; | |||
| 86855 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 86856 | int ldb = 0; | |||
| 86857 | int info = 0; | |||
| 86858 | int L = 0; | |||
| 86859 | static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 86860 | ||||
| 86861 | /*routdebugenter*/ | |||
| 86862 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86863 | f2py_start_clock(); | |||
| 86864 | #endif | |||
| 86865 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 86866 | "OOO|Oi:_flapack.cppsv",\ | |||
| 86867 | capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 86868 | return NULL((void*)0); | |||
| 86869 | /*frompyobj*/ | |||
| 86870 | /* Processing variable lower */ | |||
| 86871 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 86872 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cppsv() 1st keyword (lower) can't be converted to int"); | |||
| 86873 | if (f2py_success) { | |||
| 86874 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cppsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cppsv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 86875 | /* Processing variable n */ | |||
| 86876 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cppsv() 1st argument (n) can't be converted to int"); | |||
| 86877 | if (f2py_success) { | |||
| 86878 | CHECKSCALAR(n>=0,"n>=0","1st argument n","cppsv:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cppsv:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 86879 | /* Processing variable ap */ | |||
| 86880 | ; | |||
| 86881 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 86882 | capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 86883 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 86884 | if (!PyErr_Occurred()) | |||
| 86885 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.cppsv to C/Fortran array" ); | |||
| 86886 | } else { | |||
| 86887 | ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 86888 | ||||
| 86889 | /* Processing variable b */ | |||
| 86890 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 86891 | ; | |||
| 86892 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 86893 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 86894 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 86895 | if (!PyErr_Occurred()) | |||
| 86896 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cppsv to C/Fortran array" ); | |||
| 86897 | } else { | |||
| 86898 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 86899 | ||||
| 86900 | /* Processing variable info */ | |||
| 86901 | /* Processing variable ldb */ | |||
| 86902 | ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 86903 | /* Processing variable nrhs */ | |||
| 86904 | nrhs = shape(b,1)b_Dims[1]; | |||
| 86905 | /* Processing variable L */ | |||
| 86906 | L = len(ap)ap_Dims[0]; | |||
| 86907 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","cppsv:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cppsv:L=%d", "(""L>=(n*(n+1)/2)"") failed for ""hidden L" , L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 86908 | /*end of frompyobj*/ | |||
| 86909 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86910 | f2py_start_call_clock(); | |||
| 86911 | #endif | |||
| 86912 | /*callfortranroutine*/ | |||
| 86913 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 86914 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ; | |||
| 86915 | /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/ | |||
| 86916 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 86917 | if (PyErr_Occurred()) | |||
| 86918 | f2py_success = 0; | |||
| 86919 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86920 | f2py_stop_call_clock(); | |||
| 86921 | #endif | |||
| 86922 | /*end of callfortranroutine*/ | |||
| 86923 | if (f2py_success) { | |||
| 86924 | /*pyobjfrom*/ | |||
| 86925 | /*end of pyobjfrom*/ | |||
| 86926 | CFUNCSMESS("Building return value.\n"); | |||
| 86927 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 86928 | /*closepyobjfrom*/ | |||
| 86929 | /*end of closepyobjfrom*/ | |||
| 86930 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 86931 | /*cleanupfrompyobj*/ | |||
| 86932 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 86933 | /* End of cleaning variable L */ | |||
| 86934 | /* End of cleaning variable nrhs */ | |||
| 86935 | /* End of cleaning variable ldb */ | |||
| 86936 | /* End of cleaning variable info */ | |||
| 86937 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 86938 | /* End of cleaning variable b */ | |||
| 86939 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 86940 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 86941 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 86942 | /* End of cleaning variable ap */ | |||
| 86943 | } /*CHECKSCALAR(n>=0)*/ | |||
| 86944 | } /*if (f2py_success) of n*/ | |||
| 86945 | /* End of cleaning variable n */ | |||
| 86946 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 86947 | } /*if (f2py_success) of lower*/ | |||
| 86948 | /* End of cleaning variable lower */ | |||
| 86949 | /*end of cleanupfrompyobj*/ | |||
| 86950 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 86951 | /*routdebugfailure*/ | |||
| 86952 | } else { | |||
| 86953 | /*routdebugleave*/ | |||
| 86954 | } | |||
| 86955 | CFUNCSMESS("Freeing memory.\n"); | |||
| 86956 | /*freemem*/ | |||
| 86957 | #ifdef F2PY_REPORT_ATEXIT | |||
| 86958 | f2py_stop_clock(); | |||
| 86959 | #endif | |||
| 86960 | return capi_buildvalue; | |||
| 86961 | } | |||
| 86962 | /******************************** end of cppsv ********************************/ | |||
| 86963 | ||||
| 86964 | /*********************************** zppsv ***********************************/ | |||
| 86965 | static char doc_f2py_rout__flapack_zppsv[] = "\ | |||
| 86966 | x,info = zppsv(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``zppsv``.\ | |||
| 86967 | \n\nParameters\n----------\n" | |||
| 86968 | "n : input int\n" | |||
| 86969 | "ap : input rank-1 array('D') with bounds (L)\n" | |||
| 86970 | "b : input rank-2 array('D') with bounds (ldb,nrhs)\n" | |||
| 86971 | "\nOther Parameters\n----------------\n" | |||
| 86972 | "lower : input int, optional\n Default: 0\n" | |||
| 86973 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 86974 | "\nReturns\n-------\n" | |||
| 86975 | "x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n" | |||
| 86976 | "info : int"; | |||
| 86977 | /* extern void F_FUNC(zppsv,ZPPSV)(char*,F_INT*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 86978 | static PyObject *f2py_rout__flapack_zppsv(const PyObject *capi_self, | |||
| 86979 | PyObject *capi_args, | |||
| 86980 | PyObject *capi_keywds, | |||
| 86981 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 86982 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 86983 | volatile int f2py_success = 1; | |||
| 86984 | /*decl*/ | |||
| 86985 | ||||
| 86986 | int lower = 0; | |||
| 86987 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 86988 | int n = 0; | |||
| 86989 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 86990 | int nrhs = 0; | |||
| 86991 | complex_double *ap = NULL((void*)0); | |||
| 86992 | npy_intp ap_Dims[1] = {-1}; | |||
| 86993 | const int ap_Rank = 1; | |||
| 86994 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 86995 | int capi_ap_intent = 0; | |||
| 86996 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 86997 | complex_double *b = NULL((void*)0); | |||
| 86998 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 86999 | const int b_Rank = 2; | |||
| 87000 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 87001 | int capi_b_intent = 0; | |||
| 87002 | int capi_overwrite_b = 0; | |||
| 87003 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 87004 | int ldb = 0; | |||
| 87005 | int info = 0; | |||
| 87006 | int L = 0; | |||
| 87007 | static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 87008 | ||||
| 87009 | /*routdebugenter*/ | |||
| 87010 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87011 | f2py_start_clock(); | |||
| 87012 | #endif | |||
| 87013 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 87014 | "OOO|Oi:_flapack.zppsv",\ | |||
| 87015 | capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 87016 | return NULL((void*)0); | |||
| 87017 | /*frompyobj*/ | |||
| 87018 | /* Processing variable lower */ | |||
| 87019 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 87020 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zppsv() 1st keyword (lower) can't be converted to int"); | |||
| 87021 | if (f2py_success) { | |||
| 87022 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zppsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zppsv:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 87023 | /* Processing variable n */ | |||
| 87024 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zppsv() 1st argument (n) can't be converted to int"); | |||
| 87025 | if (f2py_success) { | |||
| 87026 | CHECKSCALAR(n>=0,"n>=0","1st argument n","zppsv:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zppsv:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87027 | /* Processing variable ap */ | |||
| 87028 | ; | |||
| 87029 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 87030 | capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 87031 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 87032 | if (!PyErr_Occurred()) | |||
| 87033 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.zppsv to C/Fortran array" ); | |||
| 87034 | } else { | |||
| 87035 | ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 87036 | ||||
| 87037 | /* Processing variable b */ | |||
| 87038 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 87039 | ; | |||
| 87040 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 87041 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 87042 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 87043 | if (!PyErr_Occurred()) | |||
| 87044 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zppsv to C/Fortran array" ); | |||
| 87045 | } else { | |||
| 87046 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 87047 | ||||
| 87048 | /* Processing variable info */ | |||
| 87049 | /* Processing variable ldb */ | |||
| 87050 | ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 87051 | /* Processing variable nrhs */ | |||
| 87052 | nrhs = shape(b,1)b_Dims[1]; | |||
| 87053 | /* Processing variable L */ | |||
| 87054 | L = len(ap)ap_Dims[0]; | |||
| 87055 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","zppsv:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zppsv:L=%d", "(""L>=(n*(n+1)/2)"") failed for ""hidden L" , L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87056 | /*end of frompyobj*/ | |||
| 87057 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87058 | f2py_start_call_clock(); | |||
| 87059 | #endif | |||
| 87060 | /*callfortranroutine*/ | |||
| 87061 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 87062 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ; | |||
| 87063 | /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/ | |||
| 87064 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 87065 | if (PyErr_Occurred()) | |||
| 87066 | f2py_success = 0; | |||
| 87067 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87068 | f2py_stop_call_clock(); | |||
| 87069 | #endif | |||
| 87070 | /*end of callfortranroutine*/ | |||
| 87071 | if (f2py_success) { | |||
| 87072 | /*pyobjfrom*/ | |||
| 87073 | /*end of pyobjfrom*/ | |||
| 87074 | CFUNCSMESS("Building return value.\n"); | |||
| 87075 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 87076 | /*closepyobjfrom*/ | |||
| 87077 | /*end of closepyobjfrom*/ | |||
| 87078 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 87079 | /*cleanupfrompyobj*/ | |||
| 87080 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 87081 | /* End of cleaning variable L */ | |||
| 87082 | /* End of cleaning variable nrhs */ | |||
| 87083 | /* End of cleaning variable ldb */ | |||
| 87084 | /* End of cleaning variable info */ | |||
| 87085 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 87086 | /* End of cleaning variable b */ | |||
| 87087 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 87088 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 87089 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 87090 | /* End of cleaning variable ap */ | |||
| 87091 | } /*CHECKSCALAR(n>=0)*/ | |||
| 87092 | } /*if (f2py_success) of n*/ | |||
| 87093 | /* End of cleaning variable n */ | |||
| 87094 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 87095 | } /*if (f2py_success) of lower*/ | |||
| 87096 | /* End of cleaning variable lower */ | |||
| 87097 | /*end of cleanupfrompyobj*/ | |||
| 87098 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 87099 | /*routdebugfailure*/ | |||
| 87100 | } else { | |||
| 87101 | /*routdebugleave*/ | |||
| 87102 | } | |||
| 87103 | CFUNCSMESS("Freeing memory.\n"); | |||
| 87104 | /*freemem*/ | |||
| 87105 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87106 | f2py_stop_clock(); | |||
| 87107 | #endif | |||
| 87108 | return capi_buildvalue; | |||
| 87109 | } | |||
| 87110 | /******************************** end of zppsv ********************************/ | |||
| 87111 | ||||
| 87112 | /*********************************** spptrf ***********************************/ | |||
| 87113 | static char doc_f2py_rout__flapack_spptrf[] = "\ | |||
| 87114 | ul,info = spptrf(n,ap,[lower,overwrite_ap])\n\nWrapper for ``spptrf``.\ | |||
| 87115 | \n\nParameters\n----------\n" | |||
| 87116 | "n : input int\n" | |||
| 87117 | "ap : input rank-1 array('f') with bounds (L)\n" | |||
| 87118 | "\nOther Parameters\n----------------\n" | |||
| 87119 | "lower : input int, optional\n Default: 0\n" | |||
| 87120 | "overwrite_ap : input int, optional\n Default: 0\n" | |||
| 87121 | "\nReturns\n-------\n" | |||
| 87122 | "ul : rank-1 array('f') with bounds (L) and ap storage\n" | |||
| 87123 | "info : int"; | |||
| 87124 | /* extern void F_FUNC(spptrf,SPPTRF)(char*,F_INT*,float*,F_INT* ); */ | |||
| 87125 | static PyObject *f2py_rout__flapack_spptrf(const PyObject *capi_self, | |||
| 87126 | PyObject *capi_args, | |||
| 87127 | PyObject *capi_keywds, | |||
| 87128 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint* )) { | |||
| 87129 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 87130 | volatile int f2py_success = 1; | |||
| 87131 | /*decl*/ | |||
| 87132 | ||||
| 87133 | int lower = 0; | |||
| 87134 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 87135 | int n = 0; | |||
| 87136 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 87137 | float *ap = NULL((void*)0); | |||
| 87138 | npy_intp ap_Dims[1] = {-1}; | |||
| 87139 | const int ap_Rank = 1; | |||
| 87140 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 87141 | int capi_ap_intent = 0; | |||
| 87142 | int capi_overwrite_ap = 0; | |||
| 87143 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 87144 | int info = 0; | |||
| 87145 | int L = 0; | |||
| 87146 | static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)}; | |||
| 87147 | ||||
| 87148 | /*routdebugenter*/ | |||
| 87149 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87150 | f2py_start_clock(); | |||
| 87151 | #endif | |||
| 87152 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 87153 | "OO|Oi:_flapack.spptrf",\ | |||
| 87154 | capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap)) | |||
| 87155 | return NULL((void*)0); | |||
| 87156 | /*frompyobj*/ | |||
| 87157 | /* Processing variable lower */ | |||
| 87158 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 87159 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spptrf() 1st keyword (lower) can't be converted to int"); | |||
| 87160 | if (f2py_success) { | |||
| 87161 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spptrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spptrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 87162 | /* Processing variable n */ | |||
| 87163 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.spptrf() 1st argument (n) can't be converted to int"); | |||
| 87164 | if (f2py_success) { | |||
| 87165 | CHECKSCALAR(n>=0,"n>=0","1st argument n","spptrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spptrf:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87166 | /* Processing variable ap */ | |||
| 87167 | capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32); | |||
| 87168 | ; | |||
| 87169 | capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 87170 | capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 87171 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 87172 | if (!PyErr_Occurred()) | |||
| 87173 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.spptrf to C/Fortran array" ); | |||
| 87174 | } else { | |||
| 87175 | ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 87176 | ||||
| 87177 | /* Processing variable info */ | |||
| 87178 | /* Processing variable L */ | |||
| 87179 | L = len(ap)ap_Dims[0]; | |||
| 87180 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","spptrf:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spptrf:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87181 | /*end of frompyobj*/ | |||
| 87182 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87183 | f2py_start_call_clock(); | |||
| 87184 | #endif | |||
| 87185 | /*callfortranroutine*/ | |||
| 87186 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 87187 | (*f2py_func)((lower?"L":"U"),&n,ap,&info) ; | |||
| 87188 | /*(*f2py_func)(&lower,&n,ap,&info,&L);*/ | |||
| 87189 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 87190 | if (PyErr_Occurred()) | |||
| 87191 | f2py_success = 0; | |||
| 87192 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87193 | f2py_stop_call_clock(); | |||
| 87194 | #endif | |||
| 87195 | /*end of callfortranroutine*/ | |||
| 87196 | if (f2py_success) { | |||
| 87197 | /*pyobjfrom*/ | |||
| 87198 | /*end of pyobjfrom*/ | |||
| 87199 | CFUNCSMESS("Building return value.\n"); | |||
| 87200 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 87201 | /*closepyobjfrom*/ | |||
| 87202 | /*end of closepyobjfrom*/ | |||
| 87203 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 87204 | /*cleanupfrompyobj*/ | |||
| 87205 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 87206 | /* End of cleaning variable L */ | |||
| 87207 | /* End of cleaning variable info */ | |||
| 87208 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 87209 | /* End of cleaning variable ap */ | |||
| 87210 | } /*CHECKSCALAR(n>=0)*/ | |||
| 87211 | } /*if (f2py_success) of n*/ | |||
| 87212 | /* End of cleaning variable n */ | |||
| 87213 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 87214 | } /*if (f2py_success) of lower*/ | |||
| 87215 | /* End of cleaning variable lower */ | |||
| 87216 | /*end of cleanupfrompyobj*/ | |||
| 87217 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 87218 | /*routdebugfailure*/ | |||
| 87219 | } else { | |||
| 87220 | /*routdebugleave*/ | |||
| 87221 | } | |||
| 87222 | CFUNCSMESS("Freeing memory.\n"); | |||
| 87223 | /*freemem*/ | |||
| 87224 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87225 | f2py_stop_clock(); | |||
| 87226 | #endif | |||
| 87227 | return capi_buildvalue; | |||
| 87228 | } | |||
| 87229 | /******************************* end of spptrf *******************************/ | |||
| 87230 | ||||
| 87231 | /*********************************** dpptrf ***********************************/ | |||
| 87232 | static char doc_f2py_rout__flapack_dpptrf[] = "\ | |||
| 87233 | ul,info = dpptrf(n,ap,[lower,overwrite_ap])\n\nWrapper for ``dpptrf``.\ | |||
| 87234 | \n\nParameters\n----------\n" | |||
| 87235 | "n : input int\n" | |||
| 87236 | "ap : input rank-1 array('d') with bounds (L)\n" | |||
| 87237 | "\nOther Parameters\n----------------\n" | |||
| 87238 | "lower : input int, optional\n Default: 0\n" | |||
| 87239 | "overwrite_ap : input int, optional\n Default: 0\n" | |||
| 87240 | "\nReturns\n-------\n" | |||
| 87241 | "ul : rank-1 array('d') with bounds (L) and ap storage\n" | |||
| 87242 | "info : int"; | |||
| 87243 | /* extern void F_FUNC(dpptrf,DPPTRF)(char*,F_INT*,double*,F_INT* ); */ | |||
| 87244 | static PyObject *f2py_rout__flapack_dpptrf(const PyObject *capi_self, | |||
| 87245 | PyObject *capi_args, | |||
| 87246 | PyObject *capi_keywds, | |||
| 87247 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint* )) { | |||
| 87248 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 87249 | volatile int f2py_success = 1; | |||
| 87250 | /*decl*/ | |||
| 87251 | ||||
| 87252 | int lower = 0; | |||
| 87253 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 87254 | int n = 0; | |||
| 87255 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 87256 | double *ap = NULL((void*)0); | |||
| 87257 | npy_intp ap_Dims[1] = {-1}; | |||
| 87258 | const int ap_Rank = 1; | |||
| 87259 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 87260 | int capi_ap_intent = 0; | |||
| 87261 | int capi_overwrite_ap = 0; | |||
| 87262 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 87263 | int info = 0; | |||
| 87264 | int L = 0; | |||
| 87265 | static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)}; | |||
| 87266 | ||||
| 87267 | /*routdebugenter*/ | |||
| 87268 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87269 | f2py_start_clock(); | |||
| 87270 | #endif | |||
| 87271 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 87272 | "OO|Oi:_flapack.dpptrf",\ | |||
| 87273 | capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap)) | |||
| 87274 | return NULL((void*)0); | |||
| 87275 | /*frompyobj*/ | |||
| 87276 | /* Processing variable lower */ | |||
| 87277 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 87278 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpptrf() 1st keyword (lower) can't be converted to int"); | |||
| 87279 | if (f2py_success) { | |||
| 87280 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpptrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpptrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 87281 | /* Processing variable n */ | |||
| 87282 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dpptrf() 1st argument (n) can't be converted to int"); | |||
| 87283 | if (f2py_success) { | |||
| 87284 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dpptrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpptrf:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87285 | /* Processing variable ap */ | |||
| 87286 | capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32); | |||
| 87287 | ; | |||
| 87288 | capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 87289 | capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 87290 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 87291 | if (!PyErr_Occurred()) | |||
| 87292 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dpptrf to C/Fortran array" ); | |||
| 87293 | } else { | |||
| 87294 | ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 87295 | ||||
| 87296 | /* Processing variable info */ | |||
| 87297 | /* Processing variable L */ | |||
| 87298 | L = len(ap)ap_Dims[0]; | |||
| 87299 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","dpptrf:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpptrf:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87300 | /*end of frompyobj*/ | |||
| 87301 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87302 | f2py_start_call_clock(); | |||
| 87303 | #endif | |||
| 87304 | /*callfortranroutine*/ | |||
| 87305 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 87306 | (*f2py_func)((lower?"L":"U"),&n,ap,&info) ; | |||
| 87307 | /*(*f2py_func)(&lower,&n,ap,&info,&L);*/ | |||
| 87308 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 87309 | if (PyErr_Occurred()) | |||
| 87310 | f2py_success = 0; | |||
| 87311 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87312 | f2py_stop_call_clock(); | |||
| 87313 | #endif | |||
| 87314 | /*end of callfortranroutine*/ | |||
| 87315 | if (f2py_success) { | |||
| 87316 | /*pyobjfrom*/ | |||
| 87317 | /*end of pyobjfrom*/ | |||
| 87318 | CFUNCSMESS("Building return value.\n"); | |||
| 87319 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 87320 | /*closepyobjfrom*/ | |||
| 87321 | /*end of closepyobjfrom*/ | |||
| 87322 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 87323 | /*cleanupfrompyobj*/ | |||
| 87324 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 87325 | /* End of cleaning variable L */ | |||
| 87326 | /* End of cleaning variable info */ | |||
| 87327 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 87328 | /* End of cleaning variable ap */ | |||
| 87329 | } /*CHECKSCALAR(n>=0)*/ | |||
| 87330 | } /*if (f2py_success) of n*/ | |||
| 87331 | /* End of cleaning variable n */ | |||
| 87332 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 87333 | } /*if (f2py_success) of lower*/ | |||
| 87334 | /* End of cleaning variable lower */ | |||
| 87335 | /*end of cleanupfrompyobj*/ | |||
| 87336 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 87337 | /*routdebugfailure*/ | |||
| 87338 | } else { | |||
| 87339 | /*routdebugleave*/ | |||
| 87340 | } | |||
| 87341 | CFUNCSMESS("Freeing memory.\n"); | |||
| 87342 | /*freemem*/ | |||
| 87343 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87344 | f2py_stop_clock(); | |||
| 87345 | #endif | |||
| 87346 | return capi_buildvalue; | |||
| 87347 | } | |||
| 87348 | /******************************* end of dpptrf *******************************/ | |||
| 87349 | ||||
| 87350 | /*********************************** cpptrf ***********************************/ | |||
| 87351 | static char doc_f2py_rout__flapack_cpptrf[] = "\ | |||
| 87352 | ul,info = cpptrf(n,ap,[lower,overwrite_ap])\n\nWrapper for ``cpptrf``.\ | |||
| 87353 | \n\nParameters\n----------\n" | |||
| 87354 | "n : input int\n" | |||
| 87355 | "ap : input rank-1 array('F') with bounds (L)\n" | |||
| 87356 | "\nOther Parameters\n----------------\n" | |||
| 87357 | "lower : input int, optional\n Default: 0\n" | |||
| 87358 | "overwrite_ap : input int, optional\n Default: 0\n" | |||
| 87359 | "\nReturns\n-------\n" | |||
| 87360 | "ul : rank-1 array('F') with bounds (L) and ap storage\n" | |||
| 87361 | "info : int"; | |||
| 87362 | /* extern void F_FUNC(cpptrf,CPPTRF)(char*,F_INT*,complex_float*,F_INT* ); */ | |||
| 87363 | static PyObject *f2py_rout__flapack_cpptrf(const PyObject *capi_self, | |||
| 87364 | PyObject *capi_args, | |||
| 87365 | PyObject *capi_keywds, | |||
| 87366 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint* )) { | |||
| 87367 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 87368 | volatile int f2py_success = 1; | |||
| 87369 | /*decl*/ | |||
| 87370 | ||||
| 87371 | int lower = 0; | |||
| 87372 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 87373 | int n = 0; | |||
| 87374 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 87375 | complex_float *ap = NULL((void*)0); | |||
| 87376 | npy_intp ap_Dims[1] = {-1}; | |||
| 87377 | const int ap_Rank = 1; | |||
| 87378 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 87379 | int capi_ap_intent = 0; | |||
| 87380 | int capi_overwrite_ap = 0; | |||
| 87381 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 87382 | int info = 0; | |||
| 87383 | int L = 0; | |||
| 87384 | static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)}; | |||
| 87385 | ||||
| 87386 | /*routdebugenter*/ | |||
| 87387 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87388 | f2py_start_clock(); | |||
| 87389 | #endif | |||
| 87390 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 87391 | "OO|Oi:_flapack.cpptrf",\ | |||
| 87392 | capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap)) | |||
| 87393 | return NULL((void*)0); | |||
| 87394 | /*frompyobj*/ | |||
| 87395 | /* Processing variable lower */ | |||
| 87396 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 87397 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpptrf() 1st keyword (lower) can't be converted to int"); | |||
| 87398 | if (f2py_success) { | |||
| 87399 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpptrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpptrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 87400 | /* Processing variable n */ | |||
| 87401 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cpptrf() 1st argument (n) can't be converted to int"); | |||
| 87402 | if (f2py_success) { | |||
| 87403 | CHECKSCALAR(n>=0,"n>=0","1st argument n","cpptrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpptrf:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87404 | /* Processing variable ap */ | |||
| 87405 | capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32); | |||
| 87406 | ; | |||
| 87407 | capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 87408 | capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 87409 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 87410 | if (!PyErr_Occurred()) | |||
| 87411 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.cpptrf to C/Fortran array" ); | |||
| 87412 | } else { | |||
| 87413 | ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 87414 | ||||
| 87415 | /* Processing variable info */ | |||
| 87416 | /* Processing variable L */ | |||
| 87417 | L = len(ap)ap_Dims[0]; | |||
| 87418 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","cpptrf:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpptrf:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87419 | /*end of frompyobj*/ | |||
| 87420 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87421 | f2py_start_call_clock(); | |||
| 87422 | #endif | |||
| 87423 | /*callfortranroutine*/ | |||
| 87424 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 87425 | (*f2py_func)((lower?"L":"U"),&n,ap,&info) ; | |||
| 87426 | /*(*f2py_func)(&lower,&n,ap,&info,&L);*/ | |||
| 87427 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 87428 | if (PyErr_Occurred()) | |||
| 87429 | f2py_success = 0; | |||
| 87430 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87431 | f2py_stop_call_clock(); | |||
| 87432 | #endif | |||
| 87433 | /*end of callfortranroutine*/ | |||
| 87434 | if (f2py_success) { | |||
| 87435 | /*pyobjfrom*/ | |||
| 87436 | /*end of pyobjfrom*/ | |||
| 87437 | CFUNCSMESS("Building return value.\n"); | |||
| 87438 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 87439 | /*closepyobjfrom*/ | |||
| 87440 | /*end of closepyobjfrom*/ | |||
| 87441 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 87442 | /*cleanupfrompyobj*/ | |||
| 87443 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 87444 | /* End of cleaning variable L */ | |||
| 87445 | /* End of cleaning variable info */ | |||
| 87446 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 87447 | /* End of cleaning variable ap */ | |||
| 87448 | } /*CHECKSCALAR(n>=0)*/ | |||
| 87449 | } /*if (f2py_success) of n*/ | |||
| 87450 | /* End of cleaning variable n */ | |||
| 87451 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 87452 | } /*if (f2py_success) of lower*/ | |||
| 87453 | /* End of cleaning variable lower */ | |||
| 87454 | /*end of cleanupfrompyobj*/ | |||
| 87455 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 87456 | /*routdebugfailure*/ | |||
| 87457 | } else { | |||
| 87458 | /*routdebugleave*/ | |||
| 87459 | } | |||
| 87460 | CFUNCSMESS("Freeing memory.\n"); | |||
| 87461 | /*freemem*/ | |||
| 87462 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87463 | f2py_stop_clock(); | |||
| 87464 | #endif | |||
| 87465 | return capi_buildvalue; | |||
| 87466 | } | |||
| 87467 | /******************************* end of cpptrf *******************************/ | |||
| 87468 | ||||
| 87469 | /*********************************** zpptrf ***********************************/ | |||
| 87470 | static char doc_f2py_rout__flapack_zpptrf[] = "\ | |||
| 87471 | ul,info = zpptrf(n,ap,[lower,overwrite_ap])\n\nWrapper for ``zpptrf``.\ | |||
| 87472 | \n\nParameters\n----------\n" | |||
| 87473 | "n : input int\n" | |||
| 87474 | "ap : input rank-1 array('D') with bounds (L)\n" | |||
| 87475 | "\nOther Parameters\n----------------\n" | |||
| 87476 | "lower : input int, optional\n Default: 0\n" | |||
| 87477 | "overwrite_ap : input int, optional\n Default: 0\n" | |||
| 87478 | "\nReturns\n-------\n" | |||
| 87479 | "ul : rank-1 array('D') with bounds (L) and ap storage\n" | |||
| 87480 | "info : int"; | |||
| 87481 | /* extern void F_FUNC(zpptrf,ZPPTRF)(char*,F_INT*,complex_double*,F_INT* ); */ | |||
| 87482 | static PyObject *f2py_rout__flapack_zpptrf(const PyObject *capi_self, | |||
| 87483 | PyObject *capi_args, | |||
| 87484 | PyObject *capi_keywds, | |||
| 87485 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint* )) { | |||
| 87486 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 87487 | volatile int f2py_success = 1; | |||
| 87488 | /*decl*/ | |||
| 87489 | ||||
| 87490 | int lower = 0; | |||
| 87491 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 87492 | int n = 0; | |||
| 87493 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 87494 | complex_double *ap = NULL((void*)0); | |||
| 87495 | npy_intp ap_Dims[1] = {-1}; | |||
| 87496 | const int ap_Rank = 1; | |||
| 87497 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 87498 | int capi_ap_intent = 0; | |||
| 87499 | int capi_overwrite_ap = 0; | |||
| 87500 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 87501 | int info = 0; | |||
| 87502 | int L = 0; | |||
| 87503 | static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)}; | |||
| 87504 | ||||
| 87505 | /*routdebugenter*/ | |||
| 87506 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87507 | f2py_start_clock(); | |||
| 87508 | #endif | |||
| 87509 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 87510 | "OO|Oi:_flapack.zpptrf",\ | |||
| 87511 | capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap)) | |||
| 87512 | return NULL((void*)0); | |||
| 87513 | /*frompyobj*/ | |||
| 87514 | /* Processing variable lower */ | |||
| 87515 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 87516 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpptrf() 1st keyword (lower) can't be converted to int"); | |||
| 87517 | if (f2py_success) { | |||
| 87518 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpptrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpptrf:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 87519 | /* Processing variable n */ | |||
| 87520 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zpptrf() 1st argument (n) can't be converted to int"); | |||
| 87521 | if (f2py_success) { | |||
| 87522 | CHECKSCALAR(n>=0,"n>=0","1st argument n","zpptrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpptrf:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87523 | /* Processing variable ap */ | |||
| 87524 | capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32); | |||
| 87525 | ; | |||
| 87526 | capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 87527 | capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 87528 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 87529 | if (!PyErr_Occurred()) | |||
| 87530 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.zpptrf to C/Fortran array" ); | |||
| 87531 | } else { | |||
| 87532 | ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 87533 | ||||
| 87534 | /* Processing variable info */ | |||
| 87535 | /* Processing variable L */ | |||
| 87536 | L = len(ap)ap_Dims[0]; | |||
| 87537 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","zpptrf:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpptrf:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87538 | /*end of frompyobj*/ | |||
| 87539 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87540 | f2py_start_call_clock(); | |||
| 87541 | #endif | |||
| 87542 | /*callfortranroutine*/ | |||
| 87543 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 87544 | (*f2py_func)((lower?"L":"U"),&n,ap,&info) ; | |||
| 87545 | /*(*f2py_func)(&lower,&n,ap,&info,&L);*/ | |||
| 87546 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 87547 | if (PyErr_Occurred()) | |||
| 87548 | f2py_success = 0; | |||
| 87549 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87550 | f2py_stop_call_clock(); | |||
| 87551 | #endif | |||
| 87552 | /*end of callfortranroutine*/ | |||
| 87553 | if (f2py_success) { | |||
| 87554 | /*pyobjfrom*/ | |||
| 87555 | /*end of pyobjfrom*/ | |||
| 87556 | CFUNCSMESS("Building return value.\n"); | |||
| 87557 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 87558 | /*closepyobjfrom*/ | |||
| 87559 | /*end of closepyobjfrom*/ | |||
| 87560 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 87561 | /*cleanupfrompyobj*/ | |||
| 87562 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 87563 | /* End of cleaning variable L */ | |||
| 87564 | /* End of cleaning variable info */ | |||
| 87565 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 87566 | /* End of cleaning variable ap */ | |||
| 87567 | } /*CHECKSCALAR(n>=0)*/ | |||
| 87568 | } /*if (f2py_success) of n*/ | |||
| 87569 | /* End of cleaning variable n */ | |||
| 87570 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 87571 | } /*if (f2py_success) of lower*/ | |||
| 87572 | /* End of cleaning variable lower */ | |||
| 87573 | /*end of cleanupfrompyobj*/ | |||
| 87574 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 87575 | /*routdebugfailure*/ | |||
| 87576 | } else { | |||
| 87577 | /*routdebugleave*/ | |||
| 87578 | } | |||
| 87579 | CFUNCSMESS("Freeing memory.\n"); | |||
| 87580 | /*freemem*/ | |||
| 87581 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87582 | f2py_stop_clock(); | |||
| 87583 | #endif | |||
| 87584 | return capi_buildvalue; | |||
| 87585 | } | |||
| 87586 | /******************************* end of zpptrf *******************************/ | |||
| 87587 | ||||
| 87588 | /*********************************** spptri ***********************************/ | |||
| 87589 | static char doc_f2py_rout__flapack_spptri[] = "\ | |||
| 87590 | uli,info = spptri(n,ap,[lower,overwrite_ap])\n\nWrapper for ``spptri``.\ | |||
| 87591 | \n\nParameters\n----------\n" | |||
| 87592 | "n : input int\n" | |||
| 87593 | "ap : input rank-1 array('f') with bounds (L)\n" | |||
| 87594 | "\nOther Parameters\n----------------\n" | |||
| 87595 | "lower : input int, optional\n Default: 0\n" | |||
| 87596 | "overwrite_ap : input int, optional\n Default: 0\n" | |||
| 87597 | "\nReturns\n-------\n" | |||
| 87598 | "uli : rank-1 array('f') with bounds (L) and ap storage\n" | |||
| 87599 | "info : int"; | |||
| 87600 | /* extern void F_FUNC(spptri,SPPTRI)(char*,F_INT*,float*,F_INT* ); */ | |||
| 87601 | static PyObject *f2py_rout__flapack_spptri(const PyObject *capi_self, | |||
| 87602 | PyObject *capi_args, | |||
| 87603 | PyObject *capi_keywds, | |||
| 87604 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint* )) { | |||
| 87605 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 87606 | volatile int f2py_success = 1; | |||
| 87607 | /*decl*/ | |||
| 87608 | ||||
| 87609 | int lower = 0; | |||
| 87610 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 87611 | int n = 0; | |||
| 87612 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 87613 | float *ap = NULL((void*)0); | |||
| 87614 | npy_intp ap_Dims[1] = {-1}; | |||
| 87615 | const int ap_Rank = 1; | |||
| 87616 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 87617 | int capi_ap_intent = 0; | |||
| 87618 | int capi_overwrite_ap = 0; | |||
| 87619 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 87620 | int info = 0; | |||
| 87621 | int L = 0; | |||
| 87622 | static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)}; | |||
| 87623 | ||||
| 87624 | /*routdebugenter*/ | |||
| 87625 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87626 | f2py_start_clock(); | |||
| 87627 | #endif | |||
| 87628 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 87629 | "OO|Oi:_flapack.spptri",\ | |||
| 87630 | capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap)) | |||
| 87631 | return NULL((void*)0); | |||
| 87632 | /*frompyobj*/ | |||
| 87633 | /* Processing variable lower */ | |||
| 87634 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 87635 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spptri() 1st keyword (lower) can't be converted to int"); | |||
| 87636 | if (f2py_success) { | |||
| 87637 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spptri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spptri:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 87638 | /* Processing variable n */ | |||
| 87639 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.spptri() 1st argument (n) can't be converted to int"); | |||
| 87640 | if (f2py_success) { | |||
| 87641 | CHECKSCALAR(n>=0,"n>=0","1st argument n","spptri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spptri:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87642 | /* Processing variable ap */ | |||
| 87643 | capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32); | |||
| 87644 | ; | |||
| 87645 | capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 87646 | capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 87647 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 87648 | if (!PyErr_Occurred()) | |||
| 87649 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.spptri to C/Fortran array" ); | |||
| 87650 | } else { | |||
| 87651 | ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 87652 | ||||
| 87653 | /* Processing variable info */ | |||
| 87654 | /* Processing variable L */ | |||
| 87655 | L = len(ap)ap_Dims[0]; | |||
| 87656 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","spptri:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spptri:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87657 | /*end of frompyobj*/ | |||
| 87658 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87659 | f2py_start_call_clock(); | |||
| 87660 | #endif | |||
| 87661 | /*callfortranroutine*/ | |||
| 87662 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 87663 | (*f2py_func)((lower?"L":"U"),&n,ap,&info) ; | |||
| 87664 | /*(*f2py_func)(&lower,&n,ap,&info,&L);*/ | |||
| 87665 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 87666 | if (PyErr_Occurred()) | |||
| 87667 | f2py_success = 0; | |||
| 87668 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87669 | f2py_stop_call_clock(); | |||
| 87670 | #endif | |||
| 87671 | /*end of callfortranroutine*/ | |||
| 87672 | if (f2py_success) { | |||
| 87673 | /*pyobjfrom*/ | |||
| 87674 | /*end of pyobjfrom*/ | |||
| 87675 | CFUNCSMESS("Building return value.\n"); | |||
| 87676 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 87677 | /*closepyobjfrom*/ | |||
| 87678 | /*end of closepyobjfrom*/ | |||
| 87679 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 87680 | /*cleanupfrompyobj*/ | |||
| 87681 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 87682 | /* End of cleaning variable L */ | |||
| 87683 | /* End of cleaning variable info */ | |||
| 87684 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 87685 | /* End of cleaning variable ap */ | |||
| 87686 | } /*CHECKSCALAR(n>=0)*/ | |||
| 87687 | } /*if (f2py_success) of n*/ | |||
| 87688 | /* End of cleaning variable n */ | |||
| 87689 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 87690 | } /*if (f2py_success) of lower*/ | |||
| 87691 | /* End of cleaning variable lower */ | |||
| 87692 | /*end of cleanupfrompyobj*/ | |||
| 87693 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 87694 | /*routdebugfailure*/ | |||
| 87695 | } else { | |||
| 87696 | /*routdebugleave*/ | |||
| 87697 | } | |||
| 87698 | CFUNCSMESS("Freeing memory.\n"); | |||
| 87699 | /*freemem*/ | |||
| 87700 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87701 | f2py_stop_clock(); | |||
| 87702 | #endif | |||
| 87703 | return capi_buildvalue; | |||
| 87704 | } | |||
| 87705 | /******************************* end of spptri *******************************/ | |||
| 87706 | ||||
| 87707 | /*********************************** dpptri ***********************************/ | |||
| 87708 | static char doc_f2py_rout__flapack_dpptri[] = "\ | |||
| 87709 | uli,info = dpptri(n,ap,[lower,overwrite_ap])\n\nWrapper for ``dpptri``.\ | |||
| 87710 | \n\nParameters\n----------\n" | |||
| 87711 | "n : input int\n" | |||
| 87712 | "ap : input rank-1 array('d') with bounds (L)\n" | |||
| 87713 | "\nOther Parameters\n----------------\n" | |||
| 87714 | "lower : input int, optional\n Default: 0\n" | |||
| 87715 | "overwrite_ap : input int, optional\n Default: 0\n" | |||
| 87716 | "\nReturns\n-------\n" | |||
| 87717 | "uli : rank-1 array('d') with bounds (L) and ap storage\n" | |||
| 87718 | "info : int"; | |||
| 87719 | /* extern void F_FUNC(dpptri,DPPTRI)(char*,F_INT*,double*,F_INT* ); */ | |||
| 87720 | static PyObject *f2py_rout__flapack_dpptri(const PyObject *capi_self, | |||
| 87721 | PyObject *capi_args, | |||
| 87722 | PyObject *capi_keywds, | |||
| 87723 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint* )) { | |||
| 87724 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 87725 | volatile int f2py_success = 1; | |||
| 87726 | /*decl*/ | |||
| 87727 | ||||
| 87728 | int lower = 0; | |||
| 87729 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 87730 | int n = 0; | |||
| 87731 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 87732 | double *ap = NULL((void*)0); | |||
| 87733 | npy_intp ap_Dims[1] = {-1}; | |||
| 87734 | const int ap_Rank = 1; | |||
| 87735 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 87736 | int capi_ap_intent = 0; | |||
| 87737 | int capi_overwrite_ap = 0; | |||
| 87738 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 87739 | int info = 0; | |||
| 87740 | int L = 0; | |||
| 87741 | static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)}; | |||
| 87742 | ||||
| 87743 | /*routdebugenter*/ | |||
| 87744 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87745 | f2py_start_clock(); | |||
| 87746 | #endif | |||
| 87747 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 87748 | "OO|Oi:_flapack.dpptri",\ | |||
| 87749 | capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap)) | |||
| 87750 | return NULL((void*)0); | |||
| 87751 | /*frompyobj*/ | |||
| 87752 | /* Processing variable lower */ | |||
| 87753 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 87754 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpptri() 1st keyword (lower) can't be converted to int"); | |||
| 87755 | if (f2py_success) { | |||
| 87756 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpptri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpptri:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 87757 | /* Processing variable n */ | |||
| 87758 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dpptri() 1st argument (n) can't be converted to int"); | |||
| 87759 | if (f2py_success) { | |||
| 87760 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dpptri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpptri:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87761 | /* Processing variable ap */ | |||
| 87762 | capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32); | |||
| 87763 | ; | |||
| 87764 | capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 87765 | capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 87766 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 87767 | if (!PyErr_Occurred()) | |||
| 87768 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dpptri to C/Fortran array" ); | |||
| 87769 | } else { | |||
| 87770 | ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 87771 | ||||
| 87772 | /* Processing variable info */ | |||
| 87773 | /* Processing variable L */ | |||
| 87774 | L = len(ap)ap_Dims[0]; | |||
| 87775 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","dpptri:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpptri:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87776 | /*end of frompyobj*/ | |||
| 87777 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87778 | f2py_start_call_clock(); | |||
| 87779 | #endif | |||
| 87780 | /*callfortranroutine*/ | |||
| 87781 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 87782 | (*f2py_func)((lower?"L":"U"),&n,ap,&info) ; | |||
| 87783 | /*(*f2py_func)(&lower,&n,ap,&info,&L);*/ | |||
| 87784 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 87785 | if (PyErr_Occurred()) | |||
| 87786 | f2py_success = 0; | |||
| 87787 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87788 | f2py_stop_call_clock(); | |||
| 87789 | #endif | |||
| 87790 | /*end of callfortranroutine*/ | |||
| 87791 | if (f2py_success) { | |||
| 87792 | /*pyobjfrom*/ | |||
| 87793 | /*end of pyobjfrom*/ | |||
| 87794 | CFUNCSMESS("Building return value.\n"); | |||
| 87795 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 87796 | /*closepyobjfrom*/ | |||
| 87797 | /*end of closepyobjfrom*/ | |||
| 87798 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 87799 | /*cleanupfrompyobj*/ | |||
| 87800 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 87801 | /* End of cleaning variable L */ | |||
| 87802 | /* End of cleaning variable info */ | |||
| 87803 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 87804 | /* End of cleaning variable ap */ | |||
| 87805 | } /*CHECKSCALAR(n>=0)*/ | |||
| 87806 | } /*if (f2py_success) of n*/ | |||
| 87807 | /* End of cleaning variable n */ | |||
| 87808 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 87809 | } /*if (f2py_success) of lower*/ | |||
| 87810 | /* End of cleaning variable lower */ | |||
| 87811 | /*end of cleanupfrompyobj*/ | |||
| 87812 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 87813 | /*routdebugfailure*/ | |||
| 87814 | } else { | |||
| 87815 | /*routdebugleave*/ | |||
| 87816 | } | |||
| 87817 | CFUNCSMESS("Freeing memory.\n"); | |||
| 87818 | /*freemem*/ | |||
| 87819 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87820 | f2py_stop_clock(); | |||
| 87821 | #endif | |||
| 87822 | return capi_buildvalue; | |||
| 87823 | } | |||
| 87824 | /******************************* end of dpptri *******************************/ | |||
| 87825 | ||||
| 87826 | /*********************************** cpptri ***********************************/ | |||
| 87827 | static char doc_f2py_rout__flapack_cpptri[] = "\ | |||
| 87828 | uli,info = cpptri(n,ap,[lower,overwrite_ap])\n\nWrapper for ``cpptri``.\ | |||
| 87829 | \n\nParameters\n----------\n" | |||
| 87830 | "n : input int\n" | |||
| 87831 | "ap : input rank-1 array('F') with bounds (L)\n" | |||
| 87832 | "\nOther Parameters\n----------------\n" | |||
| 87833 | "lower : input int, optional\n Default: 0\n" | |||
| 87834 | "overwrite_ap : input int, optional\n Default: 0\n" | |||
| 87835 | "\nReturns\n-------\n" | |||
| 87836 | "uli : rank-1 array('F') with bounds (L) and ap storage\n" | |||
| 87837 | "info : int"; | |||
| 87838 | /* extern void F_FUNC(cpptri,CPPTRI)(char*,F_INT*,complex_float*,F_INT* ); */ | |||
| 87839 | static PyObject *f2py_rout__flapack_cpptri(const PyObject *capi_self, | |||
| 87840 | PyObject *capi_args, | |||
| 87841 | PyObject *capi_keywds, | |||
| 87842 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint* )) { | |||
| 87843 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 87844 | volatile int f2py_success = 1; | |||
| 87845 | /*decl*/ | |||
| 87846 | ||||
| 87847 | int lower = 0; | |||
| 87848 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 87849 | int n = 0; | |||
| 87850 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 87851 | complex_float *ap = NULL((void*)0); | |||
| 87852 | npy_intp ap_Dims[1] = {-1}; | |||
| 87853 | const int ap_Rank = 1; | |||
| 87854 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 87855 | int capi_ap_intent = 0; | |||
| 87856 | int capi_overwrite_ap = 0; | |||
| 87857 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 87858 | int info = 0; | |||
| 87859 | int L = 0; | |||
| 87860 | static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)}; | |||
| 87861 | ||||
| 87862 | /*routdebugenter*/ | |||
| 87863 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87864 | f2py_start_clock(); | |||
| 87865 | #endif | |||
| 87866 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 87867 | "OO|Oi:_flapack.cpptri",\ | |||
| 87868 | capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap)) | |||
| 87869 | return NULL((void*)0); | |||
| 87870 | /*frompyobj*/ | |||
| 87871 | /* Processing variable lower */ | |||
| 87872 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 87873 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpptri() 1st keyword (lower) can't be converted to int"); | |||
| 87874 | if (f2py_success) { | |||
| 87875 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpptri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpptri:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 87876 | /* Processing variable n */ | |||
| 87877 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cpptri() 1st argument (n) can't be converted to int"); | |||
| 87878 | if (f2py_success) { | |||
| 87879 | CHECKSCALAR(n>=0,"n>=0","1st argument n","cpptri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpptri:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87880 | /* Processing variable ap */ | |||
| 87881 | capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32); | |||
| 87882 | ; | |||
| 87883 | capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 87884 | capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 87885 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 87886 | if (!PyErr_Occurred()) | |||
| 87887 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.cpptri to C/Fortran array" ); | |||
| 87888 | } else { | |||
| 87889 | ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 87890 | ||||
| 87891 | /* Processing variable info */ | |||
| 87892 | /* Processing variable L */ | |||
| 87893 | L = len(ap)ap_Dims[0]; | |||
| 87894 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","cpptri:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpptri:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87895 | /*end of frompyobj*/ | |||
| 87896 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87897 | f2py_start_call_clock(); | |||
| 87898 | #endif | |||
| 87899 | /*callfortranroutine*/ | |||
| 87900 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 87901 | (*f2py_func)((lower?"L":"U"),&n,ap,&info) ; | |||
| 87902 | /*(*f2py_func)(&lower,&n,ap,&info,&L);*/ | |||
| 87903 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 87904 | if (PyErr_Occurred()) | |||
| 87905 | f2py_success = 0; | |||
| 87906 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87907 | f2py_stop_call_clock(); | |||
| 87908 | #endif | |||
| 87909 | /*end of callfortranroutine*/ | |||
| 87910 | if (f2py_success) { | |||
| 87911 | /*pyobjfrom*/ | |||
| 87912 | /*end of pyobjfrom*/ | |||
| 87913 | CFUNCSMESS("Building return value.\n"); | |||
| 87914 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 87915 | /*closepyobjfrom*/ | |||
| 87916 | /*end of closepyobjfrom*/ | |||
| 87917 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 87918 | /*cleanupfrompyobj*/ | |||
| 87919 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 87920 | /* End of cleaning variable L */ | |||
| 87921 | /* End of cleaning variable info */ | |||
| 87922 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 87923 | /* End of cleaning variable ap */ | |||
| 87924 | } /*CHECKSCALAR(n>=0)*/ | |||
| 87925 | } /*if (f2py_success) of n*/ | |||
| 87926 | /* End of cleaning variable n */ | |||
| 87927 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 87928 | } /*if (f2py_success) of lower*/ | |||
| 87929 | /* End of cleaning variable lower */ | |||
| 87930 | /*end of cleanupfrompyobj*/ | |||
| 87931 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 87932 | /*routdebugfailure*/ | |||
| 87933 | } else { | |||
| 87934 | /*routdebugleave*/ | |||
| 87935 | } | |||
| 87936 | CFUNCSMESS("Freeing memory.\n"); | |||
| 87937 | /*freemem*/ | |||
| 87938 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87939 | f2py_stop_clock(); | |||
| 87940 | #endif | |||
| 87941 | return capi_buildvalue; | |||
| 87942 | } | |||
| 87943 | /******************************* end of cpptri *******************************/ | |||
| 87944 | ||||
| 87945 | /*********************************** zpptri ***********************************/ | |||
| 87946 | static char doc_f2py_rout__flapack_zpptri[] = "\ | |||
| 87947 | uli,info = zpptri(n,ap,[lower,overwrite_ap])\n\nWrapper for ``zpptri``.\ | |||
| 87948 | \n\nParameters\n----------\n" | |||
| 87949 | "n : input int\n" | |||
| 87950 | "ap : input rank-1 array('D') with bounds (L)\n" | |||
| 87951 | "\nOther Parameters\n----------------\n" | |||
| 87952 | "lower : input int, optional\n Default: 0\n" | |||
| 87953 | "overwrite_ap : input int, optional\n Default: 0\n" | |||
| 87954 | "\nReturns\n-------\n" | |||
| 87955 | "uli : rank-1 array('D') with bounds (L) and ap storage\n" | |||
| 87956 | "info : int"; | |||
| 87957 | /* extern void F_FUNC(zpptri,ZPPTRI)(char*,F_INT*,complex_double*,F_INT* ); */ | |||
| 87958 | static PyObject *f2py_rout__flapack_zpptri(const PyObject *capi_self, | |||
| 87959 | PyObject *capi_args, | |||
| 87960 | PyObject *capi_keywds, | |||
| 87961 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint* )) { | |||
| 87962 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 87963 | volatile int f2py_success = 1; | |||
| 87964 | /*decl*/ | |||
| 87965 | ||||
| 87966 | int lower = 0; | |||
| 87967 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 87968 | int n = 0; | |||
| 87969 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 87970 | complex_double *ap = NULL((void*)0); | |||
| 87971 | npy_intp ap_Dims[1] = {-1}; | |||
| 87972 | const int ap_Rank = 1; | |||
| 87973 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 87974 | int capi_ap_intent = 0; | |||
| 87975 | int capi_overwrite_ap = 0; | |||
| 87976 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 87977 | int info = 0; | |||
| 87978 | int L = 0; | |||
| 87979 | static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)}; | |||
| 87980 | ||||
| 87981 | /*routdebugenter*/ | |||
| 87982 | #ifdef F2PY_REPORT_ATEXIT | |||
| 87983 | f2py_start_clock(); | |||
| 87984 | #endif | |||
| 87985 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 87986 | "OO|Oi:_flapack.zpptri",\ | |||
| 87987 | capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap)) | |||
| 87988 | return NULL((void*)0); | |||
| 87989 | /*frompyobj*/ | |||
| 87990 | /* Processing variable lower */ | |||
| 87991 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 87992 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpptri() 1st keyword (lower) can't be converted to int"); | |||
| 87993 | if (f2py_success) { | |||
| 87994 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpptri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpptri:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 87995 | /* Processing variable n */ | |||
| 87996 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zpptri() 1st argument (n) can't be converted to int"); | |||
| 87997 | if (f2py_success) { | |||
| 87998 | CHECKSCALAR(n>=0,"n>=0","1st argument n","zpptri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpptri:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 87999 | /* Processing variable ap */ | |||
| 88000 | capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32); | |||
| 88001 | ; | |||
| 88002 | capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 88003 | capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 88004 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 88005 | if (!PyErr_Occurred()) | |||
| 88006 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.zpptri to C/Fortran array" ); | |||
| 88007 | } else { | |||
| 88008 | ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 88009 | ||||
| 88010 | /* Processing variable info */ | |||
| 88011 | /* Processing variable L */ | |||
| 88012 | L = len(ap)ap_Dims[0]; | |||
| 88013 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","zpptri:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpptri:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 88014 | /*end of frompyobj*/ | |||
| 88015 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88016 | f2py_start_call_clock(); | |||
| 88017 | #endif | |||
| 88018 | /*callfortranroutine*/ | |||
| 88019 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 88020 | (*f2py_func)((lower?"L":"U"),&n,ap,&info) ; | |||
| 88021 | /*(*f2py_func)(&lower,&n,ap,&info,&L);*/ | |||
| 88022 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 88023 | if (PyErr_Occurred()) | |||
| 88024 | f2py_success = 0; | |||
| 88025 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88026 | f2py_stop_call_clock(); | |||
| 88027 | #endif | |||
| 88028 | /*end of callfortranroutine*/ | |||
| 88029 | if (f2py_success) { | |||
| 88030 | /*pyobjfrom*/ | |||
| 88031 | /*end of pyobjfrom*/ | |||
| 88032 | CFUNCSMESS("Building return value.\n"); | |||
| 88033 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 88034 | /*closepyobjfrom*/ | |||
| 88035 | /*end of closepyobjfrom*/ | |||
| 88036 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 88037 | /*cleanupfrompyobj*/ | |||
| 88038 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 88039 | /* End of cleaning variable L */ | |||
| 88040 | /* End of cleaning variable info */ | |||
| 88041 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 88042 | /* End of cleaning variable ap */ | |||
| 88043 | } /*CHECKSCALAR(n>=0)*/ | |||
| 88044 | } /*if (f2py_success) of n*/ | |||
| 88045 | /* End of cleaning variable n */ | |||
| 88046 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 88047 | } /*if (f2py_success) of lower*/ | |||
| 88048 | /* End of cleaning variable lower */ | |||
| 88049 | /*end of cleanupfrompyobj*/ | |||
| 88050 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 88051 | /*routdebugfailure*/ | |||
| 88052 | } else { | |||
| 88053 | /*routdebugleave*/ | |||
| 88054 | } | |||
| 88055 | CFUNCSMESS("Freeing memory.\n"); | |||
| 88056 | /*freemem*/ | |||
| 88057 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88058 | f2py_stop_clock(); | |||
| 88059 | #endif | |||
| 88060 | return capi_buildvalue; | |||
| 88061 | } | |||
| 88062 | /******************************* end of zpptri *******************************/ | |||
| 88063 | ||||
| 88064 | /*********************************** spptrs ***********************************/ | |||
| 88065 | static char doc_f2py_rout__flapack_spptrs[] = "\ | |||
| 88066 | x,info = spptrs(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``spptrs``.\ | |||
| 88067 | \n\nParameters\n----------\n" | |||
| 88068 | "n : input int\n" | |||
| 88069 | "ap : input rank-1 array('f') with bounds (L)\n" | |||
| 88070 | "b : input rank-2 array('f') with bounds (ldb,nrhs)\n" | |||
| 88071 | "\nOther Parameters\n----------------\n" | |||
| 88072 | "lower : input int, optional\n Default: 0\n" | |||
| 88073 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 88074 | "\nReturns\n-------\n" | |||
| 88075 | "x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n" | |||
| 88076 | "info : int"; | |||
| 88077 | /* extern void F_FUNC(spptrs,SPPTRS)(char*,F_INT*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 88078 | static PyObject *f2py_rout__flapack_spptrs(const PyObject *capi_self, | |||
| 88079 | PyObject *capi_args, | |||
| 88080 | PyObject *capi_keywds, | |||
| 88081 | void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 88082 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 88083 | volatile int f2py_success = 1; | |||
| 88084 | /*decl*/ | |||
| 88085 | ||||
| 88086 | int lower = 0; | |||
| 88087 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 88088 | int n = 0; | |||
| 88089 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 88090 | int nrhs = 0; | |||
| 88091 | float *ap = NULL((void*)0); | |||
| 88092 | npy_intp ap_Dims[1] = {-1}; | |||
| 88093 | const int ap_Rank = 1; | |||
| 88094 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 88095 | int capi_ap_intent = 0; | |||
| 88096 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 88097 | float *b = NULL((void*)0); | |||
| 88098 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 88099 | const int b_Rank = 2; | |||
| 88100 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 88101 | int capi_b_intent = 0; | |||
| 88102 | int capi_overwrite_b = 0; | |||
| 88103 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 88104 | int ldb = 0; | |||
| 88105 | int info = 0; | |||
| 88106 | int L = 0; | |||
| 88107 | static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 88108 | ||||
| 88109 | /*routdebugenter*/ | |||
| 88110 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88111 | f2py_start_clock(); | |||
| 88112 | #endif | |||
| 88113 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 88114 | "OOO|Oi:_flapack.spptrs",\ | |||
| 88115 | capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 88116 | return NULL((void*)0); | |||
| 88117 | /*frompyobj*/ | |||
| 88118 | /* Processing variable lower */ | |||
| 88119 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 88120 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spptrs() 1st keyword (lower) can't be converted to int"); | |||
| 88121 | if (f2py_success) { | |||
| 88122 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spptrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spptrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 88123 | /* Processing variable n */ | |||
| 88124 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.spptrs() 1st argument (n) can't be converted to int"); | |||
| 88125 | if (f2py_success) { | |||
| 88126 | CHECKSCALAR(n>=0,"n>=0","1st argument n","spptrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spptrs:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 88127 | /* Processing variable ap */ | |||
| 88128 | ; | |||
| 88129 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 88130 | capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 88131 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 88132 | if (!PyErr_Occurred()) | |||
| 88133 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.spptrs to C/Fortran array" ); | |||
| 88134 | } else { | |||
| 88135 | ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 88136 | ||||
| 88137 | /* Processing variable b */ | |||
| 88138 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 88139 | ; | |||
| 88140 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 88141 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 88142 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 88143 | if (!PyErr_Occurred()) | |||
| 88144 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.spptrs to C/Fortran array" ); | |||
| 88145 | } else { | |||
| 88146 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 88147 | ||||
| 88148 | /* Processing variable info */ | |||
| 88149 | /* Processing variable ldb */ | |||
| 88150 | ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 88151 | /* Processing variable nrhs */ | |||
| 88152 | nrhs = shape(b,1)b_Dims[1]; | |||
| 88153 | /* Processing variable L */ | |||
| 88154 | L = len(ap)ap_Dims[0]; | |||
| 88155 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","spptrs:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spptrs:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 88156 | /*end of frompyobj*/ | |||
| 88157 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88158 | f2py_start_call_clock(); | |||
| 88159 | #endif | |||
| 88160 | /*callfortranroutine*/ | |||
| 88161 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 88162 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ; | |||
| 88163 | /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/ | |||
| 88164 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 88165 | if (PyErr_Occurred()) | |||
| 88166 | f2py_success = 0; | |||
| 88167 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88168 | f2py_stop_call_clock(); | |||
| 88169 | #endif | |||
| 88170 | /*end of callfortranroutine*/ | |||
| 88171 | if (f2py_success) { | |||
| 88172 | /*pyobjfrom*/ | |||
| 88173 | /*end of pyobjfrom*/ | |||
| 88174 | CFUNCSMESS("Building return value.\n"); | |||
| 88175 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 88176 | /*closepyobjfrom*/ | |||
| 88177 | /*end of closepyobjfrom*/ | |||
| 88178 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 88179 | /*cleanupfrompyobj*/ | |||
| 88180 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 88181 | /* End of cleaning variable L */ | |||
| 88182 | /* End of cleaning variable nrhs */ | |||
| 88183 | /* End of cleaning variable ldb */ | |||
| 88184 | /* End of cleaning variable info */ | |||
| 88185 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 88186 | /* End of cleaning variable b */ | |||
| 88187 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 88188 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 88189 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 88190 | /* End of cleaning variable ap */ | |||
| 88191 | } /*CHECKSCALAR(n>=0)*/ | |||
| 88192 | } /*if (f2py_success) of n*/ | |||
| 88193 | /* End of cleaning variable n */ | |||
| 88194 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 88195 | } /*if (f2py_success) of lower*/ | |||
| 88196 | /* End of cleaning variable lower */ | |||
| 88197 | /*end of cleanupfrompyobj*/ | |||
| 88198 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 88199 | /*routdebugfailure*/ | |||
| 88200 | } else { | |||
| 88201 | /*routdebugleave*/ | |||
| 88202 | } | |||
| 88203 | CFUNCSMESS("Freeing memory.\n"); | |||
| 88204 | /*freemem*/ | |||
| 88205 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88206 | f2py_stop_clock(); | |||
| 88207 | #endif | |||
| 88208 | return capi_buildvalue; | |||
| 88209 | } | |||
| 88210 | /******************************* end of spptrs *******************************/ | |||
| 88211 | ||||
| 88212 | /*********************************** dpptrs ***********************************/ | |||
| 88213 | static char doc_f2py_rout__flapack_dpptrs[] = "\ | |||
| 88214 | x,info = dpptrs(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``dpptrs``.\ | |||
| 88215 | \n\nParameters\n----------\n" | |||
| 88216 | "n : input int\n" | |||
| 88217 | "ap : input rank-1 array('d') with bounds (L)\n" | |||
| 88218 | "b : input rank-2 array('d') with bounds (ldb,nrhs)\n" | |||
| 88219 | "\nOther Parameters\n----------------\n" | |||
| 88220 | "lower : input int, optional\n Default: 0\n" | |||
| 88221 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 88222 | "\nReturns\n-------\n" | |||
| 88223 | "x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n" | |||
| 88224 | "info : int"; | |||
| 88225 | /* extern void F_FUNC(dpptrs,DPPTRS)(char*,F_INT*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 88226 | static PyObject *f2py_rout__flapack_dpptrs(const PyObject *capi_self, | |||
| 88227 | PyObject *capi_args, | |||
| 88228 | PyObject *capi_keywds, | |||
| 88229 | void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 88230 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 88231 | volatile int f2py_success = 1; | |||
| 88232 | /*decl*/ | |||
| 88233 | ||||
| 88234 | int lower = 0; | |||
| 88235 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 88236 | int n = 0; | |||
| 88237 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 88238 | int nrhs = 0; | |||
| 88239 | double *ap = NULL((void*)0); | |||
| 88240 | npy_intp ap_Dims[1] = {-1}; | |||
| 88241 | const int ap_Rank = 1; | |||
| 88242 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 88243 | int capi_ap_intent = 0; | |||
| 88244 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 88245 | double *b = NULL((void*)0); | |||
| 88246 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 88247 | const int b_Rank = 2; | |||
| 88248 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 88249 | int capi_b_intent = 0; | |||
| 88250 | int capi_overwrite_b = 0; | |||
| 88251 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 88252 | int ldb = 0; | |||
| 88253 | int info = 0; | |||
| 88254 | int L = 0; | |||
| 88255 | static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 88256 | ||||
| 88257 | /*routdebugenter*/ | |||
| 88258 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88259 | f2py_start_clock(); | |||
| 88260 | #endif | |||
| 88261 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 88262 | "OOO|Oi:_flapack.dpptrs",\ | |||
| 88263 | capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 88264 | return NULL((void*)0); | |||
| 88265 | /*frompyobj*/ | |||
| 88266 | /* Processing variable lower */ | |||
| 88267 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 88268 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpptrs() 1st keyword (lower) can't be converted to int"); | |||
| 88269 | if (f2py_success) { | |||
| 88270 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpptrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpptrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 88271 | /* Processing variable n */ | |||
| 88272 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dpptrs() 1st argument (n) can't be converted to int"); | |||
| 88273 | if (f2py_success) { | |||
| 88274 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dpptrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpptrs:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 88275 | /* Processing variable ap */ | |||
| 88276 | ; | |||
| 88277 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 88278 | capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 88279 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 88280 | if (!PyErr_Occurred()) | |||
| 88281 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dpptrs to C/Fortran array" ); | |||
| 88282 | } else { | |||
| 88283 | ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 88284 | ||||
| 88285 | /* Processing variable b */ | |||
| 88286 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 88287 | ; | |||
| 88288 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 88289 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 88290 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 88291 | if (!PyErr_Occurred()) | |||
| 88292 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dpptrs to C/Fortran array" ); | |||
| 88293 | } else { | |||
| 88294 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 88295 | ||||
| 88296 | /* Processing variable info */ | |||
| 88297 | /* Processing variable ldb */ | |||
| 88298 | ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 88299 | /* Processing variable nrhs */ | |||
| 88300 | nrhs = shape(b,1)b_Dims[1]; | |||
| 88301 | /* Processing variable L */ | |||
| 88302 | L = len(ap)ap_Dims[0]; | |||
| 88303 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","dpptrs:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpptrs:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 88304 | /*end of frompyobj*/ | |||
| 88305 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88306 | f2py_start_call_clock(); | |||
| 88307 | #endif | |||
| 88308 | /*callfortranroutine*/ | |||
| 88309 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 88310 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ; | |||
| 88311 | /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/ | |||
| 88312 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 88313 | if (PyErr_Occurred()) | |||
| 88314 | f2py_success = 0; | |||
| 88315 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88316 | f2py_stop_call_clock(); | |||
| 88317 | #endif | |||
| 88318 | /*end of callfortranroutine*/ | |||
| 88319 | if (f2py_success) { | |||
| 88320 | /*pyobjfrom*/ | |||
| 88321 | /*end of pyobjfrom*/ | |||
| 88322 | CFUNCSMESS("Building return value.\n"); | |||
| 88323 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 88324 | /*closepyobjfrom*/ | |||
| 88325 | /*end of closepyobjfrom*/ | |||
| 88326 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 88327 | /*cleanupfrompyobj*/ | |||
| 88328 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 88329 | /* End of cleaning variable L */ | |||
| 88330 | /* End of cleaning variable nrhs */ | |||
| 88331 | /* End of cleaning variable ldb */ | |||
| 88332 | /* End of cleaning variable info */ | |||
| 88333 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 88334 | /* End of cleaning variable b */ | |||
| 88335 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 88336 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 88337 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 88338 | /* End of cleaning variable ap */ | |||
| 88339 | } /*CHECKSCALAR(n>=0)*/ | |||
| 88340 | } /*if (f2py_success) of n*/ | |||
| 88341 | /* End of cleaning variable n */ | |||
| 88342 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 88343 | } /*if (f2py_success) of lower*/ | |||
| 88344 | /* End of cleaning variable lower */ | |||
| 88345 | /*end of cleanupfrompyobj*/ | |||
| 88346 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 88347 | /*routdebugfailure*/ | |||
| 88348 | } else { | |||
| 88349 | /*routdebugleave*/ | |||
| 88350 | } | |||
| 88351 | CFUNCSMESS("Freeing memory.\n"); | |||
| 88352 | /*freemem*/ | |||
| 88353 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88354 | f2py_stop_clock(); | |||
| 88355 | #endif | |||
| 88356 | return capi_buildvalue; | |||
| 88357 | } | |||
| 88358 | /******************************* end of dpptrs *******************************/ | |||
| 88359 | ||||
| 88360 | /*********************************** cpptrs ***********************************/ | |||
| 88361 | static char doc_f2py_rout__flapack_cpptrs[] = "\ | |||
| 88362 | x,info = cpptrs(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``cpptrs``.\ | |||
| 88363 | \n\nParameters\n----------\n" | |||
| 88364 | "n : input int\n" | |||
| 88365 | "ap : input rank-1 array('F') with bounds (L)\n" | |||
| 88366 | "b : input rank-2 array('F') with bounds (ldb,nrhs)\n" | |||
| 88367 | "\nOther Parameters\n----------------\n" | |||
| 88368 | "lower : input int, optional\n Default: 0\n" | |||
| 88369 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 88370 | "\nReturns\n-------\n" | |||
| 88371 | "x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n" | |||
| 88372 | "info : int"; | |||
| 88373 | /* extern void F_FUNC(cpptrs,CPPTRS)(char*,F_INT*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 88374 | static PyObject *f2py_rout__flapack_cpptrs(const PyObject *capi_self, | |||
| 88375 | PyObject *capi_args, | |||
| 88376 | PyObject *capi_keywds, | |||
| 88377 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 88378 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 88379 | volatile int f2py_success = 1; | |||
| 88380 | /*decl*/ | |||
| 88381 | ||||
| 88382 | int lower = 0; | |||
| 88383 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 88384 | int n = 0; | |||
| 88385 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 88386 | int nrhs = 0; | |||
| 88387 | complex_float *ap = NULL((void*)0); | |||
| 88388 | npy_intp ap_Dims[1] = {-1}; | |||
| 88389 | const int ap_Rank = 1; | |||
| 88390 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 88391 | int capi_ap_intent = 0; | |||
| 88392 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 88393 | complex_float *b = NULL((void*)0); | |||
| 88394 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 88395 | const int b_Rank = 2; | |||
| 88396 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 88397 | int capi_b_intent = 0; | |||
| 88398 | int capi_overwrite_b = 0; | |||
| 88399 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 88400 | int ldb = 0; | |||
| 88401 | int info = 0; | |||
| 88402 | int L = 0; | |||
| 88403 | static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 88404 | ||||
| 88405 | /*routdebugenter*/ | |||
| 88406 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88407 | f2py_start_clock(); | |||
| 88408 | #endif | |||
| 88409 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 88410 | "OOO|Oi:_flapack.cpptrs",\ | |||
| 88411 | capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 88412 | return NULL((void*)0); | |||
| 88413 | /*frompyobj*/ | |||
| 88414 | /* Processing variable lower */ | |||
| 88415 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 88416 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpptrs() 1st keyword (lower) can't be converted to int"); | |||
| 88417 | if (f2py_success) { | |||
| 88418 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpptrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpptrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 88419 | /* Processing variable n */ | |||
| 88420 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cpptrs() 1st argument (n) can't be converted to int"); | |||
| 88421 | if (f2py_success) { | |||
| 88422 | CHECKSCALAR(n>=0,"n>=0","1st argument n","cpptrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpptrs:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 88423 | /* Processing variable ap */ | |||
| 88424 | ; | |||
| 88425 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 88426 | capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 88427 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 88428 | if (!PyErr_Occurred()) | |||
| 88429 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.cpptrs to C/Fortran array" ); | |||
| 88430 | } else { | |||
| 88431 | ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 88432 | ||||
| 88433 | /* Processing variable b */ | |||
| 88434 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 88435 | ; | |||
| 88436 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 88437 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 88438 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 88439 | if (!PyErr_Occurred()) | |||
| 88440 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cpptrs to C/Fortran array" ); | |||
| 88441 | } else { | |||
| 88442 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 88443 | ||||
| 88444 | /* Processing variable info */ | |||
| 88445 | /* Processing variable ldb */ | |||
| 88446 | ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 88447 | /* Processing variable nrhs */ | |||
| 88448 | nrhs = shape(b,1)b_Dims[1]; | |||
| 88449 | /* Processing variable L */ | |||
| 88450 | L = len(ap)ap_Dims[0]; | |||
| 88451 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","cpptrs:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpptrs:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 88452 | /*end of frompyobj*/ | |||
| 88453 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88454 | f2py_start_call_clock(); | |||
| 88455 | #endif | |||
| 88456 | /*callfortranroutine*/ | |||
| 88457 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 88458 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ; | |||
| 88459 | /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/ | |||
| 88460 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 88461 | if (PyErr_Occurred()) | |||
| 88462 | f2py_success = 0; | |||
| 88463 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88464 | f2py_stop_call_clock(); | |||
| 88465 | #endif | |||
| 88466 | /*end of callfortranroutine*/ | |||
| 88467 | if (f2py_success) { | |||
| 88468 | /*pyobjfrom*/ | |||
| 88469 | /*end of pyobjfrom*/ | |||
| 88470 | CFUNCSMESS("Building return value.\n"); | |||
| 88471 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 88472 | /*closepyobjfrom*/ | |||
| 88473 | /*end of closepyobjfrom*/ | |||
| 88474 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 88475 | /*cleanupfrompyobj*/ | |||
| 88476 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 88477 | /* End of cleaning variable L */ | |||
| 88478 | /* End of cleaning variable nrhs */ | |||
| 88479 | /* End of cleaning variable ldb */ | |||
| 88480 | /* End of cleaning variable info */ | |||
| 88481 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 88482 | /* End of cleaning variable b */ | |||
| 88483 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 88484 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 88485 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 88486 | /* End of cleaning variable ap */ | |||
| 88487 | } /*CHECKSCALAR(n>=0)*/ | |||
| 88488 | } /*if (f2py_success) of n*/ | |||
| 88489 | /* End of cleaning variable n */ | |||
| 88490 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 88491 | } /*if (f2py_success) of lower*/ | |||
| 88492 | /* End of cleaning variable lower */ | |||
| 88493 | /*end of cleanupfrompyobj*/ | |||
| 88494 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 88495 | /*routdebugfailure*/ | |||
| 88496 | } else { | |||
| 88497 | /*routdebugleave*/ | |||
| 88498 | } | |||
| 88499 | CFUNCSMESS("Freeing memory.\n"); | |||
| 88500 | /*freemem*/ | |||
| 88501 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88502 | f2py_stop_clock(); | |||
| 88503 | #endif | |||
| 88504 | return capi_buildvalue; | |||
| 88505 | } | |||
| 88506 | /******************************* end of cpptrs *******************************/ | |||
| 88507 | ||||
| 88508 | /*********************************** zpptrs ***********************************/ | |||
| 88509 | static char doc_f2py_rout__flapack_zpptrs[] = "\ | |||
| 88510 | x,info = zpptrs(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``zpptrs``.\ | |||
| 88511 | \n\nParameters\n----------\n" | |||
| 88512 | "n : input int\n" | |||
| 88513 | "ap : input rank-1 array('D') with bounds (L)\n" | |||
| 88514 | "b : input rank-2 array('D') with bounds (ldb,nrhs)\n" | |||
| 88515 | "\nOther Parameters\n----------------\n" | |||
| 88516 | "lower : input int, optional\n Default: 0\n" | |||
| 88517 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 88518 | "\nReturns\n-------\n" | |||
| 88519 | "x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n" | |||
| 88520 | "info : int"; | |||
| 88521 | /* extern void F_FUNC(zpptrs,ZPPTRS)(char*,F_INT*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 88522 | static PyObject *f2py_rout__flapack_zpptrs(const PyObject *capi_self, | |||
| 88523 | PyObject *capi_args, | |||
| 88524 | PyObject *capi_keywds, | |||
| 88525 | void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 88526 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 88527 | volatile int f2py_success = 1; | |||
| 88528 | /*decl*/ | |||
| 88529 | ||||
| 88530 | int lower = 0; | |||
| 88531 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 88532 | int n = 0; | |||
| 88533 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 88534 | int nrhs = 0; | |||
| 88535 | complex_double *ap = NULL((void*)0); | |||
| 88536 | npy_intp ap_Dims[1] = {-1}; | |||
| 88537 | const int ap_Rank = 1; | |||
| 88538 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 88539 | int capi_ap_intent = 0; | |||
| 88540 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 88541 | complex_double *b = NULL((void*)0); | |||
| 88542 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 88543 | const int b_Rank = 2; | |||
| 88544 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 88545 | int capi_b_intent = 0; | |||
| 88546 | int capi_overwrite_b = 0; | |||
| 88547 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 88548 | int ldb = 0; | |||
| 88549 | int info = 0; | |||
| 88550 | int L = 0; | |||
| 88551 | static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)}; | |||
| 88552 | ||||
| 88553 | /*routdebugenter*/ | |||
| 88554 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88555 | f2py_start_clock(); | |||
| 88556 | #endif | |||
| 88557 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 88558 | "OOO|Oi:_flapack.zpptrs",\ | |||
| 88559 | capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b)) | |||
| 88560 | return NULL((void*)0); | |||
| 88561 | /*frompyobj*/ | |||
| 88562 | /* Processing variable lower */ | |||
| 88563 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 88564 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpptrs() 1st keyword (lower) can't be converted to int"); | |||
| 88565 | if (f2py_success) { | |||
| 88566 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpptrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpptrs:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 88567 | /* Processing variable n */ | |||
| 88568 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zpptrs() 1st argument (n) can't be converted to int"); | |||
| 88569 | if (f2py_success) { | |||
| 88570 | CHECKSCALAR(n>=0,"n>=0","1st argument n","zpptrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpptrs:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 88571 | /* Processing variable ap */ | |||
| 88572 | ; | |||
| 88573 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 88574 | capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 88575 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 88576 | if (!PyErr_Occurred()) | |||
| 88577 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.zpptrs to C/Fortran array" ); | |||
| 88578 | } else { | |||
| 88579 | ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 88580 | ||||
| 88581 | /* Processing variable b */ | |||
| 88582 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 88583 | ; | |||
| 88584 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 88585 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 88586 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 88587 | if (!PyErr_Occurred()) | |||
| 88588 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zpptrs to C/Fortran array" ); | |||
| 88589 | } else { | |||
| 88590 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 88591 | ||||
| 88592 | /* Processing variable info */ | |||
| 88593 | /* Processing variable ldb */ | |||
| 88594 | ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0])); | |||
| 88595 | /* Processing variable nrhs */ | |||
| 88596 | nrhs = shape(b,1)b_Dims[1]; | |||
| 88597 | /* Processing variable L */ | |||
| 88598 | L = len(ap)ap_Dims[0]; | |||
| 88599 | CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","zpptrs:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpptrs:L=%d", "(""L>=(n*(n+1)/2)"") failed for " "hidden L", L); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 88600 | /*end of frompyobj*/ | |||
| 88601 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88602 | f2py_start_call_clock(); | |||
| 88603 | #endif | |||
| 88604 | /*callfortranroutine*/ | |||
| 88605 | Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread(); | |||
| 88606 | (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ; | |||
| 88607 | /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/ | |||
| 88608 | Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); } | |||
| 88609 | if (PyErr_Occurred()) | |||
| 88610 | f2py_success = 0; | |||
| 88611 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88612 | f2py_stop_call_clock(); | |||
| 88613 | #endif | |||
| 88614 | /*end of callfortranroutine*/ | |||
| 88615 | if (f2py_success) { | |||
| 88616 | /*pyobjfrom*/ | |||
| 88617 | /*end of pyobjfrom*/ | |||
| 88618 | CFUNCSMESS("Building return value.\n"); | |||
| 88619 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 88620 | /*closepyobjfrom*/ | |||
| 88621 | /*end of closepyobjfrom*/ | |||
| 88622 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 88623 | /*cleanupfrompyobj*/ | |||
| 88624 | } /*CHECKSCALAR(L>=(n*(n+1)/2))*/ | |||
| 88625 | /* End of cleaning variable L */ | |||
| 88626 | /* End of cleaning variable nrhs */ | |||
| 88627 | /* End of cleaning variable ldb */ | |||
| 88628 | /* End of cleaning variable info */ | |||
| 88629 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 88630 | /* End of cleaning variable b */ | |||
| 88631 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 88632 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 88633 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 88634 | /* End of cleaning variable ap */ | |||
| 88635 | } /*CHECKSCALAR(n>=0)*/ | |||
| 88636 | } /*if (f2py_success) of n*/ | |||
| 88637 | /* End of cleaning variable n */ | |||
| 88638 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 88639 | } /*if (f2py_success) of lower*/ | |||
| 88640 | /* End of cleaning variable lower */ | |||
| 88641 | /*end of cleanupfrompyobj*/ | |||
| 88642 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 88643 | /*routdebugfailure*/ | |||
| 88644 | } else { | |||
| 88645 | /*routdebugleave*/ | |||
| 88646 | } | |||
| 88647 | CFUNCSMESS("Freeing memory.\n"); | |||
| 88648 | /*freemem*/ | |||
| 88649 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88650 | f2py_stop_clock(); | |||
| 88651 | #endif | |||
| 88652 | return capi_buildvalue; | |||
| 88653 | } | |||
| 88654 | /******************************* end of zpptrs *******************************/ | |||
| 88655 | ||||
| 88656 | /*********************************** ssbev ***********************************/ | |||
| 88657 | static char doc_f2py_rout__flapack_ssbev[] = "\ | |||
| 88658 | w,z,info = ssbev(ab,[compute_v,lower,ldab,overwrite_ab])\n\nWrapper for ``ssbev``.\ | |||
| 88659 | \n\nParameters\n----------\n" | |||
| 88660 | "ab : input rank-2 array('f') with bounds (ldab,n)\n" | |||
| 88661 | "\nOther Parameters\n----------------\n" | |||
| 88662 | "overwrite_ab : input int, optional\n Default: 1\n" | |||
| 88663 | "compute_v : input int, optional\n Default: 1\n" | |||
| 88664 | "lower : input int, optional\n Default: 0\n" | |||
| 88665 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 88666 | "\nReturns\n-------\n" | |||
| 88667 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 88668 | "z : rank-2 array('f') with bounds (ldz,ldz)\n" | |||
| 88669 | "info : int"; | |||
| 88670 | /* extern void F_FUNC(ssbev,SSBEV)(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT* ); */ | |||
| 88671 | static PyObject *f2py_rout__flapack_ssbev(const PyObject *capi_self, | |||
| 88672 | PyObject *capi_args, | |||
| 88673 | PyObject *capi_keywds, | |||
| 88674 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint* )) { | |||
| 88675 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 88676 | volatile int f2py_success = 1; | |||
| 88677 | /*decl*/ | |||
| 88678 | ||||
| 88679 | float *ab = NULL((void*)0); | |||
| 88680 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 88681 | const int ab_Rank = 2; | |||
| 88682 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 88683 | int capi_ab_intent = 0; | |||
| 88684 | int capi_overwrite_ab = 1; | |||
| 88685 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 88686 | int compute_v = 0; | |||
| 88687 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 88688 | int lower = 0; | |||
| 88689 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 88690 | int n = 0; | |||
| 88691 | int ldab = 0; | |||
| 88692 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 88693 | int kd = 0; | |||
| 88694 | float *w = NULL((void*)0); | |||
| 88695 | npy_intp w_Dims[1] = {-1}; | |||
| 88696 | const int w_Rank = 1; | |||
| 88697 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 88698 | int capi_w_intent = 0; | |||
| 88699 | float *z = NULL((void*)0); | |||
| 88700 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 88701 | const int z_Rank = 2; | |||
| 88702 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 88703 | int capi_z_intent = 0; | |||
| 88704 | int ldz = 0; | |||
| 88705 | float *work = NULL((void*)0); | |||
| 88706 | npy_intp work_Dims[1] = {-1}; | |||
| 88707 | const int work_Rank = 1; | |||
| 88708 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 88709 | int capi_work_intent = 0; | |||
| 88710 | int info = 0; | |||
| 88711 | static char *capi_kwlist[] = {"ab","compute_v","lower","ldab","overwrite_ab",NULL((void*)0)}; | |||
| 88712 | ||||
| 88713 | /*routdebugenter*/ | |||
| 88714 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88715 | f2py_start_clock(); | |||
| 88716 | #endif | |||
| 88717 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 88718 | "O|OOOi:_flapack.ssbev",\ | |||
| 88719 | capi_kwlist,&ab_capi,&compute_v_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab)) | |||
| 88720 | return NULL((void*)0); | |||
| 88721 | /*frompyobj*/ | |||
| 88722 | /* Processing variable ab */ | |||
| 88723 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 88724 | ; | |||
| 88725 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 88726 | capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 88727 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 88728 | if (!PyErr_Occurred()) | |||
| 88729 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.ssbev to C/Fortran array" ); | |||
| 88730 | } else { | |||
| 88731 | ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 88732 | ||||
| 88733 | /* Processing variable compute_v */ | |||
| 88734 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 88735 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssbev() 1st keyword (compute_v) can't be converted to int"); | |||
| 88736 | if (f2py_success) { | |||
| 88737 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","ssbev:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssbev:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 88738 | /* Processing variable lower */ | |||
| 88739 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 88740 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssbev() 2nd keyword (lower) can't be converted to int"); | |||
| 88741 | if (f2py_success) { | |||
| 88742 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssbev:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssbev:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 88743 | /* Processing variable info */ | |||
| 88744 | /* Processing variable ldab */ | |||
| 88745 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 88746 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.ssbev() 3rd keyword (ldab) can't be converted to int"); | |||
| 88747 | if (f2py_success) { | |||
| 88748 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","ssbev:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssbev:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 88749 | /* Processing variable n */ | |||
| 88750 | n = shape(ab,1)ab_Dims[1]; | |||
| 88751 | /* Processing variable kd */ | |||
| 88752 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 88753 | /* Processing variable w */ | |||
| 88754 | w_Dims[0]=n; | |||
| 88755 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 88756 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 88757 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 88758 | if (!PyErr_Occurred()) | |||
| 88759 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssbev to C/Fortran array" ); | |||
| 88760 | } else { | |||
| 88761 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 88762 | ||||
| 88763 | /* Processing variable ldz */ | |||
| 88764 | ldz = (compute_v?n:1); | |||
| 88765 | /* Processing variable z */ | |||
| 88766 | z_Dims[0]=ldz,z_Dims[1]=ldz; | |||
| 88767 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 88768 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 88769 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 88770 | if (!PyErr_Occurred()) | |||
| 88771 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.ssbev to C/Fortran array" ); | |||
| 88772 | } else { | |||
| 88773 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 88774 | ||||
| 88775 | /* Processing variable work */ | |||
| 88776 | work_Dims[0]=MAX(1,3*n-1)((1 > 3*n-1) ? (1) : (3*n-1)); | |||
| 88777 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 88778 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 88779 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 88780 | if (!PyErr_Occurred()) | |||
| 88781 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssbev to C/Fortran array" ); | |||
| 88782 | } else { | |||
| 88783 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 88784 | ||||
| 88785 | /*end of frompyobj*/ | |||
| 88786 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88787 | f2py_start_call_clock(); | |||
| 88788 | #endif | |||
| 88789 | /*callfortranroutine*/ | |||
| 88790 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&kd,ab,&ldab,w,z,&ldz,work,&info) ; | |||
| 88791 | /*(*f2py_func)(ab,&compute_v,&lower,&n,&ldab,&kd,w,z,&ldz,work,&info);*/ | |||
| 88792 | if (PyErr_Occurred()) | |||
| 88793 | f2py_success = 0; | |||
| 88794 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88795 | f2py_stop_call_clock(); | |||
| 88796 | #endif | |||
| 88797 | /*end of callfortranroutine*/ | |||
| 88798 | if (f2py_success) { | |||
| 88799 | /*pyobjfrom*/ | |||
| 88800 | /*end of pyobjfrom*/ | |||
| 88801 | CFUNCSMESS("Building return value.\n"); | |||
| 88802 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_z_tmp,info); | |||
| 88803 | /*closepyobjfrom*/ | |||
| 88804 | /*end of closepyobjfrom*/ | |||
| 88805 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 88806 | /*cleanupfrompyobj*/ | |||
| 88807 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 88808 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 88809 | /* End of cleaning variable work */ | |||
| 88810 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 88811 | /* End of cleaning variable z */ | |||
| 88812 | /* End of cleaning variable ldz */ | |||
| 88813 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 88814 | /* End of cleaning variable w */ | |||
| 88815 | /* End of cleaning variable kd */ | |||
| 88816 | /* End of cleaning variable n */ | |||
| 88817 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 88818 | } /*if (f2py_success) of ldab*/ | |||
| 88819 | /* End of cleaning variable ldab */ | |||
| 88820 | /* End of cleaning variable info */ | |||
| 88821 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 88822 | } /*if (f2py_success) of lower*/ | |||
| 88823 | /* End of cleaning variable lower */ | |||
| 88824 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 88825 | } /*if (f2py_success) of compute_v*/ | |||
| 88826 | /* End of cleaning variable compute_v */ | |||
| 88827 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 88828 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 88829 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 88830 | /* End of cleaning variable ab */ | |||
| 88831 | /*end of cleanupfrompyobj*/ | |||
| 88832 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 88833 | /*routdebugfailure*/ | |||
| 88834 | } else { | |||
| 88835 | /*routdebugleave*/ | |||
| 88836 | } | |||
| 88837 | CFUNCSMESS("Freeing memory.\n"); | |||
| 88838 | /*freemem*/ | |||
| 88839 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88840 | f2py_stop_clock(); | |||
| 88841 | #endif | |||
| 88842 | return capi_buildvalue; | |||
| 88843 | } | |||
| 88844 | /******************************** end of ssbev ********************************/ | |||
| 88845 | ||||
| 88846 | /*********************************** dsbev ***********************************/ | |||
| 88847 | static char doc_f2py_rout__flapack_dsbev[] = "\ | |||
| 88848 | w,z,info = dsbev(ab,[compute_v,lower,ldab,overwrite_ab])\n\nWrapper for ``dsbev``.\ | |||
| 88849 | \n\nParameters\n----------\n" | |||
| 88850 | "ab : input rank-2 array('d') with bounds (ldab,n)\n" | |||
| 88851 | "\nOther Parameters\n----------------\n" | |||
| 88852 | "overwrite_ab : input int, optional\n Default: 1\n" | |||
| 88853 | "compute_v : input int, optional\n Default: 1\n" | |||
| 88854 | "lower : input int, optional\n Default: 0\n" | |||
| 88855 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 88856 | "\nReturns\n-------\n" | |||
| 88857 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 88858 | "z : rank-2 array('d') with bounds (ldz,ldz)\n" | |||
| 88859 | "info : int"; | |||
| 88860 | /* extern void F_FUNC(dsbev,DSBEV)(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT* ); */ | |||
| 88861 | static PyObject *f2py_rout__flapack_dsbev(const PyObject *capi_self, | |||
| 88862 | PyObject *capi_args, | |||
| 88863 | PyObject *capi_keywds, | |||
| 88864 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint* )) { | |||
| 88865 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 88866 | volatile int f2py_success = 1; | |||
| 88867 | /*decl*/ | |||
| 88868 | ||||
| 88869 | double *ab = NULL((void*)0); | |||
| 88870 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 88871 | const int ab_Rank = 2; | |||
| 88872 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 88873 | int capi_ab_intent = 0; | |||
| 88874 | int capi_overwrite_ab = 1; | |||
| 88875 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 88876 | int compute_v = 0; | |||
| 88877 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 88878 | int lower = 0; | |||
| 88879 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 88880 | int n = 0; | |||
| 88881 | int ldab = 0; | |||
| 88882 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 88883 | int kd = 0; | |||
| 88884 | double *w = NULL((void*)0); | |||
| 88885 | npy_intp w_Dims[1] = {-1}; | |||
| 88886 | const int w_Rank = 1; | |||
| 88887 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 88888 | int capi_w_intent = 0; | |||
| 88889 | double *z = NULL((void*)0); | |||
| 88890 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 88891 | const int z_Rank = 2; | |||
| 88892 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 88893 | int capi_z_intent = 0; | |||
| 88894 | int ldz = 0; | |||
| 88895 | double *work = NULL((void*)0); | |||
| 88896 | npy_intp work_Dims[1] = {-1}; | |||
| 88897 | const int work_Rank = 1; | |||
| 88898 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 88899 | int capi_work_intent = 0; | |||
| 88900 | int info = 0; | |||
| 88901 | static char *capi_kwlist[] = {"ab","compute_v","lower","ldab","overwrite_ab",NULL((void*)0)}; | |||
| 88902 | ||||
| 88903 | /*routdebugenter*/ | |||
| 88904 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88905 | f2py_start_clock(); | |||
| 88906 | #endif | |||
| 88907 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 88908 | "O|OOOi:_flapack.dsbev",\ | |||
| 88909 | capi_kwlist,&ab_capi,&compute_v_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab)) | |||
| 88910 | return NULL((void*)0); | |||
| 88911 | /*frompyobj*/ | |||
| 88912 | /* Processing variable ab */ | |||
| 88913 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 88914 | ; | |||
| 88915 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 88916 | capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 88917 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 88918 | if (!PyErr_Occurred()) | |||
| 88919 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dsbev to C/Fortran array" ); | |||
| 88920 | } else { | |||
| 88921 | ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 88922 | ||||
| 88923 | /* Processing variable compute_v */ | |||
| 88924 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 88925 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsbev() 1st keyword (compute_v) can't be converted to int"); | |||
| 88926 | if (f2py_success) { | |||
| 88927 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","dsbev:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsbev:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 88928 | /* Processing variable lower */ | |||
| 88929 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 88930 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsbev() 2nd keyword (lower) can't be converted to int"); | |||
| 88931 | if (f2py_success) { | |||
| 88932 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsbev:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsbev:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 88933 | /* Processing variable info */ | |||
| 88934 | /* Processing variable ldab */ | |||
| 88935 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 88936 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dsbev() 3rd keyword (ldab) can't be converted to int"); | |||
| 88937 | if (f2py_success) { | |||
| 88938 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","dsbev:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsbev:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 88939 | /* Processing variable n */ | |||
| 88940 | n = shape(ab,1)ab_Dims[1]; | |||
| 88941 | /* Processing variable kd */ | |||
| 88942 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 88943 | /* Processing variable w */ | |||
| 88944 | w_Dims[0]=n; | |||
| 88945 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 88946 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 88947 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 88948 | if (!PyErr_Occurred()) | |||
| 88949 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsbev to C/Fortran array" ); | |||
| 88950 | } else { | |||
| 88951 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 88952 | ||||
| 88953 | /* Processing variable ldz */ | |||
| 88954 | ldz = (compute_v?n:1); | |||
| 88955 | /* Processing variable z */ | |||
| 88956 | z_Dims[0]=ldz,z_Dims[1]=ldz; | |||
| 88957 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 88958 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 88959 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 88960 | if (!PyErr_Occurred()) | |||
| 88961 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dsbev to C/Fortran array" ); | |||
| 88962 | } else { | |||
| 88963 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 88964 | ||||
| 88965 | /* Processing variable work */ | |||
| 88966 | work_Dims[0]=MAX(1,3*n-1)((1 > 3*n-1) ? (1) : (3*n-1)); | |||
| 88967 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 88968 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 88969 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 88970 | if (!PyErr_Occurred()) | |||
| 88971 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsbev to C/Fortran array" ); | |||
| 88972 | } else { | |||
| 88973 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 88974 | ||||
| 88975 | /*end of frompyobj*/ | |||
| 88976 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88977 | f2py_start_call_clock(); | |||
| 88978 | #endif | |||
| 88979 | /*callfortranroutine*/ | |||
| 88980 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&kd,ab,&ldab,w,z,&ldz,work,&info) ; | |||
| 88981 | /*(*f2py_func)(ab,&compute_v,&lower,&n,&ldab,&kd,w,z,&ldz,work,&info);*/ | |||
| 88982 | if (PyErr_Occurred()) | |||
| 88983 | f2py_success = 0; | |||
| 88984 | #ifdef F2PY_REPORT_ATEXIT | |||
| 88985 | f2py_stop_call_clock(); | |||
| 88986 | #endif | |||
| 88987 | /*end of callfortranroutine*/ | |||
| 88988 | if (f2py_success) { | |||
| 88989 | /*pyobjfrom*/ | |||
| 88990 | /*end of pyobjfrom*/ | |||
| 88991 | CFUNCSMESS("Building return value.\n"); | |||
| 88992 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_z_tmp,info); | |||
| 88993 | /*closepyobjfrom*/ | |||
| 88994 | /*end of closepyobjfrom*/ | |||
| 88995 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 88996 | /*cleanupfrompyobj*/ | |||
| 88997 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 88998 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 88999 | /* End of cleaning variable work */ | |||
| 89000 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 89001 | /* End of cleaning variable z */ | |||
| 89002 | /* End of cleaning variable ldz */ | |||
| 89003 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 89004 | /* End of cleaning variable w */ | |||
| 89005 | /* End of cleaning variable kd */ | |||
| 89006 | /* End of cleaning variable n */ | |||
| 89007 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 89008 | } /*if (f2py_success) of ldab*/ | |||
| 89009 | /* End of cleaning variable ldab */ | |||
| 89010 | /* End of cleaning variable info */ | |||
| 89011 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 89012 | } /*if (f2py_success) of lower*/ | |||
| 89013 | /* End of cleaning variable lower */ | |||
| 89014 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 89015 | } /*if (f2py_success) of compute_v*/ | |||
| 89016 | /* End of cleaning variable compute_v */ | |||
| 89017 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 89018 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 89019 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 89020 | /* End of cleaning variable ab */ | |||
| 89021 | /*end of cleanupfrompyobj*/ | |||
| 89022 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 89023 | /*routdebugfailure*/ | |||
| 89024 | } else { | |||
| 89025 | /*routdebugleave*/ | |||
| 89026 | } | |||
| 89027 | CFUNCSMESS("Freeing memory.\n"); | |||
| 89028 | /*freemem*/ | |||
| 89029 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89030 | f2py_stop_clock(); | |||
| 89031 | #endif | |||
| 89032 | return capi_buildvalue; | |||
| 89033 | } | |||
| 89034 | /******************************** end of dsbev ********************************/ | |||
| 89035 | ||||
| 89036 | /*********************************** ssbevd ***********************************/ | |||
| 89037 | static char doc_f2py_rout__flapack_ssbevd[] = "\ | |||
| 89038 | w,z,info = ssbevd(ab,[compute_v,lower,ldab,liwork,overwrite_ab])\n\nWrapper for ``ssbevd``.\ | |||
| 89039 | \n\nParameters\n----------\n" | |||
| 89040 | "ab : input rank-2 array('f') with bounds (ldab,n)\n" | |||
| 89041 | "\nOther Parameters\n----------------\n" | |||
| 89042 | "overwrite_ab : input int, optional\n Default: 1\n" | |||
| 89043 | "compute_v : input int, optional\n Default: 1\n" | |||
| 89044 | "lower : input int, optional\n Default: 0\n" | |||
| 89045 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 89046 | "liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n" | |||
| 89047 | "\nReturns\n-------\n" | |||
| 89048 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 89049 | "z : rank-2 array('f') with bounds (ldz,ldz)\n" | |||
| 89050 | "info : int"; | |||
| 89051 | /* extern void F_FUNC(ssbevd,SSBEVD)(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 89052 | static PyObject *f2py_rout__flapack_ssbevd(const PyObject *capi_self, | |||
| 89053 | PyObject *capi_args, | |||
| 89054 | PyObject *capi_keywds, | |||
| 89055 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 89056 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 89057 | volatile int f2py_success = 1; | |||
| 89058 | /*decl*/ | |||
| 89059 | ||||
| 89060 | float *ab = NULL((void*)0); | |||
| 89061 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 89062 | const int ab_Rank = 2; | |||
| 89063 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 89064 | int capi_ab_intent = 0; | |||
| 89065 | int capi_overwrite_ab = 1; | |||
| 89066 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 89067 | int compute_v = 0; | |||
| 89068 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 89069 | int lower = 0; | |||
| 89070 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 89071 | int n = 0; | |||
| 89072 | int ldab = 0; | |||
| 89073 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 89074 | int kd = 0; | |||
| 89075 | float *w = NULL((void*)0); | |||
| 89076 | npy_intp w_Dims[1] = {-1}; | |||
| 89077 | const int w_Rank = 1; | |||
| 89078 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 89079 | int capi_w_intent = 0; | |||
| 89080 | float *z = NULL((void*)0); | |||
| 89081 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 89082 | const int z_Rank = 2; | |||
| 89083 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 89084 | int capi_z_intent = 0; | |||
| 89085 | int ldz = 0; | |||
| 89086 | float *work = NULL((void*)0); | |||
| 89087 | npy_intp work_Dims[1] = {-1}; | |||
| 89088 | const int work_Rank = 1; | |||
| 89089 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 89090 | int capi_work_intent = 0; | |||
| 89091 | int lwork = 0; | |||
| 89092 | int *iwork = NULL((void*)0); | |||
| 89093 | npy_intp iwork_Dims[1] = {-1}; | |||
| 89094 | const int iwork_Rank = 1; | |||
| 89095 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 89096 | int capi_iwork_intent = 0; | |||
| 89097 | int liwork = 0; | |||
| 89098 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 89099 | int info = 0; | |||
| 89100 | static char *capi_kwlist[] = {"ab","compute_v","lower","ldab","liwork","overwrite_ab",NULL((void*)0)}; | |||
| 89101 | ||||
| 89102 | /*routdebugenter*/ | |||
| 89103 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89104 | f2py_start_clock(); | |||
| 89105 | #endif | |||
| 89106 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 89107 | "O|OOOOi:_flapack.ssbevd",\ | |||
| 89108 | capi_kwlist,&ab_capi,&compute_v_capi,&lower_capi,&ldab_capi,&liwork_capi,&capi_overwrite_ab)) | |||
| 89109 | return NULL((void*)0); | |||
| 89110 | /*frompyobj*/ | |||
| 89111 | /* Processing variable ab */ | |||
| 89112 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 89113 | ; | |||
| 89114 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 89115 | capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 89116 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 89117 | if (!PyErr_Occurred()) | |||
| 89118 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.ssbevd to C/Fortran array" ); | |||
| 89119 | } else { | |||
| 89120 | ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 89121 | ||||
| 89122 | /* Processing variable compute_v */ | |||
| 89123 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 89124 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssbevd() 1st keyword (compute_v) can't be converted to int"); | |||
| 89125 | if (f2py_success) { | |||
| 89126 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","ssbevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssbevd:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 89127 | /* Processing variable lower */ | |||
| 89128 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 89129 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssbevd() 2nd keyword (lower) can't be converted to int"); | |||
| 89130 | if (f2py_success) { | |||
| 89131 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssbevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssbevd:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 89132 | /* Processing variable info */ | |||
| 89133 | /* Processing variable ldab */ | |||
| 89134 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 89135 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.ssbevd() 3rd keyword (ldab) can't be converted to int"); | |||
| 89136 | if (f2py_success) { | |||
| 89137 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","ssbevd:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssbevd:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 89138 | /* Processing variable n */ | |||
| 89139 | n = shape(ab,1)ab_Dims[1]; | |||
| 89140 | /* Processing variable kd */ | |||
| 89141 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 89142 | /* Processing variable w */ | |||
| 89143 | w_Dims[0]=n; | |||
| 89144 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 89145 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 89146 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 89147 | if (!PyErr_Occurred()) | |||
| 89148 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssbevd to C/Fortran array" ); | |||
| 89149 | } else { | |||
| 89150 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 89151 | ||||
| 89152 | /* Processing variable ldz */ | |||
| 89153 | ldz = (compute_v?n:1); | |||
| 89154 | /* Processing variable lwork */ | |||
| 89155 | lwork = max((compute_v?1+5*n+2*n*n:2*n),1)(((compute_v?1+5*n+2*n*n:2*n) > 1) ? ((compute_v?1+5*n+2*n *n:2*n)) : (1)); | |||
| 89156 | /* Processing variable work */ | |||
| 89157 | work_Dims[0]=lwork; | |||
| 89158 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 89159 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 89160 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 89161 | if (!PyErr_Occurred()) | |||
| 89162 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssbevd to C/Fortran array" ); | |||
| 89163 | } else { | |||
| 89164 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 89165 | ||||
| 89166 | /* Processing variable liwork */ | |||
| 89167 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else | |||
| 89168 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.ssbevd() 4th keyword (liwork) can't be converted to int"); | |||
| 89169 | if (f2py_success) { | |||
| 89170 | CHECKSCALAR(liwork>=(compute_v?3+5*n:1),"liwork>=(compute_v?3+5*n:1)","4th keyword liwork","ssbevd:liwork=%d",liwork)if (!(liwork>=(compute_v?3+5*n:1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ssbevd:liwork=%d", "(""liwork>=(compute_v?3+5*n:1)" ") failed for ""4th keyword liwork", liwork); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 89171 | /* Processing variable iwork */ | |||
| 89172 | iwork_Dims[0]=liwork; | |||
| 89173 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 89174 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 89175 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 89176 | if (!PyErr_Occurred()) | |||
| 89177 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssbevd to C/Fortran array" ); | |||
| 89178 | } else { | |||
| 89179 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 89180 | ||||
| 89181 | /* Processing variable z */ | |||
| 89182 | z_Dims[0]=ldz,z_Dims[1]=ldz; | |||
| 89183 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 89184 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 89185 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 89186 | if (!PyErr_Occurred()) | |||
| 89187 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.ssbevd to C/Fortran array" ); | |||
| 89188 | } else { | |||
| 89189 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 89190 | ||||
| 89191 | /*end of frompyobj*/ | |||
| 89192 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89193 | f2py_start_call_clock(); | |||
| 89194 | #endif | |||
| 89195 | /*callfortranroutine*/ | |||
| 89196 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&kd,ab,&ldab,w,z,&ldz,work,&lwork,iwork,&liwork,&info) ; | |||
| 89197 | /*(*f2py_func)(ab,&compute_v,&lower,&n,&ldab,&kd,w,z,&ldz,work,&lwork,iwork,&liwork,&info);*/ | |||
| 89198 | if (PyErr_Occurred()) | |||
| 89199 | f2py_success = 0; | |||
| 89200 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89201 | f2py_stop_call_clock(); | |||
| 89202 | #endif | |||
| 89203 | /*end of callfortranroutine*/ | |||
| 89204 | if (f2py_success) { | |||
| 89205 | /*pyobjfrom*/ | |||
| 89206 | /*end of pyobjfrom*/ | |||
| 89207 | CFUNCSMESS("Building return value.\n"); | |||
| 89208 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_z_tmp,info); | |||
| 89209 | /*closepyobjfrom*/ | |||
| 89210 | /*end of closepyobjfrom*/ | |||
| 89211 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 89212 | /*cleanupfrompyobj*/ | |||
| 89213 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 89214 | /* End of cleaning variable z */ | |||
| 89215 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 89216 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 89217 | /* End of cleaning variable iwork */ | |||
| 89218 | } /*CHECKSCALAR(liwork>=(compute_v?3+5*n:1))*/ | |||
| 89219 | } /*if (f2py_success) of liwork*/ | |||
| 89220 | /* End of cleaning variable liwork */ | |||
| 89221 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 89222 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 89223 | /* End of cleaning variable work */ | |||
| 89224 | /* End of cleaning variable lwork */ | |||
| 89225 | /* End of cleaning variable ldz */ | |||
| 89226 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 89227 | /* End of cleaning variable w */ | |||
| 89228 | /* End of cleaning variable kd */ | |||
| 89229 | /* End of cleaning variable n */ | |||
| 89230 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 89231 | } /*if (f2py_success) of ldab*/ | |||
| 89232 | /* End of cleaning variable ldab */ | |||
| 89233 | /* End of cleaning variable info */ | |||
| 89234 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 89235 | } /*if (f2py_success) of lower*/ | |||
| 89236 | /* End of cleaning variable lower */ | |||
| 89237 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 89238 | } /*if (f2py_success) of compute_v*/ | |||
| 89239 | /* End of cleaning variable compute_v */ | |||
| 89240 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 89241 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 89242 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 89243 | /* End of cleaning variable ab */ | |||
| 89244 | /*end of cleanupfrompyobj*/ | |||
| 89245 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 89246 | /*routdebugfailure*/ | |||
| 89247 | } else { | |||
| 89248 | /*routdebugleave*/ | |||
| 89249 | } | |||
| 89250 | CFUNCSMESS("Freeing memory.\n"); | |||
| 89251 | /*freemem*/ | |||
| 89252 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89253 | f2py_stop_clock(); | |||
| 89254 | #endif | |||
| 89255 | return capi_buildvalue; | |||
| 89256 | } | |||
| 89257 | /******************************* end of ssbevd *******************************/ | |||
| 89258 | ||||
| 89259 | /*********************************** dsbevd ***********************************/ | |||
| 89260 | static char doc_f2py_rout__flapack_dsbevd[] = "\ | |||
| 89261 | w,z,info = dsbevd(ab,[compute_v,lower,ldab,liwork,overwrite_ab])\n\nWrapper for ``dsbevd``.\ | |||
| 89262 | \n\nParameters\n----------\n" | |||
| 89263 | "ab : input rank-2 array('d') with bounds (ldab,n)\n" | |||
| 89264 | "\nOther Parameters\n----------------\n" | |||
| 89265 | "overwrite_ab : input int, optional\n Default: 1\n" | |||
| 89266 | "compute_v : input int, optional\n Default: 1\n" | |||
| 89267 | "lower : input int, optional\n Default: 0\n" | |||
| 89268 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 89269 | "liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n" | |||
| 89270 | "\nReturns\n-------\n" | |||
| 89271 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 89272 | "z : rank-2 array('d') with bounds (ldz,ldz)\n" | |||
| 89273 | "info : int"; | |||
| 89274 | /* extern void F_FUNC(dsbevd,DSBEVD)(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 89275 | static PyObject *f2py_rout__flapack_dsbevd(const PyObject *capi_self, | |||
| 89276 | PyObject *capi_args, | |||
| 89277 | PyObject *capi_keywds, | |||
| 89278 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 89279 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 89280 | volatile int f2py_success = 1; | |||
| 89281 | /*decl*/ | |||
| 89282 | ||||
| 89283 | double *ab = NULL((void*)0); | |||
| 89284 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 89285 | const int ab_Rank = 2; | |||
| 89286 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 89287 | int capi_ab_intent = 0; | |||
| 89288 | int capi_overwrite_ab = 1; | |||
| 89289 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 89290 | int compute_v = 0; | |||
| 89291 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 89292 | int lower = 0; | |||
| 89293 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 89294 | int n = 0; | |||
| 89295 | int ldab = 0; | |||
| 89296 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 89297 | int kd = 0; | |||
| 89298 | double *w = NULL((void*)0); | |||
| 89299 | npy_intp w_Dims[1] = {-1}; | |||
| 89300 | const int w_Rank = 1; | |||
| 89301 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 89302 | int capi_w_intent = 0; | |||
| 89303 | double *z = NULL((void*)0); | |||
| 89304 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 89305 | const int z_Rank = 2; | |||
| 89306 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 89307 | int capi_z_intent = 0; | |||
| 89308 | int ldz = 0; | |||
| 89309 | double *work = NULL((void*)0); | |||
| 89310 | npy_intp work_Dims[1] = {-1}; | |||
| 89311 | const int work_Rank = 1; | |||
| 89312 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 89313 | int capi_work_intent = 0; | |||
| 89314 | int lwork = 0; | |||
| 89315 | int *iwork = NULL((void*)0); | |||
| 89316 | npy_intp iwork_Dims[1] = {-1}; | |||
| 89317 | const int iwork_Rank = 1; | |||
| 89318 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 89319 | int capi_iwork_intent = 0; | |||
| 89320 | int liwork = 0; | |||
| 89321 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 89322 | int info = 0; | |||
| 89323 | static char *capi_kwlist[] = {"ab","compute_v","lower","ldab","liwork","overwrite_ab",NULL((void*)0)}; | |||
| 89324 | ||||
| 89325 | /*routdebugenter*/ | |||
| 89326 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89327 | f2py_start_clock(); | |||
| 89328 | #endif | |||
| 89329 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 89330 | "O|OOOOi:_flapack.dsbevd",\ | |||
| 89331 | capi_kwlist,&ab_capi,&compute_v_capi,&lower_capi,&ldab_capi,&liwork_capi,&capi_overwrite_ab)) | |||
| 89332 | return NULL((void*)0); | |||
| 89333 | /*frompyobj*/ | |||
| 89334 | /* Processing variable ab */ | |||
| 89335 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 89336 | ; | |||
| 89337 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 89338 | capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 89339 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 89340 | if (!PyErr_Occurred()) | |||
| 89341 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dsbevd to C/Fortran array" ); | |||
| 89342 | } else { | |||
| 89343 | ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 89344 | ||||
| 89345 | /* Processing variable compute_v */ | |||
| 89346 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 89347 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsbevd() 1st keyword (compute_v) can't be converted to int"); | |||
| 89348 | if (f2py_success) { | |||
| 89349 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","dsbevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsbevd:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""1st keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 89350 | /* Processing variable lower */ | |||
| 89351 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 89352 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsbevd() 2nd keyword (lower) can't be converted to int"); | |||
| 89353 | if (f2py_success) { | |||
| 89354 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsbevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsbevd:lower=%d", "(""lower==0||lower==1"") failed for " "2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 89355 | /* Processing variable info */ | |||
| 89356 | /* Processing variable ldab */ | |||
| 89357 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 89358 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dsbevd() 3rd keyword (ldab) can't be converted to int"); | |||
| 89359 | if (f2py_success) { | |||
| 89360 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","dsbevd:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsbevd:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 89361 | /* Processing variable n */ | |||
| 89362 | n = shape(ab,1)ab_Dims[1]; | |||
| 89363 | /* Processing variable kd */ | |||
| 89364 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 89365 | /* Processing variable w */ | |||
| 89366 | w_Dims[0]=n; | |||
| 89367 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 89368 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 89369 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 89370 | if (!PyErr_Occurred()) | |||
| 89371 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsbevd to C/Fortran array" ); | |||
| 89372 | } else { | |||
| 89373 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 89374 | ||||
| 89375 | /* Processing variable ldz */ | |||
| 89376 | ldz = (compute_v?n:1); | |||
| 89377 | /* Processing variable lwork */ | |||
| 89378 | lwork = max((compute_v?1+5*n+2*n*n:2*n),1)(((compute_v?1+5*n+2*n*n:2*n) > 1) ? ((compute_v?1+5*n+2*n *n:2*n)) : (1)); | |||
| 89379 | /* Processing variable work */ | |||
| 89380 | work_Dims[0]=lwork; | |||
| 89381 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 89382 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 89383 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 89384 | if (!PyErr_Occurred()) | |||
| 89385 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsbevd to C/Fortran array" ); | |||
| 89386 | } else { | |||
| 89387 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 89388 | ||||
| 89389 | /* Processing variable liwork */ | |||
| 89390 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else | |||
| 89391 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.dsbevd() 4th keyword (liwork) can't be converted to int"); | |||
| 89392 | if (f2py_success) { | |||
| 89393 | CHECKSCALAR(liwork>=(compute_v?3+5*n:1),"liwork>=(compute_v?3+5*n:1)","4th keyword liwork","dsbevd:liwork=%d",liwork)if (!(liwork>=(compute_v?3+5*n:1))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dsbevd:liwork=%d", "(""liwork>=(compute_v?3+5*n:1)" ") failed for ""4th keyword liwork", liwork); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 89394 | /* Processing variable iwork */ | |||
| 89395 | iwork_Dims[0]=liwork; | |||
| 89396 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 89397 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 89398 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 89399 | if (!PyErr_Occurred()) | |||
| 89400 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsbevd to C/Fortran array" ); | |||
| 89401 | } else { | |||
| 89402 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 89403 | ||||
| 89404 | /* Processing variable z */ | |||
| 89405 | z_Dims[0]=ldz,z_Dims[1]=ldz; | |||
| 89406 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 89407 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 89408 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 89409 | if (!PyErr_Occurred()) | |||
| 89410 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dsbevd to C/Fortran array" ); | |||
| 89411 | } else { | |||
| 89412 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 89413 | ||||
| 89414 | /*end of frompyobj*/ | |||
| 89415 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89416 | f2py_start_call_clock(); | |||
| 89417 | #endif | |||
| 89418 | /*callfortranroutine*/ | |||
| 89419 | (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&kd,ab,&ldab,w,z,&ldz,work,&lwork,iwork,&liwork,&info) ; | |||
| 89420 | /*(*f2py_func)(ab,&compute_v,&lower,&n,&ldab,&kd,w,z,&ldz,work,&lwork,iwork,&liwork,&info);*/ | |||
| 89421 | if (PyErr_Occurred()) | |||
| 89422 | f2py_success = 0; | |||
| 89423 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89424 | f2py_stop_call_clock(); | |||
| 89425 | #endif | |||
| 89426 | /*end of callfortranroutine*/ | |||
| 89427 | if (f2py_success) { | |||
| 89428 | /*pyobjfrom*/ | |||
| 89429 | /*end of pyobjfrom*/ | |||
| 89430 | CFUNCSMESS("Building return value.\n"); | |||
| 89431 | capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_z_tmp,info); | |||
| 89432 | /*closepyobjfrom*/ | |||
| 89433 | /*end of closepyobjfrom*/ | |||
| 89434 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 89435 | /*cleanupfrompyobj*/ | |||
| 89436 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 89437 | /* End of cleaning variable z */ | |||
| 89438 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 89439 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 89440 | /* End of cleaning variable iwork */ | |||
| 89441 | } /*CHECKSCALAR(liwork>=(compute_v?3+5*n:1))*/ | |||
| 89442 | } /*if (f2py_success) of liwork*/ | |||
| 89443 | /* End of cleaning variable liwork */ | |||
| 89444 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 89445 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 89446 | /* End of cleaning variable work */ | |||
| 89447 | /* End of cleaning variable lwork */ | |||
| 89448 | /* End of cleaning variable ldz */ | |||
| 89449 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 89450 | /* End of cleaning variable w */ | |||
| 89451 | /* End of cleaning variable kd */ | |||
| 89452 | /* End of cleaning variable n */ | |||
| 89453 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 89454 | } /*if (f2py_success) of ldab*/ | |||
| 89455 | /* End of cleaning variable ldab */ | |||
| 89456 | /* End of cleaning variable info */ | |||
| 89457 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 89458 | } /*if (f2py_success) of lower*/ | |||
| 89459 | /* End of cleaning variable lower */ | |||
| 89460 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 89461 | } /*if (f2py_success) of compute_v*/ | |||
| 89462 | /* End of cleaning variable compute_v */ | |||
| 89463 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 89464 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 89465 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 89466 | /* End of cleaning variable ab */ | |||
| 89467 | /*end of cleanupfrompyobj*/ | |||
| 89468 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 89469 | /*routdebugfailure*/ | |||
| 89470 | } else { | |||
| 89471 | /*routdebugleave*/ | |||
| 89472 | } | |||
| 89473 | CFUNCSMESS("Freeing memory.\n"); | |||
| 89474 | /*freemem*/ | |||
| 89475 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89476 | f2py_stop_clock(); | |||
| 89477 | #endif | |||
| 89478 | return capi_buildvalue; | |||
| 89479 | } | |||
| 89480 | /******************************* end of dsbevd *******************************/ | |||
| 89481 | ||||
| 89482 | /*********************************** ssbevx ***********************************/ | |||
| 89483 | static char doc_f2py_rout__flapack_ssbevx[] = "\ | |||
| 89484 | w,z,m,ifail,info = ssbevx(ab,vl,vu,il,iu,[ldab,compute_v,range,lower,abstol,mmax,overwrite_ab])\n\nWrapper for ``ssbevx``.\ | |||
| 89485 | \n\nParameters\n----------\n" | |||
| 89486 | "ab : input rank-2 array('f') with bounds (ldab,n)\n" | |||
| 89487 | "vl : input float\n" | |||
| 89488 | "vu : input float\n" | |||
| 89489 | "il : input int\n" | |||
| 89490 | "iu : input int\n" | |||
| 89491 | "\nOther Parameters\n----------------\n" | |||
| 89492 | "overwrite_ab : input int, optional\n Default: 1\n" | |||
| 89493 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 89494 | "compute_v : input int, optional\n Default: 1\n" | |||
| 89495 | "range : input int, optional\n Default: 0\n" | |||
| 89496 | "lower : input int, optional\n Default: 0\n" | |||
| 89497 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 89498 | "mmax : input int, optional\n Default: (compute_v?(range==2?(iu-il+1):n):1)\n" | |||
| 89499 | "\nReturns\n-------\n" | |||
| 89500 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 89501 | "z : rank-2 array('f') with bounds (ldz,mmax)\n" | |||
| 89502 | "m : int\n" | |||
| 89503 | "ifail : rank-1 array('i') with bounds ((compute_v?n:1))\n" | |||
| 89504 | "info : int"; | |||
| 89505 | /* extern void F_FUNC(ssbevx,SSBEVX)(char*,char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*, F_INT*,F_INT*,F_INT* ); */ | |||
| 89506 | static PyObject *f2py_rout__flapack_ssbevx(const PyObject *capi_self, | |||
| 89507 | PyObject *capi_args, | |||
| 89508 | PyObject *capi_keywds, | |||
| 89509 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*, F_INTint*,F_INTint*,F_INTint* )) { | |||
| 89510 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 89511 | volatile int f2py_success = 1; | |||
| 89512 | /*decl*/ | |||
| 89513 | ||||
| 89514 | float *ab = NULL((void*)0); | |||
| 89515 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 89516 | const int ab_Rank = 2; | |||
| 89517 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 89518 | int capi_ab_intent = 0; | |||
| 89519 | int capi_overwrite_ab = 1; | |||
| 89520 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 89521 | int ldab = 0; | |||
| 89522 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 89523 | int compute_v = 0; | |||
| 89524 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 89525 | int range = 0; | |||
| 89526 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 89527 | int lower = 0; | |||
| 89528 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 89529 | int n = 0; | |||
| 89530 | int kd = 0; | |||
| 89531 | float *q = NULL((void*)0); | |||
| 89532 | npy_intp q_Dims[2] = {-1, -1}; | |||
| 89533 | const int q_Rank = 2; | |||
| 89534 | PyArrayObject *capi_q_tmp = NULL((void*)0); | |||
| 89535 | int capi_q_intent = 0; | |||
| 89536 | int ldq = 0; | |||
| 89537 | float vl = 0; | |||
| 89538 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 89539 | float vu = 0; | |||
| 89540 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 89541 | int il = 0; | |||
| 89542 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 89543 | int iu = 0; | |||
| 89544 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 89545 | float abstol = 0; | |||
| 89546 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 89547 | float *w = NULL((void*)0); | |||
| 89548 | npy_intp w_Dims[1] = {-1}; | |||
| 89549 | const int w_Rank = 1; | |||
| 89550 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 89551 | int capi_w_intent = 0; | |||
| 89552 | float *z = NULL((void*)0); | |||
| 89553 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 89554 | const int z_Rank = 2; | |||
| 89555 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 89556 | int capi_z_intent = 0; | |||
| 89557 | int m = 0; | |||
| 89558 | int mmax = 0; | |||
| 89559 | PyObject *mmax_capi = Py_None(&_Py_NoneStruct); | |||
| 89560 | int ldz = 0; | |||
| 89561 | float *work = NULL((void*)0); | |||
| 89562 | npy_intp work_Dims[1] = {-1}; | |||
| 89563 | const int work_Rank = 1; | |||
| 89564 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 89565 | int capi_work_intent = 0; | |||
| 89566 | int *iwork = NULL((void*)0); | |||
| 89567 | npy_intp iwork_Dims[1] = {-1}; | |||
| 89568 | const int iwork_Rank = 1; | |||
| 89569 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 89570 | int capi_iwork_intent = 0; | |||
| 89571 | int *ifail = NULL((void*)0); | |||
| 89572 | npy_intp ifail_Dims[1] = {-1}; | |||
| 89573 | const int ifail_Rank = 1; | |||
| 89574 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 89575 | int capi_ifail_intent = 0; | |||
| 89576 | int info = 0; | |||
| 89577 | static char *capi_kwlist[] = {"ab","vl","vu","il","iu","ldab","compute_v","range","lower","abstol","mmax","overwrite_ab",NULL((void*)0)}; | |||
| 89578 | ||||
| 89579 | /*routdebugenter*/ | |||
| 89580 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89581 | f2py_start_clock(); | |||
| 89582 | #endif | |||
| 89583 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 89584 | "OOOOO|OOOOOOi:_flapack.ssbevx",\ | |||
| 89585 | capi_kwlist,&ab_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&ldab_capi,&compute_v_capi,&range_capi,&lower_capi,&abstol_capi,&mmax_capi,&capi_overwrite_ab)) | |||
| 89586 | return NULL((void*)0); | |||
| 89587 | /*frompyobj*/ | |||
| 89588 | /* Processing variable compute_v */ | |||
| 89589 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 89590 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssbevx() 2nd keyword (compute_v) can't be converted to int"); | |||
| 89591 | if (f2py_success) { | |||
| 89592 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","2nd keyword compute_v","ssbevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssbevx:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""2nd keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 89593 | /* Processing variable lower */ | |||
| 89594 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 89595 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssbevx() 4th keyword (lower) can't be converted to int"); | |||
| 89596 | if (f2py_success) { | |||
| 89597 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","4th keyword lower","ssbevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssbevx:lower=%d", "(""lower==0||lower==1"") failed for " "4th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 89598 | /* Processing variable range */ | |||
| 89599 | if (range_capi == Py_None(&_Py_NoneStruct)) range = 0; else | |||
| 89600 | f2py_success = int_from_pyobj(&range,range_capi,"_flapack.ssbevx() 3rd keyword (range) can't be converted to int"); | |||
| 89601 | if (f2py_success) { | |||
| 89602 | CHECKSCALAR(range==2||range==1||range==0,"range==2||range==1||range==0","3rd keyword range","ssbevx:range=%d",range)if (!(range==2||range==1||range==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssbevx:range=%d", "(""range==2||range==1||range==0" ") failed for ""3rd keyword range", range); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 89603 | /* Processing variable ab */ | |||
| 89604 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 89605 | ; | |||
| 89606 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 89607 | capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 89608 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 89609 | if (!PyErr_Occurred()) | |||
| 89610 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.ssbevx to C/Fortran array" ); | |||
| 89611 | } else { | |||
| 89612 | ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 89613 | ||||
| 89614 | /* Processing variable vl */ | |||
| 89615 | f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.ssbevx() 2nd argument (vl) can't be converted to float"); | |||
| 89616 | if (f2py_success) { | |||
| 89617 | /* Processing variable vu */ | |||
| 89618 | f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.ssbevx() 3rd argument (vu) can't be converted to float"); | |||
| 89619 | if (f2py_success) { | |||
| 89620 | /* Processing variable abstol */ | |||
| 89621 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 89622 | f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.ssbevx() 5th keyword (abstol) can't be converted to float"); | |||
| 89623 | if (f2py_success) { | |||
| 89624 | /* Processing variable m */ | |||
| 89625 | /* Processing variable info */ | |||
| 89626 | /* Processing variable ldab */ | |||
| 89627 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 89628 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.ssbevx() 1st keyword (ldab) can't be converted to int"); | |||
| 89629 | if (f2py_success) { | |||
| 89630 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","1st keyword ldab","ssbevx:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssbevx:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "1st keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 89631 | /* Processing variable n */ | |||
| 89632 | n = shape(ab,1)ab_Dims[1]; | |||
| 89633 | /* Processing variable kd */ | |||
| 89634 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 89635 | /* Processing variable ldq */ | |||
| 89636 | ldq = (compute_v?n:1); | |||
| 89637 | /* Processing variable q */ | |||
| 89638 | q_Dims[0]=ldq,q_Dims[1]=ldq; | |||
| 89639 | capi_q_intent |= F2PY_INTENT_HIDE8; | |||
| 89640 | capi_q_tmp = array_from_pyobj(NPY_FLOAT,q_Dims,q_Rank,capi_q_intent,Py_None(&_Py_NoneStruct)); | |||
| 89641 | if (capi_q_tmp == NULL((void*)0)) { | |||
| 89642 | if (!PyErr_Occurred()) | |||
| 89643 | PyErr_SetString(_flapack_error,"failed in converting hidden `q' of _flapack.ssbevx to C/Fortran array" ); | |||
| 89644 | } else { | |||
| 89645 | q = (float *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data)); | |||
| 89646 | ||||
| 89647 | /* Processing variable il */ | |||
| 89648 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.ssbevx() 4th argument (il) can't be converted to int"); | |||
| 89649 | if (f2py_success) { | |||
| 89650 | CHECKSCALAR((il>=1 && il<=n),"(il>=1 && il<=n)","4th argument il","ssbevx:il=%d",il)if (!((il>=1 && il<=n))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ssbevx:il=%d", "(""(il>=1 && il<=n)" ") failed for ""4th argument il", il); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 89651 | /* Processing variable iu */ | |||
| 89652 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.ssbevx() 5th argument (iu) can't be converted to int"); | |||
| 89653 | if (f2py_success) { | |||
| 89654 | CHECKSCALAR((iu>=1 && iu<=n && iu>=il),"(iu>=1 && iu<=n && iu>=il)","5th argument iu","ssbevx:iu=%d",iu)if (!((iu>=1 && iu<=n && iu>=il))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ssbevx:iu=%d" , "(""(iu>=1 && iu<=n && iu>=il)"") failed for " "5th argument iu", iu); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 89655 | /* Processing variable w */ | |||
| 89656 | w_Dims[0]=n; | |||
| 89657 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 89658 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 89659 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 89660 | if (!PyErr_Occurred()) | |||
| 89661 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssbevx to C/Fortran array" ); | |||
| 89662 | } else { | |||
| 89663 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 89664 | ||||
| 89665 | /* Processing variable ldz */ | |||
| 89666 | ldz = (compute_v?n:1); | |||
| 89667 | /* Processing variable mmax */ | |||
| 89668 | if (mmax_capi == Py_None(&_Py_NoneStruct)) mmax = (compute_v?(range==2?(iu-il+1):n):1); else | |||
| 89669 | f2py_success = int_from_pyobj(&mmax,mmax_capi,"_flapack.ssbevx() 6th keyword (mmax) can't be converted to int"); | |||
| 89670 | if (f2py_success) { | |||
| 89671 | /* Processing variable work */ | |||
| 89672 | work_Dims[0]=7 * n; | |||
| 89673 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 89674 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 89675 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 89676 | if (!PyErr_Occurred()) | |||
| 89677 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssbevx to C/Fortran array" ); | |||
| 89678 | } else { | |||
| 89679 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 89680 | ||||
| 89681 | /* Processing variable iwork */ | |||
| 89682 | iwork_Dims[0]=5 * n; | |||
| 89683 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 89684 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 89685 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 89686 | if (!PyErr_Occurred()) | |||
| 89687 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssbevx to C/Fortran array" ); | |||
| 89688 | } else { | |||
| 89689 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 89690 | ||||
| 89691 | /* Processing variable ifail */ | |||
| 89692 | ifail_Dims[0]=(compute_v?n:1); | |||
| 89693 | capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 89694 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 89695 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 89696 | if (!PyErr_Occurred()) | |||
| 89697 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.ssbevx to C/Fortran array" ); | |||
| 89698 | } else { | |||
| 89699 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 89700 | ||||
| 89701 | /* Processing variable z */ | |||
| 89702 | z_Dims[0]=ldz,z_Dims[1]=mmax; | |||
| 89703 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 89704 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 89705 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 89706 | if (!PyErr_Occurred()) | |||
| 89707 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.ssbevx to C/Fortran array" ); | |||
| 89708 | } else { | |||
| 89709 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 89710 | ||||
| 89711 | /*end of frompyobj*/ | |||
| 89712 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89713 | f2py_start_call_clock(); | |||
| 89714 | #endif | |||
| 89715 | /*callfortranroutine*/ | |||
| 89716 | (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),(lower?"L":"U"),&n,&kd,ab,&ldab,q,&ldq,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,iwork,ifail,&info) ; | |||
| 89717 | /*(*f2py_func)(ab,&ldab,&compute_v,&range,&lower,&n,&kd,q,&ldq,&vl,&vu,&il,&iu,&abstol,w,z,&m,&mmax,&ldz,work,iwork,ifail,&info);*/ | |||
| 89718 | if (PyErr_Occurred()) | |||
| 89719 | f2py_success = 0; | |||
| 89720 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89721 | f2py_stop_call_clock(); | |||
| 89722 | #endif | |||
| 89723 | /*end of callfortranroutine*/ | |||
| 89724 | if (f2py_success) { | |||
| 89725 | /*pyobjfrom*/ | |||
| 89726 | /*end of pyobjfrom*/ | |||
| 89727 | CFUNCSMESS("Building return value.\n"); | |||
| 89728 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info); | |||
| 89729 | /*closepyobjfrom*/ | |||
| 89730 | /*end of closepyobjfrom*/ | |||
| 89731 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 89732 | /*cleanupfrompyobj*/ | |||
| 89733 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 89734 | /* End of cleaning variable z */ | |||
| 89735 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 89736 | /* End of cleaning variable ifail */ | |||
| 89737 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 89738 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 89739 | /* End of cleaning variable iwork */ | |||
| 89740 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 89741 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 89742 | /* End of cleaning variable work */ | |||
| 89743 | } /*if (f2py_success) of mmax*/ | |||
| 89744 | /* End of cleaning variable mmax */ | |||
| 89745 | /* End of cleaning variable ldz */ | |||
| 89746 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 89747 | /* End of cleaning variable w */ | |||
| 89748 | } /*CHECKSCALAR((iu>=1 && iu<=n && iu>=il))*/ | |||
| 89749 | } /*if (f2py_success) of iu*/ | |||
| 89750 | /* End of cleaning variable iu */ | |||
| 89751 | } /*CHECKSCALAR((il>=1 && il<=n))*/ | |||
| 89752 | } /*if (f2py_success) of il*/ | |||
| 89753 | /* End of cleaning variable il */ | |||
| 89754 | Py_XDECREF(capi_q_tmp)_Py_XDECREF(((PyObject*)(capi_q_tmp))); | |||
| 89755 | } /*if (capi_q_tmp == NULL) ... else of q*/ | |||
| 89756 | /* End of cleaning variable q */ | |||
| 89757 | /* End of cleaning variable ldq */ | |||
| 89758 | /* End of cleaning variable kd */ | |||
| 89759 | /* End of cleaning variable n */ | |||
| 89760 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 89761 | } /*if (f2py_success) of ldab*/ | |||
| 89762 | /* End of cleaning variable ldab */ | |||
| 89763 | /* End of cleaning variable info */ | |||
| 89764 | /* End of cleaning variable m */ | |||
| 89765 | } /*if (f2py_success) of abstol*/ | |||
| 89766 | /* End of cleaning variable abstol */ | |||
| 89767 | } /*if (f2py_success) of vu*/ | |||
| 89768 | /* End of cleaning variable vu */ | |||
| 89769 | } /*if (f2py_success) of vl*/ | |||
| 89770 | /* End of cleaning variable vl */ | |||
| 89771 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 89772 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 89773 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 89774 | /* End of cleaning variable ab */ | |||
| 89775 | } /*CHECKSCALAR(range==2||range==1||range==0)*/ | |||
| 89776 | } /*if (f2py_success) of range*/ | |||
| 89777 | /* End of cleaning variable range */ | |||
| 89778 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 89779 | } /*if (f2py_success) of lower*/ | |||
| 89780 | /* End of cleaning variable lower */ | |||
| 89781 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 89782 | } /*if (f2py_success) of compute_v*/ | |||
| 89783 | /* End of cleaning variable compute_v */ | |||
| 89784 | /*end of cleanupfrompyobj*/ | |||
| 89785 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 89786 | /*routdebugfailure*/ | |||
| 89787 | } else { | |||
| 89788 | /*routdebugleave*/ | |||
| 89789 | } | |||
| 89790 | CFUNCSMESS("Freeing memory.\n"); | |||
| 89791 | /*freemem*/ | |||
| 89792 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89793 | f2py_stop_clock(); | |||
| 89794 | #endif | |||
| 89795 | return capi_buildvalue; | |||
| 89796 | } | |||
| 89797 | /******************************* end of ssbevx *******************************/ | |||
| 89798 | ||||
| 89799 | /*********************************** dsbevx ***********************************/ | |||
| 89800 | static char doc_f2py_rout__flapack_dsbevx[] = "\ | |||
| 89801 | w,z,m,ifail,info = dsbevx(ab,vl,vu,il,iu,[ldab,compute_v,range,lower,abstol,mmax,overwrite_ab])\n\nWrapper for ``dsbevx``.\ | |||
| 89802 | \n\nParameters\n----------\n" | |||
| 89803 | "ab : input rank-2 array('d') with bounds (ldab,n)\n" | |||
| 89804 | "vl : input float\n" | |||
| 89805 | "vu : input float\n" | |||
| 89806 | "il : input int\n" | |||
| 89807 | "iu : input int\n" | |||
| 89808 | "\nOther Parameters\n----------------\n" | |||
| 89809 | "overwrite_ab : input int, optional\n Default: 1\n" | |||
| 89810 | "ldab : input int, optional\n Default: shape(ab,0)\n" | |||
| 89811 | "compute_v : input int, optional\n Default: 1\n" | |||
| 89812 | "range : input int, optional\n Default: 0\n" | |||
| 89813 | "lower : input int, optional\n Default: 0\n" | |||
| 89814 | "abstol : input float, optional\n Default: 0.0\n" | |||
| 89815 | "mmax : input int, optional\n Default: (compute_v?(range==2?(iu-il+1):n):1)\n" | |||
| 89816 | "\nReturns\n-------\n" | |||
| 89817 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 89818 | "z : rank-2 array('d') with bounds (ldz,mmax)\n" | |||
| 89819 | "m : int\n" | |||
| 89820 | "ifail : rank-1 array('i') with bounds ((compute_v?n:1))\n" | |||
| 89821 | "info : int"; | |||
| 89822 | /* extern void F_FUNC(dsbevx,DSBEVX)(char*,char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*, F_INT*,F_INT*,F_INT* ); */ | |||
| 89823 | static PyObject *f2py_rout__flapack_dsbevx(const PyObject *capi_self, | |||
| 89824 | PyObject *capi_args, | |||
| 89825 | PyObject *capi_keywds, | |||
| 89826 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*, F_INTint*,F_INTint*,F_INTint* )) { | |||
| 89827 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 89828 | volatile int f2py_success = 1; | |||
| 89829 | /*decl*/ | |||
| 89830 | ||||
| 89831 | double *ab = NULL((void*)0); | |||
| 89832 | npy_intp ab_Dims[2] = {-1, -1}; | |||
| 89833 | const int ab_Rank = 2; | |||
| 89834 | PyArrayObject *capi_ab_tmp = NULL((void*)0); | |||
| 89835 | int capi_ab_intent = 0; | |||
| 89836 | int capi_overwrite_ab = 1; | |||
| 89837 | PyObject *ab_capi = Py_None(&_Py_NoneStruct); | |||
| 89838 | int ldab = 0; | |||
| 89839 | PyObject *ldab_capi = Py_None(&_Py_NoneStruct); | |||
| 89840 | int compute_v = 0; | |||
| 89841 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 89842 | int range = 0; | |||
| 89843 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 89844 | int lower = 0; | |||
| 89845 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 89846 | int n = 0; | |||
| 89847 | int kd = 0; | |||
| 89848 | double *q = NULL((void*)0); | |||
| 89849 | npy_intp q_Dims[2] = {-1, -1}; | |||
| 89850 | const int q_Rank = 2; | |||
| 89851 | PyArrayObject *capi_q_tmp = NULL((void*)0); | |||
| 89852 | int capi_q_intent = 0; | |||
| 89853 | int ldq = 0; | |||
| 89854 | double vl = 0; | |||
| 89855 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 89856 | double vu = 0; | |||
| 89857 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 89858 | int il = 0; | |||
| 89859 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 89860 | int iu = 0; | |||
| 89861 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 89862 | double abstol = 0; | |||
| 89863 | PyObject *abstol_capi = Py_None(&_Py_NoneStruct); | |||
| 89864 | double *w = NULL((void*)0); | |||
| 89865 | npy_intp w_Dims[1] = {-1}; | |||
| 89866 | const int w_Rank = 1; | |||
| 89867 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 89868 | int capi_w_intent = 0; | |||
| 89869 | double *z = NULL((void*)0); | |||
| 89870 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 89871 | const int z_Rank = 2; | |||
| 89872 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 89873 | int capi_z_intent = 0; | |||
| 89874 | int m = 0; | |||
| 89875 | int mmax = 0; | |||
| 89876 | PyObject *mmax_capi = Py_None(&_Py_NoneStruct); | |||
| 89877 | int ldz = 0; | |||
| 89878 | double *work = NULL((void*)0); | |||
| 89879 | npy_intp work_Dims[1] = {-1}; | |||
| 89880 | const int work_Rank = 1; | |||
| 89881 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 89882 | int capi_work_intent = 0; | |||
| 89883 | int *iwork = NULL((void*)0); | |||
| 89884 | npy_intp iwork_Dims[1] = {-1}; | |||
| 89885 | const int iwork_Rank = 1; | |||
| 89886 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 89887 | int capi_iwork_intent = 0; | |||
| 89888 | int *ifail = NULL((void*)0); | |||
| 89889 | npy_intp ifail_Dims[1] = {-1}; | |||
| 89890 | const int ifail_Rank = 1; | |||
| 89891 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 89892 | int capi_ifail_intent = 0; | |||
| 89893 | int info = 0; | |||
| 89894 | static char *capi_kwlist[] = {"ab","vl","vu","il","iu","ldab","compute_v","range","lower","abstol","mmax","overwrite_ab",NULL((void*)0)}; | |||
| 89895 | ||||
| 89896 | /*routdebugenter*/ | |||
| 89897 | #ifdef F2PY_REPORT_ATEXIT | |||
| 89898 | f2py_start_clock(); | |||
| 89899 | #endif | |||
| 89900 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 89901 | "OOOOO|OOOOOOi:_flapack.dsbevx",\ | |||
| 89902 | capi_kwlist,&ab_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&ldab_capi,&compute_v_capi,&range_capi,&lower_capi,&abstol_capi,&mmax_capi,&capi_overwrite_ab)) | |||
| 89903 | return NULL((void*)0); | |||
| 89904 | /*frompyobj*/ | |||
| 89905 | /* Processing variable compute_v */ | |||
| 89906 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 89907 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsbevx() 2nd keyword (compute_v) can't be converted to int"); | |||
| 89908 | if (f2py_success) { | |||
| 89909 | CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","2nd keyword compute_v","dsbevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsbevx:compute_v=%d", "(""compute_v==1||compute_v==0" ") failed for ""2nd keyword compute_v", compute_v); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 89910 | /* Processing variable lower */ | |||
| 89911 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 89912 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsbevx() 4th keyword (lower) can't be converted to int"); | |||
| 89913 | if (f2py_success) { | |||
| 89914 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","4th keyword lower","dsbevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsbevx:lower=%d", "(""lower==0||lower==1"") failed for " "4th keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 89915 | /* Processing variable range */ | |||
| 89916 | if (range_capi == Py_None(&_Py_NoneStruct)) range = 0; else | |||
| 89917 | f2py_success = int_from_pyobj(&range,range_capi,"_flapack.dsbevx() 3rd keyword (range) can't be converted to int"); | |||
| 89918 | if (f2py_success) { | |||
| 89919 | CHECKSCALAR(range==2||range==1||range==0,"range==2||range==1||range==0","3rd keyword range","dsbevx:range=%d",range)if (!(range==2||range==1||range==0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsbevx:range=%d", "(""range==2||range==1||range==0" ") failed for ""3rd keyword range", range); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 89920 | /* Processing variable ab */ | |||
| 89921 | capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32); | |||
| 89922 | ; | |||
| 89923 | capi_ab_intent |= F2PY_INTENT_IN1; | |||
| 89924 | capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi); | |||
| 89925 | if (capi_ab_tmp == NULL((void*)0)) { | |||
| 89926 | if (!PyErr_Occurred()) | |||
| 89927 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dsbevx to C/Fortran array" ); | |||
| 89928 | } else { | |||
| 89929 | ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data)); | |||
| 89930 | ||||
| 89931 | /* Processing variable vl */ | |||
| 89932 | f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dsbevx() 2nd argument (vl) can't be converted to double"); | |||
| 89933 | if (f2py_success) { | |||
| 89934 | /* Processing variable vu */ | |||
| 89935 | f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dsbevx() 3rd argument (vu) can't be converted to double"); | |||
| 89936 | if (f2py_success) { | |||
| 89937 | /* Processing variable abstol */ | |||
| 89938 | if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else | |||
| 89939 | f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.dsbevx() 5th keyword (abstol) can't be converted to double"); | |||
| 89940 | if (f2py_success) { | |||
| 89941 | /* Processing variable m */ | |||
| 89942 | /* Processing variable info */ | |||
| 89943 | /* Processing variable ldab */ | |||
| 89944 | if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else | |||
| 89945 | f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dsbevx() 1st keyword (ldab) can't be converted to int"); | |||
| 89946 | if (f2py_success) { | |||
| 89947 | CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","1st keyword ldab","dsbevx:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsbevx:ldab=%d", "(""shape(ab,0)==ldab"") failed for " "1st keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 89948 | /* Processing variable n */ | |||
| 89949 | n = shape(ab,1)ab_Dims[1]; | |||
| 89950 | /* Processing variable kd */ | |||
| 89951 | kd = shape(ab,0)ab_Dims[0]-1; | |||
| 89952 | /* Processing variable ldq */ | |||
| 89953 | ldq = (compute_v?n:1); | |||
| 89954 | /* Processing variable q */ | |||
| 89955 | q_Dims[0]=ldq,q_Dims[1]=ldq; | |||
| 89956 | capi_q_intent |= F2PY_INTENT_HIDE8; | |||
| 89957 | capi_q_tmp = array_from_pyobj(NPY_DOUBLE,q_Dims,q_Rank,capi_q_intent,Py_None(&_Py_NoneStruct)); | |||
| 89958 | if (capi_q_tmp == NULL((void*)0)) { | |||
| 89959 | if (!PyErr_Occurred()) | |||
| 89960 | PyErr_SetString(_flapack_error,"failed in converting hidden `q' of _flapack.dsbevx to C/Fortran array" ); | |||
| 89961 | } else { | |||
| 89962 | q = (double *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data)); | |||
| 89963 | ||||
| 89964 | /* Processing variable il */ | |||
| 89965 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dsbevx() 4th argument (il) can't be converted to int"); | |||
| 89966 | if (f2py_success) { | |||
| 89967 | CHECKSCALAR((il>=1 && il<=n),"(il>=1 && il<=n)","4th argument il","dsbevx:il=%d",il)if (!((il>=1 && il<=n))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dsbevx:il=%d", "(""(il>=1 && il<=n)" ") failed for ""4th argument il", il); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 89968 | /* Processing variable iu */ | |||
| 89969 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dsbevx() 5th argument (iu) can't be converted to int"); | |||
| 89970 | if (f2py_success) { | |||
| 89971 | CHECKSCALAR((iu>=1 && iu<=n && iu>=il),"(iu>=1 && iu<=n && iu>=il)","5th argument iu","dsbevx:iu=%d",iu)if (!((iu>=1 && iu<=n && iu>=il))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dsbevx:iu=%d" , "(""(iu>=1 && iu<=n && iu>=il)"") failed for " "5th argument iu", iu); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 89972 | /* Processing variable w */ | |||
| 89973 | w_Dims[0]=n; | |||
| 89974 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 89975 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 89976 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 89977 | if (!PyErr_Occurred()) | |||
| 89978 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsbevx to C/Fortran array" ); | |||
| 89979 | } else { | |||
| 89980 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 89981 | ||||
| 89982 | /* Processing variable ldz */ | |||
| 89983 | ldz = (compute_v?n:1); | |||
| 89984 | /* Processing variable mmax */ | |||
| 89985 | if (mmax_capi == Py_None(&_Py_NoneStruct)) mmax = (compute_v?(range==2?(iu-il+1):n):1); else | |||
| 89986 | f2py_success = int_from_pyobj(&mmax,mmax_capi,"_flapack.dsbevx() 6th keyword (mmax) can't be converted to int"); | |||
| 89987 | if (f2py_success) { | |||
| 89988 | /* Processing variable work */ | |||
| 89989 | work_Dims[0]=7 * n; | |||
| 89990 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 89991 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 89992 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 89993 | if (!PyErr_Occurred()) | |||
| 89994 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsbevx to C/Fortran array" ); | |||
| 89995 | } else { | |||
| 89996 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 89997 | ||||
| 89998 | /* Processing variable iwork */ | |||
| 89999 | iwork_Dims[0]=5 * n; | |||
| 90000 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 90001 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 90002 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 90003 | if (!PyErr_Occurred()) | |||
| 90004 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsbevx to C/Fortran array" ); | |||
| 90005 | } else { | |||
| 90006 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 90007 | ||||
| 90008 | /* Processing variable ifail */ | |||
| 90009 | ifail_Dims[0]=(compute_v?n:1); | |||
| 90010 | capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 90011 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 90012 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 90013 | if (!PyErr_Occurred()) | |||
| 90014 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.dsbevx to C/Fortran array" ); | |||
| 90015 | } else { | |||
| 90016 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 90017 | ||||
| 90018 | /* Processing variable z */ | |||
| 90019 | z_Dims[0]=ldz,z_Dims[1]=mmax; | |||
| 90020 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 90021 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 90022 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 90023 | if (!PyErr_Occurred()) | |||
| 90024 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dsbevx to C/Fortran array" ); | |||
| 90025 | } else { | |||
| 90026 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 90027 | ||||
| 90028 | /*end of frompyobj*/ | |||
| 90029 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90030 | f2py_start_call_clock(); | |||
| 90031 | #endif | |||
| 90032 | /*callfortranroutine*/ | |||
| 90033 | (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),(lower?"L":"U"),&n,&kd,ab,&ldab,q,&ldq,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,iwork,ifail,&info) ; | |||
| 90034 | /*(*f2py_func)(ab,&ldab,&compute_v,&range,&lower,&n,&kd,q,&ldq,&vl,&vu,&il,&iu,&abstol,w,z,&m,&mmax,&ldz,work,iwork,ifail,&info);*/ | |||
| 90035 | if (PyErr_Occurred()) | |||
| 90036 | f2py_success = 0; | |||
| 90037 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90038 | f2py_stop_call_clock(); | |||
| 90039 | #endif | |||
| 90040 | /*end of callfortranroutine*/ | |||
| 90041 | if (f2py_success) { | |||
| 90042 | /*pyobjfrom*/ | |||
| 90043 | /*end of pyobjfrom*/ | |||
| 90044 | CFUNCSMESS("Building return value.\n"); | |||
| 90045 | capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info); | |||
| 90046 | /*closepyobjfrom*/ | |||
| 90047 | /*end of closepyobjfrom*/ | |||
| 90048 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 90049 | /*cleanupfrompyobj*/ | |||
| 90050 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 90051 | /* End of cleaning variable z */ | |||
| 90052 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 90053 | /* End of cleaning variable ifail */ | |||
| 90054 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 90055 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 90056 | /* End of cleaning variable iwork */ | |||
| 90057 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 90058 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 90059 | /* End of cleaning variable work */ | |||
| 90060 | } /*if (f2py_success) of mmax*/ | |||
| 90061 | /* End of cleaning variable mmax */ | |||
| 90062 | /* End of cleaning variable ldz */ | |||
| 90063 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 90064 | /* End of cleaning variable w */ | |||
| 90065 | } /*CHECKSCALAR((iu>=1 && iu<=n && iu>=il))*/ | |||
| 90066 | } /*if (f2py_success) of iu*/ | |||
| 90067 | /* End of cleaning variable iu */ | |||
| 90068 | } /*CHECKSCALAR((il>=1 && il<=n))*/ | |||
| 90069 | } /*if (f2py_success) of il*/ | |||
| 90070 | /* End of cleaning variable il */ | |||
| 90071 | Py_XDECREF(capi_q_tmp)_Py_XDECREF(((PyObject*)(capi_q_tmp))); | |||
| 90072 | } /*if (capi_q_tmp == NULL) ... else of q*/ | |||
| 90073 | /* End of cleaning variable q */ | |||
| 90074 | /* End of cleaning variable ldq */ | |||
| 90075 | /* End of cleaning variable kd */ | |||
| 90076 | /* End of cleaning variable n */ | |||
| 90077 | } /*CHECKSCALAR(shape(ab,0)==ldab)*/ | |||
| 90078 | } /*if (f2py_success) of ldab*/ | |||
| 90079 | /* End of cleaning variable ldab */ | |||
| 90080 | /* End of cleaning variable info */ | |||
| 90081 | /* End of cleaning variable m */ | |||
| 90082 | } /*if (f2py_success) of abstol*/ | |||
| 90083 | /* End of cleaning variable abstol */ | |||
| 90084 | } /*if (f2py_success) of vu*/ | |||
| 90085 | /* End of cleaning variable vu */ | |||
| 90086 | } /*if (f2py_success) of vl*/ | |||
| 90087 | /* End of cleaning variable vl */ | |||
| 90088 | if((PyObject *)capi_ab_tmp!=ab_capi) { | |||
| 90089 | Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); } | |||
| 90090 | } /*if (capi_ab_tmp == NULL) ... else of ab*/ | |||
| 90091 | /* End of cleaning variable ab */ | |||
| 90092 | } /*CHECKSCALAR(range==2||range==1||range==0)*/ | |||
| 90093 | } /*if (f2py_success) of range*/ | |||
| 90094 | /* End of cleaning variable range */ | |||
| 90095 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 90096 | } /*if (f2py_success) of lower*/ | |||
| 90097 | /* End of cleaning variable lower */ | |||
| 90098 | } /*CHECKSCALAR(compute_v==1||compute_v==0)*/ | |||
| 90099 | } /*if (f2py_success) of compute_v*/ | |||
| 90100 | /* End of cleaning variable compute_v */ | |||
| 90101 | /*end of cleanupfrompyobj*/ | |||
| 90102 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 90103 | /*routdebugfailure*/ | |||
| 90104 | } else { | |||
| 90105 | /*routdebugleave*/ | |||
| 90106 | } | |||
| 90107 | CFUNCSMESS("Freeing memory.\n"); | |||
| 90108 | /*freemem*/ | |||
| 90109 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90110 | f2py_stop_clock(); | |||
| 90111 | #endif | |||
| 90112 | return capi_buildvalue; | |||
| 90113 | } | |||
| 90114 | /******************************* end of dsbevx *******************************/ | |||
| 90115 | ||||
| 90116 | /*********************************** sstebz ***********************************/ | |||
| 90117 | static char doc_f2py_rout__flapack_sstebz[] = "\ | |||
| 90118 | m,w,iblock,isplit,info = sstebz(d,e,range,vl,vu,il,iu,tol,order)\n\nWrapper for ``sstebz``.\ | |||
| 90119 | \n\nParameters\n----------\n" | |||
| 90120 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 90121 | "e : input rank-1 array('f') with bounds (n - 1)\n" | |||
| 90122 | "range : input int\n" | |||
| 90123 | "vl : input float\n" | |||
| 90124 | "vu : input float\n" | |||
| 90125 | "il : input int\n" | |||
| 90126 | "iu : input int\n" | |||
| 90127 | "tol : input float\n" | |||
| 90128 | "order : input string(len=1)\n" | |||
| 90129 | "\nReturns\n-------\n" | |||
| 90130 | "m : int\n" | |||
| 90131 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 90132 | "iblock : rank-1 array('i') with bounds (n)\n" | |||
| 90133 | "isplit : rank-1 array('i') with bounds (n)\n" | |||
| 90134 | "info : int"; | |||
| 90135 | /* extern void F_FUNC(sstebz,SSTEBZ)(char*,char*,F_INT*,float*,float*,F_INT*,F_INT*,float*,float*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 90136 | static PyObject *f2py_rout__flapack_sstebz(const PyObject *capi_self, | |||
| 90137 | PyObject *capi_args, | |||
| 90138 | PyObject *capi_keywds, | |||
| 90139 | void (*f2py_func)(char*,char*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 90140 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 90141 | volatile int f2py_success = 1; | |||
| 90142 | /*decl*/ | |||
| 90143 | ||||
| 90144 | float *d = NULL((void*)0); | |||
| 90145 | npy_intp d_Dims[1] = {-1}; | |||
| 90146 | const int d_Rank = 1; | |||
| 90147 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 90148 | int capi_d_intent = 0; | |||
| 90149 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 90150 | float *e = NULL((void*)0); | |||
| 90151 | npy_intp e_Dims[1] = {-1}; | |||
| 90152 | const int e_Rank = 1; | |||
| 90153 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 90154 | int capi_e_intent = 0; | |||
| 90155 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 90156 | int range = 0; | |||
| 90157 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 90158 | float vl = 0; | |||
| 90159 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 90160 | float vu = 0; | |||
| 90161 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 90162 | int il = 0; | |||
| 90163 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 90164 | int iu = 0; | |||
| 90165 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 90166 | float tol = 0; | |||
| 90167 | PyObject *tol_capi = Py_None(&_Py_NoneStruct); | |||
| 90168 | string order = NULL((void*)0); | |||
| 90169 | int slen(order)capi_order_len; | |||
| 90170 | PyObject *order_capi = Py_None(&_Py_NoneStruct); | |||
| 90171 | int n = 0; | |||
| 90172 | float *work = NULL((void*)0); | |||
| 90173 | npy_intp work_Dims[1] = {-1}; | |||
| 90174 | const int work_Rank = 1; | |||
| 90175 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 90176 | int capi_work_intent = 0; | |||
| 90177 | int *iwork = NULL((void*)0); | |||
| 90178 | npy_intp iwork_Dims[1] = {-1}; | |||
| 90179 | const int iwork_Rank = 1; | |||
| 90180 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 90181 | int capi_iwork_intent = 0; | |||
| 90182 | int m = 0; | |||
| 90183 | int nsplit = 0; | |||
| 90184 | float *w = NULL((void*)0); | |||
| 90185 | npy_intp w_Dims[1] = {-1}; | |||
| 90186 | const int w_Rank = 1; | |||
| 90187 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 90188 | int capi_w_intent = 0; | |||
| 90189 | int *iblock = NULL((void*)0); | |||
| 90190 | npy_intp iblock_Dims[1] = {-1}; | |||
| 90191 | const int iblock_Rank = 1; | |||
| 90192 | PyArrayObject *capi_iblock_tmp = NULL((void*)0); | |||
| 90193 | int capi_iblock_intent = 0; | |||
| 90194 | int *isplit = NULL((void*)0); | |||
| 90195 | npy_intp isplit_Dims[1] = {-1}; | |||
| 90196 | const int isplit_Rank = 1; | |||
| 90197 | PyArrayObject *capi_isplit_tmp = NULL((void*)0); | |||
| 90198 | int capi_isplit_intent = 0; | |||
| 90199 | int info = 0; | |||
| 90200 | static char *capi_kwlist[] = {"d","e","range","vl","vu","il","iu","tol","order",NULL((void*)0)}; | |||
| 90201 | ||||
| 90202 | /*routdebugenter*/ | |||
| 90203 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90204 | f2py_start_clock(); | |||
| 90205 | #endif | |||
| 90206 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 90207 | "OOOOOOOOO:_flapack.sstebz",\ | |||
| 90208 | capi_kwlist,&d_capi,&e_capi,&range_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&tol_capi,&order_capi)) | |||
| 90209 | return NULL((void*)0); | |||
| 90210 | /*frompyobj*/ | |||
| 90211 | /* Processing variable d */ | |||
| 90212 | ; | |||
| 90213 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 90214 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 90215 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 90216 | if (!PyErr_Occurred()) | |||
| 90217 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sstebz to C/Fortran array" ); | |||
| 90218 | } else { | |||
| 90219 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 90220 | ||||
| 90221 | /* Processing variable vl */ | |||
| 90222 | f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.sstebz() 4th argument (vl) can't be converted to float"); | |||
| 90223 | if (f2py_success) { | |||
| 90224 | /* Processing variable vu */ | |||
| 90225 | f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.sstebz() 5th argument (vu) can't be converted to float"); | |||
| 90226 | if (f2py_success) { | |||
| 90227 | /* Processing variable order */ | |||
| 90228 | slen(order)capi_order_len = 1; | |||
| 90229 | f2py_success = string_from_pyobj(&order,&slen(order)capi_order_len,"",order_capi,"string_from_pyobj failed in converting 9th argument `order' of _flapack.sstebz to C string"); | |||
| 90230 | if (f2py_success) { | |||
| 90231 | /* Processing variable il */ | |||
| 90232 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.sstebz() 6th argument (il) can't be converted to int"); | |||
| 90233 | if (f2py_success) { | |||
| 90234 | /* Processing variable iu */ | |||
| 90235 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.sstebz() 7th argument (iu) can't be converted to int"); | |||
| 90236 | if (f2py_success) { | |||
| 90237 | /* Processing variable tol */ | |||
| 90238 | f2py_success = float_from_pyobj(&tol,tol_capi,"_flapack.sstebz() 8th argument (tol) can't be converted to float"); | |||
| 90239 | if (f2py_success) { | |||
| 90240 | /* Processing variable range */ | |||
| 90241 | f2py_success = int_from_pyobj(&range,range_capi,"_flapack.sstebz() 3rd argument (range) can't be converted to int"); | |||
| 90242 | if (f2py_success) { | |||
| 90243 | /* Processing variable m */ | |||
| 90244 | /* Processing variable nsplit */ | |||
| 90245 | /* Processing variable info */ | |||
| 90246 | /* Processing variable n */ | |||
| 90247 | n = shape(d,0)d_Dims[0]; | |||
| 90248 | CHECKSCALAR(n>0,"n>0","hidden n","sstebz:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sstebz:n=%d", "(""n>0"") failed for ""hidden n", n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 90249 | /* Processing variable work */ | |||
| 90250 | work_Dims[0]=4 * n; | |||
| 90251 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 90252 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 90253 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 90254 | if (!PyErr_Occurred()) | |||
| 90255 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sstebz to C/Fortran array" ); | |||
| 90256 | } else { | |||
| 90257 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 90258 | ||||
| 90259 | /* Processing variable iwork */ | |||
| 90260 | iwork_Dims[0]=3 * n; | |||
| 90261 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 90262 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 90263 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 90264 | if (!PyErr_Occurred()) | |||
| 90265 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sstebz to C/Fortran array" ); | |||
| 90266 | } else { | |||
| 90267 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 90268 | ||||
| 90269 | /* Processing variable w */ | |||
| 90270 | w_Dims[0]=n; | |||
| 90271 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 90272 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 90273 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 90274 | if (!PyErr_Occurred()) | |||
| 90275 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.sstebz to C/Fortran array" ); | |||
| 90276 | } else { | |||
| 90277 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 90278 | ||||
| 90279 | /* Processing variable iblock */ | |||
| 90280 | iblock_Dims[0]=n; | |||
| 90281 | capi_iblock_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 90282 | capi_iblock_tmp = array_from_pyobj(NPY_INT,iblock_Dims,iblock_Rank,capi_iblock_intent,Py_None(&_Py_NoneStruct)); | |||
| 90283 | if (capi_iblock_tmp == NULL((void*)0)) { | |||
| 90284 | if (!PyErr_Occurred()) | |||
| 90285 | PyErr_SetString(_flapack_error,"failed in converting hidden `iblock' of _flapack.sstebz to C/Fortran array" ); | |||
| 90286 | } else { | |||
| 90287 | iblock = (int *)(PyArray_DATA(capi_iblock_tmp)((void *)((PyArrayObject_fields *)(capi_iblock_tmp))->data )); | |||
| 90288 | ||||
| 90289 | /* Processing variable isplit */ | |||
| 90290 | isplit_Dims[0]=n; | |||
| 90291 | capi_isplit_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 90292 | capi_isplit_tmp = array_from_pyobj(NPY_INT,isplit_Dims,isplit_Rank,capi_isplit_intent,Py_None(&_Py_NoneStruct)); | |||
| 90293 | if (capi_isplit_tmp == NULL((void*)0)) { | |||
| 90294 | if (!PyErr_Occurred()) | |||
| 90295 | PyErr_SetString(_flapack_error,"failed in converting hidden `isplit' of _flapack.sstebz to C/Fortran array" ); | |||
| 90296 | } else { | |||
| 90297 | isplit = (int *)(PyArray_DATA(capi_isplit_tmp)((void *)((PyArrayObject_fields *)(capi_isplit_tmp))->data )); | |||
| 90298 | ||||
| 90299 | /* Processing variable e */ | |||
| 90300 | e_Dims[0]=n - 1; | |||
| 90301 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 90302 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 90303 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 90304 | if (!PyErr_Occurred()) | |||
| 90305 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sstebz to C/Fortran array" ); | |||
| 90306 | } else { | |||
| 90307 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 90308 | ||||
| 90309 | /*end of frompyobj*/ | |||
| 90310 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90311 | f2py_start_call_clock(); | |||
| 90312 | #endif | |||
| 90313 | /*callfortranroutine*/ | |||
| 90314 | (*f2py_func)((range>0?(range==1?"V":"I"):"A"),order,&n,&vl,&vu,&il,&iu,&tol,d,e,&m,&nsplit,w,iblock,isplit,work,iwork,&info) ; | |||
| 90315 | /*(*f2py_func)(d,e,&range,&vl,&vu,&il,&iu,&tol,order,&n,work,iwork,&m,&nsplit,w,iblock,isplit,&info,slen(order));*/ | |||
| 90316 | if (PyErr_Occurred()) | |||
| 90317 | f2py_success = 0; | |||
| 90318 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90319 | f2py_stop_call_clock(); | |||
| 90320 | #endif | |||
| 90321 | /*end of callfortranroutine*/ | |||
| 90322 | if (f2py_success) { | |||
| 90323 | /*pyobjfrom*/ | |||
| 90324 | /*end of pyobjfrom*/ | |||
| 90325 | CFUNCSMESS("Building return value.\n"); | |||
| 90326 | capi_buildvalue = Py_BuildValue("iNNNi",m,capi_w_tmp,capi_iblock_tmp,capi_isplit_tmp,info); | |||
| 90327 | /*closepyobjfrom*/ | |||
| 90328 | /*end of closepyobjfrom*/ | |||
| 90329 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 90330 | /*cleanupfrompyobj*/ | |||
| 90331 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 90332 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 90333 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 90334 | /* End of cleaning variable e */ | |||
| 90335 | } /*if (capi_isplit_tmp == NULL) ... else of isplit*/ | |||
| 90336 | /* End of cleaning variable isplit */ | |||
| 90337 | } /*if (capi_iblock_tmp == NULL) ... else of iblock*/ | |||
| 90338 | /* End of cleaning variable iblock */ | |||
| 90339 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 90340 | /* End of cleaning variable w */ | |||
| 90341 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 90342 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 90343 | /* End of cleaning variable iwork */ | |||
| 90344 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 90345 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 90346 | /* End of cleaning variable work */ | |||
| 90347 | } /*CHECKSCALAR(n>0)*/ | |||
| 90348 | /* End of cleaning variable n */ | |||
| 90349 | /* End of cleaning variable info */ | |||
| 90350 | /* End of cleaning variable nsplit */ | |||
| 90351 | /* End of cleaning variable m */ | |||
| 90352 | } /*if (f2py_success) of range*/ | |||
| 90353 | /* End of cleaning variable range */ | |||
| 90354 | } /*if (f2py_success) of tol*/ | |||
| 90355 | /* End of cleaning variable tol */ | |||
| 90356 | } /*if (f2py_success) of iu*/ | |||
| 90357 | /* End of cleaning variable iu */ | |||
| 90358 | } /*if (f2py_success) of il*/ | |||
| 90359 | /* End of cleaning variable il */ | |||
| 90360 | STRINGFREE(order)do {if (!(order == ((void*)0))) free(order);} while (0); | |||
| 90361 | } /*if (f2py_success) of order*/ | |||
| 90362 | /* End of cleaning variable order */ | |||
| 90363 | } /*if (f2py_success) of vu*/ | |||
| 90364 | /* End of cleaning variable vu */ | |||
| 90365 | } /*if (f2py_success) of vl*/ | |||
| 90366 | /* End of cleaning variable vl */ | |||
| 90367 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 90368 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 90369 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 90370 | /* End of cleaning variable d */ | |||
| 90371 | /*end of cleanupfrompyobj*/ | |||
| 90372 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 90373 | /*routdebugfailure*/ | |||
| 90374 | } else { | |||
| 90375 | /*routdebugleave*/ | |||
| 90376 | } | |||
| 90377 | CFUNCSMESS("Freeing memory.\n"); | |||
| 90378 | /*freemem*/ | |||
| 90379 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90380 | f2py_stop_clock(); | |||
| 90381 | #endif | |||
| 90382 | return capi_buildvalue; | |||
| 90383 | } | |||
| 90384 | /******************************* end of sstebz *******************************/ | |||
| 90385 | ||||
| 90386 | /*********************************** dstebz ***********************************/ | |||
| 90387 | static char doc_f2py_rout__flapack_dstebz[] = "\ | |||
| 90388 | m,w,iblock,isplit,info = dstebz(d,e,range,vl,vu,il,iu,tol,order)\n\nWrapper for ``dstebz``.\ | |||
| 90389 | \n\nParameters\n----------\n" | |||
| 90390 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 90391 | "e : input rank-1 array('d') with bounds (n - 1)\n" | |||
| 90392 | "range : input int\n" | |||
| 90393 | "vl : input float\n" | |||
| 90394 | "vu : input float\n" | |||
| 90395 | "il : input int\n" | |||
| 90396 | "iu : input int\n" | |||
| 90397 | "tol : input float\n" | |||
| 90398 | "order : input string(len=1)\n" | |||
| 90399 | "\nReturns\n-------\n" | |||
| 90400 | "m : int\n" | |||
| 90401 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 90402 | "iblock : rank-1 array('i') with bounds (n)\n" | |||
| 90403 | "isplit : rank-1 array('i') with bounds (n)\n" | |||
| 90404 | "info : int"; | |||
| 90405 | /* extern void F_FUNC(dstebz,DSTEBZ)(char*,char*,F_INT*,double*,double*,F_INT*,F_INT*,double*,double*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 90406 | static PyObject *f2py_rout__flapack_dstebz(const PyObject *capi_self, | |||
| 90407 | PyObject *capi_args, | |||
| 90408 | PyObject *capi_keywds, | |||
| 90409 | void (*f2py_func)(char*,char*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 90410 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 90411 | volatile int f2py_success = 1; | |||
| 90412 | /*decl*/ | |||
| 90413 | ||||
| 90414 | double *d = NULL((void*)0); | |||
| 90415 | npy_intp d_Dims[1] = {-1}; | |||
| 90416 | const int d_Rank = 1; | |||
| 90417 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 90418 | int capi_d_intent = 0; | |||
| 90419 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 90420 | double *e = NULL((void*)0); | |||
| 90421 | npy_intp e_Dims[1] = {-1}; | |||
| 90422 | const int e_Rank = 1; | |||
| 90423 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 90424 | int capi_e_intent = 0; | |||
| 90425 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 90426 | int range = 0; | |||
| 90427 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 90428 | double vl = 0; | |||
| 90429 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 90430 | double vu = 0; | |||
| 90431 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 90432 | int il = 0; | |||
| 90433 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 90434 | int iu = 0; | |||
| 90435 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 90436 | double tol = 0; | |||
| 90437 | PyObject *tol_capi = Py_None(&_Py_NoneStruct); | |||
| 90438 | string order = NULL((void*)0); | |||
| 90439 | int slen(order)capi_order_len; | |||
| 90440 | PyObject *order_capi = Py_None(&_Py_NoneStruct); | |||
| 90441 | int n = 0; | |||
| 90442 | double *work = NULL((void*)0); | |||
| 90443 | npy_intp work_Dims[1] = {-1}; | |||
| 90444 | const int work_Rank = 1; | |||
| 90445 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 90446 | int capi_work_intent = 0; | |||
| 90447 | int *iwork = NULL((void*)0); | |||
| 90448 | npy_intp iwork_Dims[1] = {-1}; | |||
| 90449 | const int iwork_Rank = 1; | |||
| 90450 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 90451 | int capi_iwork_intent = 0; | |||
| 90452 | int m = 0; | |||
| 90453 | int nsplit = 0; | |||
| 90454 | double *w = NULL((void*)0); | |||
| 90455 | npy_intp w_Dims[1] = {-1}; | |||
| 90456 | const int w_Rank = 1; | |||
| 90457 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 90458 | int capi_w_intent = 0; | |||
| 90459 | int *iblock = NULL((void*)0); | |||
| 90460 | npy_intp iblock_Dims[1] = {-1}; | |||
| 90461 | const int iblock_Rank = 1; | |||
| 90462 | PyArrayObject *capi_iblock_tmp = NULL((void*)0); | |||
| 90463 | int capi_iblock_intent = 0; | |||
| 90464 | int *isplit = NULL((void*)0); | |||
| 90465 | npy_intp isplit_Dims[1] = {-1}; | |||
| 90466 | const int isplit_Rank = 1; | |||
| 90467 | PyArrayObject *capi_isplit_tmp = NULL((void*)0); | |||
| 90468 | int capi_isplit_intent = 0; | |||
| 90469 | int info = 0; | |||
| 90470 | static char *capi_kwlist[] = {"d","e","range","vl","vu","il","iu","tol","order",NULL((void*)0)}; | |||
| 90471 | ||||
| 90472 | /*routdebugenter*/ | |||
| 90473 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90474 | f2py_start_clock(); | |||
| 90475 | #endif | |||
| 90476 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 90477 | "OOOOOOOOO:_flapack.dstebz",\ | |||
| 90478 | capi_kwlist,&d_capi,&e_capi,&range_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&tol_capi,&order_capi)) | |||
| 90479 | return NULL((void*)0); | |||
| 90480 | /*frompyobj*/ | |||
| 90481 | /* Processing variable d */ | |||
| 90482 | ; | |||
| 90483 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 90484 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 90485 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 90486 | if (!PyErr_Occurred()) | |||
| 90487 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dstebz to C/Fortran array" ); | |||
| 90488 | } else { | |||
| 90489 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 90490 | ||||
| 90491 | /* Processing variable vl */ | |||
| 90492 | f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dstebz() 4th argument (vl) can't be converted to double"); | |||
| 90493 | if (f2py_success) { | |||
| 90494 | /* Processing variable vu */ | |||
| 90495 | f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dstebz() 5th argument (vu) can't be converted to double"); | |||
| 90496 | if (f2py_success) { | |||
| 90497 | /* Processing variable order */ | |||
| 90498 | slen(order)capi_order_len = 1; | |||
| 90499 | f2py_success = string_from_pyobj(&order,&slen(order)capi_order_len,"",order_capi,"string_from_pyobj failed in converting 9th argument `order' of _flapack.dstebz to C string"); | |||
| 90500 | if (f2py_success) { | |||
| 90501 | /* Processing variable il */ | |||
| 90502 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dstebz() 6th argument (il) can't be converted to int"); | |||
| 90503 | if (f2py_success) { | |||
| 90504 | /* Processing variable iu */ | |||
| 90505 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dstebz() 7th argument (iu) can't be converted to int"); | |||
| 90506 | if (f2py_success) { | |||
| 90507 | /* Processing variable tol */ | |||
| 90508 | f2py_success = double_from_pyobj(&tol,tol_capi,"_flapack.dstebz() 8th argument (tol) can't be converted to double"); | |||
| 90509 | if (f2py_success) { | |||
| 90510 | /* Processing variable range */ | |||
| 90511 | f2py_success = int_from_pyobj(&range,range_capi,"_flapack.dstebz() 3rd argument (range) can't be converted to int"); | |||
| 90512 | if (f2py_success) { | |||
| 90513 | /* Processing variable m */ | |||
| 90514 | /* Processing variable nsplit */ | |||
| 90515 | /* Processing variable info */ | |||
| 90516 | /* Processing variable n */ | |||
| 90517 | n = shape(d,0)d_Dims[0]; | |||
| 90518 | CHECKSCALAR(n>0,"n>0","hidden n","dstebz:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dstebz:n=%d", "(""n>0"") failed for ""hidden n", n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 90519 | /* Processing variable work */ | |||
| 90520 | work_Dims[0]=4 * n; | |||
| 90521 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 90522 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 90523 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 90524 | if (!PyErr_Occurred()) | |||
| 90525 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dstebz to C/Fortran array" ); | |||
| 90526 | } else { | |||
| 90527 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 90528 | ||||
| 90529 | /* Processing variable iwork */ | |||
| 90530 | iwork_Dims[0]=3 * n; | |||
| 90531 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 90532 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 90533 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 90534 | if (!PyErr_Occurred()) | |||
| 90535 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dstebz to C/Fortran array" ); | |||
| 90536 | } else { | |||
| 90537 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 90538 | ||||
| 90539 | /* Processing variable w */ | |||
| 90540 | w_Dims[0]=n; | |||
| 90541 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 90542 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 90543 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 90544 | if (!PyErr_Occurred()) | |||
| 90545 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dstebz to C/Fortran array" ); | |||
| 90546 | } else { | |||
| 90547 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 90548 | ||||
| 90549 | /* Processing variable iblock */ | |||
| 90550 | iblock_Dims[0]=n; | |||
| 90551 | capi_iblock_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 90552 | capi_iblock_tmp = array_from_pyobj(NPY_INT,iblock_Dims,iblock_Rank,capi_iblock_intent,Py_None(&_Py_NoneStruct)); | |||
| 90553 | if (capi_iblock_tmp == NULL((void*)0)) { | |||
| 90554 | if (!PyErr_Occurred()) | |||
| 90555 | PyErr_SetString(_flapack_error,"failed in converting hidden `iblock' of _flapack.dstebz to C/Fortran array" ); | |||
| 90556 | } else { | |||
| 90557 | iblock = (int *)(PyArray_DATA(capi_iblock_tmp)((void *)((PyArrayObject_fields *)(capi_iblock_tmp))->data )); | |||
| 90558 | ||||
| 90559 | /* Processing variable isplit */ | |||
| 90560 | isplit_Dims[0]=n; | |||
| 90561 | capi_isplit_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 90562 | capi_isplit_tmp = array_from_pyobj(NPY_INT,isplit_Dims,isplit_Rank,capi_isplit_intent,Py_None(&_Py_NoneStruct)); | |||
| 90563 | if (capi_isplit_tmp == NULL((void*)0)) { | |||
| 90564 | if (!PyErr_Occurred()) | |||
| 90565 | PyErr_SetString(_flapack_error,"failed in converting hidden `isplit' of _flapack.dstebz to C/Fortran array" ); | |||
| 90566 | } else { | |||
| 90567 | isplit = (int *)(PyArray_DATA(capi_isplit_tmp)((void *)((PyArrayObject_fields *)(capi_isplit_tmp))->data )); | |||
| 90568 | ||||
| 90569 | /* Processing variable e */ | |||
| 90570 | e_Dims[0]=n - 1; | |||
| 90571 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 90572 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 90573 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 90574 | if (!PyErr_Occurred()) | |||
| 90575 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dstebz to C/Fortran array" ); | |||
| 90576 | } else { | |||
| 90577 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 90578 | ||||
| 90579 | /*end of frompyobj*/ | |||
| 90580 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90581 | f2py_start_call_clock(); | |||
| 90582 | #endif | |||
| 90583 | /*callfortranroutine*/ | |||
| 90584 | (*f2py_func)((range>0?(range==1?"V":"I"):"A"),order,&n,&vl,&vu,&il,&iu,&tol,d,e,&m,&nsplit,w,iblock,isplit,work,iwork,&info) ; | |||
| 90585 | /*(*f2py_func)(d,e,&range,&vl,&vu,&il,&iu,&tol,order,&n,work,iwork,&m,&nsplit,w,iblock,isplit,&info,slen(order));*/ | |||
| 90586 | if (PyErr_Occurred()) | |||
| 90587 | f2py_success = 0; | |||
| 90588 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90589 | f2py_stop_call_clock(); | |||
| 90590 | #endif | |||
| 90591 | /*end of callfortranroutine*/ | |||
| 90592 | if (f2py_success) { | |||
| 90593 | /*pyobjfrom*/ | |||
| 90594 | /*end of pyobjfrom*/ | |||
| 90595 | CFUNCSMESS("Building return value.\n"); | |||
| 90596 | capi_buildvalue = Py_BuildValue("iNNNi",m,capi_w_tmp,capi_iblock_tmp,capi_isplit_tmp,info); | |||
| 90597 | /*closepyobjfrom*/ | |||
| 90598 | /*end of closepyobjfrom*/ | |||
| 90599 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 90600 | /*cleanupfrompyobj*/ | |||
| 90601 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 90602 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 90603 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 90604 | /* End of cleaning variable e */ | |||
| 90605 | } /*if (capi_isplit_tmp == NULL) ... else of isplit*/ | |||
| 90606 | /* End of cleaning variable isplit */ | |||
| 90607 | } /*if (capi_iblock_tmp == NULL) ... else of iblock*/ | |||
| 90608 | /* End of cleaning variable iblock */ | |||
| 90609 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 90610 | /* End of cleaning variable w */ | |||
| 90611 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 90612 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 90613 | /* End of cleaning variable iwork */ | |||
| 90614 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 90615 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 90616 | /* End of cleaning variable work */ | |||
| 90617 | } /*CHECKSCALAR(n>0)*/ | |||
| 90618 | /* End of cleaning variable n */ | |||
| 90619 | /* End of cleaning variable info */ | |||
| 90620 | /* End of cleaning variable nsplit */ | |||
| 90621 | /* End of cleaning variable m */ | |||
| 90622 | } /*if (f2py_success) of range*/ | |||
| 90623 | /* End of cleaning variable range */ | |||
| 90624 | } /*if (f2py_success) of tol*/ | |||
| 90625 | /* End of cleaning variable tol */ | |||
| 90626 | } /*if (f2py_success) of iu*/ | |||
| 90627 | /* End of cleaning variable iu */ | |||
| 90628 | } /*if (f2py_success) of il*/ | |||
| 90629 | /* End of cleaning variable il */ | |||
| 90630 | STRINGFREE(order)do {if (!(order == ((void*)0))) free(order);} while (0); | |||
| 90631 | } /*if (f2py_success) of order*/ | |||
| 90632 | /* End of cleaning variable order */ | |||
| 90633 | } /*if (f2py_success) of vu*/ | |||
| 90634 | /* End of cleaning variable vu */ | |||
| 90635 | } /*if (f2py_success) of vl*/ | |||
| 90636 | /* End of cleaning variable vl */ | |||
| 90637 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 90638 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 90639 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 90640 | /* End of cleaning variable d */ | |||
| 90641 | /*end of cleanupfrompyobj*/ | |||
| 90642 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 90643 | /*routdebugfailure*/ | |||
| 90644 | } else { | |||
| 90645 | /*routdebugleave*/ | |||
| 90646 | } | |||
| 90647 | CFUNCSMESS("Freeing memory.\n"); | |||
| 90648 | /*freemem*/ | |||
| 90649 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90650 | f2py_stop_clock(); | |||
| 90651 | #endif | |||
| 90652 | return capi_buildvalue; | |||
| 90653 | } | |||
| 90654 | /******************************* end of dstebz *******************************/ | |||
| 90655 | ||||
| 90656 | /*********************************** ssterf ***********************************/ | |||
| 90657 | static char doc_f2py_rout__flapack_ssterf[] = "\ | |||
| 90658 | vals,info = ssterf(d,e,[overwrite_d,overwrite_e])\n\nWrapper for ``ssterf``.\ | |||
| 90659 | \n\nParameters\n----------\n" | |||
| 90660 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 90661 | "e : input rank-1 array('f') with bounds (n - 1)\n" | |||
| 90662 | "\nOther Parameters\n----------------\n" | |||
| 90663 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 90664 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 90665 | "\nReturns\n-------\n" | |||
| 90666 | "vals : rank-1 array('f') with bounds (n) and d storage\n" | |||
| 90667 | "info : int"; | |||
| 90668 | /* extern void F_FUNC(ssterf,SSTERF)(F_INT*,float*,float*,F_INT* ); */ | |||
| 90669 | static PyObject *f2py_rout__flapack_ssterf(const PyObject *capi_self, | |||
| 90670 | PyObject *capi_args, | |||
| 90671 | PyObject *capi_keywds, | |||
| 90672 | void (*f2py_func)(F_INTint*,float*,float*,F_INTint* )) { | |||
| 90673 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 90674 | volatile int f2py_success = 1; | |||
| 90675 | /*decl*/ | |||
| 90676 | ||||
| 90677 | float *d = NULL((void*)0); | |||
| 90678 | npy_intp d_Dims[1] = {-1}; | |||
| 90679 | const int d_Rank = 1; | |||
| 90680 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 90681 | int capi_d_intent = 0; | |||
| 90682 | int capi_overwrite_d = 0; | |||
| 90683 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 90684 | float *e = NULL((void*)0); | |||
| 90685 | npy_intp e_Dims[1] = {-1}; | |||
| 90686 | const int e_Rank = 1; | |||
| 90687 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 90688 | int capi_e_intent = 0; | |||
| 90689 | int capi_overwrite_e = 0; | |||
| 90690 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 90691 | int n = 0; | |||
| 90692 | int info = 0; | |||
| 90693 | static char *capi_kwlist[] = {"d","e","overwrite_d","overwrite_e",NULL((void*)0)}; | |||
| 90694 | ||||
| 90695 | /*routdebugenter*/ | |||
| 90696 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90697 | f2py_start_clock(); | |||
| 90698 | #endif | |||
| 90699 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 90700 | "OO|ii:_flapack.ssterf",\ | |||
| 90701 | capi_kwlist,&d_capi,&e_capi,&capi_overwrite_d,&capi_overwrite_e)) | |||
| 90702 | return NULL((void*)0); | |||
| 90703 | /*frompyobj*/ | |||
| 90704 | /* Processing variable d */ | |||
| 90705 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 90706 | ; | |||
| 90707 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 90708 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 90709 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 90710 | if (!PyErr_Occurred()) | |||
| 90711 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.ssterf to C/Fortran array" ); | |||
| 90712 | } else { | |||
| 90713 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 90714 | ||||
| 90715 | /* Processing variable info */ | |||
| 90716 | /* Processing variable n */ | |||
| 90717 | n = shape(d,0)d_Dims[0]; | |||
| 90718 | /* Processing variable e */ | |||
| 90719 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 90720 | e_Dims[0]=n - 1; | |||
| 90721 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 90722 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 90723 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 90724 | if (!PyErr_Occurred()) | |||
| 90725 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.ssterf to C/Fortran array" ); | |||
| 90726 | } else { | |||
| 90727 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 90728 | ||||
| 90729 | /*end of frompyobj*/ | |||
| 90730 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90731 | f2py_start_call_clock(); | |||
| 90732 | #endif | |||
| 90733 | /*callfortranroutine*/ | |||
| 90734 | (*f2py_func)(&n,d,e,&info) ; | |||
| 90735 | /*(*f2py_func)(d,e,&n,&info);*/ | |||
| 90736 | if (PyErr_Occurred()) | |||
| 90737 | f2py_success = 0; | |||
| 90738 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90739 | f2py_stop_call_clock(); | |||
| 90740 | #endif | |||
| 90741 | /*end of callfortranroutine*/ | |||
| 90742 | if (f2py_success) { | |||
| 90743 | /*pyobjfrom*/ | |||
| 90744 | /*end of pyobjfrom*/ | |||
| 90745 | CFUNCSMESS("Building return value.\n"); | |||
| 90746 | capi_buildvalue = Py_BuildValue("Ni",capi_d_tmp,info); | |||
| 90747 | /*closepyobjfrom*/ | |||
| 90748 | /*end of closepyobjfrom*/ | |||
| 90749 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 90750 | /*cleanupfrompyobj*/ | |||
| 90751 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 90752 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 90753 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 90754 | /* End of cleaning variable e */ | |||
| 90755 | /* End of cleaning variable n */ | |||
| 90756 | /* End of cleaning variable info */ | |||
| 90757 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 90758 | /* End of cleaning variable d */ | |||
| 90759 | /*end of cleanupfrompyobj*/ | |||
| 90760 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 90761 | /*routdebugfailure*/ | |||
| 90762 | } else { | |||
| 90763 | /*routdebugleave*/ | |||
| 90764 | } | |||
| 90765 | CFUNCSMESS("Freeing memory.\n"); | |||
| 90766 | /*freemem*/ | |||
| 90767 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90768 | f2py_stop_clock(); | |||
| 90769 | #endif | |||
| 90770 | return capi_buildvalue; | |||
| 90771 | } | |||
| 90772 | /******************************* end of ssterf *******************************/ | |||
| 90773 | ||||
| 90774 | /*********************************** dsterf ***********************************/ | |||
| 90775 | static char doc_f2py_rout__flapack_dsterf[] = "\ | |||
| 90776 | vals,info = dsterf(d,e,[overwrite_d,overwrite_e])\n\nWrapper for ``dsterf``.\ | |||
| 90777 | \n\nParameters\n----------\n" | |||
| 90778 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 90779 | "e : input rank-1 array('d') with bounds (n - 1)\n" | |||
| 90780 | "\nOther Parameters\n----------------\n" | |||
| 90781 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 90782 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 90783 | "\nReturns\n-------\n" | |||
| 90784 | "vals : rank-1 array('d') with bounds (n) and d storage\n" | |||
| 90785 | "info : int"; | |||
| 90786 | /* extern void F_FUNC(dsterf,DSTERF)(F_INT*,double*,double*,F_INT* ); */ | |||
| 90787 | static PyObject *f2py_rout__flapack_dsterf(const PyObject *capi_self, | |||
| 90788 | PyObject *capi_args, | |||
| 90789 | PyObject *capi_keywds, | |||
| 90790 | void (*f2py_func)(F_INTint*,double*,double*,F_INTint* )) { | |||
| 90791 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 90792 | volatile int f2py_success = 1; | |||
| 90793 | /*decl*/ | |||
| 90794 | ||||
| 90795 | double *d = NULL((void*)0); | |||
| 90796 | npy_intp d_Dims[1] = {-1}; | |||
| 90797 | const int d_Rank = 1; | |||
| 90798 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 90799 | int capi_d_intent = 0; | |||
| 90800 | int capi_overwrite_d = 0; | |||
| 90801 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 90802 | double *e = NULL((void*)0); | |||
| 90803 | npy_intp e_Dims[1] = {-1}; | |||
| 90804 | const int e_Rank = 1; | |||
| 90805 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 90806 | int capi_e_intent = 0; | |||
| 90807 | int capi_overwrite_e = 0; | |||
| 90808 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 90809 | int n = 0; | |||
| 90810 | int info = 0; | |||
| 90811 | static char *capi_kwlist[] = {"d","e","overwrite_d","overwrite_e",NULL((void*)0)}; | |||
| 90812 | ||||
| 90813 | /*routdebugenter*/ | |||
| 90814 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90815 | f2py_start_clock(); | |||
| 90816 | #endif | |||
| 90817 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 90818 | "OO|ii:_flapack.dsterf",\ | |||
| 90819 | capi_kwlist,&d_capi,&e_capi,&capi_overwrite_d,&capi_overwrite_e)) | |||
| 90820 | return NULL((void*)0); | |||
| 90821 | /*frompyobj*/ | |||
| 90822 | /* Processing variable d */ | |||
| 90823 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 90824 | ; | |||
| 90825 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 90826 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 90827 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 90828 | if (!PyErr_Occurred()) | |||
| 90829 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dsterf to C/Fortran array" ); | |||
| 90830 | } else { | |||
| 90831 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 90832 | ||||
| 90833 | /* Processing variable info */ | |||
| 90834 | /* Processing variable n */ | |||
| 90835 | n = shape(d,0)d_Dims[0]; | |||
| 90836 | /* Processing variable e */ | |||
| 90837 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 90838 | e_Dims[0]=n - 1; | |||
| 90839 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 90840 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 90841 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 90842 | if (!PyErr_Occurred()) | |||
| 90843 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dsterf to C/Fortran array" ); | |||
| 90844 | } else { | |||
| 90845 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 90846 | ||||
| 90847 | /*end of frompyobj*/ | |||
| 90848 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90849 | f2py_start_call_clock(); | |||
| 90850 | #endif | |||
| 90851 | /*callfortranroutine*/ | |||
| 90852 | (*f2py_func)(&n,d,e,&info) ; | |||
| 90853 | /*(*f2py_func)(d,e,&n,&info);*/ | |||
| 90854 | if (PyErr_Occurred()) | |||
| 90855 | f2py_success = 0; | |||
| 90856 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90857 | f2py_stop_call_clock(); | |||
| 90858 | #endif | |||
| 90859 | /*end of callfortranroutine*/ | |||
| 90860 | if (f2py_success) { | |||
| 90861 | /*pyobjfrom*/ | |||
| 90862 | /*end of pyobjfrom*/ | |||
| 90863 | CFUNCSMESS("Building return value.\n"); | |||
| 90864 | capi_buildvalue = Py_BuildValue("Ni",capi_d_tmp,info); | |||
| 90865 | /*closepyobjfrom*/ | |||
| 90866 | /*end of closepyobjfrom*/ | |||
| 90867 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 90868 | /*cleanupfrompyobj*/ | |||
| 90869 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 90870 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 90871 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 90872 | /* End of cleaning variable e */ | |||
| 90873 | /* End of cleaning variable n */ | |||
| 90874 | /* End of cleaning variable info */ | |||
| 90875 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 90876 | /* End of cleaning variable d */ | |||
| 90877 | /*end of cleanupfrompyobj*/ | |||
| 90878 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 90879 | /*routdebugfailure*/ | |||
| 90880 | } else { | |||
| 90881 | /*routdebugleave*/ | |||
| 90882 | } | |||
| 90883 | CFUNCSMESS("Freeing memory.\n"); | |||
| 90884 | /*freemem*/ | |||
| 90885 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90886 | f2py_stop_clock(); | |||
| 90887 | #endif | |||
| 90888 | return capi_buildvalue; | |||
| 90889 | } | |||
| 90890 | /******************************* end of dsterf *******************************/ | |||
| 90891 | ||||
| 90892 | /*********************************** sstein ***********************************/ | |||
| 90893 | static char doc_f2py_rout__flapack_sstein[] = "\ | |||
| 90894 | z,info = sstein(d,e,w,iblock,isplit)\n\nWrapper for ``sstein``.\ | |||
| 90895 | \n\nParameters\n----------\n" | |||
| 90896 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 90897 | "e : input rank-1 array('f') with bounds (n - 1)\n" | |||
| 90898 | "w : input rank-1 array('f') with bounds (m)\n" | |||
| 90899 | "iblock : input rank-1 array('i') with bounds (n)\n" | |||
| 90900 | "isplit : input rank-1 array('i') with bounds (n)\n" | |||
| 90901 | "\nReturns\n-------\n" | |||
| 90902 | "z : rank-2 array('f') with bounds (ldz,m)\n" | |||
| 90903 | "info : int"; | |||
| 90904 | /* extern void F_FUNC(sstein,SSTEIN)(F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */ | |||
| 90905 | static PyObject *f2py_rout__flapack_sstein(const PyObject *capi_self, | |||
| 90906 | PyObject *capi_args, | |||
| 90907 | PyObject *capi_keywds, | |||
| 90908 | void (*f2py_func)(F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 90909 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 90910 | volatile int f2py_success = 1; | |||
| 90911 | /*decl*/ | |||
| 90912 | ||||
| 90913 | float *d = NULL((void*)0); | |||
| 90914 | npy_intp d_Dims[1] = {-1}; | |||
| 90915 | const int d_Rank = 1; | |||
| 90916 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 90917 | int capi_d_intent = 0; | |||
| 90918 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 90919 | float *e = NULL((void*)0); | |||
| 90920 | npy_intp e_Dims[1] = {-1}; | |||
| 90921 | const int e_Rank = 1; | |||
| 90922 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 90923 | int capi_e_intent = 0; | |||
| 90924 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 90925 | float *w = NULL((void*)0); | |||
| 90926 | npy_intp w_Dims[1] = {-1}; | |||
| 90927 | const int w_Rank = 1; | |||
| 90928 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 90929 | int capi_w_intent = 0; | |||
| 90930 | PyObject *w_capi = Py_None(&_Py_NoneStruct); | |||
| 90931 | int *iblock = NULL((void*)0); | |||
| 90932 | npy_intp iblock_Dims[1] = {-1}; | |||
| 90933 | const int iblock_Rank = 1; | |||
| 90934 | PyArrayObject *capi_iblock_tmp = NULL((void*)0); | |||
| 90935 | int capi_iblock_intent = 0; | |||
| 90936 | PyObject *iblock_capi = Py_None(&_Py_NoneStruct); | |||
| 90937 | int *isplit = NULL((void*)0); | |||
| 90938 | npy_intp isplit_Dims[1] = {-1}; | |||
| 90939 | const int isplit_Rank = 1; | |||
| 90940 | PyArrayObject *capi_isplit_tmp = NULL((void*)0); | |||
| 90941 | int capi_isplit_intent = 0; | |||
| 90942 | PyObject *isplit_capi = Py_None(&_Py_NoneStruct); | |||
| 90943 | int m = 0; | |||
| 90944 | int n = 0; | |||
| 90945 | float *z = NULL((void*)0); | |||
| 90946 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 90947 | const int z_Rank = 2; | |||
| 90948 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 90949 | int capi_z_intent = 0; | |||
| 90950 | int ldz = 0; | |||
| 90951 | float *work = NULL((void*)0); | |||
| 90952 | npy_intp work_Dims[1] = {-1}; | |||
| 90953 | const int work_Rank = 1; | |||
| 90954 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 90955 | int capi_work_intent = 0; | |||
| 90956 | int *iwork = NULL((void*)0); | |||
| 90957 | npy_intp iwork_Dims[1] = {-1}; | |||
| 90958 | const int iwork_Rank = 1; | |||
| 90959 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 90960 | int capi_iwork_intent = 0; | |||
| 90961 | int *ifail = NULL((void*)0); | |||
| 90962 | npy_intp ifail_Dims[1] = {-1}; | |||
| 90963 | const int ifail_Rank = 1; | |||
| 90964 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 90965 | int capi_ifail_intent = 0; | |||
| 90966 | int info = 0; | |||
| 90967 | static char *capi_kwlist[] = {"d","e","w","iblock","isplit",NULL((void*)0)}; | |||
| 90968 | ||||
| 90969 | /*routdebugenter*/ | |||
| 90970 | #ifdef F2PY_REPORT_ATEXIT | |||
| 90971 | f2py_start_clock(); | |||
| 90972 | #endif | |||
| 90973 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 90974 | "OOOOO:_flapack.sstein",\ | |||
| 90975 | capi_kwlist,&d_capi,&e_capi,&w_capi,&iblock_capi,&isplit_capi)) | |||
| 90976 | return NULL((void*)0); | |||
| 90977 | /*frompyobj*/ | |||
| 90978 | /* Processing variable d */ | |||
| 90979 | ; | |||
| 90980 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 90981 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 90982 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 90983 | if (!PyErr_Occurred()) | |||
| 90984 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sstein to C/Fortran array" ); | |||
| 90985 | } else { | |||
| 90986 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 90987 | ||||
| 90988 | /* Processing variable w */ | |||
| 90989 | ; | |||
| 90990 | capi_w_intent |= F2PY_INTENT_IN1; | |||
| 90991 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,w_capi); | |||
| 90992 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 90993 | if (!PyErr_Occurred()) | |||
| 90994 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `w' of _flapack.sstein to C/Fortran array" ); | |||
| 90995 | } else { | |||
| 90996 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 90997 | ||||
| 90998 | /* Processing variable info */ | |||
| 90999 | /* Processing variable m */ | |||
| 91000 | m = shape(w,0)w_Dims[0]; | |||
| 91001 | /* Processing variable n */ | |||
| 91002 | n = shape(d,0)d_Dims[0]; | |||
| 91003 | CHECKSCALAR(n>0,"n>0","hidden n","sstein:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sstein:n=%d", "(""n>0"") failed for ""hidden n", n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 91004 | /* Processing variable iblock */ | |||
| 91005 | iblock_Dims[0]=n; | |||
| 91006 | capi_iblock_intent |= F2PY_INTENT_IN1; | |||
| 91007 | capi_iblock_tmp = array_from_pyobj(NPY_INT,iblock_Dims,iblock_Rank,capi_iblock_intent,iblock_capi); | |||
| 91008 | if (capi_iblock_tmp == NULL((void*)0)) { | |||
| 91009 | if (!PyErr_Occurred()) | |||
| 91010 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `iblock' of _flapack.sstein to C/Fortran array" ); | |||
| 91011 | } else { | |||
| 91012 | iblock = (int *)(PyArray_DATA(capi_iblock_tmp)((void *)((PyArrayObject_fields *)(capi_iblock_tmp))->data )); | |||
| 91013 | ||||
| 91014 | /* Processing variable isplit */ | |||
| 91015 | isplit_Dims[0]=n; | |||
| 91016 | capi_isplit_intent |= F2PY_INTENT_IN1; | |||
| 91017 | capi_isplit_tmp = array_from_pyobj(NPY_INT,isplit_Dims,isplit_Rank,capi_isplit_intent,isplit_capi); | |||
| 91018 | if (capi_isplit_tmp == NULL((void*)0)) { | |||
| 91019 | if (!PyErr_Occurred()) | |||
| 91020 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `isplit' of _flapack.sstein to C/Fortran array" ); | |||
| 91021 | } else { | |||
| 91022 | isplit = (int *)(PyArray_DATA(capi_isplit_tmp)((void *)((PyArrayObject_fields *)(capi_isplit_tmp))->data )); | |||
| 91023 | ||||
| 91024 | /* Processing variable ldz */ | |||
| 91025 | ldz = n; | |||
| 91026 | /* Processing variable work */ | |||
| 91027 | work_Dims[0]=5 * n; | |||
| 91028 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 91029 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 91030 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 91031 | if (!PyErr_Occurred()) | |||
| 91032 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sstein to C/Fortran array" ); | |||
| 91033 | } else { | |||
| 91034 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 91035 | ||||
| 91036 | /* Processing variable iwork */ | |||
| 91037 | iwork_Dims[0]=n; | |||
| 91038 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 91039 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 91040 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 91041 | if (!PyErr_Occurred()) | |||
| 91042 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sstein to C/Fortran array" ); | |||
| 91043 | } else { | |||
| 91044 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 91045 | ||||
| 91046 | /* Processing variable ifail */ | |||
| 91047 | ifail_Dims[0]=m; | |||
| 91048 | capi_ifail_intent |= F2PY_INTENT_HIDE8; | |||
| 91049 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 91050 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 91051 | if (!PyErr_Occurred()) | |||
| 91052 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.sstein to C/Fortran array" ); | |||
| 91053 | } else { | |||
| 91054 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 91055 | ||||
| 91056 | /* Processing variable e */ | |||
| 91057 | e_Dims[0]=n - 1; | |||
| 91058 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 91059 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 91060 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 91061 | if (!PyErr_Occurred()) | |||
| 91062 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sstein to C/Fortran array" ); | |||
| 91063 | } else { | |||
| 91064 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 91065 | ||||
| 91066 | /* Processing variable z */ | |||
| 91067 | z_Dims[0]=ldz,z_Dims[1]=m; | |||
| 91068 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 91069 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 91070 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 91071 | if (!PyErr_Occurred()) | |||
| 91072 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.sstein to C/Fortran array" ); | |||
| 91073 | } else { | |||
| 91074 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 91075 | ||||
| 91076 | /*end of frompyobj*/ | |||
| 91077 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91078 | f2py_start_call_clock(); | |||
| 91079 | #endif | |||
| 91080 | /*callfortranroutine*/ | |||
| 91081 | (*f2py_func)(&n,d,e,&m,w,iblock,isplit,z,&ldz,work,iwork,ifail,&info) ; | |||
| 91082 | /*(*f2py_func)(d,e,w,iblock,isplit,&m,&n,z,&ldz,work,iwork,ifail,&info);*/ | |||
| 91083 | if (PyErr_Occurred()) | |||
| 91084 | f2py_success = 0; | |||
| 91085 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91086 | f2py_stop_call_clock(); | |||
| 91087 | #endif | |||
| 91088 | /*end of callfortranroutine*/ | |||
| 91089 | if (f2py_success) { | |||
| 91090 | /*pyobjfrom*/ | |||
| 91091 | /*end of pyobjfrom*/ | |||
| 91092 | CFUNCSMESS("Building return value.\n"); | |||
| 91093 | capi_buildvalue = Py_BuildValue("Ni",capi_z_tmp,info); | |||
| 91094 | /*closepyobjfrom*/ | |||
| 91095 | /*end of closepyobjfrom*/ | |||
| 91096 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 91097 | /*cleanupfrompyobj*/ | |||
| 91098 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 91099 | /* End of cleaning variable z */ | |||
| 91100 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 91101 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 91102 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 91103 | /* End of cleaning variable e */ | |||
| 91104 | Py_XDECREF(capi_ifail_tmp)_Py_XDECREF(((PyObject*)(capi_ifail_tmp))); | |||
| 91105 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 91106 | /* End of cleaning variable ifail */ | |||
| 91107 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 91108 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 91109 | /* End of cleaning variable iwork */ | |||
| 91110 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 91111 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 91112 | /* End of cleaning variable work */ | |||
| 91113 | /* End of cleaning variable ldz */ | |||
| 91114 | if((PyObject *)capi_isplit_tmp!=isplit_capi) { | |||
| 91115 | Py_XDECREF(capi_isplit_tmp)_Py_XDECREF(((PyObject*)(capi_isplit_tmp))); } | |||
| 91116 | } /*if (capi_isplit_tmp == NULL) ... else of isplit*/ | |||
| 91117 | /* End of cleaning variable isplit */ | |||
| 91118 | if((PyObject *)capi_iblock_tmp!=iblock_capi) { | |||
| 91119 | Py_XDECREF(capi_iblock_tmp)_Py_XDECREF(((PyObject*)(capi_iblock_tmp))); } | |||
| 91120 | } /*if (capi_iblock_tmp == NULL) ... else of iblock*/ | |||
| 91121 | /* End of cleaning variable iblock */ | |||
| 91122 | } /*CHECKSCALAR(n>0)*/ | |||
| 91123 | /* End of cleaning variable n */ | |||
| 91124 | /* End of cleaning variable m */ | |||
| 91125 | /* End of cleaning variable info */ | |||
| 91126 | if((PyObject *)capi_w_tmp!=w_capi) { | |||
| 91127 | Py_XDECREF(capi_w_tmp)_Py_XDECREF(((PyObject*)(capi_w_tmp))); } | |||
| 91128 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 91129 | /* End of cleaning variable w */ | |||
| 91130 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 91131 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 91132 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 91133 | /* End of cleaning variable d */ | |||
| 91134 | /*end of cleanupfrompyobj*/ | |||
| 91135 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 91136 | /*routdebugfailure*/ | |||
| 91137 | } else { | |||
| 91138 | /*routdebugleave*/ | |||
| 91139 | } | |||
| 91140 | CFUNCSMESS("Freeing memory.\n"); | |||
| 91141 | /*freemem*/ | |||
| 91142 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91143 | f2py_stop_clock(); | |||
| 91144 | #endif | |||
| 91145 | return capi_buildvalue; | |||
| 91146 | } | |||
| 91147 | /******************************* end of sstein *******************************/ | |||
| 91148 | ||||
| 91149 | /*********************************** dstein ***********************************/ | |||
| 91150 | static char doc_f2py_rout__flapack_dstein[] = "\ | |||
| 91151 | z,info = dstein(d,e,w,iblock,isplit)\n\nWrapper for ``dstein``.\ | |||
| 91152 | \n\nParameters\n----------\n" | |||
| 91153 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 91154 | "e : input rank-1 array('d') with bounds (n - 1)\n" | |||
| 91155 | "w : input rank-1 array('d') with bounds (m)\n" | |||
| 91156 | "iblock : input rank-1 array('i') with bounds (n)\n" | |||
| 91157 | "isplit : input rank-1 array('i') with bounds (n)\n" | |||
| 91158 | "\nReturns\n-------\n" | |||
| 91159 | "z : rank-2 array('d') with bounds (ldz,m)\n" | |||
| 91160 | "info : int"; | |||
| 91161 | /* extern void F_FUNC(dstein,DSTEIN)(F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */ | |||
| 91162 | static PyObject *f2py_rout__flapack_dstein(const PyObject *capi_self, | |||
| 91163 | PyObject *capi_args, | |||
| 91164 | PyObject *capi_keywds, | |||
| 91165 | void (*f2py_func)(F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 91166 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 91167 | volatile int f2py_success = 1; | |||
| 91168 | /*decl*/ | |||
| 91169 | ||||
| 91170 | double *d = NULL((void*)0); | |||
| 91171 | npy_intp d_Dims[1] = {-1}; | |||
| 91172 | const int d_Rank = 1; | |||
| 91173 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 91174 | int capi_d_intent = 0; | |||
| 91175 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 91176 | double *e = NULL((void*)0); | |||
| 91177 | npy_intp e_Dims[1] = {-1}; | |||
| 91178 | const int e_Rank = 1; | |||
| 91179 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 91180 | int capi_e_intent = 0; | |||
| 91181 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 91182 | double *w = NULL((void*)0); | |||
| 91183 | npy_intp w_Dims[1] = {-1}; | |||
| 91184 | const int w_Rank = 1; | |||
| 91185 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 91186 | int capi_w_intent = 0; | |||
| 91187 | PyObject *w_capi = Py_None(&_Py_NoneStruct); | |||
| 91188 | int *iblock = NULL((void*)0); | |||
| 91189 | npy_intp iblock_Dims[1] = {-1}; | |||
| 91190 | const int iblock_Rank = 1; | |||
| 91191 | PyArrayObject *capi_iblock_tmp = NULL((void*)0); | |||
| 91192 | int capi_iblock_intent = 0; | |||
| 91193 | PyObject *iblock_capi = Py_None(&_Py_NoneStruct); | |||
| 91194 | int *isplit = NULL((void*)0); | |||
| 91195 | npy_intp isplit_Dims[1] = {-1}; | |||
| 91196 | const int isplit_Rank = 1; | |||
| 91197 | PyArrayObject *capi_isplit_tmp = NULL((void*)0); | |||
| 91198 | int capi_isplit_intent = 0; | |||
| 91199 | PyObject *isplit_capi = Py_None(&_Py_NoneStruct); | |||
| 91200 | int m = 0; | |||
| 91201 | int n = 0; | |||
| 91202 | double *z = NULL((void*)0); | |||
| 91203 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 91204 | const int z_Rank = 2; | |||
| 91205 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 91206 | int capi_z_intent = 0; | |||
| 91207 | int ldz = 0; | |||
| 91208 | double *work = NULL((void*)0); | |||
| 91209 | npy_intp work_Dims[1] = {-1}; | |||
| 91210 | const int work_Rank = 1; | |||
| 91211 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 91212 | int capi_work_intent = 0; | |||
| 91213 | int *iwork = NULL((void*)0); | |||
| 91214 | npy_intp iwork_Dims[1] = {-1}; | |||
| 91215 | const int iwork_Rank = 1; | |||
| 91216 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 91217 | int capi_iwork_intent = 0; | |||
| 91218 | int *ifail = NULL((void*)0); | |||
| 91219 | npy_intp ifail_Dims[1] = {-1}; | |||
| 91220 | const int ifail_Rank = 1; | |||
| 91221 | PyArrayObject *capi_ifail_tmp = NULL((void*)0); | |||
| 91222 | int capi_ifail_intent = 0; | |||
| 91223 | int info = 0; | |||
| 91224 | static char *capi_kwlist[] = {"d","e","w","iblock","isplit",NULL((void*)0)}; | |||
| 91225 | ||||
| 91226 | /*routdebugenter*/ | |||
| 91227 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91228 | f2py_start_clock(); | |||
| 91229 | #endif | |||
| 91230 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 91231 | "OOOOO:_flapack.dstein",\ | |||
| 91232 | capi_kwlist,&d_capi,&e_capi,&w_capi,&iblock_capi,&isplit_capi)) | |||
| 91233 | return NULL((void*)0); | |||
| 91234 | /*frompyobj*/ | |||
| 91235 | /* Processing variable d */ | |||
| 91236 | ; | |||
| 91237 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 91238 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 91239 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 91240 | if (!PyErr_Occurred()) | |||
| 91241 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dstein to C/Fortran array" ); | |||
| 91242 | } else { | |||
| 91243 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 91244 | ||||
| 91245 | /* Processing variable w */ | |||
| 91246 | ; | |||
| 91247 | capi_w_intent |= F2PY_INTENT_IN1; | |||
| 91248 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,w_capi); | |||
| 91249 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 91250 | if (!PyErr_Occurred()) | |||
| 91251 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `w' of _flapack.dstein to C/Fortran array" ); | |||
| 91252 | } else { | |||
| 91253 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 91254 | ||||
| 91255 | /* Processing variable info */ | |||
| 91256 | /* Processing variable m */ | |||
| 91257 | m = shape(w,0)w_Dims[0]; | |||
| 91258 | /* Processing variable n */ | |||
| 91259 | n = shape(d,0)d_Dims[0]; | |||
| 91260 | CHECKSCALAR(n>0,"n>0","hidden n","dstein:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dstein:n=%d", "(""n>0"") failed for ""hidden n", n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 91261 | /* Processing variable iblock */ | |||
| 91262 | iblock_Dims[0]=n; | |||
| 91263 | capi_iblock_intent |= F2PY_INTENT_IN1; | |||
| 91264 | capi_iblock_tmp = array_from_pyobj(NPY_INT,iblock_Dims,iblock_Rank,capi_iblock_intent,iblock_capi); | |||
| 91265 | if (capi_iblock_tmp == NULL((void*)0)) { | |||
| 91266 | if (!PyErr_Occurred()) | |||
| 91267 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `iblock' of _flapack.dstein to C/Fortran array" ); | |||
| 91268 | } else { | |||
| 91269 | iblock = (int *)(PyArray_DATA(capi_iblock_tmp)((void *)((PyArrayObject_fields *)(capi_iblock_tmp))->data )); | |||
| 91270 | ||||
| 91271 | /* Processing variable isplit */ | |||
| 91272 | isplit_Dims[0]=n; | |||
| 91273 | capi_isplit_intent |= F2PY_INTENT_IN1; | |||
| 91274 | capi_isplit_tmp = array_from_pyobj(NPY_INT,isplit_Dims,isplit_Rank,capi_isplit_intent,isplit_capi); | |||
| 91275 | if (capi_isplit_tmp == NULL((void*)0)) { | |||
| 91276 | if (!PyErr_Occurred()) | |||
| 91277 | PyErr_SetString(_flapack_error,"failed in converting 5th argument `isplit' of _flapack.dstein to C/Fortran array" ); | |||
| 91278 | } else { | |||
| 91279 | isplit = (int *)(PyArray_DATA(capi_isplit_tmp)((void *)((PyArrayObject_fields *)(capi_isplit_tmp))->data )); | |||
| 91280 | ||||
| 91281 | /* Processing variable ldz */ | |||
| 91282 | ldz = n; | |||
| 91283 | /* Processing variable work */ | |||
| 91284 | work_Dims[0]=5 * n; | |||
| 91285 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 91286 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 91287 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 91288 | if (!PyErr_Occurred()) | |||
| 91289 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dstein to C/Fortran array" ); | |||
| 91290 | } else { | |||
| 91291 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 91292 | ||||
| 91293 | /* Processing variable iwork */ | |||
| 91294 | iwork_Dims[0]=n; | |||
| 91295 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 91296 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 91297 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 91298 | if (!PyErr_Occurred()) | |||
| 91299 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dstein to C/Fortran array" ); | |||
| 91300 | } else { | |||
| 91301 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 91302 | ||||
| 91303 | /* Processing variable ifail */ | |||
| 91304 | ifail_Dims[0]=m; | |||
| 91305 | capi_ifail_intent |= F2PY_INTENT_HIDE8; | |||
| 91306 | capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct)); | |||
| 91307 | if (capi_ifail_tmp == NULL((void*)0)) { | |||
| 91308 | if (!PyErr_Occurred()) | |||
| 91309 | PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.dstein to C/Fortran array" ); | |||
| 91310 | } else { | |||
| 91311 | ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data)); | |||
| 91312 | ||||
| 91313 | /* Processing variable e */ | |||
| 91314 | e_Dims[0]=n - 1; | |||
| 91315 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 91316 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 91317 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 91318 | if (!PyErr_Occurred()) | |||
| 91319 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dstein to C/Fortran array" ); | |||
| 91320 | } else { | |||
| 91321 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 91322 | ||||
| 91323 | /* Processing variable z */ | |||
| 91324 | z_Dims[0]=ldz,z_Dims[1]=m; | |||
| 91325 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 91326 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 91327 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 91328 | if (!PyErr_Occurred()) | |||
| 91329 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dstein to C/Fortran array" ); | |||
| 91330 | } else { | |||
| 91331 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 91332 | ||||
| 91333 | /*end of frompyobj*/ | |||
| 91334 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91335 | f2py_start_call_clock(); | |||
| 91336 | #endif | |||
| 91337 | /*callfortranroutine*/ | |||
| 91338 | (*f2py_func)(&n,d,e,&m,w,iblock,isplit,z,&ldz,work,iwork,ifail,&info) ; | |||
| 91339 | /*(*f2py_func)(d,e,w,iblock,isplit,&m,&n,z,&ldz,work,iwork,ifail,&info);*/ | |||
| 91340 | if (PyErr_Occurred()) | |||
| 91341 | f2py_success = 0; | |||
| 91342 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91343 | f2py_stop_call_clock(); | |||
| 91344 | #endif | |||
| 91345 | /*end of callfortranroutine*/ | |||
| 91346 | if (f2py_success) { | |||
| 91347 | /*pyobjfrom*/ | |||
| 91348 | /*end of pyobjfrom*/ | |||
| 91349 | CFUNCSMESS("Building return value.\n"); | |||
| 91350 | capi_buildvalue = Py_BuildValue("Ni",capi_z_tmp,info); | |||
| 91351 | /*closepyobjfrom*/ | |||
| 91352 | /*end of closepyobjfrom*/ | |||
| 91353 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 91354 | /*cleanupfrompyobj*/ | |||
| 91355 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 91356 | /* End of cleaning variable z */ | |||
| 91357 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 91358 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 91359 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 91360 | /* End of cleaning variable e */ | |||
| 91361 | Py_XDECREF(capi_ifail_tmp)_Py_XDECREF(((PyObject*)(capi_ifail_tmp))); | |||
| 91362 | } /*if (capi_ifail_tmp == NULL) ... else of ifail*/ | |||
| 91363 | /* End of cleaning variable ifail */ | |||
| 91364 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 91365 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 91366 | /* End of cleaning variable iwork */ | |||
| 91367 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 91368 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 91369 | /* End of cleaning variable work */ | |||
| 91370 | /* End of cleaning variable ldz */ | |||
| 91371 | if((PyObject *)capi_isplit_tmp!=isplit_capi) { | |||
| 91372 | Py_XDECREF(capi_isplit_tmp)_Py_XDECREF(((PyObject*)(capi_isplit_tmp))); } | |||
| 91373 | } /*if (capi_isplit_tmp == NULL) ... else of isplit*/ | |||
| 91374 | /* End of cleaning variable isplit */ | |||
| 91375 | if((PyObject *)capi_iblock_tmp!=iblock_capi) { | |||
| 91376 | Py_XDECREF(capi_iblock_tmp)_Py_XDECREF(((PyObject*)(capi_iblock_tmp))); } | |||
| 91377 | } /*if (capi_iblock_tmp == NULL) ... else of iblock*/ | |||
| 91378 | /* End of cleaning variable iblock */ | |||
| 91379 | } /*CHECKSCALAR(n>0)*/ | |||
| 91380 | /* End of cleaning variable n */ | |||
| 91381 | /* End of cleaning variable m */ | |||
| 91382 | /* End of cleaning variable info */ | |||
| 91383 | if((PyObject *)capi_w_tmp!=w_capi) { | |||
| 91384 | Py_XDECREF(capi_w_tmp)_Py_XDECREF(((PyObject*)(capi_w_tmp))); } | |||
| 91385 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 91386 | /* End of cleaning variable w */ | |||
| 91387 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 91388 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 91389 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 91390 | /* End of cleaning variable d */ | |||
| 91391 | /*end of cleanupfrompyobj*/ | |||
| 91392 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 91393 | /*routdebugfailure*/ | |||
| 91394 | } else { | |||
| 91395 | /*routdebugleave*/ | |||
| 91396 | } | |||
| 91397 | CFUNCSMESS("Freeing memory.\n"); | |||
| 91398 | /*freemem*/ | |||
| 91399 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91400 | f2py_stop_clock(); | |||
| 91401 | #endif | |||
| 91402 | return capi_buildvalue; | |||
| 91403 | } | |||
| 91404 | /******************************* end of dstein *******************************/ | |||
| 91405 | ||||
| 91406 | /*********************************** sstemr ***********************************/ | |||
| 91407 | static char doc_f2py_rout__flapack_sstemr[] = "\ | |||
| 91408 | m,w,z,info = sstemr(d,e,range,vl,vu,il,iu,[compute_v,lwork,liwork,overwrite_d])\n\nWrapper for ``sstemr``.\ | |||
| 91409 | \n\nParameters\n----------\n" | |||
| 91410 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 91411 | "e : input rank-1 array('f') with bounds (n)\n" | |||
| 91412 | "range : input int\n" | |||
| 91413 | "vl : input float\n" | |||
| 91414 | "vu : input float\n" | |||
| 91415 | "il : input int\n" | |||
| 91416 | "iu : input int\n" | |||
| 91417 | "\nOther Parameters\n----------------\n" | |||
| 91418 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 91419 | "compute_v : input int, optional\n Default: 1\n" | |||
| 91420 | "lwork : input int, optional\n Default: max((compute_v?18*n:12*n),1)\n" | |||
| 91421 | "liwork : input int, optional\n Default: (compute_v?10*n:8*n)\n" | |||
| 91422 | "\nReturns\n-------\n" | |||
| 91423 | "m : int\n" | |||
| 91424 | "w : rank-1 array('f') with bounds (n)\n" | |||
| 91425 | "z : rank-2 array('f') with bounds (n,n)\n" | |||
| 91426 | "info : int"; | |||
| 91427 | /* extern void F_FUNC(sstemr,SSTEMR)(char*,char*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT*,F_INT*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 91428 | static PyObject *f2py_rout__flapack_sstemr(const PyObject *capi_self, | |||
| 91429 | PyObject *capi_args, | |||
| 91430 | PyObject *capi_keywds, | |||
| 91431 | void (*f2py_func)(char*,char*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 91432 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 91433 | volatile int f2py_success = 1; | |||
| 91434 | /*decl*/ | |||
| 91435 | ||||
| 91436 | float *d = NULL((void*)0); | |||
| 91437 | npy_intp d_Dims[1] = {-1}; | |||
| 91438 | const int d_Rank = 1; | |||
| 91439 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 91440 | int capi_d_intent = 0; | |||
| 91441 | int capi_overwrite_d = 0; | |||
| 91442 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 91443 | float *e = NULL((void*)0); | |||
| 91444 | npy_intp e_Dims[1] = {-1}; | |||
| 91445 | const int e_Rank = 1; | |||
| 91446 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 91447 | int capi_e_intent = 0; | |||
| 91448 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 91449 | int range = 0; | |||
| 91450 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 91451 | float vl = 0; | |||
| 91452 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 91453 | float vu = 0; | |||
| 91454 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 91455 | int il = 0; | |||
| 91456 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 91457 | int iu = 0; | |||
| 91458 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 91459 | int compute_v = 0; | |||
| 91460 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 91461 | int n = 0; | |||
| 91462 | int m = 0; | |||
| 91463 | float *w = NULL((void*)0); | |||
| 91464 | npy_intp w_Dims[1] = {-1}; | |||
| 91465 | const int w_Rank = 1; | |||
| 91466 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 91467 | int capi_w_intent = 0; | |||
| 91468 | float *z = NULL((void*)0); | |||
| 91469 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 91470 | const int z_Rank = 2; | |||
| 91471 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 91472 | int capi_z_intent = 0; | |||
| 91473 | int ldz = 0; | |||
| 91474 | int nzc = 0; | |||
| 91475 | int *isuppz = NULL((void*)0); | |||
| 91476 | npy_intp isuppz_Dims[1] = {-1}; | |||
| 91477 | const int isuppz_Rank = 1; | |||
| 91478 | PyArrayObject *capi_isuppz_tmp = NULL((void*)0); | |||
| 91479 | int capi_isuppz_intent = 0; | |||
| 91480 | int tryrac = 0; | |||
| 91481 | float *work = NULL((void*)0); | |||
| 91482 | npy_intp work_Dims[1] = {-1}; | |||
| 91483 | const int work_Rank = 1; | |||
| 91484 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 91485 | int capi_work_intent = 0; | |||
| 91486 | int lwork = 0; | |||
| 91487 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 91488 | int *iwork = NULL((void*)0); | |||
| 91489 | npy_intp iwork_Dims[1] = {-1}; | |||
| 91490 | const int iwork_Rank = 1; | |||
| 91491 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 91492 | int capi_iwork_intent = 0; | |||
| 91493 | int liwork = 0; | |||
| 91494 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 91495 | int info = 0; | |||
| 91496 | static char *capi_kwlist[] = {"d","e","range","vl","vu","il","iu","compute_v","lwork","liwork","overwrite_d",NULL((void*)0)}; | |||
| 91497 | ||||
| 91498 | /*routdebugenter*/ | |||
| 91499 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91500 | f2py_start_clock(); | |||
| 91501 | #endif | |||
| 91502 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 91503 | "OOOOOOO|OOOi:_flapack.sstemr",\ | |||
| 91504 | capi_kwlist,&d_capi,&e_capi,&range_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&compute_v_capi,&lwork_capi,&liwork_capi,&capi_overwrite_d)) | |||
| 91505 | return NULL((void*)0); | |||
| 91506 | /*frompyobj*/ | |||
| 91507 | /* Processing variable d */ | |||
| 91508 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 91509 | ; | |||
| 91510 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 91511 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 91512 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 91513 | if (!PyErr_Occurred()) | |||
| 91514 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sstemr to C/Fortran array" ); | |||
| 91515 | } else { | |||
| 91516 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 91517 | ||||
| 91518 | /* Processing variable range */ | |||
| 91519 | f2py_success = int_from_pyobj(&range,range_capi,"_flapack.sstemr() 3rd argument (range) can't be converted to int"); | |||
| 91520 | if (f2py_success) { | |||
| 91521 | /* Processing variable vl */ | |||
| 91522 | f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.sstemr() 4th argument (vl) can't be converted to float"); | |||
| 91523 | if (f2py_success) { | |||
| 91524 | /* Processing variable vu */ | |||
| 91525 | f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.sstemr() 5th argument (vu) can't be converted to float"); | |||
| 91526 | if (f2py_success) { | |||
| 91527 | /* Processing variable il */ | |||
| 91528 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.sstemr() 6th argument (il) can't be converted to int"); | |||
| 91529 | if (f2py_success) { | |||
| 91530 | /* Processing variable iu */ | |||
| 91531 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.sstemr() 7th argument (iu) can't be converted to int"); | |||
| 91532 | if (f2py_success) { | |||
| 91533 | /* Processing variable compute_v */ | |||
| 91534 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 91535 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.sstemr() 1st keyword (compute_v) can't be converted to int"); | |||
| 91536 | if (f2py_success) { | |||
| 91537 | /* Processing variable m */ | |||
| 91538 | /* Processing variable tryrac */ | |||
| 91539 | tryrac = 1; | |||
| 91540 | /* Processing variable info */ | |||
| 91541 | /* Processing variable n */ | |||
| 91542 | n = shape(d,0)d_Dims[0]; | |||
| 91543 | CHECKSCALAR(n>0,"n>0","hidden n","sstemr:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sstemr:n=%d", "(""n>0"") failed for ""hidden n", n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 91544 | /* Processing variable w */ | |||
| 91545 | w_Dims[0]=n; | |||
| 91546 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 91547 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 91548 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 91549 | if (!PyErr_Occurred()) | |||
| 91550 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.sstemr to C/Fortran array" ); | |||
| 91551 | } else { | |||
| 91552 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 91553 | ||||
| 91554 | /* Processing variable z */ | |||
| 91555 | z_Dims[0]=n,z_Dims[1]=n; | |||
| 91556 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 91557 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 91558 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 91559 | if (!PyErr_Occurred()) | |||
| 91560 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.sstemr to C/Fortran array" ); | |||
| 91561 | } else { | |||
| 91562 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 91563 | ||||
| 91564 | /* Processing variable ldz */ | |||
| 91565 | ldz = (compute_v?n:1); | |||
| 91566 | /* Processing variable nzc */ | |||
| 91567 | nzc = n; | |||
| 91568 | /* Processing variable isuppz */ | |||
| 91569 | isuppz_Dims[0]=(compute_v?2*n:1); | |||
| 91570 | capi_isuppz_intent |= F2PY_INTENT_HIDE8; | |||
| 91571 | capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct)); | |||
| 91572 | if (capi_isuppz_tmp == NULL((void*)0)) { | |||
| 91573 | if (!PyErr_Occurred()) | |||
| 91574 | PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.sstemr to C/Fortran array" ); | |||
| 91575 | } else { | |||
| 91576 | isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data )); | |||
| 91577 | ||||
| 91578 | /* Processing variable lwork */ | |||
| 91579 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_v?18*n:12*n),1)(((compute_v?18*n:12*n) > 1) ? ((compute_v?18*n:12*n)) : ( 1)); else | |||
| 91580 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sstemr() 2nd keyword (lwork) can't be converted to int"); | |||
| 91581 | if (f2py_success) { | |||
| 91582 | CHECKSCALAR(lwork>=(compute_v?18*n:12*n),"lwork>=(compute_v?18*n:12*n)","2nd keyword lwork","sstemr:lwork=%d",lwork)if (!(lwork>=(compute_v?18*n:12*n))) { char errstring[256] ; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sstemr:lwork=%d", "(""lwork>=(compute_v?18*n:12*n)" ") failed for ""2nd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 91583 | /* Processing variable work */ | |||
| 91584 | work_Dims[0]=lwork; | |||
| 91585 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 91586 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 91587 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 91588 | if (!PyErr_Occurred()) | |||
| 91589 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sstemr to C/Fortran array" ); | |||
| 91590 | } else { | |||
| 91591 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 91592 | ||||
| 91593 | /* Processing variable liwork */ | |||
| 91594 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?10*n:8*n); else | |||
| 91595 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.sstemr() 3rd keyword (liwork) can't be converted to int"); | |||
| 91596 | if (f2py_success) { | |||
| 91597 | CHECKSCALAR(liwork>=(compute_v?10*n:8*n),"liwork>=(compute_v?10*n:8*n)","3rd keyword liwork","sstemr:liwork=%d",liwork)if (!(liwork>=(compute_v?10*n:8*n))) { char errstring[256] ; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sstemr:liwork=%d", "(""liwork>=(compute_v?10*n:8*n)" ") failed for ""3rd keyword liwork", liwork); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 91598 | /* Processing variable iwork */ | |||
| 91599 | iwork_Dims[0]=liwork; | |||
| 91600 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 91601 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 91602 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 91603 | if (!PyErr_Occurred()) | |||
| 91604 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sstemr to C/Fortran array" ); | |||
| 91605 | } else { | |||
| 91606 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 91607 | ||||
| 91608 | /* Processing variable e */ | |||
| 91609 | e_Dims[0]=n; | |||
| 91610 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 91611 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 91612 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 91613 | if (!PyErr_Occurred()) | |||
| 91614 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sstemr to C/Fortran array" ); | |||
| 91615 | } else { | |||
| 91616 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 91617 | ||||
| 91618 | /*end of frompyobj*/ | |||
| 91619 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91620 | f2py_start_call_clock(); | |||
| 91621 | #endif | |||
| 91622 | /*callfortranroutine*/ | |||
| 91623 | (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),&n,d,e,&vl,&vu,&il,&iu,&m,w,z,&ldz,&nzc,isuppz,&tryrac,work,&lwork,iwork,&liwork,&info) ; | |||
| 91624 | /*(*f2py_func)(d,e,&range,&vl,&vu,&il,&iu,&compute_v,&n,&m,w,z,&ldz,&nzc,isuppz,&tryrac,work,&lwork,iwork,&liwork,&info);*/ | |||
| 91625 | if (PyErr_Occurred()) | |||
| 91626 | f2py_success = 0; | |||
| 91627 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91628 | f2py_stop_call_clock(); | |||
| 91629 | #endif | |||
| 91630 | /*end of callfortranroutine*/ | |||
| 91631 | if (f2py_success) { | |||
| 91632 | /*pyobjfrom*/ | |||
| 91633 | /*end of pyobjfrom*/ | |||
| 91634 | CFUNCSMESS("Building return value.\n"); | |||
| 91635 | capi_buildvalue = Py_BuildValue("iNNi",m,capi_w_tmp,capi_z_tmp,info); | |||
| 91636 | /*closepyobjfrom*/ | |||
| 91637 | /*end of closepyobjfrom*/ | |||
| 91638 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 91639 | /*cleanupfrompyobj*/ | |||
| 91640 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 91641 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 91642 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 91643 | /* End of cleaning variable e */ | |||
| 91644 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 91645 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 91646 | /* End of cleaning variable iwork */ | |||
| 91647 | } /*CHECKSCALAR(liwork>=(compute_v?10*n:8*n))*/ | |||
| 91648 | } /*if (f2py_success) of liwork*/ | |||
| 91649 | /* End of cleaning variable liwork */ | |||
| 91650 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 91651 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 91652 | /* End of cleaning variable work */ | |||
| 91653 | } /*CHECKSCALAR(lwork>=(compute_v?18*n:12*n))*/ | |||
| 91654 | } /*if (f2py_success) of lwork*/ | |||
| 91655 | /* End of cleaning variable lwork */ | |||
| 91656 | Py_XDECREF(capi_isuppz_tmp)_Py_XDECREF(((PyObject*)(capi_isuppz_tmp))); | |||
| 91657 | } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/ | |||
| 91658 | /* End of cleaning variable isuppz */ | |||
| 91659 | /* End of cleaning variable nzc */ | |||
| 91660 | /* End of cleaning variable ldz */ | |||
| 91661 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 91662 | /* End of cleaning variable z */ | |||
| 91663 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 91664 | /* End of cleaning variable w */ | |||
| 91665 | } /*CHECKSCALAR(n>0)*/ | |||
| 91666 | /* End of cleaning variable n */ | |||
| 91667 | /* End of cleaning variable info */ | |||
| 91668 | /* End of cleaning variable tryrac */ | |||
| 91669 | /* End of cleaning variable m */ | |||
| 91670 | } /*if (f2py_success) of compute_v*/ | |||
| 91671 | /* End of cleaning variable compute_v */ | |||
| 91672 | } /*if (f2py_success) of iu*/ | |||
| 91673 | /* End of cleaning variable iu */ | |||
| 91674 | } /*if (f2py_success) of il*/ | |||
| 91675 | /* End of cleaning variable il */ | |||
| 91676 | } /*if (f2py_success) of vu*/ | |||
| 91677 | /* End of cleaning variable vu */ | |||
| 91678 | } /*if (f2py_success) of vl*/ | |||
| 91679 | /* End of cleaning variable vl */ | |||
| 91680 | } /*if (f2py_success) of range*/ | |||
| 91681 | /* End of cleaning variable range */ | |||
| 91682 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 91683 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 91684 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 91685 | /* End of cleaning variable d */ | |||
| 91686 | /*end of cleanupfrompyobj*/ | |||
| 91687 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 91688 | /*routdebugfailure*/ | |||
| 91689 | } else { | |||
| 91690 | /*routdebugleave*/ | |||
| 91691 | } | |||
| 91692 | CFUNCSMESS("Freeing memory.\n"); | |||
| 91693 | /*freemem*/ | |||
| 91694 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91695 | f2py_stop_clock(); | |||
| 91696 | #endif | |||
| 91697 | return capi_buildvalue; | |||
| 91698 | } | |||
| 91699 | /******************************* end of sstemr *******************************/ | |||
| 91700 | ||||
| 91701 | /*********************************** dstemr ***********************************/ | |||
| 91702 | static char doc_f2py_rout__flapack_dstemr[] = "\ | |||
| 91703 | m,w,z,info = dstemr(d,e,range,vl,vu,il,iu,[compute_v,lwork,liwork,overwrite_d])\n\nWrapper for ``dstemr``.\ | |||
| 91704 | \n\nParameters\n----------\n" | |||
| 91705 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 91706 | "e : input rank-1 array('d') with bounds (n)\n" | |||
| 91707 | "range : input int\n" | |||
| 91708 | "vl : input float\n" | |||
| 91709 | "vu : input float\n" | |||
| 91710 | "il : input int\n" | |||
| 91711 | "iu : input int\n" | |||
| 91712 | "\nOther Parameters\n----------------\n" | |||
| 91713 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 91714 | "compute_v : input int, optional\n Default: 1\n" | |||
| 91715 | "lwork : input int, optional\n Default: max((compute_v?18*n:12*n),1)\n" | |||
| 91716 | "liwork : input int, optional\n Default: (compute_v?10*n:8*n)\n" | |||
| 91717 | "\nReturns\n-------\n" | |||
| 91718 | "m : int\n" | |||
| 91719 | "w : rank-1 array('d') with bounds (n)\n" | |||
| 91720 | "z : rank-2 array('d') with bounds (n,n)\n" | |||
| 91721 | "info : int"; | |||
| 91722 | /* extern void F_FUNC(dstemr,DSTEMR)(char*,char*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT*,F_INT*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 91723 | static PyObject *f2py_rout__flapack_dstemr(const PyObject *capi_self, | |||
| 91724 | PyObject *capi_args, | |||
| 91725 | PyObject *capi_keywds, | |||
| 91726 | void (*f2py_func)(char*,char*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 91727 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 91728 | volatile int f2py_success = 1; | |||
| 91729 | /*decl*/ | |||
| 91730 | ||||
| 91731 | double *d = NULL((void*)0); | |||
| 91732 | npy_intp d_Dims[1] = {-1}; | |||
| 91733 | const int d_Rank = 1; | |||
| 91734 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 91735 | int capi_d_intent = 0; | |||
| 91736 | int capi_overwrite_d = 0; | |||
| 91737 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 91738 | double *e = NULL((void*)0); | |||
| 91739 | npy_intp e_Dims[1] = {-1}; | |||
| 91740 | const int e_Rank = 1; | |||
| 91741 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 91742 | int capi_e_intent = 0; | |||
| 91743 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 91744 | int range = 0; | |||
| 91745 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 91746 | double vl = 0; | |||
| 91747 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 91748 | double vu = 0; | |||
| 91749 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 91750 | int il = 0; | |||
| 91751 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 91752 | int iu = 0; | |||
| 91753 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 91754 | int compute_v = 0; | |||
| 91755 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 91756 | int n = 0; | |||
| 91757 | int m = 0; | |||
| 91758 | double *w = NULL((void*)0); | |||
| 91759 | npy_intp w_Dims[1] = {-1}; | |||
| 91760 | const int w_Rank = 1; | |||
| 91761 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 91762 | int capi_w_intent = 0; | |||
| 91763 | double *z = NULL((void*)0); | |||
| 91764 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 91765 | const int z_Rank = 2; | |||
| 91766 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 91767 | int capi_z_intent = 0; | |||
| 91768 | int ldz = 0; | |||
| 91769 | int nzc = 0; | |||
| 91770 | int *isuppz = NULL((void*)0); | |||
| 91771 | npy_intp isuppz_Dims[1] = {-1}; | |||
| 91772 | const int isuppz_Rank = 1; | |||
| 91773 | PyArrayObject *capi_isuppz_tmp = NULL((void*)0); | |||
| 91774 | int capi_isuppz_intent = 0; | |||
| 91775 | int tryrac = 0; | |||
| 91776 | double *work = NULL((void*)0); | |||
| 91777 | npy_intp work_Dims[1] = {-1}; | |||
| 91778 | const int work_Rank = 1; | |||
| 91779 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 91780 | int capi_work_intent = 0; | |||
| 91781 | int lwork = 0; | |||
| 91782 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 91783 | int *iwork = NULL((void*)0); | |||
| 91784 | npy_intp iwork_Dims[1] = {-1}; | |||
| 91785 | const int iwork_Rank = 1; | |||
| 91786 | PyArrayObject *capi_iwork_tmp = NULL((void*)0); | |||
| 91787 | int capi_iwork_intent = 0; | |||
| 91788 | int liwork = 0; | |||
| 91789 | PyObject *liwork_capi = Py_None(&_Py_NoneStruct); | |||
| 91790 | int info = 0; | |||
| 91791 | static char *capi_kwlist[] = {"d","e","range","vl","vu","il","iu","compute_v","lwork","liwork","overwrite_d",NULL((void*)0)}; | |||
| 91792 | ||||
| 91793 | /*routdebugenter*/ | |||
| 91794 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91795 | f2py_start_clock(); | |||
| 91796 | #endif | |||
| 91797 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 91798 | "OOOOOOO|OOOi:_flapack.dstemr",\ | |||
| 91799 | capi_kwlist,&d_capi,&e_capi,&range_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&compute_v_capi,&lwork_capi,&liwork_capi,&capi_overwrite_d)) | |||
| 91800 | return NULL((void*)0); | |||
| 91801 | /*frompyobj*/ | |||
| 91802 | /* Processing variable d */ | |||
| 91803 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 91804 | ; | |||
| 91805 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 91806 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 91807 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 91808 | if (!PyErr_Occurred()) | |||
| 91809 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dstemr to C/Fortran array" ); | |||
| 91810 | } else { | |||
| 91811 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 91812 | ||||
| 91813 | /* Processing variable range */ | |||
| 91814 | f2py_success = int_from_pyobj(&range,range_capi,"_flapack.dstemr() 3rd argument (range) can't be converted to int"); | |||
| 91815 | if (f2py_success) { | |||
| 91816 | /* Processing variable vl */ | |||
| 91817 | f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dstemr() 4th argument (vl) can't be converted to double"); | |||
| 91818 | if (f2py_success) { | |||
| 91819 | /* Processing variable vu */ | |||
| 91820 | f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dstemr() 5th argument (vu) can't be converted to double"); | |||
| 91821 | if (f2py_success) { | |||
| 91822 | /* Processing variable il */ | |||
| 91823 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dstemr() 6th argument (il) can't be converted to int"); | |||
| 91824 | if (f2py_success) { | |||
| 91825 | /* Processing variable iu */ | |||
| 91826 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dstemr() 7th argument (iu) can't be converted to int"); | |||
| 91827 | if (f2py_success) { | |||
| 91828 | /* Processing variable compute_v */ | |||
| 91829 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 91830 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dstemr() 1st keyword (compute_v) can't be converted to int"); | |||
| 91831 | if (f2py_success) { | |||
| 91832 | /* Processing variable m */ | |||
| 91833 | /* Processing variable tryrac */ | |||
| 91834 | tryrac = 1; | |||
| 91835 | /* Processing variable info */ | |||
| 91836 | /* Processing variable n */ | |||
| 91837 | n = shape(d,0)d_Dims[0]; | |||
| 91838 | CHECKSCALAR(n>0,"n>0","hidden n","dstemr:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dstemr:n=%d", "(""n>0"") failed for ""hidden n", n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 91839 | /* Processing variable w */ | |||
| 91840 | w_Dims[0]=n; | |||
| 91841 | capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 91842 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 91843 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 91844 | if (!PyErr_Occurred()) | |||
| 91845 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dstemr to C/Fortran array" ); | |||
| 91846 | } else { | |||
| 91847 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 91848 | ||||
| 91849 | /* Processing variable z */ | |||
| 91850 | z_Dims[0]=n,z_Dims[1]=n; | |||
| 91851 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 91852 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 91853 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 91854 | if (!PyErr_Occurred()) | |||
| 91855 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dstemr to C/Fortran array" ); | |||
| 91856 | } else { | |||
| 91857 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 91858 | ||||
| 91859 | /* Processing variable ldz */ | |||
| 91860 | ldz = (compute_v?n:1); | |||
| 91861 | /* Processing variable nzc */ | |||
| 91862 | nzc = n; | |||
| 91863 | /* Processing variable isuppz */ | |||
| 91864 | isuppz_Dims[0]=(compute_v?2*n:1); | |||
| 91865 | capi_isuppz_intent |= F2PY_INTENT_HIDE8; | |||
| 91866 | capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct)); | |||
| 91867 | if (capi_isuppz_tmp == NULL((void*)0)) { | |||
| 91868 | if (!PyErr_Occurred()) | |||
| 91869 | PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.dstemr to C/Fortran array" ); | |||
| 91870 | } else { | |||
| 91871 | isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data )); | |||
| 91872 | ||||
| 91873 | /* Processing variable lwork */ | |||
| 91874 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_v?18*n:12*n),1)(((compute_v?18*n:12*n) > 1) ? ((compute_v?18*n:12*n)) : ( 1)); else | |||
| 91875 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dstemr() 2nd keyword (lwork) can't be converted to int"); | |||
| 91876 | if (f2py_success) { | |||
| 91877 | CHECKSCALAR(lwork>=(compute_v?18*n:12*n),"lwork>=(compute_v?18*n:12*n)","2nd keyword lwork","dstemr:lwork=%d",lwork)if (!(lwork>=(compute_v?18*n:12*n))) { char errstring[256] ; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dstemr:lwork=%d", "(""lwork>=(compute_v?18*n:12*n)" ") failed for ""2nd keyword lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 91878 | /* Processing variable work */ | |||
| 91879 | work_Dims[0]=lwork; | |||
| 91880 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 91881 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 91882 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 91883 | if (!PyErr_Occurred()) | |||
| 91884 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dstemr to C/Fortran array" ); | |||
| 91885 | } else { | |||
| 91886 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 91887 | ||||
| 91888 | /* Processing variable liwork */ | |||
| 91889 | if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?10*n:8*n); else | |||
| 91890 | f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.dstemr() 3rd keyword (liwork) can't be converted to int"); | |||
| 91891 | if (f2py_success) { | |||
| 91892 | CHECKSCALAR(liwork>=(compute_v?10*n:8*n),"liwork>=(compute_v?10*n:8*n)","3rd keyword liwork","dstemr:liwork=%d",liwork)if (!(liwork>=(compute_v?10*n:8*n))) { char errstring[256] ; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dstemr:liwork=%d", "(""liwork>=(compute_v?10*n:8*n)" ") failed for ""3rd keyword liwork", liwork); PyErr_SetString (_flapack_error,errstring); } else { | |||
| 91893 | /* Processing variable iwork */ | |||
| 91894 | iwork_Dims[0]=liwork; | |||
| 91895 | capi_iwork_intent |= F2PY_INTENT_HIDE8; | |||
| 91896 | capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct)); | |||
| 91897 | if (capi_iwork_tmp == NULL((void*)0)) { | |||
| 91898 | if (!PyErr_Occurred()) | |||
| 91899 | PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dstemr to C/Fortran array" ); | |||
| 91900 | } else { | |||
| 91901 | iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data)); | |||
| 91902 | ||||
| 91903 | /* Processing variable e */ | |||
| 91904 | e_Dims[0]=n; | |||
| 91905 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 91906 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 91907 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 91908 | if (!PyErr_Occurred()) | |||
| 91909 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dstemr to C/Fortran array" ); | |||
| 91910 | } else { | |||
| 91911 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 91912 | ||||
| 91913 | /*end of frompyobj*/ | |||
| 91914 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91915 | f2py_start_call_clock(); | |||
| 91916 | #endif | |||
| 91917 | /*callfortranroutine*/ | |||
| 91918 | (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),&n,d,e,&vl,&vu,&il,&iu,&m,w,z,&ldz,&nzc,isuppz,&tryrac,work,&lwork,iwork,&liwork,&info) ; | |||
| 91919 | /*(*f2py_func)(d,e,&range,&vl,&vu,&il,&iu,&compute_v,&n,&m,w,z,&ldz,&nzc,isuppz,&tryrac,work,&lwork,iwork,&liwork,&info);*/ | |||
| 91920 | if (PyErr_Occurred()) | |||
| 91921 | f2py_success = 0; | |||
| 91922 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91923 | f2py_stop_call_clock(); | |||
| 91924 | #endif | |||
| 91925 | /*end of callfortranroutine*/ | |||
| 91926 | if (f2py_success) { | |||
| 91927 | /*pyobjfrom*/ | |||
| 91928 | /*end of pyobjfrom*/ | |||
| 91929 | CFUNCSMESS("Building return value.\n"); | |||
| 91930 | capi_buildvalue = Py_BuildValue("iNNi",m,capi_w_tmp,capi_z_tmp,info); | |||
| 91931 | /*closepyobjfrom*/ | |||
| 91932 | /*end of closepyobjfrom*/ | |||
| 91933 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 91934 | /*cleanupfrompyobj*/ | |||
| 91935 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 91936 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 91937 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 91938 | /* End of cleaning variable e */ | |||
| 91939 | Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp))); | |||
| 91940 | } /*if (capi_iwork_tmp == NULL) ... else of iwork*/ | |||
| 91941 | /* End of cleaning variable iwork */ | |||
| 91942 | } /*CHECKSCALAR(liwork>=(compute_v?10*n:8*n))*/ | |||
| 91943 | } /*if (f2py_success) of liwork*/ | |||
| 91944 | /* End of cleaning variable liwork */ | |||
| 91945 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 91946 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 91947 | /* End of cleaning variable work */ | |||
| 91948 | } /*CHECKSCALAR(lwork>=(compute_v?18*n:12*n))*/ | |||
| 91949 | } /*if (f2py_success) of lwork*/ | |||
| 91950 | /* End of cleaning variable lwork */ | |||
| 91951 | Py_XDECREF(capi_isuppz_tmp)_Py_XDECREF(((PyObject*)(capi_isuppz_tmp))); | |||
| 91952 | } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/ | |||
| 91953 | /* End of cleaning variable isuppz */ | |||
| 91954 | /* End of cleaning variable nzc */ | |||
| 91955 | /* End of cleaning variable ldz */ | |||
| 91956 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 91957 | /* End of cleaning variable z */ | |||
| 91958 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 91959 | /* End of cleaning variable w */ | |||
| 91960 | } /*CHECKSCALAR(n>0)*/ | |||
| 91961 | /* End of cleaning variable n */ | |||
| 91962 | /* End of cleaning variable info */ | |||
| 91963 | /* End of cleaning variable tryrac */ | |||
| 91964 | /* End of cleaning variable m */ | |||
| 91965 | } /*if (f2py_success) of compute_v*/ | |||
| 91966 | /* End of cleaning variable compute_v */ | |||
| 91967 | } /*if (f2py_success) of iu*/ | |||
| 91968 | /* End of cleaning variable iu */ | |||
| 91969 | } /*if (f2py_success) of il*/ | |||
| 91970 | /* End of cleaning variable il */ | |||
| 91971 | } /*if (f2py_success) of vu*/ | |||
| 91972 | /* End of cleaning variable vu */ | |||
| 91973 | } /*if (f2py_success) of vl*/ | |||
| 91974 | /* End of cleaning variable vl */ | |||
| 91975 | } /*if (f2py_success) of range*/ | |||
| 91976 | /* End of cleaning variable range */ | |||
| 91977 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 91978 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 91979 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 91980 | /* End of cleaning variable d */ | |||
| 91981 | /*end of cleanupfrompyobj*/ | |||
| 91982 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 91983 | /*routdebugfailure*/ | |||
| 91984 | } else { | |||
| 91985 | /*routdebugleave*/ | |||
| 91986 | } | |||
| 91987 | CFUNCSMESS("Freeing memory.\n"); | |||
| 91988 | /*freemem*/ | |||
| 91989 | #ifdef F2PY_REPORT_ATEXIT | |||
| 91990 | f2py_stop_clock(); | |||
| 91991 | #endif | |||
| 91992 | return capi_buildvalue; | |||
| 91993 | } | |||
| 91994 | /******************************* end of dstemr *******************************/ | |||
| 91995 | ||||
| 91996 | /******************************** sstemr_lwork ********************************/ | |||
| 91997 | static char doc_f2py_rout__flapack_sstemr_lwork[] = "\ | |||
| 91998 | work,iwork,info = sstemr_lwork(d,e,range,vl,vu,il,iu,[compute_v,overwrite_d,overwrite_e])\n\nWrapper for ``sstemr_lwork``.\ | |||
| 91999 | \n\nParameters\n----------\n" | |||
| 92000 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 92001 | "e : input rank-1 array('f') with bounds (n)\n" | |||
| 92002 | "range : input int\n" | |||
| 92003 | "vl : input float\n" | |||
| 92004 | "vu : input float\n" | |||
| 92005 | "il : input int\n" | |||
| 92006 | "iu : input int\n" | |||
| 92007 | "\nOther Parameters\n----------------\n" | |||
| 92008 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 92009 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 92010 | "compute_v : input int, optional\n Default: 1\n" | |||
| 92011 | "\nReturns\n-------\n" | |||
| 92012 | "work : float\n" | |||
| 92013 | "iwork : int\n" | |||
| 92014 | "info : int"; | |||
| 92015 | /* extern void F_FUNC(cstemr ,CSTEMR )(char*,char*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT*,F_INT*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 92016 | static PyObject *f2py_rout__flapack_sstemr_lwork(const PyObject *capi_self, | |||
| 92017 | PyObject *capi_args, | |||
| 92018 | PyObject *capi_keywds, | |||
| 92019 | void (*f2py_func)(char*,char*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 92020 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 92021 | volatile int f2py_success = 1; | |||
| 92022 | /*decl*/ | |||
| 92023 | ||||
| 92024 | float *d = NULL((void*)0); | |||
| 92025 | npy_intp d_Dims[1] = {-1}; | |||
| 92026 | const int d_Rank = 1; | |||
| 92027 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 92028 | int capi_d_intent = 0; | |||
| 92029 | int capi_overwrite_d = 0; | |||
| 92030 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 92031 | float *e = NULL((void*)0); | |||
| 92032 | npy_intp e_Dims[1] = {-1}; | |||
| 92033 | const int e_Rank = 1; | |||
| 92034 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 92035 | int capi_e_intent = 0; | |||
| 92036 | int capi_overwrite_e = 0; | |||
| 92037 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 92038 | int range = 0; | |||
| 92039 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 92040 | float vl = 0; | |||
| 92041 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 92042 | float vu = 0; | |||
| 92043 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 92044 | int il = 0; | |||
| 92045 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 92046 | int iu = 0; | |||
| 92047 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 92048 | int compute_v = 0; | |||
| 92049 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 92050 | int n = 0; | |||
| 92051 | int m = 0; | |||
| 92052 | float *w = NULL((void*)0); | |||
| 92053 | npy_intp w_Dims[1] = {-1}; | |||
| 92054 | const int w_Rank = 1; | |||
| 92055 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 92056 | int capi_w_intent = 0; | |||
| 92057 | float *z = NULL((void*)0); | |||
| 92058 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 92059 | const int z_Rank = 2; | |||
| 92060 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 92061 | int capi_z_intent = 0; | |||
| 92062 | int ldz = 0; | |||
| 92063 | int nzc = 0; | |||
| 92064 | int *isuppz = NULL((void*)0); | |||
| 92065 | npy_intp isuppz_Dims[1] = {-1}; | |||
| 92066 | const int isuppz_Rank = 1; | |||
| 92067 | PyArrayObject *capi_isuppz_tmp = NULL((void*)0); | |||
| 92068 | int capi_isuppz_intent = 0; | |||
| 92069 | int tryrac = 0; | |||
| 92070 | float work = 0; | |||
| 92071 | int lwork = 0; | |||
| 92072 | int iwork = 0; | |||
| 92073 | int liwork = 0; | |||
| 92074 | int info = 0; | |||
| 92075 | static char *capi_kwlist[] = {"d","e","range","vl","vu","il","iu","compute_v","overwrite_d","overwrite_e",NULL((void*)0)}; | |||
| 92076 | ||||
| 92077 | /*routdebugenter*/ | |||
| 92078 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92079 | f2py_start_clock(); | |||
| 92080 | #endif | |||
| 92081 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 92082 | "OOOOOOO|Oii:_flapack.sstemr_lwork",\ | |||
| 92083 | capi_kwlist,&d_capi,&e_capi,&range_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&compute_v_capi,&capi_overwrite_d,&capi_overwrite_e)) | |||
| 92084 | return NULL((void*)0); | |||
| 92085 | /*frompyobj*/ | |||
| 92086 | /* Processing variable d */ | |||
| 92087 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 92088 | ; | |||
| 92089 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 92090 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 92091 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 92092 | if (!PyErr_Occurred()) | |||
| 92093 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sstemr_lwork to C/Fortran array" ); | |||
| 92094 | } else { | |||
| 92095 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 92096 | ||||
| 92097 | /* Processing variable range */ | |||
| 92098 | f2py_success = int_from_pyobj(&range,range_capi,"_flapack.sstemr_lwork() 3rd argument (range) can't be converted to int"); | |||
| 92099 | if (f2py_success) { | |||
| 92100 | /* Processing variable vl */ | |||
| 92101 | f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.sstemr_lwork() 4th argument (vl) can't be converted to float"); | |||
| 92102 | if (f2py_success) { | |||
| 92103 | /* Processing variable vu */ | |||
| 92104 | f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.sstemr_lwork() 5th argument (vu) can't be converted to float"); | |||
| 92105 | if (f2py_success) { | |||
| 92106 | /* Processing variable il */ | |||
| 92107 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.sstemr_lwork() 6th argument (il) can't be converted to int"); | |||
| 92108 | if (f2py_success) { | |||
| 92109 | /* Processing variable iu */ | |||
| 92110 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.sstemr_lwork() 7th argument (iu) can't be converted to int"); | |||
| 92111 | if (f2py_success) { | |||
| 92112 | /* Processing variable compute_v */ | |||
| 92113 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 92114 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.sstemr_lwork() 1st keyword (compute_v) can't be converted to int"); | |||
| 92115 | if (f2py_success) { | |||
| 92116 | /* Processing variable m */ | |||
| 92117 | /* Processing variable tryrac */ | |||
| 92118 | tryrac = 1; | |||
| 92119 | /* Processing variable work */ | |||
| 92120 | /* Processing variable liwork */ | |||
| 92121 | liwork = -1; | |||
| 92122 | /* Processing variable iwork */ | |||
| 92123 | /* Processing variable info */ | |||
| 92124 | /* Processing variable n */ | |||
| 92125 | n = shape(d,0)d_Dims[0]; | |||
| 92126 | CHECKSCALAR(n>0,"n>0","hidden n","sstemr_lwork:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sstemr_lwork:n=%d", "(""n>0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 92127 | /* Processing variable w */ | |||
| 92128 | w_Dims[0]=n; | |||
| 92129 | capi_w_intent |= F2PY_INTENT_HIDE8; | |||
| 92130 | capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 92131 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 92132 | if (!PyErr_Occurred()) | |||
| 92133 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.sstemr_lwork to C/Fortran array" ); | |||
| 92134 | } else { | |||
| 92135 | w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 92136 | ||||
| 92137 | /* Processing variable z */ | |||
| 92138 | z_Dims[0]=n,z_Dims[1]=n; | |||
| 92139 | capi_z_intent |= F2PY_INTENT_HIDE8; | |||
| 92140 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 92141 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 92142 | if (!PyErr_Occurred()) | |||
| 92143 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.sstemr_lwork to C/Fortran array" ); | |||
| 92144 | } else { | |||
| 92145 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 92146 | ||||
| 92147 | /* Processing variable ldz */ | |||
| 92148 | ldz = (compute_v?n:1); | |||
| 92149 | /* Processing variable nzc */ | |||
| 92150 | nzc = n; | |||
| 92151 | /* Processing variable isuppz */ | |||
| 92152 | isuppz_Dims[0]=(compute_v?2*n:1); | |||
| 92153 | capi_isuppz_intent |= F2PY_INTENT_HIDE8; | |||
| 92154 | capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct)); | |||
| 92155 | if (capi_isuppz_tmp == NULL((void*)0)) { | |||
| 92156 | if (!PyErr_Occurred()) | |||
| 92157 | PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.sstemr_lwork to C/Fortran array" ); | |||
| 92158 | } else { | |||
| 92159 | isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data )); | |||
| 92160 | ||||
| 92161 | /* Processing variable lwork */ | |||
| 92162 | lwork = -1; | |||
| 92163 | /* Processing variable e */ | |||
| 92164 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 92165 | e_Dims[0]=n; | |||
| 92166 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 92167 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 92168 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 92169 | if (!PyErr_Occurred()) | |||
| 92170 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sstemr_lwork to C/Fortran array" ); | |||
| 92171 | } else { | |||
| 92172 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 92173 | ||||
| 92174 | /*end of frompyobj*/ | |||
| 92175 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92176 | f2py_start_call_clock(); | |||
| 92177 | #endif | |||
| 92178 | /*callfortranroutine*/ | |||
| 92179 | (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),&n,d,e,&vl,&vu,&il,&iu,&m,w,z,&ldz,&nzc,isuppz,&tryrac,&work,&lwork,&iwork,&liwork,&info) ; | |||
| 92180 | /*(*f2py_func)(d,e,&range,&vl,&vu,&il,&iu,&compute_v,&n,&m,w,z,&ldz,&nzc,isuppz,&tryrac,&work,&lwork,&iwork,&liwork,&info);*/ | |||
| 92181 | if (PyErr_Occurred()) | |||
| 92182 | f2py_success = 0; | |||
| 92183 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92184 | f2py_stop_call_clock(); | |||
| 92185 | #endif | |||
| 92186 | /*end of callfortranroutine*/ | |||
| 92187 | if (f2py_success) { | |||
| 92188 | /*pyobjfrom*/ | |||
| 92189 | /*end of pyobjfrom*/ | |||
| 92190 | CFUNCSMESS("Building return value.\n"); | |||
| 92191 | capi_buildvalue = Py_BuildValue("fii",work,iwork,info); | |||
| 92192 | /*closepyobjfrom*/ | |||
| 92193 | /*end of closepyobjfrom*/ | |||
| 92194 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 92195 | /*cleanupfrompyobj*/ | |||
| 92196 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 92197 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 92198 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 92199 | /* End of cleaning variable e */ | |||
| 92200 | /* End of cleaning variable lwork */ | |||
| 92201 | Py_XDECREF(capi_isuppz_tmp)_Py_XDECREF(((PyObject*)(capi_isuppz_tmp))); | |||
| 92202 | } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/ | |||
| 92203 | /* End of cleaning variable isuppz */ | |||
| 92204 | /* End of cleaning variable nzc */ | |||
| 92205 | /* End of cleaning variable ldz */ | |||
| 92206 | Py_XDECREF(capi_z_tmp)_Py_XDECREF(((PyObject*)(capi_z_tmp))); | |||
| 92207 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 92208 | /* End of cleaning variable z */ | |||
| 92209 | Py_XDECREF(capi_w_tmp)_Py_XDECREF(((PyObject*)(capi_w_tmp))); | |||
| 92210 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 92211 | /* End of cleaning variable w */ | |||
| 92212 | } /*CHECKSCALAR(n>0)*/ | |||
| 92213 | /* End of cleaning variable n */ | |||
| 92214 | /* End of cleaning variable info */ | |||
| 92215 | /* End of cleaning variable iwork */ | |||
| 92216 | /* End of cleaning variable liwork */ | |||
| 92217 | /* End of cleaning variable work */ | |||
| 92218 | /* End of cleaning variable tryrac */ | |||
| 92219 | /* End of cleaning variable m */ | |||
| 92220 | } /*if (f2py_success) of compute_v*/ | |||
| 92221 | /* End of cleaning variable compute_v */ | |||
| 92222 | } /*if (f2py_success) of iu*/ | |||
| 92223 | /* End of cleaning variable iu */ | |||
| 92224 | } /*if (f2py_success) of il*/ | |||
| 92225 | /* End of cleaning variable il */ | |||
| 92226 | } /*if (f2py_success) of vu*/ | |||
| 92227 | /* End of cleaning variable vu */ | |||
| 92228 | } /*if (f2py_success) of vl*/ | |||
| 92229 | /* End of cleaning variable vl */ | |||
| 92230 | } /*if (f2py_success) of range*/ | |||
| 92231 | /* End of cleaning variable range */ | |||
| 92232 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 92233 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 92234 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 92235 | /* End of cleaning variable d */ | |||
| 92236 | /*end of cleanupfrompyobj*/ | |||
| 92237 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 92238 | /*routdebugfailure*/ | |||
| 92239 | } else { | |||
| 92240 | /*routdebugleave*/ | |||
| 92241 | } | |||
| 92242 | CFUNCSMESS("Freeing memory.\n"); | |||
| 92243 | /*freemem*/ | |||
| 92244 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92245 | f2py_stop_clock(); | |||
| 92246 | #endif | |||
| 92247 | return capi_buildvalue; | |||
| 92248 | } | |||
| 92249 | /**************************** end of sstemr_lwork ****************************/ | |||
| 92250 | ||||
| 92251 | /******************************** dstemr_lwork ********************************/ | |||
| 92252 | static char doc_f2py_rout__flapack_dstemr_lwork[] = "\ | |||
| 92253 | work,iwork,info = dstemr_lwork(d,e,range,vl,vu,il,iu,[compute_v,overwrite_d,overwrite_e])\n\nWrapper for ``dstemr_lwork``.\ | |||
| 92254 | \n\nParameters\n----------\n" | |||
| 92255 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 92256 | "e : input rank-1 array('d') with bounds (n)\n" | |||
| 92257 | "range : input int\n" | |||
| 92258 | "vl : input float\n" | |||
| 92259 | "vu : input float\n" | |||
| 92260 | "il : input int\n" | |||
| 92261 | "iu : input int\n" | |||
| 92262 | "\nOther Parameters\n----------------\n" | |||
| 92263 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 92264 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 92265 | "compute_v : input int, optional\n Default: 1\n" | |||
| 92266 | "\nReturns\n-------\n" | |||
| 92267 | "work : float\n" | |||
| 92268 | "iwork : int\n" | |||
| 92269 | "info : int"; | |||
| 92270 | /* extern void F_FUNC(zstemr ,ZSTEMR )(char*,char*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT*,F_INT*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 92271 | static PyObject *f2py_rout__flapack_dstemr_lwork(const PyObject *capi_self, | |||
| 92272 | PyObject *capi_args, | |||
| 92273 | PyObject *capi_keywds, | |||
| 92274 | void (*f2py_func)(char*,char*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 92275 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 92276 | volatile int f2py_success = 1; | |||
| 92277 | /*decl*/ | |||
| 92278 | ||||
| 92279 | double *d = NULL((void*)0); | |||
| 92280 | npy_intp d_Dims[1] = {-1}; | |||
| 92281 | const int d_Rank = 1; | |||
| 92282 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 92283 | int capi_d_intent = 0; | |||
| 92284 | int capi_overwrite_d = 0; | |||
| 92285 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 92286 | double *e = NULL((void*)0); | |||
| 92287 | npy_intp e_Dims[1] = {-1}; | |||
| 92288 | const int e_Rank = 1; | |||
| 92289 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 92290 | int capi_e_intent = 0; | |||
| 92291 | int capi_overwrite_e = 0; | |||
| 92292 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 92293 | int range = 0; | |||
| 92294 | PyObject *range_capi = Py_None(&_Py_NoneStruct); | |||
| 92295 | double vl = 0; | |||
| 92296 | PyObject *vl_capi = Py_None(&_Py_NoneStruct); | |||
| 92297 | double vu = 0; | |||
| 92298 | PyObject *vu_capi = Py_None(&_Py_NoneStruct); | |||
| 92299 | int il = 0; | |||
| 92300 | PyObject *il_capi = Py_None(&_Py_NoneStruct); | |||
| 92301 | int iu = 0; | |||
| 92302 | PyObject *iu_capi = Py_None(&_Py_NoneStruct); | |||
| 92303 | int compute_v = 0; | |||
| 92304 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 92305 | int n = 0; | |||
| 92306 | int m = 0; | |||
| 92307 | double *w = NULL((void*)0); | |||
| 92308 | npy_intp w_Dims[1] = {-1}; | |||
| 92309 | const int w_Rank = 1; | |||
| 92310 | PyArrayObject *capi_w_tmp = NULL((void*)0); | |||
| 92311 | int capi_w_intent = 0; | |||
| 92312 | double *z = NULL((void*)0); | |||
| 92313 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 92314 | const int z_Rank = 2; | |||
| 92315 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 92316 | int capi_z_intent = 0; | |||
| 92317 | int ldz = 0; | |||
| 92318 | int nzc = 0; | |||
| 92319 | int *isuppz = NULL((void*)0); | |||
| 92320 | npy_intp isuppz_Dims[1] = {-1}; | |||
| 92321 | const int isuppz_Rank = 1; | |||
| 92322 | PyArrayObject *capi_isuppz_tmp = NULL((void*)0); | |||
| 92323 | int capi_isuppz_intent = 0; | |||
| 92324 | int tryrac = 0; | |||
| 92325 | double work = 0; | |||
| 92326 | int lwork = 0; | |||
| 92327 | int iwork = 0; | |||
| 92328 | int liwork = 0; | |||
| 92329 | int info = 0; | |||
| 92330 | static char *capi_kwlist[] = {"d","e","range","vl","vu","il","iu","compute_v","overwrite_d","overwrite_e",NULL((void*)0)}; | |||
| 92331 | ||||
| 92332 | /*routdebugenter*/ | |||
| 92333 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92334 | f2py_start_clock(); | |||
| 92335 | #endif | |||
| 92336 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 92337 | "OOOOOOO|Oii:_flapack.dstemr_lwork",\ | |||
| 92338 | capi_kwlist,&d_capi,&e_capi,&range_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&compute_v_capi,&capi_overwrite_d,&capi_overwrite_e)) | |||
| 92339 | return NULL((void*)0); | |||
| 92340 | /*frompyobj*/ | |||
| 92341 | /* Processing variable d */ | |||
| 92342 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 92343 | ; | |||
| 92344 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 92345 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 92346 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 92347 | if (!PyErr_Occurred()) | |||
| 92348 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dstemr_lwork to C/Fortran array" ); | |||
| 92349 | } else { | |||
| 92350 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 92351 | ||||
| 92352 | /* Processing variable range */ | |||
| 92353 | f2py_success = int_from_pyobj(&range,range_capi,"_flapack.dstemr_lwork() 3rd argument (range) can't be converted to int"); | |||
| 92354 | if (f2py_success) { | |||
| 92355 | /* Processing variable vl */ | |||
| 92356 | f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dstemr_lwork() 4th argument (vl) can't be converted to double"); | |||
| 92357 | if (f2py_success) { | |||
| 92358 | /* Processing variable vu */ | |||
| 92359 | f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dstemr_lwork() 5th argument (vu) can't be converted to double"); | |||
| 92360 | if (f2py_success) { | |||
| 92361 | /* Processing variable il */ | |||
| 92362 | f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dstemr_lwork() 6th argument (il) can't be converted to int"); | |||
| 92363 | if (f2py_success) { | |||
| 92364 | /* Processing variable iu */ | |||
| 92365 | f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dstemr_lwork() 7th argument (iu) can't be converted to int"); | |||
| 92366 | if (f2py_success) { | |||
| 92367 | /* Processing variable compute_v */ | |||
| 92368 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 92369 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dstemr_lwork() 1st keyword (compute_v) can't be converted to int"); | |||
| 92370 | if (f2py_success) { | |||
| 92371 | /* Processing variable m */ | |||
| 92372 | /* Processing variable tryrac */ | |||
| 92373 | tryrac = 1; | |||
| 92374 | /* Processing variable work */ | |||
| 92375 | /* Processing variable liwork */ | |||
| 92376 | liwork = -1; | |||
| 92377 | /* Processing variable iwork */ | |||
| 92378 | /* Processing variable info */ | |||
| 92379 | /* Processing variable n */ | |||
| 92380 | n = shape(d,0)d_Dims[0]; | |||
| 92381 | CHECKSCALAR(n>0,"n>0","hidden n","dstemr_lwork:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dstemr_lwork:n=%d", "(""n>0"") failed for ""hidden n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 92382 | /* Processing variable w */ | |||
| 92383 | w_Dims[0]=n; | |||
| 92384 | capi_w_intent |= F2PY_INTENT_HIDE8; | |||
| 92385 | capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct)); | |||
| 92386 | if (capi_w_tmp == NULL((void*)0)) { | |||
| 92387 | if (!PyErr_Occurred()) | |||
| 92388 | PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dstemr_lwork to C/Fortran array" ); | |||
| 92389 | } else { | |||
| 92390 | w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data)); | |||
| 92391 | ||||
| 92392 | /* Processing variable z */ | |||
| 92393 | z_Dims[0]=n,z_Dims[1]=n; | |||
| 92394 | capi_z_intent |= F2PY_INTENT_HIDE8; | |||
| 92395 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 92396 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 92397 | if (!PyErr_Occurred()) | |||
| 92398 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dstemr_lwork to C/Fortran array" ); | |||
| 92399 | } else { | |||
| 92400 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 92401 | ||||
| 92402 | /* Processing variable ldz */ | |||
| 92403 | ldz = (compute_v?n:1); | |||
| 92404 | /* Processing variable nzc */ | |||
| 92405 | nzc = n; | |||
| 92406 | /* Processing variable isuppz */ | |||
| 92407 | isuppz_Dims[0]=(compute_v?2*n:1); | |||
| 92408 | capi_isuppz_intent |= F2PY_INTENT_HIDE8; | |||
| 92409 | capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct)); | |||
| 92410 | if (capi_isuppz_tmp == NULL((void*)0)) { | |||
| 92411 | if (!PyErr_Occurred()) | |||
| 92412 | PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.dstemr_lwork to C/Fortran array" ); | |||
| 92413 | } else { | |||
| 92414 | isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data )); | |||
| 92415 | ||||
| 92416 | /* Processing variable lwork */ | |||
| 92417 | lwork = -1; | |||
| 92418 | /* Processing variable e */ | |||
| 92419 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 92420 | e_Dims[0]=n; | |||
| 92421 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 92422 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 92423 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 92424 | if (!PyErr_Occurred()) | |||
| 92425 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dstemr_lwork to C/Fortran array" ); | |||
| 92426 | } else { | |||
| 92427 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 92428 | ||||
| 92429 | /*end of frompyobj*/ | |||
| 92430 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92431 | f2py_start_call_clock(); | |||
| 92432 | #endif | |||
| 92433 | /*callfortranroutine*/ | |||
| 92434 | (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),&n,d,e,&vl,&vu,&il,&iu,&m,w,z,&ldz,&nzc,isuppz,&tryrac,&work,&lwork,&iwork,&liwork,&info) ; | |||
| 92435 | /*(*f2py_func)(d,e,&range,&vl,&vu,&il,&iu,&compute_v,&n,&m,w,z,&ldz,&nzc,isuppz,&tryrac,&work,&lwork,&iwork,&liwork,&info);*/ | |||
| 92436 | if (PyErr_Occurred()) | |||
| 92437 | f2py_success = 0; | |||
| 92438 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92439 | f2py_stop_call_clock(); | |||
| 92440 | #endif | |||
| 92441 | /*end of callfortranroutine*/ | |||
| 92442 | if (f2py_success) { | |||
| 92443 | /*pyobjfrom*/ | |||
| 92444 | /*end of pyobjfrom*/ | |||
| 92445 | CFUNCSMESS("Building return value.\n"); | |||
| 92446 | capi_buildvalue = Py_BuildValue("dii",work,iwork,info); | |||
| 92447 | /*closepyobjfrom*/ | |||
| 92448 | /*end of closepyobjfrom*/ | |||
| 92449 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 92450 | /*cleanupfrompyobj*/ | |||
| 92451 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 92452 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 92453 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 92454 | /* End of cleaning variable e */ | |||
| 92455 | /* End of cleaning variable lwork */ | |||
| 92456 | Py_XDECREF(capi_isuppz_tmp)_Py_XDECREF(((PyObject*)(capi_isuppz_tmp))); | |||
| 92457 | } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/ | |||
| 92458 | /* End of cleaning variable isuppz */ | |||
| 92459 | /* End of cleaning variable nzc */ | |||
| 92460 | /* End of cleaning variable ldz */ | |||
| 92461 | Py_XDECREF(capi_z_tmp)_Py_XDECREF(((PyObject*)(capi_z_tmp))); | |||
| 92462 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 92463 | /* End of cleaning variable z */ | |||
| 92464 | Py_XDECREF(capi_w_tmp)_Py_XDECREF(((PyObject*)(capi_w_tmp))); | |||
| 92465 | } /*if (capi_w_tmp == NULL) ... else of w*/ | |||
| 92466 | /* End of cleaning variable w */ | |||
| 92467 | } /*CHECKSCALAR(n>0)*/ | |||
| 92468 | /* End of cleaning variable n */ | |||
| 92469 | /* End of cleaning variable info */ | |||
| 92470 | /* End of cleaning variable iwork */ | |||
| 92471 | /* End of cleaning variable liwork */ | |||
| 92472 | /* End of cleaning variable work */ | |||
| 92473 | /* End of cleaning variable tryrac */ | |||
| 92474 | /* End of cleaning variable m */ | |||
| 92475 | } /*if (f2py_success) of compute_v*/ | |||
| 92476 | /* End of cleaning variable compute_v */ | |||
| 92477 | } /*if (f2py_success) of iu*/ | |||
| 92478 | /* End of cleaning variable iu */ | |||
| 92479 | } /*if (f2py_success) of il*/ | |||
| 92480 | /* End of cleaning variable il */ | |||
| 92481 | } /*if (f2py_success) of vu*/ | |||
| 92482 | /* End of cleaning variable vu */ | |||
| 92483 | } /*if (f2py_success) of vl*/ | |||
| 92484 | /* End of cleaning variable vl */ | |||
| 92485 | } /*if (f2py_success) of range*/ | |||
| 92486 | /* End of cleaning variable range */ | |||
| 92487 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 92488 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 92489 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 92490 | /* End of cleaning variable d */ | |||
| 92491 | /*end of cleanupfrompyobj*/ | |||
| 92492 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 92493 | /*routdebugfailure*/ | |||
| 92494 | } else { | |||
| 92495 | /*routdebugleave*/ | |||
| 92496 | } | |||
| 92497 | CFUNCSMESS("Freeing memory.\n"); | |||
| 92498 | /*freemem*/ | |||
| 92499 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92500 | f2py_stop_clock(); | |||
| 92501 | #endif | |||
| 92502 | return capi_buildvalue; | |||
| 92503 | } | |||
| 92504 | /**************************** end of dstemr_lwork ****************************/ | |||
| 92505 | ||||
| 92506 | /*********************************** sstev ***********************************/ | |||
| 92507 | static char doc_f2py_rout__flapack_sstev[] = "\ | |||
| 92508 | vals,z,info = sstev(d,e,[compute_v,overwrite_d,overwrite_e])\n\nWrapper for ``sstev``.\ | |||
| 92509 | \n\nParameters\n----------\n" | |||
| 92510 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 92511 | "e : input rank-1 array('f') with bounds (MAX(n-1,1))\n" | |||
| 92512 | "\nOther Parameters\n----------------\n" | |||
| 92513 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 92514 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 92515 | "compute_v : input int, optional\n Default: 1\n" | |||
| 92516 | "\nReturns\n-------\n" | |||
| 92517 | "vals : rank-1 array('f') with bounds (n) and d storage\n" | |||
| 92518 | "z : rank-2 array('f') with bounds (ldz,(compute_v?n:1))\n" | |||
| 92519 | "info : int"; | |||
| 92520 | /* extern void F_FUNC(sstev,SSTEV)(char*,F_INT*,float*,float*,float*,F_INT*,float*,F_INT* ); */ | |||
| 92521 | static PyObject *f2py_rout__flapack_sstev(const PyObject *capi_self, | |||
| 92522 | PyObject *capi_args, | |||
| 92523 | PyObject *capi_keywds, | |||
| 92524 | void (*f2py_func)(char*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint* )) { | |||
| 92525 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 92526 | volatile int f2py_success = 1; | |||
| 92527 | /*decl*/ | |||
| 92528 | ||||
| 92529 | float *d = NULL((void*)0); | |||
| 92530 | npy_intp d_Dims[1] = {-1}; | |||
| 92531 | const int d_Rank = 1; | |||
| 92532 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 92533 | int capi_d_intent = 0; | |||
| 92534 | int capi_overwrite_d = 0; | |||
| 92535 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 92536 | float *e = NULL((void*)0); | |||
| 92537 | npy_intp e_Dims[1] = {-1}; | |||
| 92538 | const int e_Rank = 1; | |||
| 92539 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 92540 | int capi_e_intent = 0; | |||
| 92541 | int capi_overwrite_e = 0; | |||
| 92542 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 92543 | int compute_v = 0; | |||
| 92544 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 92545 | int n = 0; | |||
| 92546 | float *z = NULL((void*)0); | |||
| 92547 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 92548 | const int z_Rank = 2; | |||
| 92549 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 92550 | int capi_z_intent = 0; | |||
| 92551 | int ldz = 0; | |||
| 92552 | float *work = NULL((void*)0); | |||
| 92553 | npy_intp work_Dims[1] = {-1}; | |||
| 92554 | const int work_Rank = 1; | |||
| 92555 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 92556 | int capi_work_intent = 0; | |||
| 92557 | int info = 0; | |||
| 92558 | static char *capi_kwlist[] = {"d","e","compute_v","overwrite_d","overwrite_e",NULL((void*)0)}; | |||
| 92559 | ||||
| 92560 | /*routdebugenter*/ | |||
| 92561 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92562 | f2py_start_clock(); | |||
| 92563 | #endif | |||
| 92564 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 92565 | "OO|Oii:_flapack.sstev",\ | |||
| 92566 | capi_kwlist,&d_capi,&e_capi,&compute_v_capi,&capi_overwrite_d,&capi_overwrite_e)) | |||
| 92567 | return NULL((void*)0); | |||
| 92568 | /*frompyobj*/ | |||
| 92569 | /* Processing variable compute_v */ | |||
| 92570 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 92571 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.sstev() 1st keyword (compute_v) can't be converted to int"); | |||
| 92572 | if (f2py_success) { | |||
| 92573 | /* Processing variable d */ | |||
| 92574 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 92575 | ; | |||
| 92576 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 92577 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 92578 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 92579 | if (!PyErr_Occurred()) | |||
| 92580 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sstev to C/Fortran array" ); | |||
| 92581 | } else { | |||
| 92582 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 92583 | ||||
| 92584 | /* Processing variable info */ | |||
| 92585 | /* Processing variable n */ | |||
| 92586 | n = shape(d,0)d_Dims[0]; | |||
| 92587 | CHECKSCALAR(n>0,"n>0","hidden n","sstev:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""sstev:n=%d", "(""n>0"") failed for ""hidden n", n ); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 92588 | /* Processing variable e */ | |||
| 92589 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 92590 | e_Dims[0]=MAX(n-1,1)((n-1 > 1) ? (n-1) : (1)); | |||
| 92591 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 92592 | capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 92593 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 92594 | if (!PyErr_Occurred()) | |||
| 92595 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sstev to C/Fortran array" ); | |||
| 92596 | } else { | |||
| 92597 | e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 92598 | ||||
| 92599 | /* Processing variable ldz */ | |||
| 92600 | ldz = (compute_v?n:1); | |||
| 92601 | /* Processing variable z */ | |||
| 92602 | z_Dims[0]=ldz,z_Dims[1]=(compute_v?n:1); | |||
| 92603 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 92604 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 92605 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 92606 | if (!PyErr_Occurred()) | |||
| 92607 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.sstev to C/Fortran array" ); | |||
| 92608 | } else { | |||
| 92609 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 92610 | ||||
| 92611 | /* Processing variable work */ | |||
| 92612 | work_Dims[0]=(compute_v?MAX(1,2*n-2)((1 > 2*n-2) ? (1) : (2*n-2)):1); | |||
| 92613 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 92614 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 92615 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 92616 | if (!PyErr_Occurred()) | |||
| 92617 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sstev to C/Fortran array" ); | |||
| 92618 | } else { | |||
| 92619 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 92620 | ||||
| 92621 | /*end of frompyobj*/ | |||
| 92622 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92623 | f2py_start_call_clock(); | |||
| 92624 | #endif | |||
| 92625 | /*callfortranroutine*/ | |||
| 92626 | (*f2py_func)((compute_v?"V":"N"),&n,d,e,z,&ldz,work,&info) ; | |||
| 92627 | /*(*f2py_func)(d,e,&compute_v,&n,z,&ldz,work,&info);*/ | |||
| 92628 | if (PyErr_Occurred()) | |||
| 92629 | f2py_success = 0; | |||
| 92630 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92631 | f2py_stop_call_clock(); | |||
| 92632 | #endif | |||
| 92633 | /*end of callfortranroutine*/ | |||
| 92634 | if (f2py_success) { | |||
| 92635 | /*pyobjfrom*/ | |||
| 92636 | /*end of pyobjfrom*/ | |||
| 92637 | CFUNCSMESS("Building return value.\n"); | |||
| 92638 | capi_buildvalue = Py_BuildValue("NNi",capi_d_tmp,capi_z_tmp,info); | |||
| 92639 | /*closepyobjfrom*/ | |||
| 92640 | /*end of closepyobjfrom*/ | |||
| 92641 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 92642 | /*cleanupfrompyobj*/ | |||
| 92643 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 92644 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 92645 | /* End of cleaning variable work */ | |||
| 92646 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 92647 | /* End of cleaning variable z */ | |||
| 92648 | /* End of cleaning variable ldz */ | |||
| 92649 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 92650 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 92651 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 92652 | /* End of cleaning variable e */ | |||
| 92653 | } /*CHECKSCALAR(n>0)*/ | |||
| 92654 | /* End of cleaning variable n */ | |||
| 92655 | /* End of cleaning variable info */ | |||
| 92656 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 92657 | /* End of cleaning variable d */ | |||
| 92658 | } /*if (f2py_success) of compute_v*/ | |||
| 92659 | /* End of cleaning variable compute_v */ | |||
| 92660 | /*end of cleanupfrompyobj*/ | |||
| 92661 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 92662 | /*routdebugfailure*/ | |||
| 92663 | } else { | |||
| 92664 | /*routdebugleave*/ | |||
| 92665 | } | |||
| 92666 | CFUNCSMESS("Freeing memory.\n"); | |||
| 92667 | /*freemem*/ | |||
| 92668 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92669 | f2py_stop_clock(); | |||
| 92670 | #endif | |||
| 92671 | return capi_buildvalue; | |||
| 92672 | } | |||
| 92673 | /******************************** end of sstev ********************************/ | |||
| 92674 | ||||
| 92675 | /*********************************** dstev ***********************************/ | |||
| 92676 | static char doc_f2py_rout__flapack_dstev[] = "\ | |||
| 92677 | vals,z,info = dstev(d,e,[compute_v,overwrite_d,overwrite_e])\n\nWrapper for ``dstev``.\ | |||
| 92678 | \n\nParameters\n----------\n" | |||
| 92679 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 92680 | "e : input rank-1 array('d') with bounds (MAX(n-1,1))\n" | |||
| 92681 | "\nOther Parameters\n----------------\n" | |||
| 92682 | "overwrite_d : input int, optional\n Default: 0\n" | |||
| 92683 | "overwrite_e : input int, optional\n Default: 0\n" | |||
| 92684 | "compute_v : input int, optional\n Default: 1\n" | |||
| 92685 | "\nReturns\n-------\n" | |||
| 92686 | "vals : rank-1 array('d') with bounds (n) and d storage\n" | |||
| 92687 | "z : rank-2 array('d') with bounds (ldz,(compute_v?n:1))\n" | |||
| 92688 | "info : int"; | |||
| 92689 | /* extern void F_FUNC(dstev,DSTEV)(char*,F_INT*,double*,double*,double*,F_INT*,double*,F_INT* ); */ | |||
| 92690 | static PyObject *f2py_rout__flapack_dstev(const PyObject *capi_self, | |||
| 92691 | PyObject *capi_args, | |||
| 92692 | PyObject *capi_keywds, | |||
| 92693 | void (*f2py_func)(char*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint* )) { | |||
| 92694 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 92695 | volatile int f2py_success = 1; | |||
| 92696 | /*decl*/ | |||
| 92697 | ||||
| 92698 | double *d = NULL((void*)0); | |||
| 92699 | npy_intp d_Dims[1] = {-1}; | |||
| 92700 | const int d_Rank = 1; | |||
| 92701 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 92702 | int capi_d_intent = 0; | |||
| 92703 | int capi_overwrite_d = 0; | |||
| 92704 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 92705 | double *e = NULL((void*)0); | |||
| 92706 | npy_intp e_Dims[1] = {-1}; | |||
| 92707 | const int e_Rank = 1; | |||
| 92708 | PyArrayObject *capi_e_tmp = NULL((void*)0); | |||
| 92709 | int capi_e_intent = 0; | |||
| 92710 | int capi_overwrite_e = 0; | |||
| 92711 | PyObject *e_capi = Py_None(&_Py_NoneStruct); | |||
| 92712 | int compute_v = 0; | |||
| 92713 | PyObject *compute_v_capi = Py_None(&_Py_NoneStruct); | |||
| 92714 | int n = 0; | |||
| 92715 | double *z = NULL((void*)0); | |||
| 92716 | npy_intp z_Dims[2] = {-1, -1}; | |||
| 92717 | const int z_Rank = 2; | |||
| 92718 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 92719 | int capi_z_intent = 0; | |||
| 92720 | int ldz = 0; | |||
| 92721 | double *work = NULL((void*)0); | |||
| 92722 | npy_intp work_Dims[1] = {-1}; | |||
| 92723 | const int work_Rank = 1; | |||
| 92724 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 92725 | int capi_work_intent = 0; | |||
| 92726 | int info = 0; | |||
| 92727 | static char *capi_kwlist[] = {"d","e","compute_v","overwrite_d","overwrite_e",NULL((void*)0)}; | |||
| 92728 | ||||
| 92729 | /*routdebugenter*/ | |||
| 92730 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92731 | f2py_start_clock(); | |||
| 92732 | #endif | |||
| 92733 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 92734 | "OO|Oii:_flapack.dstev",\ | |||
| 92735 | capi_kwlist,&d_capi,&e_capi,&compute_v_capi,&capi_overwrite_d,&capi_overwrite_e)) | |||
| 92736 | return NULL((void*)0); | |||
| 92737 | /*frompyobj*/ | |||
| 92738 | /* Processing variable compute_v */ | |||
| 92739 | if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else | |||
| 92740 | f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dstev() 1st keyword (compute_v) can't be converted to int"); | |||
| 92741 | if (f2py_success) { | |||
| 92742 | /* Processing variable d */ | |||
| 92743 | capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32); | |||
| 92744 | ; | |||
| 92745 | capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 92746 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 92747 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 92748 | if (!PyErr_Occurred()) | |||
| 92749 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dstev to C/Fortran array" ); | |||
| 92750 | } else { | |||
| 92751 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 92752 | ||||
| 92753 | /* Processing variable info */ | |||
| 92754 | /* Processing variable n */ | |||
| 92755 | n = shape(d,0)d_Dims[0]; | |||
| 92756 | CHECKSCALAR(n>0,"n>0","hidden n","dstev:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dstev:n=%d", "(""n>0"") failed for ""hidden n", n ); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 92757 | /* Processing variable e */ | |||
| 92758 | capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32); | |||
| 92759 | e_Dims[0]=MAX(n-1,1)((n-1 > 1) ? (n-1) : (1)); | |||
| 92760 | capi_e_intent |= F2PY_INTENT_IN1; | |||
| 92761 | capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi); | |||
| 92762 | if (capi_e_tmp == NULL((void*)0)) { | |||
| 92763 | if (!PyErr_Occurred()) | |||
| 92764 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dstev to C/Fortran array" ); | |||
| 92765 | } else { | |||
| 92766 | e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data)); | |||
| 92767 | ||||
| 92768 | /* Processing variable ldz */ | |||
| 92769 | ldz = (compute_v?n:1); | |||
| 92770 | /* Processing variable z */ | |||
| 92771 | z_Dims[0]=ldz,z_Dims[1]=(compute_v?n:1); | |||
| 92772 | capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 92773 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct)); | |||
| 92774 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 92775 | if (!PyErr_Occurred()) | |||
| 92776 | PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dstev to C/Fortran array" ); | |||
| 92777 | } else { | |||
| 92778 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 92779 | ||||
| 92780 | /* Processing variable work */ | |||
| 92781 | work_Dims[0]=(compute_v?MAX(1,2*n-2)((1 > 2*n-2) ? (1) : (2*n-2)):1); | |||
| 92782 | capi_work_intent |= F2PY_INTENT_HIDE8; | |||
| 92783 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 92784 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 92785 | if (!PyErr_Occurred()) | |||
| 92786 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dstev to C/Fortran array" ); | |||
| 92787 | } else { | |||
| 92788 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 92789 | ||||
| 92790 | /*end of frompyobj*/ | |||
| 92791 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92792 | f2py_start_call_clock(); | |||
| 92793 | #endif | |||
| 92794 | /*callfortranroutine*/ | |||
| 92795 | (*f2py_func)((compute_v?"V":"N"),&n,d,e,z,&ldz,work,&info) ; | |||
| 92796 | /*(*f2py_func)(d,e,&compute_v,&n,z,&ldz,work,&info);*/ | |||
| 92797 | if (PyErr_Occurred()) | |||
| 92798 | f2py_success = 0; | |||
| 92799 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92800 | f2py_stop_call_clock(); | |||
| 92801 | #endif | |||
| 92802 | /*end of callfortranroutine*/ | |||
| 92803 | if (f2py_success) { | |||
| 92804 | /*pyobjfrom*/ | |||
| 92805 | /*end of pyobjfrom*/ | |||
| 92806 | CFUNCSMESS("Building return value.\n"); | |||
| 92807 | capi_buildvalue = Py_BuildValue("NNi",capi_d_tmp,capi_z_tmp,info); | |||
| 92808 | /*closepyobjfrom*/ | |||
| 92809 | /*end of closepyobjfrom*/ | |||
| 92810 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 92811 | /*cleanupfrompyobj*/ | |||
| 92812 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 92813 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 92814 | /* End of cleaning variable work */ | |||
| 92815 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 92816 | /* End of cleaning variable z */ | |||
| 92817 | /* End of cleaning variable ldz */ | |||
| 92818 | if((PyObject *)capi_e_tmp!=e_capi) { | |||
| 92819 | Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); } | |||
| 92820 | } /*if (capi_e_tmp == NULL) ... else of e*/ | |||
| 92821 | /* End of cleaning variable e */ | |||
| 92822 | } /*CHECKSCALAR(n>0)*/ | |||
| 92823 | /* End of cleaning variable n */ | |||
| 92824 | /* End of cleaning variable info */ | |||
| 92825 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 92826 | /* End of cleaning variable d */ | |||
| 92827 | } /*if (f2py_success) of compute_v*/ | |||
| 92828 | /* End of cleaning variable compute_v */ | |||
| 92829 | /*end of cleanupfrompyobj*/ | |||
| 92830 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 92831 | /*routdebugfailure*/ | |||
| 92832 | } else { | |||
| 92833 | /*routdebugleave*/ | |||
| 92834 | } | |||
| 92835 | CFUNCSMESS("Freeing memory.\n"); | |||
| 92836 | /*freemem*/ | |||
| 92837 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92838 | f2py_stop_clock(); | |||
| 92839 | #endif | |||
| 92840 | return capi_buildvalue; | |||
| 92841 | } | |||
| 92842 | /******************************** end of dstev ********************************/ | |||
| 92843 | ||||
| 92844 | /*********************************** ssfrk ***********************************/ | |||
| 92845 | static char doc_f2py_rout__flapack_ssfrk[] = "\ | |||
| 92846 | cout = ssfrk(n,k,alpha,a,beta,c,[transr,uplo,trans,overwrite_c])\n\nWrapper for ``ssfrk``.\ | |||
| 92847 | \n\nParameters\n----------\n" | |||
| 92848 | "n : input int\n" | |||
| 92849 | "k : input int\n" | |||
| 92850 | "alpha : input float\n" | |||
| 92851 | "a : input rank-2 array('f') with bounds (lda,ka)\n" | |||
| 92852 | "beta : input float\n" | |||
| 92853 | "c : input rank-1 array('f') with bounds (nt)\n" | |||
| 92854 | "\nOther Parameters\n----------------\n" | |||
| 92855 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 92856 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 92857 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 92858 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 92859 | "\nReturns\n-------\n" | |||
| 92860 | "cout : rank-1 array('f') with bounds (nt) and c storage"; | |||
| 92861 | /* extern void F_FUNC(ssfrk,SSFRK)(char*,char*,char*,F_INT*,F_INT*,float*,float*,F_INT*,float*,float* ); */ | |||
| 92862 | static PyObject *f2py_rout__flapack_ssfrk(const PyObject *capi_self, | |||
| 92863 | PyObject *capi_args, | |||
| 92864 | PyObject *capi_keywds, | |||
| 92865 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,float*,float* )) { | |||
| 92866 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 92867 | volatile int f2py_success = 1; | |||
| 92868 | /*decl*/ | |||
| 92869 | ||||
| 92870 | string transr = NULL((void*)0); | |||
| 92871 | int slen(transr)capi_transr_len; | |||
| 92872 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 92873 | string uplo = NULL((void*)0); | |||
| 92874 | int slen(uplo)capi_uplo_len; | |||
| 92875 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 92876 | string trans = NULL((void*)0); | |||
| 92877 | int slen(trans)capi_trans_len; | |||
| 92878 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 92879 | int n = 0; | |||
| 92880 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 92881 | int k = 0; | |||
| 92882 | PyObject *k_capi = Py_None(&_Py_NoneStruct); | |||
| 92883 | int nt = 0; | |||
| 92884 | int ka = 0; | |||
| 92885 | float alpha = 0; | |||
| 92886 | PyObject *alpha_capi = Py_None(&_Py_NoneStruct); | |||
| 92887 | float *a = NULL((void*)0); | |||
| 92888 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 92889 | const int a_Rank = 2; | |||
| 92890 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 92891 | int capi_a_intent = 0; | |||
| 92892 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 92893 | int lda = 0; | |||
| 92894 | float beta = 0; | |||
| 92895 | PyObject *beta_capi = Py_None(&_Py_NoneStruct); | |||
| 92896 | float *c = NULL((void*)0); | |||
| 92897 | npy_intp c_Dims[1] = {-1}; | |||
| 92898 | const int c_Rank = 1; | |||
| 92899 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 92900 | int capi_c_intent = 0; | |||
| 92901 | int capi_overwrite_c = 0; | |||
| 92902 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 92903 | static char *capi_kwlist[] = {"n","k","alpha","a","beta","c","transr","uplo","trans","overwrite_c",NULL((void*)0)}; | |||
| 92904 | ||||
| 92905 | /*routdebugenter*/ | |||
| 92906 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92907 | f2py_start_clock(); | |||
| 92908 | #endif | |||
| 92909 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 92910 | "OOOOOO|OOOi:_flapack.ssfrk",\ | |||
| 92911 | capi_kwlist,&n_capi,&k_capi,&alpha_capi,&a_capi,&beta_capi,&c_capi,&transr_capi,&uplo_capi,&trans_capi,&capi_overwrite_c)) | |||
| 92912 | return NULL((void*)0); | |||
| 92913 | /*frompyobj*/ | |||
| 92914 | /* Processing variable uplo */ | |||
| 92915 | slen(uplo)capi_uplo_len = 1; | |||
| 92916 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ssfrk to C string"); | |||
| 92917 | if (f2py_success) { | |||
| 92918 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ssfrk:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssfrk:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 92919 | /* Processing variable n */ | |||
| 92920 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssfrk() 1st argument (n) can't be converted to int"); | |||
| 92921 | if (f2py_success) { | |||
| 92922 | CHECKSCALAR(n>=0,"n>=0","1st argument n","ssfrk:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssfrk:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 92923 | /* Processing variable k */ | |||
| 92924 | f2py_success = int_from_pyobj(&k,k_capi,"_flapack.ssfrk() 2nd argument (k) can't be converted to int"); | |||
| 92925 | if (f2py_success) { | |||
| 92926 | CHECKSCALAR(k>=0,"k>=0","2nd argument k","ssfrk:k=%d",k)if (!(k>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssfrk:k=%d", "(""k>=0"") failed for ""2nd argument k" , k); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 92927 | /* Processing variable alpha */ | |||
| 92928 | f2py_success = float_from_pyobj(&alpha,alpha_capi,"_flapack.ssfrk() 3rd argument (alpha) can't be converted to float"); | |||
| 92929 | if (f2py_success) { | |||
| 92930 | /* Processing variable beta */ | |||
| 92931 | f2py_success = float_from_pyobj(&beta,beta_capi,"_flapack.ssfrk() 5th argument (beta) can't be converted to float"); | |||
| 92932 | if (f2py_success) { | |||
| 92933 | /* Processing variable a */ | |||
| 92934 | ; | |||
| 92935 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 92936 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 92937 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 92938 | if (!PyErr_Occurred()) | |||
| 92939 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.ssfrk to C/Fortran array" ); | |||
| 92940 | } else { | |||
| 92941 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 92942 | ||||
| 92943 | /* Processing variable c */ | |||
| 92944 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 92945 | ; | |||
| 92946 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 92947 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 92948 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 92949 | if (!PyErr_Occurred()) | |||
| 92950 | PyErr_SetString(_flapack_error,"failed in converting 6th argument `c' of _flapack.ssfrk to C/Fortran array" ); | |||
| 92951 | } else { | |||
| 92952 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 92953 | ||||
| 92954 | /* Processing variable transr */ | |||
| 92955 | slen(transr)capi_transr_len = 1; | |||
| 92956 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ssfrk to C string"); | |||
| 92957 | if (f2py_success) { | |||
| 92958 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","ssfrk:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssfrk:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 92959 | /* Processing variable trans */ | |||
| 92960 | slen(trans)capi_trans_len = 1; | |||
| 92961 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 3rd keyword `trans' of _flapack.ssfrk to C string"); | |||
| 92962 | if (f2py_success) { | |||
| 92963 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","3rd keyword trans","ssfrk:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssfrk:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""3rd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 92964 | /* Processing variable ka */ | |||
| 92965 | ka = shape(a,1)a_Dims[1]; | |||
| 92966 | CHECKSCALAR(ka==(*trans=='N'?k:n),"ka==(*trans=='N'?k:n)","hidden ka","ssfrk:ka=%d",ka)if (!(ka==(*trans=='N'?k:n))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssfrk:ka=%d", "(""ka==(*trans=='N'?k:n)"") failed for " "hidden ka", ka); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 92967 | /* Processing variable lda */ | |||
| 92968 | lda = MAX((*trans=='N'?n:k),1)(((*trans=='N'?n:k) > 1) ? ((*trans=='N'?n:k)) : (1)); | |||
| 92969 | /* Processing variable nt */ | |||
| 92970 | nt = shape(c,0)c_Dims[0]; | |||
| 92971 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ssfrk:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ssfrk:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 92972 | /*end of frompyobj*/ | |||
| 92973 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92974 | f2py_start_call_clock(); | |||
| 92975 | #endif | |||
| 92976 | /*callfortranroutine*/ | |||
| 92977 | (*f2py_func)(transr,uplo,trans,&n,&k,&alpha,a,&lda,&beta,c) ; | |||
| 92978 | /*(*f2py_func)(transr,uplo,trans,&n,&k,&nt,&ka,&alpha,a,&lda,&beta,c,slen(transr),slen(uplo),slen(trans));*/ | |||
| 92979 | if (PyErr_Occurred()) | |||
| 92980 | f2py_success = 0; | |||
| 92981 | #ifdef F2PY_REPORT_ATEXIT | |||
| 92982 | f2py_stop_call_clock(); | |||
| 92983 | #endif | |||
| 92984 | /*end of callfortranroutine*/ | |||
| 92985 | if (f2py_success) { | |||
| 92986 | /*pyobjfrom*/ | |||
| 92987 | /*end of pyobjfrom*/ | |||
| 92988 | CFUNCSMESS("Building return value.\n"); | |||
| 92989 | capi_buildvalue = Py_BuildValue("N",capi_c_tmp); | |||
| 92990 | /*closepyobjfrom*/ | |||
| 92991 | /*end of closepyobjfrom*/ | |||
| 92992 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 92993 | /*cleanupfrompyobj*/ | |||
| 92994 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 92995 | /* End of cleaning variable nt */ | |||
| 92996 | /* End of cleaning variable lda */ | |||
| 92997 | } /*CHECKSCALAR(ka==(*trans=='N'?k:n))*/ | |||
| 92998 | /* End of cleaning variable ka */ | |||
| 92999 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 93000 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 93001 | } /*if (f2py_success) of trans*/ | |||
| 93002 | /* End of cleaning variable trans */ | |||
| 93003 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 93004 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 93005 | } /*if (f2py_success) of transr*/ | |||
| 93006 | /* End of cleaning variable transr */ | |||
| 93007 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 93008 | /* End of cleaning variable c */ | |||
| 93009 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 93010 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 93011 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 93012 | /* End of cleaning variable a */ | |||
| 93013 | } /*if (f2py_success) of beta*/ | |||
| 93014 | /* End of cleaning variable beta */ | |||
| 93015 | } /*if (f2py_success) of alpha*/ | |||
| 93016 | /* End of cleaning variable alpha */ | |||
| 93017 | } /*CHECKSCALAR(k>=0)*/ | |||
| 93018 | } /*if (f2py_success) of k*/ | |||
| 93019 | /* End of cleaning variable k */ | |||
| 93020 | } /*CHECKSCALAR(n>=0)*/ | |||
| 93021 | } /*if (f2py_success) of n*/ | |||
| 93022 | /* End of cleaning variable n */ | |||
| 93023 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 93024 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 93025 | } /*if (f2py_success) of uplo*/ | |||
| 93026 | /* End of cleaning variable uplo */ | |||
| 93027 | /*end of cleanupfrompyobj*/ | |||
| 93028 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 93029 | /*routdebugfailure*/ | |||
| 93030 | } else { | |||
| 93031 | /*routdebugleave*/ | |||
| 93032 | } | |||
| 93033 | CFUNCSMESS("Freeing memory.\n"); | |||
| 93034 | /*freemem*/ | |||
| 93035 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93036 | f2py_stop_clock(); | |||
| 93037 | #endif | |||
| 93038 | return capi_buildvalue; | |||
| 93039 | } | |||
| 93040 | /******************************** end of ssfrk ********************************/ | |||
| 93041 | ||||
| 93042 | /*********************************** dsfrk ***********************************/ | |||
| 93043 | static char doc_f2py_rout__flapack_dsfrk[] = "\ | |||
| 93044 | cout = dsfrk(n,k,alpha,a,beta,c,[transr,uplo,trans,overwrite_c])\n\nWrapper for ``dsfrk``.\ | |||
| 93045 | \n\nParameters\n----------\n" | |||
| 93046 | "n : input int\n" | |||
| 93047 | "k : input int\n" | |||
| 93048 | "alpha : input float\n" | |||
| 93049 | "a : input rank-2 array('d') with bounds (lda,ka)\n" | |||
| 93050 | "beta : input float\n" | |||
| 93051 | "c : input rank-1 array('d') with bounds (nt)\n" | |||
| 93052 | "\nOther Parameters\n----------------\n" | |||
| 93053 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 93054 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 93055 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 93056 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 93057 | "\nReturns\n-------\n" | |||
| 93058 | "cout : rank-1 array('d') with bounds (nt) and c storage"; | |||
| 93059 | /* extern void F_FUNC(dsfrk,DSFRK)(char*,char*,char*,F_INT*,F_INT*,double*,double*,F_INT*,double*,double* ); */ | |||
| 93060 | static PyObject *f2py_rout__flapack_dsfrk(const PyObject *capi_self, | |||
| 93061 | PyObject *capi_args, | |||
| 93062 | PyObject *capi_keywds, | |||
| 93063 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,double*,double* )) { | |||
| 93064 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 93065 | volatile int f2py_success = 1; | |||
| 93066 | /*decl*/ | |||
| 93067 | ||||
| 93068 | string transr = NULL((void*)0); | |||
| 93069 | int slen(transr)capi_transr_len; | |||
| 93070 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 93071 | string uplo = NULL((void*)0); | |||
| 93072 | int slen(uplo)capi_uplo_len; | |||
| 93073 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 93074 | string trans = NULL((void*)0); | |||
| 93075 | int slen(trans)capi_trans_len; | |||
| 93076 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 93077 | int n = 0; | |||
| 93078 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 93079 | int k = 0; | |||
| 93080 | PyObject *k_capi = Py_None(&_Py_NoneStruct); | |||
| 93081 | int nt = 0; | |||
| 93082 | int ka = 0; | |||
| 93083 | double alpha = 0; | |||
| 93084 | PyObject *alpha_capi = Py_None(&_Py_NoneStruct); | |||
| 93085 | double *a = NULL((void*)0); | |||
| 93086 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 93087 | const int a_Rank = 2; | |||
| 93088 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 93089 | int capi_a_intent = 0; | |||
| 93090 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 93091 | int lda = 0; | |||
| 93092 | double beta = 0; | |||
| 93093 | PyObject *beta_capi = Py_None(&_Py_NoneStruct); | |||
| 93094 | double *c = NULL((void*)0); | |||
| 93095 | npy_intp c_Dims[1] = {-1}; | |||
| 93096 | const int c_Rank = 1; | |||
| 93097 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 93098 | int capi_c_intent = 0; | |||
| 93099 | int capi_overwrite_c = 0; | |||
| 93100 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 93101 | static char *capi_kwlist[] = {"n","k","alpha","a","beta","c","transr","uplo","trans","overwrite_c",NULL((void*)0)}; | |||
| 93102 | ||||
| 93103 | /*routdebugenter*/ | |||
| 93104 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93105 | f2py_start_clock(); | |||
| 93106 | #endif | |||
| 93107 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 93108 | "OOOOOO|OOOi:_flapack.dsfrk",\ | |||
| 93109 | capi_kwlist,&n_capi,&k_capi,&alpha_capi,&a_capi,&beta_capi,&c_capi,&transr_capi,&uplo_capi,&trans_capi,&capi_overwrite_c)) | |||
| 93110 | return NULL((void*)0); | |||
| 93111 | /*frompyobj*/ | |||
| 93112 | /* Processing variable uplo */ | |||
| 93113 | slen(uplo)capi_uplo_len = 1; | |||
| 93114 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dsfrk to C string"); | |||
| 93115 | if (f2py_success) { | |||
| 93116 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dsfrk:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsfrk:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 93117 | /* Processing variable n */ | |||
| 93118 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsfrk() 1st argument (n) can't be converted to int"); | |||
| 93119 | if (f2py_success) { | |||
| 93120 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dsfrk:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsfrk:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93121 | /* Processing variable k */ | |||
| 93122 | f2py_success = int_from_pyobj(&k,k_capi,"_flapack.dsfrk() 2nd argument (k) can't be converted to int"); | |||
| 93123 | if (f2py_success) { | |||
| 93124 | CHECKSCALAR(k>=0,"k>=0","2nd argument k","dsfrk:k=%d",k)if (!(k>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsfrk:k=%d", "(""k>=0"") failed for ""2nd argument k" , k); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93125 | /* Processing variable alpha */ | |||
| 93126 | f2py_success = double_from_pyobj(&alpha,alpha_capi,"_flapack.dsfrk() 3rd argument (alpha) can't be converted to double"); | |||
| 93127 | if (f2py_success) { | |||
| 93128 | /* Processing variable beta */ | |||
| 93129 | f2py_success = double_from_pyobj(&beta,beta_capi,"_flapack.dsfrk() 5th argument (beta) can't be converted to double"); | |||
| 93130 | if (f2py_success) { | |||
| 93131 | /* Processing variable a */ | |||
| 93132 | ; | |||
| 93133 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 93134 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 93135 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 93136 | if (!PyErr_Occurred()) | |||
| 93137 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.dsfrk to C/Fortran array" ); | |||
| 93138 | } else { | |||
| 93139 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 93140 | ||||
| 93141 | /* Processing variable c */ | |||
| 93142 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 93143 | ; | |||
| 93144 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 93145 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 93146 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 93147 | if (!PyErr_Occurred()) | |||
| 93148 | PyErr_SetString(_flapack_error,"failed in converting 6th argument `c' of _flapack.dsfrk to C/Fortran array" ); | |||
| 93149 | } else { | |||
| 93150 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 93151 | ||||
| 93152 | /* Processing variable transr */ | |||
| 93153 | slen(transr)capi_transr_len = 1; | |||
| 93154 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dsfrk to C string"); | |||
| 93155 | if (f2py_success) { | |||
| 93156 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dsfrk:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsfrk:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 93157 | /* Processing variable trans */ | |||
| 93158 | slen(trans)capi_trans_len = 1; | |||
| 93159 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 3rd keyword `trans' of _flapack.dsfrk to C string"); | |||
| 93160 | if (f2py_success) { | |||
| 93161 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","3rd keyword trans","dsfrk:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsfrk:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""3rd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 93162 | /* Processing variable ka */ | |||
| 93163 | ka = shape(a,1)a_Dims[1]; | |||
| 93164 | CHECKSCALAR(ka==(*trans=='N'?k:n),"ka==(*trans=='N'?k:n)","hidden ka","dsfrk:ka=%d",ka)if (!(ka==(*trans=='N'?k:n))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsfrk:ka=%d", "(""ka==(*trans=='N'?k:n)"") failed for " "hidden ka", ka); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93165 | /* Processing variable lda */ | |||
| 93166 | lda = MAX((*trans=='N'?n:k),1)(((*trans=='N'?n:k) > 1) ? ((*trans=='N'?n:k)) : (1)); | |||
| 93167 | /* Processing variable nt */ | |||
| 93168 | nt = shape(c,0)c_Dims[0]; | |||
| 93169 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dsfrk:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dsfrk:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93170 | /*end of frompyobj*/ | |||
| 93171 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93172 | f2py_start_call_clock(); | |||
| 93173 | #endif | |||
| 93174 | /*callfortranroutine*/ | |||
| 93175 | (*f2py_func)(transr,uplo,trans,&n,&k,&alpha,a,&lda,&beta,c) ; | |||
| 93176 | /*(*f2py_func)(transr,uplo,trans,&n,&k,&nt,&ka,&alpha,a,&lda,&beta,c,slen(transr),slen(uplo),slen(trans));*/ | |||
| 93177 | if (PyErr_Occurred()) | |||
| 93178 | f2py_success = 0; | |||
| 93179 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93180 | f2py_stop_call_clock(); | |||
| 93181 | #endif | |||
| 93182 | /*end of callfortranroutine*/ | |||
| 93183 | if (f2py_success) { | |||
| 93184 | /*pyobjfrom*/ | |||
| 93185 | /*end of pyobjfrom*/ | |||
| 93186 | CFUNCSMESS("Building return value.\n"); | |||
| 93187 | capi_buildvalue = Py_BuildValue("N",capi_c_tmp); | |||
| 93188 | /*closepyobjfrom*/ | |||
| 93189 | /*end of closepyobjfrom*/ | |||
| 93190 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 93191 | /*cleanupfrompyobj*/ | |||
| 93192 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 93193 | /* End of cleaning variable nt */ | |||
| 93194 | /* End of cleaning variable lda */ | |||
| 93195 | } /*CHECKSCALAR(ka==(*trans=='N'?k:n))*/ | |||
| 93196 | /* End of cleaning variable ka */ | |||
| 93197 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 93198 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 93199 | } /*if (f2py_success) of trans*/ | |||
| 93200 | /* End of cleaning variable trans */ | |||
| 93201 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 93202 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 93203 | } /*if (f2py_success) of transr*/ | |||
| 93204 | /* End of cleaning variable transr */ | |||
| 93205 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 93206 | /* End of cleaning variable c */ | |||
| 93207 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 93208 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 93209 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 93210 | /* End of cleaning variable a */ | |||
| 93211 | } /*if (f2py_success) of beta*/ | |||
| 93212 | /* End of cleaning variable beta */ | |||
| 93213 | } /*if (f2py_success) of alpha*/ | |||
| 93214 | /* End of cleaning variable alpha */ | |||
| 93215 | } /*CHECKSCALAR(k>=0)*/ | |||
| 93216 | } /*if (f2py_success) of k*/ | |||
| 93217 | /* End of cleaning variable k */ | |||
| 93218 | } /*CHECKSCALAR(n>=0)*/ | |||
| 93219 | } /*if (f2py_success) of n*/ | |||
| 93220 | /* End of cleaning variable n */ | |||
| 93221 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 93222 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 93223 | } /*if (f2py_success) of uplo*/ | |||
| 93224 | /* End of cleaning variable uplo */ | |||
| 93225 | /*end of cleanupfrompyobj*/ | |||
| 93226 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 93227 | /*routdebugfailure*/ | |||
| 93228 | } else { | |||
| 93229 | /*routdebugleave*/ | |||
| 93230 | } | |||
| 93231 | CFUNCSMESS("Freeing memory.\n"); | |||
| 93232 | /*freemem*/ | |||
| 93233 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93234 | f2py_stop_clock(); | |||
| 93235 | #endif | |||
| 93236 | return capi_buildvalue; | |||
| 93237 | } | |||
| 93238 | /******************************** end of dsfrk ********************************/ | |||
| 93239 | ||||
| 93240 | /*********************************** chfrk ***********************************/ | |||
| 93241 | static char doc_f2py_rout__flapack_chfrk[] = "\ | |||
| 93242 | cout = chfrk(n,k,alpha,a,beta,c,[transr,uplo,trans,overwrite_c])\n\nWrapper for ``chfrk``.\ | |||
| 93243 | \n\nParameters\n----------\n" | |||
| 93244 | "n : input int\n" | |||
| 93245 | "k : input int\n" | |||
| 93246 | "alpha : input float\n" | |||
| 93247 | "a : input rank-2 array('F') with bounds (lda,ka)\n" | |||
| 93248 | "beta : input float\n" | |||
| 93249 | "c : input rank-1 array('F') with bounds (nt)\n" | |||
| 93250 | "\nOther Parameters\n----------------\n" | |||
| 93251 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 93252 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 93253 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 93254 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 93255 | "\nReturns\n-------\n" | |||
| 93256 | "cout : rank-1 array('F') with bounds (nt) and c storage"; | |||
| 93257 | /* extern void F_FUNC(chfrk,CHFRK)(char*,char*,char*,F_INT*,F_INT*,float*,complex_float*,F_INT*,float*,complex_float* ); */ | |||
| 93258 | static PyObject *f2py_rout__flapack_chfrk(const PyObject *capi_self, | |||
| 93259 | PyObject *capi_args, | |||
| 93260 | PyObject *capi_keywds, | |||
| 93261 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,float*,complex_float*,F_INTint*,float*,complex_float* )) { | |||
| 93262 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 93263 | volatile int f2py_success = 1; | |||
| 93264 | /*decl*/ | |||
| 93265 | ||||
| 93266 | string transr = NULL((void*)0); | |||
| 93267 | int slen(transr)capi_transr_len; | |||
| 93268 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 93269 | string uplo = NULL((void*)0); | |||
| 93270 | int slen(uplo)capi_uplo_len; | |||
| 93271 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 93272 | string trans = NULL((void*)0); | |||
| 93273 | int slen(trans)capi_trans_len; | |||
| 93274 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 93275 | int n = 0; | |||
| 93276 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 93277 | int k = 0; | |||
| 93278 | PyObject *k_capi = Py_None(&_Py_NoneStruct); | |||
| 93279 | int nt = 0; | |||
| 93280 | int ka = 0; | |||
| 93281 | float alpha = 0; | |||
| 93282 | PyObject *alpha_capi = Py_None(&_Py_NoneStruct); | |||
| 93283 | complex_float *a = NULL((void*)0); | |||
| 93284 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 93285 | const int a_Rank = 2; | |||
| 93286 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 93287 | int capi_a_intent = 0; | |||
| 93288 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 93289 | int lda = 0; | |||
| 93290 | float beta = 0; | |||
| 93291 | PyObject *beta_capi = Py_None(&_Py_NoneStruct); | |||
| 93292 | complex_float *c = NULL((void*)0); | |||
| 93293 | npy_intp c_Dims[1] = {-1}; | |||
| 93294 | const int c_Rank = 1; | |||
| 93295 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 93296 | int capi_c_intent = 0; | |||
| 93297 | int capi_overwrite_c = 0; | |||
| 93298 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 93299 | static char *capi_kwlist[] = {"n","k","alpha","a","beta","c","transr","uplo","trans","overwrite_c",NULL((void*)0)}; | |||
| 93300 | ||||
| 93301 | /*routdebugenter*/ | |||
| 93302 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93303 | f2py_start_clock(); | |||
| 93304 | #endif | |||
| 93305 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 93306 | "OOOOOO|OOOi:_flapack.chfrk",\ | |||
| 93307 | capi_kwlist,&n_capi,&k_capi,&alpha_capi,&a_capi,&beta_capi,&c_capi,&transr_capi,&uplo_capi,&trans_capi,&capi_overwrite_c)) | |||
| 93308 | return NULL((void*)0); | |||
| 93309 | /*frompyobj*/ | |||
| 93310 | /* Processing variable uplo */ | |||
| 93311 | slen(uplo)capi_uplo_len = 1; | |||
| 93312 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.chfrk to C string"); | |||
| 93313 | if (f2py_success) { | |||
| 93314 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","chfrk:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chfrk:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 93315 | /* Processing variable n */ | |||
| 93316 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chfrk() 1st argument (n) can't be converted to int"); | |||
| 93317 | if (f2py_success) { | |||
| 93318 | CHECKSCALAR(n>=0,"n>=0","1st argument n","chfrk:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chfrk:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93319 | /* Processing variable k */ | |||
| 93320 | f2py_success = int_from_pyobj(&k,k_capi,"_flapack.chfrk() 2nd argument (k) can't be converted to int"); | |||
| 93321 | if (f2py_success) { | |||
| 93322 | CHECKSCALAR(k>=0,"k>=0","2nd argument k","chfrk:k=%d",k)if (!(k>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chfrk:k=%d", "(""k>=0"") failed for ""2nd argument k" , k); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93323 | /* Processing variable alpha */ | |||
| 93324 | f2py_success = float_from_pyobj(&alpha,alpha_capi,"_flapack.chfrk() 3rd argument (alpha) can't be converted to float"); | |||
| 93325 | if (f2py_success) { | |||
| 93326 | /* Processing variable beta */ | |||
| 93327 | f2py_success = float_from_pyobj(&beta,beta_capi,"_flapack.chfrk() 5th argument (beta) can't be converted to float"); | |||
| 93328 | if (f2py_success) { | |||
| 93329 | /* Processing variable a */ | |||
| 93330 | ; | |||
| 93331 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 93332 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 93333 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 93334 | if (!PyErr_Occurred()) | |||
| 93335 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.chfrk to C/Fortran array" ); | |||
| 93336 | } else { | |||
| 93337 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 93338 | ||||
| 93339 | /* Processing variable c */ | |||
| 93340 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 93341 | ; | |||
| 93342 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 93343 | capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 93344 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 93345 | if (!PyErr_Occurred()) | |||
| 93346 | PyErr_SetString(_flapack_error,"failed in converting 6th argument `c' of _flapack.chfrk to C/Fortran array" ); | |||
| 93347 | } else { | |||
| 93348 | c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 93349 | ||||
| 93350 | /* Processing variable transr */ | |||
| 93351 | slen(transr)capi_transr_len = 1; | |||
| 93352 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.chfrk to C string"); | |||
| 93353 | if (f2py_success) { | |||
| 93354 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","chfrk:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chfrk:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 93355 | /* Processing variable trans */ | |||
| 93356 | slen(trans)capi_trans_len = 1; | |||
| 93357 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 3rd keyword `trans' of _flapack.chfrk to C string"); | |||
| 93358 | if (f2py_success) { | |||
| 93359 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","3rd keyword trans","chfrk:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chfrk:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""3rd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 93360 | /* Processing variable ka */ | |||
| 93361 | ka = shape(a,1)a_Dims[1]; | |||
| 93362 | CHECKSCALAR(ka==(*trans=='N'?k:n),"ka==(*trans=='N'?k:n)","hidden ka","chfrk:ka=%d",ka)if (!(ka==(*trans=='N'?k:n))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chfrk:ka=%d", "(""ka==(*trans=='N'?k:n)"") failed for " "hidden ka", ka); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93363 | /* Processing variable lda */ | |||
| 93364 | lda = MAX((*trans=='N'?n:k),1)(((*trans=='N'?n:k) > 1) ? ((*trans=='N'?n:k)) : (1)); | |||
| 93365 | /* Processing variable nt */ | |||
| 93366 | nt = shape(c,0)c_Dims[0]; | |||
| 93367 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","chfrk:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""chfrk:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93368 | /*end of frompyobj*/ | |||
| 93369 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93370 | f2py_start_call_clock(); | |||
| 93371 | #endif | |||
| 93372 | /*callfortranroutine*/ | |||
| 93373 | (*f2py_func)(transr,uplo,trans,&n,&k,&alpha,a,&lda,&beta,c) ; | |||
| 93374 | /*(*f2py_func)(transr,uplo,trans,&n,&k,&nt,&ka,&alpha,a,&lda,&beta,c,slen(transr),slen(uplo),slen(trans));*/ | |||
| 93375 | if (PyErr_Occurred()) | |||
| 93376 | f2py_success = 0; | |||
| 93377 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93378 | f2py_stop_call_clock(); | |||
| 93379 | #endif | |||
| 93380 | /*end of callfortranroutine*/ | |||
| 93381 | if (f2py_success) { | |||
| 93382 | /*pyobjfrom*/ | |||
| 93383 | /*end of pyobjfrom*/ | |||
| 93384 | CFUNCSMESS("Building return value.\n"); | |||
| 93385 | capi_buildvalue = Py_BuildValue("N",capi_c_tmp); | |||
| 93386 | /*closepyobjfrom*/ | |||
| 93387 | /*end of closepyobjfrom*/ | |||
| 93388 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 93389 | /*cleanupfrompyobj*/ | |||
| 93390 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 93391 | /* End of cleaning variable nt */ | |||
| 93392 | /* End of cleaning variable lda */ | |||
| 93393 | } /*CHECKSCALAR(ka==(*trans=='N'?k:n))*/ | |||
| 93394 | /* End of cleaning variable ka */ | |||
| 93395 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 93396 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 93397 | } /*if (f2py_success) of trans*/ | |||
| 93398 | /* End of cleaning variable trans */ | |||
| 93399 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 93400 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 93401 | } /*if (f2py_success) of transr*/ | |||
| 93402 | /* End of cleaning variable transr */ | |||
| 93403 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 93404 | /* End of cleaning variable c */ | |||
| 93405 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 93406 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 93407 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 93408 | /* End of cleaning variable a */ | |||
| 93409 | } /*if (f2py_success) of beta*/ | |||
| 93410 | /* End of cleaning variable beta */ | |||
| 93411 | } /*if (f2py_success) of alpha*/ | |||
| 93412 | /* End of cleaning variable alpha */ | |||
| 93413 | } /*CHECKSCALAR(k>=0)*/ | |||
| 93414 | } /*if (f2py_success) of k*/ | |||
| 93415 | /* End of cleaning variable k */ | |||
| 93416 | } /*CHECKSCALAR(n>=0)*/ | |||
| 93417 | } /*if (f2py_success) of n*/ | |||
| 93418 | /* End of cleaning variable n */ | |||
| 93419 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 93420 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 93421 | } /*if (f2py_success) of uplo*/ | |||
| 93422 | /* End of cleaning variable uplo */ | |||
| 93423 | /*end of cleanupfrompyobj*/ | |||
| 93424 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 93425 | /*routdebugfailure*/ | |||
| 93426 | } else { | |||
| 93427 | /*routdebugleave*/ | |||
| 93428 | } | |||
| 93429 | CFUNCSMESS("Freeing memory.\n"); | |||
| 93430 | /*freemem*/ | |||
| 93431 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93432 | f2py_stop_clock(); | |||
| 93433 | #endif | |||
| 93434 | return capi_buildvalue; | |||
| 93435 | } | |||
| 93436 | /******************************** end of chfrk ********************************/ | |||
| 93437 | ||||
| 93438 | /*********************************** zhfrk ***********************************/ | |||
| 93439 | static char doc_f2py_rout__flapack_zhfrk[] = "\ | |||
| 93440 | cout = zhfrk(n,k,alpha,a,beta,c,[transr,uplo,trans,overwrite_c])\n\nWrapper for ``zhfrk``.\ | |||
| 93441 | \n\nParameters\n----------\n" | |||
| 93442 | "n : input int\n" | |||
| 93443 | "k : input int\n" | |||
| 93444 | "alpha : input float\n" | |||
| 93445 | "a : input rank-2 array('D') with bounds (lda,ka)\n" | |||
| 93446 | "beta : input float\n" | |||
| 93447 | "c : input rank-1 array('D') with bounds (nt)\n" | |||
| 93448 | "\nOther Parameters\n----------------\n" | |||
| 93449 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 93450 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 93451 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 93452 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 93453 | "\nReturns\n-------\n" | |||
| 93454 | "cout : rank-1 array('D') with bounds (nt) and c storage"; | |||
| 93455 | /* extern void F_FUNC(zhfrk,ZHFRK)(char*,char*,char*,F_INT*,F_INT*,double*,complex_double*,F_INT*,double*,complex_double* ); */ | |||
| 93456 | static PyObject *f2py_rout__flapack_zhfrk(const PyObject *capi_self, | |||
| 93457 | PyObject *capi_args, | |||
| 93458 | PyObject *capi_keywds, | |||
| 93459 | void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,double*,complex_double*,F_INTint*,double*,complex_double* )) { | |||
| 93460 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 93461 | volatile int f2py_success = 1; | |||
| 93462 | /*decl*/ | |||
| 93463 | ||||
| 93464 | string transr = NULL((void*)0); | |||
| 93465 | int slen(transr)capi_transr_len; | |||
| 93466 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 93467 | string uplo = NULL((void*)0); | |||
| 93468 | int slen(uplo)capi_uplo_len; | |||
| 93469 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 93470 | string trans = NULL((void*)0); | |||
| 93471 | int slen(trans)capi_trans_len; | |||
| 93472 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 93473 | int n = 0; | |||
| 93474 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 93475 | int k = 0; | |||
| 93476 | PyObject *k_capi = Py_None(&_Py_NoneStruct); | |||
| 93477 | int nt = 0; | |||
| 93478 | int ka = 0; | |||
| 93479 | double alpha = 0; | |||
| 93480 | PyObject *alpha_capi = Py_None(&_Py_NoneStruct); | |||
| 93481 | complex_double *a = NULL((void*)0); | |||
| 93482 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 93483 | const int a_Rank = 2; | |||
| 93484 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 93485 | int capi_a_intent = 0; | |||
| 93486 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 93487 | int lda = 0; | |||
| 93488 | double beta = 0; | |||
| 93489 | PyObject *beta_capi = Py_None(&_Py_NoneStruct); | |||
| 93490 | complex_double *c = NULL((void*)0); | |||
| 93491 | npy_intp c_Dims[1] = {-1}; | |||
| 93492 | const int c_Rank = 1; | |||
| 93493 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 93494 | int capi_c_intent = 0; | |||
| 93495 | int capi_overwrite_c = 0; | |||
| 93496 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 93497 | static char *capi_kwlist[] = {"n","k","alpha","a","beta","c","transr","uplo","trans","overwrite_c",NULL((void*)0)}; | |||
| 93498 | ||||
| 93499 | /*routdebugenter*/ | |||
| 93500 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93501 | f2py_start_clock(); | |||
| 93502 | #endif | |||
| 93503 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 93504 | "OOOOOO|OOOi:_flapack.zhfrk",\ | |||
| 93505 | capi_kwlist,&n_capi,&k_capi,&alpha_capi,&a_capi,&beta_capi,&c_capi,&transr_capi,&uplo_capi,&trans_capi,&capi_overwrite_c)) | |||
| 93506 | return NULL((void*)0); | |||
| 93507 | /*frompyobj*/ | |||
| 93508 | /* Processing variable uplo */ | |||
| 93509 | slen(uplo)capi_uplo_len = 1; | |||
| 93510 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.zhfrk to C string"); | |||
| 93511 | if (f2py_success) { | |||
| 93512 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","zhfrk:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhfrk:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 93513 | /* Processing variable n */ | |||
| 93514 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhfrk() 1st argument (n) can't be converted to int"); | |||
| 93515 | if (f2py_success) { | |||
| 93516 | CHECKSCALAR(n>=0,"n>=0","1st argument n","zhfrk:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhfrk:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93517 | /* Processing variable k */ | |||
| 93518 | f2py_success = int_from_pyobj(&k,k_capi,"_flapack.zhfrk() 2nd argument (k) can't be converted to int"); | |||
| 93519 | if (f2py_success) { | |||
| 93520 | CHECKSCALAR(k>=0,"k>=0","2nd argument k","zhfrk:k=%d",k)if (!(k>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhfrk:k=%d", "(""k>=0"") failed for ""2nd argument k" , k); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93521 | /* Processing variable alpha */ | |||
| 93522 | f2py_success = double_from_pyobj(&alpha,alpha_capi,"_flapack.zhfrk() 3rd argument (alpha) can't be converted to double"); | |||
| 93523 | if (f2py_success) { | |||
| 93524 | /* Processing variable beta */ | |||
| 93525 | f2py_success = double_from_pyobj(&beta,beta_capi,"_flapack.zhfrk() 5th argument (beta) can't be converted to double"); | |||
| 93526 | if (f2py_success) { | |||
| 93527 | /* Processing variable a */ | |||
| 93528 | ; | |||
| 93529 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 93530 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 93531 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 93532 | if (!PyErr_Occurred()) | |||
| 93533 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.zhfrk to C/Fortran array" ); | |||
| 93534 | } else { | |||
| 93535 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 93536 | ||||
| 93537 | /* Processing variable c */ | |||
| 93538 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 93539 | ; | |||
| 93540 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 93541 | capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 93542 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 93543 | if (!PyErr_Occurred()) | |||
| 93544 | PyErr_SetString(_flapack_error,"failed in converting 6th argument `c' of _flapack.zhfrk to C/Fortran array" ); | |||
| 93545 | } else { | |||
| 93546 | c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 93547 | ||||
| 93548 | /* Processing variable transr */ | |||
| 93549 | slen(transr)capi_transr_len = 1; | |||
| 93550 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.zhfrk to C string"); | |||
| 93551 | if (f2py_success) { | |||
| 93552 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","zhfrk:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhfrk:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 93553 | /* Processing variable trans */ | |||
| 93554 | slen(trans)capi_trans_len = 1; | |||
| 93555 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 3rd keyword `trans' of _flapack.zhfrk to C string"); | |||
| 93556 | if (f2py_success) { | |||
| 93557 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","3rd keyword trans","zhfrk:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhfrk:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""3rd keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 93558 | /* Processing variable ka */ | |||
| 93559 | ka = shape(a,1)a_Dims[1]; | |||
| 93560 | CHECKSCALAR(ka==(*trans=='N'?k:n),"ka==(*trans=='N'?k:n)","hidden ka","zhfrk:ka=%d",ka)if (!(ka==(*trans=='N'?k:n))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhfrk:ka=%d", "(""ka==(*trans=='N'?k:n)"") failed for " "hidden ka", ka); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93561 | /* Processing variable lda */ | |||
| 93562 | lda = MAX((*trans=='N'?n:k),1)(((*trans=='N'?n:k) > 1) ? ((*trans=='N'?n:k)) : (1)); | |||
| 93563 | /* Processing variable nt */ | |||
| 93564 | nt = shape(c,0)c_Dims[0]; | |||
| 93565 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","zhfrk:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zhfrk:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93566 | /*end of frompyobj*/ | |||
| 93567 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93568 | f2py_start_call_clock(); | |||
| 93569 | #endif | |||
| 93570 | /*callfortranroutine*/ | |||
| 93571 | (*f2py_func)(transr,uplo,trans,&n,&k,&alpha,a,&lda,&beta,c) ; | |||
| 93572 | /*(*f2py_func)(transr,uplo,trans,&n,&k,&nt,&ka,&alpha,a,&lda,&beta,c,slen(transr),slen(uplo),slen(trans));*/ | |||
| 93573 | if (PyErr_Occurred()) | |||
| 93574 | f2py_success = 0; | |||
| 93575 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93576 | f2py_stop_call_clock(); | |||
| 93577 | #endif | |||
| 93578 | /*end of callfortranroutine*/ | |||
| 93579 | if (f2py_success) { | |||
| 93580 | /*pyobjfrom*/ | |||
| 93581 | /*end of pyobjfrom*/ | |||
| 93582 | CFUNCSMESS("Building return value.\n"); | |||
| 93583 | capi_buildvalue = Py_BuildValue("N",capi_c_tmp); | |||
| 93584 | /*closepyobjfrom*/ | |||
| 93585 | /*end of closepyobjfrom*/ | |||
| 93586 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 93587 | /*cleanupfrompyobj*/ | |||
| 93588 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 93589 | /* End of cleaning variable nt */ | |||
| 93590 | /* End of cleaning variable lda */ | |||
| 93591 | } /*CHECKSCALAR(ka==(*trans=='N'?k:n))*/ | |||
| 93592 | /* End of cleaning variable ka */ | |||
| 93593 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 93594 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 93595 | } /*if (f2py_success) of trans*/ | |||
| 93596 | /* End of cleaning variable trans */ | |||
| 93597 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 93598 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 93599 | } /*if (f2py_success) of transr*/ | |||
| 93600 | /* End of cleaning variable transr */ | |||
| 93601 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 93602 | /* End of cleaning variable c */ | |||
| 93603 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 93604 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 93605 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 93606 | /* End of cleaning variable a */ | |||
| 93607 | } /*if (f2py_success) of beta*/ | |||
| 93608 | /* End of cleaning variable beta */ | |||
| 93609 | } /*if (f2py_success) of alpha*/ | |||
| 93610 | /* End of cleaning variable alpha */ | |||
| 93611 | } /*CHECKSCALAR(k>=0)*/ | |||
| 93612 | } /*if (f2py_success) of k*/ | |||
| 93613 | /* End of cleaning variable k */ | |||
| 93614 | } /*CHECKSCALAR(n>=0)*/ | |||
| 93615 | } /*if (f2py_success) of n*/ | |||
| 93616 | /* End of cleaning variable n */ | |||
| 93617 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 93618 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 93619 | } /*if (f2py_success) of uplo*/ | |||
| 93620 | /* End of cleaning variable uplo */ | |||
| 93621 | /*end of cleanupfrompyobj*/ | |||
| 93622 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 93623 | /*routdebugfailure*/ | |||
| 93624 | } else { | |||
| 93625 | /*routdebugleave*/ | |||
| 93626 | } | |||
| 93627 | CFUNCSMESS("Freeing memory.\n"); | |||
| 93628 | /*freemem*/ | |||
| 93629 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93630 | f2py_stop_clock(); | |||
| 93631 | #endif | |||
| 93632 | return capi_buildvalue; | |||
| 93633 | } | |||
| 93634 | /******************************** end of zhfrk ********************************/ | |||
| 93635 | ||||
| 93636 | /*********************************** stpttf ***********************************/ | |||
| 93637 | static char doc_f2py_rout__flapack_stpttf[] = "\ | |||
| 93638 | arf,info = stpttf(n,ap,[transr,uplo])\n\nWrapper for ``stpttf``.\ | |||
| 93639 | \n\nParameters\n----------\n" | |||
| 93640 | "n : input int\n" | |||
| 93641 | "ap : input rank-1 array('f') with bounds (nt)\n" | |||
| 93642 | "\nOther Parameters\n----------------\n" | |||
| 93643 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 93644 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 93645 | "\nReturns\n-------\n" | |||
| 93646 | "arf : rank-1 array('f') with bounds (nt)\n" | |||
| 93647 | "info : int"; | |||
| 93648 | /* extern void F_FUNC(stpttf,STPTTF)(char*,char*,F_INT*,float*,float*,F_INT* ); */ | |||
| 93649 | static PyObject *f2py_rout__flapack_stpttf(const PyObject *capi_self, | |||
| 93650 | PyObject *capi_args, | |||
| 93651 | PyObject *capi_keywds, | |||
| 93652 | void (*f2py_func)(char*,char*,F_INTint*,float*,float*,F_INTint* )) { | |||
| 93653 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 93654 | volatile int f2py_success = 1; | |||
| 93655 | /*decl*/ | |||
| 93656 | ||||
| 93657 | string transr = NULL((void*)0); | |||
| 93658 | int slen(transr)capi_transr_len; | |||
| 93659 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 93660 | string uplo = NULL((void*)0); | |||
| 93661 | int slen(uplo)capi_uplo_len; | |||
| 93662 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 93663 | int n = 0; | |||
| 93664 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 93665 | int nt = 0; | |||
| 93666 | float *ap = NULL((void*)0); | |||
| 93667 | npy_intp ap_Dims[1] = {-1}; | |||
| 93668 | const int ap_Rank = 1; | |||
| 93669 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 93670 | int capi_ap_intent = 0; | |||
| 93671 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 93672 | float *arf = NULL((void*)0); | |||
| 93673 | npy_intp arf_Dims[1] = {-1}; | |||
| 93674 | const int arf_Rank = 1; | |||
| 93675 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 93676 | int capi_arf_intent = 0; | |||
| 93677 | int info = 0; | |||
| 93678 | static char *capi_kwlist[] = {"n","ap","transr","uplo",NULL((void*)0)}; | |||
| 93679 | ||||
| 93680 | /*routdebugenter*/ | |||
| 93681 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93682 | f2py_start_clock(); | |||
| 93683 | #endif | |||
| 93684 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 93685 | "OO|OO:_flapack.stpttf",\ | |||
| 93686 | capi_kwlist,&n_capi,&ap_capi,&transr_capi,&uplo_capi)) | |||
| 93687 | return NULL((void*)0); | |||
| 93688 | /*frompyobj*/ | |||
| 93689 | /* Processing variable uplo */ | |||
| 93690 | slen(uplo)capi_uplo_len = 1; | |||
| 93691 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.stpttf to C string"); | |||
| 93692 | if (f2py_success) { | |||
| 93693 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","stpttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stpttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 93694 | /* Processing variable n */ | |||
| 93695 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.stpttf() 1st argument (n) can't be converted to int"); | |||
| 93696 | if (f2py_success) { | |||
| 93697 | CHECKSCALAR(n>=0,"n>=0","1st argument n","stpttf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stpttf:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93698 | /* Processing variable ap */ | |||
| 93699 | ; | |||
| 93700 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 93701 | capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 93702 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 93703 | if (!PyErr_Occurred()) | |||
| 93704 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.stpttf to C/Fortran array" ); | |||
| 93705 | } else { | |||
| 93706 | ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 93707 | ||||
| 93708 | /* Processing variable info */ | |||
| 93709 | /* Processing variable transr */ | |||
| 93710 | slen(transr)capi_transr_len = 1; | |||
| 93711 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.stpttf to C string"); | |||
| 93712 | if (f2py_success) { | |||
| 93713 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","stpttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stpttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 93714 | /* Processing variable nt */ | |||
| 93715 | nt = shape(ap,0)ap_Dims[0]; | |||
| 93716 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","stpttf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stpttf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93717 | /* Processing variable arf */ | |||
| 93718 | arf_Dims[0]=nt; | |||
| 93719 | capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 93720 | capi_arf_tmp = array_from_pyobj(NPY_FLOAT,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct)); | |||
| 93721 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 93722 | if (!PyErr_Occurred()) | |||
| 93723 | PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.stpttf to C/Fortran array" ); | |||
| 93724 | } else { | |||
| 93725 | arf = (float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 93726 | ||||
| 93727 | /*end of frompyobj*/ | |||
| 93728 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93729 | f2py_start_call_clock(); | |||
| 93730 | #endif | |||
| 93731 | /*callfortranroutine*/ | |||
| 93732 | (*f2py_func)(transr,uplo,&n,ap,arf,&info) ; | |||
| 93733 | /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/ | |||
| 93734 | if (PyErr_Occurred()) | |||
| 93735 | f2py_success = 0; | |||
| 93736 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93737 | f2py_stop_call_clock(); | |||
| 93738 | #endif | |||
| 93739 | /*end of callfortranroutine*/ | |||
| 93740 | if (f2py_success) { | |||
| 93741 | /*pyobjfrom*/ | |||
| 93742 | /*end of pyobjfrom*/ | |||
| 93743 | CFUNCSMESS("Building return value.\n"); | |||
| 93744 | capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info); | |||
| 93745 | /*closepyobjfrom*/ | |||
| 93746 | /*end of closepyobjfrom*/ | |||
| 93747 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 93748 | /*cleanupfrompyobj*/ | |||
| 93749 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 93750 | /* End of cleaning variable arf */ | |||
| 93751 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 93752 | /* End of cleaning variable nt */ | |||
| 93753 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 93754 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 93755 | } /*if (f2py_success) of transr*/ | |||
| 93756 | /* End of cleaning variable transr */ | |||
| 93757 | /* End of cleaning variable info */ | |||
| 93758 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 93759 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 93760 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 93761 | /* End of cleaning variable ap */ | |||
| 93762 | } /*CHECKSCALAR(n>=0)*/ | |||
| 93763 | } /*if (f2py_success) of n*/ | |||
| 93764 | /* End of cleaning variable n */ | |||
| 93765 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 93766 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 93767 | } /*if (f2py_success) of uplo*/ | |||
| 93768 | /* End of cleaning variable uplo */ | |||
| 93769 | /*end of cleanupfrompyobj*/ | |||
| 93770 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 93771 | /*routdebugfailure*/ | |||
| 93772 | } else { | |||
| 93773 | /*routdebugleave*/ | |||
| 93774 | } | |||
| 93775 | CFUNCSMESS("Freeing memory.\n"); | |||
| 93776 | /*freemem*/ | |||
| 93777 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93778 | f2py_stop_clock(); | |||
| 93779 | #endif | |||
| 93780 | return capi_buildvalue; | |||
| 93781 | } | |||
| 93782 | /******************************* end of stpttf *******************************/ | |||
| 93783 | ||||
| 93784 | /*********************************** dtpttf ***********************************/ | |||
| 93785 | static char doc_f2py_rout__flapack_dtpttf[] = "\ | |||
| 93786 | arf,info = dtpttf(n,ap,[transr,uplo])\n\nWrapper for ``dtpttf``.\ | |||
| 93787 | \n\nParameters\n----------\n" | |||
| 93788 | "n : input int\n" | |||
| 93789 | "ap : input rank-1 array('d') with bounds (nt)\n" | |||
| 93790 | "\nOther Parameters\n----------------\n" | |||
| 93791 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 93792 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 93793 | "\nReturns\n-------\n" | |||
| 93794 | "arf : rank-1 array('d') with bounds (nt)\n" | |||
| 93795 | "info : int"; | |||
| 93796 | /* extern void F_FUNC(dtpttf,DTPTTF)(char*,char*,F_INT*,double*,double*,F_INT* ); */ | |||
| 93797 | static PyObject *f2py_rout__flapack_dtpttf(const PyObject *capi_self, | |||
| 93798 | PyObject *capi_args, | |||
| 93799 | PyObject *capi_keywds, | |||
| 93800 | void (*f2py_func)(char*,char*,F_INTint*,double*,double*,F_INTint* )) { | |||
| 93801 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 93802 | volatile int f2py_success = 1; | |||
| 93803 | /*decl*/ | |||
| 93804 | ||||
| 93805 | string transr = NULL((void*)0); | |||
| 93806 | int slen(transr)capi_transr_len; | |||
| 93807 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 93808 | string uplo = NULL((void*)0); | |||
| 93809 | int slen(uplo)capi_uplo_len; | |||
| 93810 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 93811 | int n = 0; | |||
| 93812 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 93813 | int nt = 0; | |||
| 93814 | double *ap = NULL((void*)0); | |||
| 93815 | npy_intp ap_Dims[1] = {-1}; | |||
| 93816 | const int ap_Rank = 1; | |||
| 93817 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 93818 | int capi_ap_intent = 0; | |||
| 93819 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 93820 | double *arf = NULL((void*)0); | |||
| 93821 | npy_intp arf_Dims[1] = {-1}; | |||
| 93822 | const int arf_Rank = 1; | |||
| 93823 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 93824 | int capi_arf_intent = 0; | |||
| 93825 | int info = 0; | |||
| 93826 | static char *capi_kwlist[] = {"n","ap","transr","uplo",NULL((void*)0)}; | |||
| 93827 | ||||
| 93828 | /*routdebugenter*/ | |||
| 93829 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93830 | f2py_start_clock(); | |||
| 93831 | #endif | |||
| 93832 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 93833 | "OO|OO:_flapack.dtpttf",\ | |||
| 93834 | capi_kwlist,&n_capi,&ap_capi,&transr_capi,&uplo_capi)) | |||
| 93835 | return NULL((void*)0); | |||
| 93836 | /*frompyobj*/ | |||
| 93837 | /* Processing variable uplo */ | |||
| 93838 | slen(uplo)capi_uplo_len = 1; | |||
| 93839 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dtpttf to C string"); | |||
| 93840 | if (f2py_success) { | |||
| 93841 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dtpttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtpttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 93842 | /* Processing variable n */ | |||
| 93843 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dtpttf() 1st argument (n) can't be converted to int"); | |||
| 93844 | if (f2py_success) { | |||
| 93845 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dtpttf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtpttf:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93846 | /* Processing variable ap */ | |||
| 93847 | ; | |||
| 93848 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 93849 | capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 93850 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 93851 | if (!PyErr_Occurred()) | |||
| 93852 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dtpttf to C/Fortran array" ); | |||
| 93853 | } else { | |||
| 93854 | ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 93855 | ||||
| 93856 | /* Processing variable info */ | |||
| 93857 | /* Processing variable transr */ | |||
| 93858 | slen(transr)capi_transr_len = 1; | |||
| 93859 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dtpttf to C string"); | |||
| 93860 | if (f2py_success) { | |||
| 93861 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dtpttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtpttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 93862 | /* Processing variable nt */ | |||
| 93863 | nt = shape(ap,0)ap_Dims[0]; | |||
| 93864 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dtpttf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtpttf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93865 | /* Processing variable arf */ | |||
| 93866 | arf_Dims[0]=nt; | |||
| 93867 | capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 93868 | capi_arf_tmp = array_from_pyobj(NPY_DOUBLE,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct)); | |||
| 93869 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 93870 | if (!PyErr_Occurred()) | |||
| 93871 | PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.dtpttf to C/Fortran array" ); | |||
| 93872 | } else { | |||
| 93873 | arf = (double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 93874 | ||||
| 93875 | /*end of frompyobj*/ | |||
| 93876 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93877 | f2py_start_call_clock(); | |||
| 93878 | #endif | |||
| 93879 | /*callfortranroutine*/ | |||
| 93880 | (*f2py_func)(transr,uplo,&n,ap,arf,&info) ; | |||
| 93881 | /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/ | |||
| 93882 | if (PyErr_Occurred()) | |||
| 93883 | f2py_success = 0; | |||
| 93884 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93885 | f2py_stop_call_clock(); | |||
| 93886 | #endif | |||
| 93887 | /*end of callfortranroutine*/ | |||
| 93888 | if (f2py_success) { | |||
| 93889 | /*pyobjfrom*/ | |||
| 93890 | /*end of pyobjfrom*/ | |||
| 93891 | CFUNCSMESS("Building return value.\n"); | |||
| 93892 | capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info); | |||
| 93893 | /*closepyobjfrom*/ | |||
| 93894 | /*end of closepyobjfrom*/ | |||
| 93895 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 93896 | /*cleanupfrompyobj*/ | |||
| 93897 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 93898 | /* End of cleaning variable arf */ | |||
| 93899 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 93900 | /* End of cleaning variable nt */ | |||
| 93901 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 93902 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 93903 | } /*if (f2py_success) of transr*/ | |||
| 93904 | /* End of cleaning variable transr */ | |||
| 93905 | /* End of cleaning variable info */ | |||
| 93906 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 93907 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 93908 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 93909 | /* End of cleaning variable ap */ | |||
| 93910 | } /*CHECKSCALAR(n>=0)*/ | |||
| 93911 | } /*if (f2py_success) of n*/ | |||
| 93912 | /* End of cleaning variable n */ | |||
| 93913 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 93914 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 93915 | } /*if (f2py_success) of uplo*/ | |||
| 93916 | /* End of cleaning variable uplo */ | |||
| 93917 | /*end of cleanupfrompyobj*/ | |||
| 93918 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 93919 | /*routdebugfailure*/ | |||
| 93920 | } else { | |||
| 93921 | /*routdebugleave*/ | |||
| 93922 | } | |||
| 93923 | CFUNCSMESS("Freeing memory.\n"); | |||
| 93924 | /*freemem*/ | |||
| 93925 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93926 | f2py_stop_clock(); | |||
| 93927 | #endif | |||
| 93928 | return capi_buildvalue; | |||
| 93929 | } | |||
| 93930 | /******************************* end of dtpttf *******************************/ | |||
| 93931 | ||||
| 93932 | /*********************************** ctpttf ***********************************/ | |||
| 93933 | static char doc_f2py_rout__flapack_ctpttf[] = "\ | |||
| 93934 | arf,info = ctpttf(n,ap,[transr,uplo])\n\nWrapper for ``ctpttf``.\ | |||
| 93935 | \n\nParameters\n----------\n" | |||
| 93936 | "n : input int\n" | |||
| 93937 | "ap : input rank-1 array('F') with bounds (nt)\n" | |||
| 93938 | "\nOther Parameters\n----------------\n" | |||
| 93939 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 93940 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 93941 | "\nReturns\n-------\n" | |||
| 93942 | "arf : rank-1 array('F') with bounds (nt)\n" | |||
| 93943 | "info : int"; | |||
| 93944 | /* extern void F_FUNC(ctpttf,CTPTTF)(char*,char*,F_INT*,complex_float*,complex_float*,F_INT* ); */ | |||
| 93945 | static PyObject *f2py_rout__flapack_ctpttf(const PyObject *capi_self, | |||
| 93946 | PyObject *capi_args, | |||
| 93947 | PyObject *capi_keywds, | |||
| 93948 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,complex_float*,F_INTint* )) { | |||
| 93949 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 93950 | volatile int f2py_success = 1; | |||
| 93951 | /*decl*/ | |||
| 93952 | ||||
| 93953 | string transr = NULL((void*)0); | |||
| 93954 | int slen(transr)capi_transr_len; | |||
| 93955 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 93956 | string uplo = NULL((void*)0); | |||
| 93957 | int slen(uplo)capi_uplo_len; | |||
| 93958 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 93959 | int n = 0; | |||
| 93960 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 93961 | int nt = 0; | |||
| 93962 | complex_float *ap = NULL((void*)0); | |||
| 93963 | npy_intp ap_Dims[1] = {-1}; | |||
| 93964 | const int ap_Rank = 1; | |||
| 93965 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 93966 | int capi_ap_intent = 0; | |||
| 93967 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 93968 | complex_float *arf = NULL((void*)0); | |||
| 93969 | npy_intp arf_Dims[1] = {-1}; | |||
| 93970 | const int arf_Rank = 1; | |||
| 93971 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 93972 | int capi_arf_intent = 0; | |||
| 93973 | int info = 0; | |||
| 93974 | static char *capi_kwlist[] = {"n","ap","transr","uplo",NULL((void*)0)}; | |||
| 93975 | ||||
| 93976 | /*routdebugenter*/ | |||
| 93977 | #ifdef F2PY_REPORT_ATEXIT | |||
| 93978 | f2py_start_clock(); | |||
| 93979 | #endif | |||
| 93980 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 93981 | "OO|OO:_flapack.ctpttf",\ | |||
| 93982 | capi_kwlist,&n_capi,&ap_capi,&transr_capi,&uplo_capi)) | |||
| 93983 | return NULL((void*)0); | |||
| 93984 | /*frompyobj*/ | |||
| 93985 | /* Processing variable uplo */ | |||
| 93986 | slen(uplo)capi_uplo_len = 1; | |||
| 93987 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ctpttf to C string"); | |||
| 93988 | if (f2py_success) { | |||
| 93989 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ctpttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctpttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 93990 | /* Processing variable n */ | |||
| 93991 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ctpttf() 1st argument (n) can't be converted to int"); | |||
| 93992 | if (f2py_success) { | |||
| 93993 | CHECKSCALAR(n>=0,"n>=0","1st argument n","ctpttf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctpttf:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 93994 | /* Processing variable ap */ | |||
| 93995 | ; | |||
| 93996 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 93997 | capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 93998 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 93999 | if (!PyErr_Occurred()) | |||
| 94000 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.ctpttf to C/Fortran array" ); | |||
| 94001 | } else { | |||
| 94002 | ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 94003 | ||||
| 94004 | /* Processing variable info */ | |||
| 94005 | /* Processing variable transr */ | |||
| 94006 | slen(transr)capi_transr_len = 1; | |||
| 94007 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ctpttf to C string"); | |||
| 94008 | if (f2py_success) { | |||
| 94009 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ctpttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctpttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 94010 | /* Processing variable nt */ | |||
| 94011 | nt = shape(ap,0)ap_Dims[0]; | |||
| 94012 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ctpttf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctpttf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94013 | /* Processing variable arf */ | |||
| 94014 | arf_Dims[0]=nt; | |||
| 94015 | capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 94016 | capi_arf_tmp = array_from_pyobj(NPY_CFLOAT,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct)); | |||
| 94017 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 94018 | if (!PyErr_Occurred()) | |||
| 94019 | PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.ctpttf to C/Fortran array" ); | |||
| 94020 | } else { | |||
| 94021 | arf = (complex_float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 94022 | ||||
| 94023 | /*end of frompyobj*/ | |||
| 94024 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94025 | f2py_start_call_clock(); | |||
| 94026 | #endif | |||
| 94027 | /*callfortranroutine*/ | |||
| 94028 | (*f2py_func)(transr,uplo,&n,ap,arf,&info) ; | |||
| 94029 | /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/ | |||
| 94030 | if (PyErr_Occurred()) | |||
| 94031 | f2py_success = 0; | |||
| 94032 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94033 | f2py_stop_call_clock(); | |||
| 94034 | #endif | |||
| 94035 | /*end of callfortranroutine*/ | |||
| 94036 | if (f2py_success) { | |||
| 94037 | /*pyobjfrom*/ | |||
| 94038 | /*end of pyobjfrom*/ | |||
| 94039 | CFUNCSMESS("Building return value.\n"); | |||
| 94040 | capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info); | |||
| 94041 | /*closepyobjfrom*/ | |||
| 94042 | /*end of closepyobjfrom*/ | |||
| 94043 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 94044 | /*cleanupfrompyobj*/ | |||
| 94045 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 94046 | /* End of cleaning variable arf */ | |||
| 94047 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 94048 | /* End of cleaning variable nt */ | |||
| 94049 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 94050 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 94051 | } /*if (f2py_success) of transr*/ | |||
| 94052 | /* End of cleaning variable transr */ | |||
| 94053 | /* End of cleaning variable info */ | |||
| 94054 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 94055 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 94056 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 94057 | /* End of cleaning variable ap */ | |||
| 94058 | } /*CHECKSCALAR(n>=0)*/ | |||
| 94059 | } /*if (f2py_success) of n*/ | |||
| 94060 | /* End of cleaning variable n */ | |||
| 94061 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 94062 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 94063 | } /*if (f2py_success) of uplo*/ | |||
| 94064 | /* End of cleaning variable uplo */ | |||
| 94065 | /*end of cleanupfrompyobj*/ | |||
| 94066 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 94067 | /*routdebugfailure*/ | |||
| 94068 | } else { | |||
| 94069 | /*routdebugleave*/ | |||
| 94070 | } | |||
| 94071 | CFUNCSMESS("Freeing memory.\n"); | |||
| 94072 | /*freemem*/ | |||
| 94073 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94074 | f2py_stop_clock(); | |||
| 94075 | #endif | |||
| 94076 | return capi_buildvalue; | |||
| 94077 | } | |||
| 94078 | /******************************* end of ctpttf *******************************/ | |||
| 94079 | ||||
| 94080 | /*********************************** ztpttf ***********************************/ | |||
| 94081 | static char doc_f2py_rout__flapack_ztpttf[] = "\ | |||
| 94082 | arf,info = ztpttf(n,ap,[transr,uplo])\n\nWrapper for ``ztpttf``.\ | |||
| 94083 | \n\nParameters\n----------\n" | |||
| 94084 | "n : input int\n" | |||
| 94085 | "ap : input rank-1 array('D') with bounds (nt)\n" | |||
| 94086 | "\nOther Parameters\n----------------\n" | |||
| 94087 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 94088 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 94089 | "\nReturns\n-------\n" | |||
| 94090 | "arf : rank-1 array('D') with bounds (nt)\n" | |||
| 94091 | "info : int"; | |||
| 94092 | /* extern void F_FUNC(ztpttf,ZTPTTF)(char*,char*,F_INT*,complex_double*,complex_double*,F_INT* ); */ | |||
| 94093 | static PyObject *f2py_rout__flapack_ztpttf(const PyObject *capi_self, | |||
| 94094 | PyObject *capi_args, | |||
| 94095 | PyObject *capi_keywds, | |||
| 94096 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,complex_double*,F_INTint* )) { | |||
| 94097 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 94098 | volatile int f2py_success = 1; | |||
| 94099 | /*decl*/ | |||
| 94100 | ||||
| 94101 | string transr = NULL((void*)0); | |||
| 94102 | int slen(transr)capi_transr_len; | |||
| 94103 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 94104 | string uplo = NULL((void*)0); | |||
| 94105 | int slen(uplo)capi_uplo_len; | |||
| 94106 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 94107 | int n = 0; | |||
| 94108 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 94109 | int nt = 0; | |||
| 94110 | complex_double *ap = NULL((void*)0); | |||
| 94111 | npy_intp ap_Dims[1] = {-1}; | |||
| 94112 | const int ap_Rank = 1; | |||
| 94113 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 94114 | int capi_ap_intent = 0; | |||
| 94115 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 94116 | complex_double *arf = NULL((void*)0); | |||
| 94117 | npy_intp arf_Dims[1] = {-1}; | |||
| 94118 | const int arf_Rank = 1; | |||
| 94119 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 94120 | int capi_arf_intent = 0; | |||
| 94121 | int info = 0; | |||
| 94122 | static char *capi_kwlist[] = {"n","ap","transr","uplo",NULL((void*)0)}; | |||
| 94123 | ||||
| 94124 | /*routdebugenter*/ | |||
| 94125 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94126 | f2py_start_clock(); | |||
| 94127 | #endif | |||
| 94128 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 94129 | "OO|OO:_flapack.ztpttf",\ | |||
| 94130 | capi_kwlist,&n_capi,&ap_capi,&transr_capi,&uplo_capi)) | |||
| 94131 | return NULL((void*)0); | |||
| 94132 | /*frompyobj*/ | |||
| 94133 | /* Processing variable uplo */ | |||
| 94134 | slen(uplo)capi_uplo_len = 1; | |||
| 94135 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ztpttf to C string"); | |||
| 94136 | if (f2py_success) { | |||
| 94137 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ztpttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztpttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 94138 | /* Processing variable n */ | |||
| 94139 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ztpttf() 1st argument (n) can't be converted to int"); | |||
| 94140 | if (f2py_success) { | |||
| 94141 | CHECKSCALAR(n>=0,"n>=0","1st argument n","ztpttf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztpttf:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94142 | /* Processing variable ap */ | |||
| 94143 | ; | |||
| 94144 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 94145 | capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 94146 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 94147 | if (!PyErr_Occurred()) | |||
| 94148 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.ztpttf to C/Fortran array" ); | |||
| 94149 | } else { | |||
| 94150 | ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 94151 | ||||
| 94152 | /* Processing variable info */ | |||
| 94153 | /* Processing variable transr */ | |||
| 94154 | slen(transr)capi_transr_len = 1; | |||
| 94155 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ztpttf to C string"); | |||
| 94156 | if (f2py_success) { | |||
| 94157 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ztpttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztpttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 94158 | /* Processing variable nt */ | |||
| 94159 | nt = shape(ap,0)ap_Dims[0]; | |||
| 94160 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ztpttf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztpttf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94161 | /* Processing variable arf */ | |||
| 94162 | arf_Dims[0]=nt; | |||
| 94163 | capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 94164 | capi_arf_tmp = array_from_pyobj(NPY_CDOUBLE,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct)); | |||
| 94165 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 94166 | if (!PyErr_Occurred()) | |||
| 94167 | PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.ztpttf to C/Fortran array" ); | |||
| 94168 | } else { | |||
| 94169 | arf = (complex_double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 94170 | ||||
| 94171 | /*end of frompyobj*/ | |||
| 94172 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94173 | f2py_start_call_clock(); | |||
| 94174 | #endif | |||
| 94175 | /*callfortranroutine*/ | |||
| 94176 | (*f2py_func)(transr,uplo,&n,ap,arf,&info) ; | |||
| 94177 | /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/ | |||
| 94178 | if (PyErr_Occurred()) | |||
| 94179 | f2py_success = 0; | |||
| 94180 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94181 | f2py_stop_call_clock(); | |||
| 94182 | #endif | |||
| 94183 | /*end of callfortranroutine*/ | |||
| 94184 | if (f2py_success) { | |||
| 94185 | /*pyobjfrom*/ | |||
| 94186 | /*end of pyobjfrom*/ | |||
| 94187 | CFUNCSMESS("Building return value.\n"); | |||
| 94188 | capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info); | |||
| 94189 | /*closepyobjfrom*/ | |||
| 94190 | /*end of closepyobjfrom*/ | |||
| 94191 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 94192 | /*cleanupfrompyobj*/ | |||
| 94193 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 94194 | /* End of cleaning variable arf */ | |||
| 94195 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 94196 | /* End of cleaning variable nt */ | |||
| 94197 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 94198 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 94199 | } /*if (f2py_success) of transr*/ | |||
| 94200 | /* End of cleaning variable transr */ | |||
| 94201 | /* End of cleaning variable info */ | |||
| 94202 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 94203 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 94204 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 94205 | /* End of cleaning variable ap */ | |||
| 94206 | } /*CHECKSCALAR(n>=0)*/ | |||
| 94207 | } /*if (f2py_success) of n*/ | |||
| 94208 | /* End of cleaning variable n */ | |||
| 94209 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 94210 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 94211 | } /*if (f2py_success) of uplo*/ | |||
| 94212 | /* End of cleaning variable uplo */ | |||
| 94213 | /*end of cleanupfrompyobj*/ | |||
| 94214 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 94215 | /*routdebugfailure*/ | |||
| 94216 | } else { | |||
| 94217 | /*routdebugleave*/ | |||
| 94218 | } | |||
| 94219 | CFUNCSMESS("Freeing memory.\n"); | |||
| 94220 | /*freemem*/ | |||
| 94221 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94222 | f2py_stop_clock(); | |||
| 94223 | #endif | |||
| 94224 | return capi_buildvalue; | |||
| 94225 | } | |||
| 94226 | /******************************* end of ztpttf *******************************/ | |||
| 94227 | ||||
| 94228 | /*********************************** stpttr ***********************************/ | |||
| 94229 | static char doc_f2py_rout__flapack_stpttr[] = "\ | |||
| 94230 | a,info = stpttr(n,ap,[uplo])\n\nWrapper for ``stpttr``.\ | |||
| 94231 | \n\nParameters\n----------\n" | |||
| 94232 | "n : input int\n" | |||
| 94233 | "ap : input rank-1 array('f') with bounds (nt)\n" | |||
| 94234 | "\nOther Parameters\n----------------\n" | |||
| 94235 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 94236 | "\nReturns\n-------\n" | |||
| 94237 | "a : rank-2 array('f') with bounds (n,n)\n" | |||
| 94238 | "info : int"; | |||
| 94239 | /* extern void F_FUNC(stpttr,STPTTR)(char*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 94240 | static PyObject *f2py_rout__flapack_stpttr(const PyObject *capi_self, | |||
| 94241 | PyObject *capi_args, | |||
| 94242 | PyObject *capi_keywds, | |||
| 94243 | void (*f2py_func)(char*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 94244 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 94245 | volatile int f2py_success = 1; | |||
| 94246 | /*decl*/ | |||
| 94247 | ||||
| 94248 | string uplo = NULL((void*)0); | |||
| 94249 | int slen(uplo)capi_uplo_len; | |||
| 94250 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 94251 | int n = 0; | |||
| 94252 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 94253 | int nt = 0; | |||
| 94254 | float *ap = NULL((void*)0); | |||
| 94255 | npy_intp ap_Dims[1] = {-1}; | |||
| 94256 | const int ap_Rank = 1; | |||
| 94257 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 94258 | int capi_ap_intent = 0; | |||
| 94259 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 94260 | float *a = NULL((void*)0); | |||
| 94261 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 94262 | const int a_Rank = 2; | |||
| 94263 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 94264 | int capi_a_intent = 0; | |||
| 94265 | int lda = 0; | |||
| 94266 | int info = 0; | |||
| 94267 | static char *capi_kwlist[] = {"n","ap","uplo",NULL((void*)0)}; | |||
| 94268 | ||||
| 94269 | /*routdebugenter*/ | |||
| 94270 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94271 | f2py_start_clock(); | |||
| 94272 | #endif | |||
| 94273 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 94274 | "OO|O:_flapack.stpttr",\ | |||
| 94275 | capi_kwlist,&n_capi,&ap_capi,&uplo_capi)) | |||
| 94276 | return NULL((void*)0); | |||
| 94277 | /*frompyobj*/ | |||
| 94278 | /* Processing variable uplo */ | |||
| 94279 | slen(uplo)capi_uplo_len = 1; | |||
| 94280 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.stpttr to C string"); | |||
| 94281 | if (f2py_success) { | |||
| 94282 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","stpttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stpttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 94283 | /* Processing variable n */ | |||
| 94284 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.stpttr() 1st argument (n) can't be converted to int"); | |||
| 94285 | if (f2py_success) { | |||
| 94286 | CHECKSCALAR(n>=0,"n>=0","1st argument n","stpttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stpttr:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94287 | /* Processing variable ap */ | |||
| 94288 | ; | |||
| 94289 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 94290 | capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 94291 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 94292 | if (!PyErr_Occurred()) | |||
| 94293 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.stpttr to C/Fortran array" ); | |||
| 94294 | } else { | |||
| 94295 | ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 94296 | ||||
| 94297 | /* Processing variable info */ | |||
| 94298 | /* Processing variable nt */ | |||
| 94299 | nt = shape(ap,0)ap_Dims[0]; | |||
| 94300 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","stpttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stpttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94301 | /* Processing variable a */ | |||
| 94302 | a_Dims[0]=n,a_Dims[1]=n; | |||
| 94303 | capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 94304 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct)); | |||
| 94305 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 94306 | if (!PyErr_Occurred()) | |||
| 94307 | PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.stpttr to C/Fortran array" ); | |||
| 94308 | } else { | |||
| 94309 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 94310 | ||||
| 94311 | /* Processing variable lda */ | |||
| 94312 | lda = MAX(n,1)((n > 1) ? (n) : (1)); | |||
| 94313 | /*end of frompyobj*/ | |||
| 94314 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94315 | f2py_start_call_clock(); | |||
| 94316 | #endif | |||
| 94317 | /*callfortranroutine*/ | |||
| 94318 | (*f2py_func)(uplo,&n,ap,a,&lda,&info) ; | |||
| 94319 | /*(*f2py_func)(uplo,&n,&nt,ap,a,&lda,&info,slen(uplo));*/ | |||
| 94320 | if (PyErr_Occurred()) | |||
| 94321 | f2py_success = 0; | |||
| 94322 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94323 | f2py_stop_call_clock(); | |||
| 94324 | #endif | |||
| 94325 | /*end of callfortranroutine*/ | |||
| 94326 | if (f2py_success) { | |||
| 94327 | /*pyobjfrom*/ | |||
| 94328 | /*end of pyobjfrom*/ | |||
| 94329 | CFUNCSMESS("Building return value.\n"); | |||
| 94330 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 94331 | /*closepyobjfrom*/ | |||
| 94332 | /*end of closepyobjfrom*/ | |||
| 94333 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 94334 | /*cleanupfrompyobj*/ | |||
| 94335 | /* End of cleaning variable lda */ | |||
| 94336 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 94337 | /* End of cleaning variable a */ | |||
| 94338 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 94339 | /* End of cleaning variable nt */ | |||
| 94340 | /* End of cleaning variable info */ | |||
| 94341 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 94342 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 94343 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 94344 | /* End of cleaning variable ap */ | |||
| 94345 | } /*CHECKSCALAR(n>=0)*/ | |||
| 94346 | } /*if (f2py_success) of n*/ | |||
| 94347 | /* End of cleaning variable n */ | |||
| 94348 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 94349 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 94350 | } /*if (f2py_success) of uplo*/ | |||
| 94351 | /* End of cleaning variable uplo */ | |||
| 94352 | /*end of cleanupfrompyobj*/ | |||
| 94353 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 94354 | /*routdebugfailure*/ | |||
| 94355 | } else { | |||
| 94356 | /*routdebugleave*/ | |||
| 94357 | } | |||
| 94358 | CFUNCSMESS("Freeing memory.\n"); | |||
| 94359 | /*freemem*/ | |||
| 94360 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94361 | f2py_stop_clock(); | |||
| 94362 | #endif | |||
| 94363 | return capi_buildvalue; | |||
| 94364 | } | |||
| 94365 | /******************************* end of stpttr *******************************/ | |||
| 94366 | ||||
| 94367 | /*********************************** dtpttr ***********************************/ | |||
| 94368 | static char doc_f2py_rout__flapack_dtpttr[] = "\ | |||
| 94369 | a,info = dtpttr(n,ap,[uplo])\n\nWrapper for ``dtpttr``.\ | |||
| 94370 | \n\nParameters\n----------\n" | |||
| 94371 | "n : input int\n" | |||
| 94372 | "ap : input rank-1 array('d') with bounds (nt)\n" | |||
| 94373 | "\nOther Parameters\n----------------\n" | |||
| 94374 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 94375 | "\nReturns\n-------\n" | |||
| 94376 | "a : rank-2 array('d') with bounds (n,n)\n" | |||
| 94377 | "info : int"; | |||
| 94378 | /* extern void F_FUNC(dtpttr,DTPTTR)(char*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 94379 | static PyObject *f2py_rout__flapack_dtpttr(const PyObject *capi_self, | |||
| 94380 | PyObject *capi_args, | |||
| 94381 | PyObject *capi_keywds, | |||
| 94382 | void (*f2py_func)(char*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 94383 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 94384 | volatile int f2py_success = 1; | |||
| 94385 | /*decl*/ | |||
| 94386 | ||||
| 94387 | string uplo = NULL((void*)0); | |||
| 94388 | int slen(uplo)capi_uplo_len; | |||
| 94389 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 94390 | int n = 0; | |||
| 94391 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 94392 | int nt = 0; | |||
| 94393 | double *ap = NULL((void*)0); | |||
| 94394 | npy_intp ap_Dims[1] = {-1}; | |||
| 94395 | const int ap_Rank = 1; | |||
| 94396 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 94397 | int capi_ap_intent = 0; | |||
| 94398 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 94399 | double *a = NULL((void*)0); | |||
| 94400 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 94401 | const int a_Rank = 2; | |||
| 94402 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 94403 | int capi_a_intent = 0; | |||
| 94404 | int lda = 0; | |||
| 94405 | int info = 0; | |||
| 94406 | static char *capi_kwlist[] = {"n","ap","uplo",NULL((void*)0)}; | |||
| 94407 | ||||
| 94408 | /*routdebugenter*/ | |||
| 94409 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94410 | f2py_start_clock(); | |||
| 94411 | #endif | |||
| 94412 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 94413 | "OO|O:_flapack.dtpttr",\ | |||
| 94414 | capi_kwlist,&n_capi,&ap_capi,&uplo_capi)) | |||
| 94415 | return NULL((void*)0); | |||
| 94416 | /*frompyobj*/ | |||
| 94417 | /* Processing variable uplo */ | |||
| 94418 | slen(uplo)capi_uplo_len = 1; | |||
| 94419 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.dtpttr to C string"); | |||
| 94420 | if (f2py_success) { | |||
| 94421 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","dtpttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtpttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 94422 | /* Processing variable n */ | |||
| 94423 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dtpttr() 1st argument (n) can't be converted to int"); | |||
| 94424 | if (f2py_success) { | |||
| 94425 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dtpttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtpttr:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94426 | /* Processing variable ap */ | |||
| 94427 | ; | |||
| 94428 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 94429 | capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 94430 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 94431 | if (!PyErr_Occurred()) | |||
| 94432 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dtpttr to C/Fortran array" ); | |||
| 94433 | } else { | |||
| 94434 | ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 94435 | ||||
| 94436 | /* Processing variable info */ | |||
| 94437 | /* Processing variable nt */ | |||
| 94438 | nt = shape(ap,0)ap_Dims[0]; | |||
| 94439 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dtpttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtpttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94440 | /* Processing variable a */ | |||
| 94441 | a_Dims[0]=n,a_Dims[1]=n; | |||
| 94442 | capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 94443 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct)); | |||
| 94444 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 94445 | if (!PyErr_Occurred()) | |||
| 94446 | PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.dtpttr to C/Fortran array" ); | |||
| 94447 | } else { | |||
| 94448 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 94449 | ||||
| 94450 | /* Processing variable lda */ | |||
| 94451 | lda = MAX(n,1)((n > 1) ? (n) : (1)); | |||
| 94452 | /*end of frompyobj*/ | |||
| 94453 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94454 | f2py_start_call_clock(); | |||
| 94455 | #endif | |||
| 94456 | /*callfortranroutine*/ | |||
| 94457 | (*f2py_func)(uplo,&n,ap,a,&lda,&info) ; | |||
| 94458 | /*(*f2py_func)(uplo,&n,&nt,ap,a,&lda,&info,slen(uplo));*/ | |||
| 94459 | if (PyErr_Occurred()) | |||
| 94460 | f2py_success = 0; | |||
| 94461 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94462 | f2py_stop_call_clock(); | |||
| 94463 | #endif | |||
| 94464 | /*end of callfortranroutine*/ | |||
| 94465 | if (f2py_success) { | |||
| 94466 | /*pyobjfrom*/ | |||
| 94467 | /*end of pyobjfrom*/ | |||
| 94468 | CFUNCSMESS("Building return value.\n"); | |||
| 94469 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 94470 | /*closepyobjfrom*/ | |||
| 94471 | /*end of closepyobjfrom*/ | |||
| 94472 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 94473 | /*cleanupfrompyobj*/ | |||
| 94474 | /* End of cleaning variable lda */ | |||
| 94475 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 94476 | /* End of cleaning variable a */ | |||
| 94477 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 94478 | /* End of cleaning variable nt */ | |||
| 94479 | /* End of cleaning variable info */ | |||
| 94480 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 94481 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 94482 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 94483 | /* End of cleaning variable ap */ | |||
| 94484 | } /*CHECKSCALAR(n>=0)*/ | |||
| 94485 | } /*if (f2py_success) of n*/ | |||
| 94486 | /* End of cleaning variable n */ | |||
| 94487 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 94488 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 94489 | } /*if (f2py_success) of uplo*/ | |||
| 94490 | /* End of cleaning variable uplo */ | |||
| 94491 | /*end of cleanupfrompyobj*/ | |||
| 94492 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 94493 | /*routdebugfailure*/ | |||
| 94494 | } else { | |||
| 94495 | /*routdebugleave*/ | |||
| 94496 | } | |||
| 94497 | CFUNCSMESS("Freeing memory.\n"); | |||
| 94498 | /*freemem*/ | |||
| 94499 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94500 | f2py_stop_clock(); | |||
| 94501 | #endif | |||
| 94502 | return capi_buildvalue; | |||
| 94503 | } | |||
| 94504 | /******************************* end of dtpttr *******************************/ | |||
| 94505 | ||||
| 94506 | /*********************************** ctpttr ***********************************/ | |||
| 94507 | static char doc_f2py_rout__flapack_ctpttr[] = "\ | |||
| 94508 | a,info = ctpttr(n,ap,[uplo])\n\nWrapper for ``ctpttr``.\ | |||
| 94509 | \n\nParameters\n----------\n" | |||
| 94510 | "n : input int\n" | |||
| 94511 | "ap : input rank-1 array('F') with bounds (nt)\n" | |||
| 94512 | "\nOther Parameters\n----------------\n" | |||
| 94513 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 94514 | "\nReturns\n-------\n" | |||
| 94515 | "a : rank-2 array('F') with bounds (n,n)\n" | |||
| 94516 | "info : int"; | |||
| 94517 | /* extern void F_FUNC(ctpttr,CTPTTR)(char*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 94518 | static PyObject *f2py_rout__flapack_ctpttr(const PyObject *capi_self, | |||
| 94519 | PyObject *capi_args, | |||
| 94520 | PyObject *capi_keywds, | |||
| 94521 | void (*f2py_func)(char*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 94522 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 94523 | volatile int f2py_success = 1; | |||
| 94524 | /*decl*/ | |||
| 94525 | ||||
| 94526 | string uplo = NULL((void*)0); | |||
| 94527 | int slen(uplo)capi_uplo_len; | |||
| 94528 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 94529 | int n = 0; | |||
| 94530 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 94531 | int nt = 0; | |||
| 94532 | complex_float *ap = NULL((void*)0); | |||
| 94533 | npy_intp ap_Dims[1] = {-1}; | |||
| 94534 | const int ap_Rank = 1; | |||
| 94535 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 94536 | int capi_ap_intent = 0; | |||
| 94537 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 94538 | complex_float *a = NULL((void*)0); | |||
| 94539 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 94540 | const int a_Rank = 2; | |||
| 94541 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 94542 | int capi_a_intent = 0; | |||
| 94543 | int lda = 0; | |||
| 94544 | int info = 0; | |||
| 94545 | static char *capi_kwlist[] = {"n","ap","uplo",NULL((void*)0)}; | |||
| 94546 | ||||
| 94547 | /*routdebugenter*/ | |||
| 94548 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94549 | f2py_start_clock(); | |||
| 94550 | #endif | |||
| 94551 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 94552 | "OO|O:_flapack.ctpttr",\ | |||
| 94553 | capi_kwlist,&n_capi,&ap_capi,&uplo_capi)) | |||
| 94554 | return NULL((void*)0); | |||
| 94555 | /*frompyobj*/ | |||
| 94556 | /* Processing variable uplo */ | |||
| 94557 | slen(uplo)capi_uplo_len = 1; | |||
| 94558 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ctpttr to C string"); | |||
| 94559 | if (f2py_success) { | |||
| 94560 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ctpttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctpttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 94561 | /* Processing variable n */ | |||
| 94562 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ctpttr() 1st argument (n) can't be converted to int"); | |||
| 94563 | if (f2py_success) { | |||
| 94564 | CHECKSCALAR(n>=0,"n>=0","1st argument n","ctpttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctpttr:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94565 | /* Processing variable ap */ | |||
| 94566 | ; | |||
| 94567 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 94568 | capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 94569 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 94570 | if (!PyErr_Occurred()) | |||
| 94571 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.ctpttr to C/Fortran array" ); | |||
| 94572 | } else { | |||
| 94573 | ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 94574 | ||||
| 94575 | /* Processing variable info */ | |||
| 94576 | /* Processing variable nt */ | |||
| 94577 | nt = shape(ap,0)ap_Dims[0]; | |||
| 94578 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ctpttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctpttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94579 | /* Processing variable a */ | |||
| 94580 | a_Dims[0]=n,a_Dims[1]=n; | |||
| 94581 | capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 94582 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct)); | |||
| 94583 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 94584 | if (!PyErr_Occurred()) | |||
| 94585 | PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.ctpttr to C/Fortran array" ); | |||
| 94586 | } else { | |||
| 94587 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 94588 | ||||
| 94589 | /* Processing variable lda */ | |||
| 94590 | lda = MAX(n,1)((n > 1) ? (n) : (1)); | |||
| 94591 | /*end of frompyobj*/ | |||
| 94592 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94593 | f2py_start_call_clock(); | |||
| 94594 | #endif | |||
| 94595 | /*callfortranroutine*/ | |||
| 94596 | (*f2py_func)(uplo,&n,ap,a,&lda,&info) ; | |||
| 94597 | /*(*f2py_func)(uplo,&n,&nt,ap,a,&lda,&info,slen(uplo));*/ | |||
| 94598 | if (PyErr_Occurred()) | |||
| 94599 | f2py_success = 0; | |||
| 94600 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94601 | f2py_stop_call_clock(); | |||
| 94602 | #endif | |||
| 94603 | /*end of callfortranroutine*/ | |||
| 94604 | if (f2py_success) { | |||
| 94605 | /*pyobjfrom*/ | |||
| 94606 | /*end of pyobjfrom*/ | |||
| 94607 | CFUNCSMESS("Building return value.\n"); | |||
| 94608 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 94609 | /*closepyobjfrom*/ | |||
| 94610 | /*end of closepyobjfrom*/ | |||
| 94611 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 94612 | /*cleanupfrompyobj*/ | |||
| 94613 | /* End of cleaning variable lda */ | |||
| 94614 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 94615 | /* End of cleaning variable a */ | |||
| 94616 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 94617 | /* End of cleaning variable nt */ | |||
| 94618 | /* End of cleaning variable info */ | |||
| 94619 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 94620 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 94621 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 94622 | /* End of cleaning variable ap */ | |||
| 94623 | } /*CHECKSCALAR(n>=0)*/ | |||
| 94624 | } /*if (f2py_success) of n*/ | |||
| 94625 | /* End of cleaning variable n */ | |||
| 94626 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 94627 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 94628 | } /*if (f2py_success) of uplo*/ | |||
| 94629 | /* End of cleaning variable uplo */ | |||
| 94630 | /*end of cleanupfrompyobj*/ | |||
| 94631 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 94632 | /*routdebugfailure*/ | |||
| 94633 | } else { | |||
| 94634 | /*routdebugleave*/ | |||
| 94635 | } | |||
| 94636 | CFUNCSMESS("Freeing memory.\n"); | |||
| 94637 | /*freemem*/ | |||
| 94638 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94639 | f2py_stop_clock(); | |||
| 94640 | #endif | |||
| 94641 | return capi_buildvalue; | |||
| 94642 | } | |||
| 94643 | /******************************* end of ctpttr *******************************/ | |||
| 94644 | ||||
| 94645 | /*********************************** ztpttr ***********************************/ | |||
| 94646 | static char doc_f2py_rout__flapack_ztpttr[] = "\ | |||
| 94647 | a,info = ztpttr(n,ap,[uplo])\n\nWrapper for ``ztpttr``.\ | |||
| 94648 | \n\nParameters\n----------\n" | |||
| 94649 | "n : input int\n" | |||
| 94650 | "ap : input rank-1 array('D') with bounds (nt)\n" | |||
| 94651 | "\nOther Parameters\n----------------\n" | |||
| 94652 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 94653 | "\nReturns\n-------\n" | |||
| 94654 | "a : rank-2 array('D') with bounds (n,n)\n" | |||
| 94655 | "info : int"; | |||
| 94656 | /* extern void F_FUNC(ztpttr,ZTPTTR)(char*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 94657 | static PyObject *f2py_rout__flapack_ztpttr(const PyObject *capi_self, | |||
| 94658 | PyObject *capi_args, | |||
| 94659 | PyObject *capi_keywds, | |||
| 94660 | void (*f2py_func)(char*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 94661 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 94662 | volatile int f2py_success = 1; | |||
| 94663 | /*decl*/ | |||
| 94664 | ||||
| 94665 | string uplo = NULL((void*)0); | |||
| 94666 | int slen(uplo)capi_uplo_len; | |||
| 94667 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 94668 | int n = 0; | |||
| 94669 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 94670 | int nt = 0; | |||
| 94671 | complex_double *ap = NULL((void*)0); | |||
| 94672 | npy_intp ap_Dims[1] = {-1}; | |||
| 94673 | const int ap_Rank = 1; | |||
| 94674 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 94675 | int capi_ap_intent = 0; | |||
| 94676 | PyObject *ap_capi = Py_None(&_Py_NoneStruct); | |||
| 94677 | complex_double *a = NULL((void*)0); | |||
| 94678 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 94679 | const int a_Rank = 2; | |||
| 94680 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 94681 | int capi_a_intent = 0; | |||
| 94682 | int lda = 0; | |||
| 94683 | int info = 0; | |||
| 94684 | static char *capi_kwlist[] = {"n","ap","uplo",NULL((void*)0)}; | |||
| 94685 | ||||
| 94686 | /*routdebugenter*/ | |||
| 94687 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94688 | f2py_start_clock(); | |||
| 94689 | #endif | |||
| 94690 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 94691 | "OO|O:_flapack.ztpttr",\ | |||
| 94692 | capi_kwlist,&n_capi,&ap_capi,&uplo_capi)) | |||
| 94693 | return NULL((void*)0); | |||
| 94694 | /*frompyobj*/ | |||
| 94695 | /* Processing variable uplo */ | |||
| 94696 | slen(uplo)capi_uplo_len = 1; | |||
| 94697 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ztpttr to C string"); | |||
| 94698 | if (f2py_success) { | |||
| 94699 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ztpttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztpttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 94700 | /* Processing variable n */ | |||
| 94701 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ztpttr() 1st argument (n) can't be converted to int"); | |||
| 94702 | if (f2py_success) { | |||
| 94703 | CHECKSCALAR(n>=0,"n>=0","1st argument n","ztpttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztpttr:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94704 | /* Processing variable ap */ | |||
| 94705 | ; | |||
| 94706 | capi_ap_intent |= F2PY_INTENT_IN1; | |||
| 94707 | capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi); | |||
| 94708 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 94709 | if (!PyErr_Occurred()) | |||
| 94710 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.ztpttr to C/Fortran array" ); | |||
| 94711 | } else { | |||
| 94712 | ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 94713 | ||||
| 94714 | /* Processing variable info */ | |||
| 94715 | /* Processing variable nt */ | |||
| 94716 | nt = shape(ap,0)ap_Dims[0]; | |||
| 94717 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ztpttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztpttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94718 | /* Processing variable a */ | |||
| 94719 | a_Dims[0]=n,a_Dims[1]=n; | |||
| 94720 | capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 94721 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct)); | |||
| 94722 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 94723 | if (!PyErr_Occurred()) | |||
| 94724 | PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.ztpttr to C/Fortran array" ); | |||
| 94725 | } else { | |||
| 94726 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 94727 | ||||
| 94728 | /* Processing variable lda */ | |||
| 94729 | lda = MAX(n,1)((n > 1) ? (n) : (1)); | |||
| 94730 | /*end of frompyobj*/ | |||
| 94731 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94732 | f2py_start_call_clock(); | |||
| 94733 | #endif | |||
| 94734 | /*callfortranroutine*/ | |||
| 94735 | (*f2py_func)(uplo,&n,ap,a,&lda,&info) ; | |||
| 94736 | /*(*f2py_func)(uplo,&n,&nt,ap,a,&lda,&info,slen(uplo));*/ | |||
| 94737 | if (PyErr_Occurred()) | |||
| 94738 | f2py_success = 0; | |||
| 94739 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94740 | f2py_stop_call_clock(); | |||
| 94741 | #endif | |||
| 94742 | /*end of callfortranroutine*/ | |||
| 94743 | if (f2py_success) { | |||
| 94744 | /*pyobjfrom*/ | |||
| 94745 | /*end of pyobjfrom*/ | |||
| 94746 | CFUNCSMESS("Building return value.\n"); | |||
| 94747 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 94748 | /*closepyobjfrom*/ | |||
| 94749 | /*end of closepyobjfrom*/ | |||
| 94750 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 94751 | /*cleanupfrompyobj*/ | |||
| 94752 | /* End of cleaning variable lda */ | |||
| 94753 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 94754 | /* End of cleaning variable a */ | |||
| 94755 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 94756 | /* End of cleaning variable nt */ | |||
| 94757 | /* End of cleaning variable info */ | |||
| 94758 | if((PyObject *)capi_ap_tmp!=ap_capi) { | |||
| 94759 | Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); } | |||
| 94760 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 94761 | /* End of cleaning variable ap */ | |||
| 94762 | } /*CHECKSCALAR(n>=0)*/ | |||
| 94763 | } /*if (f2py_success) of n*/ | |||
| 94764 | /* End of cleaning variable n */ | |||
| 94765 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 94766 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 94767 | } /*if (f2py_success) of uplo*/ | |||
| 94768 | /* End of cleaning variable uplo */ | |||
| 94769 | /*end of cleanupfrompyobj*/ | |||
| 94770 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 94771 | /*routdebugfailure*/ | |||
| 94772 | } else { | |||
| 94773 | /*routdebugleave*/ | |||
| 94774 | } | |||
| 94775 | CFUNCSMESS("Freeing memory.\n"); | |||
| 94776 | /*freemem*/ | |||
| 94777 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94778 | f2py_stop_clock(); | |||
| 94779 | #endif | |||
| 94780 | return capi_buildvalue; | |||
| 94781 | } | |||
| 94782 | /******************************* end of ztpttr *******************************/ | |||
| 94783 | ||||
| 94784 | /*********************************** stfttp ***********************************/ | |||
| 94785 | static char doc_f2py_rout__flapack_stfttp[] = "\ | |||
| 94786 | ap,info = stfttp(n,arf,[transr,uplo])\n\nWrapper for ``stfttp``.\ | |||
| 94787 | \n\nParameters\n----------\n" | |||
| 94788 | "n : input int\n" | |||
| 94789 | "arf : input rank-1 array('f') with bounds (nt)\n" | |||
| 94790 | "\nOther Parameters\n----------------\n" | |||
| 94791 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 94792 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 94793 | "\nReturns\n-------\n" | |||
| 94794 | "ap : rank-1 array('f') with bounds (nt)\n" | |||
| 94795 | "info : int"; | |||
| 94796 | /* extern void F_FUNC(stfttp,STFTTP)(char*,char*,F_INT*,float*,float*,F_INT* ); */ | |||
| 94797 | static PyObject *f2py_rout__flapack_stfttp(const PyObject *capi_self, | |||
| 94798 | PyObject *capi_args, | |||
| 94799 | PyObject *capi_keywds, | |||
| 94800 | void (*f2py_func)(char*,char*,F_INTint*,float*,float*,F_INTint* )) { | |||
| 94801 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 94802 | volatile int f2py_success = 1; | |||
| 94803 | /*decl*/ | |||
| 94804 | ||||
| 94805 | string transr = NULL((void*)0); | |||
| 94806 | int slen(transr)capi_transr_len; | |||
| 94807 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 94808 | string uplo = NULL((void*)0); | |||
| 94809 | int slen(uplo)capi_uplo_len; | |||
| 94810 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 94811 | int n = 0; | |||
| 94812 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 94813 | int nt = 0; | |||
| 94814 | float *ap = NULL((void*)0); | |||
| 94815 | npy_intp ap_Dims[1] = {-1}; | |||
| 94816 | const int ap_Rank = 1; | |||
| 94817 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 94818 | int capi_ap_intent = 0; | |||
| 94819 | float *arf = NULL((void*)0); | |||
| 94820 | npy_intp arf_Dims[1] = {-1}; | |||
| 94821 | const int arf_Rank = 1; | |||
| 94822 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 94823 | int capi_arf_intent = 0; | |||
| 94824 | PyObject *arf_capi = Py_None(&_Py_NoneStruct); | |||
| 94825 | int info = 0; | |||
| 94826 | static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)}; | |||
| 94827 | ||||
| 94828 | /*routdebugenter*/ | |||
| 94829 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94830 | f2py_start_clock(); | |||
| 94831 | #endif | |||
| 94832 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 94833 | "OO|OO:_flapack.stfttp",\ | |||
| 94834 | capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi)) | |||
| 94835 | return NULL((void*)0); | |||
| 94836 | /*frompyobj*/ | |||
| 94837 | /* Processing variable uplo */ | |||
| 94838 | slen(uplo)capi_uplo_len = 1; | |||
| 94839 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.stfttp to C string"); | |||
| 94840 | if (f2py_success) { | |||
| 94841 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","stfttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 94842 | /* Processing variable n */ | |||
| 94843 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.stfttp() 1st argument (n) can't be converted to int"); | |||
| 94844 | if (f2py_success) { | |||
| 94845 | CHECKSCALAR(n>=0,"n>=0","1st argument n","stfttp:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfttp:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94846 | /* Processing variable arf */ | |||
| 94847 | ; | |||
| 94848 | capi_arf_intent |= F2PY_INTENT_IN1; | |||
| 94849 | capi_arf_tmp = array_from_pyobj(NPY_FLOAT,arf_Dims,arf_Rank,capi_arf_intent,arf_capi); | |||
| 94850 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 94851 | if (!PyErr_Occurred()) | |||
| 94852 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.stfttp to C/Fortran array" ); | |||
| 94853 | } else { | |||
| 94854 | arf = (float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 94855 | ||||
| 94856 | /* Processing variable info */ | |||
| 94857 | /* Processing variable transr */ | |||
| 94858 | slen(transr)capi_transr_len = 1; | |||
| 94859 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.stfttp to C string"); | |||
| 94860 | if (f2py_success) { | |||
| 94861 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","stfttp:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfttp:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 94862 | /* Processing variable nt */ | |||
| 94863 | nt = shape(arf,0)arf_Dims[0]; | |||
| 94864 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","stfttp:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfttp:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94865 | /* Processing variable ap */ | |||
| 94866 | ap_Dims[0]=nt; | |||
| 94867 | capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 94868 | capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct)); | |||
| 94869 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 94870 | if (!PyErr_Occurred()) | |||
| 94871 | PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.stfttp to C/Fortran array" ); | |||
| 94872 | } else { | |||
| 94873 | ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 94874 | ||||
| 94875 | /*end of frompyobj*/ | |||
| 94876 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94877 | f2py_start_call_clock(); | |||
| 94878 | #endif | |||
| 94879 | /*callfortranroutine*/ | |||
| 94880 | (*f2py_func)(transr,uplo,&n,arf,ap,&info) ; | |||
| 94881 | /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/ | |||
| 94882 | if (PyErr_Occurred()) | |||
| 94883 | f2py_success = 0; | |||
| 94884 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94885 | f2py_stop_call_clock(); | |||
| 94886 | #endif | |||
| 94887 | /*end of callfortranroutine*/ | |||
| 94888 | if (f2py_success) { | |||
| 94889 | /*pyobjfrom*/ | |||
| 94890 | /*end of pyobjfrom*/ | |||
| 94891 | CFUNCSMESS("Building return value.\n"); | |||
| 94892 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 94893 | /*closepyobjfrom*/ | |||
| 94894 | /*end of closepyobjfrom*/ | |||
| 94895 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 94896 | /*cleanupfrompyobj*/ | |||
| 94897 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 94898 | /* End of cleaning variable ap */ | |||
| 94899 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 94900 | /* End of cleaning variable nt */ | |||
| 94901 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 94902 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 94903 | } /*if (f2py_success) of transr*/ | |||
| 94904 | /* End of cleaning variable transr */ | |||
| 94905 | /* End of cleaning variable info */ | |||
| 94906 | if((PyObject *)capi_arf_tmp!=arf_capi) { | |||
| 94907 | Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); } | |||
| 94908 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 94909 | /* End of cleaning variable arf */ | |||
| 94910 | } /*CHECKSCALAR(n>=0)*/ | |||
| 94911 | } /*if (f2py_success) of n*/ | |||
| 94912 | /* End of cleaning variable n */ | |||
| 94913 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 94914 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 94915 | } /*if (f2py_success) of uplo*/ | |||
| 94916 | /* End of cleaning variable uplo */ | |||
| 94917 | /*end of cleanupfrompyobj*/ | |||
| 94918 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 94919 | /*routdebugfailure*/ | |||
| 94920 | } else { | |||
| 94921 | /*routdebugleave*/ | |||
| 94922 | } | |||
| 94923 | CFUNCSMESS("Freeing memory.\n"); | |||
| 94924 | /*freemem*/ | |||
| 94925 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94926 | f2py_stop_clock(); | |||
| 94927 | #endif | |||
| 94928 | return capi_buildvalue; | |||
| 94929 | } | |||
| 94930 | /******************************* end of stfttp *******************************/ | |||
| 94931 | ||||
| 94932 | /*********************************** dtfttp ***********************************/ | |||
| 94933 | static char doc_f2py_rout__flapack_dtfttp[] = "\ | |||
| 94934 | ap,info = dtfttp(n,arf,[transr,uplo])\n\nWrapper for ``dtfttp``.\ | |||
| 94935 | \n\nParameters\n----------\n" | |||
| 94936 | "n : input int\n" | |||
| 94937 | "arf : input rank-1 array('d') with bounds (nt)\n" | |||
| 94938 | "\nOther Parameters\n----------------\n" | |||
| 94939 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 94940 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 94941 | "\nReturns\n-------\n" | |||
| 94942 | "ap : rank-1 array('d') with bounds (nt)\n" | |||
| 94943 | "info : int"; | |||
| 94944 | /* extern void F_FUNC(dtfttp,DTFTTP)(char*,char*,F_INT*,double*,double*,F_INT* ); */ | |||
| 94945 | static PyObject *f2py_rout__flapack_dtfttp(const PyObject *capi_self, | |||
| 94946 | PyObject *capi_args, | |||
| 94947 | PyObject *capi_keywds, | |||
| 94948 | void (*f2py_func)(char*,char*,F_INTint*,double*,double*,F_INTint* )) { | |||
| 94949 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 94950 | volatile int f2py_success = 1; | |||
| 94951 | /*decl*/ | |||
| 94952 | ||||
| 94953 | string transr = NULL((void*)0); | |||
| 94954 | int slen(transr)capi_transr_len; | |||
| 94955 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 94956 | string uplo = NULL((void*)0); | |||
| 94957 | int slen(uplo)capi_uplo_len; | |||
| 94958 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 94959 | int n = 0; | |||
| 94960 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 94961 | int nt = 0; | |||
| 94962 | double *ap = NULL((void*)0); | |||
| 94963 | npy_intp ap_Dims[1] = {-1}; | |||
| 94964 | const int ap_Rank = 1; | |||
| 94965 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 94966 | int capi_ap_intent = 0; | |||
| 94967 | double *arf = NULL((void*)0); | |||
| 94968 | npy_intp arf_Dims[1] = {-1}; | |||
| 94969 | const int arf_Rank = 1; | |||
| 94970 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 94971 | int capi_arf_intent = 0; | |||
| 94972 | PyObject *arf_capi = Py_None(&_Py_NoneStruct); | |||
| 94973 | int info = 0; | |||
| 94974 | static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)}; | |||
| 94975 | ||||
| 94976 | /*routdebugenter*/ | |||
| 94977 | #ifdef F2PY_REPORT_ATEXIT | |||
| 94978 | f2py_start_clock(); | |||
| 94979 | #endif | |||
| 94980 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 94981 | "OO|OO:_flapack.dtfttp",\ | |||
| 94982 | capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi)) | |||
| 94983 | return NULL((void*)0); | |||
| 94984 | /*frompyobj*/ | |||
| 94985 | /* Processing variable uplo */ | |||
| 94986 | slen(uplo)capi_uplo_len = 1; | |||
| 94987 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dtfttp to C string"); | |||
| 94988 | if (f2py_success) { | |||
| 94989 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dtfttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 94990 | /* Processing variable n */ | |||
| 94991 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dtfttp() 1st argument (n) can't be converted to int"); | |||
| 94992 | if (f2py_success) { | |||
| 94993 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dtfttp:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfttp:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 94994 | /* Processing variable arf */ | |||
| 94995 | ; | |||
| 94996 | capi_arf_intent |= F2PY_INTENT_IN1; | |||
| 94997 | capi_arf_tmp = array_from_pyobj(NPY_DOUBLE,arf_Dims,arf_Rank,capi_arf_intent,arf_capi); | |||
| 94998 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 94999 | if (!PyErr_Occurred()) | |||
| 95000 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.dtfttp to C/Fortran array" ); | |||
| 95001 | } else { | |||
| 95002 | arf = (double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 95003 | ||||
| 95004 | /* Processing variable info */ | |||
| 95005 | /* Processing variable transr */ | |||
| 95006 | slen(transr)capi_transr_len = 1; | |||
| 95007 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dtfttp to C string"); | |||
| 95008 | if (f2py_success) { | |||
| 95009 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dtfttp:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfttp:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 95010 | /* Processing variable nt */ | |||
| 95011 | nt = shape(arf,0)arf_Dims[0]; | |||
| 95012 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dtfttp:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfttp:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95013 | /* Processing variable ap */ | |||
| 95014 | ap_Dims[0]=nt; | |||
| 95015 | capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 95016 | capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct)); | |||
| 95017 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 95018 | if (!PyErr_Occurred()) | |||
| 95019 | PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.dtfttp to C/Fortran array" ); | |||
| 95020 | } else { | |||
| 95021 | ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 95022 | ||||
| 95023 | /*end of frompyobj*/ | |||
| 95024 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95025 | f2py_start_call_clock(); | |||
| 95026 | #endif | |||
| 95027 | /*callfortranroutine*/ | |||
| 95028 | (*f2py_func)(transr,uplo,&n,arf,ap,&info) ; | |||
| 95029 | /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/ | |||
| 95030 | if (PyErr_Occurred()) | |||
| 95031 | f2py_success = 0; | |||
| 95032 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95033 | f2py_stop_call_clock(); | |||
| 95034 | #endif | |||
| 95035 | /*end of callfortranroutine*/ | |||
| 95036 | if (f2py_success) { | |||
| 95037 | /*pyobjfrom*/ | |||
| 95038 | /*end of pyobjfrom*/ | |||
| 95039 | CFUNCSMESS("Building return value.\n"); | |||
| 95040 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 95041 | /*closepyobjfrom*/ | |||
| 95042 | /*end of closepyobjfrom*/ | |||
| 95043 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 95044 | /*cleanupfrompyobj*/ | |||
| 95045 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 95046 | /* End of cleaning variable ap */ | |||
| 95047 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 95048 | /* End of cleaning variable nt */ | |||
| 95049 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 95050 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 95051 | } /*if (f2py_success) of transr*/ | |||
| 95052 | /* End of cleaning variable transr */ | |||
| 95053 | /* End of cleaning variable info */ | |||
| 95054 | if((PyObject *)capi_arf_tmp!=arf_capi) { | |||
| 95055 | Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); } | |||
| 95056 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 95057 | /* End of cleaning variable arf */ | |||
| 95058 | } /*CHECKSCALAR(n>=0)*/ | |||
| 95059 | } /*if (f2py_success) of n*/ | |||
| 95060 | /* End of cleaning variable n */ | |||
| 95061 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 95062 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 95063 | } /*if (f2py_success) of uplo*/ | |||
| 95064 | /* End of cleaning variable uplo */ | |||
| 95065 | /*end of cleanupfrompyobj*/ | |||
| 95066 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 95067 | /*routdebugfailure*/ | |||
| 95068 | } else { | |||
| 95069 | /*routdebugleave*/ | |||
| 95070 | } | |||
| 95071 | CFUNCSMESS("Freeing memory.\n"); | |||
| 95072 | /*freemem*/ | |||
| 95073 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95074 | f2py_stop_clock(); | |||
| 95075 | #endif | |||
| 95076 | return capi_buildvalue; | |||
| 95077 | } | |||
| 95078 | /******************************* end of dtfttp *******************************/ | |||
| 95079 | ||||
| 95080 | /*********************************** ctfttp ***********************************/ | |||
| 95081 | static char doc_f2py_rout__flapack_ctfttp[] = "\ | |||
| 95082 | ap,info = ctfttp(n,arf,[transr,uplo])\n\nWrapper for ``ctfttp``.\ | |||
| 95083 | \n\nParameters\n----------\n" | |||
| 95084 | "n : input int\n" | |||
| 95085 | "arf : input rank-1 array('F') with bounds (nt)\n" | |||
| 95086 | "\nOther Parameters\n----------------\n" | |||
| 95087 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 95088 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 95089 | "\nReturns\n-------\n" | |||
| 95090 | "ap : rank-1 array('F') with bounds (nt)\n" | |||
| 95091 | "info : int"; | |||
| 95092 | /* extern void F_FUNC(ctfttp,CTFTTP)(char*,char*,F_INT*,complex_float*,complex_float*,F_INT* ); */ | |||
| 95093 | static PyObject *f2py_rout__flapack_ctfttp(const PyObject *capi_self, | |||
| 95094 | PyObject *capi_args, | |||
| 95095 | PyObject *capi_keywds, | |||
| 95096 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,complex_float*,F_INTint* )) { | |||
| 95097 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 95098 | volatile int f2py_success = 1; | |||
| 95099 | /*decl*/ | |||
| 95100 | ||||
| 95101 | string transr = NULL((void*)0); | |||
| 95102 | int slen(transr)capi_transr_len; | |||
| 95103 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 95104 | string uplo = NULL((void*)0); | |||
| 95105 | int slen(uplo)capi_uplo_len; | |||
| 95106 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 95107 | int n = 0; | |||
| 95108 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 95109 | int nt = 0; | |||
| 95110 | complex_float *ap = NULL((void*)0); | |||
| 95111 | npy_intp ap_Dims[1] = {-1}; | |||
| 95112 | const int ap_Rank = 1; | |||
| 95113 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 95114 | int capi_ap_intent = 0; | |||
| 95115 | complex_float *arf = NULL((void*)0); | |||
| 95116 | npy_intp arf_Dims[1] = {-1}; | |||
| 95117 | const int arf_Rank = 1; | |||
| 95118 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 95119 | int capi_arf_intent = 0; | |||
| 95120 | PyObject *arf_capi = Py_None(&_Py_NoneStruct); | |||
| 95121 | int info = 0; | |||
| 95122 | static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)}; | |||
| 95123 | ||||
| 95124 | /*routdebugenter*/ | |||
| 95125 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95126 | f2py_start_clock(); | |||
| 95127 | #endif | |||
| 95128 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 95129 | "OO|OO:_flapack.ctfttp",\ | |||
| 95130 | capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi)) | |||
| 95131 | return NULL((void*)0); | |||
| 95132 | /*frompyobj*/ | |||
| 95133 | /* Processing variable uplo */ | |||
| 95134 | slen(uplo)capi_uplo_len = 1; | |||
| 95135 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ctfttp to C string"); | |||
| 95136 | if (f2py_success) { | |||
| 95137 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ctfttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 95138 | /* Processing variable n */ | |||
| 95139 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ctfttp() 1st argument (n) can't be converted to int"); | |||
| 95140 | if (f2py_success) { | |||
| 95141 | CHECKSCALAR(n>=0,"n>=0","1st argument n","ctfttp:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfttp:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95142 | /* Processing variable arf */ | |||
| 95143 | ; | |||
| 95144 | capi_arf_intent |= F2PY_INTENT_IN1; | |||
| 95145 | capi_arf_tmp = array_from_pyobj(NPY_CFLOAT,arf_Dims,arf_Rank,capi_arf_intent,arf_capi); | |||
| 95146 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 95147 | if (!PyErr_Occurred()) | |||
| 95148 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.ctfttp to C/Fortran array" ); | |||
| 95149 | } else { | |||
| 95150 | arf = (complex_float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 95151 | ||||
| 95152 | /* Processing variable info */ | |||
| 95153 | /* Processing variable transr */ | |||
| 95154 | slen(transr)capi_transr_len = 1; | |||
| 95155 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ctfttp to C string"); | |||
| 95156 | if (f2py_success) { | |||
| 95157 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ctfttp:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfttp:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 95158 | /* Processing variable nt */ | |||
| 95159 | nt = shape(arf,0)arf_Dims[0]; | |||
| 95160 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ctfttp:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfttp:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95161 | /* Processing variable ap */ | |||
| 95162 | ap_Dims[0]=nt; | |||
| 95163 | capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 95164 | capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct)); | |||
| 95165 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 95166 | if (!PyErr_Occurred()) | |||
| 95167 | PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.ctfttp to C/Fortran array" ); | |||
| 95168 | } else { | |||
| 95169 | ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 95170 | ||||
| 95171 | /*end of frompyobj*/ | |||
| 95172 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95173 | f2py_start_call_clock(); | |||
| 95174 | #endif | |||
| 95175 | /*callfortranroutine*/ | |||
| 95176 | (*f2py_func)(transr,uplo,&n,arf,ap,&info) ; | |||
| 95177 | /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/ | |||
| 95178 | if (PyErr_Occurred()) | |||
| 95179 | f2py_success = 0; | |||
| 95180 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95181 | f2py_stop_call_clock(); | |||
| 95182 | #endif | |||
| 95183 | /*end of callfortranroutine*/ | |||
| 95184 | if (f2py_success) { | |||
| 95185 | /*pyobjfrom*/ | |||
| 95186 | /*end of pyobjfrom*/ | |||
| 95187 | CFUNCSMESS("Building return value.\n"); | |||
| 95188 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 95189 | /*closepyobjfrom*/ | |||
| 95190 | /*end of closepyobjfrom*/ | |||
| 95191 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 95192 | /*cleanupfrompyobj*/ | |||
| 95193 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 95194 | /* End of cleaning variable ap */ | |||
| 95195 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 95196 | /* End of cleaning variable nt */ | |||
| 95197 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 95198 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 95199 | } /*if (f2py_success) of transr*/ | |||
| 95200 | /* End of cleaning variable transr */ | |||
| 95201 | /* End of cleaning variable info */ | |||
| 95202 | if((PyObject *)capi_arf_tmp!=arf_capi) { | |||
| 95203 | Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); } | |||
| 95204 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 95205 | /* End of cleaning variable arf */ | |||
| 95206 | } /*CHECKSCALAR(n>=0)*/ | |||
| 95207 | } /*if (f2py_success) of n*/ | |||
| 95208 | /* End of cleaning variable n */ | |||
| 95209 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 95210 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 95211 | } /*if (f2py_success) of uplo*/ | |||
| 95212 | /* End of cleaning variable uplo */ | |||
| 95213 | /*end of cleanupfrompyobj*/ | |||
| 95214 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 95215 | /*routdebugfailure*/ | |||
| 95216 | } else { | |||
| 95217 | /*routdebugleave*/ | |||
| 95218 | } | |||
| 95219 | CFUNCSMESS("Freeing memory.\n"); | |||
| 95220 | /*freemem*/ | |||
| 95221 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95222 | f2py_stop_clock(); | |||
| 95223 | #endif | |||
| 95224 | return capi_buildvalue; | |||
| 95225 | } | |||
| 95226 | /******************************* end of ctfttp *******************************/ | |||
| 95227 | ||||
| 95228 | /*********************************** ztfttp ***********************************/ | |||
| 95229 | static char doc_f2py_rout__flapack_ztfttp[] = "\ | |||
| 95230 | ap,info = ztfttp(n,arf,[transr,uplo])\n\nWrapper for ``ztfttp``.\ | |||
| 95231 | \n\nParameters\n----------\n" | |||
| 95232 | "n : input int\n" | |||
| 95233 | "arf : input rank-1 array('D') with bounds (nt)\n" | |||
| 95234 | "\nOther Parameters\n----------------\n" | |||
| 95235 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 95236 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 95237 | "\nReturns\n-------\n" | |||
| 95238 | "ap : rank-1 array('D') with bounds (nt)\n" | |||
| 95239 | "info : int"; | |||
| 95240 | /* extern void F_FUNC(ztfttp,ZTFTTP)(char*,char*,F_INT*,complex_double*,complex_double*,F_INT* ); */ | |||
| 95241 | static PyObject *f2py_rout__flapack_ztfttp(const PyObject *capi_self, | |||
| 95242 | PyObject *capi_args, | |||
| 95243 | PyObject *capi_keywds, | |||
| 95244 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,complex_double*,F_INTint* )) { | |||
| 95245 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 95246 | volatile int f2py_success = 1; | |||
| 95247 | /*decl*/ | |||
| 95248 | ||||
| 95249 | string transr = NULL((void*)0); | |||
| 95250 | int slen(transr)capi_transr_len; | |||
| 95251 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 95252 | string uplo = NULL((void*)0); | |||
| 95253 | int slen(uplo)capi_uplo_len; | |||
| 95254 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 95255 | int n = 0; | |||
| 95256 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 95257 | int nt = 0; | |||
| 95258 | complex_double *ap = NULL((void*)0); | |||
| 95259 | npy_intp ap_Dims[1] = {-1}; | |||
| 95260 | const int ap_Rank = 1; | |||
| 95261 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 95262 | int capi_ap_intent = 0; | |||
| 95263 | complex_double *arf = NULL((void*)0); | |||
| 95264 | npy_intp arf_Dims[1] = {-1}; | |||
| 95265 | const int arf_Rank = 1; | |||
| 95266 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 95267 | int capi_arf_intent = 0; | |||
| 95268 | PyObject *arf_capi = Py_None(&_Py_NoneStruct); | |||
| 95269 | int info = 0; | |||
| 95270 | static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)}; | |||
| 95271 | ||||
| 95272 | /*routdebugenter*/ | |||
| 95273 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95274 | f2py_start_clock(); | |||
| 95275 | #endif | |||
| 95276 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 95277 | "OO|OO:_flapack.ztfttp",\ | |||
| 95278 | capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi)) | |||
| 95279 | return NULL((void*)0); | |||
| 95280 | /*frompyobj*/ | |||
| 95281 | /* Processing variable uplo */ | |||
| 95282 | slen(uplo)capi_uplo_len = 1; | |||
| 95283 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ztfttp to C string"); | |||
| 95284 | if (f2py_success) { | |||
| 95285 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ztfttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 95286 | /* Processing variable n */ | |||
| 95287 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ztfttp() 1st argument (n) can't be converted to int"); | |||
| 95288 | if (f2py_success) { | |||
| 95289 | CHECKSCALAR(n>=0,"n>=0","1st argument n","ztfttp:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfttp:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95290 | /* Processing variable arf */ | |||
| 95291 | ; | |||
| 95292 | capi_arf_intent |= F2PY_INTENT_IN1; | |||
| 95293 | capi_arf_tmp = array_from_pyobj(NPY_CDOUBLE,arf_Dims,arf_Rank,capi_arf_intent,arf_capi); | |||
| 95294 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 95295 | if (!PyErr_Occurred()) | |||
| 95296 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.ztfttp to C/Fortran array" ); | |||
| 95297 | } else { | |||
| 95298 | arf = (complex_double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 95299 | ||||
| 95300 | /* Processing variable info */ | |||
| 95301 | /* Processing variable transr */ | |||
| 95302 | slen(transr)capi_transr_len = 1; | |||
| 95303 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ztfttp to C string"); | |||
| 95304 | if (f2py_success) { | |||
| 95305 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ztfttp:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfttp:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 95306 | /* Processing variable nt */ | |||
| 95307 | nt = shape(arf,0)arf_Dims[0]; | |||
| 95308 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ztfttp:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfttp:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95309 | /* Processing variable ap */ | |||
| 95310 | ap_Dims[0]=nt; | |||
| 95311 | capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 95312 | capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct)); | |||
| 95313 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 95314 | if (!PyErr_Occurred()) | |||
| 95315 | PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.ztfttp to C/Fortran array" ); | |||
| 95316 | } else { | |||
| 95317 | ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 95318 | ||||
| 95319 | /*end of frompyobj*/ | |||
| 95320 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95321 | f2py_start_call_clock(); | |||
| 95322 | #endif | |||
| 95323 | /*callfortranroutine*/ | |||
| 95324 | (*f2py_func)(transr,uplo,&n,arf,ap,&info) ; | |||
| 95325 | /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/ | |||
| 95326 | if (PyErr_Occurred()) | |||
| 95327 | f2py_success = 0; | |||
| 95328 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95329 | f2py_stop_call_clock(); | |||
| 95330 | #endif | |||
| 95331 | /*end of callfortranroutine*/ | |||
| 95332 | if (f2py_success) { | |||
| 95333 | /*pyobjfrom*/ | |||
| 95334 | /*end of pyobjfrom*/ | |||
| 95335 | CFUNCSMESS("Building return value.\n"); | |||
| 95336 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 95337 | /*closepyobjfrom*/ | |||
| 95338 | /*end of closepyobjfrom*/ | |||
| 95339 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 95340 | /*cleanupfrompyobj*/ | |||
| 95341 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 95342 | /* End of cleaning variable ap */ | |||
| 95343 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 95344 | /* End of cleaning variable nt */ | |||
| 95345 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 95346 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 95347 | } /*if (f2py_success) of transr*/ | |||
| 95348 | /* End of cleaning variable transr */ | |||
| 95349 | /* End of cleaning variable info */ | |||
| 95350 | if((PyObject *)capi_arf_tmp!=arf_capi) { | |||
| 95351 | Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); } | |||
| 95352 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 95353 | /* End of cleaning variable arf */ | |||
| 95354 | } /*CHECKSCALAR(n>=0)*/ | |||
| 95355 | } /*if (f2py_success) of n*/ | |||
| 95356 | /* End of cleaning variable n */ | |||
| 95357 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 95358 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 95359 | } /*if (f2py_success) of uplo*/ | |||
| 95360 | /* End of cleaning variable uplo */ | |||
| 95361 | /*end of cleanupfrompyobj*/ | |||
| 95362 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 95363 | /*routdebugfailure*/ | |||
| 95364 | } else { | |||
| 95365 | /*routdebugleave*/ | |||
| 95366 | } | |||
| 95367 | CFUNCSMESS("Freeing memory.\n"); | |||
| 95368 | /*freemem*/ | |||
| 95369 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95370 | f2py_stop_clock(); | |||
| 95371 | #endif | |||
| 95372 | return capi_buildvalue; | |||
| 95373 | } | |||
| 95374 | /******************************* end of ztfttp *******************************/ | |||
| 95375 | ||||
| 95376 | /*********************************** stfttr ***********************************/ | |||
| 95377 | static char doc_f2py_rout__flapack_stfttr[] = "\ | |||
| 95378 | a,info = stfttr(n,arf,[transr,uplo])\n\nWrapper for ``stfttr``.\ | |||
| 95379 | \n\nParameters\n----------\n" | |||
| 95380 | "n : input int\n" | |||
| 95381 | "arf : input rank-1 array('f') with bounds (nt)\n" | |||
| 95382 | "\nOther Parameters\n----------------\n" | |||
| 95383 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 95384 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 95385 | "\nReturns\n-------\n" | |||
| 95386 | "a : rank-2 array('f') with bounds (lda,n)\n" | |||
| 95387 | "info : int"; | |||
| 95388 | /* extern void F_FUNC(stfttr,STFTTR)(char*,char*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 95389 | static PyObject *f2py_rout__flapack_stfttr(const PyObject *capi_self, | |||
| 95390 | PyObject *capi_args, | |||
| 95391 | PyObject *capi_keywds, | |||
| 95392 | void (*f2py_func)(char*,char*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 95393 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 95394 | volatile int f2py_success = 1; | |||
| 95395 | /*decl*/ | |||
| 95396 | ||||
| 95397 | string transr = NULL((void*)0); | |||
| 95398 | int slen(transr)capi_transr_len; | |||
| 95399 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 95400 | string uplo = NULL((void*)0); | |||
| 95401 | int slen(uplo)capi_uplo_len; | |||
| 95402 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 95403 | int n = 0; | |||
| 95404 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 95405 | int nt = 0; | |||
| 95406 | float *arf = NULL((void*)0); | |||
| 95407 | npy_intp arf_Dims[1] = {-1}; | |||
| 95408 | const int arf_Rank = 1; | |||
| 95409 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 95410 | int capi_arf_intent = 0; | |||
| 95411 | PyObject *arf_capi = Py_None(&_Py_NoneStruct); | |||
| 95412 | float *a = NULL((void*)0); | |||
| 95413 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 95414 | const int a_Rank = 2; | |||
| 95415 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 95416 | int capi_a_intent = 0; | |||
| 95417 | int lda = 0; | |||
| 95418 | int info = 0; | |||
| 95419 | static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)}; | |||
| 95420 | ||||
| 95421 | /*routdebugenter*/ | |||
| 95422 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95423 | f2py_start_clock(); | |||
| 95424 | #endif | |||
| 95425 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 95426 | "OO|OO:_flapack.stfttr",\ | |||
| 95427 | capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi)) | |||
| 95428 | return NULL((void*)0); | |||
| 95429 | /*frompyobj*/ | |||
| 95430 | /* Processing variable uplo */ | |||
| 95431 | slen(uplo)capi_uplo_len = 1; | |||
| 95432 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.stfttr to C string"); | |||
| 95433 | if (f2py_success) { | |||
| 95434 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","stfttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 95435 | /* Processing variable n */ | |||
| 95436 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.stfttr() 1st argument (n) can't be converted to int"); | |||
| 95437 | if (f2py_success) { | |||
| 95438 | CHECKSCALAR(n>=0,"n>=0","1st argument n","stfttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfttr:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95439 | /* Processing variable arf */ | |||
| 95440 | ; | |||
| 95441 | capi_arf_intent |= F2PY_INTENT_IN1; | |||
| 95442 | capi_arf_tmp = array_from_pyobj(NPY_FLOAT,arf_Dims,arf_Rank,capi_arf_intent,arf_capi); | |||
| 95443 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 95444 | if (!PyErr_Occurred()) | |||
| 95445 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.stfttr to C/Fortran array" ); | |||
| 95446 | } else { | |||
| 95447 | arf = (float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 95448 | ||||
| 95449 | /* Processing variable info */ | |||
| 95450 | /* Processing variable transr */ | |||
| 95451 | slen(transr)capi_transr_len = 1; | |||
| 95452 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.stfttr to C string"); | |||
| 95453 | if (f2py_success) { | |||
| 95454 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","stfttr:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfttr:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 95455 | /* Processing variable nt */ | |||
| 95456 | nt = shape(arf,0)arf_Dims[0]; | |||
| 95457 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","stfttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95458 | /* Processing variable lda */ | |||
| 95459 | lda = MAX(n,1)((n > 1) ? (n) : (1)); | |||
| 95460 | /* Processing variable a */ | |||
| 95461 | a_Dims[0]=lda,a_Dims[1]=n; | |||
| 95462 | capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 95463 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct)); | |||
| 95464 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 95465 | if (!PyErr_Occurred()) | |||
| 95466 | PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.stfttr to C/Fortran array" ); | |||
| 95467 | } else { | |||
| 95468 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 95469 | ||||
| 95470 | /*end of frompyobj*/ | |||
| 95471 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95472 | f2py_start_call_clock(); | |||
| 95473 | #endif | |||
| 95474 | /*callfortranroutine*/ | |||
| 95475 | (*f2py_func)(transr,uplo,&n,arf,a,&lda,&info) ; | |||
| 95476 | /*(*f2py_func)(transr,uplo,&n,&nt,arf,a,&lda,&info,slen(transr),slen(uplo));*/ | |||
| 95477 | if (PyErr_Occurred()) | |||
| 95478 | f2py_success = 0; | |||
| 95479 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95480 | f2py_stop_call_clock(); | |||
| 95481 | #endif | |||
| 95482 | /*end of callfortranroutine*/ | |||
| 95483 | if (f2py_success) { | |||
| 95484 | /*pyobjfrom*/ | |||
| 95485 | /*end of pyobjfrom*/ | |||
| 95486 | CFUNCSMESS("Building return value.\n"); | |||
| 95487 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 95488 | /*closepyobjfrom*/ | |||
| 95489 | /*end of closepyobjfrom*/ | |||
| 95490 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 95491 | /*cleanupfrompyobj*/ | |||
| 95492 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 95493 | /* End of cleaning variable a */ | |||
| 95494 | /* End of cleaning variable lda */ | |||
| 95495 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 95496 | /* End of cleaning variable nt */ | |||
| 95497 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 95498 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 95499 | } /*if (f2py_success) of transr*/ | |||
| 95500 | /* End of cleaning variable transr */ | |||
| 95501 | /* End of cleaning variable info */ | |||
| 95502 | if((PyObject *)capi_arf_tmp!=arf_capi) { | |||
| 95503 | Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); } | |||
| 95504 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 95505 | /* End of cleaning variable arf */ | |||
| 95506 | } /*CHECKSCALAR(n>=0)*/ | |||
| 95507 | } /*if (f2py_success) of n*/ | |||
| 95508 | /* End of cleaning variable n */ | |||
| 95509 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 95510 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 95511 | } /*if (f2py_success) of uplo*/ | |||
| 95512 | /* End of cleaning variable uplo */ | |||
| 95513 | /*end of cleanupfrompyobj*/ | |||
| 95514 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 95515 | /*routdebugfailure*/ | |||
| 95516 | } else { | |||
| 95517 | /*routdebugleave*/ | |||
| 95518 | } | |||
| 95519 | CFUNCSMESS("Freeing memory.\n"); | |||
| 95520 | /*freemem*/ | |||
| 95521 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95522 | f2py_stop_clock(); | |||
| 95523 | #endif | |||
| 95524 | return capi_buildvalue; | |||
| 95525 | } | |||
| 95526 | /******************************* end of stfttr *******************************/ | |||
| 95527 | ||||
| 95528 | /*********************************** dtfttr ***********************************/ | |||
| 95529 | static char doc_f2py_rout__flapack_dtfttr[] = "\ | |||
| 95530 | a,info = dtfttr(n,arf,[transr,uplo])\n\nWrapper for ``dtfttr``.\ | |||
| 95531 | \n\nParameters\n----------\n" | |||
| 95532 | "n : input int\n" | |||
| 95533 | "arf : input rank-1 array('d') with bounds (nt)\n" | |||
| 95534 | "\nOther Parameters\n----------------\n" | |||
| 95535 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 95536 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 95537 | "\nReturns\n-------\n" | |||
| 95538 | "a : rank-2 array('d') with bounds (lda,n)\n" | |||
| 95539 | "info : int"; | |||
| 95540 | /* extern void F_FUNC(dtfttr,DTFTTR)(char*,char*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 95541 | static PyObject *f2py_rout__flapack_dtfttr(const PyObject *capi_self, | |||
| 95542 | PyObject *capi_args, | |||
| 95543 | PyObject *capi_keywds, | |||
| 95544 | void (*f2py_func)(char*,char*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 95545 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 95546 | volatile int f2py_success = 1; | |||
| 95547 | /*decl*/ | |||
| 95548 | ||||
| 95549 | string transr = NULL((void*)0); | |||
| 95550 | int slen(transr)capi_transr_len; | |||
| 95551 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 95552 | string uplo = NULL((void*)0); | |||
| 95553 | int slen(uplo)capi_uplo_len; | |||
| 95554 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 95555 | int n = 0; | |||
| 95556 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 95557 | int nt = 0; | |||
| 95558 | double *arf = NULL((void*)0); | |||
| 95559 | npy_intp arf_Dims[1] = {-1}; | |||
| 95560 | const int arf_Rank = 1; | |||
| 95561 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 95562 | int capi_arf_intent = 0; | |||
| 95563 | PyObject *arf_capi = Py_None(&_Py_NoneStruct); | |||
| 95564 | double *a = NULL((void*)0); | |||
| 95565 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 95566 | const int a_Rank = 2; | |||
| 95567 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 95568 | int capi_a_intent = 0; | |||
| 95569 | int lda = 0; | |||
| 95570 | int info = 0; | |||
| 95571 | static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)}; | |||
| 95572 | ||||
| 95573 | /*routdebugenter*/ | |||
| 95574 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95575 | f2py_start_clock(); | |||
| 95576 | #endif | |||
| 95577 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 95578 | "OO|OO:_flapack.dtfttr",\ | |||
| 95579 | capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi)) | |||
| 95580 | return NULL((void*)0); | |||
| 95581 | /*frompyobj*/ | |||
| 95582 | /* Processing variable uplo */ | |||
| 95583 | slen(uplo)capi_uplo_len = 1; | |||
| 95584 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dtfttr to C string"); | |||
| 95585 | if (f2py_success) { | |||
| 95586 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dtfttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 95587 | /* Processing variable n */ | |||
| 95588 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dtfttr() 1st argument (n) can't be converted to int"); | |||
| 95589 | if (f2py_success) { | |||
| 95590 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dtfttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfttr:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95591 | /* Processing variable arf */ | |||
| 95592 | ; | |||
| 95593 | capi_arf_intent |= F2PY_INTENT_IN1; | |||
| 95594 | capi_arf_tmp = array_from_pyobj(NPY_DOUBLE,arf_Dims,arf_Rank,capi_arf_intent,arf_capi); | |||
| 95595 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 95596 | if (!PyErr_Occurred()) | |||
| 95597 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.dtfttr to C/Fortran array" ); | |||
| 95598 | } else { | |||
| 95599 | arf = (double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 95600 | ||||
| 95601 | /* Processing variable info */ | |||
| 95602 | /* Processing variable transr */ | |||
| 95603 | slen(transr)capi_transr_len = 1; | |||
| 95604 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dtfttr to C string"); | |||
| 95605 | if (f2py_success) { | |||
| 95606 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dtfttr:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfttr:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 95607 | /* Processing variable nt */ | |||
| 95608 | nt = shape(arf,0)arf_Dims[0]; | |||
| 95609 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dtfttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95610 | /* Processing variable lda */ | |||
| 95611 | lda = MAX(n,1)((n > 1) ? (n) : (1)); | |||
| 95612 | /* Processing variable a */ | |||
| 95613 | a_Dims[0]=lda,a_Dims[1]=n; | |||
| 95614 | capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 95615 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct)); | |||
| 95616 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 95617 | if (!PyErr_Occurred()) | |||
| 95618 | PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.dtfttr to C/Fortran array" ); | |||
| 95619 | } else { | |||
| 95620 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 95621 | ||||
| 95622 | /*end of frompyobj*/ | |||
| 95623 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95624 | f2py_start_call_clock(); | |||
| 95625 | #endif | |||
| 95626 | /*callfortranroutine*/ | |||
| 95627 | (*f2py_func)(transr,uplo,&n,arf,a,&lda,&info) ; | |||
| 95628 | /*(*f2py_func)(transr,uplo,&n,&nt,arf,a,&lda,&info,slen(transr),slen(uplo));*/ | |||
| 95629 | if (PyErr_Occurred()) | |||
| 95630 | f2py_success = 0; | |||
| 95631 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95632 | f2py_stop_call_clock(); | |||
| 95633 | #endif | |||
| 95634 | /*end of callfortranroutine*/ | |||
| 95635 | if (f2py_success) { | |||
| 95636 | /*pyobjfrom*/ | |||
| 95637 | /*end of pyobjfrom*/ | |||
| 95638 | CFUNCSMESS("Building return value.\n"); | |||
| 95639 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 95640 | /*closepyobjfrom*/ | |||
| 95641 | /*end of closepyobjfrom*/ | |||
| 95642 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 95643 | /*cleanupfrompyobj*/ | |||
| 95644 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 95645 | /* End of cleaning variable a */ | |||
| 95646 | /* End of cleaning variable lda */ | |||
| 95647 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 95648 | /* End of cleaning variable nt */ | |||
| 95649 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 95650 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 95651 | } /*if (f2py_success) of transr*/ | |||
| 95652 | /* End of cleaning variable transr */ | |||
| 95653 | /* End of cleaning variable info */ | |||
| 95654 | if((PyObject *)capi_arf_tmp!=arf_capi) { | |||
| 95655 | Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); } | |||
| 95656 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 95657 | /* End of cleaning variable arf */ | |||
| 95658 | } /*CHECKSCALAR(n>=0)*/ | |||
| 95659 | } /*if (f2py_success) of n*/ | |||
| 95660 | /* End of cleaning variable n */ | |||
| 95661 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 95662 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 95663 | } /*if (f2py_success) of uplo*/ | |||
| 95664 | /* End of cleaning variable uplo */ | |||
| 95665 | /*end of cleanupfrompyobj*/ | |||
| 95666 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 95667 | /*routdebugfailure*/ | |||
| 95668 | } else { | |||
| 95669 | /*routdebugleave*/ | |||
| 95670 | } | |||
| 95671 | CFUNCSMESS("Freeing memory.\n"); | |||
| 95672 | /*freemem*/ | |||
| 95673 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95674 | f2py_stop_clock(); | |||
| 95675 | #endif | |||
| 95676 | return capi_buildvalue; | |||
| 95677 | } | |||
| 95678 | /******************************* end of dtfttr *******************************/ | |||
| 95679 | ||||
| 95680 | /*********************************** ctfttr ***********************************/ | |||
| 95681 | static char doc_f2py_rout__flapack_ctfttr[] = "\ | |||
| 95682 | a,info = ctfttr(n,arf,[transr,uplo])\n\nWrapper for ``ctfttr``.\ | |||
| 95683 | \n\nParameters\n----------\n" | |||
| 95684 | "n : input int\n" | |||
| 95685 | "arf : input rank-1 array('F') with bounds (nt)\n" | |||
| 95686 | "\nOther Parameters\n----------------\n" | |||
| 95687 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 95688 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 95689 | "\nReturns\n-------\n" | |||
| 95690 | "a : rank-2 array('F') with bounds (lda,n)\n" | |||
| 95691 | "info : int"; | |||
| 95692 | /* extern void F_FUNC(ctfttr,CTFTTR)(char*,char*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 95693 | static PyObject *f2py_rout__flapack_ctfttr(const PyObject *capi_self, | |||
| 95694 | PyObject *capi_args, | |||
| 95695 | PyObject *capi_keywds, | |||
| 95696 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 95697 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 95698 | volatile int f2py_success = 1; | |||
| 95699 | /*decl*/ | |||
| 95700 | ||||
| 95701 | string transr = NULL((void*)0); | |||
| 95702 | int slen(transr)capi_transr_len; | |||
| 95703 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 95704 | string uplo = NULL((void*)0); | |||
| 95705 | int slen(uplo)capi_uplo_len; | |||
| 95706 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 95707 | int n = 0; | |||
| 95708 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 95709 | int nt = 0; | |||
| 95710 | complex_float *arf = NULL((void*)0); | |||
| 95711 | npy_intp arf_Dims[1] = {-1}; | |||
| 95712 | const int arf_Rank = 1; | |||
| 95713 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 95714 | int capi_arf_intent = 0; | |||
| 95715 | PyObject *arf_capi = Py_None(&_Py_NoneStruct); | |||
| 95716 | complex_float *a = NULL((void*)0); | |||
| 95717 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 95718 | const int a_Rank = 2; | |||
| 95719 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 95720 | int capi_a_intent = 0; | |||
| 95721 | int lda = 0; | |||
| 95722 | int info = 0; | |||
| 95723 | static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)}; | |||
| 95724 | ||||
| 95725 | /*routdebugenter*/ | |||
| 95726 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95727 | f2py_start_clock(); | |||
| 95728 | #endif | |||
| 95729 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 95730 | "OO|OO:_flapack.ctfttr",\ | |||
| 95731 | capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi)) | |||
| 95732 | return NULL((void*)0); | |||
| 95733 | /*frompyobj*/ | |||
| 95734 | /* Processing variable uplo */ | |||
| 95735 | slen(uplo)capi_uplo_len = 1; | |||
| 95736 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ctfttr to C string"); | |||
| 95737 | if (f2py_success) { | |||
| 95738 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ctfttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 95739 | /* Processing variable n */ | |||
| 95740 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ctfttr() 1st argument (n) can't be converted to int"); | |||
| 95741 | if (f2py_success) { | |||
| 95742 | CHECKSCALAR(n>=0,"n>=0","1st argument n","ctfttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfttr:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95743 | /* Processing variable arf */ | |||
| 95744 | ; | |||
| 95745 | capi_arf_intent |= F2PY_INTENT_IN1; | |||
| 95746 | capi_arf_tmp = array_from_pyobj(NPY_CFLOAT,arf_Dims,arf_Rank,capi_arf_intent,arf_capi); | |||
| 95747 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 95748 | if (!PyErr_Occurred()) | |||
| 95749 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.ctfttr to C/Fortran array" ); | |||
| 95750 | } else { | |||
| 95751 | arf = (complex_float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 95752 | ||||
| 95753 | /* Processing variable info */ | |||
| 95754 | /* Processing variable transr */ | |||
| 95755 | slen(transr)capi_transr_len = 1; | |||
| 95756 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ctfttr to C string"); | |||
| 95757 | if (f2py_success) { | |||
| 95758 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ctfttr:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfttr:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 95759 | /* Processing variable nt */ | |||
| 95760 | nt = shape(arf,0)arf_Dims[0]; | |||
| 95761 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ctfttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95762 | /* Processing variable lda */ | |||
| 95763 | lda = MAX(n,1)((n > 1) ? (n) : (1)); | |||
| 95764 | /* Processing variable a */ | |||
| 95765 | a_Dims[0]=lda,a_Dims[1]=n; | |||
| 95766 | capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 95767 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct)); | |||
| 95768 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 95769 | if (!PyErr_Occurred()) | |||
| 95770 | PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.ctfttr to C/Fortran array" ); | |||
| 95771 | } else { | |||
| 95772 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 95773 | ||||
| 95774 | /*end of frompyobj*/ | |||
| 95775 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95776 | f2py_start_call_clock(); | |||
| 95777 | #endif | |||
| 95778 | /*callfortranroutine*/ | |||
| 95779 | (*f2py_func)(transr,uplo,&n,arf,a,&lda,&info) ; | |||
| 95780 | /*(*f2py_func)(transr,uplo,&n,&nt,arf,a,&lda,&info,slen(transr),slen(uplo));*/ | |||
| 95781 | if (PyErr_Occurred()) | |||
| 95782 | f2py_success = 0; | |||
| 95783 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95784 | f2py_stop_call_clock(); | |||
| 95785 | #endif | |||
| 95786 | /*end of callfortranroutine*/ | |||
| 95787 | if (f2py_success) { | |||
| 95788 | /*pyobjfrom*/ | |||
| 95789 | /*end of pyobjfrom*/ | |||
| 95790 | CFUNCSMESS("Building return value.\n"); | |||
| 95791 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 95792 | /*closepyobjfrom*/ | |||
| 95793 | /*end of closepyobjfrom*/ | |||
| 95794 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 95795 | /*cleanupfrompyobj*/ | |||
| 95796 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 95797 | /* End of cleaning variable a */ | |||
| 95798 | /* End of cleaning variable lda */ | |||
| 95799 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 95800 | /* End of cleaning variable nt */ | |||
| 95801 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 95802 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 95803 | } /*if (f2py_success) of transr*/ | |||
| 95804 | /* End of cleaning variable transr */ | |||
| 95805 | /* End of cleaning variable info */ | |||
| 95806 | if((PyObject *)capi_arf_tmp!=arf_capi) { | |||
| 95807 | Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); } | |||
| 95808 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 95809 | /* End of cleaning variable arf */ | |||
| 95810 | } /*CHECKSCALAR(n>=0)*/ | |||
| 95811 | } /*if (f2py_success) of n*/ | |||
| 95812 | /* End of cleaning variable n */ | |||
| 95813 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 95814 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 95815 | } /*if (f2py_success) of uplo*/ | |||
| 95816 | /* End of cleaning variable uplo */ | |||
| 95817 | /*end of cleanupfrompyobj*/ | |||
| 95818 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 95819 | /*routdebugfailure*/ | |||
| 95820 | } else { | |||
| 95821 | /*routdebugleave*/ | |||
| 95822 | } | |||
| 95823 | CFUNCSMESS("Freeing memory.\n"); | |||
| 95824 | /*freemem*/ | |||
| 95825 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95826 | f2py_stop_clock(); | |||
| 95827 | #endif | |||
| 95828 | return capi_buildvalue; | |||
| 95829 | } | |||
| 95830 | /******************************* end of ctfttr *******************************/ | |||
| 95831 | ||||
| 95832 | /*********************************** ztfttr ***********************************/ | |||
| 95833 | static char doc_f2py_rout__flapack_ztfttr[] = "\ | |||
| 95834 | a,info = ztfttr(n,arf,[transr,uplo])\n\nWrapper for ``ztfttr``.\ | |||
| 95835 | \n\nParameters\n----------\n" | |||
| 95836 | "n : input int\n" | |||
| 95837 | "arf : input rank-1 array('D') with bounds (nt)\n" | |||
| 95838 | "\nOther Parameters\n----------------\n" | |||
| 95839 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 95840 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 95841 | "\nReturns\n-------\n" | |||
| 95842 | "a : rank-2 array('D') with bounds (lda,n)\n" | |||
| 95843 | "info : int"; | |||
| 95844 | /* extern void F_FUNC(ztfttr,ZTFTTR)(char*,char*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 95845 | static PyObject *f2py_rout__flapack_ztfttr(const PyObject *capi_self, | |||
| 95846 | PyObject *capi_args, | |||
| 95847 | PyObject *capi_keywds, | |||
| 95848 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 95849 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 95850 | volatile int f2py_success = 1; | |||
| 95851 | /*decl*/ | |||
| 95852 | ||||
| 95853 | string transr = NULL((void*)0); | |||
| 95854 | int slen(transr)capi_transr_len; | |||
| 95855 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 95856 | string uplo = NULL((void*)0); | |||
| 95857 | int slen(uplo)capi_uplo_len; | |||
| 95858 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 95859 | int n = 0; | |||
| 95860 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 95861 | int nt = 0; | |||
| 95862 | complex_double *arf = NULL((void*)0); | |||
| 95863 | npy_intp arf_Dims[1] = {-1}; | |||
| 95864 | const int arf_Rank = 1; | |||
| 95865 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 95866 | int capi_arf_intent = 0; | |||
| 95867 | PyObject *arf_capi = Py_None(&_Py_NoneStruct); | |||
| 95868 | complex_double *a = NULL((void*)0); | |||
| 95869 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 95870 | const int a_Rank = 2; | |||
| 95871 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 95872 | int capi_a_intent = 0; | |||
| 95873 | int lda = 0; | |||
| 95874 | int info = 0; | |||
| 95875 | static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)}; | |||
| 95876 | ||||
| 95877 | /*routdebugenter*/ | |||
| 95878 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95879 | f2py_start_clock(); | |||
| 95880 | #endif | |||
| 95881 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 95882 | "OO|OO:_flapack.ztfttr",\ | |||
| 95883 | capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi)) | |||
| 95884 | return NULL((void*)0); | |||
| 95885 | /*frompyobj*/ | |||
| 95886 | /* Processing variable uplo */ | |||
| 95887 | slen(uplo)capi_uplo_len = 1; | |||
| 95888 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ztfttr to C string"); | |||
| 95889 | if (f2py_success) { | |||
| 95890 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ztfttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 95891 | /* Processing variable n */ | |||
| 95892 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ztfttr() 1st argument (n) can't be converted to int"); | |||
| 95893 | if (f2py_success) { | |||
| 95894 | CHECKSCALAR(n>=0,"n>=0","1st argument n","ztfttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfttr:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95895 | /* Processing variable arf */ | |||
| 95896 | ; | |||
| 95897 | capi_arf_intent |= F2PY_INTENT_IN1; | |||
| 95898 | capi_arf_tmp = array_from_pyobj(NPY_CDOUBLE,arf_Dims,arf_Rank,capi_arf_intent,arf_capi); | |||
| 95899 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 95900 | if (!PyErr_Occurred()) | |||
| 95901 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.ztfttr to C/Fortran array" ); | |||
| 95902 | } else { | |||
| 95903 | arf = (complex_double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 95904 | ||||
| 95905 | /* Processing variable info */ | |||
| 95906 | /* Processing variable transr */ | |||
| 95907 | slen(transr)capi_transr_len = 1; | |||
| 95908 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ztfttr to C string"); | |||
| 95909 | if (f2py_success) { | |||
| 95910 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ztfttr:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfttr:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 95911 | /* Processing variable nt */ | |||
| 95912 | nt = shape(arf,0)arf_Dims[0]; | |||
| 95913 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ztfttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 95914 | /* Processing variable lda */ | |||
| 95915 | lda = MAX(n,1)((n > 1) ? (n) : (1)); | |||
| 95916 | /* Processing variable a */ | |||
| 95917 | a_Dims[0]=lda,a_Dims[1]=n; | |||
| 95918 | capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 95919 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct)); | |||
| 95920 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 95921 | if (!PyErr_Occurred()) | |||
| 95922 | PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.ztfttr to C/Fortran array" ); | |||
| 95923 | } else { | |||
| 95924 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 95925 | ||||
| 95926 | /*end of frompyobj*/ | |||
| 95927 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95928 | f2py_start_call_clock(); | |||
| 95929 | #endif | |||
| 95930 | /*callfortranroutine*/ | |||
| 95931 | (*f2py_func)(transr,uplo,&n,arf,a,&lda,&info) ; | |||
| 95932 | /*(*f2py_func)(transr,uplo,&n,&nt,arf,a,&lda,&info,slen(transr),slen(uplo));*/ | |||
| 95933 | if (PyErr_Occurred()) | |||
| 95934 | f2py_success = 0; | |||
| 95935 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95936 | f2py_stop_call_clock(); | |||
| 95937 | #endif | |||
| 95938 | /*end of callfortranroutine*/ | |||
| 95939 | if (f2py_success) { | |||
| 95940 | /*pyobjfrom*/ | |||
| 95941 | /*end of pyobjfrom*/ | |||
| 95942 | CFUNCSMESS("Building return value.\n"); | |||
| 95943 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 95944 | /*closepyobjfrom*/ | |||
| 95945 | /*end of closepyobjfrom*/ | |||
| 95946 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 95947 | /*cleanupfrompyobj*/ | |||
| 95948 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 95949 | /* End of cleaning variable a */ | |||
| 95950 | /* End of cleaning variable lda */ | |||
| 95951 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 95952 | /* End of cleaning variable nt */ | |||
| 95953 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 95954 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 95955 | } /*if (f2py_success) of transr*/ | |||
| 95956 | /* End of cleaning variable transr */ | |||
| 95957 | /* End of cleaning variable info */ | |||
| 95958 | if((PyObject *)capi_arf_tmp!=arf_capi) { | |||
| 95959 | Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); } | |||
| 95960 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 95961 | /* End of cleaning variable arf */ | |||
| 95962 | } /*CHECKSCALAR(n>=0)*/ | |||
| 95963 | } /*if (f2py_success) of n*/ | |||
| 95964 | /* End of cleaning variable n */ | |||
| 95965 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 95966 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 95967 | } /*if (f2py_success) of uplo*/ | |||
| 95968 | /* End of cleaning variable uplo */ | |||
| 95969 | /*end of cleanupfrompyobj*/ | |||
| 95970 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 95971 | /*routdebugfailure*/ | |||
| 95972 | } else { | |||
| 95973 | /*routdebugleave*/ | |||
| 95974 | } | |||
| 95975 | CFUNCSMESS("Freeing memory.\n"); | |||
| 95976 | /*freemem*/ | |||
| 95977 | #ifdef F2PY_REPORT_ATEXIT | |||
| 95978 | f2py_stop_clock(); | |||
| 95979 | #endif | |||
| 95980 | return capi_buildvalue; | |||
| 95981 | } | |||
| 95982 | /******************************* end of ztfttr *******************************/ | |||
| 95983 | ||||
| 95984 | /*********************************** strttf ***********************************/ | |||
| 95985 | static char doc_f2py_rout__flapack_strttf[] = "\ | |||
| 95986 | arf,info = strttf(a,[transr,uplo])\n\nWrapper for ``strttf``.\ | |||
| 95987 | \n\nParameters\n----------\n" | |||
| 95988 | "a : input rank-2 array('f') with bounds (lda,n)\n" | |||
| 95989 | "\nOther Parameters\n----------------\n" | |||
| 95990 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 95991 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 95992 | "\nReturns\n-------\n" | |||
| 95993 | "arf : rank-1 array('f') with bounds (n*(n+1)/2)\n" | |||
| 95994 | "info : int"; | |||
| 95995 | /* extern void F_FUNC(strttf,STRTTF)(char*,char*,F_INT*,float*,F_INT*,float*,F_INT* ); */ | |||
| 95996 | static PyObject *f2py_rout__flapack_strttf(const PyObject *capi_self, | |||
| 95997 | PyObject *capi_args, | |||
| 95998 | PyObject *capi_keywds, | |||
| 95999 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) { | |||
| 96000 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 96001 | volatile int f2py_success = 1; | |||
| 96002 | /*decl*/ | |||
| 96003 | ||||
| 96004 | string transr = NULL((void*)0); | |||
| 96005 | int slen(transr)capi_transr_len; | |||
| 96006 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 96007 | string uplo = NULL((void*)0); | |||
| 96008 | int slen(uplo)capi_uplo_len; | |||
| 96009 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 96010 | int n = 0; | |||
| 96011 | float *a = NULL((void*)0); | |||
| 96012 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 96013 | const int a_Rank = 2; | |||
| 96014 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 96015 | int capi_a_intent = 0; | |||
| 96016 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 96017 | int lda = 0; | |||
| 96018 | float *arf = NULL((void*)0); | |||
| 96019 | npy_intp arf_Dims[1] = {-1}; | |||
| 96020 | const int arf_Rank = 1; | |||
| 96021 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 96022 | int capi_arf_intent = 0; | |||
| 96023 | int info = 0; | |||
| 96024 | static char *capi_kwlist[] = {"a","transr","uplo",NULL((void*)0)}; | |||
| 96025 | ||||
| 96026 | /*routdebugenter*/ | |||
| 96027 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96028 | f2py_start_clock(); | |||
| 96029 | #endif | |||
| 96030 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 96031 | "O|OO:_flapack.strttf",\ | |||
| 96032 | capi_kwlist,&a_capi,&transr_capi,&uplo_capi)) | |||
| 96033 | return NULL((void*)0); | |||
| 96034 | /*frompyobj*/ | |||
| 96035 | /* Processing variable uplo */ | |||
| 96036 | slen(uplo)capi_uplo_len = 1; | |||
| 96037 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.strttf to C string"); | |||
| 96038 | if (f2py_success) { | |||
| 96039 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","strttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""strttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 96040 | /* Processing variable a */ | |||
| 96041 | ; | |||
| 96042 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 96043 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 96044 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 96045 | if (!PyErr_Occurred()) | |||
| 96046 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.strttf to C/Fortran array" ); | |||
| 96047 | } else { | |||
| 96048 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 96049 | ||||
| 96050 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 96051 | /* Processing variable info */ | |||
| 96052 | /* Processing variable n */ | |||
| 96053 | n = shape(a,1)a_Dims[1]; | |||
| 96054 | /* Processing variable lda */ | |||
| 96055 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 96056 | /* Processing variable arf */ | |||
| 96057 | arf_Dims[0]=n*(n+1)/2; | |||
| 96058 | capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 96059 | capi_arf_tmp = array_from_pyobj(NPY_FLOAT,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct)); | |||
| 96060 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 96061 | if (!PyErr_Occurred()) | |||
| 96062 | PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.strttf to C/Fortran array" ); | |||
| 96063 | } else { | |||
| 96064 | arf = (float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 96065 | ||||
| 96066 | /* Processing variable transr */ | |||
| 96067 | slen(transr)capi_transr_len = 1; | |||
| 96068 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.strttf to C string"); | |||
| 96069 | if (f2py_success) { | |||
| 96070 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","strttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""strttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 96071 | /*end of frompyobj*/ | |||
| 96072 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96073 | f2py_start_call_clock(); | |||
| 96074 | #endif | |||
| 96075 | /*callfortranroutine*/ | |||
| 96076 | (*f2py_func)(transr,uplo,&n,a,&lda,arf,&info) ; | |||
| 96077 | /*(*f2py_func)(transr,uplo,&n,a,&lda,arf,&info,slen(transr),slen(uplo));*/ | |||
| 96078 | if (PyErr_Occurred()) | |||
| 96079 | f2py_success = 0; | |||
| 96080 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96081 | f2py_stop_call_clock(); | |||
| 96082 | #endif | |||
| 96083 | /*end of callfortranroutine*/ | |||
| 96084 | if (f2py_success) { | |||
| 96085 | /*pyobjfrom*/ | |||
| 96086 | /*end of pyobjfrom*/ | |||
| 96087 | CFUNCSMESS("Building return value.\n"); | |||
| 96088 | capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info); | |||
| 96089 | /*closepyobjfrom*/ | |||
| 96090 | /*end of closepyobjfrom*/ | |||
| 96091 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 96092 | /*cleanupfrompyobj*/ | |||
| 96093 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 96094 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 96095 | } /*if (f2py_success) of transr*/ | |||
| 96096 | /* End of cleaning variable transr */ | |||
| 96097 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 96098 | /* End of cleaning variable arf */ | |||
| 96099 | /* End of cleaning variable lda */ | |||
| 96100 | /* End of cleaning variable n */ | |||
| 96101 | /* End of cleaning variable info */ | |||
| 96102 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 96103 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 96104 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 96105 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 96106 | /* End of cleaning variable a */ | |||
| 96107 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 96108 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 96109 | } /*if (f2py_success) of uplo*/ | |||
| 96110 | /* End of cleaning variable uplo */ | |||
| 96111 | /*end of cleanupfrompyobj*/ | |||
| 96112 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 96113 | /*routdebugfailure*/ | |||
| 96114 | } else { | |||
| 96115 | /*routdebugleave*/ | |||
| 96116 | } | |||
| 96117 | CFUNCSMESS("Freeing memory.\n"); | |||
| 96118 | /*freemem*/ | |||
| 96119 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96120 | f2py_stop_clock(); | |||
| 96121 | #endif | |||
| 96122 | return capi_buildvalue; | |||
| 96123 | } | |||
| 96124 | /******************************* end of strttf *******************************/ | |||
| 96125 | ||||
| 96126 | /*********************************** dtrttf ***********************************/ | |||
| 96127 | static char doc_f2py_rout__flapack_dtrttf[] = "\ | |||
| 96128 | arf,info = dtrttf(a,[transr,uplo])\n\nWrapper for ``dtrttf``.\ | |||
| 96129 | \n\nParameters\n----------\n" | |||
| 96130 | "a : input rank-2 array('d') with bounds (lda,n)\n" | |||
| 96131 | "\nOther Parameters\n----------------\n" | |||
| 96132 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 96133 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 96134 | "\nReturns\n-------\n" | |||
| 96135 | "arf : rank-1 array('d') with bounds (n*(n+1)/2)\n" | |||
| 96136 | "info : int"; | |||
| 96137 | /* extern void F_FUNC(dtrttf,DTRTTF)(char*,char*,F_INT*,double*,F_INT*,double*,F_INT* ); */ | |||
| 96138 | static PyObject *f2py_rout__flapack_dtrttf(const PyObject *capi_self, | |||
| 96139 | PyObject *capi_args, | |||
| 96140 | PyObject *capi_keywds, | |||
| 96141 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) { | |||
| 96142 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 96143 | volatile int f2py_success = 1; | |||
| 96144 | /*decl*/ | |||
| 96145 | ||||
| 96146 | string transr = NULL((void*)0); | |||
| 96147 | int slen(transr)capi_transr_len; | |||
| 96148 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 96149 | string uplo = NULL((void*)0); | |||
| 96150 | int slen(uplo)capi_uplo_len; | |||
| 96151 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 96152 | int n = 0; | |||
| 96153 | double *a = NULL((void*)0); | |||
| 96154 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 96155 | const int a_Rank = 2; | |||
| 96156 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 96157 | int capi_a_intent = 0; | |||
| 96158 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 96159 | int lda = 0; | |||
| 96160 | double *arf = NULL((void*)0); | |||
| 96161 | npy_intp arf_Dims[1] = {-1}; | |||
| 96162 | const int arf_Rank = 1; | |||
| 96163 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 96164 | int capi_arf_intent = 0; | |||
| 96165 | int info = 0; | |||
| 96166 | static char *capi_kwlist[] = {"a","transr","uplo",NULL((void*)0)}; | |||
| 96167 | ||||
| 96168 | /*routdebugenter*/ | |||
| 96169 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96170 | f2py_start_clock(); | |||
| 96171 | #endif | |||
| 96172 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 96173 | "O|OO:_flapack.dtrttf",\ | |||
| 96174 | capi_kwlist,&a_capi,&transr_capi,&uplo_capi)) | |||
| 96175 | return NULL((void*)0); | |||
| 96176 | /*frompyobj*/ | |||
| 96177 | /* Processing variable uplo */ | |||
| 96178 | slen(uplo)capi_uplo_len = 1; | |||
| 96179 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dtrttf to C string"); | |||
| 96180 | if (f2py_success) { | |||
| 96181 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dtrttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtrttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 96182 | /* Processing variable a */ | |||
| 96183 | ; | |||
| 96184 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 96185 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 96186 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 96187 | if (!PyErr_Occurred()) | |||
| 96188 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dtrttf to C/Fortran array" ); | |||
| 96189 | } else { | |||
| 96190 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 96191 | ||||
| 96192 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 96193 | /* Processing variable info */ | |||
| 96194 | /* Processing variable n */ | |||
| 96195 | n = shape(a,1)a_Dims[1]; | |||
| 96196 | /* Processing variable lda */ | |||
| 96197 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 96198 | /* Processing variable arf */ | |||
| 96199 | arf_Dims[0]=n*(n+1)/2; | |||
| 96200 | capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 96201 | capi_arf_tmp = array_from_pyobj(NPY_DOUBLE,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct)); | |||
| 96202 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 96203 | if (!PyErr_Occurred()) | |||
| 96204 | PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.dtrttf to C/Fortran array" ); | |||
| 96205 | } else { | |||
| 96206 | arf = (double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 96207 | ||||
| 96208 | /* Processing variable transr */ | |||
| 96209 | slen(transr)capi_transr_len = 1; | |||
| 96210 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dtrttf to C string"); | |||
| 96211 | if (f2py_success) { | |||
| 96212 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dtrttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtrttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 96213 | /*end of frompyobj*/ | |||
| 96214 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96215 | f2py_start_call_clock(); | |||
| 96216 | #endif | |||
| 96217 | /*callfortranroutine*/ | |||
| 96218 | (*f2py_func)(transr,uplo,&n,a,&lda,arf,&info) ; | |||
| 96219 | /*(*f2py_func)(transr,uplo,&n,a,&lda,arf,&info,slen(transr),slen(uplo));*/ | |||
| 96220 | if (PyErr_Occurred()) | |||
| 96221 | f2py_success = 0; | |||
| 96222 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96223 | f2py_stop_call_clock(); | |||
| 96224 | #endif | |||
| 96225 | /*end of callfortranroutine*/ | |||
| 96226 | if (f2py_success) { | |||
| 96227 | /*pyobjfrom*/ | |||
| 96228 | /*end of pyobjfrom*/ | |||
| 96229 | CFUNCSMESS("Building return value.\n"); | |||
| 96230 | capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info); | |||
| 96231 | /*closepyobjfrom*/ | |||
| 96232 | /*end of closepyobjfrom*/ | |||
| 96233 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 96234 | /*cleanupfrompyobj*/ | |||
| 96235 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 96236 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 96237 | } /*if (f2py_success) of transr*/ | |||
| 96238 | /* End of cleaning variable transr */ | |||
| 96239 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 96240 | /* End of cleaning variable arf */ | |||
| 96241 | /* End of cleaning variable lda */ | |||
| 96242 | /* End of cleaning variable n */ | |||
| 96243 | /* End of cleaning variable info */ | |||
| 96244 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 96245 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 96246 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 96247 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 96248 | /* End of cleaning variable a */ | |||
| 96249 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 96250 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 96251 | } /*if (f2py_success) of uplo*/ | |||
| 96252 | /* End of cleaning variable uplo */ | |||
| 96253 | /*end of cleanupfrompyobj*/ | |||
| 96254 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 96255 | /*routdebugfailure*/ | |||
| 96256 | } else { | |||
| 96257 | /*routdebugleave*/ | |||
| 96258 | } | |||
| 96259 | CFUNCSMESS("Freeing memory.\n"); | |||
| 96260 | /*freemem*/ | |||
| 96261 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96262 | f2py_stop_clock(); | |||
| 96263 | #endif | |||
| 96264 | return capi_buildvalue; | |||
| 96265 | } | |||
| 96266 | /******************************* end of dtrttf *******************************/ | |||
| 96267 | ||||
| 96268 | /*********************************** ctrttf ***********************************/ | |||
| 96269 | static char doc_f2py_rout__flapack_ctrttf[] = "\ | |||
| 96270 | arf,info = ctrttf(a,[transr,uplo])\n\nWrapper for ``ctrttf``.\ | |||
| 96271 | \n\nParameters\n----------\n" | |||
| 96272 | "a : input rank-2 array('F') with bounds (lda,n)\n" | |||
| 96273 | "\nOther Parameters\n----------------\n" | |||
| 96274 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 96275 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 96276 | "\nReturns\n-------\n" | |||
| 96277 | "arf : rank-1 array('F') with bounds (n*(n+1)/2)\n" | |||
| 96278 | "info : int"; | |||
| 96279 | /* extern void F_FUNC(ctrttf,CTRTTF)(char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT* ); */ | |||
| 96280 | static PyObject *f2py_rout__flapack_ctrttf(const PyObject *capi_self, | |||
| 96281 | PyObject *capi_args, | |||
| 96282 | PyObject *capi_keywds, | |||
| 96283 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* )) { | |||
| 96284 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 96285 | volatile int f2py_success = 1; | |||
| 96286 | /*decl*/ | |||
| 96287 | ||||
| 96288 | string transr = NULL((void*)0); | |||
| 96289 | int slen(transr)capi_transr_len; | |||
| 96290 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 96291 | string uplo = NULL((void*)0); | |||
| 96292 | int slen(uplo)capi_uplo_len; | |||
| 96293 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 96294 | int n = 0; | |||
| 96295 | complex_float *a = NULL((void*)0); | |||
| 96296 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 96297 | const int a_Rank = 2; | |||
| 96298 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 96299 | int capi_a_intent = 0; | |||
| 96300 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 96301 | int lda = 0; | |||
| 96302 | complex_float *arf = NULL((void*)0); | |||
| 96303 | npy_intp arf_Dims[1] = {-1}; | |||
| 96304 | const int arf_Rank = 1; | |||
| 96305 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 96306 | int capi_arf_intent = 0; | |||
| 96307 | int info = 0; | |||
| 96308 | static char *capi_kwlist[] = {"a","transr","uplo",NULL((void*)0)}; | |||
| 96309 | ||||
| 96310 | /*routdebugenter*/ | |||
| 96311 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96312 | f2py_start_clock(); | |||
| 96313 | #endif | |||
| 96314 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 96315 | "O|OO:_flapack.ctrttf",\ | |||
| 96316 | capi_kwlist,&a_capi,&transr_capi,&uplo_capi)) | |||
| 96317 | return NULL((void*)0); | |||
| 96318 | /*frompyobj*/ | |||
| 96319 | /* Processing variable uplo */ | |||
| 96320 | slen(uplo)capi_uplo_len = 1; | |||
| 96321 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ctrttf to C string"); | |||
| 96322 | if (f2py_success) { | |||
| 96323 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ctrttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctrttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 96324 | /* Processing variable a */ | |||
| 96325 | ; | |||
| 96326 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 96327 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 96328 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 96329 | if (!PyErr_Occurred()) | |||
| 96330 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ctrttf to C/Fortran array" ); | |||
| 96331 | } else { | |||
| 96332 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 96333 | ||||
| 96334 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 96335 | /* Processing variable info */ | |||
| 96336 | /* Processing variable n */ | |||
| 96337 | n = shape(a,1)a_Dims[1]; | |||
| 96338 | /* Processing variable lda */ | |||
| 96339 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 96340 | /* Processing variable arf */ | |||
| 96341 | arf_Dims[0]=n*(n+1)/2; | |||
| 96342 | capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 96343 | capi_arf_tmp = array_from_pyobj(NPY_CFLOAT,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct)); | |||
| 96344 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 96345 | if (!PyErr_Occurred()) | |||
| 96346 | PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.ctrttf to C/Fortran array" ); | |||
| 96347 | } else { | |||
| 96348 | arf = (complex_float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 96349 | ||||
| 96350 | /* Processing variable transr */ | |||
| 96351 | slen(transr)capi_transr_len = 1; | |||
| 96352 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ctrttf to C string"); | |||
| 96353 | if (f2py_success) { | |||
| 96354 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ctrttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctrttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 96355 | /*end of frompyobj*/ | |||
| 96356 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96357 | f2py_start_call_clock(); | |||
| 96358 | #endif | |||
| 96359 | /*callfortranroutine*/ | |||
| 96360 | (*f2py_func)(transr,uplo,&n,a,&lda,arf,&info) ; | |||
| 96361 | /*(*f2py_func)(transr,uplo,&n,a,&lda,arf,&info,slen(transr),slen(uplo));*/ | |||
| 96362 | if (PyErr_Occurred()) | |||
| 96363 | f2py_success = 0; | |||
| 96364 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96365 | f2py_stop_call_clock(); | |||
| 96366 | #endif | |||
| 96367 | /*end of callfortranroutine*/ | |||
| 96368 | if (f2py_success) { | |||
| 96369 | /*pyobjfrom*/ | |||
| 96370 | /*end of pyobjfrom*/ | |||
| 96371 | CFUNCSMESS("Building return value.\n"); | |||
| 96372 | capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info); | |||
| 96373 | /*closepyobjfrom*/ | |||
| 96374 | /*end of closepyobjfrom*/ | |||
| 96375 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 96376 | /*cleanupfrompyobj*/ | |||
| 96377 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 96378 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 96379 | } /*if (f2py_success) of transr*/ | |||
| 96380 | /* End of cleaning variable transr */ | |||
| 96381 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 96382 | /* End of cleaning variable arf */ | |||
| 96383 | /* End of cleaning variable lda */ | |||
| 96384 | /* End of cleaning variable n */ | |||
| 96385 | /* End of cleaning variable info */ | |||
| 96386 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 96387 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 96388 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 96389 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 96390 | /* End of cleaning variable a */ | |||
| 96391 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 96392 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 96393 | } /*if (f2py_success) of uplo*/ | |||
| 96394 | /* End of cleaning variable uplo */ | |||
| 96395 | /*end of cleanupfrompyobj*/ | |||
| 96396 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 96397 | /*routdebugfailure*/ | |||
| 96398 | } else { | |||
| 96399 | /*routdebugleave*/ | |||
| 96400 | } | |||
| 96401 | CFUNCSMESS("Freeing memory.\n"); | |||
| 96402 | /*freemem*/ | |||
| 96403 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96404 | f2py_stop_clock(); | |||
| 96405 | #endif | |||
| 96406 | return capi_buildvalue; | |||
| 96407 | } | |||
| 96408 | /******************************* end of ctrttf *******************************/ | |||
| 96409 | ||||
| 96410 | /*********************************** ztrttf ***********************************/ | |||
| 96411 | static char doc_f2py_rout__flapack_ztrttf[] = "\ | |||
| 96412 | arf,info = ztrttf(a,[transr,uplo])\n\nWrapper for ``ztrttf``.\ | |||
| 96413 | \n\nParameters\n----------\n" | |||
| 96414 | "a : input rank-2 array('D') with bounds (lda,n)\n" | |||
| 96415 | "\nOther Parameters\n----------------\n" | |||
| 96416 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 96417 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 96418 | "\nReturns\n-------\n" | |||
| 96419 | "arf : rank-1 array('D') with bounds (n*(n+1)/2)\n" | |||
| 96420 | "info : int"; | |||
| 96421 | /* extern void F_FUNC(ztrttf,ZTRTTF)(char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT* ); */ | |||
| 96422 | static PyObject *f2py_rout__flapack_ztrttf(const PyObject *capi_self, | |||
| 96423 | PyObject *capi_args, | |||
| 96424 | PyObject *capi_keywds, | |||
| 96425 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* )) { | |||
| 96426 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 96427 | volatile int f2py_success = 1; | |||
| 96428 | /*decl*/ | |||
| 96429 | ||||
| 96430 | string transr = NULL((void*)0); | |||
| 96431 | int slen(transr)capi_transr_len; | |||
| 96432 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 96433 | string uplo = NULL((void*)0); | |||
| 96434 | int slen(uplo)capi_uplo_len; | |||
| 96435 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 96436 | int n = 0; | |||
| 96437 | complex_double *a = NULL((void*)0); | |||
| 96438 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 96439 | const int a_Rank = 2; | |||
| 96440 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 96441 | int capi_a_intent = 0; | |||
| 96442 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 96443 | int lda = 0; | |||
| 96444 | complex_double *arf = NULL((void*)0); | |||
| 96445 | npy_intp arf_Dims[1] = {-1}; | |||
| 96446 | const int arf_Rank = 1; | |||
| 96447 | PyArrayObject *capi_arf_tmp = NULL((void*)0); | |||
| 96448 | int capi_arf_intent = 0; | |||
| 96449 | int info = 0; | |||
| 96450 | static char *capi_kwlist[] = {"a","transr","uplo",NULL((void*)0)}; | |||
| 96451 | ||||
| 96452 | /*routdebugenter*/ | |||
| 96453 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96454 | f2py_start_clock(); | |||
| 96455 | #endif | |||
| 96456 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 96457 | "O|OO:_flapack.ztrttf",\ | |||
| 96458 | capi_kwlist,&a_capi,&transr_capi,&uplo_capi)) | |||
| 96459 | return NULL((void*)0); | |||
| 96460 | /*frompyobj*/ | |||
| 96461 | /* Processing variable uplo */ | |||
| 96462 | slen(uplo)capi_uplo_len = 1; | |||
| 96463 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ztrttf to C string"); | |||
| 96464 | if (f2py_success) { | |||
| 96465 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ztrttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztrttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 96466 | /* Processing variable a */ | |||
| 96467 | ; | |||
| 96468 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 96469 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 96470 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 96471 | if (!PyErr_Occurred()) | |||
| 96472 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ztrttf to C/Fortran array" ); | |||
| 96473 | } else { | |||
| 96474 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 96475 | ||||
| 96476 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 96477 | /* Processing variable info */ | |||
| 96478 | /* Processing variable n */ | |||
| 96479 | n = shape(a,1)a_Dims[1]; | |||
| 96480 | /* Processing variable lda */ | |||
| 96481 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 96482 | /* Processing variable arf */ | |||
| 96483 | arf_Dims[0]=n*(n+1)/2; | |||
| 96484 | capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 96485 | capi_arf_tmp = array_from_pyobj(NPY_CDOUBLE,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct)); | |||
| 96486 | if (capi_arf_tmp == NULL((void*)0)) { | |||
| 96487 | if (!PyErr_Occurred()) | |||
| 96488 | PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.ztrttf to C/Fortran array" ); | |||
| 96489 | } else { | |||
| 96490 | arf = (complex_double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data)); | |||
| 96491 | ||||
| 96492 | /* Processing variable transr */ | |||
| 96493 | slen(transr)capi_transr_len = 1; | |||
| 96494 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ztrttf to C string"); | |||
| 96495 | if (f2py_success) { | |||
| 96496 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ztrttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztrttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 96497 | /*end of frompyobj*/ | |||
| 96498 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96499 | f2py_start_call_clock(); | |||
| 96500 | #endif | |||
| 96501 | /*callfortranroutine*/ | |||
| 96502 | (*f2py_func)(transr,uplo,&n,a,&lda,arf,&info) ; | |||
| 96503 | /*(*f2py_func)(transr,uplo,&n,a,&lda,arf,&info,slen(transr),slen(uplo));*/ | |||
| 96504 | if (PyErr_Occurred()) | |||
| 96505 | f2py_success = 0; | |||
| 96506 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96507 | f2py_stop_call_clock(); | |||
| 96508 | #endif | |||
| 96509 | /*end of callfortranroutine*/ | |||
| 96510 | if (f2py_success) { | |||
| 96511 | /*pyobjfrom*/ | |||
| 96512 | /*end of pyobjfrom*/ | |||
| 96513 | CFUNCSMESS("Building return value.\n"); | |||
| 96514 | capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info); | |||
| 96515 | /*closepyobjfrom*/ | |||
| 96516 | /*end of closepyobjfrom*/ | |||
| 96517 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 96518 | /*cleanupfrompyobj*/ | |||
| 96519 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 96520 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 96521 | } /*if (f2py_success) of transr*/ | |||
| 96522 | /* End of cleaning variable transr */ | |||
| 96523 | } /*if (capi_arf_tmp == NULL) ... else of arf*/ | |||
| 96524 | /* End of cleaning variable arf */ | |||
| 96525 | /* End of cleaning variable lda */ | |||
| 96526 | /* End of cleaning variable n */ | |||
| 96527 | /* End of cleaning variable info */ | |||
| 96528 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 96529 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 96530 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 96531 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 96532 | /* End of cleaning variable a */ | |||
| 96533 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 96534 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 96535 | } /*if (f2py_success) of uplo*/ | |||
| 96536 | /* End of cleaning variable uplo */ | |||
| 96537 | /*end of cleanupfrompyobj*/ | |||
| 96538 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 96539 | /*routdebugfailure*/ | |||
| 96540 | } else { | |||
| 96541 | /*routdebugleave*/ | |||
| 96542 | } | |||
| 96543 | CFUNCSMESS("Freeing memory.\n"); | |||
| 96544 | /*freemem*/ | |||
| 96545 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96546 | f2py_stop_clock(); | |||
| 96547 | #endif | |||
| 96548 | return capi_buildvalue; | |||
| 96549 | } | |||
| 96550 | /******************************* end of ztrttf *******************************/ | |||
| 96551 | ||||
| 96552 | /*********************************** strttp ***********************************/ | |||
| 96553 | static char doc_f2py_rout__flapack_strttp[] = "\ | |||
| 96554 | ap,info = strttp(a,[uplo])\n\nWrapper for ``strttp``.\ | |||
| 96555 | \n\nParameters\n----------\n" | |||
| 96556 | "a : input rank-2 array('f') with bounds (lda,n)\n" | |||
| 96557 | "\nOther Parameters\n----------------\n" | |||
| 96558 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 96559 | "\nReturns\n-------\n" | |||
| 96560 | "ap : rank-1 array('f') with bounds (n*(n+1)/2)\n" | |||
| 96561 | "info : int"; | |||
| 96562 | /* extern void F_FUNC(strttp,STRTTP)(char*,F_INT*,float*,F_INT*,float*,F_INT* ); */ | |||
| 96563 | static PyObject *f2py_rout__flapack_strttp(const PyObject *capi_self, | |||
| 96564 | PyObject *capi_args, | |||
| 96565 | PyObject *capi_keywds, | |||
| 96566 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) { | |||
| 96567 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 96568 | volatile int f2py_success = 1; | |||
| 96569 | /*decl*/ | |||
| 96570 | ||||
| 96571 | string uplo = NULL((void*)0); | |||
| 96572 | int slen(uplo)capi_uplo_len; | |||
| 96573 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 96574 | int n = 0; | |||
| 96575 | float *a = NULL((void*)0); | |||
| 96576 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 96577 | const int a_Rank = 2; | |||
| 96578 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 96579 | int capi_a_intent = 0; | |||
| 96580 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 96581 | int lda = 0; | |||
| 96582 | float *ap = NULL((void*)0); | |||
| 96583 | npy_intp ap_Dims[1] = {-1}; | |||
| 96584 | const int ap_Rank = 1; | |||
| 96585 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 96586 | int capi_ap_intent = 0; | |||
| 96587 | int info = 0; | |||
| 96588 | static char *capi_kwlist[] = {"a","uplo",NULL((void*)0)}; | |||
| 96589 | ||||
| 96590 | /*routdebugenter*/ | |||
| 96591 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96592 | f2py_start_clock(); | |||
| 96593 | #endif | |||
| 96594 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 96595 | "O|O:_flapack.strttp",\ | |||
| 96596 | capi_kwlist,&a_capi,&uplo_capi)) | |||
| 96597 | return NULL((void*)0); | |||
| 96598 | /*frompyobj*/ | |||
| 96599 | /* Processing variable uplo */ | |||
| 96600 | slen(uplo)capi_uplo_len = 1; | |||
| 96601 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.strttp to C string"); | |||
| 96602 | if (f2py_success) { | |||
| 96603 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","strttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""strttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 96604 | /* Processing variable a */ | |||
| 96605 | ; | |||
| 96606 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 96607 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 96608 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 96609 | if (!PyErr_Occurred()) | |||
| 96610 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.strttp to C/Fortran array" ); | |||
| 96611 | } else { | |||
| 96612 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 96613 | ||||
| 96614 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 96615 | /* Processing variable info */ | |||
| 96616 | /* Processing variable n */ | |||
| 96617 | n = shape(a,1)a_Dims[1]; | |||
| 96618 | /* Processing variable lda */ | |||
| 96619 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 96620 | /* Processing variable ap */ | |||
| 96621 | ap_Dims[0]=n*(n+1)/2; | |||
| 96622 | capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 96623 | capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct)); | |||
| 96624 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 96625 | if (!PyErr_Occurred()) | |||
| 96626 | PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.strttp to C/Fortran array" ); | |||
| 96627 | } else { | |||
| 96628 | ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 96629 | ||||
| 96630 | /*end of frompyobj*/ | |||
| 96631 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96632 | f2py_start_call_clock(); | |||
| 96633 | #endif | |||
| 96634 | /*callfortranroutine*/ | |||
| 96635 | (*f2py_func)(uplo,&n,a,&lda,ap,&info) ; | |||
| 96636 | /*(*f2py_func)(uplo,&n,a,&lda,ap,&info,slen(uplo));*/ | |||
| 96637 | if (PyErr_Occurred()) | |||
| 96638 | f2py_success = 0; | |||
| 96639 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96640 | f2py_stop_call_clock(); | |||
| 96641 | #endif | |||
| 96642 | /*end of callfortranroutine*/ | |||
| 96643 | if (f2py_success) { | |||
| 96644 | /*pyobjfrom*/ | |||
| 96645 | /*end of pyobjfrom*/ | |||
| 96646 | CFUNCSMESS("Building return value.\n"); | |||
| 96647 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 96648 | /*closepyobjfrom*/ | |||
| 96649 | /*end of closepyobjfrom*/ | |||
| 96650 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 96651 | /*cleanupfrompyobj*/ | |||
| 96652 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 96653 | /* End of cleaning variable ap */ | |||
| 96654 | /* End of cleaning variable lda */ | |||
| 96655 | /* End of cleaning variable n */ | |||
| 96656 | /* End of cleaning variable info */ | |||
| 96657 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 96658 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 96659 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 96660 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 96661 | /* End of cleaning variable a */ | |||
| 96662 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 96663 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 96664 | } /*if (f2py_success) of uplo*/ | |||
| 96665 | /* End of cleaning variable uplo */ | |||
| 96666 | /*end of cleanupfrompyobj*/ | |||
| 96667 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 96668 | /*routdebugfailure*/ | |||
| 96669 | } else { | |||
| 96670 | /*routdebugleave*/ | |||
| 96671 | } | |||
| 96672 | CFUNCSMESS("Freeing memory.\n"); | |||
| 96673 | /*freemem*/ | |||
| 96674 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96675 | f2py_stop_clock(); | |||
| 96676 | #endif | |||
| 96677 | return capi_buildvalue; | |||
| 96678 | } | |||
| 96679 | /******************************* end of strttp *******************************/ | |||
| 96680 | ||||
| 96681 | /*********************************** dtrttp ***********************************/ | |||
| 96682 | static char doc_f2py_rout__flapack_dtrttp[] = "\ | |||
| 96683 | ap,info = dtrttp(a,[uplo])\n\nWrapper for ``dtrttp``.\ | |||
| 96684 | \n\nParameters\n----------\n" | |||
| 96685 | "a : input rank-2 array('d') with bounds (lda,n)\n" | |||
| 96686 | "\nOther Parameters\n----------------\n" | |||
| 96687 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 96688 | "\nReturns\n-------\n" | |||
| 96689 | "ap : rank-1 array('d') with bounds (n*(n+1)/2)\n" | |||
| 96690 | "info : int"; | |||
| 96691 | /* extern void F_FUNC(dtrttp,DTRTTP)(char*,F_INT*,double*,F_INT*,double*,F_INT* ); */ | |||
| 96692 | static PyObject *f2py_rout__flapack_dtrttp(const PyObject *capi_self, | |||
| 96693 | PyObject *capi_args, | |||
| 96694 | PyObject *capi_keywds, | |||
| 96695 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) { | |||
| 96696 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 96697 | volatile int f2py_success = 1; | |||
| 96698 | /*decl*/ | |||
| 96699 | ||||
| 96700 | string uplo = NULL((void*)0); | |||
| 96701 | int slen(uplo)capi_uplo_len; | |||
| 96702 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 96703 | int n = 0; | |||
| 96704 | double *a = NULL((void*)0); | |||
| 96705 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 96706 | const int a_Rank = 2; | |||
| 96707 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 96708 | int capi_a_intent = 0; | |||
| 96709 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 96710 | int lda = 0; | |||
| 96711 | double *ap = NULL((void*)0); | |||
| 96712 | npy_intp ap_Dims[1] = {-1}; | |||
| 96713 | const int ap_Rank = 1; | |||
| 96714 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 96715 | int capi_ap_intent = 0; | |||
| 96716 | int info = 0; | |||
| 96717 | static char *capi_kwlist[] = {"a","uplo",NULL((void*)0)}; | |||
| 96718 | ||||
| 96719 | /*routdebugenter*/ | |||
| 96720 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96721 | f2py_start_clock(); | |||
| 96722 | #endif | |||
| 96723 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 96724 | "O|O:_flapack.dtrttp",\ | |||
| 96725 | capi_kwlist,&a_capi,&uplo_capi)) | |||
| 96726 | return NULL((void*)0); | |||
| 96727 | /*frompyobj*/ | |||
| 96728 | /* Processing variable uplo */ | |||
| 96729 | slen(uplo)capi_uplo_len = 1; | |||
| 96730 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.dtrttp to C string"); | |||
| 96731 | if (f2py_success) { | |||
| 96732 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","dtrttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtrttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 96733 | /* Processing variable a */ | |||
| 96734 | ; | |||
| 96735 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 96736 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 96737 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 96738 | if (!PyErr_Occurred()) | |||
| 96739 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dtrttp to C/Fortran array" ); | |||
| 96740 | } else { | |||
| 96741 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 96742 | ||||
| 96743 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 96744 | /* Processing variable info */ | |||
| 96745 | /* Processing variable n */ | |||
| 96746 | n = shape(a,1)a_Dims[1]; | |||
| 96747 | /* Processing variable lda */ | |||
| 96748 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 96749 | /* Processing variable ap */ | |||
| 96750 | ap_Dims[0]=n*(n+1)/2; | |||
| 96751 | capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 96752 | capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct)); | |||
| 96753 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 96754 | if (!PyErr_Occurred()) | |||
| 96755 | PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.dtrttp to C/Fortran array" ); | |||
| 96756 | } else { | |||
| 96757 | ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 96758 | ||||
| 96759 | /*end of frompyobj*/ | |||
| 96760 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96761 | f2py_start_call_clock(); | |||
| 96762 | #endif | |||
| 96763 | /*callfortranroutine*/ | |||
| 96764 | (*f2py_func)(uplo,&n,a,&lda,ap,&info) ; | |||
| 96765 | /*(*f2py_func)(uplo,&n,a,&lda,ap,&info,slen(uplo));*/ | |||
| 96766 | if (PyErr_Occurred()) | |||
| 96767 | f2py_success = 0; | |||
| 96768 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96769 | f2py_stop_call_clock(); | |||
| 96770 | #endif | |||
| 96771 | /*end of callfortranroutine*/ | |||
| 96772 | if (f2py_success) { | |||
| 96773 | /*pyobjfrom*/ | |||
| 96774 | /*end of pyobjfrom*/ | |||
| 96775 | CFUNCSMESS("Building return value.\n"); | |||
| 96776 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 96777 | /*closepyobjfrom*/ | |||
| 96778 | /*end of closepyobjfrom*/ | |||
| 96779 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 96780 | /*cleanupfrompyobj*/ | |||
| 96781 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 96782 | /* End of cleaning variable ap */ | |||
| 96783 | /* End of cleaning variable lda */ | |||
| 96784 | /* End of cleaning variable n */ | |||
| 96785 | /* End of cleaning variable info */ | |||
| 96786 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 96787 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 96788 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 96789 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 96790 | /* End of cleaning variable a */ | |||
| 96791 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 96792 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 96793 | } /*if (f2py_success) of uplo*/ | |||
| 96794 | /* End of cleaning variable uplo */ | |||
| 96795 | /*end of cleanupfrompyobj*/ | |||
| 96796 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 96797 | /*routdebugfailure*/ | |||
| 96798 | } else { | |||
| 96799 | /*routdebugleave*/ | |||
| 96800 | } | |||
| 96801 | CFUNCSMESS("Freeing memory.\n"); | |||
| 96802 | /*freemem*/ | |||
| 96803 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96804 | f2py_stop_clock(); | |||
| 96805 | #endif | |||
| 96806 | return capi_buildvalue; | |||
| 96807 | } | |||
| 96808 | /******************************* end of dtrttp *******************************/ | |||
| 96809 | ||||
| 96810 | /*********************************** ctrttp ***********************************/ | |||
| 96811 | static char doc_f2py_rout__flapack_ctrttp[] = "\ | |||
| 96812 | ap,info = ctrttp(a,[uplo])\n\nWrapper for ``ctrttp``.\ | |||
| 96813 | \n\nParameters\n----------\n" | |||
| 96814 | "a : input rank-2 array('F') with bounds (lda,n)\n" | |||
| 96815 | "\nOther Parameters\n----------------\n" | |||
| 96816 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 96817 | "\nReturns\n-------\n" | |||
| 96818 | "ap : rank-1 array('F') with bounds (n*(n+1)/2)\n" | |||
| 96819 | "info : int"; | |||
| 96820 | /* extern void F_FUNC(ctrttp,CTRTTP)(char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT* ); */ | |||
| 96821 | static PyObject *f2py_rout__flapack_ctrttp(const PyObject *capi_self, | |||
| 96822 | PyObject *capi_args, | |||
| 96823 | PyObject *capi_keywds, | |||
| 96824 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* )) { | |||
| 96825 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 96826 | volatile int f2py_success = 1; | |||
| 96827 | /*decl*/ | |||
| 96828 | ||||
| 96829 | string uplo = NULL((void*)0); | |||
| 96830 | int slen(uplo)capi_uplo_len; | |||
| 96831 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 96832 | int n = 0; | |||
| 96833 | complex_float *a = NULL((void*)0); | |||
| 96834 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 96835 | const int a_Rank = 2; | |||
| 96836 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 96837 | int capi_a_intent = 0; | |||
| 96838 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 96839 | int lda = 0; | |||
| 96840 | complex_float *ap = NULL((void*)0); | |||
| 96841 | npy_intp ap_Dims[1] = {-1}; | |||
| 96842 | const int ap_Rank = 1; | |||
| 96843 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 96844 | int capi_ap_intent = 0; | |||
| 96845 | int info = 0; | |||
| 96846 | static char *capi_kwlist[] = {"a","uplo",NULL((void*)0)}; | |||
| 96847 | ||||
| 96848 | /*routdebugenter*/ | |||
| 96849 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96850 | f2py_start_clock(); | |||
| 96851 | #endif | |||
| 96852 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 96853 | "O|O:_flapack.ctrttp",\ | |||
| 96854 | capi_kwlist,&a_capi,&uplo_capi)) | |||
| 96855 | return NULL((void*)0); | |||
| 96856 | /*frompyobj*/ | |||
| 96857 | /* Processing variable uplo */ | |||
| 96858 | slen(uplo)capi_uplo_len = 1; | |||
| 96859 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ctrttp to C string"); | |||
| 96860 | if (f2py_success) { | |||
| 96861 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ctrttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctrttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 96862 | /* Processing variable a */ | |||
| 96863 | ; | |||
| 96864 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 96865 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 96866 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 96867 | if (!PyErr_Occurred()) | |||
| 96868 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ctrttp to C/Fortran array" ); | |||
| 96869 | } else { | |||
| 96870 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 96871 | ||||
| 96872 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 96873 | /* Processing variable info */ | |||
| 96874 | /* Processing variable n */ | |||
| 96875 | n = shape(a,1)a_Dims[1]; | |||
| 96876 | /* Processing variable lda */ | |||
| 96877 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 96878 | /* Processing variable ap */ | |||
| 96879 | ap_Dims[0]=n*(n+1)/2; | |||
| 96880 | capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 96881 | capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct)); | |||
| 96882 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 96883 | if (!PyErr_Occurred()) | |||
| 96884 | PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.ctrttp to C/Fortran array" ); | |||
| 96885 | } else { | |||
| 96886 | ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 96887 | ||||
| 96888 | /*end of frompyobj*/ | |||
| 96889 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96890 | f2py_start_call_clock(); | |||
| 96891 | #endif | |||
| 96892 | /*callfortranroutine*/ | |||
| 96893 | (*f2py_func)(uplo,&n,a,&lda,ap,&info) ; | |||
| 96894 | /*(*f2py_func)(uplo,&n,a,&lda,ap,&info,slen(uplo));*/ | |||
| 96895 | if (PyErr_Occurred()) | |||
| 96896 | f2py_success = 0; | |||
| 96897 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96898 | f2py_stop_call_clock(); | |||
| 96899 | #endif | |||
| 96900 | /*end of callfortranroutine*/ | |||
| 96901 | if (f2py_success) { | |||
| 96902 | /*pyobjfrom*/ | |||
| 96903 | /*end of pyobjfrom*/ | |||
| 96904 | CFUNCSMESS("Building return value.\n"); | |||
| 96905 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 96906 | /*closepyobjfrom*/ | |||
| 96907 | /*end of closepyobjfrom*/ | |||
| 96908 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 96909 | /*cleanupfrompyobj*/ | |||
| 96910 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 96911 | /* End of cleaning variable ap */ | |||
| 96912 | /* End of cleaning variable lda */ | |||
| 96913 | /* End of cleaning variable n */ | |||
| 96914 | /* End of cleaning variable info */ | |||
| 96915 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 96916 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 96917 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 96918 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 96919 | /* End of cleaning variable a */ | |||
| 96920 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 96921 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 96922 | } /*if (f2py_success) of uplo*/ | |||
| 96923 | /* End of cleaning variable uplo */ | |||
| 96924 | /*end of cleanupfrompyobj*/ | |||
| 96925 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 96926 | /*routdebugfailure*/ | |||
| 96927 | } else { | |||
| 96928 | /*routdebugleave*/ | |||
| 96929 | } | |||
| 96930 | CFUNCSMESS("Freeing memory.\n"); | |||
| 96931 | /*freemem*/ | |||
| 96932 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96933 | f2py_stop_clock(); | |||
| 96934 | #endif | |||
| 96935 | return capi_buildvalue; | |||
| 96936 | } | |||
| 96937 | /******************************* end of ctrttp *******************************/ | |||
| 96938 | ||||
| 96939 | /*********************************** ztrttp ***********************************/ | |||
| 96940 | static char doc_f2py_rout__flapack_ztrttp[] = "\ | |||
| 96941 | ap,info = ztrttp(a,[uplo])\n\nWrapper for ``ztrttp``.\ | |||
| 96942 | \n\nParameters\n----------\n" | |||
| 96943 | "a : input rank-2 array('D') with bounds (lda,n)\n" | |||
| 96944 | "\nOther Parameters\n----------------\n" | |||
| 96945 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 96946 | "\nReturns\n-------\n" | |||
| 96947 | "ap : rank-1 array('D') with bounds (n*(n+1)/2)\n" | |||
| 96948 | "info : int"; | |||
| 96949 | /* extern void F_FUNC(ztrttp,ZTRTTP)(char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT* ); */ | |||
| 96950 | static PyObject *f2py_rout__flapack_ztrttp(const PyObject *capi_self, | |||
| 96951 | PyObject *capi_args, | |||
| 96952 | PyObject *capi_keywds, | |||
| 96953 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* )) { | |||
| 96954 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 96955 | volatile int f2py_success = 1; | |||
| 96956 | /*decl*/ | |||
| 96957 | ||||
| 96958 | string uplo = NULL((void*)0); | |||
| 96959 | int slen(uplo)capi_uplo_len; | |||
| 96960 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 96961 | int n = 0; | |||
| 96962 | complex_double *a = NULL((void*)0); | |||
| 96963 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 96964 | const int a_Rank = 2; | |||
| 96965 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 96966 | int capi_a_intent = 0; | |||
| 96967 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 96968 | int lda = 0; | |||
| 96969 | complex_double *ap = NULL((void*)0); | |||
| 96970 | npy_intp ap_Dims[1] = {-1}; | |||
| 96971 | const int ap_Rank = 1; | |||
| 96972 | PyArrayObject *capi_ap_tmp = NULL((void*)0); | |||
| 96973 | int capi_ap_intent = 0; | |||
| 96974 | int info = 0; | |||
| 96975 | static char *capi_kwlist[] = {"a","uplo",NULL((void*)0)}; | |||
| 96976 | ||||
| 96977 | /*routdebugenter*/ | |||
| 96978 | #ifdef F2PY_REPORT_ATEXIT | |||
| 96979 | f2py_start_clock(); | |||
| 96980 | #endif | |||
| 96981 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 96982 | "O|O:_flapack.ztrttp",\ | |||
| 96983 | capi_kwlist,&a_capi,&uplo_capi)) | |||
| 96984 | return NULL((void*)0); | |||
| 96985 | /*frompyobj*/ | |||
| 96986 | /* Processing variable uplo */ | |||
| 96987 | slen(uplo)capi_uplo_len = 1; | |||
| 96988 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ztrttp to C string"); | |||
| 96989 | if (f2py_success) { | |||
| 96990 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ztrttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztrttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 96991 | /* Processing variable a */ | |||
| 96992 | ; | |||
| 96993 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 96994 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 96995 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 96996 | if (!PyErr_Occurred()) | |||
| 96997 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ztrttp to C/Fortran array" ); | |||
| 96998 | } else { | |||
| 96999 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 97000 | ||||
| 97001 | CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a"); } else { | |||
| 97002 | /* Processing variable info */ | |||
| 97003 | /* Processing variable n */ | |||
| 97004 | n = shape(a,1)a_Dims[1]; | |||
| 97005 | /* Processing variable lda */ | |||
| 97006 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 97007 | /* Processing variable ap */ | |||
| 97008 | ap_Dims[0]=n*(n+1)/2; | |||
| 97009 | capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 97010 | capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct)); | |||
| 97011 | if (capi_ap_tmp == NULL((void*)0)) { | |||
| 97012 | if (!PyErr_Occurred()) | |||
| 97013 | PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.ztrttp to C/Fortran array" ); | |||
| 97014 | } else { | |||
| 97015 | ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data)); | |||
| 97016 | ||||
| 97017 | /*end of frompyobj*/ | |||
| 97018 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97019 | f2py_start_call_clock(); | |||
| 97020 | #endif | |||
| 97021 | /*callfortranroutine*/ | |||
| 97022 | (*f2py_func)(uplo,&n,a,&lda,ap,&info) ; | |||
| 97023 | /*(*f2py_func)(uplo,&n,a,&lda,ap,&info,slen(uplo));*/ | |||
| 97024 | if (PyErr_Occurred()) | |||
| 97025 | f2py_success = 0; | |||
| 97026 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97027 | f2py_stop_call_clock(); | |||
| 97028 | #endif | |||
| 97029 | /*end of callfortranroutine*/ | |||
| 97030 | if (f2py_success) { | |||
| 97031 | /*pyobjfrom*/ | |||
| 97032 | /*end of pyobjfrom*/ | |||
| 97033 | CFUNCSMESS("Building return value.\n"); | |||
| 97034 | capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info); | |||
| 97035 | /*closepyobjfrom*/ | |||
| 97036 | /*end of closepyobjfrom*/ | |||
| 97037 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 97038 | /*cleanupfrompyobj*/ | |||
| 97039 | } /*if (capi_ap_tmp == NULL) ... else of ap*/ | |||
| 97040 | /* End of cleaning variable ap */ | |||
| 97041 | /* End of cleaning variable lda */ | |||
| 97042 | /* End of cleaning variable n */ | |||
| 97043 | /* End of cleaning variable info */ | |||
| 97044 | } /*CHECKARRAY(shape(a,0)==shape(a,1))*/ | |||
| 97045 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 97046 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 97047 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 97048 | /* End of cleaning variable a */ | |||
| 97049 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 97050 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 97051 | } /*if (f2py_success) of uplo*/ | |||
| 97052 | /* End of cleaning variable uplo */ | |||
| 97053 | /*end of cleanupfrompyobj*/ | |||
| 97054 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 97055 | /*routdebugfailure*/ | |||
| 97056 | } else { | |||
| 97057 | /*routdebugleave*/ | |||
| 97058 | } | |||
| 97059 | CFUNCSMESS("Freeing memory.\n"); | |||
| 97060 | /*freemem*/ | |||
| 97061 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97062 | f2py_stop_clock(); | |||
| 97063 | #endif | |||
| 97064 | return capi_buildvalue; | |||
| 97065 | } | |||
| 97066 | /******************************* end of ztrttp *******************************/ | |||
| 97067 | ||||
| 97068 | /*********************************** stfsm ***********************************/ | |||
| 97069 | static char doc_f2py_rout__flapack_stfsm[] = "\ | |||
| 97070 | x = stfsm(alpha,a,b,[transr,side,uplo,trans,diag,overwrite_b])\n\nWrapper for ``stfsm``.\ | |||
| 97071 | \n\nParameters\n----------\n" | |||
| 97072 | "alpha : input float\n" | |||
| 97073 | "a : input rank-1 array('f') with bounds (nt)\n" | |||
| 97074 | "b : input rank-2 array('f') with bounds (m,n)\n" | |||
| 97075 | "\nOther Parameters\n----------------\n" | |||
| 97076 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 97077 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 97078 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 97079 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 97080 | "diag : input string(len=1), optional\n Default: 'N'\n" | |||
| 97081 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 97082 | "\nReturns\n-------\n" | |||
| 97083 | "x : rank-2 array('f') with bounds (m,n) and b storage"; | |||
| 97084 | /* extern void F_FUNC(stfsm,STFSM)(char*,char*,char*,char*,char*,F_INT*,F_INT*,float*,float*,float*,F_INT* ); */ | |||
| 97085 | static PyObject *f2py_rout__flapack_stfsm(const PyObject *capi_self, | |||
| 97086 | PyObject *capi_args, | |||
| 97087 | PyObject *capi_keywds, | |||
| 97088 | void (*f2py_func)(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint* )) { | |||
| 97089 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 97090 | volatile int f2py_success = 1; | |||
| 97091 | /*decl*/ | |||
| 97092 | ||||
| 97093 | string transr = NULL((void*)0); | |||
| 97094 | int slen(transr)capi_transr_len; | |||
| 97095 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 97096 | string side = NULL((void*)0); | |||
| 97097 | int slen(side)capi_side_len; | |||
| 97098 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 97099 | string uplo = NULL((void*)0); | |||
| 97100 | int slen(uplo)capi_uplo_len; | |||
| 97101 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 97102 | string trans = NULL((void*)0); | |||
| 97103 | int slen(trans)capi_trans_len; | |||
| 97104 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 97105 | string diag = NULL((void*)0); | |||
| 97106 | int slen(diag)capi_diag_len; | |||
| 97107 | PyObject *diag_capi = Py_None(&_Py_NoneStruct); | |||
| 97108 | int m = 0; | |||
| 97109 | int n = 0; | |||
| 97110 | int nt = 0; | |||
| 97111 | float alpha = 0; | |||
| 97112 | PyObject *alpha_capi = Py_None(&_Py_NoneStruct); | |||
| 97113 | float *a = NULL((void*)0); | |||
| 97114 | npy_intp a_Dims[1] = {-1}; | |||
| 97115 | const int a_Rank = 1; | |||
| 97116 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 97117 | int capi_a_intent = 0; | |||
| 97118 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 97119 | float *b = NULL((void*)0); | |||
| 97120 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 97121 | const int b_Rank = 2; | |||
| 97122 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 97123 | int capi_b_intent = 0; | |||
| 97124 | int capi_overwrite_b = 0; | |||
| 97125 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 97126 | int ldb = 0; | |||
| 97127 | static char *capi_kwlist[] = {"alpha","a","b","transr","side","uplo","trans","diag","overwrite_b",NULL((void*)0)}; | |||
| 97128 | ||||
| 97129 | /*routdebugenter*/ | |||
| 97130 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97131 | f2py_start_clock(); | |||
| 97132 | #endif | |||
| 97133 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 97134 | "OOO|OOOOOi:_flapack.stfsm",\ | |||
| 97135 | capi_kwlist,&alpha_capi,&a_capi,&b_capi,&transr_capi,&side_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b)) | |||
| 97136 | return NULL((void*)0); | |||
| 97137 | /*frompyobj*/ | |||
| 97138 | /* Processing variable side */ | |||
| 97139 | slen(side)capi_side_len = 1; | |||
| 97140 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 2nd keyword `side' of _flapack.stfsm to C string"); | |||
| 97141 | if (f2py_success) { | |||
| 97142 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","2nd keyword side","stfsm:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfsm:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""2nd keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97143 | /* Processing variable uplo */ | |||
| 97144 | slen(uplo)capi_uplo_len = 1; | |||
| 97145 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.stfsm to C string"); | |||
| 97146 | if (f2py_success) { | |||
| 97147 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","stfsm:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfsm:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97148 | /* Processing variable alpha */ | |||
| 97149 | f2py_success = float_from_pyobj(&alpha,alpha_capi,"_flapack.stfsm() 1st argument (alpha) can't be converted to float"); | |||
| 97150 | if (f2py_success) { | |||
| 97151 | /* Processing variable a */ | |||
| 97152 | ; | |||
| 97153 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 97154 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 97155 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 97156 | if (!PyErr_Occurred()) | |||
| 97157 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.stfsm to C/Fortran array" ); | |||
| 97158 | } else { | |||
| 97159 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 97160 | ||||
| 97161 | /* Processing variable b */ | |||
| 97162 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 97163 | ; | |||
| 97164 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 97165 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 97166 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 97167 | if (!PyErr_Occurred()) | |||
| 97168 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.stfsm to C/Fortran array" ); | |||
| 97169 | } else { | |||
| 97170 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 97171 | ||||
| 97172 | /* Processing variable m */ | |||
| 97173 | m = shape(b,0)b_Dims[0]; | |||
| 97174 | /* Processing variable n */ | |||
| 97175 | n = shape(b,1)b_Dims[1]; | |||
| 97176 | /* Processing variable nt */ | |||
| 97177 | nt = shape(a,0)a_Dims[0]; | |||
| 97178 | CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2),"*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)","hidden nt","stfsm:nt=%d",nt)if (!(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""stfsm:nt=%d", "(""*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)" ") failed for ""hidden nt", nt); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 97179 | /* Processing variable ldb */ | |||
| 97180 | ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 97181 | /* Processing variable transr */ | |||
| 97182 | slen(transr)capi_transr_len = 1; | |||
| 97183 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.stfsm to C string"); | |||
| 97184 | if (f2py_success) { | |||
| 97185 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","stfsm:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfsm:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 97186 | /* Processing variable trans */ | |||
| 97187 | slen(trans)capi_trans_len = 1; | |||
| 97188 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 4th keyword `trans' of _flapack.stfsm to C string"); | |||
| 97189 | if (f2py_success) { | |||
| 97190 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","4th keyword trans","stfsm:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfsm:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""4th keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97191 | /* Processing variable diag */ | |||
| 97192 | slen(diag)capi_diag_len = 1; | |||
| 97193 | f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 5th keyword `diag' of _flapack.stfsm to C string"); | |||
| 97194 | if (f2py_success) { | |||
| 97195 | CHECKSTRING(*diag=='U'||*diag=='N',"*diag=='U'||*diag=='N'","5th keyword diag","stfsm:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='U'||*diag=='N')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stfsm:slen(diag)=%d diag=\"%s\"", "(""*diag=='U'||*diag=='N'" ") failed for ""5th keyword diag", capi_diag_len, diag); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97196 | /*end of frompyobj*/ | |||
| 97197 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97198 | f2py_start_call_clock(); | |||
| 97199 | #endif | |||
| 97200 | /*callfortranroutine*/ | |||
| 97201 | (*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&alpha,a,b,&ldb) ; | |||
| 97202 | /*(*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&nt,&alpha,a,b,&ldb,slen(transr),slen(side),slen(uplo),slen(trans),slen(diag));*/ | |||
| 97203 | if (PyErr_Occurred()) | |||
| 97204 | f2py_success = 0; | |||
| 97205 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97206 | f2py_stop_call_clock(); | |||
| 97207 | #endif | |||
| 97208 | /*end of callfortranroutine*/ | |||
| 97209 | if (f2py_success) { | |||
| 97210 | /*pyobjfrom*/ | |||
| 97211 | /*end of pyobjfrom*/ | |||
| 97212 | CFUNCSMESS("Building return value.\n"); | |||
| 97213 | capi_buildvalue = Py_BuildValue("N",capi_b_tmp); | |||
| 97214 | /*closepyobjfrom*/ | |||
| 97215 | /*end of closepyobjfrom*/ | |||
| 97216 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 97217 | /*cleanupfrompyobj*/ | |||
| 97218 | } /*CHECKSTRING(*diag=='U'||*diag=='N')*/ | |||
| 97219 | STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0); | |||
| 97220 | } /*if (f2py_success) of diag*/ | |||
| 97221 | /* End of cleaning variable diag */ | |||
| 97222 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 97223 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 97224 | } /*if (f2py_success) of trans*/ | |||
| 97225 | /* End of cleaning variable trans */ | |||
| 97226 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 97227 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 97228 | } /*if (f2py_success) of transr*/ | |||
| 97229 | /* End of cleaning variable transr */ | |||
| 97230 | /* End of cleaning variable ldb */ | |||
| 97231 | } /*CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))*/ | |||
| 97232 | /* End of cleaning variable nt */ | |||
| 97233 | /* End of cleaning variable n */ | |||
| 97234 | /* End of cleaning variable m */ | |||
| 97235 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 97236 | /* End of cleaning variable b */ | |||
| 97237 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 97238 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 97239 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 97240 | /* End of cleaning variable a */ | |||
| 97241 | } /*if (f2py_success) of alpha*/ | |||
| 97242 | /* End of cleaning variable alpha */ | |||
| 97243 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 97244 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 97245 | } /*if (f2py_success) of uplo*/ | |||
| 97246 | /* End of cleaning variable uplo */ | |||
| 97247 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 97248 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 97249 | } /*if (f2py_success) of side*/ | |||
| 97250 | /* End of cleaning variable side */ | |||
| 97251 | /*end of cleanupfrompyobj*/ | |||
| 97252 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 97253 | /*routdebugfailure*/ | |||
| 97254 | } else { | |||
| 97255 | /*routdebugleave*/ | |||
| 97256 | } | |||
| 97257 | CFUNCSMESS("Freeing memory.\n"); | |||
| 97258 | /*freemem*/ | |||
| 97259 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97260 | f2py_stop_clock(); | |||
| 97261 | #endif | |||
| 97262 | return capi_buildvalue; | |||
| 97263 | } | |||
| 97264 | /******************************** end of stfsm ********************************/ | |||
| 97265 | ||||
| 97266 | /*********************************** dtfsm ***********************************/ | |||
| 97267 | static char doc_f2py_rout__flapack_dtfsm[] = "\ | |||
| 97268 | x = dtfsm(alpha,a,b,[transr,side,uplo,trans,diag,overwrite_b])\n\nWrapper for ``dtfsm``.\ | |||
| 97269 | \n\nParameters\n----------\n" | |||
| 97270 | "alpha : input float\n" | |||
| 97271 | "a : input rank-1 array('d') with bounds (nt)\n" | |||
| 97272 | "b : input rank-2 array('d') with bounds (m,n)\n" | |||
| 97273 | "\nOther Parameters\n----------------\n" | |||
| 97274 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 97275 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 97276 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 97277 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 97278 | "diag : input string(len=1), optional\n Default: 'N'\n" | |||
| 97279 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 97280 | "\nReturns\n-------\n" | |||
| 97281 | "x : rank-2 array('d') with bounds (m,n) and b storage"; | |||
| 97282 | /* extern void F_FUNC(dtfsm,DTFSM)(char*,char*,char*,char*,char*,F_INT*,F_INT*,double*,double*,double*,F_INT* ); */ | |||
| 97283 | static PyObject *f2py_rout__flapack_dtfsm(const PyObject *capi_self, | |||
| 97284 | PyObject *capi_args, | |||
| 97285 | PyObject *capi_keywds, | |||
| 97286 | void (*f2py_func)(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint* )) { | |||
| 97287 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 97288 | volatile int f2py_success = 1; | |||
| 97289 | /*decl*/ | |||
| 97290 | ||||
| 97291 | string transr = NULL((void*)0); | |||
| 97292 | int slen(transr)capi_transr_len; | |||
| 97293 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 97294 | string side = NULL((void*)0); | |||
| 97295 | int slen(side)capi_side_len; | |||
| 97296 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 97297 | string uplo = NULL((void*)0); | |||
| 97298 | int slen(uplo)capi_uplo_len; | |||
| 97299 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 97300 | string trans = NULL((void*)0); | |||
| 97301 | int slen(trans)capi_trans_len; | |||
| 97302 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 97303 | string diag = NULL((void*)0); | |||
| 97304 | int slen(diag)capi_diag_len; | |||
| 97305 | PyObject *diag_capi = Py_None(&_Py_NoneStruct); | |||
| 97306 | int m = 0; | |||
| 97307 | int n = 0; | |||
| 97308 | int nt = 0; | |||
| 97309 | double alpha = 0; | |||
| 97310 | PyObject *alpha_capi = Py_None(&_Py_NoneStruct); | |||
| 97311 | double *a = NULL((void*)0); | |||
| 97312 | npy_intp a_Dims[1] = {-1}; | |||
| 97313 | const int a_Rank = 1; | |||
| 97314 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 97315 | int capi_a_intent = 0; | |||
| 97316 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 97317 | double *b = NULL((void*)0); | |||
| 97318 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 97319 | const int b_Rank = 2; | |||
| 97320 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 97321 | int capi_b_intent = 0; | |||
| 97322 | int capi_overwrite_b = 0; | |||
| 97323 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 97324 | int ldb = 0; | |||
| 97325 | static char *capi_kwlist[] = {"alpha","a","b","transr","side","uplo","trans","diag","overwrite_b",NULL((void*)0)}; | |||
| 97326 | ||||
| 97327 | /*routdebugenter*/ | |||
| 97328 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97329 | f2py_start_clock(); | |||
| 97330 | #endif | |||
| 97331 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 97332 | "OOO|OOOOOi:_flapack.dtfsm",\ | |||
| 97333 | capi_kwlist,&alpha_capi,&a_capi,&b_capi,&transr_capi,&side_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b)) | |||
| 97334 | return NULL((void*)0); | |||
| 97335 | /*frompyobj*/ | |||
| 97336 | /* Processing variable side */ | |||
| 97337 | slen(side)capi_side_len = 1; | |||
| 97338 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 2nd keyword `side' of _flapack.dtfsm to C string"); | |||
| 97339 | if (f2py_success) { | |||
| 97340 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","2nd keyword side","dtfsm:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfsm:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""2nd keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97341 | /* Processing variable uplo */ | |||
| 97342 | slen(uplo)capi_uplo_len = 1; | |||
| 97343 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.dtfsm to C string"); | |||
| 97344 | if (f2py_success) { | |||
| 97345 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","dtfsm:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfsm:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97346 | /* Processing variable alpha */ | |||
| 97347 | f2py_success = double_from_pyobj(&alpha,alpha_capi,"_flapack.dtfsm() 1st argument (alpha) can't be converted to double"); | |||
| 97348 | if (f2py_success) { | |||
| 97349 | /* Processing variable a */ | |||
| 97350 | ; | |||
| 97351 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 97352 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 97353 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 97354 | if (!PyErr_Occurred()) | |||
| 97355 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dtfsm to C/Fortran array" ); | |||
| 97356 | } else { | |||
| 97357 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 97358 | ||||
| 97359 | /* Processing variable b */ | |||
| 97360 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 97361 | ; | |||
| 97362 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 97363 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 97364 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 97365 | if (!PyErr_Occurred()) | |||
| 97366 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dtfsm to C/Fortran array" ); | |||
| 97367 | } else { | |||
| 97368 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 97369 | ||||
| 97370 | /* Processing variable m */ | |||
| 97371 | m = shape(b,0)b_Dims[0]; | |||
| 97372 | /* Processing variable n */ | |||
| 97373 | n = shape(b,1)b_Dims[1]; | |||
| 97374 | /* Processing variable nt */ | |||
| 97375 | nt = shape(a,0)a_Dims[0]; | |||
| 97376 | CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2),"*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)","hidden nt","dtfsm:nt=%d",nt)if (!(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dtfsm:nt=%d", "(""*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)" ") failed for ""hidden nt", nt); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 97377 | /* Processing variable ldb */ | |||
| 97378 | ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 97379 | /* Processing variable transr */ | |||
| 97380 | slen(transr)capi_transr_len = 1; | |||
| 97381 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dtfsm to C string"); | |||
| 97382 | if (f2py_success) { | |||
| 97383 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dtfsm:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfsm:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 97384 | /* Processing variable trans */ | |||
| 97385 | slen(trans)capi_trans_len = 1; | |||
| 97386 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 4th keyword `trans' of _flapack.dtfsm to C string"); | |||
| 97387 | if (f2py_success) { | |||
| 97388 | CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","4th keyword trans","dtfsm:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfsm:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'" ") failed for ""4th keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97389 | /* Processing variable diag */ | |||
| 97390 | slen(diag)capi_diag_len = 1; | |||
| 97391 | f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 5th keyword `diag' of _flapack.dtfsm to C string"); | |||
| 97392 | if (f2py_success) { | |||
| 97393 | CHECKSTRING(*diag=='U'||*diag=='N',"*diag=='U'||*diag=='N'","5th keyword diag","dtfsm:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='U'||*diag=='N')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtfsm:slen(diag)=%d diag=\"%s\"", "(""*diag=='U'||*diag=='N'" ") failed for ""5th keyword diag", capi_diag_len, diag); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97394 | /*end of frompyobj*/ | |||
| 97395 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97396 | f2py_start_call_clock(); | |||
| 97397 | #endif | |||
| 97398 | /*callfortranroutine*/ | |||
| 97399 | (*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&alpha,a,b,&ldb) ; | |||
| 97400 | /*(*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&nt,&alpha,a,b,&ldb,slen(transr),slen(side),slen(uplo),slen(trans),slen(diag));*/ | |||
| 97401 | if (PyErr_Occurred()) | |||
| 97402 | f2py_success = 0; | |||
| 97403 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97404 | f2py_stop_call_clock(); | |||
| 97405 | #endif | |||
| 97406 | /*end of callfortranroutine*/ | |||
| 97407 | if (f2py_success) { | |||
| 97408 | /*pyobjfrom*/ | |||
| 97409 | /*end of pyobjfrom*/ | |||
| 97410 | CFUNCSMESS("Building return value.\n"); | |||
| 97411 | capi_buildvalue = Py_BuildValue("N",capi_b_tmp); | |||
| 97412 | /*closepyobjfrom*/ | |||
| 97413 | /*end of closepyobjfrom*/ | |||
| 97414 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 97415 | /*cleanupfrompyobj*/ | |||
| 97416 | } /*CHECKSTRING(*diag=='U'||*diag=='N')*/ | |||
| 97417 | STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0); | |||
| 97418 | } /*if (f2py_success) of diag*/ | |||
| 97419 | /* End of cleaning variable diag */ | |||
| 97420 | } /*CHECKSTRING(*trans=='N'||*trans=='T')*/ | |||
| 97421 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 97422 | } /*if (f2py_success) of trans*/ | |||
| 97423 | /* End of cleaning variable trans */ | |||
| 97424 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 97425 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 97426 | } /*if (f2py_success) of transr*/ | |||
| 97427 | /* End of cleaning variable transr */ | |||
| 97428 | /* End of cleaning variable ldb */ | |||
| 97429 | } /*CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))*/ | |||
| 97430 | /* End of cleaning variable nt */ | |||
| 97431 | /* End of cleaning variable n */ | |||
| 97432 | /* End of cleaning variable m */ | |||
| 97433 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 97434 | /* End of cleaning variable b */ | |||
| 97435 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 97436 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 97437 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 97438 | /* End of cleaning variable a */ | |||
| 97439 | } /*if (f2py_success) of alpha*/ | |||
| 97440 | /* End of cleaning variable alpha */ | |||
| 97441 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 97442 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 97443 | } /*if (f2py_success) of uplo*/ | |||
| 97444 | /* End of cleaning variable uplo */ | |||
| 97445 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 97446 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 97447 | } /*if (f2py_success) of side*/ | |||
| 97448 | /* End of cleaning variable side */ | |||
| 97449 | /*end of cleanupfrompyobj*/ | |||
| 97450 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 97451 | /*routdebugfailure*/ | |||
| 97452 | } else { | |||
| 97453 | /*routdebugleave*/ | |||
| 97454 | } | |||
| 97455 | CFUNCSMESS("Freeing memory.\n"); | |||
| 97456 | /*freemem*/ | |||
| 97457 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97458 | f2py_stop_clock(); | |||
| 97459 | #endif | |||
| 97460 | return capi_buildvalue; | |||
| 97461 | } | |||
| 97462 | /******************************** end of dtfsm ********************************/ | |||
| 97463 | ||||
| 97464 | /*********************************** ctfsm ***********************************/ | |||
| 97465 | static char doc_f2py_rout__flapack_ctfsm[] = "\ | |||
| 97466 | x = ctfsm(alpha,a,b,[transr,side,uplo,trans,diag,overwrite_b])\n\nWrapper for ``ctfsm``.\ | |||
| 97467 | \n\nParameters\n----------\n" | |||
| 97468 | "alpha : input complex\n" | |||
| 97469 | "a : input rank-1 array('F') with bounds (nt)\n" | |||
| 97470 | "b : input rank-2 array('F') with bounds (m,n)\n" | |||
| 97471 | "\nOther Parameters\n----------------\n" | |||
| 97472 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 97473 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 97474 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 97475 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 97476 | "diag : input string(len=1), optional\n Default: 'N'\n" | |||
| 97477 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 97478 | "\nReturns\n-------\n" | |||
| 97479 | "x : rank-2 array('F') with bounds (m,n) and b storage"; | |||
| 97480 | /* extern void F_FUNC(ctfsm,CTFSM)(char*,char*,char*,char*,char*,F_INT*,F_INT*,complex_float*,complex_float*,complex_float*,F_INT* ); */ | |||
| 97481 | static PyObject *f2py_rout__flapack_ctfsm(const PyObject *capi_self, | |||
| 97482 | PyObject *capi_args, | |||
| 97483 | PyObject *capi_keywds, | |||
| 97484 | void (*f2py_func)(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint* )) { | |||
| 97485 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 97486 | volatile int f2py_success = 1; | |||
| 97487 | /*decl*/ | |||
| 97488 | ||||
| 97489 | string transr = NULL((void*)0); | |||
| 97490 | int slen(transr)capi_transr_len; | |||
| 97491 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 97492 | string side = NULL((void*)0); | |||
| 97493 | int slen(side)capi_side_len; | |||
| 97494 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 97495 | string uplo = NULL((void*)0); | |||
| 97496 | int slen(uplo)capi_uplo_len; | |||
| 97497 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 97498 | string trans = NULL((void*)0); | |||
| 97499 | int slen(trans)capi_trans_len; | |||
| 97500 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 97501 | string diag = NULL((void*)0); | |||
| 97502 | int slen(diag)capi_diag_len; | |||
| 97503 | PyObject *diag_capi = Py_None(&_Py_NoneStruct); | |||
| 97504 | int m = 0; | |||
| 97505 | int n = 0; | |||
| 97506 | int nt = 0; | |||
| 97507 | complex_float alpha; | |||
| 97508 | PyObject *alpha_capi = Py_None(&_Py_NoneStruct); | |||
| 97509 | complex_float *a = NULL((void*)0); | |||
| 97510 | npy_intp a_Dims[1] = {-1}; | |||
| 97511 | const int a_Rank = 1; | |||
| 97512 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 97513 | int capi_a_intent = 0; | |||
| 97514 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 97515 | complex_float *b = NULL((void*)0); | |||
| 97516 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 97517 | const int b_Rank = 2; | |||
| 97518 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 97519 | int capi_b_intent = 0; | |||
| 97520 | int capi_overwrite_b = 0; | |||
| 97521 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 97522 | int ldb = 0; | |||
| 97523 | static char *capi_kwlist[] = {"alpha","a","b","transr","side","uplo","trans","diag","overwrite_b",NULL((void*)0)}; | |||
| 97524 | ||||
| 97525 | /*routdebugenter*/ | |||
| 97526 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97527 | f2py_start_clock(); | |||
| 97528 | #endif | |||
| 97529 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 97530 | "OOO|OOOOOi:_flapack.ctfsm",\ | |||
| 97531 | capi_kwlist,&alpha_capi,&a_capi,&b_capi,&transr_capi,&side_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b)) | |||
| 97532 | return NULL((void*)0); | |||
| 97533 | /*frompyobj*/ | |||
| 97534 | /* Processing variable side */ | |||
| 97535 | slen(side)capi_side_len = 1; | |||
| 97536 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 2nd keyword `side' of _flapack.ctfsm to C string"); | |||
| 97537 | if (f2py_success) { | |||
| 97538 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","2nd keyword side","ctfsm:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfsm:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""2nd keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97539 | /* Processing variable uplo */ | |||
| 97540 | slen(uplo)capi_uplo_len = 1; | |||
| 97541 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.ctfsm to C string"); | |||
| 97542 | if (f2py_success) { | |||
| 97543 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","ctfsm:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfsm:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97544 | /* Processing variable alpha */ | |||
| 97545 | f2py_success = complex_float_from_pyobj(&alpha,alpha_capi,"_flapack.ctfsm() 1st argument (alpha) can't be converted to complex_float"); | |||
| 97546 | if (f2py_success) { | |||
| 97547 | /* Processing variable a */ | |||
| 97548 | ; | |||
| 97549 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 97550 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 97551 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 97552 | if (!PyErr_Occurred()) | |||
| 97553 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.ctfsm to C/Fortran array" ); | |||
| 97554 | } else { | |||
| 97555 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 97556 | ||||
| 97557 | /* Processing variable b */ | |||
| 97558 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 97559 | ; | |||
| 97560 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 97561 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 97562 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 97563 | if (!PyErr_Occurred()) | |||
| 97564 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.ctfsm to C/Fortran array" ); | |||
| 97565 | } else { | |||
| 97566 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 97567 | ||||
| 97568 | /* Processing variable m */ | |||
| 97569 | m = shape(b,0)b_Dims[0]; | |||
| 97570 | /* Processing variable n */ | |||
| 97571 | n = shape(b,1)b_Dims[1]; | |||
| 97572 | /* Processing variable nt */ | |||
| 97573 | nt = shape(a,0)a_Dims[0]; | |||
| 97574 | CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2),"*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)","hidden nt","ctfsm:nt=%d",nt)if (!(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ctfsm:nt=%d", "(""*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)" ") failed for ""hidden nt", nt); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 97575 | /* Processing variable ldb */ | |||
| 97576 | ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 97577 | /* Processing variable transr */ | |||
| 97578 | slen(transr)capi_transr_len = 1; | |||
| 97579 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ctfsm to C string"); | |||
| 97580 | if (f2py_success) { | |||
| 97581 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ctfsm:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfsm:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 97582 | /* Processing variable trans */ | |||
| 97583 | slen(trans)capi_trans_len = 1; | |||
| 97584 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 4th keyword `trans' of _flapack.ctfsm to C string"); | |||
| 97585 | if (f2py_success) { | |||
| 97586 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","4th keyword trans","ctfsm:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfsm:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""4th keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97587 | /* Processing variable diag */ | |||
| 97588 | slen(diag)capi_diag_len = 1; | |||
| 97589 | f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 5th keyword `diag' of _flapack.ctfsm to C string"); | |||
| 97590 | if (f2py_success) { | |||
| 97591 | CHECKSTRING(*diag=='U'||*diag=='N',"*diag=='U'||*diag=='N'","5th keyword diag","ctfsm:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='U'||*diag=='N')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctfsm:slen(diag)=%d diag=\"%s\"", "(""*diag=='U'||*diag=='N'" ") failed for ""5th keyword diag", capi_diag_len, diag); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97592 | /*end of frompyobj*/ | |||
| 97593 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97594 | f2py_start_call_clock(); | |||
| 97595 | #endif | |||
| 97596 | /*callfortranroutine*/ | |||
| 97597 | (*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&alpha,a,b,&ldb) ; | |||
| 97598 | /*(*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&nt,&alpha,a,b,&ldb,slen(transr),slen(side),slen(uplo),slen(trans),slen(diag));*/ | |||
| 97599 | if (PyErr_Occurred()) | |||
| 97600 | f2py_success = 0; | |||
| 97601 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97602 | f2py_stop_call_clock(); | |||
| 97603 | #endif | |||
| 97604 | /*end of callfortranroutine*/ | |||
| 97605 | if (f2py_success) { | |||
| 97606 | /*pyobjfrom*/ | |||
| 97607 | /*end of pyobjfrom*/ | |||
| 97608 | CFUNCSMESS("Building return value.\n"); | |||
| 97609 | capi_buildvalue = Py_BuildValue("N",capi_b_tmp); | |||
| 97610 | /*closepyobjfrom*/ | |||
| 97611 | /*end of closepyobjfrom*/ | |||
| 97612 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 97613 | /*cleanupfrompyobj*/ | |||
| 97614 | } /*CHECKSTRING(*diag=='U'||*diag=='N')*/ | |||
| 97615 | STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0); | |||
| 97616 | } /*if (f2py_success) of diag*/ | |||
| 97617 | /* End of cleaning variable diag */ | |||
| 97618 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 97619 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 97620 | } /*if (f2py_success) of trans*/ | |||
| 97621 | /* End of cleaning variable trans */ | |||
| 97622 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 97623 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 97624 | } /*if (f2py_success) of transr*/ | |||
| 97625 | /* End of cleaning variable transr */ | |||
| 97626 | /* End of cleaning variable ldb */ | |||
| 97627 | } /*CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))*/ | |||
| 97628 | /* End of cleaning variable nt */ | |||
| 97629 | /* End of cleaning variable n */ | |||
| 97630 | /* End of cleaning variable m */ | |||
| 97631 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 97632 | /* End of cleaning variable b */ | |||
| 97633 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 97634 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 97635 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 97636 | /* End of cleaning variable a */ | |||
| 97637 | } /*if (f2py_success) of alpha frompyobj*/ | |||
| 97638 | /* End of cleaning variable alpha */ | |||
| 97639 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 97640 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 97641 | } /*if (f2py_success) of uplo*/ | |||
| 97642 | /* End of cleaning variable uplo */ | |||
| 97643 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 97644 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 97645 | } /*if (f2py_success) of side*/ | |||
| 97646 | /* End of cleaning variable side */ | |||
| 97647 | /*end of cleanupfrompyobj*/ | |||
| 97648 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 97649 | /*routdebugfailure*/ | |||
| 97650 | } else { | |||
| 97651 | /*routdebugleave*/ | |||
| 97652 | } | |||
| 97653 | CFUNCSMESS("Freeing memory.\n"); | |||
| 97654 | /*freemem*/ | |||
| 97655 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97656 | f2py_stop_clock(); | |||
| 97657 | #endif | |||
| 97658 | return capi_buildvalue; | |||
| 97659 | } | |||
| 97660 | /******************************** end of ctfsm ********************************/ | |||
| 97661 | ||||
| 97662 | /*********************************** ztfsm ***********************************/ | |||
| 97663 | static char doc_f2py_rout__flapack_ztfsm[] = "\ | |||
| 97664 | x = ztfsm(alpha,a,b,[transr,side,uplo,trans,diag,overwrite_b])\n\nWrapper for ``ztfsm``.\ | |||
| 97665 | \n\nParameters\n----------\n" | |||
| 97666 | "alpha : input complex\n" | |||
| 97667 | "a : input rank-1 array('D') with bounds (nt)\n" | |||
| 97668 | "b : input rank-2 array('D') with bounds (m,n)\n" | |||
| 97669 | "\nOther Parameters\n----------------\n" | |||
| 97670 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 97671 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 97672 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 97673 | "trans : input string(len=1), optional\n Default: 'N'\n" | |||
| 97674 | "diag : input string(len=1), optional\n Default: 'N'\n" | |||
| 97675 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 97676 | "\nReturns\n-------\n" | |||
| 97677 | "x : rank-2 array('D') with bounds (m,n) and b storage"; | |||
| 97678 | /* extern void F_FUNC(ztfsm,ZTFSM)(char*,char*,char*,char*,char*,F_INT*,F_INT*,complex_double*,complex_double*,complex_double*,F_INT* ); */ | |||
| 97679 | static PyObject *f2py_rout__flapack_ztfsm(const PyObject *capi_self, | |||
| 97680 | PyObject *capi_args, | |||
| 97681 | PyObject *capi_keywds, | |||
| 97682 | void (*f2py_func)(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint* )) { | |||
| 97683 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 97684 | volatile int f2py_success = 1; | |||
| 97685 | /*decl*/ | |||
| 97686 | ||||
| 97687 | string transr = NULL((void*)0); | |||
| 97688 | int slen(transr)capi_transr_len; | |||
| 97689 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 97690 | string side = NULL((void*)0); | |||
| 97691 | int slen(side)capi_side_len; | |||
| 97692 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 97693 | string uplo = NULL((void*)0); | |||
| 97694 | int slen(uplo)capi_uplo_len; | |||
| 97695 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 97696 | string trans = NULL((void*)0); | |||
| 97697 | int slen(trans)capi_trans_len; | |||
| 97698 | PyObject *trans_capi = Py_None(&_Py_NoneStruct); | |||
| 97699 | string diag = NULL((void*)0); | |||
| 97700 | int slen(diag)capi_diag_len; | |||
| 97701 | PyObject *diag_capi = Py_None(&_Py_NoneStruct); | |||
| 97702 | int m = 0; | |||
| 97703 | int n = 0; | |||
| 97704 | int nt = 0; | |||
| 97705 | complex_double alpha; | |||
| 97706 | PyObject *alpha_capi = Py_None(&_Py_NoneStruct); | |||
| 97707 | complex_double *a = NULL((void*)0); | |||
| 97708 | npy_intp a_Dims[1] = {-1}; | |||
| 97709 | const int a_Rank = 1; | |||
| 97710 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 97711 | int capi_a_intent = 0; | |||
| 97712 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 97713 | complex_double *b = NULL((void*)0); | |||
| 97714 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 97715 | const int b_Rank = 2; | |||
| 97716 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 97717 | int capi_b_intent = 0; | |||
| 97718 | int capi_overwrite_b = 0; | |||
| 97719 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 97720 | int ldb = 0; | |||
| 97721 | static char *capi_kwlist[] = {"alpha","a","b","transr","side","uplo","trans","diag","overwrite_b",NULL((void*)0)}; | |||
| 97722 | ||||
| 97723 | /*routdebugenter*/ | |||
| 97724 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97725 | f2py_start_clock(); | |||
| 97726 | #endif | |||
| 97727 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 97728 | "OOO|OOOOOi:_flapack.ztfsm",\ | |||
| 97729 | capi_kwlist,&alpha_capi,&a_capi,&b_capi,&transr_capi,&side_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b)) | |||
| 97730 | return NULL((void*)0); | |||
| 97731 | /*frompyobj*/ | |||
| 97732 | /* Processing variable side */ | |||
| 97733 | slen(side)capi_side_len = 1; | |||
| 97734 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 2nd keyword `side' of _flapack.ztfsm to C string"); | |||
| 97735 | if (f2py_success) { | |||
| 97736 | CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","2nd keyword side","ztfsm:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfsm:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'" ") failed for ""2nd keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97737 | /* Processing variable uplo */ | |||
| 97738 | slen(uplo)capi_uplo_len = 1; | |||
| 97739 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.ztfsm to C string"); | |||
| 97740 | if (f2py_success) { | |||
| 97741 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","ztfsm:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfsm:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97742 | /* Processing variable alpha */ | |||
| 97743 | f2py_success = complex_double_from_pyobj(&alpha,alpha_capi,"_flapack.ztfsm() 1st argument (alpha) can't be converted to complex_double"); | |||
| 97744 | if (f2py_success) { | |||
| 97745 | /* Processing variable a */ | |||
| 97746 | ; | |||
| 97747 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 97748 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 97749 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 97750 | if (!PyErr_Occurred()) | |||
| 97751 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.ztfsm to C/Fortran array" ); | |||
| 97752 | } else { | |||
| 97753 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 97754 | ||||
| 97755 | /* Processing variable b */ | |||
| 97756 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 97757 | ; | |||
| 97758 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 97759 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 97760 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 97761 | if (!PyErr_Occurred()) | |||
| 97762 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.ztfsm to C/Fortran array" ); | |||
| 97763 | } else { | |||
| 97764 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 97765 | ||||
| 97766 | /* Processing variable m */ | |||
| 97767 | m = shape(b,0)b_Dims[0]; | |||
| 97768 | /* Processing variable n */ | |||
| 97769 | n = shape(b,1)b_Dims[1]; | |||
| 97770 | /* Processing variable nt */ | |||
| 97771 | nt = shape(a,0)a_Dims[0]; | |||
| 97772 | CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2),"*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)","hidden nt","ztfsm:nt=%d",nt)if (!(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ztfsm:nt=%d", "(""*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)" ") failed for ""hidden nt", nt); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 97773 | /* Processing variable ldb */ | |||
| 97774 | ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 97775 | /* Processing variable transr */ | |||
| 97776 | slen(transr)capi_transr_len = 1; | |||
| 97777 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ztfsm to C string"); | |||
| 97778 | if (f2py_success) { | |||
| 97779 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ztfsm:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfsm:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 97780 | /* Processing variable trans */ | |||
| 97781 | slen(trans)capi_trans_len = 1; | |||
| 97782 | f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 4th keyword `trans' of _flapack.ztfsm to C string"); | |||
| 97783 | if (f2py_success) { | |||
| 97784 | CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","4th keyword trans","ztfsm:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfsm:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'" ") failed for ""4th keyword trans", capi_trans_len, trans); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97785 | /* Processing variable diag */ | |||
| 97786 | slen(diag)capi_diag_len = 1; | |||
| 97787 | f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 5th keyword `diag' of _flapack.ztfsm to C string"); | |||
| 97788 | if (f2py_success) { | |||
| 97789 | CHECKSTRING(*diag=='U'||*diag=='N',"*diag=='U'||*diag=='N'","5th keyword diag","ztfsm:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='U'||*diag=='N')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztfsm:slen(diag)=%d diag=\"%s\"", "(""*diag=='U'||*diag=='N'" ") failed for ""5th keyword diag", capi_diag_len, diag); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97790 | /*end of frompyobj*/ | |||
| 97791 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97792 | f2py_start_call_clock(); | |||
| 97793 | #endif | |||
| 97794 | /*callfortranroutine*/ | |||
| 97795 | (*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&alpha,a,b,&ldb) ; | |||
| 97796 | /*(*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&nt,&alpha,a,b,&ldb,slen(transr),slen(side),slen(uplo),slen(trans),slen(diag));*/ | |||
| 97797 | if (PyErr_Occurred()) | |||
| 97798 | f2py_success = 0; | |||
| 97799 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97800 | f2py_stop_call_clock(); | |||
| 97801 | #endif | |||
| 97802 | /*end of callfortranroutine*/ | |||
| 97803 | if (f2py_success) { | |||
| 97804 | /*pyobjfrom*/ | |||
| 97805 | /*end of pyobjfrom*/ | |||
| 97806 | CFUNCSMESS("Building return value.\n"); | |||
| 97807 | capi_buildvalue = Py_BuildValue("N",capi_b_tmp); | |||
| 97808 | /*closepyobjfrom*/ | |||
| 97809 | /*end of closepyobjfrom*/ | |||
| 97810 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 97811 | /*cleanupfrompyobj*/ | |||
| 97812 | } /*CHECKSTRING(*diag=='U'||*diag=='N')*/ | |||
| 97813 | STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0); | |||
| 97814 | } /*if (f2py_success) of diag*/ | |||
| 97815 | /* End of cleaning variable diag */ | |||
| 97816 | } /*CHECKSTRING(*trans=='N'||*trans=='C')*/ | |||
| 97817 | STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0); | |||
| 97818 | } /*if (f2py_success) of trans*/ | |||
| 97819 | /* End of cleaning variable trans */ | |||
| 97820 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 97821 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 97822 | } /*if (f2py_success) of transr*/ | |||
| 97823 | /* End of cleaning variable transr */ | |||
| 97824 | /* End of cleaning variable ldb */ | |||
| 97825 | } /*CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))*/ | |||
| 97826 | /* End of cleaning variable nt */ | |||
| 97827 | /* End of cleaning variable n */ | |||
| 97828 | /* End of cleaning variable m */ | |||
| 97829 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 97830 | /* End of cleaning variable b */ | |||
| 97831 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 97832 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 97833 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 97834 | /* End of cleaning variable a */ | |||
| 97835 | } /*if (f2py_success) of alpha frompyobj*/ | |||
| 97836 | /* End of cleaning variable alpha */ | |||
| 97837 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 97838 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 97839 | } /*if (f2py_success) of uplo*/ | |||
| 97840 | /* End of cleaning variable uplo */ | |||
| 97841 | } /*CHECKSTRING(*side=='L'||*side=='R')*/ | |||
| 97842 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 97843 | } /*if (f2py_success) of side*/ | |||
| 97844 | /* End of cleaning variable side */ | |||
| 97845 | /*end of cleanupfrompyobj*/ | |||
| 97846 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 97847 | /*routdebugfailure*/ | |||
| 97848 | } else { | |||
| 97849 | /*routdebugleave*/ | |||
| 97850 | } | |||
| 97851 | CFUNCSMESS("Freeing memory.\n"); | |||
| 97852 | /*freemem*/ | |||
| 97853 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97854 | f2py_stop_clock(); | |||
| 97855 | #endif | |||
| 97856 | return capi_buildvalue; | |||
| 97857 | } | |||
| 97858 | /******************************** end of ztfsm ********************************/ | |||
| 97859 | ||||
| 97860 | /*********************************** spftrf ***********************************/ | |||
| 97861 | static char doc_f2py_rout__flapack_spftrf[] = "\ | |||
| 97862 | achol,info = spftrf(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``spftrf``.\ | |||
| 97863 | \n\nParameters\n----------\n" | |||
| 97864 | "n : input int\n" | |||
| 97865 | "a : input rank-1 array('f') with bounds (nt)\n" | |||
| 97866 | "\nOther Parameters\n----------------\n" | |||
| 97867 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 97868 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 97869 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 97870 | "\nReturns\n-------\n" | |||
| 97871 | "achol : rank-1 array('f') with bounds (nt) and a storage\n" | |||
| 97872 | "info : int"; | |||
| 97873 | /* extern void F_FUNC(spftrf,SPFTRF)(char*,char*,F_INT*,float*,F_INT* ); */ | |||
| 97874 | static PyObject *f2py_rout__flapack_spftrf(const PyObject *capi_self, | |||
| 97875 | PyObject *capi_args, | |||
| 97876 | PyObject *capi_keywds, | |||
| 97877 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint* )) { | |||
| 97878 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 97879 | volatile int f2py_success = 1; | |||
| 97880 | /*decl*/ | |||
| 97881 | ||||
| 97882 | string transr = NULL((void*)0); | |||
| 97883 | int slen(transr)capi_transr_len; | |||
| 97884 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 97885 | string uplo = NULL((void*)0); | |||
| 97886 | int slen(uplo)capi_uplo_len; | |||
| 97887 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 97888 | int n = 0; | |||
| 97889 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 97890 | int nt = 0; | |||
| 97891 | float *a = NULL((void*)0); | |||
| 97892 | npy_intp a_Dims[1] = {-1}; | |||
| 97893 | const int a_Rank = 1; | |||
| 97894 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 97895 | int capi_a_intent = 0; | |||
| 97896 | int capi_overwrite_a = 0; | |||
| 97897 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 97898 | int info = 0; | |||
| 97899 | static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)}; | |||
| 97900 | ||||
| 97901 | /*routdebugenter*/ | |||
| 97902 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97903 | f2py_start_clock(); | |||
| 97904 | #endif | |||
| 97905 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 97906 | "OO|OOi:_flapack.spftrf",\ | |||
| 97907 | capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a)) | |||
| 97908 | return NULL((void*)0); | |||
| 97909 | /*frompyobj*/ | |||
| 97910 | /* Processing variable uplo */ | |||
| 97911 | slen(uplo)capi_uplo_len = 1; | |||
| 97912 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.spftrf to C string"); | |||
| 97913 | if (f2py_success) { | |||
| 97914 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","spftrf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spftrf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 97915 | /* Processing variable n */ | |||
| 97916 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.spftrf() 1st argument (n) can't be converted to int"); | |||
| 97917 | if (f2py_success) { | |||
| 97918 | CHECKSCALAR(n>=0,"n>=0","1st argument n","spftrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spftrf:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 97919 | /* Processing variable a */ | |||
| 97920 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 97921 | ; | |||
| 97922 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 97923 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 97924 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 97925 | if (!PyErr_Occurred()) | |||
| 97926 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.spftrf to C/Fortran array" ); | |||
| 97927 | } else { | |||
| 97928 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 97929 | ||||
| 97930 | /* Processing variable info */ | |||
| 97931 | /* Processing variable transr */ | |||
| 97932 | slen(transr)capi_transr_len = 1; | |||
| 97933 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.spftrf to C string"); | |||
| 97934 | if (f2py_success) { | |||
| 97935 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","spftrf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spftrf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 97936 | /* Processing variable nt */ | |||
| 97937 | nt = shape(a,0)a_Dims[0]; | |||
| 97938 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","spftrf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spftrf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 97939 | /*end of frompyobj*/ | |||
| 97940 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97941 | f2py_start_call_clock(); | |||
| 97942 | #endif | |||
| 97943 | /*callfortranroutine*/ | |||
| 97944 | (*f2py_func)(transr,uplo,&n,a,&info) ; | |||
| 97945 | /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/ | |||
| 97946 | if (PyErr_Occurred()) | |||
| 97947 | f2py_success = 0; | |||
| 97948 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97949 | f2py_stop_call_clock(); | |||
| 97950 | #endif | |||
| 97951 | /*end of callfortranroutine*/ | |||
| 97952 | if (f2py_success) { | |||
| 97953 | /*pyobjfrom*/ | |||
| 97954 | /*end of pyobjfrom*/ | |||
| 97955 | CFUNCSMESS("Building return value.\n"); | |||
| 97956 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 97957 | /*closepyobjfrom*/ | |||
| 97958 | /*end of closepyobjfrom*/ | |||
| 97959 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 97960 | /*cleanupfrompyobj*/ | |||
| 97961 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 97962 | /* End of cleaning variable nt */ | |||
| 97963 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 97964 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 97965 | } /*if (f2py_success) of transr*/ | |||
| 97966 | /* End of cleaning variable transr */ | |||
| 97967 | /* End of cleaning variable info */ | |||
| 97968 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 97969 | /* End of cleaning variable a */ | |||
| 97970 | } /*CHECKSCALAR(n>=0)*/ | |||
| 97971 | } /*if (f2py_success) of n*/ | |||
| 97972 | /* End of cleaning variable n */ | |||
| 97973 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 97974 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 97975 | } /*if (f2py_success) of uplo*/ | |||
| 97976 | /* End of cleaning variable uplo */ | |||
| 97977 | /*end of cleanupfrompyobj*/ | |||
| 97978 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 97979 | /*routdebugfailure*/ | |||
| 97980 | } else { | |||
| 97981 | /*routdebugleave*/ | |||
| 97982 | } | |||
| 97983 | CFUNCSMESS("Freeing memory.\n"); | |||
| 97984 | /*freemem*/ | |||
| 97985 | #ifdef F2PY_REPORT_ATEXIT | |||
| 97986 | f2py_stop_clock(); | |||
| 97987 | #endif | |||
| 97988 | return capi_buildvalue; | |||
| 97989 | } | |||
| 97990 | /******************************* end of spftrf *******************************/ | |||
| 97991 | ||||
| 97992 | /*********************************** dpftrf ***********************************/ | |||
| 97993 | static char doc_f2py_rout__flapack_dpftrf[] = "\ | |||
| 97994 | achol,info = dpftrf(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``dpftrf``.\ | |||
| 97995 | \n\nParameters\n----------\n" | |||
| 97996 | "n : input int\n" | |||
| 97997 | "a : input rank-1 array('d') with bounds (nt)\n" | |||
| 97998 | "\nOther Parameters\n----------------\n" | |||
| 97999 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 98000 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 98001 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 98002 | "\nReturns\n-------\n" | |||
| 98003 | "achol : rank-1 array('d') with bounds (nt) and a storage\n" | |||
| 98004 | "info : int"; | |||
| 98005 | /* extern void F_FUNC(dpftrf,DPFTRF)(char*,char*,F_INT*,double*,F_INT* ); */ | |||
| 98006 | static PyObject *f2py_rout__flapack_dpftrf(const PyObject *capi_self, | |||
| 98007 | PyObject *capi_args, | |||
| 98008 | PyObject *capi_keywds, | |||
| 98009 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint* )) { | |||
| 98010 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 98011 | volatile int f2py_success = 1; | |||
| 98012 | /*decl*/ | |||
| 98013 | ||||
| 98014 | string transr = NULL((void*)0); | |||
| 98015 | int slen(transr)capi_transr_len; | |||
| 98016 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 98017 | string uplo = NULL((void*)0); | |||
| 98018 | int slen(uplo)capi_uplo_len; | |||
| 98019 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 98020 | int n = 0; | |||
| 98021 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 98022 | int nt = 0; | |||
| 98023 | double *a = NULL((void*)0); | |||
| 98024 | npy_intp a_Dims[1] = {-1}; | |||
| 98025 | const int a_Rank = 1; | |||
| 98026 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 98027 | int capi_a_intent = 0; | |||
| 98028 | int capi_overwrite_a = 0; | |||
| 98029 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 98030 | int info = 0; | |||
| 98031 | static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)}; | |||
| 98032 | ||||
| 98033 | /*routdebugenter*/ | |||
| 98034 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98035 | f2py_start_clock(); | |||
| 98036 | #endif | |||
| 98037 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 98038 | "OO|OOi:_flapack.dpftrf",\ | |||
| 98039 | capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a)) | |||
| 98040 | return NULL((void*)0); | |||
| 98041 | /*frompyobj*/ | |||
| 98042 | /* Processing variable uplo */ | |||
| 98043 | slen(uplo)capi_uplo_len = 1; | |||
| 98044 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dpftrf to C string"); | |||
| 98045 | if (f2py_success) { | |||
| 98046 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dpftrf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpftrf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 98047 | /* Processing variable n */ | |||
| 98048 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dpftrf() 1st argument (n) can't be converted to int"); | |||
| 98049 | if (f2py_success) { | |||
| 98050 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dpftrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpftrf:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98051 | /* Processing variable a */ | |||
| 98052 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 98053 | ; | |||
| 98054 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 98055 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 98056 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 98057 | if (!PyErr_Occurred()) | |||
| 98058 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dpftrf to C/Fortran array" ); | |||
| 98059 | } else { | |||
| 98060 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 98061 | ||||
| 98062 | /* Processing variable info */ | |||
| 98063 | /* Processing variable transr */ | |||
| 98064 | slen(transr)capi_transr_len = 1; | |||
| 98065 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dpftrf to C string"); | |||
| 98066 | if (f2py_success) { | |||
| 98067 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dpftrf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpftrf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 98068 | /* Processing variable nt */ | |||
| 98069 | nt = shape(a,0)a_Dims[0]; | |||
| 98070 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dpftrf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpftrf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98071 | /*end of frompyobj*/ | |||
| 98072 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98073 | f2py_start_call_clock(); | |||
| 98074 | #endif | |||
| 98075 | /*callfortranroutine*/ | |||
| 98076 | (*f2py_func)(transr,uplo,&n,a,&info) ; | |||
| 98077 | /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/ | |||
| 98078 | if (PyErr_Occurred()) | |||
| 98079 | f2py_success = 0; | |||
| 98080 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98081 | f2py_stop_call_clock(); | |||
| 98082 | #endif | |||
| 98083 | /*end of callfortranroutine*/ | |||
| 98084 | if (f2py_success) { | |||
| 98085 | /*pyobjfrom*/ | |||
| 98086 | /*end of pyobjfrom*/ | |||
| 98087 | CFUNCSMESS("Building return value.\n"); | |||
| 98088 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 98089 | /*closepyobjfrom*/ | |||
| 98090 | /*end of closepyobjfrom*/ | |||
| 98091 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 98092 | /*cleanupfrompyobj*/ | |||
| 98093 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 98094 | /* End of cleaning variable nt */ | |||
| 98095 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 98096 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 98097 | } /*if (f2py_success) of transr*/ | |||
| 98098 | /* End of cleaning variable transr */ | |||
| 98099 | /* End of cleaning variable info */ | |||
| 98100 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 98101 | /* End of cleaning variable a */ | |||
| 98102 | } /*CHECKSCALAR(n>=0)*/ | |||
| 98103 | } /*if (f2py_success) of n*/ | |||
| 98104 | /* End of cleaning variable n */ | |||
| 98105 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 98106 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 98107 | } /*if (f2py_success) of uplo*/ | |||
| 98108 | /* End of cleaning variable uplo */ | |||
| 98109 | /*end of cleanupfrompyobj*/ | |||
| 98110 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 98111 | /*routdebugfailure*/ | |||
| 98112 | } else { | |||
| 98113 | /*routdebugleave*/ | |||
| 98114 | } | |||
| 98115 | CFUNCSMESS("Freeing memory.\n"); | |||
| 98116 | /*freemem*/ | |||
| 98117 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98118 | f2py_stop_clock(); | |||
| 98119 | #endif | |||
| 98120 | return capi_buildvalue; | |||
| 98121 | } | |||
| 98122 | /******************************* end of dpftrf *******************************/ | |||
| 98123 | ||||
| 98124 | /*********************************** cpftrf ***********************************/ | |||
| 98125 | static char doc_f2py_rout__flapack_cpftrf[] = "\ | |||
| 98126 | achol,info = cpftrf(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``cpftrf``.\ | |||
| 98127 | \n\nParameters\n----------\n" | |||
| 98128 | "n : input int\n" | |||
| 98129 | "a : input rank-1 array('F') with bounds (nt)\n" | |||
| 98130 | "\nOther Parameters\n----------------\n" | |||
| 98131 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 98132 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 98133 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 98134 | "\nReturns\n-------\n" | |||
| 98135 | "achol : rank-1 array('F') with bounds (nt) and a storage\n" | |||
| 98136 | "info : int"; | |||
| 98137 | /* extern void F_FUNC(cpftrf,CPFTRF)(char*,char*,F_INT*,complex_float*,F_INT* ); */ | |||
| 98138 | static PyObject *f2py_rout__flapack_cpftrf(const PyObject *capi_self, | |||
| 98139 | PyObject *capi_args, | |||
| 98140 | PyObject *capi_keywds, | |||
| 98141 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint* )) { | |||
| 98142 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 98143 | volatile int f2py_success = 1; | |||
| 98144 | /*decl*/ | |||
| 98145 | ||||
| 98146 | string transr = NULL((void*)0); | |||
| 98147 | int slen(transr)capi_transr_len; | |||
| 98148 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 98149 | string uplo = NULL((void*)0); | |||
| 98150 | int slen(uplo)capi_uplo_len; | |||
| 98151 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 98152 | int n = 0; | |||
| 98153 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 98154 | int nt = 0; | |||
| 98155 | complex_float *a = NULL((void*)0); | |||
| 98156 | npy_intp a_Dims[1] = {-1}; | |||
| 98157 | const int a_Rank = 1; | |||
| 98158 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 98159 | int capi_a_intent = 0; | |||
| 98160 | int capi_overwrite_a = 0; | |||
| 98161 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 98162 | int info = 0; | |||
| 98163 | static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)}; | |||
| 98164 | ||||
| 98165 | /*routdebugenter*/ | |||
| 98166 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98167 | f2py_start_clock(); | |||
| 98168 | #endif | |||
| 98169 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 98170 | "OO|OOi:_flapack.cpftrf",\ | |||
| 98171 | capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a)) | |||
| 98172 | return NULL((void*)0); | |||
| 98173 | /*frompyobj*/ | |||
| 98174 | /* Processing variable uplo */ | |||
| 98175 | slen(uplo)capi_uplo_len = 1; | |||
| 98176 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.cpftrf to C string"); | |||
| 98177 | if (f2py_success) { | |||
| 98178 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","cpftrf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpftrf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 98179 | /* Processing variable n */ | |||
| 98180 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cpftrf() 1st argument (n) can't be converted to int"); | |||
| 98181 | if (f2py_success) { | |||
| 98182 | CHECKSCALAR(n>=0,"n>=0","1st argument n","cpftrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpftrf:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98183 | /* Processing variable a */ | |||
| 98184 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 98185 | ; | |||
| 98186 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 98187 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 98188 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 98189 | if (!PyErr_Occurred()) | |||
| 98190 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.cpftrf to C/Fortran array" ); | |||
| 98191 | } else { | |||
| 98192 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 98193 | ||||
| 98194 | /* Processing variable info */ | |||
| 98195 | /* Processing variable transr */ | |||
| 98196 | slen(transr)capi_transr_len = 1; | |||
| 98197 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.cpftrf to C string"); | |||
| 98198 | if (f2py_success) { | |||
| 98199 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","cpftrf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpftrf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 98200 | /* Processing variable nt */ | |||
| 98201 | nt = shape(a,0)a_Dims[0]; | |||
| 98202 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","cpftrf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpftrf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98203 | /*end of frompyobj*/ | |||
| 98204 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98205 | f2py_start_call_clock(); | |||
| 98206 | #endif | |||
| 98207 | /*callfortranroutine*/ | |||
| 98208 | (*f2py_func)(transr,uplo,&n,a,&info) ; | |||
| 98209 | /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/ | |||
| 98210 | if (PyErr_Occurred()) | |||
| 98211 | f2py_success = 0; | |||
| 98212 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98213 | f2py_stop_call_clock(); | |||
| 98214 | #endif | |||
| 98215 | /*end of callfortranroutine*/ | |||
| 98216 | if (f2py_success) { | |||
| 98217 | /*pyobjfrom*/ | |||
| 98218 | /*end of pyobjfrom*/ | |||
| 98219 | CFUNCSMESS("Building return value.\n"); | |||
| 98220 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 98221 | /*closepyobjfrom*/ | |||
| 98222 | /*end of closepyobjfrom*/ | |||
| 98223 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 98224 | /*cleanupfrompyobj*/ | |||
| 98225 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 98226 | /* End of cleaning variable nt */ | |||
| 98227 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 98228 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 98229 | } /*if (f2py_success) of transr*/ | |||
| 98230 | /* End of cleaning variable transr */ | |||
| 98231 | /* End of cleaning variable info */ | |||
| 98232 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 98233 | /* End of cleaning variable a */ | |||
| 98234 | } /*CHECKSCALAR(n>=0)*/ | |||
| 98235 | } /*if (f2py_success) of n*/ | |||
| 98236 | /* End of cleaning variable n */ | |||
| 98237 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 98238 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 98239 | } /*if (f2py_success) of uplo*/ | |||
| 98240 | /* End of cleaning variable uplo */ | |||
| 98241 | /*end of cleanupfrompyobj*/ | |||
| 98242 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 98243 | /*routdebugfailure*/ | |||
| 98244 | } else { | |||
| 98245 | /*routdebugleave*/ | |||
| 98246 | } | |||
| 98247 | CFUNCSMESS("Freeing memory.\n"); | |||
| 98248 | /*freemem*/ | |||
| 98249 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98250 | f2py_stop_clock(); | |||
| 98251 | #endif | |||
| 98252 | return capi_buildvalue; | |||
| 98253 | } | |||
| 98254 | /******************************* end of cpftrf *******************************/ | |||
| 98255 | ||||
| 98256 | /*********************************** zpftrf ***********************************/ | |||
| 98257 | static char doc_f2py_rout__flapack_zpftrf[] = "\ | |||
| 98258 | achol,info = zpftrf(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``zpftrf``.\ | |||
| 98259 | \n\nParameters\n----------\n" | |||
| 98260 | "n : input int\n" | |||
| 98261 | "a : input rank-1 array('D') with bounds (nt)\n" | |||
| 98262 | "\nOther Parameters\n----------------\n" | |||
| 98263 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 98264 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 98265 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 98266 | "\nReturns\n-------\n" | |||
| 98267 | "achol : rank-1 array('D') with bounds (nt) and a storage\n" | |||
| 98268 | "info : int"; | |||
| 98269 | /* extern void F_FUNC(zpftrf,ZPFTRF)(char*,char*,F_INT*,complex_double*,F_INT* ); */ | |||
| 98270 | static PyObject *f2py_rout__flapack_zpftrf(const PyObject *capi_self, | |||
| 98271 | PyObject *capi_args, | |||
| 98272 | PyObject *capi_keywds, | |||
| 98273 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint* )) { | |||
| 98274 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 98275 | volatile int f2py_success = 1; | |||
| 98276 | /*decl*/ | |||
| 98277 | ||||
| 98278 | string transr = NULL((void*)0); | |||
| 98279 | int slen(transr)capi_transr_len; | |||
| 98280 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 98281 | string uplo = NULL((void*)0); | |||
| 98282 | int slen(uplo)capi_uplo_len; | |||
| 98283 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 98284 | int n = 0; | |||
| 98285 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 98286 | int nt = 0; | |||
| 98287 | complex_double *a = NULL((void*)0); | |||
| 98288 | npy_intp a_Dims[1] = {-1}; | |||
| 98289 | const int a_Rank = 1; | |||
| 98290 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 98291 | int capi_a_intent = 0; | |||
| 98292 | int capi_overwrite_a = 0; | |||
| 98293 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 98294 | int info = 0; | |||
| 98295 | static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)}; | |||
| 98296 | ||||
| 98297 | /*routdebugenter*/ | |||
| 98298 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98299 | f2py_start_clock(); | |||
| 98300 | #endif | |||
| 98301 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 98302 | "OO|OOi:_flapack.zpftrf",\ | |||
| 98303 | capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a)) | |||
| 98304 | return NULL((void*)0); | |||
| 98305 | /*frompyobj*/ | |||
| 98306 | /* Processing variable uplo */ | |||
| 98307 | slen(uplo)capi_uplo_len = 1; | |||
| 98308 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.zpftrf to C string"); | |||
| 98309 | if (f2py_success) { | |||
| 98310 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","zpftrf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpftrf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 98311 | /* Processing variable n */ | |||
| 98312 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zpftrf() 1st argument (n) can't be converted to int"); | |||
| 98313 | if (f2py_success) { | |||
| 98314 | CHECKSCALAR(n>=0,"n>=0","1st argument n","zpftrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpftrf:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98315 | /* Processing variable a */ | |||
| 98316 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 98317 | ; | |||
| 98318 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 98319 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 98320 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 98321 | if (!PyErr_Occurred()) | |||
| 98322 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zpftrf to C/Fortran array" ); | |||
| 98323 | } else { | |||
| 98324 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 98325 | ||||
| 98326 | /* Processing variable info */ | |||
| 98327 | /* Processing variable transr */ | |||
| 98328 | slen(transr)capi_transr_len = 1; | |||
| 98329 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.zpftrf to C string"); | |||
| 98330 | if (f2py_success) { | |||
| 98331 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","zpftrf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpftrf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 98332 | /* Processing variable nt */ | |||
| 98333 | nt = shape(a,0)a_Dims[0]; | |||
| 98334 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","zpftrf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpftrf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98335 | /*end of frompyobj*/ | |||
| 98336 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98337 | f2py_start_call_clock(); | |||
| 98338 | #endif | |||
| 98339 | /*callfortranroutine*/ | |||
| 98340 | (*f2py_func)(transr,uplo,&n,a,&info) ; | |||
| 98341 | /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/ | |||
| 98342 | if (PyErr_Occurred()) | |||
| 98343 | f2py_success = 0; | |||
| 98344 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98345 | f2py_stop_call_clock(); | |||
| 98346 | #endif | |||
| 98347 | /*end of callfortranroutine*/ | |||
| 98348 | if (f2py_success) { | |||
| 98349 | /*pyobjfrom*/ | |||
| 98350 | /*end of pyobjfrom*/ | |||
| 98351 | CFUNCSMESS("Building return value.\n"); | |||
| 98352 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 98353 | /*closepyobjfrom*/ | |||
| 98354 | /*end of closepyobjfrom*/ | |||
| 98355 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 98356 | /*cleanupfrompyobj*/ | |||
| 98357 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 98358 | /* End of cleaning variable nt */ | |||
| 98359 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 98360 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 98361 | } /*if (f2py_success) of transr*/ | |||
| 98362 | /* End of cleaning variable transr */ | |||
| 98363 | /* End of cleaning variable info */ | |||
| 98364 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 98365 | /* End of cleaning variable a */ | |||
| 98366 | } /*CHECKSCALAR(n>=0)*/ | |||
| 98367 | } /*if (f2py_success) of n*/ | |||
| 98368 | /* End of cleaning variable n */ | |||
| 98369 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 98370 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 98371 | } /*if (f2py_success) of uplo*/ | |||
| 98372 | /* End of cleaning variable uplo */ | |||
| 98373 | /*end of cleanupfrompyobj*/ | |||
| 98374 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 98375 | /*routdebugfailure*/ | |||
| 98376 | } else { | |||
| 98377 | /*routdebugleave*/ | |||
| 98378 | } | |||
| 98379 | CFUNCSMESS("Freeing memory.\n"); | |||
| 98380 | /*freemem*/ | |||
| 98381 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98382 | f2py_stop_clock(); | |||
| 98383 | #endif | |||
| 98384 | return capi_buildvalue; | |||
| 98385 | } | |||
| 98386 | /******************************* end of zpftrf *******************************/ | |||
| 98387 | ||||
| 98388 | /*********************************** spftri ***********************************/ | |||
| 98389 | static char doc_f2py_rout__flapack_spftri[] = "\ | |||
| 98390 | ainv,info = spftri(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``spftri``.\ | |||
| 98391 | \n\nParameters\n----------\n" | |||
| 98392 | "n : input int\n" | |||
| 98393 | "a : input rank-1 array('f') with bounds (nt)\n" | |||
| 98394 | "\nOther Parameters\n----------------\n" | |||
| 98395 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 98396 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 98397 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 98398 | "\nReturns\n-------\n" | |||
| 98399 | "ainv : rank-1 array('f') with bounds (nt) and a storage\n" | |||
| 98400 | "info : int"; | |||
| 98401 | /* extern void F_FUNC(spftri,SPFTRI)(char*,char*,F_INT*,float*,F_INT* ); */ | |||
| 98402 | static PyObject *f2py_rout__flapack_spftri(const PyObject *capi_self, | |||
| 98403 | PyObject *capi_args, | |||
| 98404 | PyObject *capi_keywds, | |||
| 98405 | void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint* )) { | |||
| 98406 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 98407 | volatile int f2py_success = 1; | |||
| 98408 | /*decl*/ | |||
| 98409 | ||||
| 98410 | string transr = NULL((void*)0); | |||
| 98411 | int slen(transr)capi_transr_len; | |||
| 98412 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 98413 | string uplo = NULL((void*)0); | |||
| 98414 | int slen(uplo)capi_uplo_len; | |||
| 98415 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 98416 | int n = 0; | |||
| 98417 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 98418 | int nt = 0; | |||
| 98419 | float *a = NULL((void*)0); | |||
| 98420 | npy_intp a_Dims[1] = {-1}; | |||
| 98421 | const int a_Rank = 1; | |||
| 98422 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 98423 | int capi_a_intent = 0; | |||
| 98424 | int capi_overwrite_a = 0; | |||
| 98425 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 98426 | int info = 0; | |||
| 98427 | static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)}; | |||
| 98428 | ||||
| 98429 | /*routdebugenter*/ | |||
| 98430 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98431 | f2py_start_clock(); | |||
| 98432 | #endif | |||
| 98433 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 98434 | "OO|OOi:_flapack.spftri",\ | |||
| 98435 | capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a)) | |||
| 98436 | return NULL((void*)0); | |||
| 98437 | /*frompyobj*/ | |||
| 98438 | /* Processing variable uplo */ | |||
| 98439 | slen(uplo)capi_uplo_len = 1; | |||
| 98440 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.spftri to C string"); | |||
| 98441 | if (f2py_success) { | |||
| 98442 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","spftri:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spftri:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 98443 | /* Processing variable n */ | |||
| 98444 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.spftri() 1st argument (n) can't be converted to int"); | |||
| 98445 | if (f2py_success) { | |||
| 98446 | CHECKSCALAR(n>=0,"n>=0","1st argument n","spftri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spftri:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98447 | /* Processing variable a */ | |||
| 98448 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 98449 | ; | |||
| 98450 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 98451 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 98452 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 98453 | if (!PyErr_Occurred()) | |||
| 98454 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.spftri to C/Fortran array" ); | |||
| 98455 | } else { | |||
| 98456 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 98457 | ||||
| 98458 | /* Processing variable info */ | |||
| 98459 | /* Processing variable transr */ | |||
| 98460 | slen(transr)capi_transr_len = 1; | |||
| 98461 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.spftri to C string"); | |||
| 98462 | if (f2py_success) { | |||
| 98463 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","spftri:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spftri:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 98464 | /* Processing variable nt */ | |||
| 98465 | nt = shape(a,0)a_Dims[0]; | |||
| 98466 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","spftri:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spftri:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98467 | /*end of frompyobj*/ | |||
| 98468 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98469 | f2py_start_call_clock(); | |||
| 98470 | #endif | |||
| 98471 | /*callfortranroutine*/ | |||
| 98472 | (*f2py_func)(transr,uplo,&n,a,&info) ; | |||
| 98473 | /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/ | |||
| 98474 | if (PyErr_Occurred()) | |||
| 98475 | f2py_success = 0; | |||
| 98476 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98477 | f2py_stop_call_clock(); | |||
| 98478 | #endif | |||
| 98479 | /*end of callfortranroutine*/ | |||
| 98480 | if (f2py_success) { | |||
| 98481 | /*pyobjfrom*/ | |||
| 98482 | /*end of pyobjfrom*/ | |||
| 98483 | CFUNCSMESS("Building return value.\n"); | |||
| 98484 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 98485 | /*closepyobjfrom*/ | |||
| 98486 | /*end of closepyobjfrom*/ | |||
| 98487 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 98488 | /*cleanupfrompyobj*/ | |||
| 98489 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 98490 | /* End of cleaning variable nt */ | |||
| 98491 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 98492 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 98493 | } /*if (f2py_success) of transr*/ | |||
| 98494 | /* End of cleaning variable transr */ | |||
| 98495 | /* End of cleaning variable info */ | |||
| 98496 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 98497 | /* End of cleaning variable a */ | |||
| 98498 | } /*CHECKSCALAR(n>=0)*/ | |||
| 98499 | } /*if (f2py_success) of n*/ | |||
| 98500 | /* End of cleaning variable n */ | |||
| 98501 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 98502 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 98503 | } /*if (f2py_success) of uplo*/ | |||
| 98504 | /* End of cleaning variable uplo */ | |||
| 98505 | /*end of cleanupfrompyobj*/ | |||
| 98506 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 98507 | /*routdebugfailure*/ | |||
| 98508 | } else { | |||
| 98509 | /*routdebugleave*/ | |||
| 98510 | } | |||
| 98511 | CFUNCSMESS("Freeing memory.\n"); | |||
| 98512 | /*freemem*/ | |||
| 98513 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98514 | f2py_stop_clock(); | |||
| 98515 | #endif | |||
| 98516 | return capi_buildvalue; | |||
| 98517 | } | |||
| 98518 | /******************************* end of spftri *******************************/ | |||
| 98519 | ||||
| 98520 | /*********************************** dpftri ***********************************/ | |||
| 98521 | static char doc_f2py_rout__flapack_dpftri[] = "\ | |||
| 98522 | ainv,info = dpftri(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``dpftri``.\ | |||
| 98523 | \n\nParameters\n----------\n" | |||
| 98524 | "n : input int\n" | |||
| 98525 | "a : input rank-1 array('d') with bounds (nt)\n" | |||
| 98526 | "\nOther Parameters\n----------------\n" | |||
| 98527 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 98528 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 98529 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 98530 | "\nReturns\n-------\n" | |||
| 98531 | "ainv : rank-1 array('d') with bounds (nt) and a storage\n" | |||
| 98532 | "info : int"; | |||
| 98533 | /* extern void F_FUNC(dpftri,DPFTRI)(char*,char*,F_INT*,double*,F_INT* ); */ | |||
| 98534 | static PyObject *f2py_rout__flapack_dpftri(const PyObject *capi_self, | |||
| 98535 | PyObject *capi_args, | |||
| 98536 | PyObject *capi_keywds, | |||
| 98537 | void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint* )) { | |||
| 98538 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 98539 | volatile int f2py_success = 1; | |||
| 98540 | /*decl*/ | |||
| 98541 | ||||
| 98542 | string transr = NULL((void*)0); | |||
| 98543 | int slen(transr)capi_transr_len; | |||
| 98544 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 98545 | string uplo = NULL((void*)0); | |||
| 98546 | int slen(uplo)capi_uplo_len; | |||
| 98547 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 98548 | int n = 0; | |||
| 98549 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 98550 | int nt = 0; | |||
| 98551 | double *a = NULL((void*)0); | |||
| 98552 | npy_intp a_Dims[1] = {-1}; | |||
| 98553 | const int a_Rank = 1; | |||
| 98554 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 98555 | int capi_a_intent = 0; | |||
| 98556 | int capi_overwrite_a = 0; | |||
| 98557 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 98558 | int info = 0; | |||
| 98559 | static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)}; | |||
| 98560 | ||||
| 98561 | /*routdebugenter*/ | |||
| 98562 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98563 | f2py_start_clock(); | |||
| 98564 | #endif | |||
| 98565 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 98566 | "OO|OOi:_flapack.dpftri",\ | |||
| 98567 | capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a)) | |||
| 98568 | return NULL((void*)0); | |||
| 98569 | /*frompyobj*/ | |||
| 98570 | /* Processing variable uplo */ | |||
| 98571 | slen(uplo)capi_uplo_len = 1; | |||
| 98572 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dpftri to C string"); | |||
| 98573 | if (f2py_success) { | |||
| 98574 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dpftri:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpftri:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 98575 | /* Processing variable n */ | |||
| 98576 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dpftri() 1st argument (n) can't be converted to int"); | |||
| 98577 | if (f2py_success) { | |||
| 98578 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dpftri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpftri:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98579 | /* Processing variable a */ | |||
| 98580 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 98581 | ; | |||
| 98582 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 98583 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 98584 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 98585 | if (!PyErr_Occurred()) | |||
| 98586 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dpftri to C/Fortran array" ); | |||
| 98587 | } else { | |||
| 98588 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 98589 | ||||
| 98590 | /* Processing variable info */ | |||
| 98591 | /* Processing variable transr */ | |||
| 98592 | slen(transr)capi_transr_len = 1; | |||
| 98593 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dpftri to C string"); | |||
| 98594 | if (f2py_success) { | |||
| 98595 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dpftri:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpftri:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 98596 | /* Processing variable nt */ | |||
| 98597 | nt = shape(a,0)a_Dims[0]; | |||
| 98598 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dpftri:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpftri:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98599 | /*end of frompyobj*/ | |||
| 98600 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98601 | f2py_start_call_clock(); | |||
| 98602 | #endif | |||
| 98603 | /*callfortranroutine*/ | |||
| 98604 | (*f2py_func)(transr,uplo,&n,a,&info) ; | |||
| 98605 | /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/ | |||
| 98606 | if (PyErr_Occurred()) | |||
| 98607 | f2py_success = 0; | |||
| 98608 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98609 | f2py_stop_call_clock(); | |||
| 98610 | #endif | |||
| 98611 | /*end of callfortranroutine*/ | |||
| 98612 | if (f2py_success) { | |||
| 98613 | /*pyobjfrom*/ | |||
| 98614 | /*end of pyobjfrom*/ | |||
| 98615 | CFUNCSMESS("Building return value.\n"); | |||
| 98616 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 98617 | /*closepyobjfrom*/ | |||
| 98618 | /*end of closepyobjfrom*/ | |||
| 98619 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 98620 | /*cleanupfrompyobj*/ | |||
| 98621 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 98622 | /* End of cleaning variable nt */ | |||
| 98623 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 98624 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 98625 | } /*if (f2py_success) of transr*/ | |||
| 98626 | /* End of cleaning variable transr */ | |||
| 98627 | /* End of cleaning variable info */ | |||
| 98628 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 98629 | /* End of cleaning variable a */ | |||
| 98630 | } /*CHECKSCALAR(n>=0)*/ | |||
| 98631 | } /*if (f2py_success) of n*/ | |||
| 98632 | /* End of cleaning variable n */ | |||
| 98633 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 98634 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 98635 | } /*if (f2py_success) of uplo*/ | |||
| 98636 | /* End of cleaning variable uplo */ | |||
| 98637 | /*end of cleanupfrompyobj*/ | |||
| 98638 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 98639 | /*routdebugfailure*/ | |||
| 98640 | } else { | |||
| 98641 | /*routdebugleave*/ | |||
| 98642 | } | |||
| 98643 | CFUNCSMESS("Freeing memory.\n"); | |||
| 98644 | /*freemem*/ | |||
| 98645 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98646 | f2py_stop_clock(); | |||
| 98647 | #endif | |||
| 98648 | return capi_buildvalue; | |||
| 98649 | } | |||
| 98650 | /******************************* end of dpftri *******************************/ | |||
| 98651 | ||||
| 98652 | /*********************************** cpftri ***********************************/ | |||
| 98653 | static char doc_f2py_rout__flapack_cpftri[] = "\ | |||
| 98654 | ainv,info = cpftri(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``cpftri``.\ | |||
| 98655 | \n\nParameters\n----------\n" | |||
| 98656 | "n : input int\n" | |||
| 98657 | "a : input rank-1 array('F') with bounds (nt)\n" | |||
| 98658 | "\nOther Parameters\n----------------\n" | |||
| 98659 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 98660 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 98661 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 98662 | "\nReturns\n-------\n" | |||
| 98663 | "ainv : rank-1 array('F') with bounds (nt) and a storage\n" | |||
| 98664 | "info : int"; | |||
| 98665 | /* extern void F_FUNC(cpftri,CPFTRI)(char*,char*,F_INT*,complex_float*,F_INT* ); */ | |||
| 98666 | static PyObject *f2py_rout__flapack_cpftri(const PyObject *capi_self, | |||
| 98667 | PyObject *capi_args, | |||
| 98668 | PyObject *capi_keywds, | |||
| 98669 | void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint* )) { | |||
| 98670 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 98671 | volatile int f2py_success = 1; | |||
| 98672 | /*decl*/ | |||
| 98673 | ||||
| 98674 | string transr = NULL((void*)0); | |||
| 98675 | int slen(transr)capi_transr_len; | |||
| 98676 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 98677 | string uplo = NULL((void*)0); | |||
| 98678 | int slen(uplo)capi_uplo_len; | |||
| 98679 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 98680 | int n = 0; | |||
| 98681 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 98682 | int nt = 0; | |||
| 98683 | complex_float *a = NULL((void*)0); | |||
| 98684 | npy_intp a_Dims[1] = {-1}; | |||
| 98685 | const int a_Rank = 1; | |||
| 98686 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 98687 | int capi_a_intent = 0; | |||
| 98688 | int capi_overwrite_a = 0; | |||
| 98689 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 98690 | int info = 0; | |||
| 98691 | static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)}; | |||
| 98692 | ||||
| 98693 | /*routdebugenter*/ | |||
| 98694 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98695 | f2py_start_clock(); | |||
| 98696 | #endif | |||
| 98697 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 98698 | "OO|OOi:_flapack.cpftri",\ | |||
| 98699 | capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a)) | |||
| 98700 | return NULL((void*)0); | |||
| 98701 | /*frompyobj*/ | |||
| 98702 | /* Processing variable uplo */ | |||
| 98703 | slen(uplo)capi_uplo_len = 1; | |||
| 98704 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.cpftri to C string"); | |||
| 98705 | if (f2py_success) { | |||
| 98706 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","cpftri:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpftri:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 98707 | /* Processing variable n */ | |||
| 98708 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cpftri() 1st argument (n) can't be converted to int"); | |||
| 98709 | if (f2py_success) { | |||
| 98710 | CHECKSCALAR(n>=0,"n>=0","1st argument n","cpftri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpftri:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98711 | /* Processing variable a */ | |||
| 98712 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 98713 | ; | |||
| 98714 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 98715 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 98716 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 98717 | if (!PyErr_Occurred()) | |||
| 98718 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.cpftri to C/Fortran array" ); | |||
| 98719 | } else { | |||
| 98720 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 98721 | ||||
| 98722 | /* Processing variable info */ | |||
| 98723 | /* Processing variable transr */ | |||
| 98724 | slen(transr)capi_transr_len = 1; | |||
| 98725 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.cpftri to C string"); | |||
| 98726 | if (f2py_success) { | |||
| 98727 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","cpftri:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpftri:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 98728 | /* Processing variable nt */ | |||
| 98729 | nt = shape(a,0)a_Dims[0]; | |||
| 98730 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","cpftri:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpftri:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98731 | /*end of frompyobj*/ | |||
| 98732 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98733 | f2py_start_call_clock(); | |||
| 98734 | #endif | |||
| 98735 | /*callfortranroutine*/ | |||
| 98736 | (*f2py_func)(transr,uplo,&n,a,&info) ; | |||
| 98737 | /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/ | |||
| 98738 | if (PyErr_Occurred()) | |||
| 98739 | f2py_success = 0; | |||
| 98740 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98741 | f2py_stop_call_clock(); | |||
| 98742 | #endif | |||
| 98743 | /*end of callfortranroutine*/ | |||
| 98744 | if (f2py_success) { | |||
| 98745 | /*pyobjfrom*/ | |||
| 98746 | /*end of pyobjfrom*/ | |||
| 98747 | CFUNCSMESS("Building return value.\n"); | |||
| 98748 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 98749 | /*closepyobjfrom*/ | |||
| 98750 | /*end of closepyobjfrom*/ | |||
| 98751 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 98752 | /*cleanupfrompyobj*/ | |||
| 98753 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 98754 | /* End of cleaning variable nt */ | |||
| 98755 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 98756 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 98757 | } /*if (f2py_success) of transr*/ | |||
| 98758 | /* End of cleaning variable transr */ | |||
| 98759 | /* End of cleaning variable info */ | |||
| 98760 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 98761 | /* End of cleaning variable a */ | |||
| 98762 | } /*CHECKSCALAR(n>=0)*/ | |||
| 98763 | } /*if (f2py_success) of n*/ | |||
| 98764 | /* End of cleaning variable n */ | |||
| 98765 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 98766 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 98767 | } /*if (f2py_success) of uplo*/ | |||
| 98768 | /* End of cleaning variable uplo */ | |||
| 98769 | /*end of cleanupfrompyobj*/ | |||
| 98770 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 98771 | /*routdebugfailure*/ | |||
| 98772 | } else { | |||
| 98773 | /*routdebugleave*/ | |||
| 98774 | } | |||
| 98775 | CFUNCSMESS("Freeing memory.\n"); | |||
| 98776 | /*freemem*/ | |||
| 98777 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98778 | f2py_stop_clock(); | |||
| 98779 | #endif | |||
| 98780 | return capi_buildvalue; | |||
| 98781 | } | |||
| 98782 | /******************************* end of cpftri *******************************/ | |||
| 98783 | ||||
| 98784 | /*********************************** zpftri ***********************************/ | |||
| 98785 | static char doc_f2py_rout__flapack_zpftri[] = "\ | |||
| 98786 | ainv,info = zpftri(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``zpftri``.\ | |||
| 98787 | \n\nParameters\n----------\n" | |||
| 98788 | "n : input int\n" | |||
| 98789 | "a : input rank-1 array('D') with bounds (nt)\n" | |||
| 98790 | "\nOther Parameters\n----------------\n" | |||
| 98791 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 98792 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 98793 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 98794 | "\nReturns\n-------\n" | |||
| 98795 | "ainv : rank-1 array('D') with bounds (nt) and a storage\n" | |||
| 98796 | "info : int"; | |||
| 98797 | /* extern void F_FUNC(zpftri,ZPFTRI)(char*,char*,F_INT*,complex_double*,F_INT* ); */ | |||
| 98798 | static PyObject *f2py_rout__flapack_zpftri(const PyObject *capi_self, | |||
| 98799 | PyObject *capi_args, | |||
| 98800 | PyObject *capi_keywds, | |||
| 98801 | void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint* )) { | |||
| 98802 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 98803 | volatile int f2py_success = 1; | |||
| 98804 | /*decl*/ | |||
| 98805 | ||||
| 98806 | string transr = NULL((void*)0); | |||
| 98807 | int slen(transr)capi_transr_len; | |||
| 98808 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 98809 | string uplo = NULL((void*)0); | |||
| 98810 | int slen(uplo)capi_uplo_len; | |||
| 98811 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 98812 | int n = 0; | |||
| 98813 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 98814 | int nt = 0; | |||
| 98815 | complex_double *a = NULL((void*)0); | |||
| 98816 | npy_intp a_Dims[1] = {-1}; | |||
| 98817 | const int a_Rank = 1; | |||
| 98818 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 98819 | int capi_a_intent = 0; | |||
| 98820 | int capi_overwrite_a = 0; | |||
| 98821 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 98822 | int info = 0; | |||
| 98823 | static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)}; | |||
| 98824 | ||||
| 98825 | /*routdebugenter*/ | |||
| 98826 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98827 | f2py_start_clock(); | |||
| 98828 | #endif | |||
| 98829 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 98830 | "OO|OOi:_flapack.zpftri",\ | |||
| 98831 | capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a)) | |||
| 98832 | return NULL((void*)0); | |||
| 98833 | /*frompyobj*/ | |||
| 98834 | /* Processing variable uplo */ | |||
| 98835 | slen(uplo)capi_uplo_len = 1; | |||
| 98836 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.zpftri to C string"); | |||
| 98837 | if (f2py_success) { | |||
| 98838 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","zpftri:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpftri:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 98839 | /* Processing variable n */ | |||
| 98840 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zpftri() 1st argument (n) can't be converted to int"); | |||
| 98841 | if (f2py_success) { | |||
| 98842 | CHECKSCALAR(n>=0,"n>=0","1st argument n","zpftri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpftri:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98843 | /* Processing variable a */ | |||
| 98844 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 98845 | ; | |||
| 98846 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 98847 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 98848 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 98849 | if (!PyErr_Occurred()) | |||
| 98850 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zpftri to C/Fortran array" ); | |||
| 98851 | } else { | |||
| 98852 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 98853 | ||||
| 98854 | /* Processing variable info */ | |||
| 98855 | /* Processing variable transr */ | |||
| 98856 | slen(transr)capi_transr_len = 1; | |||
| 98857 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.zpftri to C string"); | |||
| 98858 | if (f2py_success) { | |||
| 98859 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","zpftri:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpftri:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 98860 | /* Processing variable nt */ | |||
| 98861 | nt = shape(a,0)a_Dims[0]; | |||
| 98862 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","zpftri:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpftri:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98863 | /*end of frompyobj*/ | |||
| 98864 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98865 | f2py_start_call_clock(); | |||
| 98866 | #endif | |||
| 98867 | /*callfortranroutine*/ | |||
| 98868 | (*f2py_func)(transr,uplo,&n,a,&info) ; | |||
| 98869 | /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/ | |||
| 98870 | if (PyErr_Occurred()) | |||
| 98871 | f2py_success = 0; | |||
| 98872 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98873 | f2py_stop_call_clock(); | |||
| 98874 | #endif | |||
| 98875 | /*end of callfortranroutine*/ | |||
| 98876 | if (f2py_success) { | |||
| 98877 | /*pyobjfrom*/ | |||
| 98878 | /*end of pyobjfrom*/ | |||
| 98879 | CFUNCSMESS("Building return value.\n"); | |||
| 98880 | capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info); | |||
| 98881 | /*closepyobjfrom*/ | |||
| 98882 | /*end of closepyobjfrom*/ | |||
| 98883 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 98884 | /*cleanupfrompyobj*/ | |||
| 98885 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 98886 | /* End of cleaning variable nt */ | |||
| 98887 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 98888 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 98889 | } /*if (f2py_success) of transr*/ | |||
| 98890 | /* End of cleaning variable transr */ | |||
| 98891 | /* End of cleaning variable info */ | |||
| 98892 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 98893 | /* End of cleaning variable a */ | |||
| 98894 | } /*CHECKSCALAR(n>=0)*/ | |||
| 98895 | } /*if (f2py_success) of n*/ | |||
| 98896 | /* End of cleaning variable n */ | |||
| 98897 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 98898 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 98899 | } /*if (f2py_success) of uplo*/ | |||
| 98900 | /* End of cleaning variable uplo */ | |||
| 98901 | /*end of cleanupfrompyobj*/ | |||
| 98902 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 98903 | /*routdebugfailure*/ | |||
| 98904 | } else { | |||
| 98905 | /*routdebugleave*/ | |||
| 98906 | } | |||
| 98907 | CFUNCSMESS("Freeing memory.\n"); | |||
| 98908 | /*freemem*/ | |||
| 98909 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98910 | f2py_stop_clock(); | |||
| 98911 | #endif | |||
| 98912 | return capi_buildvalue; | |||
| 98913 | } | |||
| 98914 | /******************************* end of zpftri *******************************/ | |||
| 98915 | ||||
| 98916 | /*********************************** spftrs ***********************************/ | |||
| 98917 | static char doc_f2py_rout__flapack_spftrs[] = "\ | |||
| 98918 | x,info = spftrs(n,a,b,[transr,uplo,overwrite_b])\n\nWrapper for ``spftrs``.\ | |||
| 98919 | \n\nParameters\n----------\n" | |||
| 98920 | "n : input int\n" | |||
| 98921 | "a : input rank-1 array('f') with bounds (nt)\n" | |||
| 98922 | "b : input rank-2 array('f') with bounds (ldb,nhrs)\n" | |||
| 98923 | "\nOther Parameters\n----------------\n" | |||
| 98924 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 98925 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 98926 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 98927 | "\nReturns\n-------\n" | |||
| 98928 | "x : rank-2 array('f') with bounds (ldb,nhrs) and b storage\n" | |||
| 98929 | "info : int"; | |||
| 98930 | /* extern void F_FUNC(spftrs,SPFTRS)(char*,char*,F_INT*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 98931 | static PyObject *f2py_rout__flapack_spftrs(const PyObject *capi_self, | |||
| 98932 | PyObject *capi_args, | |||
| 98933 | PyObject *capi_keywds, | |||
| 98934 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 98935 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 98936 | volatile int f2py_success = 1; | |||
| 98937 | /*decl*/ | |||
| 98938 | ||||
| 98939 | string transr = NULL((void*)0); | |||
| 98940 | int slen(transr)capi_transr_len; | |||
| 98941 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 98942 | string uplo = NULL((void*)0); | |||
| 98943 | int slen(uplo)capi_uplo_len; | |||
| 98944 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 98945 | int n = 0; | |||
| 98946 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 98947 | int nhrs = 0; | |||
| 98948 | int nt = 0; | |||
| 98949 | float *a = NULL((void*)0); | |||
| 98950 | npy_intp a_Dims[1] = {-1}; | |||
| 98951 | const int a_Rank = 1; | |||
| 98952 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 98953 | int capi_a_intent = 0; | |||
| 98954 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 98955 | float *b = NULL((void*)0); | |||
| 98956 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 98957 | const int b_Rank = 2; | |||
| 98958 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 98959 | int capi_b_intent = 0; | |||
| 98960 | int capi_overwrite_b = 0; | |||
| 98961 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 98962 | int ldb = 0; | |||
| 98963 | int info = 0; | |||
| 98964 | static char *capi_kwlist[] = {"n","a","b","transr","uplo","overwrite_b",NULL((void*)0)}; | |||
| 98965 | ||||
| 98966 | /*routdebugenter*/ | |||
| 98967 | #ifdef F2PY_REPORT_ATEXIT | |||
| 98968 | f2py_start_clock(); | |||
| 98969 | #endif | |||
| 98970 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 98971 | "OOO|OOi:_flapack.spftrs",\ | |||
| 98972 | capi_kwlist,&n_capi,&a_capi,&b_capi,&transr_capi,&uplo_capi,&capi_overwrite_b)) | |||
| 98973 | return NULL((void*)0); | |||
| 98974 | /*frompyobj*/ | |||
| 98975 | /* Processing variable uplo */ | |||
| 98976 | slen(uplo)capi_uplo_len = 1; | |||
| 98977 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.spftrs to C string"); | |||
| 98978 | if (f2py_success) { | |||
| 98979 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","spftrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spftrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 98980 | /* Processing variable n */ | |||
| 98981 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.spftrs() 1st argument (n) can't be converted to int"); | |||
| 98982 | if (f2py_success) { | |||
| 98983 | CHECKSCALAR(n>=0,"n>=0","1st argument n","spftrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spftrs:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 98984 | /* Processing variable a */ | |||
| 98985 | ; | |||
| 98986 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 98987 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 98988 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 98989 | if (!PyErr_Occurred()) | |||
| 98990 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.spftrs to C/Fortran array" ); | |||
| 98991 | } else { | |||
| 98992 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 98993 | ||||
| 98994 | /* Processing variable info */ | |||
| 98995 | /* Processing variable transr */ | |||
| 98996 | slen(transr)capi_transr_len = 1; | |||
| 98997 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.spftrs to C string"); | |||
| 98998 | if (f2py_success) { | |||
| 98999 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","spftrs:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spftrs:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 99000 | /* Processing variable nt */ | |||
| 99001 | nt = shape(a,0)a_Dims[0]; | |||
| 99002 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","spftrs:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""spftrs:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 99003 | /* Processing variable b */ | |||
| 99004 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 99005 | ; | |||
| 99006 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 99007 | capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 99008 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 99009 | if (!PyErr_Occurred()) | |||
| 99010 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.spftrs to C/Fortran array" ); | |||
| 99011 | } else { | |||
| 99012 | b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 99013 | ||||
| 99014 | CHECKARRAY(shape(b,0)>=n,"shape(b,0)>=n","3rd argument b")if (!(b_Dims[0]>=n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)>=n" ") failed for ""3rd argument b"); } else { | |||
| 99015 | /* Processing variable nhrs */ | |||
| 99016 | nhrs = shape(b,1)b_Dims[1]; | |||
| 99017 | /* Processing variable ldb */ | |||
| 99018 | ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 99019 | /*end of frompyobj*/ | |||
| 99020 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99021 | f2py_start_call_clock(); | |||
| 99022 | #endif | |||
| 99023 | /*callfortranroutine*/ | |||
| 99024 | (*f2py_func)(transr,uplo,&n,&nhrs,a,b,&ldb,&info) ; | |||
| 99025 | /*(*f2py_func)(transr,uplo,&n,&nhrs,&nt,a,b,&ldb,&info,slen(transr),slen(uplo));*/ | |||
| 99026 | if (PyErr_Occurred()) | |||
| 99027 | f2py_success = 0; | |||
| 99028 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99029 | f2py_stop_call_clock(); | |||
| 99030 | #endif | |||
| 99031 | /*end of callfortranroutine*/ | |||
| 99032 | if (f2py_success) { | |||
| 99033 | /*pyobjfrom*/ | |||
| 99034 | /*end of pyobjfrom*/ | |||
| 99035 | CFUNCSMESS("Building return value.\n"); | |||
| 99036 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 99037 | /*closepyobjfrom*/ | |||
| 99038 | /*end of closepyobjfrom*/ | |||
| 99039 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 99040 | /*cleanupfrompyobj*/ | |||
| 99041 | /* End of cleaning variable ldb */ | |||
| 99042 | /* End of cleaning variable nhrs */ | |||
| 99043 | } /*CHECKARRAY(shape(b,0)>=n)*/ | |||
| 99044 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 99045 | /* End of cleaning variable b */ | |||
| 99046 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 99047 | /* End of cleaning variable nt */ | |||
| 99048 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 99049 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 99050 | } /*if (f2py_success) of transr*/ | |||
| 99051 | /* End of cleaning variable transr */ | |||
| 99052 | /* End of cleaning variable info */ | |||
| 99053 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 99054 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 99055 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 99056 | /* End of cleaning variable a */ | |||
| 99057 | } /*CHECKSCALAR(n>=0)*/ | |||
| 99058 | } /*if (f2py_success) of n*/ | |||
| 99059 | /* End of cleaning variable n */ | |||
| 99060 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 99061 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 99062 | } /*if (f2py_success) of uplo*/ | |||
| 99063 | /* End of cleaning variable uplo */ | |||
| 99064 | /*end of cleanupfrompyobj*/ | |||
| 99065 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 99066 | /*routdebugfailure*/ | |||
| 99067 | } else { | |||
| 99068 | /*routdebugleave*/ | |||
| 99069 | } | |||
| 99070 | CFUNCSMESS("Freeing memory.\n"); | |||
| 99071 | /*freemem*/ | |||
| 99072 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99073 | f2py_stop_clock(); | |||
| 99074 | #endif | |||
| 99075 | return capi_buildvalue; | |||
| 99076 | } | |||
| 99077 | /******************************* end of spftrs *******************************/ | |||
| 99078 | ||||
| 99079 | /*********************************** dpftrs ***********************************/ | |||
| 99080 | static char doc_f2py_rout__flapack_dpftrs[] = "\ | |||
| 99081 | x,info = dpftrs(n,a,b,[transr,uplo,overwrite_b])\n\nWrapper for ``dpftrs``.\ | |||
| 99082 | \n\nParameters\n----------\n" | |||
| 99083 | "n : input int\n" | |||
| 99084 | "a : input rank-1 array('d') with bounds (nt)\n" | |||
| 99085 | "b : input rank-2 array('d') with bounds (ldb,nhrs)\n" | |||
| 99086 | "\nOther Parameters\n----------------\n" | |||
| 99087 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 99088 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 99089 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 99090 | "\nReturns\n-------\n" | |||
| 99091 | "x : rank-2 array('d') with bounds (ldb,nhrs) and b storage\n" | |||
| 99092 | "info : int"; | |||
| 99093 | /* extern void F_FUNC(dpftrs,DPFTRS)(char*,char*,F_INT*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 99094 | static PyObject *f2py_rout__flapack_dpftrs(const PyObject *capi_self, | |||
| 99095 | PyObject *capi_args, | |||
| 99096 | PyObject *capi_keywds, | |||
| 99097 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 99098 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 99099 | volatile int f2py_success = 1; | |||
| 99100 | /*decl*/ | |||
| 99101 | ||||
| 99102 | string transr = NULL((void*)0); | |||
| 99103 | int slen(transr)capi_transr_len; | |||
| 99104 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 99105 | string uplo = NULL((void*)0); | |||
| 99106 | int slen(uplo)capi_uplo_len; | |||
| 99107 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 99108 | int n = 0; | |||
| 99109 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 99110 | int nhrs = 0; | |||
| 99111 | int nt = 0; | |||
| 99112 | double *a = NULL((void*)0); | |||
| 99113 | npy_intp a_Dims[1] = {-1}; | |||
| 99114 | const int a_Rank = 1; | |||
| 99115 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 99116 | int capi_a_intent = 0; | |||
| 99117 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 99118 | double *b = NULL((void*)0); | |||
| 99119 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 99120 | const int b_Rank = 2; | |||
| 99121 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 99122 | int capi_b_intent = 0; | |||
| 99123 | int capi_overwrite_b = 0; | |||
| 99124 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 99125 | int ldb = 0; | |||
| 99126 | int info = 0; | |||
| 99127 | static char *capi_kwlist[] = {"n","a","b","transr","uplo","overwrite_b",NULL((void*)0)}; | |||
| 99128 | ||||
| 99129 | /*routdebugenter*/ | |||
| 99130 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99131 | f2py_start_clock(); | |||
| 99132 | #endif | |||
| 99133 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 99134 | "OOO|OOi:_flapack.dpftrs",\ | |||
| 99135 | capi_kwlist,&n_capi,&a_capi,&b_capi,&transr_capi,&uplo_capi,&capi_overwrite_b)) | |||
| 99136 | return NULL((void*)0); | |||
| 99137 | /*frompyobj*/ | |||
| 99138 | /* Processing variable uplo */ | |||
| 99139 | slen(uplo)capi_uplo_len = 1; | |||
| 99140 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dpftrs to C string"); | |||
| 99141 | if (f2py_success) { | |||
| 99142 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dpftrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpftrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 99143 | /* Processing variable n */ | |||
| 99144 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dpftrs() 1st argument (n) can't be converted to int"); | |||
| 99145 | if (f2py_success) { | |||
| 99146 | CHECKSCALAR(n>=0,"n>=0","1st argument n","dpftrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpftrs:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 99147 | /* Processing variable a */ | |||
| 99148 | ; | |||
| 99149 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 99150 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 99151 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 99152 | if (!PyErr_Occurred()) | |||
| 99153 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dpftrs to C/Fortran array" ); | |||
| 99154 | } else { | |||
| 99155 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 99156 | ||||
| 99157 | /* Processing variable info */ | |||
| 99158 | /* Processing variable transr */ | |||
| 99159 | slen(transr)capi_transr_len = 1; | |||
| 99160 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dpftrs to C string"); | |||
| 99161 | if (f2py_success) { | |||
| 99162 | CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dpftrs:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpftrs:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 99163 | /* Processing variable nt */ | |||
| 99164 | nt = shape(a,0)a_Dims[0]; | |||
| 99165 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dpftrs:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dpftrs:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 99166 | /* Processing variable b */ | |||
| 99167 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 99168 | ; | |||
| 99169 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 99170 | capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 99171 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 99172 | if (!PyErr_Occurred()) | |||
| 99173 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dpftrs to C/Fortran array" ); | |||
| 99174 | } else { | |||
| 99175 | b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 99176 | ||||
| 99177 | CHECKARRAY(shape(b,0)>=n,"shape(b,0)>=n","3rd argument b")if (!(b_Dims[0]>=n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)>=n" ") failed for ""3rd argument b"); } else { | |||
| 99178 | /* Processing variable nhrs */ | |||
| 99179 | nhrs = shape(b,1)b_Dims[1]; | |||
| 99180 | /* Processing variable ldb */ | |||
| 99181 | ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 99182 | /*end of frompyobj*/ | |||
| 99183 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99184 | f2py_start_call_clock(); | |||
| 99185 | #endif | |||
| 99186 | /*callfortranroutine*/ | |||
| 99187 | (*f2py_func)(transr,uplo,&n,&nhrs,a,b,&ldb,&info) ; | |||
| 99188 | /*(*f2py_func)(transr,uplo,&n,&nhrs,&nt,a,b,&ldb,&info,slen(transr),slen(uplo));*/ | |||
| 99189 | if (PyErr_Occurred()) | |||
| 99190 | f2py_success = 0; | |||
| 99191 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99192 | f2py_stop_call_clock(); | |||
| 99193 | #endif | |||
| 99194 | /*end of callfortranroutine*/ | |||
| 99195 | if (f2py_success) { | |||
| 99196 | /*pyobjfrom*/ | |||
| 99197 | /*end of pyobjfrom*/ | |||
| 99198 | CFUNCSMESS("Building return value.\n"); | |||
| 99199 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 99200 | /*closepyobjfrom*/ | |||
| 99201 | /*end of closepyobjfrom*/ | |||
| 99202 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 99203 | /*cleanupfrompyobj*/ | |||
| 99204 | /* End of cleaning variable ldb */ | |||
| 99205 | /* End of cleaning variable nhrs */ | |||
| 99206 | } /*CHECKARRAY(shape(b,0)>=n)*/ | |||
| 99207 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 99208 | /* End of cleaning variable b */ | |||
| 99209 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 99210 | /* End of cleaning variable nt */ | |||
| 99211 | } /*CHECKSTRING(*transr=='N'||*transr=='T')*/ | |||
| 99212 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 99213 | } /*if (f2py_success) of transr*/ | |||
| 99214 | /* End of cleaning variable transr */ | |||
| 99215 | /* End of cleaning variable info */ | |||
| 99216 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 99217 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 99218 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 99219 | /* End of cleaning variable a */ | |||
| 99220 | } /*CHECKSCALAR(n>=0)*/ | |||
| 99221 | } /*if (f2py_success) of n*/ | |||
| 99222 | /* End of cleaning variable n */ | |||
| 99223 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 99224 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 99225 | } /*if (f2py_success) of uplo*/ | |||
| 99226 | /* End of cleaning variable uplo */ | |||
| 99227 | /*end of cleanupfrompyobj*/ | |||
| 99228 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 99229 | /*routdebugfailure*/ | |||
| 99230 | } else { | |||
| 99231 | /*routdebugleave*/ | |||
| 99232 | } | |||
| 99233 | CFUNCSMESS("Freeing memory.\n"); | |||
| 99234 | /*freemem*/ | |||
| 99235 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99236 | f2py_stop_clock(); | |||
| 99237 | #endif | |||
| 99238 | return capi_buildvalue; | |||
| 99239 | } | |||
| 99240 | /******************************* end of dpftrs *******************************/ | |||
| 99241 | ||||
| 99242 | /*********************************** cpftrs ***********************************/ | |||
| 99243 | static char doc_f2py_rout__flapack_cpftrs[] = "\ | |||
| 99244 | x,info = cpftrs(n,a,b,[transr,uplo,overwrite_b])\n\nWrapper for ``cpftrs``.\ | |||
| 99245 | \n\nParameters\n----------\n" | |||
| 99246 | "n : input int\n" | |||
| 99247 | "a : input rank-1 array('F') with bounds (nt)\n" | |||
| 99248 | "b : input rank-2 array('F') with bounds (ldb,nhrs)\n" | |||
| 99249 | "\nOther Parameters\n----------------\n" | |||
| 99250 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 99251 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 99252 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 99253 | "\nReturns\n-------\n" | |||
| 99254 | "x : rank-2 array('F') with bounds (ldb,nhrs) and b storage\n" | |||
| 99255 | "info : int"; | |||
| 99256 | /* extern void F_FUNC(cpftrs,CPFTRS)(char*,char*,F_INT*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 99257 | static PyObject *f2py_rout__flapack_cpftrs(const PyObject *capi_self, | |||
| 99258 | PyObject *capi_args, | |||
| 99259 | PyObject *capi_keywds, | |||
| 99260 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 99261 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 99262 | volatile int f2py_success = 1; | |||
| 99263 | /*decl*/ | |||
| 99264 | ||||
| 99265 | string transr = NULL((void*)0); | |||
| 99266 | int slen(transr)capi_transr_len; | |||
| 99267 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 99268 | string uplo = NULL((void*)0); | |||
| 99269 | int slen(uplo)capi_uplo_len; | |||
| 99270 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 99271 | int n = 0; | |||
| 99272 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 99273 | int nhrs = 0; | |||
| 99274 | int nt = 0; | |||
| 99275 | complex_float *a = NULL((void*)0); | |||
| 99276 | npy_intp a_Dims[1] = {-1}; | |||
| 99277 | const int a_Rank = 1; | |||
| 99278 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 99279 | int capi_a_intent = 0; | |||
| 99280 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 99281 | complex_float *b = NULL((void*)0); | |||
| 99282 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 99283 | const int b_Rank = 2; | |||
| 99284 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 99285 | int capi_b_intent = 0; | |||
| 99286 | int capi_overwrite_b = 0; | |||
| 99287 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 99288 | int ldb = 0; | |||
| 99289 | int info = 0; | |||
| 99290 | static char *capi_kwlist[] = {"n","a","b","transr","uplo","overwrite_b",NULL((void*)0)}; | |||
| 99291 | ||||
| 99292 | /*routdebugenter*/ | |||
| 99293 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99294 | f2py_start_clock(); | |||
| 99295 | #endif | |||
| 99296 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 99297 | "OOO|OOi:_flapack.cpftrs",\ | |||
| 99298 | capi_kwlist,&n_capi,&a_capi,&b_capi,&transr_capi,&uplo_capi,&capi_overwrite_b)) | |||
| 99299 | return NULL((void*)0); | |||
| 99300 | /*frompyobj*/ | |||
| 99301 | /* Processing variable uplo */ | |||
| 99302 | slen(uplo)capi_uplo_len = 1; | |||
| 99303 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.cpftrs to C string"); | |||
| 99304 | if (f2py_success) { | |||
| 99305 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","cpftrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpftrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 99306 | /* Processing variable n */ | |||
| 99307 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cpftrs() 1st argument (n) can't be converted to int"); | |||
| 99308 | if (f2py_success) { | |||
| 99309 | CHECKSCALAR(n>=0,"n>=0","1st argument n","cpftrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpftrs:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 99310 | /* Processing variable a */ | |||
| 99311 | ; | |||
| 99312 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 99313 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 99314 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 99315 | if (!PyErr_Occurred()) | |||
| 99316 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.cpftrs to C/Fortran array" ); | |||
| 99317 | } else { | |||
| 99318 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 99319 | ||||
| 99320 | /* Processing variable info */ | |||
| 99321 | /* Processing variable transr */ | |||
| 99322 | slen(transr)capi_transr_len = 1; | |||
| 99323 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.cpftrs to C string"); | |||
| 99324 | if (f2py_success) { | |||
| 99325 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","cpftrs:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpftrs:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 99326 | /* Processing variable nt */ | |||
| 99327 | nt = shape(a,0)a_Dims[0]; | |||
| 99328 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","cpftrs:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""cpftrs:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 99329 | /* Processing variable b */ | |||
| 99330 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 99331 | ; | |||
| 99332 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 99333 | capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 99334 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 99335 | if (!PyErr_Occurred()) | |||
| 99336 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cpftrs to C/Fortran array" ); | |||
| 99337 | } else { | |||
| 99338 | b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 99339 | ||||
| 99340 | CHECKARRAY(shape(b,0)>=n,"shape(b,0)>=n","3rd argument b")if (!(b_Dims[0]>=n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)>=n" ") failed for ""3rd argument b"); } else { | |||
| 99341 | /* Processing variable nhrs */ | |||
| 99342 | nhrs = shape(b,1)b_Dims[1]; | |||
| 99343 | /* Processing variable ldb */ | |||
| 99344 | ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 99345 | /*end of frompyobj*/ | |||
| 99346 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99347 | f2py_start_call_clock(); | |||
| 99348 | #endif | |||
| 99349 | /*callfortranroutine*/ | |||
| 99350 | (*f2py_func)(transr,uplo,&n,&nhrs,a,b,&ldb,&info) ; | |||
| 99351 | /*(*f2py_func)(transr,uplo,&n,&nhrs,&nt,a,b,&ldb,&info,slen(transr),slen(uplo));*/ | |||
| 99352 | if (PyErr_Occurred()) | |||
| 99353 | f2py_success = 0; | |||
| 99354 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99355 | f2py_stop_call_clock(); | |||
| 99356 | #endif | |||
| 99357 | /*end of callfortranroutine*/ | |||
| 99358 | if (f2py_success) { | |||
| 99359 | /*pyobjfrom*/ | |||
| 99360 | /*end of pyobjfrom*/ | |||
| 99361 | CFUNCSMESS("Building return value.\n"); | |||
| 99362 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 99363 | /*closepyobjfrom*/ | |||
| 99364 | /*end of closepyobjfrom*/ | |||
| 99365 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 99366 | /*cleanupfrompyobj*/ | |||
| 99367 | /* End of cleaning variable ldb */ | |||
| 99368 | /* End of cleaning variable nhrs */ | |||
| 99369 | } /*CHECKARRAY(shape(b,0)>=n)*/ | |||
| 99370 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 99371 | /* End of cleaning variable b */ | |||
| 99372 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 99373 | /* End of cleaning variable nt */ | |||
| 99374 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 99375 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 99376 | } /*if (f2py_success) of transr*/ | |||
| 99377 | /* End of cleaning variable transr */ | |||
| 99378 | /* End of cleaning variable info */ | |||
| 99379 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 99380 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 99381 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 99382 | /* End of cleaning variable a */ | |||
| 99383 | } /*CHECKSCALAR(n>=0)*/ | |||
| 99384 | } /*if (f2py_success) of n*/ | |||
| 99385 | /* End of cleaning variable n */ | |||
| 99386 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 99387 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 99388 | } /*if (f2py_success) of uplo*/ | |||
| 99389 | /* End of cleaning variable uplo */ | |||
| 99390 | /*end of cleanupfrompyobj*/ | |||
| 99391 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 99392 | /*routdebugfailure*/ | |||
| 99393 | } else { | |||
| 99394 | /*routdebugleave*/ | |||
| 99395 | } | |||
| 99396 | CFUNCSMESS("Freeing memory.\n"); | |||
| 99397 | /*freemem*/ | |||
| 99398 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99399 | f2py_stop_clock(); | |||
| 99400 | #endif | |||
| 99401 | return capi_buildvalue; | |||
| 99402 | } | |||
| 99403 | /******************************* end of cpftrs *******************************/ | |||
| 99404 | ||||
| 99405 | /*********************************** zpftrs ***********************************/ | |||
| 99406 | static char doc_f2py_rout__flapack_zpftrs[] = "\ | |||
| 99407 | x,info = zpftrs(n,a,b,[transr,uplo,overwrite_b])\n\nWrapper for ``zpftrs``.\ | |||
| 99408 | \n\nParameters\n----------\n" | |||
| 99409 | "n : input int\n" | |||
| 99410 | "a : input rank-1 array('D') with bounds (nt)\n" | |||
| 99411 | "b : input rank-2 array('D') with bounds (ldb,nhrs)\n" | |||
| 99412 | "\nOther Parameters\n----------------\n" | |||
| 99413 | "transr : input string(len=1), optional\n Default: 'N'\n" | |||
| 99414 | "uplo : input string(len=1), optional\n Default: 'U'\n" | |||
| 99415 | "overwrite_b : input int, optional\n Default: 0\n" | |||
| 99416 | "\nReturns\n-------\n" | |||
| 99417 | "x : rank-2 array('D') with bounds (ldb,nhrs) and b storage\n" | |||
| 99418 | "info : int"; | |||
| 99419 | /* extern void F_FUNC(zpftrs,ZPFTRS)(char*,char*,F_INT*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 99420 | static PyObject *f2py_rout__flapack_zpftrs(const PyObject *capi_self, | |||
| 99421 | PyObject *capi_args, | |||
| 99422 | PyObject *capi_keywds, | |||
| 99423 | void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 99424 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 99425 | volatile int f2py_success = 1; | |||
| 99426 | /*decl*/ | |||
| 99427 | ||||
| 99428 | string transr = NULL((void*)0); | |||
| 99429 | int slen(transr)capi_transr_len; | |||
| 99430 | PyObject *transr_capi = Py_None(&_Py_NoneStruct); | |||
| 99431 | string uplo = NULL((void*)0); | |||
| 99432 | int slen(uplo)capi_uplo_len; | |||
| 99433 | PyObject *uplo_capi = Py_None(&_Py_NoneStruct); | |||
| 99434 | int n = 0; | |||
| 99435 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 99436 | int nhrs = 0; | |||
| 99437 | int nt = 0; | |||
| 99438 | complex_double *a = NULL((void*)0); | |||
| 99439 | npy_intp a_Dims[1] = {-1}; | |||
| 99440 | const int a_Rank = 1; | |||
| 99441 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 99442 | int capi_a_intent = 0; | |||
| 99443 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 99444 | complex_double *b = NULL((void*)0); | |||
| 99445 | npy_intp b_Dims[2] = {-1, -1}; | |||
| 99446 | const int b_Rank = 2; | |||
| 99447 | PyArrayObject *capi_b_tmp = NULL((void*)0); | |||
| 99448 | int capi_b_intent = 0; | |||
| 99449 | int capi_overwrite_b = 0; | |||
| 99450 | PyObject *b_capi = Py_None(&_Py_NoneStruct); | |||
| 99451 | int ldb = 0; | |||
| 99452 | int info = 0; | |||
| 99453 | static char *capi_kwlist[] = {"n","a","b","transr","uplo","overwrite_b",NULL((void*)0)}; | |||
| 99454 | ||||
| 99455 | /*routdebugenter*/ | |||
| 99456 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99457 | f2py_start_clock(); | |||
| 99458 | #endif | |||
| 99459 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 99460 | "OOO|OOi:_flapack.zpftrs",\ | |||
| 99461 | capi_kwlist,&n_capi,&a_capi,&b_capi,&transr_capi,&uplo_capi,&capi_overwrite_b)) | |||
| 99462 | return NULL((void*)0); | |||
| 99463 | /*frompyobj*/ | |||
| 99464 | /* Processing variable uplo */ | |||
| 99465 | slen(uplo)capi_uplo_len = 1; | |||
| 99466 | f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.zpftrs to C string"); | |||
| 99467 | if (f2py_success) { | |||
| 99468 | CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","zpftrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpftrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'" ") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 99469 | /* Processing variable n */ | |||
| 99470 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zpftrs() 1st argument (n) can't be converted to int"); | |||
| 99471 | if (f2py_success) { | |||
| 99472 | CHECKSCALAR(n>=0,"n>=0","1st argument n","zpftrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpftrs:n=%d", "(""n>=0"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 99473 | /* Processing variable a */ | |||
| 99474 | ; | |||
| 99475 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 99476 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 99477 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 99478 | if (!PyErr_Occurred()) | |||
| 99479 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zpftrs to C/Fortran array" ); | |||
| 99480 | } else { | |||
| 99481 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 99482 | ||||
| 99483 | /* Processing variable info */ | |||
| 99484 | /* Processing variable transr */ | |||
| 99485 | slen(transr)capi_transr_len = 1; | |||
| 99486 | f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.zpftrs to C string"); | |||
| 99487 | if (f2py_success) { | |||
| 99488 | CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","zpftrs:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpftrs:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'" ") failed for ""1st keyword transr", capi_transr_len, transr) ; PyErr_SetString(_flapack_error, errstring); } else { | |||
| 99489 | /* Processing variable nt */ | |||
| 99490 | nt = shape(a,0)a_Dims[0]; | |||
| 99491 | CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","zpftrs:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zpftrs:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt" , nt); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 99492 | /* Processing variable b */ | |||
| 99493 | capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32); | |||
| 99494 | ; | |||
| 99495 | capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 99496 | capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi); | |||
| 99497 | if (capi_b_tmp == NULL((void*)0)) { | |||
| 99498 | if (!PyErr_Occurred()) | |||
| 99499 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zpftrs to C/Fortran array" ); | |||
| 99500 | } else { | |||
| 99501 | b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data)); | |||
| 99502 | ||||
| 99503 | CHECKARRAY(shape(b,0)>=n,"shape(b,0)>=n","3rd argument b")if (!(b_Dims[0]>=n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)>=n" ") failed for ""3rd argument b"); } else { | |||
| 99504 | /* Processing variable nhrs */ | |||
| 99505 | nhrs = shape(b,1)b_Dims[1]; | |||
| 99506 | /* Processing variable ldb */ | |||
| 99507 | ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1)); | |||
| 99508 | /*end of frompyobj*/ | |||
| 99509 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99510 | f2py_start_call_clock(); | |||
| 99511 | #endif | |||
| 99512 | /*callfortranroutine*/ | |||
| 99513 | (*f2py_func)(transr,uplo,&n,&nhrs,a,b,&ldb,&info) ; | |||
| 99514 | /*(*f2py_func)(transr,uplo,&n,&nhrs,&nt,a,b,&ldb,&info,slen(transr),slen(uplo));*/ | |||
| 99515 | if (PyErr_Occurred()) | |||
| 99516 | f2py_success = 0; | |||
| 99517 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99518 | f2py_stop_call_clock(); | |||
| 99519 | #endif | |||
| 99520 | /*end of callfortranroutine*/ | |||
| 99521 | if (f2py_success) { | |||
| 99522 | /*pyobjfrom*/ | |||
| 99523 | /*end of pyobjfrom*/ | |||
| 99524 | CFUNCSMESS("Building return value.\n"); | |||
| 99525 | capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info); | |||
| 99526 | /*closepyobjfrom*/ | |||
| 99527 | /*end of closepyobjfrom*/ | |||
| 99528 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 99529 | /*cleanupfrompyobj*/ | |||
| 99530 | /* End of cleaning variable ldb */ | |||
| 99531 | /* End of cleaning variable nhrs */ | |||
| 99532 | } /*CHECKARRAY(shape(b,0)>=n)*/ | |||
| 99533 | } /*if (capi_b_tmp == NULL) ... else of b*/ | |||
| 99534 | /* End of cleaning variable b */ | |||
| 99535 | } /*CHECKSCALAR(nt==(n*(n+1)/2))*/ | |||
| 99536 | /* End of cleaning variable nt */ | |||
| 99537 | } /*CHECKSTRING(*transr=='N'||*transr=='C')*/ | |||
| 99538 | STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0); | |||
| 99539 | } /*if (f2py_success) of transr*/ | |||
| 99540 | /* End of cleaning variable transr */ | |||
| 99541 | /* End of cleaning variable info */ | |||
| 99542 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 99543 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 99544 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 99545 | /* End of cleaning variable a */ | |||
| 99546 | } /*CHECKSCALAR(n>=0)*/ | |||
| 99547 | } /*if (f2py_success) of n*/ | |||
| 99548 | /* End of cleaning variable n */ | |||
| 99549 | } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/ | |||
| 99550 | STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0); | |||
| 99551 | } /*if (f2py_success) of uplo*/ | |||
| 99552 | /* End of cleaning variable uplo */ | |||
| 99553 | /*end of cleanupfrompyobj*/ | |||
| 99554 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 99555 | /*routdebugfailure*/ | |||
| 99556 | } else { | |||
| 99557 | /*routdebugleave*/ | |||
| 99558 | } | |||
| 99559 | CFUNCSMESS("Freeing memory.\n"); | |||
| 99560 | /*freemem*/ | |||
| 99561 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99562 | f2py_stop_clock(); | |||
| 99563 | #endif | |||
| 99564 | return capi_buildvalue; | |||
| 99565 | } | |||
| 99566 | /******************************* end of zpftrs *******************************/ | |||
| 99567 | ||||
| 99568 | /*********************************** stzrzf ***********************************/ | |||
| 99569 | static char doc_f2py_rout__flapack_stzrzf[] = "\ | |||
| 99570 | rz,tau,info = stzrzf(a,[lwork,overwrite_a])\n\nWrapper for ``stzrzf``.\ | |||
| 99571 | \n\nParameters\n----------\n" | |||
| 99572 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 99573 | "\nOther Parameters\n----------------\n" | |||
| 99574 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 99575 | "lwork : input int, optional\n Default: MAX(m,1)\n" | |||
| 99576 | "\nReturns\n-------\n" | |||
| 99577 | "rz : rank-2 array('f') with bounds (m,n) and a storage\n" | |||
| 99578 | "tau : rank-1 array('f') with bounds (m)\n" | |||
| 99579 | "info : int"; | |||
| 99580 | /* extern void F_FUNC(stzrzf,STZRZF)(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 99581 | static PyObject *f2py_rout__flapack_stzrzf(const PyObject *capi_self, | |||
| 99582 | PyObject *capi_args, | |||
| 99583 | PyObject *capi_keywds, | |||
| 99584 | void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 99585 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 99586 | volatile int f2py_success = 1; | |||
| 99587 | /*decl*/ | |||
| 99588 | ||||
| 99589 | int m = 0; | |||
| 99590 | int n = 0; | |||
| 99591 | float *a = NULL((void*)0); | |||
| 99592 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 99593 | const int a_Rank = 2; | |||
| 99594 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 99595 | int capi_a_intent = 0; | |||
| 99596 | int capi_overwrite_a = 0; | |||
| 99597 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 99598 | int lda = 0; | |||
| 99599 | float *tau = NULL((void*)0); | |||
| 99600 | npy_intp tau_Dims[1] = {-1}; | |||
| 99601 | const int tau_Rank = 1; | |||
| 99602 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 99603 | int capi_tau_intent = 0; | |||
| 99604 | float *work = NULL((void*)0); | |||
| 99605 | npy_intp work_Dims[1] = {-1}; | |||
| 99606 | const int work_Rank = 1; | |||
| 99607 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 99608 | int capi_work_intent = 0; | |||
| 99609 | int lwork = 0; | |||
| 99610 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 99611 | int info = 0; | |||
| 99612 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 99613 | ||||
| 99614 | /*routdebugenter*/ | |||
| 99615 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99616 | f2py_start_clock(); | |||
| 99617 | #endif | |||
| 99618 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 99619 | "O|Oi:_flapack.stzrzf",\ | |||
| 99620 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 99621 | return NULL((void*)0); | |||
| 99622 | /*frompyobj*/ | |||
| 99623 | /* Processing variable a */ | |||
| 99624 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 99625 | ; | |||
| 99626 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 99627 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 99628 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 99629 | if (!PyErr_Occurred()) | |||
| 99630 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.stzrzf to C/Fortran array" ); | |||
| 99631 | } else { | |||
| 99632 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 99633 | ||||
| 99634 | CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a" ); } else { | |||
| 99635 | /* Processing variable info */ | |||
| 99636 | /* Processing variable m */ | |||
| 99637 | m = shape(a,0)a_Dims[0]; | |||
| 99638 | /* Processing variable n */ | |||
| 99639 | n = shape(a,1)a_Dims[1]; | |||
| 99640 | /* Processing variable lda */ | |||
| 99641 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 99642 | /* Processing variable tau */ | |||
| 99643 | tau_Dims[0]=m; | |||
| 99644 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 99645 | capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 99646 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 99647 | if (!PyErr_Occurred()) | |||
| 99648 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.stzrzf to C/Fortran array" ); | |||
| 99649 | } else { | |||
| 99650 | tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 99651 | ||||
| 99652 | /* Processing variable lwork */ | |||
| 99653 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(m,1)((m > 1) ? (m) : (1)); else | |||
| 99654 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.stzrzf() 1st keyword (lwork) can't be converted to int"); | |||
| 99655 | if (f2py_success) { | |||
| 99656 | CHECKSCALAR(lwork>=m,"lwork>=m","1st keyword lwork","stzrzf:lwork=%d",lwork)if (!(lwork>=m)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""stzrzf:lwork=%d", "(""lwork>=m"") failed for ""1st keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 99657 | /* Processing variable work */ | |||
| 99658 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 99659 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 99660 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 99661 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 99662 | if (!PyErr_Occurred()) | |||
| 99663 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.stzrzf to C/Fortran array" ); | |||
| 99664 | } else { | |||
| 99665 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 99666 | ||||
| 99667 | /*end of frompyobj*/ | |||
| 99668 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99669 | f2py_start_call_clock(); | |||
| 99670 | #endif | |||
| 99671 | /*callfortranroutine*/ | |||
| 99672 | (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ; | |||
| 99673 | /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/ | |||
| 99674 | if (PyErr_Occurred()) | |||
| 99675 | f2py_success = 0; | |||
| 99676 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99677 | f2py_stop_call_clock(); | |||
| 99678 | #endif | |||
| 99679 | /*end of callfortranroutine*/ | |||
| 99680 | if (f2py_success) { | |||
| 99681 | /*pyobjfrom*/ | |||
| 99682 | /*end of pyobjfrom*/ | |||
| 99683 | CFUNCSMESS("Building return value.\n"); | |||
| 99684 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info); | |||
| 99685 | /*closepyobjfrom*/ | |||
| 99686 | /*end of closepyobjfrom*/ | |||
| 99687 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 99688 | /*cleanupfrompyobj*/ | |||
| 99689 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 99690 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 99691 | /* End of cleaning variable work */ | |||
| 99692 | } /*CHECKSCALAR(lwork>=m)*/ | |||
| 99693 | } /*if (f2py_success) of lwork*/ | |||
| 99694 | /* End of cleaning variable lwork */ | |||
| 99695 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 99696 | /* End of cleaning variable tau */ | |||
| 99697 | /* End of cleaning variable lda */ | |||
| 99698 | /* End of cleaning variable n */ | |||
| 99699 | /* End of cleaning variable m */ | |||
| 99700 | /* End of cleaning variable info */ | |||
| 99701 | } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/ | |||
| 99702 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 99703 | /* End of cleaning variable a */ | |||
| 99704 | /*end of cleanupfrompyobj*/ | |||
| 99705 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 99706 | /*routdebugfailure*/ | |||
| 99707 | } else { | |||
| 99708 | /*routdebugleave*/ | |||
| 99709 | } | |||
| 99710 | CFUNCSMESS("Freeing memory.\n"); | |||
| 99711 | /*freemem*/ | |||
| 99712 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99713 | f2py_stop_clock(); | |||
| 99714 | #endif | |||
| 99715 | return capi_buildvalue; | |||
| 99716 | } | |||
| 99717 | /******************************* end of stzrzf *******************************/ | |||
| 99718 | ||||
| 99719 | /*********************************** dtzrzf ***********************************/ | |||
| 99720 | static char doc_f2py_rout__flapack_dtzrzf[] = "\ | |||
| 99721 | rz,tau,info = dtzrzf(a,[lwork,overwrite_a])\n\nWrapper for ``dtzrzf``.\ | |||
| 99722 | \n\nParameters\n----------\n" | |||
| 99723 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 99724 | "\nOther Parameters\n----------------\n" | |||
| 99725 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 99726 | "lwork : input int, optional\n Default: MAX(m,1)\n" | |||
| 99727 | "\nReturns\n-------\n" | |||
| 99728 | "rz : rank-2 array('d') with bounds (m,n) and a storage\n" | |||
| 99729 | "tau : rank-1 array('d') with bounds (m)\n" | |||
| 99730 | "info : int"; | |||
| 99731 | /* extern void F_FUNC(dtzrzf,DTZRZF)(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 99732 | static PyObject *f2py_rout__flapack_dtzrzf(const PyObject *capi_self, | |||
| 99733 | PyObject *capi_args, | |||
| 99734 | PyObject *capi_keywds, | |||
| 99735 | void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 99736 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 99737 | volatile int f2py_success = 1; | |||
| 99738 | /*decl*/ | |||
| 99739 | ||||
| 99740 | int m = 0; | |||
| 99741 | int n = 0; | |||
| 99742 | double *a = NULL((void*)0); | |||
| 99743 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 99744 | const int a_Rank = 2; | |||
| 99745 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 99746 | int capi_a_intent = 0; | |||
| 99747 | int capi_overwrite_a = 0; | |||
| 99748 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 99749 | int lda = 0; | |||
| 99750 | double *tau = NULL((void*)0); | |||
| 99751 | npy_intp tau_Dims[1] = {-1}; | |||
| 99752 | const int tau_Rank = 1; | |||
| 99753 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 99754 | int capi_tau_intent = 0; | |||
| 99755 | double *work = NULL((void*)0); | |||
| 99756 | npy_intp work_Dims[1] = {-1}; | |||
| 99757 | const int work_Rank = 1; | |||
| 99758 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 99759 | int capi_work_intent = 0; | |||
| 99760 | int lwork = 0; | |||
| 99761 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 99762 | int info = 0; | |||
| 99763 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 99764 | ||||
| 99765 | /*routdebugenter*/ | |||
| 99766 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99767 | f2py_start_clock(); | |||
| 99768 | #endif | |||
| 99769 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 99770 | "O|Oi:_flapack.dtzrzf",\ | |||
| 99771 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 99772 | return NULL((void*)0); | |||
| 99773 | /*frompyobj*/ | |||
| 99774 | /* Processing variable a */ | |||
| 99775 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 99776 | ; | |||
| 99777 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 99778 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 99779 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 99780 | if (!PyErr_Occurred()) | |||
| 99781 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dtzrzf to C/Fortran array" ); | |||
| 99782 | } else { | |||
| 99783 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 99784 | ||||
| 99785 | CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a" ); } else { | |||
| 99786 | /* Processing variable info */ | |||
| 99787 | /* Processing variable m */ | |||
| 99788 | m = shape(a,0)a_Dims[0]; | |||
| 99789 | /* Processing variable n */ | |||
| 99790 | n = shape(a,1)a_Dims[1]; | |||
| 99791 | /* Processing variable lda */ | |||
| 99792 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 99793 | /* Processing variable tau */ | |||
| 99794 | tau_Dims[0]=m; | |||
| 99795 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 99796 | capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 99797 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 99798 | if (!PyErr_Occurred()) | |||
| 99799 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dtzrzf to C/Fortran array" ); | |||
| 99800 | } else { | |||
| 99801 | tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 99802 | ||||
| 99803 | /* Processing variable lwork */ | |||
| 99804 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(m,1)((m > 1) ? (m) : (1)); else | |||
| 99805 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dtzrzf() 1st keyword (lwork) can't be converted to int"); | |||
| 99806 | if (f2py_success) { | |||
| 99807 | CHECKSCALAR(lwork>=m,"lwork>=m","1st keyword lwork","dtzrzf:lwork=%d",lwork)if (!(lwork>=m)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dtzrzf:lwork=%d", "(""lwork>=m"") failed for ""1st keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 99808 | /* Processing variable work */ | |||
| 99809 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 99810 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 99811 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 99812 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 99813 | if (!PyErr_Occurred()) | |||
| 99814 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dtzrzf to C/Fortran array" ); | |||
| 99815 | } else { | |||
| 99816 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 99817 | ||||
| 99818 | /*end of frompyobj*/ | |||
| 99819 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99820 | f2py_start_call_clock(); | |||
| 99821 | #endif | |||
| 99822 | /*callfortranroutine*/ | |||
| 99823 | (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ; | |||
| 99824 | /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/ | |||
| 99825 | if (PyErr_Occurred()) | |||
| 99826 | f2py_success = 0; | |||
| 99827 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99828 | f2py_stop_call_clock(); | |||
| 99829 | #endif | |||
| 99830 | /*end of callfortranroutine*/ | |||
| 99831 | if (f2py_success) { | |||
| 99832 | /*pyobjfrom*/ | |||
| 99833 | /*end of pyobjfrom*/ | |||
| 99834 | CFUNCSMESS("Building return value.\n"); | |||
| 99835 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info); | |||
| 99836 | /*closepyobjfrom*/ | |||
| 99837 | /*end of closepyobjfrom*/ | |||
| 99838 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 99839 | /*cleanupfrompyobj*/ | |||
| 99840 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 99841 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 99842 | /* End of cleaning variable work */ | |||
| 99843 | } /*CHECKSCALAR(lwork>=m)*/ | |||
| 99844 | } /*if (f2py_success) of lwork*/ | |||
| 99845 | /* End of cleaning variable lwork */ | |||
| 99846 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 99847 | /* End of cleaning variable tau */ | |||
| 99848 | /* End of cleaning variable lda */ | |||
| 99849 | /* End of cleaning variable n */ | |||
| 99850 | /* End of cleaning variable m */ | |||
| 99851 | /* End of cleaning variable info */ | |||
| 99852 | } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/ | |||
| 99853 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 99854 | /* End of cleaning variable a */ | |||
| 99855 | /*end of cleanupfrompyobj*/ | |||
| 99856 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 99857 | /*routdebugfailure*/ | |||
| 99858 | } else { | |||
| 99859 | /*routdebugleave*/ | |||
| 99860 | } | |||
| 99861 | CFUNCSMESS("Freeing memory.\n"); | |||
| 99862 | /*freemem*/ | |||
| 99863 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99864 | f2py_stop_clock(); | |||
| 99865 | #endif | |||
| 99866 | return capi_buildvalue; | |||
| 99867 | } | |||
| 99868 | /******************************* end of dtzrzf *******************************/ | |||
| 99869 | ||||
| 99870 | /*********************************** ctzrzf ***********************************/ | |||
| 99871 | static char doc_f2py_rout__flapack_ctzrzf[] = "\ | |||
| 99872 | rz,tau,info = ctzrzf(a,[lwork,overwrite_a])\n\nWrapper for ``ctzrzf``.\ | |||
| 99873 | \n\nParameters\n----------\n" | |||
| 99874 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 99875 | "\nOther Parameters\n----------------\n" | |||
| 99876 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 99877 | "lwork : input int, optional\n Default: MAX(m,1)\n" | |||
| 99878 | "\nReturns\n-------\n" | |||
| 99879 | "rz : rank-2 array('F') with bounds (m,n) and a storage\n" | |||
| 99880 | "tau : rank-1 array('F') with bounds (m)\n" | |||
| 99881 | "info : int"; | |||
| 99882 | /* extern void F_FUNC(ctzrzf,CTZRZF)(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 99883 | static PyObject *f2py_rout__flapack_ctzrzf(const PyObject *capi_self, | |||
| 99884 | PyObject *capi_args, | |||
| 99885 | PyObject *capi_keywds, | |||
| 99886 | void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 99887 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 99888 | volatile int f2py_success = 1; | |||
| 99889 | /*decl*/ | |||
| 99890 | ||||
| 99891 | int m = 0; | |||
| 99892 | int n = 0; | |||
| 99893 | complex_float *a = NULL((void*)0); | |||
| 99894 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 99895 | const int a_Rank = 2; | |||
| 99896 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 99897 | int capi_a_intent = 0; | |||
| 99898 | int capi_overwrite_a = 0; | |||
| 99899 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 99900 | int lda = 0; | |||
| 99901 | complex_float *tau = NULL((void*)0); | |||
| 99902 | npy_intp tau_Dims[1] = {-1}; | |||
| 99903 | const int tau_Rank = 1; | |||
| 99904 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 99905 | int capi_tau_intent = 0; | |||
| 99906 | complex_float *work = NULL((void*)0); | |||
| 99907 | npy_intp work_Dims[1] = {-1}; | |||
| 99908 | const int work_Rank = 1; | |||
| 99909 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 99910 | int capi_work_intent = 0; | |||
| 99911 | int lwork = 0; | |||
| 99912 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 99913 | int info = 0; | |||
| 99914 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 99915 | ||||
| 99916 | /*routdebugenter*/ | |||
| 99917 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99918 | f2py_start_clock(); | |||
| 99919 | #endif | |||
| 99920 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 99921 | "O|Oi:_flapack.ctzrzf",\ | |||
| 99922 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 99923 | return NULL((void*)0); | |||
| 99924 | /*frompyobj*/ | |||
| 99925 | /* Processing variable a */ | |||
| 99926 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 99927 | ; | |||
| 99928 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 99929 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 99930 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 99931 | if (!PyErr_Occurred()) | |||
| 99932 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ctzrzf to C/Fortran array" ); | |||
| 99933 | } else { | |||
| 99934 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 99935 | ||||
| 99936 | CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a" ); } else { | |||
| 99937 | /* Processing variable info */ | |||
| 99938 | /* Processing variable m */ | |||
| 99939 | m = shape(a,0)a_Dims[0]; | |||
| 99940 | /* Processing variable n */ | |||
| 99941 | n = shape(a,1)a_Dims[1]; | |||
| 99942 | /* Processing variable lda */ | |||
| 99943 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 99944 | /* Processing variable tau */ | |||
| 99945 | tau_Dims[0]=m; | |||
| 99946 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 99947 | capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 99948 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 99949 | if (!PyErr_Occurred()) | |||
| 99950 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.ctzrzf to C/Fortran array" ); | |||
| 99951 | } else { | |||
| 99952 | tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 99953 | ||||
| 99954 | /* Processing variable lwork */ | |||
| 99955 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(m,1)((m > 1) ? (m) : (1)); else | |||
| 99956 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ctzrzf() 1st keyword (lwork) can't be converted to int"); | |||
| 99957 | if (f2py_success) { | |||
| 99958 | CHECKSCALAR(lwork>=m,"lwork>=m","1st keyword lwork","ctzrzf:lwork=%d",lwork)if (!(lwork>=m)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ctzrzf:lwork=%d", "(""lwork>=m"") failed for ""1st keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 99959 | /* Processing variable work */ | |||
| 99960 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 99961 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 99962 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 99963 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 99964 | if (!PyErr_Occurred()) | |||
| 99965 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ctzrzf to C/Fortran array" ); | |||
| 99966 | } else { | |||
| 99967 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 99968 | ||||
| 99969 | /*end of frompyobj*/ | |||
| 99970 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99971 | f2py_start_call_clock(); | |||
| 99972 | #endif | |||
| 99973 | /*callfortranroutine*/ | |||
| 99974 | (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ; | |||
| 99975 | /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/ | |||
| 99976 | if (PyErr_Occurred()) | |||
| 99977 | f2py_success = 0; | |||
| 99978 | #ifdef F2PY_REPORT_ATEXIT | |||
| 99979 | f2py_stop_call_clock(); | |||
| 99980 | #endif | |||
| 99981 | /*end of callfortranroutine*/ | |||
| 99982 | if (f2py_success) { | |||
| 99983 | /*pyobjfrom*/ | |||
| 99984 | /*end of pyobjfrom*/ | |||
| 99985 | CFUNCSMESS("Building return value.\n"); | |||
| 99986 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info); | |||
| 99987 | /*closepyobjfrom*/ | |||
| 99988 | /*end of closepyobjfrom*/ | |||
| 99989 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 99990 | /*cleanupfrompyobj*/ | |||
| 99991 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 99992 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 99993 | /* End of cleaning variable work */ | |||
| 99994 | } /*CHECKSCALAR(lwork>=m)*/ | |||
| 99995 | } /*if (f2py_success) of lwork*/ | |||
| 99996 | /* End of cleaning variable lwork */ | |||
| 99997 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 99998 | /* End of cleaning variable tau */ | |||
| 99999 | /* End of cleaning variable lda */ | |||
| 100000 | /* End of cleaning variable n */ | |||
| 100001 | /* End of cleaning variable m */ | |||
| 100002 | /* End of cleaning variable info */ | |||
| 100003 | } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/ | |||
| 100004 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 100005 | /* End of cleaning variable a */ | |||
| 100006 | /*end of cleanupfrompyobj*/ | |||
| 100007 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 100008 | /*routdebugfailure*/ | |||
| 100009 | } else { | |||
| 100010 | /*routdebugleave*/ | |||
| 100011 | } | |||
| 100012 | CFUNCSMESS("Freeing memory.\n"); | |||
| 100013 | /*freemem*/ | |||
| 100014 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100015 | f2py_stop_clock(); | |||
| 100016 | #endif | |||
| 100017 | return capi_buildvalue; | |||
| 100018 | } | |||
| 100019 | /******************************* end of ctzrzf *******************************/ | |||
| 100020 | ||||
| 100021 | /*********************************** ztzrzf ***********************************/ | |||
| 100022 | static char doc_f2py_rout__flapack_ztzrzf[] = "\ | |||
| 100023 | rz,tau,info = ztzrzf(a,[lwork,overwrite_a])\n\nWrapper for ``ztzrzf``.\ | |||
| 100024 | \n\nParameters\n----------\n" | |||
| 100025 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 100026 | "\nOther Parameters\n----------------\n" | |||
| 100027 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 100028 | "lwork : input int, optional\n Default: MAX(m,1)\n" | |||
| 100029 | "\nReturns\n-------\n" | |||
| 100030 | "rz : rank-2 array('D') with bounds (m,n) and a storage\n" | |||
| 100031 | "tau : rank-1 array('D') with bounds (m)\n" | |||
| 100032 | "info : int"; | |||
| 100033 | /* extern void F_FUNC(ztzrzf,ZTZRZF)(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 100034 | static PyObject *f2py_rout__flapack_ztzrzf(const PyObject *capi_self, | |||
| 100035 | PyObject *capi_args, | |||
| 100036 | PyObject *capi_keywds, | |||
| 100037 | void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 100038 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 100039 | volatile int f2py_success = 1; | |||
| 100040 | /*decl*/ | |||
| 100041 | ||||
| 100042 | int m = 0; | |||
| 100043 | int n = 0; | |||
| 100044 | complex_double *a = NULL((void*)0); | |||
| 100045 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 100046 | const int a_Rank = 2; | |||
| 100047 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 100048 | int capi_a_intent = 0; | |||
| 100049 | int capi_overwrite_a = 0; | |||
| 100050 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 100051 | int lda = 0; | |||
| 100052 | complex_double *tau = NULL((void*)0); | |||
| 100053 | npy_intp tau_Dims[1] = {-1}; | |||
| 100054 | const int tau_Rank = 1; | |||
| 100055 | PyArrayObject *capi_tau_tmp = NULL((void*)0); | |||
| 100056 | int capi_tau_intent = 0; | |||
| 100057 | complex_double *work = NULL((void*)0); | |||
| 100058 | npy_intp work_Dims[1] = {-1}; | |||
| 100059 | const int work_Rank = 1; | |||
| 100060 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 100061 | int capi_work_intent = 0; | |||
| 100062 | int lwork = 0; | |||
| 100063 | PyObject *lwork_capi = Py_None(&_Py_NoneStruct); | |||
| 100064 | int info = 0; | |||
| 100065 | static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)}; | |||
| 100066 | ||||
| 100067 | /*routdebugenter*/ | |||
| 100068 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100069 | f2py_start_clock(); | |||
| 100070 | #endif | |||
| 100071 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 100072 | "O|Oi:_flapack.ztzrzf",\ | |||
| 100073 | capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a)) | |||
| 100074 | return NULL((void*)0); | |||
| 100075 | /*frompyobj*/ | |||
| 100076 | /* Processing variable a */ | |||
| 100077 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 100078 | ; | |||
| 100079 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 100080 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 100081 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 100082 | if (!PyErr_Occurred()) | |||
| 100083 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ztzrzf to C/Fortran array" ); | |||
| 100084 | } else { | |||
| 100085 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 100086 | ||||
| 100087 | CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error ,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a" ); } else { | |||
| 100088 | /* Processing variable info */ | |||
| 100089 | /* Processing variable m */ | |||
| 100090 | m = shape(a,0)a_Dims[0]; | |||
| 100091 | /* Processing variable n */ | |||
| 100092 | n = shape(a,1)a_Dims[1]; | |||
| 100093 | /* Processing variable lda */ | |||
| 100094 | lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1)); | |||
| 100095 | /* Processing variable tau */ | |||
| 100096 | tau_Dims[0]=m; | |||
| 100097 | capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 100098 | capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct)); | |||
| 100099 | if (capi_tau_tmp == NULL((void*)0)) { | |||
| 100100 | if (!PyErr_Occurred()) | |||
| 100101 | PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.ztzrzf to C/Fortran array" ); | |||
| 100102 | } else { | |||
| 100103 | tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data)); | |||
| 100104 | ||||
| 100105 | /* Processing variable lwork */ | |||
| 100106 | if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(m,1)((m > 1) ? (m) : (1)); else | |||
| 100107 | f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ztzrzf() 1st keyword (lwork) can't be converted to int"); | |||
| 100108 | if (f2py_success) { | |||
| 100109 | CHECKSCALAR(lwork>=m,"lwork>=m","1st keyword lwork","ztzrzf:lwork=%d",lwork)if (!(lwork>=m)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""ztzrzf:lwork=%d", "(""lwork>=m"") failed for ""1st keyword lwork" , lwork); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 100110 | /* Processing variable work */ | |||
| 100111 | work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1)); | |||
| 100112 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 100113 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 100114 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 100115 | if (!PyErr_Occurred()) | |||
| 100116 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ztzrzf to C/Fortran array" ); | |||
| 100117 | } else { | |||
| 100118 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 100119 | ||||
| 100120 | /*end of frompyobj*/ | |||
| 100121 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100122 | f2py_start_call_clock(); | |||
| 100123 | #endif | |||
| 100124 | /*callfortranroutine*/ | |||
| 100125 | (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ; | |||
| 100126 | /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/ | |||
| 100127 | if (PyErr_Occurred()) | |||
| 100128 | f2py_success = 0; | |||
| 100129 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100130 | f2py_stop_call_clock(); | |||
| 100131 | #endif | |||
| 100132 | /*end of callfortranroutine*/ | |||
| 100133 | if (f2py_success) { | |||
| 100134 | /*pyobjfrom*/ | |||
| 100135 | /*end of pyobjfrom*/ | |||
| 100136 | CFUNCSMESS("Building return value.\n"); | |||
| 100137 | capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info); | |||
| 100138 | /*closepyobjfrom*/ | |||
| 100139 | /*end of closepyobjfrom*/ | |||
| 100140 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 100141 | /*cleanupfrompyobj*/ | |||
| 100142 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 100143 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 100144 | /* End of cleaning variable work */ | |||
| 100145 | } /*CHECKSCALAR(lwork>=m)*/ | |||
| 100146 | } /*if (f2py_success) of lwork*/ | |||
| 100147 | /* End of cleaning variable lwork */ | |||
| 100148 | } /*if (capi_tau_tmp == NULL) ... else of tau*/ | |||
| 100149 | /* End of cleaning variable tau */ | |||
| 100150 | /* End of cleaning variable lda */ | |||
| 100151 | /* End of cleaning variable n */ | |||
| 100152 | /* End of cleaning variable m */ | |||
| 100153 | /* End of cleaning variable info */ | |||
| 100154 | } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/ | |||
| 100155 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 100156 | /* End of cleaning variable a */ | |||
| 100157 | /*end of cleanupfrompyobj*/ | |||
| 100158 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 100159 | /*routdebugfailure*/ | |||
| 100160 | } else { | |||
| 100161 | /*routdebugleave*/ | |||
| 100162 | } | |||
| 100163 | CFUNCSMESS("Freeing memory.\n"); | |||
| 100164 | /*freemem*/ | |||
| 100165 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100166 | f2py_stop_clock(); | |||
| 100167 | #endif | |||
| 100168 | return capi_buildvalue; | |||
| 100169 | } | |||
| 100170 | /******************************* end of ztzrzf *******************************/ | |||
| 100171 | ||||
| 100172 | /******************************** stzrzf_lwork ********************************/ | |||
| 100173 | static char doc_f2py_rout__flapack_stzrzf_lwork[] = "\ | |||
| 100174 | work,info = stzrzf_lwork(m,n)\n\nWrapper for ``stzrzf_lwork``.\ | |||
| 100175 | \n\nParameters\n----------\n" | |||
| 100176 | "m : input int\n" | |||
| 100177 | "n : input int\n" | |||
| 100178 | "\nReturns\n-------\n" | |||
| 100179 | "work : float\n" | |||
| 100180 | "info : int"; | |||
| 100181 | /* extern void F_FUNC(stzrzf ,STZRZF )(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */ | |||
| 100182 | static PyObject *f2py_rout__flapack_stzrzf_lwork(const PyObject *capi_self, | |||
| 100183 | PyObject *capi_args, | |||
| 100184 | PyObject *capi_keywds, | |||
| 100185 | void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) { | |||
| 100186 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 100187 | volatile int f2py_success = 1; | |||
| 100188 | /*decl*/ | |||
| 100189 | ||||
| 100190 | int m = 0; | |||
| 100191 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 100192 | int n = 0; | |||
| 100193 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 100194 | float a = 0; | |||
| 100195 | int lda = 0; | |||
| 100196 | float tau = 0; | |||
| 100197 | float work = 0; | |||
| 100198 | int lwork = 0; | |||
| 100199 | int info = 0; | |||
| 100200 | static char *capi_kwlist[] = {"m","n",NULL((void*)0)}; | |||
| 100201 | ||||
| 100202 | /*routdebugenter*/ | |||
| 100203 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100204 | f2py_start_clock(); | |||
| 100205 | #endif | |||
| 100206 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 100207 | "OO:_flapack.stzrzf_lwork",\ | |||
| 100208 | capi_kwlist,&m_capi,&n_capi)) | |||
| 100209 | return NULL((void*)0); | |||
| 100210 | /*frompyobj*/ | |||
| 100211 | /* Processing variable m */ | |||
| 100212 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.stzrzf_lwork() 1st argument (m) can't be converted to int"); | |||
| 100213 | if (f2py_success) { | |||
| 100214 | /* Processing variable n */ | |||
| 100215 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.stzrzf_lwork() 2nd argument (n) can't be converted to int"); | |||
| 100216 | if (f2py_success) { | |||
| 100217 | /* Processing variable a */ | |||
| 100218 | /* Processing variable tau */ | |||
| 100219 | /* Processing variable lwork */ | |||
| 100220 | lwork = -1; | |||
| 100221 | /* Processing variable work */ | |||
| 100222 | /* Processing variable info */ | |||
| 100223 | /* Processing variable lda */ | |||
| 100224 | lda = MAX(m,1)((m > 1) ? (m) : (1)); | |||
| 100225 | /*end of frompyobj*/ | |||
| 100226 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100227 | f2py_start_call_clock(); | |||
| 100228 | #endif | |||
| 100229 | /*callfortranroutine*/ | |||
| 100230 | (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ; | |||
| 100231 | /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/ | |||
| 100232 | if (PyErr_Occurred()) | |||
| 100233 | f2py_success = 0; | |||
| 100234 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100235 | f2py_stop_call_clock(); | |||
| 100236 | #endif | |||
| 100237 | /*end of callfortranroutine*/ | |||
| 100238 | if (f2py_success) { | |||
| 100239 | /*pyobjfrom*/ | |||
| 100240 | /*end of pyobjfrom*/ | |||
| 100241 | CFUNCSMESS("Building return value.\n"); | |||
| 100242 | capi_buildvalue = Py_BuildValue("fi",work,info); | |||
| 100243 | /*closepyobjfrom*/ | |||
| 100244 | /*end of closepyobjfrom*/ | |||
| 100245 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 100246 | /*cleanupfrompyobj*/ | |||
| 100247 | /* End of cleaning variable lda */ | |||
| 100248 | /* End of cleaning variable info */ | |||
| 100249 | /* End of cleaning variable work */ | |||
| 100250 | /* End of cleaning variable lwork */ | |||
| 100251 | /* End of cleaning variable tau */ | |||
| 100252 | /* End of cleaning variable a */ | |||
| 100253 | } /*if (f2py_success) of n*/ | |||
| 100254 | /* End of cleaning variable n */ | |||
| 100255 | } /*if (f2py_success) of m*/ | |||
| 100256 | /* End of cleaning variable m */ | |||
| 100257 | /*end of cleanupfrompyobj*/ | |||
| 100258 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 100259 | /*routdebugfailure*/ | |||
| 100260 | } else { | |||
| 100261 | /*routdebugleave*/ | |||
| 100262 | } | |||
| 100263 | CFUNCSMESS("Freeing memory.\n"); | |||
| 100264 | /*freemem*/ | |||
| 100265 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100266 | f2py_stop_clock(); | |||
| 100267 | #endif | |||
| 100268 | return capi_buildvalue; | |||
| 100269 | } | |||
| 100270 | /**************************** end of stzrzf_lwork ****************************/ | |||
| 100271 | ||||
| 100272 | /******************************** dtzrzf_lwork ********************************/ | |||
| 100273 | static char doc_f2py_rout__flapack_dtzrzf_lwork[] = "\ | |||
| 100274 | work,info = dtzrzf_lwork(m,n)\n\nWrapper for ``dtzrzf_lwork``.\ | |||
| 100275 | \n\nParameters\n----------\n" | |||
| 100276 | "m : input int\n" | |||
| 100277 | "n : input int\n" | |||
| 100278 | "\nReturns\n-------\n" | |||
| 100279 | "work : float\n" | |||
| 100280 | "info : int"; | |||
| 100281 | /* extern void F_FUNC(dtzrzf ,DTZRZF )(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */ | |||
| 100282 | static PyObject *f2py_rout__flapack_dtzrzf_lwork(const PyObject *capi_self, | |||
| 100283 | PyObject *capi_args, | |||
| 100284 | PyObject *capi_keywds, | |||
| 100285 | void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) { | |||
| 100286 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 100287 | volatile int f2py_success = 1; | |||
| 100288 | /*decl*/ | |||
| 100289 | ||||
| 100290 | int m = 0; | |||
| 100291 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 100292 | int n = 0; | |||
| 100293 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 100294 | double a = 0; | |||
| 100295 | int lda = 0; | |||
| 100296 | double tau = 0; | |||
| 100297 | double work = 0; | |||
| 100298 | int lwork = 0; | |||
| 100299 | int info = 0; | |||
| 100300 | static char *capi_kwlist[] = {"m","n",NULL((void*)0)}; | |||
| 100301 | ||||
| 100302 | /*routdebugenter*/ | |||
| 100303 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100304 | f2py_start_clock(); | |||
| 100305 | #endif | |||
| 100306 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 100307 | "OO:_flapack.dtzrzf_lwork",\ | |||
| 100308 | capi_kwlist,&m_capi,&n_capi)) | |||
| 100309 | return NULL((void*)0); | |||
| 100310 | /*frompyobj*/ | |||
| 100311 | /* Processing variable m */ | |||
| 100312 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dtzrzf_lwork() 1st argument (m) can't be converted to int"); | |||
| 100313 | if (f2py_success) { | |||
| 100314 | /* Processing variable n */ | |||
| 100315 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dtzrzf_lwork() 2nd argument (n) can't be converted to int"); | |||
| 100316 | if (f2py_success) { | |||
| 100317 | /* Processing variable a */ | |||
| 100318 | /* Processing variable tau */ | |||
| 100319 | /* Processing variable lwork */ | |||
| 100320 | lwork = -1; | |||
| 100321 | /* Processing variable work */ | |||
| 100322 | /* Processing variable info */ | |||
| 100323 | /* Processing variable lda */ | |||
| 100324 | lda = MAX(m,1)((m > 1) ? (m) : (1)); | |||
| 100325 | /*end of frompyobj*/ | |||
| 100326 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100327 | f2py_start_call_clock(); | |||
| 100328 | #endif | |||
| 100329 | /*callfortranroutine*/ | |||
| 100330 | (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ; | |||
| 100331 | /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/ | |||
| 100332 | if (PyErr_Occurred()) | |||
| 100333 | f2py_success = 0; | |||
| 100334 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100335 | f2py_stop_call_clock(); | |||
| 100336 | #endif | |||
| 100337 | /*end of callfortranroutine*/ | |||
| 100338 | if (f2py_success) { | |||
| 100339 | /*pyobjfrom*/ | |||
| 100340 | /*end of pyobjfrom*/ | |||
| 100341 | CFUNCSMESS("Building return value.\n"); | |||
| 100342 | capi_buildvalue = Py_BuildValue("di",work,info); | |||
| 100343 | /*closepyobjfrom*/ | |||
| 100344 | /*end of closepyobjfrom*/ | |||
| 100345 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 100346 | /*cleanupfrompyobj*/ | |||
| 100347 | /* End of cleaning variable lda */ | |||
| 100348 | /* End of cleaning variable info */ | |||
| 100349 | /* End of cleaning variable work */ | |||
| 100350 | /* End of cleaning variable lwork */ | |||
| 100351 | /* End of cleaning variable tau */ | |||
| 100352 | /* End of cleaning variable a */ | |||
| 100353 | } /*if (f2py_success) of n*/ | |||
| 100354 | /* End of cleaning variable n */ | |||
| 100355 | } /*if (f2py_success) of m*/ | |||
| 100356 | /* End of cleaning variable m */ | |||
| 100357 | /*end of cleanupfrompyobj*/ | |||
| 100358 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 100359 | /*routdebugfailure*/ | |||
| 100360 | } else { | |||
| 100361 | /*routdebugleave*/ | |||
| 100362 | } | |||
| 100363 | CFUNCSMESS("Freeing memory.\n"); | |||
| 100364 | /*freemem*/ | |||
| 100365 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100366 | f2py_stop_clock(); | |||
| 100367 | #endif | |||
| 100368 | return capi_buildvalue; | |||
| 100369 | } | |||
| 100370 | /**************************** end of dtzrzf_lwork ****************************/ | |||
| 100371 | ||||
| 100372 | /******************************** ctzrzf_lwork ********************************/ | |||
| 100373 | static char doc_f2py_rout__flapack_ctzrzf_lwork[] = "\ | |||
| 100374 | work,info = ctzrzf_lwork(m,n)\n\nWrapper for ``ctzrzf_lwork``.\ | |||
| 100375 | \n\nParameters\n----------\n" | |||
| 100376 | "m : input int\n" | |||
| 100377 | "n : input int\n" | |||
| 100378 | "\nReturns\n-------\n" | |||
| 100379 | "work : complex\n" | |||
| 100380 | "info : int"; | |||
| 100381 | /* extern void F_FUNC(ctzrzf ,CTZRZF )(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */ | |||
| 100382 | static PyObject *f2py_rout__flapack_ctzrzf_lwork(const PyObject *capi_self, | |||
| 100383 | PyObject *capi_args, | |||
| 100384 | PyObject *capi_keywds, | |||
| 100385 | void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 100386 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 100387 | volatile int f2py_success = 1; | |||
| 100388 | /*decl*/ | |||
| 100389 | ||||
| 100390 | int m = 0; | |||
| 100391 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 100392 | int n = 0; | |||
| 100393 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 100394 | complex_float a; | |||
| 100395 | int lda = 0; | |||
| 100396 | complex_float tau; | |||
| 100397 | complex_float work; | |||
| 100398 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 100399 | int lwork = 0; | |||
| 100400 | int info = 0; | |||
| 100401 | static char *capi_kwlist[] = {"m","n",NULL((void*)0)}; | |||
| 100402 | ||||
| 100403 | /*routdebugenter*/ | |||
| 100404 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100405 | f2py_start_clock(); | |||
| 100406 | #endif | |||
| 100407 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 100408 | "OO:_flapack.ctzrzf_lwork",\ | |||
| 100409 | capi_kwlist,&m_capi,&n_capi)) | |||
| 100410 | return NULL((void*)0); | |||
| 100411 | /*frompyobj*/ | |||
| 100412 | /* Processing variable m */ | |||
| 100413 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.ctzrzf_lwork() 1st argument (m) can't be converted to int"); | |||
| 100414 | if (f2py_success) { | |||
| 100415 | /* Processing variable n */ | |||
| 100416 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ctzrzf_lwork() 2nd argument (n) can't be converted to int"); | |||
| 100417 | if (f2py_success) { | |||
| 100418 | /* Processing variable a */ | |||
| 100419 | /* Processing variable tau */ | |||
| 100420 | /* Processing variable lwork */ | |||
| 100421 | lwork = -1; | |||
| 100422 | /* Processing variable work */ | |||
| 100423 | /* Processing variable info */ | |||
| 100424 | /* Processing variable lda */ | |||
| 100425 | lda = MAX(m,1)((m > 1) ? (m) : (1)); | |||
| 100426 | /*end of frompyobj*/ | |||
| 100427 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100428 | f2py_start_call_clock(); | |||
| 100429 | #endif | |||
| 100430 | /*callfortranroutine*/ | |||
| 100431 | (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ; | |||
| 100432 | /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/ | |||
| 100433 | if (PyErr_Occurred()) | |||
| 100434 | f2py_success = 0; | |||
| 100435 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100436 | f2py_stop_call_clock(); | |||
| 100437 | #endif | |||
| 100438 | /*end of callfortranroutine*/ | |||
| 100439 | if (f2py_success) { | |||
| 100440 | /*pyobjfrom*/ | |||
| 100441 | work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 100442 | /*end of pyobjfrom*/ | |||
| 100443 | CFUNCSMESS("Building return value.\n"); | |||
| 100444 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 100445 | /*closepyobjfrom*/ | |||
| 100446 | /*end of closepyobjfrom*/ | |||
| 100447 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 100448 | /*cleanupfrompyobj*/ | |||
| 100449 | /* End of cleaning variable lda */ | |||
| 100450 | /* End of cleaning variable info */ | |||
| 100451 | /* End of cleaning variable work */ | |||
| 100452 | /* End of cleaning variable lwork */ | |||
| 100453 | /* End of cleaning variable tau */ | |||
| 100454 | /* End of cleaning variable a */ | |||
| 100455 | } /*if (f2py_success) of n*/ | |||
| 100456 | /* End of cleaning variable n */ | |||
| 100457 | } /*if (f2py_success) of m*/ | |||
| 100458 | /* End of cleaning variable m */ | |||
| 100459 | /*end of cleanupfrompyobj*/ | |||
| 100460 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 100461 | /*routdebugfailure*/ | |||
| 100462 | } else { | |||
| 100463 | /*routdebugleave*/ | |||
| 100464 | } | |||
| 100465 | CFUNCSMESS("Freeing memory.\n"); | |||
| 100466 | /*freemem*/ | |||
| 100467 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100468 | f2py_stop_clock(); | |||
| 100469 | #endif | |||
| 100470 | return capi_buildvalue; | |||
| 100471 | } | |||
| 100472 | /**************************** end of ctzrzf_lwork ****************************/ | |||
| 100473 | ||||
| 100474 | /******************************** ztzrzf_lwork ********************************/ | |||
| 100475 | static char doc_f2py_rout__flapack_ztzrzf_lwork[] = "\ | |||
| 100476 | work,info = ztzrzf_lwork(m,n)\n\nWrapper for ``ztzrzf_lwork``.\ | |||
| 100477 | \n\nParameters\n----------\n" | |||
| 100478 | "m : input int\n" | |||
| 100479 | "n : input int\n" | |||
| 100480 | "\nReturns\n-------\n" | |||
| 100481 | "work : complex\n" | |||
| 100482 | "info : int"; | |||
| 100483 | /* extern void F_FUNC(ztzrzf ,ZTZRZF )(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */ | |||
| 100484 | static PyObject *f2py_rout__flapack_ztzrzf_lwork(const PyObject *capi_self, | |||
| 100485 | PyObject *capi_args, | |||
| 100486 | PyObject *capi_keywds, | |||
| 100487 | void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 100488 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 100489 | volatile int f2py_success = 1; | |||
| 100490 | /*decl*/ | |||
| 100491 | ||||
| 100492 | int m = 0; | |||
| 100493 | PyObject *m_capi = Py_None(&_Py_NoneStruct); | |||
| 100494 | int n = 0; | |||
| 100495 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 100496 | complex_double a; | |||
| 100497 | int lda = 0; | |||
| 100498 | complex_double tau; | |||
| 100499 | complex_double work; | |||
| 100500 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 100501 | int lwork = 0; | |||
| 100502 | int info = 0; | |||
| 100503 | static char *capi_kwlist[] = {"m","n",NULL((void*)0)}; | |||
| 100504 | ||||
| 100505 | /*routdebugenter*/ | |||
| 100506 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100507 | f2py_start_clock(); | |||
| 100508 | #endif | |||
| 100509 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 100510 | "OO:_flapack.ztzrzf_lwork",\ | |||
| 100511 | capi_kwlist,&m_capi,&n_capi)) | |||
| 100512 | return NULL((void*)0); | |||
| 100513 | /*frompyobj*/ | |||
| 100514 | /* Processing variable m */ | |||
| 100515 | f2py_success = int_from_pyobj(&m,m_capi,"_flapack.ztzrzf_lwork() 1st argument (m) can't be converted to int"); | |||
| 100516 | if (f2py_success) { | |||
| 100517 | /* Processing variable n */ | |||
| 100518 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ztzrzf_lwork() 2nd argument (n) can't be converted to int"); | |||
| 100519 | if (f2py_success) { | |||
| 100520 | /* Processing variable a */ | |||
| 100521 | /* Processing variable tau */ | |||
| 100522 | /* Processing variable lwork */ | |||
| 100523 | lwork = -1; | |||
| 100524 | /* Processing variable work */ | |||
| 100525 | /* Processing variable info */ | |||
| 100526 | /* Processing variable lda */ | |||
| 100527 | lda = MAX(m,1)((m > 1) ? (m) : (1)); | |||
| 100528 | /*end of frompyobj*/ | |||
| 100529 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100530 | f2py_start_call_clock(); | |||
| 100531 | #endif | |||
| 100532 | /*callfortranroutine*/ | |||
| 100533 | (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ; | |||
| 100534 | /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/ | |||
| 100535 | if (PyErr_Occurred()) | |||
| 100536 | f2py_success = 0; | |||
| 100537 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100538 | f2py_stop_call_clock(); | |||
| 100539 | #endif | |||
| 100540 | /*end of callfortranroutine*/ | |||
| 100541 | if (f2py_success) { | |||
| 100542 | /*pyobjfrom*/ | |||
| 100543 | work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i)); | |||
| 100544 | /*end of pyobjfrom*/ | |||
| 100545 | CFUNCSMESS("Building return value.\n"); | |||
| 100546 | capi_buildvalue = Py_BuildValue("Ni",work_capi,info); | |||
| 100547 | /*closepyobjfrom*/ | |||
| 100548 | /*end of closepyobjfrom*/ | |||
| 100549 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 100550 | /*cleanupfrompyobj*/ | |||
| 100551 | /* End of cleaning variable lda */ | |||
| 100552 | /* End of cleaning variable info */ | |||
| 100553 | /* End of cleaning variable work */ | |||
| 100554 | /* End of cleaning variable lwork */ | |||
| 100555 | /* End of cleaning variable tau */ | |||
| 100556 | /* End of cleaning variable a */ | |||
| 100557 | } /*if (f2py_success) of n*/ | |||
| 100558 | /* End of cleaning variable n */ | |||
| 100559 | } /*if (f2py_success) of m*/ | |||
| 100560 | /* End of cleaning variable m */ | |||
| 100561 | /*end of cleanupfrompyobj*/ | |||
| 100562 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 100563 | /*routdebugfailure*/ | |||
| 100564 | } else { | |||
| 100565 | /*routdebugleave*/ | |||
| 100566 | } | |||
| 100567 | CFUNCSMESS("Freeing memory.\n"); | |||
| 100568 | /*freemem*/ | |||
| 100569 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100570 | f2py_stop_clock(); | |||
| 100571 | #endif | |||
| 100572 | return capi_buildvalue; | |||
| 100573 | } | |||
| 100574 | /**************************** end of ztzrzf_lwork ****************************/ | |||
| 100575 | ||||
| 100576 | /*********************************** slasd4 ***********************************/ | |||
| 100577 | static char doc_f2py_rout__flapack_slasd4[] = "\ | |||
| 100578 | delta,sigma,work,info = slasd4(i,d,z,[rho])\n\nWrapper for ``slasd4``.\ | |||
| 100579 | \n\nParameters\n----------\n" | |||
| 100580 | "i : input int\n" | |||
| 100581 | "d : input rank-1 array('f') with bounds (n)\n" | |||
| 100582 | "z : input rank-1 array('f') with bounds (n)\n" | |||
| 100583 | "\nOther Parameters\n----------------\n" | |||
| 100584 | "rho : input float, optional\n Default: 1.0\n" | |||
| 100585 | "\nReturns\n-------\n" | |||
| 100586 | "delta : rank-1 array('f') with bounds (n)\n" | |||
| 100587 | "sigma : float\n" | |||
| 100588 | "work : rank-1 array('f') with bounds (n)\n" | |||
| 100589 | "info : int"; | |||
| 100590 | /* extern void F_FUNC(slasd4,SLASD4)(F_INT*, F_INT*, float*, float*, float*, float*, float*, float*, F_INT* ); */ | |||
| 100591 | static PyObject *f2py_rout__flapack_slasd4(const PyObject *capi_self, | |||
| 100592 | PyObject *capi_args, | |||
| 100593 | PyObject *capi_keywds, | |||
| 100594 | void (*f2py_func)(F_INTint*, F_INTint*, float*, float*, float*, float*, float*, float*, F_INTint* )) { | |||
| 100595 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 100596 | volatile int f2py_success = 1; | |||
| 100597 | /*decl*/ | |||
| 100598 | ||||
| 100599 | int n = 0; | |||
| 100600 | int i = 0; | |||
| 100601 | PyObject *i_capi = Py_None(&_Py_NoneStruct); | |||
| 100602 | float *d = NULL((void*)0); | |||
| 100603 | npy_intp d_Dims[1] = {-1}; | |||
| 100604 | const int d_Rank = 1; | |||
| 100605 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 100606 | int capi_d_intent = 0; | |||
| 100607 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 100608 | float *z = NULL((void*)0); | |||
| 100609 | npy_intp z_Dims[1] = {-1}; | |||
| 100610 | const int z_Rank = 1; | |||
| 100611 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 100612 | int capi_z_intent = 0; | |||
| 100613 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 100614 | float *delta = NULL((void*)0); | |||
| 100615 | npy_intp delta_Dims[1] = {-1}; | |||
| 100616 | const int delta_Rank = 1; | |||
| 100617 | PyArrayObject *capi_delta_tmp = NULL((void*)0); | |||
| 100618 | int capi_delta_intent = 0; | |||
| 100619 | float rho = 0; | |||
| 100620 | PyObject *rho_capi = Py_None(&_Py_NoneStruct); | |||
| 100621 | float sigma = 0; | |||
| 100622 | float *work = NULL((void*)0); | |||
| 100623 | npy_intp work_Dims[1] = {-1}; | |||
| 100624 | const int work_Rank = 1; | |||
| 100625 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 100626 | int capi_work_intent = 0; | |||
| 100627 | int info = 0; | |||
| 100628 | static char *capi_kwlist[] = {"i","d","z","rho",NULL((void*)0)}; | |||
| 100629 | ||||
| 100630 | /*routdebugenter*/ | |||
| 100631 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100632 | f2py_start_clock(); | |||
| 100633 | #endif | |||
| 100634 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 100635 | "OOO|O:_flapack.slasd4",\ | |||
| 100636 | capi_kwlist,&i_capi,&d_capi,&z_capi,&rho_capi)) | |||
| 100637 | return NULL((void*)0); | |||
| 100638 | /*frompyobj*/ | |||
| 100639 | /* Processing variable d */ | |||
| 100640 | ; | |||
| 100641 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 100642 | capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 100643 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 100644 | if (!PyErr_Occurred()) | |||
| 100645 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.slasd4 to C/Fortran array" ); | |||
| 100646 | } else { | |||
| 100647 | d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 100648 | ||||
| 100649 | /* Processing variable sigma */ | |||
| 100650 | /* Processing variable rho */ | |||
| 100651 | if (rho_capi == Py_None(&_Py_NoneStruct)) rho = 1.0; else | |||
| 100652 | f2py_success = float_from_pyobj(&rho,rho_capi,"_flapack.slasd4() 1st keyword (rho) can't be converted to float"); | |||
| 100653 | if (f2py_success) { | |||
| 100654 | /* Processing variable info */ | |||
| 100655 | /* Processing variable n */ | |||
| 100656 | n = shape(d,0)d_Dims[0]; | |||
| 100657 | /* Processing variable i */ | |||
| 100658 | f2py_success = int_from_pyobj(&i,i_capi,"_flapack.slasd4() 1st argument (i) can't be converted to int"); | |||
| 100659 | if (f2py_success) { | |||
| 100660 | CHECKSCALAR(i>=0 && i<=(shape(d,0)-1),"i>=0 && i<=(shape(d,0)-1)","1st argument i","slasd4:i=%d",i)if (!(i>=0 && i<=(d_Dims[0]-1))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""slasd4:i=%d", "(""i>=0 && i<=(shape(d,0)-1)" ") failed for ""1st argument i", i); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 100661 | /* Processing variable z */ | |||
| 100662 | z_Dims[0]=n; | |||
| 100663 | capi_z_intent |= F2PY_INTENT_IN1; | |||
| 100664 | capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 100665 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 100666 | if (!PyErr_Occurred()) | |||
| 100667 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `z' of _flapack.slasd4 to C/Fortran array" ); | |||
| 100668 | } else { | |||
| 100669 | z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 100670 | ||||
| 100671 | /* Processing variable delta */ | |||
| 100672 | delta_Dims[0]=n; | |||
| 100673 | capi_delta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 100674 | capi_delta_tmp = array_from_pyobj(NPY_FLOAT,delta_Dims,delta_Rank,capi_delta_intent,Py_None(&_Py_NoneStruct)); | |||
| 100675 | if (capi_delta_tmp == NULL((void*)0)) { | |||
| 100676 | if (!PyErr_Occurred()) | |||
| 100677 | PyErr_SetString(_flapack_error,"failed in converting hidden `delta' of _flapack.slasd4 to C/Fortran array" ); | |||
| 100678 | } else { | |||
| 100679 | delta = (float *)(PyArray_DATA(capi_delta_tmp)((void *)((PyArrayObject_fields *)(capi_delta_tmp))->data)); | |||
| 100680 | ||||
| 100681 | /* Processing variable work */ | |||
| 100682 | work_Dims[0]=n; | |||
| 100683 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 100684 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 100685 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 100686 | if (!PyErr_Occurred()) | |||
| 100687 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.slasd4 to C/Fortran array" ); | |||
| 100688 | } else { | |||
| 100689 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 100690 | ||||
| 100691 | /*end of frompyobj*/ | |||
| 100692 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100693 | f2py_start_call_clock(); | |||
| 100694 | #endif | |||
| 100695 | /*callfortranroutine*/ | |||
| 100696 | { i++; (*f2py_func)( &n, &i, d, z, delta, &rho, &sigma, work, &info); } ; | |||
| 100697 | /*(*f2py_func)(&n,&i,d,z,delta,&rho,&sigma,work,&info);*/ | |||
| 100698 | if (PyErr_Occurred()) | |||
| 100699 | f2py_success = 0; | |||
| 100700 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100701 | f2py_stop_call_clock(); | |||
| 100702 | #endif | |||
| 100703 | /*end of callfortranroutine*/ | |||
| 100704 | if (f2py_success) { | |||
| 100705 | /*pyobjfrom*/ | |||
| 100706 | /*end of pyobjfrom*/ | |||
| 100707 | CFUNCSMESS("Building return value.\n"); | |||
| 100708 | capi_buildvalue = Py_BuildValue("NfNi",capi_delta_tmp,sigma,capi_work_tmp,info); | |||
| 100709 | /*closepyobjfrom*/ | |||
| 100710 | /*end of closepyobjfrom*/ | |||
| 100711 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 100712 | /*cleanupfrompyobj*/ | |||
| 100713 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 100714 | /* End of cleaning variable work */ | |||
| 100715 | } /*if (capi_delta_tmp == NULL) ... else of delta*/ | |||
| 100716 | /* End of cleaning variable delta */ | |||
| 100717 | if((PyObject *)capi_z_tmp!=z_capi) { | |||
| 100718 | Py_XDECREF(capi_z_tmp)_Py_XDECREF(((PyObject*)(capi_z_tmp))); } | |||
| 100719 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 100720 | /* End of cleaning variable z */ | |||
| 100721 | } /*CHECKSCALAR(i>=0 && i<=(shape(d,0)-1))*/ | |||
| 100722 | } /*if (f2py_success) of i*/ | |||
| 100723 | /* End of cleaning variable i */ | |||
| 100724 | /* End of cleaning variable n */ | |||
| 100725 | /* End of cleaning variable info */ | |||
| 100726 | } /*if (f2py_success) of rho*/ | |||
| 100727 | /* End of cleaning variable rho */ | |||
| 100728 | /* End of cleaning variable sigma */ | |||
| 100729 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 100730 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 100731 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 100732 | /* End of cleaning variable d */ | |||
| 100733 | /*end of cleanupfrompyobj*/ | |||
| 100734 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 100735 | /*routdebugfailure*/ | |||
| 100736 | } else { | |||
| 100737 | /*routdebugleave*/ | |||
| 100738 | } | |||
| 100739 | CFUNCSMESS("Freeing memory.\n"); | |||
| 100740 | /*freemem*/ | |||
| 100741 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100742 | f2py_stop_clock(); | |||
| 100743 | #endif | |||
| 100744 | return capi_buildvalue; | |||
| 100745 | } | |||
| 100746 | /******************************* end of slasd4 *******************************/ | |||
| 100747 | ||||
| 100748 | /*********************************** dlasd4 ***********************************/ | |||
| 100749 | static char doc_f2py_rout__flapack_dlasd4[] = "\ | |||
| 100750 | delta,sigma,work,info = dlasd4(i,d,z,[rho])\n\nWrapper for ``dlasd4``.\ | |||
| 100751 | \n\nParameters\n----------\n" | |||
| 100752 | "i : input int\n" | |||
| 100753 | "d : input rank-1 array('d') with bounds (n)\n" | |||
| 100754 | "z : input rank-1 array('d') with bounds (n)\n" | |||
| 100755 | "\nOther Parameters\n----------------\n" | |||
| 100756 | "rho : input float, optional\n Default: 1.0\n" | |||
| 100757 | "\nReturns\n-------\n" | |||
| 100758 | "delta : rank-1 array('d') with bounds (n)\n" | |||
| 100759 | "sigma : float\n" | |||
| 100760 | "work : rank-1 array('d') with bounds (n)\n" | |||
| 100761 | "info : int"; | |||
| 100762 | /* extern void F_FUNC(dlasd4,DLASD4)(F_INT*, F_INT*, double*, double*, double*, double*, double*, double*, F_INT* ); */ | |||
| 100763 | static PyObject *f2py_rout__flapack_dlasd4(const PyObject *capi_self, | |||
| 100764 | PyObject *capi_args, | |||
| 100765 | PyObject *capi_keywds, | |||
| 100766 | void (*f2py_func)(F_INTint*, F_INTint*, double*, double*, double*, double*, double*, double*, F_INTint* )) { | |||
| 100767 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 100768 | volatile int f2py_success = 1; | |||
| 100769 | /*decl*/ | |||
| 100770 | ||||
| 100771 | int n = 0; | |||
| 100772 | int i = 0; | |||
| 100773 | PyObject *i_capi = Py_None(&_Py_NoneStruct); | |||
| 100774 | double *d = NULL((void*)0); | |||
| 100775 | npy_intp d_Dims[1] = {-1}; | |||
| 100776 | const int d_Rank = 1; | |||
| 100777 | PyArrayObject *capi_d_tmp = NULL((void*)0); | |||
| 100778 | int capi_d_intent = 0; | |||
| 100779 | PyObject *d_capi = Py_None(&_Py_NoneStruct); | |||
| 100780 | double *z = NULL((void*)0); | |||
| 100781 | npy_intp z_Dims[1] = {-1}; | |||
| 100782 | const int z_Rank = 1; | |||
| 100783 | PyArrayObject *capi_z_tmp = NULL((void*)0); | |||
| 100784 | int capi_z_intent = 0; | |||
| 100785 | PyObject *z_capi = Py_None(&_Py_NoneStruct); | |||
| 100786 | double *delta = NULL((void*)0); | |||
| 100787 | npy_intp delta_Dims[1] = {-1}; | |||
| 100788 | const int delta_Rank = 1; | |||
| 100789 | PyArrayObject *capi_delta_tmp = NULL((void*)0); | |||
| 100790 | int capi_delta_intent = 0; | |||
| 100791 | double rho = 0; | |||
| 100792 | PyObject *rho_capi = Py_None(&_Py_NoneStruct); | |||
| 100793 | double sigma = 0; | |||
| 100794 | double *work = NULL((void*)0); | |||
| 100795 | npy_intp work_Dims[1] = {-1}; | |||
| 100796 | const int work_Rank = 1; | |||
| 100797 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 100798 | int capi_work_intent = 0; | |||
| 100799 | int info = 0; | |||
| 100800 | static char *capi_kwlist[] = {"i","d","z","rho",NULL((void*)0)}; | |||
| 100801 | ||||
| 100802 | /*routdebugenter*/ | |||
| 100803 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100804 | f2py_start_clock(); | |||
| 100805 | #endif | |||
| 100806 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 100807 | "OOO|O:_flapack.dlasd4",\ | |||
| 100808 | capi_kwlist,&i_capi,&d_capi,&z_capi,&rho_capi)) | |||
| 100809 | return NULL((void*)0); | |||
| 100810 | /*frompyobj*/ | |||
| 100811 | /* Processing variable d */ | |||
| 100812 | ; | |||
| 100813 | capi_d_intent |= F2PY_INTENT_IN1; | |||
| 100814 | capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi); | |||
| 100815 | if (capi_d_tmp == NULL((void*)0)) { | |||
| 100816 | if (!PyErr_Occurred()) | |||
| 100817 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.dlasd4 to C/Fortran array" ); | |||
| 100818 | } else { | |||
| 100819 | d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data)); | |||
| 100820 | ||||
| 100821 | /* Processing variable sigma */ | |||
| 100822 | /* Processing variable rho */ | |||
| 100823 | if (rho_capi == Py_None(&_Py_NoneStruct)) rho = 1.0; else | |||
| 100824 | f2py_success = double_from_pyobj(&rho,rho_capi,"_flapack.dlasd4() 1st keyword (rho) can't be converted to double"); | |||
| 100825 | if (f2py_success) { | |||
| 100826 | /* Processing variable info */ | |||
| 100827 | /* Processing variable n */ | |||
| 100828 | n = shape(d,0)d_Dims[0]; | |||
| 100829 | /* Processing variable i */ | |||
| 100830 | f2py_success = int_from_pyobj(&i,i_capi,"_flapack.dlasd4() 1st argument (i) can't be converted to int"); | |||
| 100831 | if (f2py_success) { | |||
| 100832 | CHECKSCALAR(i>=0 && i<=(shape(d,0)-1),"i>=0 && i<=(shape(d,0)-1)","1st argument i","dlasd4:i=%d",i)if (!(i>=0 && i<=(d_Dims[0]-1))) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dlasd4:i=%d", "(""i>=0 && i<=(shape(d,0)-1)" ") failed for ""1st argument i", i); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 100833 | /* Processing variable z */ | |||
| 100834 | z_Dims[0]=n; | |||
| 100835 | capi_z_intent |= F2PY_INTENT_IN1; | |||
| 100836 | capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi); | |||
| 100837 | if (capi_z_tmp == NULL((void*)0)) { | |||
| 100838 | if (!PyErr_Occurred()) | |||
| 100839 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `z' of _flapack.dlasd4 to C/Fortran array" ); | |||
| 100840 | } else { | |||
| 100841 | z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data)); | |||
| 100842 | ||||
| 100843 | /* Processing variable delta */ | |||
| 100844 | delta_Dims[0]=n; | |||
| 100845 | capi_delta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 100846 | capi_delta_tmp = array_from_pyobj(NPY_DOUBLE,delta_Dims,delta_Rank,capi_delta_intent,Py_None(&_Py_NoneStruct)); | |||
| 100847 | if (capi_delta_tmp == NULL((void*)0)) { | |||
| 100848 | if (!PyErr_Occurred()) | |||
| 100849 | PyErr_SetString(_flapack_error,"failed in converting hidden `delta' of _flapack.dlasd4 to C/Fortran array" ); | |||
| 100850 | } else { | |||
| 100851 | delta = (double *)(PyArray_DATA(capi_delta_tmp)((void *)((PyArrayObject_fields *)(capi_delta_tmp))->data)); | |||
| 100852 | ||||
| 100853 | /* Processing variable work */ | |||
| 100854 | work_Dims[0]=n; | |||
| 100855 | capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8; | |||
| 100856 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 100857 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 100858 | if (!PyErr_Occurred()) | |||
| 100859 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dlasd4 to C/Fortran array" ); | |||
| 100860 | } else { | |||
| 100861 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 100862 | ||||
| 100863 | /*end of frompyobj*/ | |||
| 100864 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100865 | f2py_start_call_clock(); | |||
| 100866 | #endif | |||
| 100867 | /*callfortranroutine*/ | |||
| 100868 | { i++; (*f2py_func)( &n, &i, d, z, delta, &rho, &sigma, work, &info); } ; | |||
| 100869 | /*(*f2py_func)(&n,&i,d,z,delta,&rho,&sigma,work,&info);*/ | |||
| 100870 | if (PyErr_Occurred()) | |||
| 100871 | f2py_success = 0; | |||
| 100872 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100873 | f2py_stop_call_clock(); | |||
| 100874 | #endif | |||
| 100875 | /*end of callfortranroutine*/ | |||
| 100876 | if (f2py_success) { | |||
| 100877 | /*pyobjfrom*/ | |||
| 100878 | /*end of pyobjfrom*/ | |||
| 100879 | CFUNCSMESS("Building return value.\n"); | |||
| 100880 | capi_buildvalue = Py_BuildValue("NdNi",capi_delta_tmp,sigma,capi_work_tmp,info); | |||
| 100881 | /*closepyobjfrom*/ | |||
| 100882 | /*end of closepyobjfrom*/ | |||
| 100883 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 100884 | /*cleanupfrompyobj*/ | |||
| 100885 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 100886 | /* End of cleaning variable work */ | |||
| 100887 | } /*if (capi_delta_tmp == NULL) ... else of delta*/ | |||
| 100888 | /* End of cleaning variable delta */ | |||
| 100889 | if((PyObject *)capi_z_tmp!=z_capi) { | |||
| 100890 | Py_XDECREF(capi_z_tmp)_Py_XDECREF(((PyObject*)(capi_z_tmp))); } | |||
| 100891 | } /*if (capi_z_tmp == NULL) ... else of z*/ | |||
| 100892 | /* End of cleaning variable z */ | |||
| 100893 | } /*CHECKSCALAR(i>=0 && i<=(shape(d,0)-1))*/ | |||
| 100894 | } /*if (f2py_success) of i*/ | |||
| 100895 | /* End of cleaning variable i */ | |||
| 100896 | /* End of cleaning variable n */ | |||
| 100897 | /* End of cleaning variable info */ | |||
| 100898 | } /*if (f2py_success) of rho*/ | |||
| 100899 | /* End of cleaning variable rho */ | |||
| 100900 | /* End of cleaning variable sigma */ | |||
| 100901 | if((PyObject *)capi_d_tmp!=d_capi) { | |||
| 100902 | Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); } | |||
| 100903 | } /*if (capi_d_tmp == NULL) ... else of d*/ | |||
| 100904 | /* End of cleaning variable d */ | |||
| 100905 | /*end of cleanupfrompyobj*/ | |||
| 100906 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 100907 | /*routdebugfailure*/ | |||
| 100908 | } else { | |||
| 100909 | /*routdebugleave*/ | |||
| 100910 | } | |||
| 100911 | CFUNCSMESS("Freeing memory.\n"); | |||
| 100912 | /*freemem*/ | |||
| 100913 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100914 | f2py_stop_clock(); | |||
| 100915 | #endif | |||
| 100916 | return capi_buildvalue; | |||
| 100917 | } | |||
| 100918 | /******************************* end of dlasd4 *******************************/ | |||
| 100919 | ||||
| 100920 | /*********************************** slauum ***********************************/ | |||
| 100921 | static char doc_f2py_rout__flapack_slauum[] = "\ | |||
| 100922 | a,info = slauum(c,[lower,overwrite_c])\n\nWrapper for ``slauum``.\ | |||
| 100923 | \n\nParameters\n----------\n" | |||
| 100924 | "c : input rank-2 array('f') with bounds (n,n)\n" | |||
| 100925 | "\nOther Parameters\n----------------\n" | |||
| 100926 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 100927 | "lower : input int, optional\n Default: 0\n" | |||
| 100928 | "\nReturns\n-------\n" | |||
| 100929 | "a : rank-2 array('f') with bounds (n,n) and c storage\n" | |||
| 100930 | "info : int"; | |||
| 100931 | /* extern void F_FUNC(slauum,SLAUUM)(char*,F_INT*,float*,F_INT*,F_INT* ); */ | |||
| 100932 | static PyObject *f2py_rout__flapack_slauum(const PyObject *capi_self, | |||
| 100933 | PyObject *capi_args, | |||
| 100934 | PyObject *capi_keywds, | |||
| 100935 | void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint* )) { | |||
| 100936 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 100937 | volatile int f2py_success = 1; | |||
| 100938 | /*decl*/ | |||
| 100939 | ||||
| 100940 | int n = 0; | |||
| 100941 | float *c = NULL((void*)0); | |||
| 100942 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 100943 | const int c_Rank = 2; | |||
| 100944 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 100945 | int capi_c_intent = 0; | |||
| 100946 | int capi_overwrite_c = 0; | |||
| 100947 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 100948 | int info = 0; | |||
| 100949 | int lower = 0; | |||
| 100950 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 100951 | static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)}; | |||
| 100952 | ||||
| 100953 | /*routdebugenter*/ | |||
| 100954 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100955 | f2py_start_clock(); | |||
| 100956 | #endif | |||
| 100957 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 100958 | "O|Oi:_flapack.slauum",\ | |||
| 100959 | capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c)) | |||
| 100960 | return NULL((void*)0); | |||
| 100961 | /*frompyobj*/ | |||
| 100962 | /* Processing variable lower */ | |||
| 100963 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 100964 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.slauum() 1st keyword (lower) can't be converted to int"); | |||
| 100965 | if (f2py_success) { | |||
| 100966 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","slauum:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""slauum:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 100967 | /* Processing variable c */ | |||
| 100968 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 100969 | ; | |||
| 100970 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 100971 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 100972 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 100973 | if (!PyErr_Occurred()) | |||
| 100974 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.slauum to C/Fortran array" ); | |||
| 100975 | } else { | |||
| 100976 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 100977 | ||||
| 100978 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 100979 | /* Processing variable info */ | |||
| 100980 | /* Processing variable n */ | |||
| 100981 | n = shape(c,0)c_Dims[0]; | |||
| 100982 | /*end of frompyobj*/ | |||
| 100983 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100984 | f2py_start_call_clock(); | |||
| 100985 | #endif | |||
| 100986 | /*callfortranroutine*/ | |||
| 100987 | (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ; | |||
| 100988 | /*(*f2py_func)(&n,c,&info,&lower);*/ | |||
| 100989 | if (PyErr_Occurred()) | |||
| 100990 | f2py_success = 0; | |||
| 100991 | #ifdef F2PY_REPORT_ATEXIT | |||
| 100992 | f2py_stop_call_clock(); | |||
| 100993 | #endif | |||
| 100994 | /*end of callfortranroutine*/ | |||
| 100995 | if (f2py_success) { | |||
| 100996 | /*pyobjfrom*/ | |||
| 100997 | /*end of pyobjfrom*/ | |||
| 100998 | CFUNCSMESS("Building return value.\n"); | |||
| 100999 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 101000 | /*closepyobjfrom*/ | |||
| 101001 | /*end of closepyobjfrom*/ | |||
| 101002 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 101003 | /*cleanupfrompyobj*/ | |||
| 101004 | /* End of cleaning variable n */ | |||
| 101005 | /* End of cleaning variable info */ | |||
| 101006 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 101007 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 101008 | /* End of cleaning variable c */ | |||
| 101009 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 101010 | } /*if (f2py_success) of lower*/ | |||
| 101011 | /* End of cleaning variable lower */ | |||
| 101012 | /*end of cleanupfrompyobj*/ | |||
| 101013 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 101014 | /*routdebugfailure*/ | |||
| 101015 | } else { | |||
| 101016 | /*routdebugleave*/ | |||
| 101017 | } | |||
| 101018 | CFUNCSMESS("Freeing memory.\n"); | |||
| 101019 | /*freemem*/ | |||
| 101020 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101021 | f2py_stop_clock(); | |||
| 101022 | #endif | |||
| 101023 | return capi_buildvalue; | |||
| 101024 | } | |||
| 101025 | /******************************* end of slauum *******************************/ | |||
| 101026 | ||||
| 101027 | /*********************************** dlauum ***********************************/ | |||
| 101028 | static char doc_f2py_rout__flapack_dlauum[] = "\ | |||
| 101029 | a,info = dlauum(c,[lower,overwrite_c])\n\nWrapper for ``dlauum``.\ | |||
| 101030 | \n\nParameters\n----------\n" | |||
| 101031 | "c : input rank-2 array('d') with bounds (n,n)\n" | |||
| 101032 | "\nOther Parameters\n----------------\n" | |||
| 101033 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 101034 | "lower : input int, optional\n Default: 0\n" | |||
| 101035 | "\nReturns\n-------\n" | |||
| 101036 | "a : rank-2 array('d') with bounds (n,n) and c storage\n" | |||
| 101037 | "info : int"; | |||
| 101038 | /* extern void F_FUNC(dlauum,DLAUUM)(char*,F_INT*,double*,F_INT*,F_INT* ); */ | |||
| 101039 | static PyObject *f2py_rout__flapack_dlauum(const PyObject *capi_self, | |||
| 101040 | PyObject *capi_args, | |||
| 101041 | PyObject *capi_keywds, | |||
| 101042 | void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint* )) { | |||
| 101043 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 101044 | volatile int f2py_success = 1; | |||
| 101045 | /*decl*/ | |||
| 101046 | ||||
| 101047 | int n = 0; | |||
| 101048 | double *c = NULL((void*)0); | |||
| 101049 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 101050 | const int c_Rank = 2; | |||
| 101051 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 101052 | int capi_c_intent = 0; | |||
| 101053 | int capi_overwrite_c = 0; | |||
| 101054 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 101055 | int info = 0; | |||
| 101056 | int lower = 0; | |||
| 101057 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 101058 | static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)}; | |||
| 101059 | ||||
| 101060 | /*routdebugenter*/ | |||
| 101061 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101062 | f2py_start_clock(); | |||
| 101063 | #endif | |||
| 101064 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 101065 | "O|Oi:_flapack.dlauum",\ | |||
| 101066 | capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c)) | |||
| 101067 | return NULL((void*)0); | |||
| 101068 | /*frompyobj*/ | |||
| 101069 | /* Processing variable lower */ | |||
| 101070 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 101071 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dlauum() 1st keyword (lower) can't be converted to int"); | |||
| 101072 | if (f2py_success) { | |||
| 101073 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dlauum:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dlauum:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 101074 | /* Processing variable c */ | |||
| 101075 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 101076 | ; | |||
| 101077 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 101078 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 101079 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 101080 | if (!PyErr_Occurred()) | |||
| 101081 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.dlauum to C/Fortran array" ); | |||
| 101082 | } else { | |||
| 101083 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 101084 | ||||
| 101085 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 101086 | /* Processing variable info */ | |||
| 101087 | /* Processing variable n */ | |||
| 101088 | n = shape(c,0)c_Dims[0]; | |||
| 101089 | /*end of frompyobj*/ | |||
| 101090 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101091 | f2py_start_call_clock(); | |||
| 101092 | #endif | |||
| 101093 | /*callfortranroutine*/ | |||
| 101094 | (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ; | |||
| 101095 | /*(*f2py_func)(&n,c,&info,&lower);*/ | |||
| 101096 | if (PyErr_Occurred()) | |||
| 101097 | f2py_success = 0; | |||
| 101098 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101099 | f2py_stop_call_clock(); | |||
| 101100 | #endif | |||
| 101101 | /*end of callfortranroutine*/ | |||
| 101102 | if (f2py_success) { | |||
| 101103 | /*pyobjfrom*/ | |||
| 101104 | /*end of pyobjfrom*/ | |||
| 101105 | CFUNCSMESS("Building return value.\n"); | |||
| 101106 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 101107 | /*closepyobjfrom*/ | |||
| 101108 | /*end of closepyobjfrom*/ | |||
| 101109 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 101110 | /*cleanupfrompyobj*/ | |||
| 101111 | /* End of cleaning variable n */ | |||
| 101112 | /* End of cleaning variable info */ | |||
| 101113 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 101114 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 101115 | /* End of cleaning variable c */ | |||
| 101116 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 101117 | } /*if (f2py_success) of lower*/ | |||
| 101118 | /* End of cleaning variable lower */ | |||
| 101119 | /*end of cleanupfrompyobj*/ | |||
| 101120 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 101121 | /*routdebugfailure*/ | |||
| 101122 | } else { | |||
| 101123 | /*routdebugleave*/ | |||
| 101124 | } | |||
| 101125 | CFUNCSMESS("Freeing memory.\n"); | |||
| 101126 | /*freemem*/ | |||
| 101127 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101128 | f2py_stop_clock(); | |||
| 101129 | #endif | |||
| 101130 | return capi_buildvalue; | |||
| 101131 | } | |||
| 101132 | /******************************* end of dlauum *******************************/ | |||
| 101133 | ||||
| 101134 | /*********************************** clauum ***********************************/ | |||
| 101135 | static char doc_f2py_rout__flapack_clauum[] = "\ | |||
| 101136 | a,info = clauum(c,[lower,overwrite_c])\n\nWrapper for ``clauum``.\ | |||
| 101137 | \n\nParameters\n----------\n" | |||
| 101138 | "c : input rank-2 array('F') with bounds (n,n)\n" | |||
| 101139 | "\nOther Parameters\n----------------\n" | |||
| 101140 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 101141 | "lower : input int, optional\n Default: 0\n" | |||
| 101142 | "\nReturns\n-------\n" | |||
| 101143 | "a : rank-2 array('F') with bounds (n,n) and c storage\n" | |||
| 101144 | "info : int"; | |||
| 101145 | /* extern void F_FUNC(clauum,CLAUUM)(char*,F_INT*,complex_float*,F_INT*,F_INT* ); */ | |||
| 101146 | static PyObject *f2py_rout__flapack_clauum(const PyObject *capi_self, | |||
| 101147 | PyObject *capi_args, | |||
| 101148 | PyObject *capi_keywds, | |||
| 101149 | void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) { | |||
| 101150 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 101151 | volatile int f2py_success = 1; | |||
| 101152 | /*decl*/ | |||
| 101153 | ||||
| 101154 | int n = 0; | |||
| 101155 | complex_float *c = NULL((void*)0); | |||
| 101156 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 101157 | const int c_Rank = 2; | |||
| 101158 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 101159 | int capi_c_intent = 0; | |||
| 101160 | int capi_overwrite_c = 0; | |||
| 101161 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 101162 | int info = 0; | |||
| 101163 | int lower = 0; | |||
| 101164 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 101165 | static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)}; | |||
| 101166 | ||||
| 101167 | /*routdebugenter*/ | |||
| 101168 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101169 | f2py_start_clock(); | |||
| 101170 | #endif | |||
| 101171 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 101172 | "O|Oi:_flapack.clauum",\ | |||
| 101173 | capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c)) | |||
| 101174 | return NULL((void*)0); | |||
| 101175 | /*frompyobj*/ | |||
| 101176 | /* Processing variable lower */ | |||
| 101177 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 101178 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.clauum() 1st keyword (lower) can't be converted to int"); | |||
| 101179 | if (f2py_success) { | |||
| 101180 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","clauum:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""clauum:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 101181 | /* Processing variable c */ | |||
| 101182 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 101183 | ; | |||
| 101184 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 101185 | capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 101186 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 101187 | if (!PyErr_Occurred()) | |||
| 101188 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.clauum to C/Fortran array" ); | |||
| 101189 | } else { | |||
| 101190 | c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 101191 | ||||
| 101192 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 101193 | /* Processing variable info */ | |||
| 101194 | /* Processing variable n */ | |||
| 101195 | n = shape(c,0)c_Dims[0]; | |||
| 101196 | /*end of frompyobj*/ | |||
| 101197 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101198 | f2py_start_call_clock(); | |||
| 101199 | #endif | |||
| 101200 | /*callfortranroutine*/ | |||
| 101201 | (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ; | |||
| 101202 | /*(*f2py_func)(&n,c,&info,&lower);*/ | |||
| 101203 | if (PyErr_Occurred()) | |||
| 101204 | f2py_success = 0; | |||
| 101205 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101206 | f2py_stop_call_clock(); | |||
| 101207 | #endif | |||
| 101208 | /*end of callfortranroutine*/ | |||
| 101209 | if (f2py_success) { | |||
| 101210 | /*pyobjfrom*/ | |||
| 101211 | /*end of pyobjfrom*/ | |||
| 101212 | CFUNCSMESS("Building return value.\n"); | |||
| 101213 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 101214 | /*closepyobjfrom*/ | |||
| 101215 | /*end of closepyobjfrom*/ | |||
| 101216 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 101217 | /*cleanupfrompyobj*/ | |||
| 101218 | /* End of cleaning variable n */ | |||
| 101219 | /* End of cleaning variable info */ | |||
| 101220 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 101221 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 101222 | /* End of cleaning variable c */ | |||
| 101223 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 101224 | } /*if (f2py_success) of lower*/ | |||
| 101225 | /* End of cleaning variable lower */ | |||
| 101226 | /*end of cleanupfrompyobj*/ | |||
| 101227 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 101228 | /*routdebugfailure*/ | |||
| 101229 | } else { | |||
| 101230 | /*routdebugleave*/ | |||
| 101231 | } | |||
| 101232 | CFUNCSMESS("Freeing memory.\n"); | |||
| 101233 | /*freemem*/ | |||
| 101234 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101235 | f2py_stop_clock(); | |||
| 101236 | #endif | |||
| 101237 | return capi_buildvalue; | |||
| 101238 | } | |||
| 101239 | /******************************* end of clauum *******************************/ | |||
| 101240 | ||||
| 101241 | /*********************************** zlauum ***********************************/ | |||
| 101242 | static char doc_f2py_rout__flapack_zlauum[] = "\ | |||
| 101243 | a,info = zlauum(c,[lower,overwrite_c])\n\nWrapper for ``zlauum``.\ | |||
| 101244 | \n\nParameters\n----------\n" | |||
| 101245 | "c : input rank-2 array('D') with bounds (n,n)\n" | |||
| 101246 | "\nOther Parameters\n----------------\n" | |||
| 101247 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 101248 | "lower : input int, optional\n Default: 0\n" | |||
| 101249 | "\nReturns\n-------\n" | |||
| 101250 | "a : rank-2 array('D') with bounds (n,n) and c storage\n" | |||
| 101251 | "info : int"; | |||
| 101252 | /* extern void F_FUNC(zlauum,ZLAUUM)(char*,F_INT*,complex_double*,F_INT*,F_INT* ); */ | |||
| 101253 | static PyObject *f2py_rout__flapack_zlauum(const PyObject *capi_self, | |||
| 101254 | PyObject *capi_args, | |||
| 101255 | PyObject *capi_keywds, | |||
| 101256 | void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) { | |||
| 101257 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 101258 | volatile int f2py_success = 1; | |||
| 101259 | /*decl*/ | |||
| 101260 | ||||
| 101261 | int n = 0; | |||
| 101262 | complex_double *c = NULL((void*)0); | |||
| 101263 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 101264 | const int c_Rank = 2; | |||
| 101265 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 101266 | int capi_c_intent = 0; | |||
| 101267 | int capi_overwrite_c = 0; | |||
| 101268 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 101269 | int info = 0; | |||
| 101270 | int lower = 0; | |||
| 101271 | PyObject *lower_capi = Py_None(&_Py_NoneStruct); | |||
| 101272 | static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)}; | |||
| 101273 | ||||
| 101274 | /*routdebugenter*/ | |||
| 101275 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101276 | f2py_start_clock(); | |||
| 101277 | #endif | |||
| 101278 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 101279 | "O|Oi:_flapack.zlauum",\ | |||
| 101280 | capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c)) | |||
| 101281 | return NULL((void*)0); | |||
| 101282 | /*frompyobj*/ | |||
| 101283 | /* Processing variable lower */ | |||
| 101284 | if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else | |||
| 101285 | f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zlauum() 1st keyword (lower) can't be converted to int"); | |||
| 101286 | if (f2py_success) { | |||
| 101287 | CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zlauum:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zlauum:lower=%d", "(""lower==0||lower==1"") failed for " "1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 101288 | /* Processing variable c */ | |||
| 101289 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 101290 | ; | |||
| 101291 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 101292 | capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 101293 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 101294 | if (!PyErr_Occurred()) | |||
| 101295 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.zlauum to C/Fortran array" ); | |||
| 101296 | } else { | |||
| 101297 | c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 101298 | ||||
| 101299 | CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error ,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c"); } else { | |||
| 101300 | /* Processing variable info */ | |||
| 101301 | /* Processing variable n */ | |||
| 101302 | n = shape(c,0)c_Dims[0]; | |||
| 101303 | /*end of frompyobj*/ | |||
| 101304 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101305 | f2py_start_call_clock(); | |||
| 101306 | #endif | |||
| 101307 | /*callfortranroutine*/ | |||
| 101308 | (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ; | |||
| 101309 | /*(*f2py_func)(&n,c,&info,&lower);*/ | |||
| 101310 | if (PyErr_Occurred()) | |||
| 101311 | f2py_success = 0; | |||
| 101312 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101313 | f2py_stop_call_clock(); | |||
| 101314 | #endif | |||
| 101315 | /*end of callfortranroutine*/ | |||
| 101316 | if (f2py_success) { | |||
| 101317 | /*pyobjfrom*/ | |||
| 101318 | /*end of pyobjfrom*/ | |||
| 101319 | CFUNCSMESS("Building return value.\n"); | |||
| 101320 | capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info); | |||
| 101321 | /*closepyobjfrom*/ | |||
| 101322 | /*end of closepyobjfrom*/ | |||
| 101323 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 101324 | /*cleanupfrompyobj*/ | |||
| 101325 | /* End of cleaning variable n */ | |||
| 101326 | /* End of cleaning variable info */ | |||
| 101327 | } /*CHECKARRAY(shape(c,0)==shape(c,1))*/ | |||
| 101328 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 101329 | /* End of cleaning variable c */ | |||
| 101330 | } /*CHECKSCALAR(lower==0||lower==1)*/ | |||
| 101331 | } /*if (f2py_success) of lower*/ | |||
| 101332 | /* End of cleaning variable lower */ | |||
| 101333 | /*end of cleanupfrompyobj*/ | |||
| 101334 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 101335 | /*routdebugfailure*/ | |||
| 101336 | } else { | |||
| 101337 | /*routdebugleave*/ | |||
| 101338 | } | |||
| 101339 | CFUNCSMESS("Freeing memory.\n"); | |||
| 101340 | /*freemem*/ | |||
| 101341 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101342 | f2py_stop_clock(); | |||
| 101343 | #endif | |||
| 101344 | return capi_buildvalue; | |||
| 101345 | } | |||
| 101346 | /******************************* end of zlauum *******************************/ | |||
| 101347 | ||||
| 101348 | /*********************************** slaswp ***********************************/ | |||
| 101349 | static char doc_f2py_rout__flapack_slaswp[] = "\ | |||
| 101350 | a = slaswp(a,piv,[k1,k2,off,inc,overwrite_a])\n\nWrapper for ``slaswp``.\ | |||
| 101351 | \n\nParameters\n----------\n" | |||
| 101352 | "a : input rank-2 array('f') with bounds (nrows,n)\n" | |||
| 101353 | "piv : input rank-1 array('i') with bounds (npiv)\n" | |||
| 101354 | "\nOther Parameters\n----------------\n" | |||
| 101355 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 101356 | "k1 : input int, optional\n Default: 0\n" | |||
| 101357 | "k2 : input int, optional\n Default: npiv-1\n" | |||
| 101358 | "off : input int, optional\n Default: 0\n" | |||
| 101359 | "inc : input int, optional\n Default: 1\n" | |||
| 101360 | "\nReturns\n-------\n" | |||
| 101361 | "a : rank-2 array('f') with bounds (nrows,n)"; | |||
| 101362 | /* extern void F_FUNC(slaswp,SLASWP)(F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 101363 | static PyObject *f2py_rout__flapack_slaswp(const PyObject *capi_self, | |||
| 101364 | PyObject *capi_args, | |||
| 101365 | PyObject *capi_keywds, | |||
| 101366 | void (*f2py_func)(F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 101367 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 101368 | volatile int f2py_success = 1; | |||
| 101369 | /*decl*/ | |||
| 101370 | ||||
| 101371 | int n = 0; | |||
| 101372 | float *a = NULL((void*)0); | |||
| 101373 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 101374 | const int a_Rank = 2; | |||
| 101375 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 101376 | int capi_a_intent = 0; | |||
| 101377 | int capi_overwrite_a = 0; | |||
| 101378 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 101379 | int nrows = 0; | |||
| 101380 | int k1 = 0; | |||
| 101381 | PyObject *k1_capi = Py_None(&_Py_NoneStruct); | |||
| 101382 | int k2 = 0; | |||
| 101383 | PyObject *k2_capi = Py_None(&_Py_NoneStruct); | |||
| 101384 | int *piv = NULL((void*)0); | |||
| 101385 | npy_intp piv_Dims[1] = {-1}; | |||
| 101386 | const int piv_Rank = 1; | |||
| 101387 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 101388 | int capi_piv_intent = 0; | |||
| 101389 | PyObject *piv_capi = Py_None(&_Py_NoneStruct); | |||
| 101390 | int off = 0; | |||
| 101391 | PyObject *off_capi = Py_None(&_Py_NoneStruct); | |||
| 101392 | int inc = 0; | |||
| 101393 | PyObject *inc_capi = Py_None(&_Py_NoneStruct); | |||
| 101394 | int m = 0; | |||
| 101395 | int npiv = 0; | |||
| 101396 | static char *capi_kwlist[] = {"a","piv","k1","k2","off","inc","overwrite_a",NULL((void*)0)}; | |||
| 101397 | ||||
| 101398 | /*routdebugenter*/ | |||
| 101399 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101400 | f2py_start_clock(); | |||
| 101401 | #endif | |||
| 101402 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 101403 | "OO|OOOOi:_flapack.slaswp",\ | |||
| 101404 | capi_kwlist,&a_capi,&piv_capi,&k1_capi,&k2_capi,&off_capi,&inc_capi,&capi_overwrite_a)) | |||
| 101405 | return NULL((void*)0); | |||
| 101406 | /*frompyobj*/ | |||
| 101407 | /* Processing variable a */ | |||
| 101408 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 101409 | ; | |||
| 101410 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 101411 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 101412 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 101413 | if (!PyErr_Occurred()) | |||
| 101414 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.slaswp to C/Fortran array" ); | |||
| 101415 | } else { | |||
| 101416 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 101417 | ||||
| 101418 | /* Processing variable piv */ | |||
| 101419 | ; | |||
| 101420 | capi_piv_intent |= F2PY_INTENT_IN1; | |||
| 101421 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi); | |||
| 101422 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 101423 | if (!PyErr_Occurred()) | |||
| 101424 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.slaswp to C/Fortran array" ); | |||
| 101425 | } else { | |||
| 101426 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 101427 | ||||
| 101428 | /* Processing variable k1 */ | |||
| 101429 | if (k1_capi == Py_None(&_Py_NoneStruct)) k1 = 0; else | |||
| 101430 | f2py_success = int_from_pyobj(&k1,k1_capi,"_flapack.slaswp() 1st keyword (k1) can't be converted to int"); | |||
| 101431 | if (f2py_success) { | |||
| 101432 | CHECKSCALAR(0<=k1,"0<=k1","1st keyword k1","slaswp:k1=%d",k1)if (!(0<=k1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""slaswp:k1=%d", "(""0<=k1"") failed for ""1st keyword k1" , k1); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 101433 | /* Processing variable inc */ | |||
| 101434 | if (inc_capi == Py_None(&_Py_NoneStruct)) inc = 1; else | |||
| 101435 | f2py_success = int_from_pyobj(&inc,inc_capi,"_flapack.slaswp() 4th keyword (inc) can't be converted to int"); | |||
| 101436 | if (f2py_success) { | |||
| 101437 | CHECKSCALAR(inc>0||inc<0,"inc>0||inc<0","4th keyword inc","slaswp:inc=%d",inc)if (!(inc>0||inc<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""slaswp:inc=%d", "(""inc>0||inc<0"") failed for " "4th keyword inc", inc); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 101438 | /* Processing variable nrows */ | |||
| 101439 | nrows = shape(a,0)a_Dims[0]; | |||
| 101440 | /* Processing variable n */ | |||
| 101441 | n = shape(a,1)a_Dims[1]; | |||
| 101442 | /* Processing variable npiv */ | |||
| 101443 | npiv = len(piv)piv_Dims[0]; | |||
| 101444 | CHECKSCALAR(npiv<=nrows,"npiv<=nrows","hidden npiv","slaswp:npiv=%d",npiv)if (!(npiv<=nrows)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""slaswp:npiv=%d", "(""npiv<=nrows"") failed for " "hidden npiv", npiv); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 101445 | /* Processing variable off */ | |||
| 101446 | if (off_capi == Py_None(&_Py_NoneStruct)) off = 0; else | |||
| 101447 | f2py_success = int_from_pyobj(&off,off_capi,"_flapack.slaswp() 3rd keyword (off) can't be converted to int"); | |||
| 101448 | if (f2py_success) { | |||
| 101449 | CHECKSCALAR(off>=0 && off<len(piv),"off>=0 && off<len(piv)","3rd keyword off","slaswp:off=%d",off)if (!(off>=0 && off<piv_Dims[0])) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""slaswp:off=%d", "(""off>=0 && off<len(piv)" ") failed for ""3rd keyword off", off); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 101450 | /* Processing variable m */ | |||
| 101451 | m = (len(piv)piv_Dims[0]-off)/abs(inc); | |||
| 101452 | CHECKSCALAR(npiv-off>(m-1)*abs(inc),"npiv-off>(m-1)*abs(inc)","hidden m","slaswp:m=%d",m)if (!(npiv-off>(m-1)*abs(inc))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""slaswp:m=%d", "(""npiv-off>(m-1)*abs(inc)"") failed for " "hidden m", m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 101453 | /* Processing variable k2 */ | |||
| 101454 | if (k2_capi == Py_None(&_Py_NoneStruct)) k2 = npiv-1; else | |||
| 101455 | f2py_success = int_from_pyobj(&k2,k2_capi,"_flapack.slaswp() 2nd keyword (k2) can't be converted to int"); | |||
| 101456 | if (f2py_success) { | |||
| 101457 | CHECKSCALAR(k1<=k2 && k2<npiv-off,"k1<=k2 && k2<npiv-off","2nd keyword k2","slaswp:k2=%d",k2)if (!(k1<=k2 && k2<npiv-off)) { char errstring[ 256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""slaswp:k2=%d", "(""k1<=k2 && k2<npiv-off" ") failed for ""2nd keyword k2", k2); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 101458 | /*end of frompyobj*/ | |||
| 101459 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101460 | f2py_start_call_clock(); | |||
| 101461 | #endif | |||
| 101462 | /*callfortranroutine*/ | |||
| 101463 | {F_INTint i;m=len(piv)piv_Dims[0];for(i=0;i<m;++piv[i++]);++k1;++k2; (*f2py_func)(&n,a,&nrows,&k1,&k2,piv+off,&inc); for(i=0;i<m;--piv[i++]);} ; | |||
| 101464 | /*(*f2py_func)(&n,a,&nrows,&k1,&k2,piv,&off,&inc,&m,&npiv);*/ | |||
| 101465 | if (PyErr_Occurred()) | |||
| 101466 | f2py_success = 0; | |||
| 101467 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101468 | f2py_stop_call_clock(); | |||
| 101469 | #endif | |||
| 101470 | /*end of callfortranroutine*/ | |||
| 101471 | if (f2py_success) { | |||
| 101472 | /*pyobjfrom*/ | |||
| 101473 | /*end of pyobjfrom*/ | |||
| 101474 | CFUNCSMESS("Building return value.\n"); | |||
| 101475 | capi_buildvalue = Py_BuildValue("N",capi_a_tmp); | |||
| 101476 | /*closepyobjfrom*/ | |||
| 101477 | /*end of closepyobjfrom*/ | |||
| 101478 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 101479 | /*cleanupfrompyobj*/ | |||
| 101480 | } /*CHECKSCALAR(k1<=k2 && k2<npiv-off)*/ | |||
| 101481 | } /*if (f2py_success) of k2*/ | |||
| 101482 | /* End of cleaning variable k2 */ | |||
| 101483 | } /*CHECKSCALAR(npiv-off>(m-1)*abs(inc))*/ | |||
| 101484 | /* End of cleaning variable m */ | |||
| 101485 | } /*CHECKSCALAR(off>=0 && off<len(piv))*/ | |||
| 101486 | } /*if (f2py_success) of off*/ | |||
| 101487 | /* End of cleaning variable off */ | |||
| 101488 | } /*CHECKSCALAR(npiv<=nrows)*/ | |||
| 101489 | /* End of cleaning variable npiv */ | |||
| 101490 | /* End of cleaning variable n */ | |||
| 101491 | /* End of cleaning variable nrows */ | |||
| 101492 | } /*CHECKSCALAR(inc>0||inc<0)*/ | |||
| 101493 | } /*if (f2py_success) of inc*/ | |||
| 101494 | /* End of cleaning variable inc */ | |||
| 101495 | } /*CHECKSCALAR(0<=k1)*/ | |||
| 101496 | } /*if (f2py_success) of k1*/ | |||
| 101497 | /* End of cleaning variable k1 */ | |||
| 101498 | if((PyObject *)capi_piv_tmp!=piv_capi) { | |||
| 101499 | Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); } | |||
| 101500 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 101501 | /* End of cleaning variable piv */ | |||
| 101502 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 101503 | /* End of cleaning variable a */ | |||
| 101504 | /*end of cleanupfrompyobj*/ | |||
| 101505 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 101506 | /*routdebugfailure*/ | |||
| 101507 | } else { | |||
| 101508 | /*routdebugleave*/ | |||
| 101509 | } | |||
| 101510 | CFUNCSMESS("Freeing memory.\n"); | |||
| 101511 | /*freemem*/ | |||
| 101512 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101513 | f2py_stop_clock(); | |||
| 101514 | #endif | |||
| 101515 | return capi_buildvalue; | |||
| 101516 | } | |||
| 101517 | /******************************* end of slaswp *******************************/ | |||
| 101518 | ||||
| 101519 | /*********************************** dlaswp ***********************************/ | |||
| 101520 | static char doc_f2py_rout__flapack_dlaswp[] = "\ | |||
| 101521 | a = dlaswp(a,piv,[k1,k2,off,inc,overwrite_a])\n\nWrapper for ``dlaswp``.\ | |||
| 101522 | \n\nParameters\n----------\n" | |||
| 101523 | "a : input rank-2 array('d') with bounds (nrows,n)\n" | |||
| 101524 | "piv : input rank-1 array('i') with bounds (npiv)\n" | |||
| 101525 | "\nOther Parameters\n----------------\n" | |||
| 101526 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 101527 | "k1 : input int, optional\n Default: 0\n" | |||
| 101528 | "k2 : input int, optional\n Default: npiv-1\n" | |||
| 101529 | "off : input int, optional\n Default: 0\n" | |||
| 101530 | "inc : input int, optional\n Default: 1\n" | |||
| 101531 | "\nReturns\n-------\n" | |||
| 101532 | "a : rank-2 array('d') with bounds (nrows,n)"; | |||
| 101533 | /* extern void F_FUNC(dlaswp,DLASWP)(F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 101534 | static PyObject *f2py_rout__flapack_dlaswp(const PyObject *capi_self, | |||
| 101535 | PyObject *capi_args, | |||
| 101536 | PyObject *capi_keywds, | |||
| 101537 | void (*f2py_func)(F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 101538 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 101539 | volatile int f2py_success = 1; | |||
| 101540 | /*decl*/ | |||
| 101541 | ||||
| 101542 | int n = 0; | |||
| 101543 | double *a = NULL((void*)0); | |||
| 101544 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 101545 | const int a_Rank = 2; | |||
| 101546 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 101547 | int capi_a_intent = 0; | |||
| 101548 | int capi_overwrite_a = 0; | |||
| 101549 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 101550 | int nrows = 0; | |||
| 101551 | int k1 = 0; | |||
| 101552 | PyObject *k1_capi = Py_None(&_Py_NoneStruct); | |||
| 101553 | int k2 = 0; | |||
| 101554 | PyObject *k2_capi = Py_None(&_Py_NoneStruct); | |||
| 101555 | int *piv = NULL((void*)0); | |||
| 101556 | npy_intp piv_Dims[1] = {-1}; | |||
| 101557 | const int piv_Rank = 1; | |||
| 101558 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 101559 | int capi_piv_intent = 0; | |||
| 101560 | PyObject *piv_capi = Py_None(&_Py_NoneStruct); | |||
| 101561 | int off = 0; | |||
| 101562 | PyObject *off_capi = Py_None(&_Py_NoneStruct); | |||
| 101563 | int inc = 0; | |||
| 101564 | PyObject *inc_capi = Py_None(&_Py_NoneStruct); | |||
| 101565 | int m = 0; | |||
| 101566 | int npiv = 0; | |||
| 101567 | static char *capi_kwlist[] = {"a","piv","k1","k2","off","inc","overwrite_a",NULL((void*)0)}; | |||
| 101568 | ||||
| 101569 | /*routdebugenter*/ | |||
| 101570 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101571 | f2py_start_clock(); | |||
| 101572 | #endif | |||
| 101573 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 101574 | "OO|OOOOi:_flapack.dlaswp",\ | |||
| 101575 | capi_kwlist,&a_capi,&piv_capi,&k1_capi,&k2_capi,&off_capi,&inc_capi,&capi_overwrite_a)) | |||
| 101576 | return NULL((void*)0); | |||
| 101577 | /*frompyobj*/ | |||
| 101578 | /* Processing variable a */ | |||
| 101579 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 101580 | ; | |||
| 101581 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 101582 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 101583 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 101584 | if (!PyErr_Occurred()) | |||
| 101585 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dlaswp to C/Fortran array" ); | |||
| 101586 | } else { | |||
| 101587 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 101588 | ||||
| 101589 | /* Processing variable piv */ | |||
| 101590 | ; | |||
| 101591 | capi_piv_intent |= F2PY_INTENT_IN1; | |||
| 101592 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi); | |||
| 101593 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 101594 | if (!PyErr_Occurred()) | |||
| 101595 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.dlaswp to C/Fortran array" ); | |||
| 101596 | } else { | |||
| 101597 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 101598 | ||||
| 101599 | /* Processing variable k1 */ | |||
| 101600 | if (k1_capi == Py_None(&_Py_NoneStruct)) k1 = 0; else | |||
| 101601 | f2py_success = int_from_pyobj(&k1,k1_capi,"_flapack.dlaswp() 1st keyword (k1) can't be converted to int"); | |||
| 101602 | if (f2py_success) { | |||
| 101603 | CHECKSCALAR(0<=k1,"0<=k1","1st keyword k1","dlaswp:k1=%d",k1)if (!(0<=k1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dlaswp:k1=%d", "(""0<=k1"") failed for ""1st keyword k1" , k1); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 101604 | /* Processing variable inc */ | |||
| 101605 | if (inc_capi == Py_None(&_Py_NoneStruct)) inc = 1; else | |||
| 101606 | f2py_success = int_from_pyobj(&inc,inc_capi,"_flapack.dlaswp() 4th keyword (inc) can't be converted to int"); | |||
| 101607 | if (f2py_success) { | |||
| 101608 | CHECKSCALAR(inc>0||inc<0,"inc>0||inc<0","4th keyword inc","dlaswp:inc=%d",inc)if (!(inc>0||inc<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dlaswp:inc=%d", "(""inc>0||inc<0"") failed for " "4th keyword inc", inc); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 101609 | /* Processing variable nrows */ | |||
| 101610 | nrows = shape(a,0)a_Dims[0]; | |||
| 101611 | /* Processing variable n */ | |||
| 101612 | n = shape(a,1)a_Dims[1]; | |||
| 101613 | /* Processing variable npiv */ | |||
| 101614 | npiv = len(piv)piv_Dims[0]; | |||
| 101615 | CHECKSCALAR(npiv<=nrows,"npiv<=nrows","hidden npiv","dlaswp:npiv=%d",npiv)if (!(npiv<=nrows)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dlaswp:npiv=%d", "(""npiv<=nrows"") failed for " "hidden npiv", npiv); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 101616 | /* Processing variable off */ | |||
| 101617 | if (off_capi == Py_None(&_Py_NoneStruct)) off = 0; else | |||
| 101618 | f2py_success = int_from_pyobj(&off,off_capi,"_flapack.dlaswp() 3rd keyword (off) can't be converted to int"); | |||
| 101619 | if (f2py_success) { | |||
| 101620 | CHECKSCALAR(off>=0 && off<len(piv),"off>=0 && off<len(piv)","3rd keyword off","dlaswp:off=%d",off)if (!(off>=0 && off<piv_Dims[0])) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dlaswp:off=%d", "(""off>=0 && off<len(piv)" ") failed for ""3rd keyword off", off); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 101621 | /* Processing variable m */ | |||
| 101622 | m = (len(piv)piv_Dims[0]-off)/abs(inc); | |||
| 101623 | CHECKSCALAR(npiv-off>(m-1)*abs(inc),"npiv-off>(m-1)*abs(inc)","hidden m","dlaswp:m=%d",m)if (!(npiv-off>(m-1)*abs(inc))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dlaswp:m=%d", "(""npiv-off>(m-1)*abs(inc)"") failed for " "hidden m", m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 101624 | /* Processing variable k2 */ | |||
| 101625 | if (k2_capi == Py_None(&_Py_NoneStruct)) k2 = npiv-1; else | |||
| 101626 | f2py_success = int_from_pyobj(&k2,k2_capi,"_flapack.dlaswp() 2nd keyword (k2) can't be converted to int"); | |||
| 101627 | if (f2py_success) { | |||
| 101628 | CHECKSCALAR(k1<=k2 && k2<npiv-off,"k1<=k2 && k2<npiv-off","2nd keyword k2","dlaswp:k2=%d",k2)if (!(k1<=k2 && k2<npiv-off)) { char errstring[ 256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dlaswp:k2=%d", "(""k1<=k2 && k2<npiv-off" ") failed for ""2nd keyword k2", k2); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 101629 | /*end of frompyobj*/ | |||
| 101630 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101631 | f2py_start_call_clock(); | |||
| 101632 | #endif | |||
| 101633 | /*callfortranroutine*/ | |||
| 101634 | {F_INTint i;m=len(piv)piv_Dims[0];for(i=0;i<m;++piv[i++]);++k1;++k2; (*f2py_func)(&n,a,&nrows,&k1,&k2,piv+off,&inc); for(i=0;i<m;--piv[i++]);} ; | |||
| 101635 | /*(*f2py_func)(&n,a,&nrows,&k1,&k2,piv,&off,&inc,&m,&npiv);*/ | |||
| 101636 | if (PyErr_Occurred()) | |||
| 101637 | f2py_success = 0; | |||
| 101638 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101639 | f2py_stop_call_clock(); | |||
| 101640 | #endif | |||
| 101641 | /*end of callfortranroutine*/ | |||
| 101642 | if (f2py_success) { | |||
| 101643 | /*pyobjfrom*/ | |||
| 101644 | /*end of pyobjfrom*/ | |||
| 101645 | CFUNCSMESS("Building return value.\n"); | |||
| 101646 | capi_buildvalue = Py_BuildValue("N",capi_a_tmp); | |||
| 101647 | /*closepyobjfrom*/ | |||
| 101648 | /*end of closepyobjfrom*/ | |||
| 101649 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 101650 | /*cleanupfrompyobj*/ | |||
| 101651 | } /*CHECKSCALAR(k1<=k2 && k2<npiv-off)*/ | |||
| 101652 | } /*if (f2py_success) of k2*/ | |||
| 101653 | /* End of cleaning variable k2 */ | |||
| 101654 | } /*CHECKSCALAR(npiv-off>(m-1)*abs(inc))*/ | |||
| 101655 | /* End of cleaning variable m */ | |||
| 101656 | } /*CHECKSCALAR(off>=0 && off<len(piv))*/ | |||
| 101657 | } /*if (f2py_success) of off*/ | |||
| 101658 | /* End of cleaning variable off */ | |||
| 101659 | } /*CHECKSCALAR(npiv<=nrows)*/ | |||
| 101660 | /* End of cleaning variable npiv */ | |||
| 101661 | /* End of cleaning variable n */ | |||
| 101662 | /* End of cleaning variable nrows */ | |||
| 101663 | } /*CHECKSCALAR(inc>0||inc<0)*/ | |||
| 101664 | } /*if (f2py_success) of inc*/ | |||
| 101665 | /* End of cleaning variable inc */ | |||
| 101666 | } /*CHECKSCALAR(0<=k1)*/ | |||
| 101667 | } /*if (f2py_success) of k1*/ | |||
| 101668 | /* End of cleaning variable k1 */ | |||
| 101669 | if((PyObject *)capi_piv_tmp!=piv_capi) { | |||
| 101670 | Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); } | |||
| 101671 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 101672 | /* End of cleaning variable piv */ | |||
| 101673 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 101674 | /* End of cleaning variable a */ | |||
| 101675 | /*end of cleanupfrompyobj*/ | |||
| 101676 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 101677 | /*routdebugfailure*/ | |||
| 101678 | } else { | |||
| 101679 | /*routdebugleave*/ | |||
| 101680 | } | |||
| 101681 | CFUNCSMESS("Freeing memory.\n"); | |||
| 101682 | /*freemem*/ | |||
| 101683 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101684 | f2py_stop_clock(); | |||
| 101685 | #endif | |||
| 101686 | return capi_buildvalue; | |||
| 101687 | } | |||
| 101688 | /******************************* end of dlaswp *******************************/ | |||
| 101689 | ||||
| 101690 | /*********************************** claswp ***********************************/ | |||
| 101691 | static char doc_f2py_rout__flapack_claswp[] = "\ | |||
| 101692 | a = claswp(a,piv,[k1,k2,off,inc,overwrite_a])\n\nWrapper for ``claswp``.\ | |||
| 101693 | \n\nParameters\n----------\n" | |||
| 101694 | "a : input rank-2 array('F') with bounds (nrows,n)\n" | |||
| 101695 | "piv : input rank-1 array('i') with bounds (npiv)\n" | |||
| 101696 | "\nOther Parameters\n----------------\n" | |||
| 101697 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 101698 | "k1 : input int, optional\n Default: 0\n" | |||
| 101699 | "k2 : input int, optional\n Default: npiv-1\n" | |||
| 101700 | "off : input int, optional\n Default: 0\n" | |||
| 101701 | "inc : input int, optional\n Default: 1\n" | |||
| 101702 | "\nReturns\n-------\n" | |||
| 101703 | "a : rank-2 array('F') with bounds (nrows,n)"; | |||
| 101704 | /* extern void F_FUNC(claswp,CLASWP)(F_INT*,complex_float*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 101705 | static PyObject *f2py_rout__flapack_claswp(const PyObject *capi_self, | |||
| 101706 | PyObject *capi_args, | |||
| 101707 | PyObject *capi_keywds, | |||
| 101708 | void (*f2py_func)(F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 101709 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 101710 | volatile int f2py_success = 1; | |||
| 101711 | /*decl*/ | |||
| 101712 | ||||
| 101713 | int n = 0; | |||
| 101714 | complex_float *a = NULL((void*)0); | |||
| 101715 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 101716 | const int a_Rank = 2; | |||
| 101717 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 101718 | int capi_a_intent = 0; | |||
| 101719 | int capi_overwrite_a = 0; | |||
| 101720 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 101721 | int nrows = 0; | |||
| 101722 | int k1 = 0; | |||
| 101723 | PyObject *k1_capi = Py_None(&_Py_NoneStruct); | |||
| 101724 | int k2 = 0; | |||
| 101725 | PyObject *k2_capi = Py_None(&_Py_NoneStruct); | |||
| 101726 | int *piv = NULL((void*)0); | |||
| 101727 | npy_intp piv_Dims[1] = {-1}; | |||
| 101728 | const int piv_Rank = 1; | |||
| 101729 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 101730 | int capi_piv_intent = 0; | |||
| 101731 | PyObject *piv_capi = Py_None(&_Py_NoneStruct); | |||
| 101732 | int off = 0; | |||
| 101733 | PyObject *off_capi = Py_None(&_Py_NoneStruct); | |||
| 101734 | int inc = 0; | |||
| 101735 | PyObject *inc_capi = Py_None(&_Py_NoneStruct); | |||
| 101736 | int m = 0; | |||
| 101737 | int npiv = 0; | |||
| 101738 | static char *capi_kwlist[] = {"a","piv","k1","k2","off","inc","overwrite_a",NULL((void*)0)}; | |||
| 101739 | ||||
| 101740 | /*routdebugenter*/ | |||
| 101741 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101742 | f2py_start_clock(); | |||
| 101743 | #endif | |||
| 101744 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 101745 | "OO|OOOOi:_flapack.claswp",\ | |||
| 101746 | capi_kwlist,&a_capi,&piv_capi,&k1_capi,&k2_capi,&off_capi,&inc_capi,&capi_overwrite_a)) | |||
| 101747 | return NULL((void*)0); | |||
| 101748 | /*frompyobj*/ | |||
| 101749 | /* Processing variable a */ | |||
| 101750 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 101751 | ; | |||
| 101752 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 101753 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 101754 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 101755 | if (!PyErr_Occurred()) | |||
| 101756 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.claswp to C/Fortran array" ); | |||
| 101757 | } else { | |||
| 101758 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 101759 | ||||
| 101760 | /* Processing variable piv */ | |||
| 101761 | ; | |||
| 101762 | capi_piv_intent |= F2PY_INTENT_IN1; | |||
| 101763 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi); | |||
| 101764 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 101765 | if (!PyErr_Occurred()) | |||
| 101766 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.claswp to C/Fortran array" ); | |||
| 101767 | } else { | |||
| 101768 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 101769 | ||||
| 101770 | /* Processing variable k1 */ | |||
| 101771 | if (k1_capi == Py_None(&_Py_NoneStruct)) k1 = 0; else | |||
| 101772 | f2py_success = int_from_pyobj(&k1,k1_capi,"_flapack.claswp() 1st keyword (k1) can't be converted to int"); | |||
| 101773 | if (f2py_success) { | |||
| 101774 | CHECKSCALAR(0<=k1,"0<=k1","1st keyword k1","claswp:k1=%d",k1)if (!(0<=k1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""claswp:k1=%d", "(""0<=k1"") failed for ""1st keyword k1" , k1); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 101775 | /* Processing variable inc */ | |||
| 101776 | if (inc_capi == Py_None(&_Py_NoneStruct)) inc = 1; else | |||
| 101777 | f2py_success = int_from_pyobj(&inc,inc_capi,"_flapack.claswp() 4th keyword (inc) can't be converted to int"); | |||
| 101778 | if (f2py_success) { | |||
| 101779 | CHECKSCALAR(inc>0||inc<0,"inc>0||inc<0","4th keyword inc","claswp:inc=%d",inc)if (!(inc>0||inc<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""claswp:inc=%d", "(""inc>0||inc<0"") failed for " "4th keyword inc", inc); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 101780 | /* Processing variable nrows */ | |||
| 101781 | nrows = shape(a,0)a_Dims[0]; | |||
| 101782 | /* Processing variable n */ | |||
| 101783 | n = shape(a,1)a_Dims[1]; | |||
| 101784 | /* Processing variable npiv */ | |||
| 101785 | npiv = len(piv)piv_Dims[0]; | |||
| 101786 | CHECKSCALAR(npiv<=nrows,"npiv<=nrows","hidden npiv","claswp:npiv=%d",npiv)if (!(npiv<=nrows)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""claswp:npiv=%d", "(""npiv<=nrows"") failed for " "hidden npiv", npiv); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 101787 | /* Processing variable off */ | |||
| 101788 | if (off_capi == Py_None(&_Py_NoneStruct)) off = 0; else | |||
| 101789 | f2py_success = int_from_pyobj(&off,off_capi,"_flapack.claswp() 3rd keyword (off) can't be converted to int"); | |||
| 101790 | if (f2py_success) { | |||
| 101791 | CHECKSCALAR(off>=0 && off<len(piv),"off>=0 && off<len(piv)","3rd keyword off","claswp:off=%d",off)if (!(off>=0 && off<piv_Dims[0])) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""claswp:off=%d", "(""off>=0 && off<len(piv)" ") failed for ""3rd keyword off", off); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 101792 | /* Processing variable m */ | |||
| 101793 | m = (len(piv)piv_Dims[0]-off)/abs(inc); | |||
| 101794 | CHECKSCALAR(npiv-off>(m-1)*abs(inc),"npiv-off>(m-1)*abs(inc)","hidden m","claswp:m=%d",m)if (!(npiv-off>(m-1)*abs(inc))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""claswp:m=%d", "(""npiv-off>(m-1)*abs(inc)"") failed for " "hidden m", m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 101795 | /* Processing variable k2 */ | |||
| 101796 | if (k2_capi == Py_None(&_Py_NoneStruct)) k2 = npiv-1; else | |||
| 101797 | f2py_success = int_from_pyobj(&k2,k2_capi,"_flapack.claswp() 2nd keyword (k2) can't be converted to int"); | |||
| 101798 | if (f2py_success) { | |||
| 101799 | CHECKSCALAR(k1<=k2 && k2<npiv-off,"k1<=k2 && k2<npiv-off","2nd keyword k2","claswp:k2=%d",k2)if (!(k1<=k2 && k2<npiv-off)) { char errstring[ 256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""claswp:k2=%d", "(""k1<=k2 && k2<npiv-off" ") failed for ""2nd keyword k2", k2); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 101800 | /*end of frompyobj*/ | |||
| 101801 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101802 | f2py_start_call_clock(); | |||
| 101803 | #endif | |||
| 101804 | /*callfortranroutine*/ | |||
| 101805 | {F_INTint i;m=len(piv)piv_Dims[0];for(i=0;i<m;++piv[i++]);++k1;++k2; (*f2py_func)(&n,a,&nrows,&k1,&k2,piv+off,&inc); for(i=0;i<m;--piv[i++]);} ; | |||
| 101806 | /*(*f2py_func)(&n,a,&nrows,&k1,&k2,piv,&off,&inc,&m,&npiv);*/ | |||
| 101807 | if (PyErr_Occurred()) | |||
| 101808 | f2py_success = 0; | |||
| 101809 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101810 | f2py_stop_call_clock(); | |||
| 101811 | #endif | |||
| 101812 | /*end of callfortranroutine*/ | |||
| 101813 | if (f2py_success) { | |||
| 101814 | /*pyobjfrom*/ | |||
| 101815 | /*end of pyobjfrom*/ | |||
| 101816 | CFUNCSMESS("Building return value.\n"); | |||
| 101817 | capi_buildvalue = Py_BuildValue("N",capi_a_tmp); | |||
| 101818 | /*closepyobjfrom*/ | |||
| 101819 | /*end of closepyobjfrom*/ | |||
| 101820 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 101821 | /*cleanupfrompyobj*/ | |||
| 101822 | } /*CHECKSCALAR(k1<=k2 && k2<npiv-off)*/ | |||
| 101823 | } /*if (f2py_success) of k2*/ | |||
| 101824 | /* End of cleaning variable k2 */ | |||
| 101825 | } /*CHECKSCALAR(npiv-off>(m-1)*abs(inc))*/ | |||
| 101826 | /* End of cleaning variable m */ | |||
| 101827 | } /*CHECKSCALAR(off>=0 && off<len(piv))*/ | |||
| 101828 | } /*if (f2py_success) of off*/ | |||
| 101829 | /* End of cleaning variable off */ | |||
| 101830 | } /*CHECKSCALAR(npiv<=nrows)*/ | |||
| 101831 | /* End of cleaning variable npiv */ | |||
| 101832 | /* End of cleaning variable n */ | |||
| 101833 | /* End of cleaning variable nrows */ | |||
| 101834 | } /*CHECKSCALAR(inc>0||inc<0)*/ | |||
| 101835 | } /*if (f2py_success) of inc*/ | |||
| 101836 | /* End of cleaning variable inc */ | |||
| 101837 | } /*CHECKSCALAR(0<=k1)*/ | |||
| 101838 | } /*if (f2py_success) of k1*/ | |||
| 101839 | /* End of cleaning variable k1 */ | |||
| 101840 | if((PyObject *)capi_piv_tmp!=piv_capi) { | |||
| 101841 | Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); } | |||
| 101842 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 101843 | /* End of cleaning variable piv */ | |||
| 101844 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 101845 | /* End of cleaning variable a */ | |||
| 101846 | /*end of cleanupfrompyobj*/ | |||
| 101847 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 101848 | /*routdebugfailure*/ | |||
| 101849 | } else { | |||
| 101850 | /*routdebugleave*/ | |||
| 101851 | } | |||
| 101852 | CFUNCSMESS("Freeing memory.\n"); | |||
| 101853 | /*freemem*/ | |||
| 101854 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101855 | f2py_stop_clock(); | |||
| 101856 | #endif | |||
| 101857 | return capi_buildvalue; | |||
| 101858 | } | |||
| 101859 | /******************************* end of claswp *******************************/ | |||
| 101860 | ||||
| 101861 | /*********************************** zlaswp ***********************************/ | |||
| 101862 | static char doc_f2py_rout__flapack_zlaswp[] = "\ | |||
| 101863 | a = zlaswp(a,piv,[k1,k2,off,inc,overwrite_a])\n\nWrapper for ``zlaswp``.\ | |||
| 101864 | \n\nParameters\n----------\n" | |||
| 101865 | "a : input rank-2 array('D') with bounds (nrows,n)\n" | |||
| 101866 | "piv : input rank-1 array('i') with bounds (npiv)\n" | |||
| 101867 | "\nOther Parameters\n----------------\n" | |||
| 101868 | "overwrite_a : input int, optional\n Default: 0\n" | |||
| 101869 | "k1 : input int, optional\n Default: 0\n" | |||
| 101870 | "k2 : input int, optional\n Default: npiv-1\n" | |||
| 101871 | "off : input int, optional\n Default: 0\n" | |||
| 101872 | "inc : input int, optional\n Default: 1\n" | |||
| 101873 | "\nReturns\n-------\n" | |||
| 101874 | "a : rank-2 array('D') with bounds (nrows,n)"; | |||
| 101875 | /* extern void F_FUNC(zlaswp,ZLASWP)(F_INT*,complex_double*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT* ); */ | |||
| 101876 | static PyObject *f2py_rout__flapack_zlaswp(const PyObject *capi_self, | |||
| 101877 | PyObject *capi_args, | |||
| 101878 | PyObject *capi_keywds, | |||
| 101879 | void (*f2py_func)(F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) { | |||
| 101880 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 101881 | volatile int f2py_success = 1; | |||
| 101882 | /*decl*/ | |||
| 101883 | ||||
| 101884 | int n = 0; | |||
| 101885 | complex_double *a = NULL((void*)0); | |||
| 101886 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 101887 | const int a_Rank = 2; | |||
| 101888 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 101889 | int capi_a_intent = 0; | |||
| 101890 | int capi_overwrite_a = 0; | |||
| 101891 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 101892 | int nrows = 0; | |||
| 101893 | int k1 = 0; | |||
| 101894 | PyObject *k1_capi = Py_None(&_Py_NoneStruct); | |||
| 101895 | int k2 = 0; | |||
| 101896 | PyObject *k2_capi = Py_None(&_Py_NoneStruct); | |||
| 101897 | int *piv = NULL((void*)0); | |||
| 101898 | npy_intp piv_Dims[1] = {-1}; | |||
| 101899 | const int piv_Rank = 1; | |||
| 101900 | PyArrayObject *capi_piv_tmp = NULL((void*)0); | |||
| 101901 | int capi_piv_intent = 0; | |||
| 101902 | PyObject *piv_capi = Py_None(&_Py_NoneStruct); | |||
| 101903 | int off = 0; | |||
| 101904 | PyObject *off_capi = Py_None(&_Py_NoneStruct); | |||
| 101905 | int inc = 0; | |||
| 101906 | PyObject *inc_capi = Py_None(&_Py_NoneStruct); | |||
| 101907 | int m = 0; | |||
| 101908 | int npiv = 0; | |||
| 101909 | static char *capi_kwlist[] = {"a","piv","k1","k2","off","inc","overwrite_a",NULL((void*)0)}; | |||
| 101910 | ||||
| 101911 | /*routdebugenter*/ | |||
| 101912 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101913 | f2py_start_clock(); | |||
| 101914 | #endif | |||
| 101915 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 101916 | "OO|OOOOi:_flapack.zlaswp",\ | |||
| 101917 | capi_kwlist,&a_capi,&piv_capi,&k1_capi,&k2_capi,&off_capi,&inc_capi,&capi_overwrite_a)) | |||
| 101918 | return NULL((void*)0); | |||
| 101919 | /*frompyobj*/ | |||
| 101920 | /* Processing variable a */ | |||
| 101921 | capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32); | |||
| 101922 | ; | |||
| 101923 | capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 101924 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 101925 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 101926 | if (!PyErr_Occurred()) | |||
| 101927 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zlaswp to C/Fortran array" ); | |||
| 101928 | } else { | |||
| 101929 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 101930 | ||||
| 101931 | /* Processing variable piv */ | |||
| 101932 | ; | |||
| 101933 | capi_piv_intent |= F2PY_INTENT_IN1; | |||
| 101934 | capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi); | |||
| 101935 | if (capi_piv_tmp == NULL((void*)0)) { | |||
| 101936 | if (!PyErr_Occurred()) | |||
| 101937 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.zlaswp to C/Fortran array" ); | |||
| 101938 | } else { | |||
| 101939 | piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data)); | |||
| 101940 | ||||
| 101941 | /* Processing variable k1 */ | |||
| 101942 | if (k1_capi == Py_None(&_Py_NoneStruct)) k1 = 0; else | |||
| 101943 | f2py_success = int_from_pyobj(&k1,k1_capi,"_flapack.zlaswp() 1st keyword (k1) can't be converted to int"); | |||
| 101944 | if (f2py_success) { | |||
| 101945 | CHECKSCALAR(0<=k1,"0<=k1","1st keyword k1","zlaswp:k1=%d",k1)if (!(0<=k1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zlaswp:k1=%d", "(""0<=k1"") failed for ""1st keyword k1" , k1); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 101946 | /* Processing variable inc */ | |||
| 101947 | if (inc_capi == Py_None(&_Py_NoneStruct)) inc = 1; else | |||
| 101948 | f2py_success = int_from_pyobj(&inc,inc_capi,"_flapack.zlaswp() 4th keyword (inc) can't be converted to int"); | |||
| 101949 | if (f2py_success) { | |||
| 101950 | CHECKSCALAR(inc>0||inc<0,"inc>0||inc<0","4th keyword inc","zlaswp:inc=%d",inc)if (!(inc>0||inc<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zlaswp:inc=%d", "(""inc>0||inc<0"") failed for " "4th keyword inc", inc); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 101951 | /* Processing variable nrows */ | |||
| 101952 | nrows = shape(a,0)a_Dims[0]; | |||
| 101953 | /* Processing variable n */ | |||
| 101954 | n = shape(a,1)a_Dims[1]; | |||
| 101955 | /* Processing variable npiv */ | |||
| 101956 | npiv = len(piv)piv_Dims[0]; | |||
| 101957 | CHECKSCALAR(npiv<=nrows,"npiv<=nrows","hidden npiv","zlaswp:npiv=%d",npiv)if (!(npiv<=nrows)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zlaswp:npiv=%d", "(""npiv<=nrows"") failed for " "hidden npiv", npiv); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 101958 | /* Processing variable off */ | |||
| 101959 | if (off_capi == Py_None(&_Py_NoneStruct)) off = 0; else | |||
| 101960 | f2py_success = int_from_pyobj(&off,off_capi,"_flapack.zlaswp() 3rd keyword (off) can't be converted to int"); | |||
| 101961 | if (f2py_success) { | |||
| 101962 | CHECKSCALAR(off>=0 && off<len(piv),"off>=0 && off<len(piv)","3rd keyword off","zlaswp:off=%d",off)if (!(off>=0 && off<piv_Dims[0])) { char errstring [256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zlaswp:off=%d", "(""off>=0 && off<len(piv)" ") failed for ""3rd keyword off", off); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 101963 | /* Processing variable m */ | |||
| 101964 | m = (len(piv)piv_Dims[0]-off)/abs(inc); | |||
| 101965 | CHECKSCALAR(npiv-off>(m-1)*abs(inc),"npiv-off>(m-1)*abs(inc)","hidden m","zlaswp:m=%d",m)if (!(npiv-off>(m-1)*abs(inc))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zlaswp:m=%d", "(""npiv-off>(m-1)*abs(inc)"") failed for " "hidden m", m); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 101966 | /* Processing variable k2 */ | |||
| 101967 | if (k2_capi == Py_None(&_Py_NoneStruct)) k2 = npiv-1; else | |||
| 101968 | f2py_success = int_from_pyobj(&k2,k2_capi,"_flapack.zlaswp() 2nd keyword (k2) can't be converted to int"); | |||
| 101969 | if (f2py_success) { | |||
| 101970 | CHECKSCALAR(k1<=k2 && k2<npiv-off,"k1<=k2 && k2<npiv-off","2nd keyword k2","zlaswp:k2=%d",k2)if (!(k1<=k2 && k2<npiv-off)) { char errstring[ 256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zlaswp:k2=%d", "(""k1<=k2 && k2<npiv-off" ") failed for ""2nd keyword k2", k2); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 101971 | /*end of frompyobj*/ | |||
| 101972 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101973 | f2py_start_call_clock(); | |||
| 101974 | #endif | |||
| 101975 | /*callfortranroutine*/ | |||
| 101976 | {F_INTint i;m=len(piv)piv_Dims[0];for(i=0;i<m;++piv[i++]);++k1;++k2; (*f2py_func)(&n,a,&nrows,&k1,&k2,piv+off,&inc); for(i=0;i<m;--piv[i++]);} ; | |||
| 101977 | /*(*f2py_func)(&n,a,&nrows,&k1,&k2,piv,&off,&inc,&m,&npiv);*/ | |||
| 101978 | if (PyErr_Occurred()) | |||
| 101979 | f2py_success = 0; | |||
| 101980 | #ifdef F2PY_REPORT_ATEXIT | |||
| 101981 | f2py_stop_call_clock(); | |||
| 101982 | #endif | |||
| 101983 | /*end of callfortranroutine*/ | |||
| 101984 | if (f2py_success) { | |||
| 101985 | /*pyobjfrom*/ | |||
| 101986 | /*end of pyobjfrom*/ | |||
| 101987 | CFUNCSMESS("Building return value.\n"); | |||
| 101988 | capi_buildvalue = Py_BuildValue("N",capi_a_tmp); | |||
| 101989 | /*closepyobjfrom*/ | |||
| 101990 | /*end of closepyobjfrom*/ | |||
| 101991 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 101992 | /*cleanupfrompyobj*/ | |||
| 101993 | } /*CHECKSCALAR(k1<=k2 && k2<npiv-off)*/ | |||
| 101994 | } /*if (f2py_success) of k2*/ | |||
| 101995 | /* End of cleaning variable k2 */ | |||
| 101996 | } /*CHECKSCALAR(npiv-off>(m-1)*abs(inc))*/ | |||
| 101997 | /* End of cleaning variable m */ | |||
| 101998 | } /*CHECKSCALAR(off>=0 && off<len(piv))*/ | |||
| 101999 | } /*if (f2py_success) of off*/ | |||
| 102000 | /* End of cleaning variable off */ | |||
| 102001 | } /*CHECKSCALAR(npiv<=nrows)*/ | |||
| 102002 | /* End of cleaning variable npiv */ | |||
| 102003 | /* End of cleaning variable n */ | |||
| 102004 | /* End of cleaning variable nrows */ | |||
| 102005 | } /*CHECKSCALAR(inc>0||inc<0)*/ | |||
| 102006 | } /*if (f2py_success) of inc*/ | |||
| 102007 | /* End of cleaning variable inc */ | |||
| 102008 | } /*CHECKSCALAR(0<=k1)*/ | |||
| 102009 | } /*if (f2py_success) of k1*/ | |||
| 102010 | /* End of cleaning variable k1 */ | |||
| 102011 | if((PyObject *)capi_piv_tmp!=piv_capi) { | |||
| 102012 | Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); } | |||
| 102013 | } /*if (capi_piv_tmp == NULL) ... else of piv*/ | |||
| 102014 | /* End of cleaning variable piv */ | |||
| 102015 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 102016 | /* End of cleaning variable a */ | |||
| 102017 | /*end of cleanupfrompyobj*/ | |||
| 102018 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 102019 | /*routdebugfailure*/ | |||
| 102020 | } else { | |||
| 102021 | /*routdebugleave*/ | |||
| 102022 | } | |||
| 102023 | CFUNCSMESS("Freeing memory.\n"); | |||
| 102024 | /*freemem*/ | |||
| 102025 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102026 | f2py_stop_clock(); | |||
| 102027 | #endif | |||
| 102028 | return capi_buildvalue; | |||
| 102029 | } | |||
| 102030 | /******************************* end of zlaswp *******************************/ | |||
| 102031 | ||||
| 102032 | /*********************************** dlamch ***********************************/ | |||
| 102033 | static char doc_f2py_rout__flapack_dlamch[] = "\ | |||
| 102034 | dlamch = dlamch(cmach)\n\nWrapper for ``dlamch``.\ | |||
| 102035 | \n\nParameters\n----------\n" | |||
| 102036 | "cmach : input string(len=1)\n" | |||
| 102037 | "\nReturns\n-------\n" | |||
| 102038 | "dlamch : float"; | |||
| 102039 | /* extern void F_WRAPPEDFUNC(dlamch,DLAMCH)(double*,string,size_t); */ | |||
| 102040 | static PyObject *f2py_rout__flapack_dlamch(const PyObject *capi_self, | |||
| 102041 | PyObject *capi_args, | |||
| 102042 | PyObject *capi_keywds, | |||
| 102043 | void (*f2py_func)(double*,string,size_t)) { | |||
| 102044 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 102045 | volatile int f2py_success = 1; | |||
| 102046 | /*decl*/ | |||
| 102047 | ||||
| 102048 | double dlamch = 0; | |||
| 102049 | string cmach = NULL((void*)0); | |||
| 102050 | int slen(cmach)capi_cmach_len; | |||
| 102051 | PyObject *cmach_capi = Py_None(&_Py_NoneStruct); | |||
| 102052 | static char *capi_kwlist[] = {"cmach",NULL((void*)0)}; | |||
| 102053 | ||||
| 102054 | /*routdebugenter*/ | |||
| 102055 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102056 | f2py_start_clock(); | |||
| 102057 | #endif | |||
| 102058 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 102059 | "O:_flapack.dlamch",\ | |||
| 102060 | capi_kwlist,&cmach_capi)) | |||
| 102061 | return NULL((void*)0); | |||
| 102062 | /*frompyobj*/ | |||
| 102063 | /* Processing variable cmach */ | |||
| 102064 | slen(cmach)capi_cmach_len = 1; | |||
| 102065 | f2py_success = string_from_pyobj(&cmach,&slen(cmach)capi_cmach_len,"",cmach_capi,"string_from_pyobj failed in converting 1st argument `cmach' of _flapack.dlamch to C string"); | |||
| 102066 | if (f2py_success) { | |||
| 102067 | /* Processing variable dlamch */ | |||
| 102068 | /*end of frompyobj*/ | |||
| 102069 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102070 | f2py_start_call_clock(); | |||
| 102071 | #endif | |||
| 102072 | /*callfortranroutine*/ | |||
| 102073 | (*f2py_func)(&dlamch,cmach,slen(cmach)capi_cmach_len); | |||
| 102074 | if (PyErr_Occurred()) | |||
| 102075 | f2py_success = 0; | |||
| 102076 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102077 | f2py_stop_call_clock(); | |||
| 102078 | #endif | |||
| 102079 | /*end of callfortranroutine*/ | |||
| 102080 | if (f2py_success) { | |||
| 102081 | /*pyobjfrom*/ | |||
| 102082 | /*end of pyobjfrom*/ | |||
| 102083 | CFUNCSMESS("Building return value.\n"); | |||
| 102084 | capi_buildvalue = Py_BuildValue("d",dlamch); | |||
| 102085 | /*closepyobjfrom*/ | |||
| 102086 | /*end of closepyobjfrom*/ | |||
| 102087 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 102088 | /*cleanupfrompyobj*/ | |||
| 102089 | /* End of cleaning variable dlamch */ | |||
| 102090 | STRINGFREE(cmach)do {if (!(cmach == ((void*)0))) free(cmach);} while (0); | |||
| 102091 | } /*if (f2py_success) of cmach*/ | |||
| 102092 | /* End of cleaning variable cmach */ | |||
| 102093 | /*end of cleanupfrompyobj*/ | |||
| 102094 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 102095 | /*routdebugfailure*/ | |||
| 102096 | } else { | |||
| 102097 | /*routdebugleave*/ | |||
| 102098 | } | |||
| 102099 | CFUNCSMESS("Freeing memory.\n"); | |||
| 102100 | /*freemem*/ | |||
| 102101 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102102 | f2py_stop_clock(); | |||
| 102103 | #endif | |||
| 102104 | return capi_buildvalue; | |||
| 102105 | } | |||
| 102106 | /******************************* end of dlamch *******************************/ | |||
| 102107 | ||||
| 102108 | /*********************************** slamch ***********************************/ | |||
| 102109 | static char doc_f2py_rout__flapack_slamch[] = "\ | |||
| 102110 | slamch = slamch(cmach)\n\nWrapper for ``slamch``.\ | |||
| 102111 | \n\nParameters\n----------\n" | |||
| 102112 | "cmach : input string(len=1)\n" | |||
| 102113 | "\nReturns\n-------\n" | |||
| 102114 | "slamch : float"; | |||
| 102115 | /* extern void F_WRAPPEDFUNC(slamch,SLAMCH)(float*,string,size_t); */ | |||
| 102116 | static PyObject *f2py_rout__flapack_slamch(const PyObject *capi_self, | |||
| 102117 | PyObject *capi_args, | |||
| 102118 | PyObject *capi_keywds, | |||
| 102119 | void (*f2py_func)(float*,string,size_t)) { | |||
| 102120 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 102121 | volatile int f2py_success = 1; | |||
| 102122 | /*decl*/ | |||
| 102123 | ||||
| 102124 | float slamch = 0; | |||
| 102125 | string cmach = NULL((void*)0); | |||
| 102126 | int slen(cmach)capi_cmach_len; | |||
| 102127 | PyObject *cmach_capi = Py_None(&_Py_NoneStruct); | |||
| 102128 | static char *capi_kwlist[] = {"cmach",NULL((void*)0)}; | |||
| 102129 | ||||
| 102130 | /*routdebugenter*/ | |||
| 102131 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102132 | f2py_start_clock(); | |||
| 102133 | #endif | |||
| 102134 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 102135 | "O:_flapack.slamch",\ | |||
| 102136 | capi_kwlist,&cmach_capi)) | |||
| 102137 | return NULL((void*)0); | |||
| 102138 | /*frompyobj*/ | |||
| 102139 | /* Processing variable cmach */ | |||
| 102140 | slen(cmach)capi_cmach_len = 1; | |||
| 102141 | f2py_success = string_from_pyobj(&cmach,&slen(cmach)capi_cmach_len,"",cmach_capi,"string_from_pyobj failed in converting 1st argument `cmach' of _flapack.slamch to C string"); | |||
| 102142 | if (f2py_success) { | |||
| 102143 | /* Processing variable slamch */ | |||
| 102144 | /*end of frompyobj*/ | |||
| 102145 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102146 | f2py_start_call_clock(); | |||
| 102147 | #endif | |||
| 102148 | /*callfortranroutine*/ | |||
| 102149 | (*f2py_func)(&slamch,cmach,slen(cmach)capi_cmach_len); | |||
| 102150 | if (PyErr_Occurred()) | |||
| 102151 | f2py_success = 0; | |||
| 102152 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102153 | f2py_stop_call_clock(); | |||
| 102154 | #endif | |||
| 102155 | /*end of callfortranroutine*/ | |||
| 102156 | if (f2py_success) { | |||
| 102157 | /*pyobjfrom*/ | |||
| 102158 | /*end of pyobjfrom*/ | |||
| 102159 | CFUNCSMESS("Building return value.\n"); | |||
| 102160 | capi_buildvalue = Py_BuildValue("f",slamch); | |||
| 102161 | /*closepyobjfrom*/ | |||
| 102162 | /*end of closepyobjfrom*/ | |||
| 102163 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 102164 | /*cleanupfrompyobj*/ | |||
| 102165 | /* End of cleaning variable slamch */ | |||
| 102166 | STRINGFREE(cmach)do {if (!(cmach == ((void*)0))) free(cmach);} while (0); | |||
| 102167 | } /*if (f2py_success) of cmach*/ | |||
| 102168 | /* End of cleaning variable cmach */ | |||
| 102169 | /*end of cleanupfrompyobj*/ | |||
| 102170 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 102171 | /*routdebugfailure*/ | |||
| 102172 | } else { | |||
| 102173 | /*routdebugleave*/ | |||
| 102174 | } | |||
| 102175 | CFUNCSMESS("Freeing memory.\n"); | |||
| 102176 | /*freemem*/ | |||
| 102177 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102178 | f2py_stop_clock(); | |||
| 102179 | #endif | |||
| 102180 | return capi_buildvalue; | |||
| 102181 | } | |||
| 102182 | /******************************* end of slamch *******************************/ | |||
| 102183 | ||||
| 102184 | /*********************************** slange ***********************************/ | |||
| 102185 | static char doc_f2py_rout__flapack_slange[] = "\ | |||
| 102186 | n2 = slange(norm,a)\n\nWrapper for ``slange``.\ | |||
| 102187 | \n\nParameters\n----------\n" | |||
| 102188 | "norm : input string(len=1)\n" | |||
| 102189 | "a : input rank-2 array('f') with bounds (m,n)\n" | |||
| 102190 | "\nReturns\n-------\n" | |||
| 102191 | "n2 : float"; | |||
| 102192 | /* extern void F_WRAPPEDFUNC(slange,SLANGE)(float*,char*,F_INT*,F_INT*,float*,F_INT*,float* ); */ | |||
| 102193 | static PyObject *f2py_rout__flapack_slange(const PyObject *capi_self, | |||
| 102194 | PyObject *capi_args, | |||
| 102195 | PyObject *capi_keywds, | |||
| 102196 | void (*f2py_func)(float*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float* )) { | |||
| 102197 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 102198 | volatile int f2py_success = 1; | |||
| 102199 | /*decl*/ | |||
| 102200 | ||||
| 102201 | float slange = 0; | |||
| 102202 | string norm = NULL((void*)0); | |||
| 102203 | int slen(norm)capi_norm_len; | |||
| 102204 | PyObject *norm_capi = Py_None(&_Py_NoneStruct); | |||
| 102205 | int m = 0; | |||
| 102206 | int n = 0; | |||
| 102207 | float *a = NULL((void*)0); | |||
| 102208 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 102209 | const int a_Rank = 2; | |||
| 102210 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 102211 | int capi_a_intent = 0; | |||
| 102212 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 102213 | int lda = 0; | |||
| 102214 | float *work = NULL((void*)0); | |||
| 102215 | npy_intp work_Dims[1] = {-1}; | |||
| 102216 | const int work_Rank = 1; | |||
| 102217 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 102218 | int capi_work_intent = 0; | |||
| 102219 | static char *capi_kwlist[] = {"norm","a",NULL((void*)0)}; | |||
| 102220 | ||||
| 102221 | /*routdebugenter*/ | |||
| 102222 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102223 | f2py_start_clock(); | |||
| 102224 | #endif | |||
| 102225 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 102226 | "OO:_flapack.slange",\ | |||
| 102227 | capi_kwlist,&norm_capi,&a_capi)) | |||
| 102228 | return NULL((void*)0); | |||
| 102229 | /*frompyobj*/ | |||
| 102230 | /* Processing variable norm */ | |||
| 102231 | slen(norm)capi_norm_len = 1; | |||
| 102232 | f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"",norm_capi,"string_from_pyobj failed in converting 1st argument `norm' of _flapack.slange to C string"); | |||
| 102233 | if (f2py_success) { | |||
| 102234 | CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e',"*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'","1st argument norm","slange:slen(norm)=%d norm=\"%s\"",norm)if (!(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm== 'o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E' ||*norm=='e')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""slange:slen(norm)=%d norm=\"%s\"", "(""*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'" ") failed for ""1st argument norm", capi_norm_len, norm); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 102235 | /* Processing variable a */ | |||
| 102236 | ; | |||
| 102237 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 102238 | capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 102239 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 102240 | if (!PyErr_Occurred()) | |||
| 102241 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.slange to C/Fortran array" ); | |||
| 102242 | } else { | |||
| 102243 | a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 102244 | ||||
| 102245 | /* Processing variable n */ | |||
| 102246 | n = shape(a,1)a_Dims[1]; | |||
| 102247 | /* Processing variable m */ | |||
| 102248 | m = shape(a,0)a_Dims[0]; | |||
| 102249 | /* Processing variable lda */ | |||
| 102250 | lda = max(1,m)((1 > m) ? (1) : (m)); | |||
| 102251 | /* Processing variable work */ | |||
| 102252 | work_Dims[0]=m + 1; | |||
| 102253 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 102254 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 102255 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 102256 | if (!PyErr_Occurred()) | |||
| 102257 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.slange to C/Fortran array" ); | |||
| 102258 | } else { | |||
| 102259 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 102260 | ||||
| 102261 | /* Processing variable slange */ | |||
| 102262 | /*end of frompyobj*/ | |||
| 102263 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102264 | f2py_start_call_clock(); | |||
| 102265 | #endif | |||
| 102266 | /*callfortranroutine*/ | |||
| 102267 | (*f2py_func)(&slange,norm,&m,&n,a,&lda,work) ; | |||
| 102268 | /*(*f2py_func)(&slange,norm,&m,&n,a,&lda,work,slen(norm));*/ | |||
| 102269 | if (PyErr_Occurred()) | |||
| 102270 | f2py_success = 0; | |||
| 102271 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102272 | f2py_stop_call_clock(); | |||
| 102273 | #endif | |||
| 102274 | /*end of callfortranroutine*/ | |||
| 102275 | if (f2py_success) { | |||
| 102276 | /*pyobjfrom*/ | |||
| 102277 | /*end of pyobjfrom*/ | |||
| 102278 | CFUNCSMESS("Building return value.\n"); | |||
| 102279 | capi_buildvalue = Py_BuildValue("f",slange); | |||
| 102280 | /*closepyobjfrom*/ | |||
| 102281 | /*end of closepyobjfrom*/ | |||
| 102282 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 102283 | /*cleanupfrompyobj*/ | |||
| 102284 | /* End of cleaning variable slange */ | |||
| 102285 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 102286 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 102287 | /* End of cleaning variable work */ | |||
| 102288 | /* End of cleaning variable lda */ | |||
| 102289 | /* End of cleaning variable m */ | |||
| 102290 | /* End of cleaning variable n */ | |||
| 102291 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 102292 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 102293 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 102294 | /* End of cleaning variable a */ | |||
| 102295 | } /*CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e')*/ | |||
| 102296 | STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0); | |||
| 102297 | } /*if (f2py_success) of norm*/ | |||
| 102298 | /* End of cleaning variable norm */ | |||
| 102299 | /*end of cleanupfrompyobj*/ | |||
| 102300 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 102301 | /*routdebugfailure*/ | |||
| 102302 | } else { | |||
| 102303 | /*routdebugleave*/ | |||
| 102304 | } | |||
| 102305 | CFUNCSMESS("Freeing memory.\n"); | |||
| 102306 | /*freemem*/ | |||
| 102307 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102308 | f2py_stop_clock(); | |||
| 102309 | #endif | |||
| 102310 | return capi_buildvalue; | |||
| 102311 | } | |||
| 102312 | /******************************* end of slange *******************************/ | |||
| 102313 | ||||
| 102314 | /*********************************** dlange ***********************************/ | |||
| 102315 | static char doc_f2py_rout__flapack_dlange[] = "\ | |||
| 102316 | n2 = dlange(norm,a)\n\nWrapper for ``dlange``.\ | |||
| 102317 | \n\nParameters\n----------\n" | |||
| 102318 | "norm : input string(len=1)\n" | |||
| 102319 | "a : input rank-2 array('d') with bounds (m,n)\n" | |||
| 102320 | "\nReturns\n-------\n" | |||
| 102321 | "n2 : float"; | |||
| 102322 | /* extern void F_WRAPPEDFUNC(dlange,DLANGE)(double*,char*,F_INT*,F_INT*,double*,F_INT*,double* ); */ | |||
| 102323 | static PyObject *f2py_rout__flapack_dlange(const PyObject *capi_self, | |||
| 102324 | PyObject *capi_args, | |||
| 102325 | PyObject *capi_keywds, | |||
| 102326 | void (*f2py_func)(double*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double* )) { | |||
| 102327 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 102328 | volatile int f2py_success = 1; | |||
| 102329 | /*decl*/ | |||
| 102330 | ||||
| 102331 | double dlange = 0; | |||
| 102332 | string norm = NULL((void*)0); | |||
| 102333 | int slen(norm)capi_norm_len; | |||
| 102334 | PyObject *norm_capi = Py_None(&_Py_NoneStruct); | |||
| 102335 | int m = 0; | |||
| 102336 | int n = 0; | |||
| 102337 | double *a = NULL((void*)0); | |||
| 102338 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 102339 | const int a_Rank = 2; | |||
| 102340 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 102341 | int capi_a_intent = 0; | |||
| 102342 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 102343 | int lda = 0; | |||
| 102344 | double *work = NULL((void*)0); | |||
| 102345 | npy_intp work_Dims[1] = {-1}; | |||
| 102346 | const int work_Rank = 1; | |||
| 102347 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 102348 | int capi_work_intent = 0; | |||
| 102349 | static char *capi_kwlist[] = {"norm","a",NULL((void*)0)}; | |||
| 102350 | ||||
| 102351 | /*routdebugenter*/ | |||
| 102352 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102353 | f2py_start_clock(); | |||
| 102354 | #endif | |||
| 102355 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 102356 | "OO:_flapack.dlange",\ | |||
| 102357 | capi_kwlist,&norm_capi,&a_capi)) | |||
| 102358 | return NULL((void*)0); | |||
| 102359 | /*frompyobj*/ | |||
| 102360 | /* Processing variable norm */ | |||
| 102361 | slen(norm)capi_norm_len = 1; | |||
| 102362 | f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"",norm_capi,"string_from_pyobj failed in converting 1st argument `norm' of _flapack.dlange to C string"); | |||
| 102363 | if (f2py_success) { | |||
| 102364 | CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e',"*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'","1st argument norm","dlange:slen(norm)=%d norm=\"%s\"",norm)if (!(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm== 'o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E' ||*norm=='e')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dlange:slen(norm)=%d norm=\"%s\"", "(""*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'" ") failed for ""1st argument norm", capi_norm_len, norm); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 102365 | /* Processing variable a */ | |||
| 102366 | ; | |||
| 102367 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 102368 | capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 102369 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 102370 | if (!PyErr_Occurred()) | |||
| 102371 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dlange to C/Fortran array" ); | |||
| 102372 | } else { | |||
| 102373 | a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 102374 | ||||
| 102375 | /* Processing variable n */ | |||
| 102376 | n = shape(a,1)a_Dims[1]; | |||
| 102377 | /* Processing variable m */ | |||
| 102378 | m = shape(a,0)a_Dims[0]; | |||
| 102379 | /* Processing variable lda */ | |||
| 102380 | lda = max(1,m)((1 > m) ? (1) : (m)); | |||
| 102381 | /* Processing variable work */ | |||
| 102382 | work_Dims[0]=m + 1; | |||
| 102383 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 102384 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 102385 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 102386 | if (!PyErr_Occurred()) | |||
| 102387 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dlange to C/Fortran array" ); | |||
| 102388 | } else { | |||
| 102389 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 102390 | ||||
| 102391 | /* Processing variable dlange */ | |||
| 102392 | /*end of frompyobj*/ | |||
| 102393 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102394 | f2py_start_call_clock(); | |||
| 102395 | #endif | |||
| 102396 | /*callfortranroutine*/ | |||
| 102397 | (*f2py_func)(&dlange,norm,&m,&n,a,&lda,work) ; | |||
| 102398 | /*(*f2py_func)(&dlange,norm,&m,&n,a,&lda,work,slen(norm));*/ | |||
| 102399 | if (PyErr_Occurred()) | |||
| 102400 | f2py_success = 0; | |||
| 102401 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102402 | f2py_stop_call_clock(); | |||
| 102403 | #endif | |||
| 102404 | /*end of callfortranroutine*/ | |||
| 102405 | if (f2py_success) { | |||
| 102406 | /*pyobjfrom*/ | |||
| 102407 | /*end of pyobjfrom*/ | |||
| 102408 | CFUNCSMESS("Building return value.\n"); | |||
| 102409 | capi_buildvalue = Py_BuildValue("d",dlange); | |||
| 102410 | /*closepyobjfrom*/ | |||
| 102411 | /*end of closepyobjfrom*/ | |||
| 102412 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 102413 | /*cleanupfrompyobj*/ | |||
| 102414 | /* End of cleaning variable dlange */ | |||
| 102415 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 102416 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 102417 | /* End of cleaning variable work */ | |||
| 102418 | /* End of cleaning variable lda */ | |||
| 102419 | /* End of cleaning variable m */ | |||
| 102420 | /* End of cleaning variable n */ | |||
| 102421 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 102422 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 102423 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 102424 | /* End of cleaning variable a */ | |||
| 102425 | } /*CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e')*/ | |||
| 102426 | STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0); | |||
| 102427 | } /*if (f2py_success) of norm*/ | |||
| 102428 | /* End of cleaning variable norm */ | |||
| 102429 | /*end of cleanupfrompyobj*/ | |||
| 102430 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 102431 | /*routdebugfailure*/ | |||
| 102432 | } else { | |||
| 102433 | /*routdebugleave*/ | |||
| 102434 | } | |||
| 102435 | CFUNCSMESS("Freeing memory.\n"); | |||
| 102436 | /*freemem*/ | |||
| 102437 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102438 | f2py_stop_clock(); | |||
| 102439 | #endif | |||
| 102440 | return capi_buildvalue; | |||
| 102441 | } | |||
| 102442 | /******************************* end of dlange *******************************/ | |||
| 102443 | ||||
| 102444 | /*********************************** clange ***********************************/ | |||
| 102445 | static char doc_f2py_rout__flapack_clange[] = "\ | |||
| 102446 | n2 = clange(norm,a)\n\nWrapper for ``clange``.\ | |||
| 102447 | \n\nParameters\n----------\n" | |||
| 102448 | "norm : input string(len=1)\n" | |||
| 102449 | "a : input rank-2 array('F') with bounds (m,n)\n" | |||
| 102450 | "\nReturns\n-------\n" | |||
| 102451 | "n2 : float"; | |||
| 102452 | /* extern void F_WRAPPEDFUNC(clange,CLANGE)(float*,char*,F_INT*,F_INT*,complex_float*,F_INT*,float* ); */ | |||
| 102453 | static PyObject *f2py_rout__flapack_clange(const PyObject *capi_self, | |||
| 102454 | PyObject *capi_args, | |||
| 102455 | PyObject *capi_keywds, | |||
| 102456 | void (*f2py_func)(float*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float* )) { | |||
| 102457 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 102458 | volatile int f2py_success = 1; | |||
| 102459 | /*decl*/ | |||
| 102460 | ||||
| 102461 | float clange = 0; | |||
| 102462 | string norm = NULL((void*)0); | |||
| 102463 | int slen(norm)capi_norm_len; | |||
| 102464 | PyObject *norm_capi = Py_None(&_Py_NoneStruct); | |||
| 102465 | int m = 0; | |||
| 102466 | int n = 0; | |||
| 102467 | complex_float *a = NULL((void*)0); | |||
| 102468 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 102469 | const int a_Rank = 2; | |||
| 102470 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 102471 | int capi_a_intent = 0; | |||
| 102472 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 102473 | int lda = 0; | |||
| 102474 | float *work = NULL((void*)0); | |||
| 102475 | npy_intp work_Dims[1] = {-1}; | |||
| 102476 | const int work_Rank = 1; | |||
| 102477 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 102478 | int capi_work_intent = 0; | |||
| 102479 | static char *capi_kwlist[] = {"norm","a",NULL((void*)0)}; | |||
| 102480 | ||||
| 102481 | /*routdebugenter*/ | |||
| 102482 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102483 | f2py_start_clock(); | |||
| 102484 | #endif | |||
| 102485 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 102486 | "OO:_flapack.clange",\ | |||
| 102487 | capi_kwlist,&norm_capi,&a_capi)) | |||
| 102488 | return NULL((void*)0); | |||
| 102489 | /*frompyobj*/ | |||
| 102490 | /* Processing variable norm */ | |||
| 102491 | slen(norm)capi_norm_len = 1; | |||
| 102492 | f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"",norm_capi,"string_from_pyobj failed in converting 1st argument `norm' of _flapack.clange to C string"); | |||
| 102493 | if (f2py_success) { | |||
| 102494 | CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e',"*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'","1st argument norm","clange:slen(norm)=%d norm=\"%s\"",norm)if (!(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm== 'o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E' ||*norm=='e')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""clange:slen(norm)=%d norm=\"%s\"", "(""*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'" ") failed for ""1st argument norm", capi_norm_len, norm); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 102495 | /* Processing variable a */ | |||
| 102496 | ; | |||
| 102497 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 102498 | capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 102499 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 102500 | if (!PyErr_Occurred()) | |||
| 102501 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.clange to C/Fortran array" ); | |||
| 102502 | } else { | |||
| 102503 | a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 102504 | ||||
| 102505 | /* Processing variable n */ | |||
| 102506 | n = shape(a,1)a_Dims[1]; | |||
| 102507 | /* Processing variable m */ | |||
| 102508 | m = shape(a,0)a_Dims[0]; | |||
| 102509 | /* Processing variable lda */ | |||
| 102510 | lda = max(1,m)((1 > m) ? (1) : (m)); | |||
| 102511 | /* Processing variable work */ | |||
| 102512 | work_Dims[0]=m + 1; | |||
| 102513 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 102514 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 102515 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 102516 | if (!PyErr_Occurred()) | |||
| 102517 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.clange to C/Fortran array" ); | |||
| 102518 | } else { | |||
| 102519 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 102520 | ||||
| 102521 | /* Processing variable clange */ | |||
| 102522 | /*end of frompyobj*/ | |||
| 102523 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102524 | f2py_start_call_clock(); | |||
| 102525 | #endif | |||
| 102526 | /*callfortranroutine*/ | |||
| 102527 | (*f2py_func)(&clange,norm,&m,&n,a,&lda,work) ; | |||
| 102528 | /*(*f2py_func)(&clange,norm,&m,&n,a,&lda,work,slen(norm));*/ | |||
| 102529 | if (PyErr_Occurred()) | |||
| 102530 | f2py_success = 0; | |||
| 102531 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102532 | f2py_stop_call_clock(); | |||
| 102533 | #endif | |||
| 102534 | /*end of callfortranroutine*/ | |||
| 102535 | if (f2py_success) { | |||
| 102536 | /*pyobjfrom*/ | |||
| 102537 | /*end of pyobjfrom*/ | |||
| 102538 | CFUNCSMESS("Building return value.\n"); | |||
| 102539 | capi_buildvalue = Py_BuildValue("f",clange); | |||
| 102540 | /*closepyobjfrom*/ | |||
| 102541 | /*end of closepyobjfrom*/ | |||
| 102542 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 102543 | /*cleanupfrompyobj*/ | |||
| 102544 | /* End of cleaning variable clange */ | |||
| 102545 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 102546 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 102547 | /* End of cleaning variable work */ | |||
| 102548 | /* End of cleaning variable lda */ | |||
| 102549 | /* End of cleaning variable m */ | |||
| 102550 | /* End of cleaning variable n */ | |||
| 102551 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 102552 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 102553 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 102554 | /* End of cleaning variable a */ | |||
| 102555 | } /*CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e')*/ | |||
| 102556 | STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0); | |||
| 102557 | } /*if (f2py_success) of norm*/ | |||
| 102558 | /* End of cleaning variable norm */ | |||
| 102559 | /*end of cleanupfrompyobj*/ | |||
| 102560 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 102561 | /*routdebugfailure*/ | |||
| 102562 | } else { | |||
| 102563 | /*routdebugleave*/ | |||
| 102564 | } | |||
| 102565 | CFUNCSMESS("Freeing memory.\n"); | |||
| 102566 | /*freemem*/ | |||
| 102567 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102568 | f2py_stop_clock(); | |||
| 102569 | #endif | |||
| 102570 | return capi_buildvalue; | |||
| 102571 | } | |||
| 102572 | /******************************* end of clange *******************************/ | |||
| 102573 | ||||
| 102574 | /*********************************** zlange ***********************************/ | |||
| 102575 | static char doc_f2py_rout__flapack_zlange[] = "\ | |||
| 102576 | n2 = zlange(norm,a)\n\nWrapper for ``zlange``.\ | |||
| 102577 | \n\nParameters\n----------\n" | |||
| 102578 | "norm : input string(len=1)\n" | |||
| 102579 | "a : input rank-2 array('D') with bounds (m,n)\n" | |||
| 102580 | "\nReturns\n-------\n" | |||
| 102581 | "n2 : float"; | |||
| 102582 | /* extern void F_WRAPPEDFUNC(zlange,ZLANGE)(double*,char*,F_INT*,F_INT*,complex_double*,F_INT*,double* ); */ | |||
| 102583 | static PyObject *f2py_rout__flapack_zlange(const PyObject *capi_self, | |||
| 102584 | PyObject *capi_args, | |||
| 102585 | PyObject *capi_keywds, | |||
| 102586 | void (*f2py_func)(double*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double* )) { | |||
| 102587 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 102588 | volatile int f2py_success = 1; | |||
| 102589 | /*decl*/ | |||
| 102590 | ||||
| 102591 | double zlange = 0; | |||
| 102592 | string norm = NULL((void*)0); | |||
| 102593 | int slen(norm)capi_norm_len; | |||
| 102594 | PyObject *norm_capi = Py_None(&_Py_NoneStruct); | |||
| 102595 | int m = 0; | |||
| 102596 | int n = 0; | |||
| 102597 | complex_double *a = NULL((void*)0); | |||
| 102598 | npy_intp a_Dims[2] = {-1, -1}; | |||
| 102599 | const int a_Rank = 2; | |||
| 102600 | PyArrayObject *capi_a_tmp = NULL((void*)0); | |||
| 102601 | int capi_a_intent = 0; | |||
| 102602 | PyObject *a_capi = Py_None(&_Py_NoneStruct); | |||
| 102603 | int lda = 0; | |||
| 102604 | double *work = NULL((void*)0); | |||
| 102605 | npy_intp work_Dims[1] = {-1}; | |||
| 102606 | const int work_Rank = 1; | |||
| 102607 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 102608 | int capi_work_intent = 0; | |||
| 102609 | static char *capi_kwlist[] = {"norm","a",NULL((void*)0)}; | |||
| 102610 | ||||
| 102611 | /*routdebugenter*/ | |||
| 102612 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102613 | f2py_start_clock(); | |||
| 102614 | #endif | |||
| 102615 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 102616 | "OO:_flapack.zlange",\ | |||
| 102617 | capi_kwlist,&norm_capi,&a_capi)) | |||
| 102618 | return NULL((void*)0); | |||
| 102619 | /*frompyobj*/ | |||
| 102620 | /* Processing variable norm */ | |||
| 102621 | slen(norm)capi_norm_len = 1; | |||
| 102622 | f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"",norm_capi,"string_from_pyobj failed in converting 1st argument `norm' of _flapack.zlange to C string"); | |||
| 102623 | if (f2py_success) { | |||
| 102624 | CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e',"*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'","1st argument norm","zlange:slen(norm)=%d norm=\"%s\"",norm)if (!(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm== 'o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E' ||*norm=='e')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zlange:slen(norm)=%d norm=\"%s\"", "(""*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'" ") failed for ""1st argument norm", capi_norm_len, norm); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 102625 | /* Processing variable a */ | |||
| 102626 | ; | |||
| 102627 | capi_a_intent |= F2PY_INTENT_IN1; | |||
| 102628 | capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi); | |||
| 102629 | if (capi_a_tmp == NULL((void*)0)) { | |||
| 102630 | if (!PyErr_Occurred()) | |||
| 102631 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zlange to C/Fortran array" ); | |||
| 102632 | } else { | |||
| 102633 | a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data)); | |||
| 102634 | ||||
| 102635 | /* Processing variable n */ | |||
| 102636 | n = shape(a,1)a_Dims[1]; | |||
| 102637 | /* Processing variable m */ | |||
| 102638 | m = shape(a,0)a_Dims[0]; | |||
| 102639 | /* Processing variable lda */ | |||
| 102640 | lda = max(1,m)((1 > m) ? (1) : (m)); | |||
| 102641 | /* Processing variable work */ | |||
| 102642 | work_Dims[0]=m + 1; | |||
| 102643 | capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16; | |||
| 102644 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct)); | |||
| 102645 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 102646 | if (!PyErr_Occurred()) | |||
| 102647 | PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zlange to C/Fortran array" ); | |||
| 102648 | } else { | |||
| 102649 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 102650 | ||||
| 102651 | /* Processing variable zlange */ | |||
| 102652 | /*end of frompyobj*/ | |||
| 102653 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102654 | f2py_start_call_clock(); | |||
| 102655 | #endif | |||
| 102656 | /*callfortranroutine*/ | |||
| 102657 | (*f2py_func)(&zlange,norm,&m,&n,a,&lda,work) ; | |||
| 102658 | /*(*f2py_func)(&zlange,norm,&m,&n,a,&lda,work,slen(norm));*/ | |||
| 102659 | if (PyErr_Occurred()) | |||
| 102660 | f2py_success = 0; | |||
| 102661 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102662 | f2py_stop_call_clock(); | |||
| 102663 | #endif | |||
| 102664 | /*end of callfortranroutine*/ | |||
| 102665 | if (f2py_success) { | |||
| 102666 | /*pyobjfrom*/ | |||
| 102667 | /*end of pyobjfrom*/ | |||
| 102668 | CFUNCSMESS("Building return value.\n"); | |||
| 102669 | capi_buildvalue = Py_BuildValue("d",zlange); | |||
| 102670 | /*closepyobjfrom*/ | |||
| 102671 | /*end of closepyobjfrom*/ | |||
| 102672 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 102673 | /*cleanupfrompyobj*/ | |||
| 102674 | /* End of cleaning variable zlange */ | |||
| 102675 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); | |||
| 102676 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 102677 | /* End of cleaning variable work */ | |||
| 102678 | /* End of cleaning variable lda */ | |||
| 102679 | /* End of cleaning variable m */ | |||
| 102680 | /* End of cleaning variable n */ | |||
| 102681 | if((PyObject *)capi_a_tmp!=a_capi) { | |||
| 102682 | Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); } | |||
| 102683 | } /*if (capi_a_tmp == NULL) ... else of a*/ | |||
| 102684 | /* End of cleaning variable a */ | |||
| 102685 | } /*CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e')*/ | |||
| 102686 | STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0); | |||
| 102687 | } /*if (f2py_success) of norm*/ | |||
| 102688 | /* End of cleaning variable norm */ | |||
| 102689 | /*end of cleanupfrompyobj*/ | |||
| 102690 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 102691 | /*routdebugfailure*/ | |||
| 102692 | } else { | |||
| 102693 | /*routdebugleave*/ | |||
| 102694 | } | |||
| 102695 | CFUNCSMESS("Freeing memory.\n"); | |||
| 102696 | /*freemem*/ | |||
| 102697 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102698 | f2py_stop_clock(); | |||
| 102699 | #endif | |||
| 102700 | return capi_buildvalue; | |||
| 102701 | } | |||
| 102702 | /******************************* end of zlange *******************************/ | |||
| 102703 | ||||
| 102704 | /*********************************** slarfg ***********************************/ | |||
| 102705 | static char doc_f2py_rout__flapack_slarfg[] = "\ | |||
| 102706 | alpha,x,tau = slarfg(n,alpha,x,[incx,overwrite_x])\n\nWrapper for ``slarfg``.\ | |||
| 102707 | \n\nParameters\n----------\n" | |||
| 102708 | "n : input int\n" | |||
| 102709 | "alpha : input float\n" | |||
| 102710 | "x : input rank-1 array('f') with bounds (lx)\n" | |||
| 102711 | "\nOther Parameters\n----------------\n" | |||
| 102712 | "overwrite_x : input int, optional\n Default: 0\n" | |||
| 102713 | "incx : input int, optional\n Default: 1\n" | |||
| 102714 | "\nReturns\n-------\n" | |||
| 102715 | "alpha : float\n" | |||
| 102716 | "x : rank-1 array('f') with bounds (lx)\n" | |||
| 102717 | "tau : float"; | |||
| 102718 | /* extern void F_FUNC(slarfg,SLARFG)(int*,float*,float*,int*,float*,int*); */ | |||
| 102719 | static PyObject *f2py_rout__flapack_slarfg(const PyObject *capi_self, | |||
| 102720 | PyObject *capi_args, | |||
| 102721 | PyObject *capi_keywds, | |||
| 102722 | void (*f2py_func)(int*,float*,float*,int*,float*,int*)) { | |||
| 102723 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 102724 | volatile int f2py_success = 1; | |||
| 102725 | /*decl*/ | |||
| 102726 | ||||
| 102727 | int n = 0; | |||
| 102728 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 102729 | float alpha = 0; | |||
| 102730 | PyObject *alpha_capi = Py_None(&_Py_NoneStruct); | |||
| 102731 | float *x = NULL((void*)0); | |||
| 102732 | npy_intp x_Dims[1] = {-1}; | |||
| 102733 | const int x_Rank = 1; | |||
| 102734 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 102735 | int capi_x_intent = 0; | |||
| 102736 | int capi_overwrite_x = 0; | |||
| 102737 | PyObject *x_capi = Py_None(&_Py_NoneStruct); | |||
| 102738 | int incx = 0; | |||
| 102739 | PyObject *incx_capi = Py_None(&_Py_NoneStruct); | |||
| 102740 | float tau = 0; | |||
| 102741 | int lx = 0; | |||
| 102742 | static char *capi_kwlist[] = {"n","alpha","x","incx","overwrite_x",NULL((void*)0)}; | |||
| 102743 | ||||
| 102744 | /*routdebugenter*/ | |||
| 102745 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102746 | f2py_start_clock(); | |||
| 102747 | #endif | |||
| 102748 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 102749 | "OOO|Oi:_flapack.slarfg",\ | |||
| 102750 | capi_kwlist,&n_capi,&alpha_capi,&x_capi,&incx_capi,&capi_overwrite_x)) | |||
| 102751 | return NULL((void*)0); | |||
| 102752 | /*frompyobj*/ | |||
| 102753 | /* Processing variable n */ | |||
| 102754 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.slarfg() 1st argument (n) can't be converted to int"); | |||
| 102755 | if (f2py_success) { | |||
| 102756 | CHECKSCALAR(n>=1,"n>=1","1st argument n","slarfg:n=%d",n)if (!(n>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""slarfg:n=%d", "(""n>=1"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 102757 | /* Processing variable alpha */ | |||
| 102758 | f2py_success = float_from_pyobj(&alpha,alpha_capi,"_flapack.slarfg() 2nd argument (alpha) can't be converted to float"); | |||
| 102759 | if (f2py_success) { | |||
| 102760 | /* Processing variable x */ | |||
| 102761 | capi_x_intent |= (capi_overwrite_x?0:F2PY_INTENT_COPY32); | |||
| 102762 | ; | |||
| 102763 | capi_x_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 102764 | capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,x_capi); | |||
| 102765 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 102766 | if (!PyErr_Occurred()) | |||
| 102767 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x' of _flapack.slarfg to C/Fortran array" ); | |||
| 102768 | } else { | |||
| 102769 | x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 102770 | ||||
| 102771 | /* Processing variable incx */ | |||
| 102772 | if (incx_capi == Py_None(&_Py_NoneStruct)) incx = 1; else | |||
| 102773 | f2py_success = int_from_pyobj(&incx,incx_capi,"_flapack.slarfg() 1st keyword (incx) can't be converted to int"); | |||
| 102774 | if (f2py_success) { | |||
| 102775 | CHECKSCALAR(incx>0||incx<0,"incx>0||incx<0","1st keyword incx","slarfg:incx=%d",incx)if (!(incx>0||incx<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""slarfg:incx=%d", "(""incx>0||incx<0"") failed for " "1st keyword incx", incx); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 102776 | /* Processing variable tau */ | |||
| 102777 | /* Processing variable lx */ | |||
| 102778 | lx = len(x)x_Dims[0]; | |||
| 102779 | CHECKSCALAR(lx > (n-2)*incx,"lx > (n-2)*incx","hidden lx","slarfg:lx=%d",lx)if (!(lx > (n-2)*incx)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""slarfg:lx=%d", "(""lx > (n-2)*incx"") failed for " "hidden lx", lx); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 102780 | /*end of frompyobj*/ | |||
| 102781 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102782 | f2py_start_call_clock(); | |||
| 102783 | #endif | |||
| 102784 | /*callfortranroutine*/ | |||
| 102785 | (*f2py_func)(&n,&alpha,x,&incx,&tau,&lx); | |||
| 102786 | if (PyErr_Occurred()) | |||
| 102787 | f2py_success = 0; | |||
| 102788 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102789 | f2py_stop_call_clock(); | |||
| 102790 | #endif | |||
| 102791 | /*end of callfortranroutine*/ | |||
| 102792 | if (f2py_success) { | |||
| 102793 | /*pyobjfrom*/ | |||
| 102794 | /*end of pyobjfrom*/ | |||
| 102795 | CFUNCSMESS("Building return value.\n"); | |||
| 102796 | capi_buildvalue = Py_BuildValue("fNf",alpha,capi_x_tmp,tau); | |||
| 102797 | /*closepyobjfrom*/ | |||
| 102798 | /*end of closepyobjfrom*/ | |||
| 102799 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 102800 | /*cleanupfrompyobj*/ | |||
| 102801 | } /*CHECKSCALAR(lx > (n-2)*incx)*/ | |||
| 102802 | /* End of cleaning variable lx */ | |||
| 102803 | /* End of cleaning variable tau */ | |||
| 102804 | } /*CHECKSCALAR(incx>0||incx<0)*/ | |||
| 102805 | } /*if (f2py_success) of incx*/ | |||
| 102806 | /* End of cleaning variable incx */ | |||
| 102807 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 102808 | /* End of cleaning variable x */ | |||
| 102809 | } /*if (f2py_success) of alpha*/ | |||
| 102810 | /* End of cleaning variable alpha */ | |||
| 102811 | } /*CHECKSCALAR(n>=1)*/ | |||
| 102812 | } /*if (f2py_success) of n*/ | |||
| 102813 | /* End of cleaning variable n */ | |||
| 102814 | /*end of cleanupfrompyobj*/ | |||
| 102815 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 102816 | /*routdebugfailure*/ | |||
| 102817 | } else { | |||
| 102818 | /*routdebugleave*/ | |||
| 102819 | } | |||
| 102820 | CFUNCSMESS("Freeing memory.\n"); | |||
| 102821 | /*freemem*/ | |||
| 102822 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102823 | f2py_stop_clock(); | |||
| 102824 | #endif | |||
| 102825 | return capi_buildvalue; | |||
| 102826 | } | |||
| 102827 | /******************************* end of slarfg *******************************/ | |||
| 102828 | ||||
| 102829 | /*********************************** dlarfg ***********************************/ | |||
| 102830 | static char doc_f2py_rout__flapack_dlarfg[] = "\ | |||
| 102831 | alpha,x,tau = dlarfg(n,alpha,x,[incx,overwrite_x])\n\nWrapper for ``dlarfg``.\ | |||
| 102832 | \n\nParameters\n----------\n" | |||
| 102833 | "n : input int\n" | |||
| 102834 | "alpha : input float\n" | |||
| 102835 | "x : input rank-1 array('d') with bounds (lx)\n" | |||
| 102836 | "\nOther Parameters\n----------------\n" | |||
| 102837 | "overwrite_x : input int, optional\n Default: 0\n" | |||
| 102838 | "incx : input int, optional\n Default: 1\n" | |||
| 102839 | "\nReturns\n-------\n" | |||
| 102840 | "alpha : float\n" | |||
| 102841 | "x : rank-1 array('d') with bounds (lx)\n" | |||
| 102842 | "tau : float"; | |||
| 102843 | /* extern void F_FUNC(dlarfg,DLARFG)(int*,double*,double*,int*,double*,int*); */ | |||
| 102844 | static PyObject *f2py_rout__flapack_dlarfg(const PyObject *capi_self, | |||
| 102845 | PyObject *capi_args, | |||
| 102846 | PyObject *capi_keywds, | |||
| 102847 | void (*f2py_func)(int*,double*,double*,int*,double*,int*)) { | |||
| 102848 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 102849 | volatile int f2py_success = 1; | |||
| 102850 | /*decl*/ | |||
| 102851 | ||||
| 102852 | int n = 0; | |||
| 102853 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 102854 | double alpha = 0; | |||
| 102855 | PyObject *alpha_capi = Py_None(&_Py_NoneStruct); | |||
| 102856 | double *x = NULL((void*)0); | |||
| 102857 | npy_intp x_Dims[1] = {-1}; | |||
| 102858 | const int x_Rank = 1; | |||
| 102859 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 102860 | int capi_x_intent = 0; | |||
| 102861 | int capi_overwrite_x = 0; | |||
| 102862 | PyObject *x_capi = Py_None(&_Py_NoneStruct); | |||
| 102863 | int incx = 0; | |||
| 102864 | PyObject *incx_capi = Py_None(&_Py_NoneStruct); | |||
| 102865 | double tau = 0; | |||
| 102866 | int lx = 0; | |||
| 102867 | static char *capi_kwlist[] = {"n","alpha","x","incx","overwrite_x",NULL((void*)0)}; | |||
| 102868 | ||||
| 102869 | /*routdebugenter*/ | |||
| 102870 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102871 | f2py_start_clock(); | |||
| 102872 | #endif | |||
| 102873 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 102874 | "OOO|Oi:_flapack.dlarfg",\ | |||
| 102875 | capi_kwlist,&n_capi,&alpha_capi,&x_capi,&incx_capi,&capi_overwrite_x)) | |||
| 102876 | return NULL((void*)0); | |||
| 102877 | /*frompyobj*/ | |||
| 102878 | /* Processing variable n */ | |||
| 102879 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dlarfg() 1st argument (n) can't be converted to int"); | |||
| 102880 | if (f2py_success) { | |||
| 102881 | CHECKSCALAR(n>=1,"n>=1","1st argument n","dlarfg:n=%d",n)if (!(n>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dlarfg:n=%d", "(""n>=1"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 102882 | /* Processing variable alpha */ | |||
| 102883 | f2py_success = double_from_pyobj(&alpha,alpha_capi,"_flapack.dlarfg() 2nd argument (alpha) can't be converted to double"); | |||
| 102884 | if (f2py_success) { | |||
| 102885 | /* Processing variable x */ | |||
| 102886 | capi_x_intent |= (capi_overwrite_x?0:F2PY_INTENT_COPY32); | |||
| 102887 | ; | |||
| 102888 | capi_x_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 102889 | capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,x_capi); | |||
| 102890 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 102891 | if (!PyErr_Occurred()) | |||
| 102892 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x' of _flapack.dlarfg to C/Fortran array" ); | |||
| 102893 | } else { | |||
| 102894 | x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 102895 | ||||
| 102896 | /* Processing variable incx */ | |||
| 102897 | if (incx_capi == Py_None(&_Py_NoneStruct)) incx = 1; else | |||
| 102898 | f2py_success = int_from_pyobj(&incx,incx_capi,"_flapack.dlarfg() 1st keyword (incx) can't be converted to int"); | |||
| 102899 | if (f2py_success) { | |||
| 102900 | CHECKSCALAR(incx>0||incx<0,"incx>0||incx<0","1st keyword incx","dlarfg:incx=%d",incx)if (!(incx>0||incx<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dlarfg:incx=%d", "(""incx>0||incx<0"") failed for " "1st keyword incx", incx); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 102901 | /* Processing variable tau */ | |||
| 102902 | /* Processing variable lx */ | |||
| 102903 | lx = len(x)x_Dims[0]; | |||
| 102904 | CHECKSCALAR(lx > (n-2)*incx,"lx > (n-2)*incx","hidden lx","dlarfg:lx=%d",lx)if (!(lx > (n-2)*incx)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dlarfg:lx=%d", "(""lx > (n-2)*incx"") failed for " "hidden lx", lx); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 102905 | /*end of frompyobj*/ | |||
| 102906 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102907 | f2py_start_call_clock(); | |||
| 102908 | #endif | |||
| 102909 | /*callfortranroutine*/ | |||
| 102910 | (*f2py_func)(&n,&alpha,x,&incx,&tau,&lx); | |||
| 102911 | if (PyErr_Occurred()) | |||
| 102912 | f2py_success = 0; | |||
| 102913 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102914 | f2py_stop_call_clock(); | |||
| 102915 | #endif | |||
| 102916 | /*end of callfortranroutine*/ | |||
| 102917 | if (f2py_success) { | |||
| 102918 | /*pyobjfrom*/ | |||
| 102919 | /*end of pyobjfrom*/ | |||
| 102920 | CFUNCSMESS("Building return value.\n"); | |||
| 102921 | capi_buildvalue = Py_BuildValue("dNd",alpha,capi_x_tmp,tau); | |||
| 102922 | /*closepyobjfrom*/ | |||
| 102923 | /*end of closepyobjfrom*/ | |||
| 102924 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 102925 | /*cleanupfrompyobj*/ | |||
| 102926 | } /*CHECKSCALAR(lx > (n-2)*incx)*/ | |||
| 102927 | /* End of cleaning variable lx */ | |||
| 102928 | /* End of cleaning variable tau */ | |||
| 102929 | } /*CHECKSCALAR(incx>0||incx<0)*/ | |||
| 102930 | } /*if (f2py_success) of incx*/ | |||
| 102931 | /* End of cleaning variable incx */ | |||
| 102932 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 102933 | /* End of cleaning variable x */ | |||
| 102934 | } /*if (f2py_success) of alpha*/ | |||
| 102935 | /* End of cleaning variable alpha */ | |||
| 102936 | } /*CHECKSCALAR(n>=1)*/ | |||
| 102937 | } /*if (f2py_success) of n*/ | |||
| 102938 | /* End of cleaning variable n */ | |||
| 102939 | /*end of cleanupfrompyobj*/ | |||
| 102940 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 102941 | /*routdebugfailure*/ | |||
| 102942 | } else { | |||
| 102943 | /*routdebugleave*/ | |||
| 102944 | } | |||
| 102945 | CFUNCSMESS("Freeing memory.\n"); | |||
| 102946 | /*freemem*/ | |||
| 102947 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102948 | f2py_stop_clock(); | |||
| 102949 | #endif | |||
| 102950 | return capi_buildvalue; | |||
| 102951 | } | |||
| 102952 | /******************************* end of dlarfg *******************************/ | |||
| 102953 | ||||
| 102954 | /*********************************** clarfg ***********************************/ | |||
| 102955 | static char doc_f2py_rout__flapack_clarfg[] = "\ | |||
| 102956 | alpha,x,tau = clarfg(n,alpha,x,[incx,overwrite_x])\n\nWrapper for ``clarfg``.\ | |||
| 102957 | \n\nParameters\n----------\n" | |||
| 102958 | "n : input int\n" | |||
| 102959 | "alpha : input complex\n" | |||
| 102960 | "x : input rank-1 array('F') with bounds (lx)\n" | |||
| 102961 | "\nOther Parameters\n----------------\n" | |||
| 102962 | "overwrite_x : input int, optional\n Default: 0\n" | |||
| 102963 | "incx : input int, optional\n Default: 1\n" | |||
| 102964 | "\nReturns\n-------\n" | |||
| 102965 | "alpha : complex\n" | |||
| 102966 | "x : rank-1 array('F') with bounds (lx)\n" | |||
| 102967 | "tau : complex"; | |||
| 102968 | /* extern void F_FUNC(clarfg,CLARFG)(int*,complex_float*,complex_float*,int*,complex_float*,int*); */ | |||
| 102969 | static PyObject *f2py_rout__flapack_clarfg(const PyObject *capi_self, | |||
| 102970 | PyObject *capi_args, | |||
| 102971 | PyObject *capi_keywds, | |||
| 102972 | void (*f2py_func)(int*,complex_float*,complex_float*,int*,complex_float*,int*)) { | |||
| 102973 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 102974 | volatile int f2py_success = 1; | |||
| 102975 | /*decl*/ | |||
| 102976 | ||||
| 102977 | int n = 0; | |||
| 102978 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 102979 | complex_float alpha; | |||
| 102980 | PyObject *alpha_capi = Py_None(&_Py_NoneStruct); | |||
| 102981 | complex_float *x = NULL((void*)0); | |||
| 102982 | npy_intp x_Dims[1] = {-1}; | |||
| 102983 | const int x_Rank = 1; | |||
| 102984 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 102985 | int capi_x_intent = 0; | |||
| 102986 | int capi_overwrite_x = 0; | |||
| 102987 | PyObject *x_capi = Py_None(&_Py_NoneStruct); | |||
| 102988 | int incx = 0; | |||
| 102989 | PyObject *incx_capi = Py_None(&_Py_NoneStruct); | |||
| 102990 | complex_float tau; | |||
| 102991 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 102992 | int lx = 0; | |||
| 102993 | static char *capi_kwlist[] = {"n","alpha","x","incx","overwrite_x",NULL((void*)0)}; | |||
| 102994 | ||||
| 102995 | /*routdebugenter*/ | |||
| 102996 | #ifdef F2PY_REPORT_ATEXIT | |||
| 102997 | f2py_start_clock(); | |||
| 102998 | #endif | |||
| 102999 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 103000 | "OOO|Oi:_flapack.clarfg",\ | |||
| 103001 | capi_kwlist,&n_capi,&alpha_capi,&x_capi,&incx_capi,&capi_overwrite_x)) | |||
| 103002 | return NULL((void*)0); | |||
| 103003 | /*frompyobj*/ | |||
| 103004 | /* Processing variable n */ | |||
| 103005 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.clarfg() 1st argument (n) can't be converted to int"); | |||
| 103006 | if (f2py_success) { | |||
| 103007 | CHECKSCALAR(n>=1,"n>=1","1st argument n","clarfg:n=%d",n)if (!(n>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""clarfg:n=%d", "(""n>=1"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 103008 | /* Processing variable alpha */ | |||
| 103009 | f2py_success = complex_float_from_pyobj(&alpha,alpha_capi,"_flapack.clarfg() 2nd argument (alpha) can't be converted to complex_float"); | |||
| 103010 | if (f2py_success) { | |||
| 103011 | /* Processing variable x */ | |||
| 103012 | capi_x_intent |= (capi_overwrite_x?0:F2PY_INTENT_COPY32); | |||
| 103013 | ; | |||
| 103014 | capi_x_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 103015 | capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,x_capi); | |||
| 103016 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 103017 | if (!PyErr_Occurred()) | |||
| 103018 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x' of _flapack.clarfg to C/Fortran array" ); | |||
| 103019 | } else { | |||
| 103020 | x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 103021 | ||||
| 103022 | /* Processing variable incx */ | |||
| 103023 | if (incx_capi == Py_None(&_Py_NoneStruct)) incx = 1; else | |||
| 103024 | f2py_success = int_from_pyobj(&incx,incx_capi,"_flapack.clarfg() 1st keyword (incx) can't be converted to int"); | |||
| 103025 | if (f2py_success) { | |||
| 103026 | CHECKSCALAR(incx>0||incx<0,"incx>0||incx<0","1st keyword incx","clarfg:incx=%d",incx)if (!(incx>0||incx<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""clarfg:incx=%d", "(""incx>0||incx<0"") failed for " "1st keyword incx", incx); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 103027 | /* Processing variable tau */ | |||
| 103028 | /* Processing variable lx */ | |||
| 103029 | lx = len(x)x_Dims[0]; | |||
| 103030 | CHECKSCALAR(lx > (n-2)*incx,"lx > (n-2)*incx","hidden lx","clarfg:lx=%d",lx)if (!(lx > (n-2)*incx)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""clarfg:lx=%d", "(""lx > (n-2)*incx"") failed for " "hidden lx", lx); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 103031 | /*end of frompyobj*/ | |||
| 103032 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103033 | f2py_start_call_clock(); | |||
| 103034 | #endif | |||
| 103035 | /*callfortranroutine*/ | |||
| 103036 | (*f2py_func)(&n,&alpha,x,&incx,&tau,&lx); | |||
| 103037 | if (PyErr_Occurred()) | |||
| 103038 | f2py_success = 0; | |||
| 103039 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103040 | f2py_stop_call_clock(); | |||
| 103041 | #endif | |||
| 103042 | /*end of callfortranroutine*/ | |||
| 103043 | if (f2py_success) { | |||
| 103044 | /*pyobjfrom*/ | |||
| 103045 | alpha_capi = pyobj_from_complex_float1(alpha)(PyComplex_FromDoubles(alpha.r,alpha.i)); | |||
| 103046 | tau_capi = pyobj_from_complex_float1(tau)(PyComplex_FromDoubles(tau.r,tau.i)); | |||
| 103047 | /*end of pyobjfrom*/ | |||
| 103048 | CFUNCSMESS("Building return value.\n"); | |||
| 103049 | capi_buildvalue = Py_BuildValue("NNN",alpha_capi,capi_x_tmp,tau_capi); | |||
| 103050 | /*closepyobjfrom*/ | |||
| 103051 | /*end of closepyobjfrom*/ | |||
| 103052 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 103053 | /*cleanupfrompyobj*/ | |||
| 103054 | } /*CHECKSCALAR(lx > (n-2)*incx)*/ | |||
| 103055 | /* End of cleaning variable lx */ | |||
| 103056 | /* End of cleaning variable tau */ | |||
| 103057 | } /*CHECKSCALAR(incx>0||incx<0)*/ | |||
| 103058 | } /*if (f2py_success) of incx*/ | |||
| 103059 | /* End of cleaning variable incx */ | |||
| 103060 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 103061 | /* End of cleaning variable x */ | |||
| 103062 | } /*if (f2py_success) of alpha frompyobj*/ | |||
| 103063 | /* End of cleaning variable alpha */ | |||
| 103064 | } /*CHECKSCALAR(n>=1)*/ | |||
| 103065 | } /*if (f2py_success) of n*/ | |||
| 103066 | /* End of cleaning variable n */ | |||
| 103067 | /*end of cleanupfrompyobj*/ | |||
| 103068 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 103069 | /*routdebugfailure*/ | |||
| 103070 | } else { | |||
| 103071 | /*routdebugleave*/ | |||
| 103072 | } | |||
| 103073 | CFUNCSMESS("Freeing memory.\n"); | |||
| 103074 | /*freemem*/ | |||
| 103075 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103076 | f2py_stop_clock(); | |||
| 103077 | #endif | |||
| 103078 | return capi_buildvalue; | |||
| 103079 | } | |||
| 103080 | /******************************* end of clarfg *******************************/ | |||
| 103081 | ||||
| 103082 | /*********************************** zlarfg ***********************************/ | |||
| 103083 | static char doc_f2py_rout__flapack_zlarfg[] = "\ | |||
| 103084 | alpha,x,tau = zlarfg(n,alpha,x,[incx,overwrite_x])\n\nWrapper for ``zlarfg``.\ | |||
| 103085 | \n\nParameters\n----------\n" | |||
| 103086 | "n : input int\n" | |||
| 103087 | "alpha : input complex\n" | |||
| 103088 | "x : input rank-1 array('D') with bounds (lx)\n" | |||
| 103089 | "\nOther Parameters\n----------------\n" | |||
| 103090 | "overwrite_x : input int, optional\n Default: 0\n" | |||
| 103091 | "incx : input int, optional\n Default: 1\n" | |||
| 103092 | "\nReturns\n-------\n" | |||
| 103093 | "alpha : complex\n" | |||
| 103094 | "x : rank-1 array('D') with bounds (lx)\n" | |||
| 103095 | "tau : complex"; | |||
| 103096 | /* extern void F_FUNC(zlarfg,ZLARFG)(int*,complex_double*,complex_double*,int*,complex_double*,int*); */ | |||
| 103097 | static PyObject *f2py_rout__flapack_zlarfg(const PyObject *capi_self, | |||
| 103098 | PyObject *capi_args, | |||
| 103099 | PyObject *capi_keywds, | |||
| 103100 | void (*f2py_func)(int*,complex_double*,complex_double*,int*,complex_double*,int*)) { | |||
| 103101 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 103102 | volatile int f2py_success = 1; | |||
| 103103 | /*decl*/ | |||
| 103104 | ||||
| 103105 | int n = 0; | |||
| 103106 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 103107 | complex_double alpha; | |||
| 103108 | PyObject *alpha_capi = Py_None(&_Py_NoneStruct); | |||
| 103109 | complex_double *x = NULL((void*)0); | |||
| 103110 | npy_intp x_Dims[1] = {-1}; | |||
| 103111 | const int x_Rank = 1; | |||
| 103112 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 103113 | int capi_x_intent = 0; | |||
| 103114 | int capi_overwrite_x = 0; | |||
| 103115 | PyObject *x_capi = Py_None(&_Py_NoneStruct); | |||
| 103116 | int incx = 0; | |||
| 103117 | PyObject *incx_capi = Py_None(&_Py_NoneStruct); | |||
| 103118 | complex_double tau; | |||
| 103119 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 103120 | int lx = 0; | |||
| 103121 | static char *capi_kwlist[] = {"n","alpha","x","incx","overwrite_x",NULL((void*)0)}; | |||
| 103122 | ||||
| 103123 | /*routdebugenter*/ | |||
| 103124 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103125 | f2py_start_clock(); | |||
| 103126 | #endif | |||
| 103127 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 103128 | "OOO|Oi:_flapack.zlarfg",\ | |||
| 103129 | capi_kwlist,&n_capi,&alpha_capi,&x_capi,&incx_capi,&capi_overwrite_x)) | |||
| 103130 | return NULL((void*)0); | |||
| 103131 | /*frompyobj*/ | |||
| 103132 | /* Processing variable n */ | |||
| 103133 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zlarfg() 1st argument (n) can't be converted to int"); | |||
| 103134 | if (f2py_success) { | |||
| 103135 | CHECKSCALAR(n>=1,"n>=1","1st argument n","zlarfg:n=%d",n)if (!(n>=1)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zlarfg:n=%d", "(""n>=1"") failed for ""1st argument n" , n); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 103136 | /* Processing variable alpha */ | |||
| 103137 | f2py_success = complex_double_from_pyobj(&alpha,alpha_capi,"_flapack.zlarfg() 2nd argument (alpha) can't be converted to complex_double"); | |||
| 103138 | if (f2py_success) { | |||
| 103139 | /* Processing variable x */ | |||
| 103140 | capi_x_intent |= (capi_overwrite_x?0:F2PY_INTENT_COPY32); | |||
| 103141 | ; | |||
| 103142 | capi_x_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 103143 | capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,x_capi); | |||
| 103144 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 103145 | if (!PyErr_Occurred()) | |||
| 103146 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x' of _flapack.zlarfg to C/Fortran array" ); | |||
| 103147 | } else { | |||
| 103148 | x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 103149 | ||||
| 103150 | /* Processing variable incx */ | |||
| 103151 | if (incx_capi == Py_None(&_Py_NoneStruct)) incx = 1; else | |||
| 103152 | f2py_success = int_from_pyobj(&incx,incx_capi,"_flapack.zlarfg() 1st keyword (incx) can't be converted to int"); | |||
| 103153 | if (f2py_success) { | |||
| 103154 | CHECKSCALAR(incx>0||incx<0,"incx>0||incx<0","1st keyword incx","zlarfg:incx=%d",incx)if (!(incx>0||incx<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zlarfg:incx=%d", "(""incx>0||incx<0"") failed for " "1st keyword incx", incx); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 103155 | /* Processing variable tau */ | |||
| 103156 | /* Processing variable lx */ | |||
| 103157 | lx = len(x)x_Dims[0]; | |||
| 103158 | CHECKSCALAR(lx > (n-2)*incx,"lx > (n-2)*incx","hidden lx","zlarfg:lx=%d",lx)if (!(lx > (n-2)*incx)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zlarfg:lx=%d", "(""lx > (n-2)*incx"") failed for " "hidden lx", lx); PyErr_SetString(_flapack_error,errstring); } else { | |||
| 103159 | /*end of frompyobj*/ | |||
| 103160 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103161 | f2py_start_call_clock(); | |||
| 103162 | #endif | |||
| 103163 | /*callfortranroutine*/ | |||
| 103164 | (*f2py_func)(&n,&alpha,x,&incx,&tau,&lx); | |||
| 103165 | if (PyErr_Occurred()) | |||
| 103166 | f2py_success = 0; | |||
| 103167 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103168 | f2py_stop_call_clock(); | |||
| 103169 | #endif | |||
| 103170 | /*end of callfortranroutine*/ | |||
| 103171 | if (f2py_success) { | |||
| 103172 | /*pyobjfrom*/ | |||
| 103173 | alpha_capi = pyobj_from_complex_double1(alpha)(PyComplex_FromDoubles(alpha.r,alpha.i)); | |||
| 103174 | tau_capi = pyobj_from_complex_double1(tau)(PyComplex_FromDoubles(tau.r,tau.i)); | |||
| 103175 | /*end of pyobjfrom*/ | |||
| 103176 | CFUNCSMESS("Building return value.\n"); | |||
| 103177 | capi_buildvalue = Py_BuildValue("NNN",alpha_capi,capi_x_tmp,tau_capi); | |||
| 103178 | /*closepyobjfrom*/ | |||
| 103179 | /*end of closepyobjfrom*/ | |||
| 103180 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 103181 | /*cleanupfrompyobj*/ | |||
| 103182 | } /*CHECKSCALAR(lx > (n-2)*incx)*/ | |||
| 103183 | /* End of cleaning variable lx */ | |||
| 103184 | /* End of cleaning variable tau */ | |||
| 103185 | } /*CHECKSCALAR(incx>0||incx<0)*/ | |||
| 103186 | } /*if (f2py_success) of incx*/ | |||
| 103187 | /* End of cleaning variable incx */ | |||
| 103188 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 103189 | /* End of cleaning variable x */ | |||
| 103190 | } /*if (f2py_success) of alpha frompyobj*/ | |||
| 103191 | /* End of cleaning variable alpha */ | |||
| 103192 | } /*CHECKSCALAR(n>=1)*/ | |||
| 103193 | } /*if (f2py_success) of n*/ | |||
| 103194 | /* End of cleaning variable n */ | |||
| 103195 | /*end of cleanupfrompyobj*/ | |||
| 103196 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 103197 | /*routdebugfailure*/ | |||
| 103198 | } else { | |||
| 103199 | /*routdebugleave*/ | |||
| 103200 | } | |||
| 103201 | CFUNCSMESS("Freeing memory.\n"); | |||
| 103202 | /*freemem*/ | |||
| 103203 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103204 | f2py_stop_clock(); | |||
| 103205 | #endif | |||
| 103206 | return capi_buildvalue; | |||
| 103207 | } | |||
| 103208 | /******************************* end of zlarfg *******************************/ | |||
| 103209 | ||||
| 103210 | /*********************************** slarf ***********************************/ | |||
| 103211 | static char doc_f2py_rout__flapack_slarf[] = "\ | |||
| 103212 | c = slarf(v,tau,c,work,[side,incv,overwrite_c])\n\nWrapper for ``slarf``.\ | |||
| 103213 | \n\nParameters\n----------\n" | |||
| 103214 | "v : input rank-1 array('f') with bounds ((side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv))))\n" | |||
| 103215 | "tau : input float\n" | |||
| 103216 | "c : input rank-2 array('f') with bounds (m,n)\n" | |||
| 103217 | "work : input rank-1 array('f') with bounds (lwork)\n" | |||
| 103218 | "\nOther Parameters\n----------------\n" | |||
| 103219 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 103220 | "incv : input int, optional\n Default: 1\n" | |||
| 103221 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 103222 | "\nReturns\n-------\n" | |||
| 103223 | "c : rank-2 array('f') with bounds (m,n)"; | |||
| 103224 | /* extern void F_FUNC(slarf,SLARF)(string,int*,int*,float*,int*,float*,float*,int*,float*,int*,size_t); */ | |||
| 103225 | static PyObject *f2py_rout__flapack_slarf(const PyObject *capi_self, | |||
| 103226 | PyObject *capi_args, | |||
| 103227 | PyObject *capi_keywds, | |||
| 103228 | void (*f2py_func)(string,int*,int*,float*,int*,float*,float*,int*,float*,int*,size_t)) { | |||
| 103229 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 103230 | volatile int f2py_success = 1; | |||
| 103231 | /*decl*/ | |||
| 103232 | ||||
| 103233 | string side = NULL((void*)0); | |||
| 103234 | int slen(side)capi_side_len; | |||
| 103235 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 103236 | int m = 0; | |||
| 103237 | int n = 0; | |||
| 103238 | float *v = NULL((void*)0); | |||
| 103239 | npy_intp v_Dims[1] = {-1}; | |||
| 103240 | const int v_Rank = 1; | |||
| 103241 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 103242 | int capi_v_intent = 0; | |||
| 103243 | PyObject *v_capi = Py_None(&_Py_NoneStruct); | |||
| 103244 | int incv = 0; | |||
| 103245 | PyObject *incv_capi = Py_None(&_Py_NoneStruct); | |||
| 103246 | float tau = 0; | |||
| 103247 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 103248 | float *c = NULL((void*)0); | |||
| 103249 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 103250 | const int c_Rank = 2; | |||
| 103251 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 103252 | int capi_c_intent = 0; | |||
| 103253 | int capi_overwrite_c = 0; | |||
| 103254 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 103255 | int ldc = 0; | |||
| 103256 | float *work = NULL((void*)0); | |||
| 103257 | npy_intp work_Dims[1] = {-1}; | |||
| 103258 | const int work_Rank = 1; | |||
| 103259 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 103260 | int capi_work_intent = 0; | |||
| 103261 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 103262 | int lwork = 0; | |||
| 103263 | static char *capi_kwlist[] = {"v","tau","c","work","side","incv","overwrite_c",NULL((void*)0)}; | |||
| 103264 | ||||
| 103265 | /*routdebugenter*/ | |||
| 103266 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103267 | f2py_start_clock(); | |||
| 103268 | #endif | |||
| 103269 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 103270 | "OOOO|OOi:_flapack.slarf",\ | |||
| 103271 | capi_kwlist,&v_capi,&tau_capi,&c_capi,&work_capi,&side_capi,&incv_capi,&capi_overwrite_c)) | |||
| 103272 | return NULL((void*)0); | |||
| 103273 | /*frompyobj*/ | |||
| 103274 | /* Processing variable side */ | |||
| 103275 | slen(side)capi_side_len = 1; | |||
| 103276 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.slarf to C string"); | |||
| 103277 | if (f2py_success) { | |||
| 103278 | CHECKSTRING(side[0]=='L'||side[0]=='R',"side[0]=='L'||side[0]=='R'","1st keyword side","slarf:slen(side)=%d side=\"%s\"",side)if (!(side[0]=='L'||side[0]=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""slarf:slen(side)=%d side=\"%s\"", "(""side[0]=='L'||side[0]=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 103279 | /* Processing variable incv */ | |||
| 103280 | if (incv_capi == Py_None(&_Py_NoneStruct)) incv = 1; else | |||
| 103281 | f2py_success = int_from_pyobj(&incv,incv_capi,"_flapack.slarf() 2nd keyword (incv) can't be converted to int"); | |||
| 103282 | if (f2py_success) { | |||
| 103283 | CHECKSCALAR(incv>0||incv<0,"incv>0||incv<0","2nd keyword incv","slarf:incv=%d",incv)if (!(incv>0||incv<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""slarf:incv=%d", "(""incv>0||incv<0"") failed for " "2nd keyword incv", incv); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 103284 | /* Processing variable tau */ | |||
| 103285 | f2py_success = float_from_pyobj(&tau,tau_capi,"_flapack.slarf() 2nd argument (tau) can't be converted to float"); | |||
| 103286 | if (f2py_success) { | |||
| 103287 | /* Processing variable c */ | |||
| 103288 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 103289 | ; | |||
| 103290 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 103291 | capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 103292 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 103293 | if (!PyErr_Occurred()) | |||
| 103294 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.slarf to C/Fortran array" ); | |||
| 103295 | } else { | |||
| 103296 | c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 103297 | ||||
| 103298 | /* Processing variable m */ | |||
| 103299 | m = shape(c,0)c_Dims[0]; | |||
| 103300 | /* Processing variable n */ | |||
| 103301 | n = shape(c,1)c_Dims[1]; | |||
| 103302 | /* Processing variable v */ | |||
| 103303 | v_Dims[0]=(side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv))); | |||
| 103304 | capi_v_intent |= F2PY_INTENT_IN1; | |||
| 103305 | capi_v_tmp = array_from_pyobj(NPY_FLOAT,v_Dims,v_Rank,capi_v_intent,v_capi); | |||
| 103306 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 103307 | if (!PyErr_Occurred()) | |||
| 103308 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.slarf to C/Fortran array" ); | |||
| 103309 | } else { | |||
| 103310 | v = (float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 103311 | ||||
| 103312 | /* Processing variable ldc */ | |||
| 103313 | ldc = max(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0])); | |||
| 103314 | /* Processing variable work */ | |||
| 103315 | ; | |||
| 103316 | capi_work_intent |= F2PY_INTENT_IN1; | |||
| 103317 | capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,work_capi); | |||
| 103318 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 103319 | if (!PyErr_Occurred()) | |||
| 103320 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `work' of _flapack.slarf to C/Fortran array" ); | |||
| 103321 | } else { | |||
| 103322 | work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 103323 | ||||
| 103324 | /* Processing variable lwork */ | |||
| 103325 | lwork = len(work)work_Dims[0]; | |||
| 103326 | CHECKSCALAR(lwork >= (side[0]=='L'?n:m),"lwork >= (side[0]=='L'?n:m)","hidden lwork","slarf:lwork=%d",lwork)if (!(lwork >= (side[0]=='L'?n:m))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""slarf:lwork=%d", "(""lwork >= (side[0]=='L'?n:m)" ") failed for ""hidden lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 103327 | /*end of frompyobj*/ | |||
| 103328 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103329 | f2py_start_call_clock(); | |||
| 103330 | #endif | |||
| 103331 | /*callfortranroutine*/ | |||
| 103332 | (*f2py_func)(side,&m,&n,v,&incv,&tau,c,&ldc,work,&lwork,slen(side)capi_side_len); | |||
| 103333 | if (PyErr_Occurred()) | |||
| 103334 | f2py_success = 0; | |||
| 103335 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103336 | f2py_stop_call_clock(); | |||
| 103337 | #endif | |||
| 103338 | /*end of callfortranroutine*/ | |||
| 103339 | if (f2py_success) { | |||
| 103340 | /*pyobjfrom*/ | |||
| 103341 | /*end of pyobjfrom*/ | |||
| 103342 | CFUNCSMESS("Building return value.\n"); | |||
| 103343 | capi_buildvalue = Py_BuildValue("N",capi_c_tmp); | |||
| 103344 | /*closepyobjfrom*/ | |||
| 103345 | /*end of closepyobjfrom*/ | |||
| 103346 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 103347 | /*cleanupfrompyobj*/ | |||
| 103348 | } /*CHECKSCALAR(lwork >= (side[0]=='L'?n:m))*/ | |||
| 103349 | /* End of cleaning variable lwork */ | |||
| 103350 | if((PyObject *)capi_work_tmp!=work_capi) { | |||
| 103351 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); } | |||
| 103352 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 103353 | /* End of cleaning variable work */ | |||
| 103354 | /* End of cleaning variable ldc */ | |||
| 103355 | if((PyObject *)capi_v_tmp!=v_capi) { | |||
| 103356 | Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); } | |||
| 103357 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 103358 | /* End of cleaning variable v */ | |||
| 103359 | /* End of cleaning variable n */ | |||
| 103360 | /* End of cleaning variable m */ | |||
| 103361 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 103362 | /* End of cleaning variable c */ | |||
| 103363 | } /*if (f2py_success) of tau*/ | |||
| 103364 | /* End of cleaning variable tau */ | |||
| 103365 | } /*CHECKSCALAR(incv>0||incv<0)*/ | |||
| 103366 | } /*if (f2py_success) of incv*/ | |||
| 103367 | /* End of cleaning variable incv */ | |||
| 103368 | } /*CHECKSTRING(side[0]=='L'||side[0]=='R')*/ | |||
| 103369 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 103370 | } /*if (f2py_success) of side*/ | |||
| 103371 | /* End of cleaning variable side */ | |||
| 103372 | /*end of cleanupfrompyobj*/ | |||
| 103373 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 103374 | /*routdebugfailure*/ | |||
| 103375 | } else { | |||
| 103376 | /*routdebugleave*/ | |||
| 103377 | } | |||
| 103378 | CFUNCSMESS("Freeing memory.\n"); | |||
| 103379 | /*freemem*/ | |||
| 103380 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103381 | f2py_stop_clock(); | |||
| 103382 | #endif | |||
| 103383 | return capi_buildvalue; | |||
| 103384 | } | |||
| 103385 | /******************************** end of slarf ********************************/ | |||
| 103386 | ||||
| 103387 | /*********************************** dlarf ***********************************/ | |||
| 103388 | static char doc_f2py_rout__flapack_dlarf[] = "\ | |||
| 103389 | c = dlarf(v,tau,c,work,[side,incv,overwrite_c])\n\nWrapper for ``dlarf``.\ | |||
| 103390 | \n\nParameters\n----------\n" | |||
| 103391 | "v : input rank-1 array('d') with bounds ((side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv))))\n" | |||
| 103392 | "tau : input float\n" | |||
| 103393 | "c : input rank-2 array('d') with bounds (m,n)\n" | |||
| 103394 | "work : input rank-1 array('d') with bounds (lwork)\n" | |||
| 103395 | "\nOther Parameters\n----------------\n" | |||
| 103396 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 103397 | "incv : input int, optional\n Default: 1\n" | |||
| 103398 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 103399 | "\nReturns\n-------\n" | |||
| 103400 | "c : rank-2 array('d') with bounds (m,n)"; | |||
| 103401 | /* extern void F_FUNC(dlarf,DLARF)(string,int*,int*,double*,int*,double*,double*,int*,double*,int*,size_t); */ | |||
| 103402 | static PyObject *f2py_rout__flapack_dlarf(const PyObject *capi_self, | |||
| 103403 | PyObject *capi_args, | |||
| 103404 | PyObject *capi_keywds, | |||
| 103405 | void (*f2py_func)(string,int*,int*,double*,int*,double*,double*,int*,double*,int*,size_t)) { | |||
| 103406 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 103407 | volatile int f2py_success = 1; | |||
| 103408 | /*decl*/ | |||
| 103409 | ||||
| 103410 | string side = NULL((void*)0); | |||
| 103411 | int slen(side)capi_side_len; | |||
| 103412 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 103413 | int m = 0; | |||
| 103414 | int n = 0; | |||
| 103415 | double *v = NULL((void*)0); | |||
| 103416 | npy_intp v_Dims[1] = {-1}; | |||
| 103417 | const int v_Rank = 1; | |||
| 103418 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 103419 | int capi_v_intent = 0; | |||
| 103420 | PyObject *v_capi = Py_None(&_Py_NoneStruct); | |||
| 103421 | int incv = 0; | |||
| 103422 | PyObject *incv_capi = Py_None(&_Py_NoneStruct); | |||
| 103423 | double tau = 0; | |||
| 103424 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 103425 | double *c = NULL((void*)0); | |||
| 103426 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 103427 | const int c_Rank = 2; | |||
| 103428 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 103429 | int capi_c_intent = 0; | |||
| 103430 | int capi_overwrite_c = 0; | |||
| 103431 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 103432 | int ldc = 0; | |||
| 103433 | double *work = NULL((void*)0); | |||
| 103434 | npy_intp work_Dims[1] = {-1}; | |||
| 103435 | const int work_Rank = 1; | |||
| 103436 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 103437 | int capi_work_intent = 0; | |||
| 103438 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 103439 | int lwork = 0; | |||
| 103440 | static char *capi_kwlist[] = {"v","tau","c","work","side","incv","overwrite_c",NULL((void*)0)}; | |||
| 103441 | ||||
| 103442 | /*routdebugenter*/ | |||
| 103443 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103444 | f2py_start_clock(); | |||
| 103445 | #endif | |||
| 103446 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 103447 | "OOOO|OOi:_flapack.dlarf",\ | |||
| 103448 | capi_kwlist,&v_capi,&tau_capi,&c_capi,&work_capi,&side_capi,&incv_capi,&capi_overwrite_c)) | |||
| 103449 | return NULL((void*)0); | |||
| 103450 | /*frompyobj*/ | |||
| 103451 | /* Processing variable side */ | |||
| 103452 | slen(side)capi_side_len = 1; | |||
| 103453 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.dlarf to C string"); | |||
| 103454 | if (f2py_success) { | |||
| 103455 | CHECKSTRING(side[0]=='L'||side[0]=='R',"side[0]=='L'||side[0]=='R'","1st keyword side","dlarf:slen(side)=%d side=\"%s\"",side)if (!(side[0]=='L'||side[0]=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dlarf:slen(side)=%d side=\"%s\"", "(""side[0]=='L'||side[0]=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 103456 | /* Processing variable incv */ | |||
| 103457 | if (incv_capi == Py_None(&_Py_NoneStruct)) incv = 1; else | |||
| 103458 | f2py_success = int_from_pyobj(&incv,incv_capi,"_flapack.dlarf() 2nd keyword (incv) can't be converted to int"); | |||
| 103459 | if (f2py_success) { | |||
| 103460 | CHECKSCALAR(incv>0||incv<0,"incv>0||incv<0","2nd keyword incv","dlarf:incv=%d",incv)if (!(incv>0||incv<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""dlarf:incv=%d", "(""incv>0||incv<0"") failed for " "2nd keyword incv", incv); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 103461 | /* Processing variable tau */ | |||
| 103462 | f2py_success = double_from_pyobj(&tau,tau_capi,"_flapack.dlarf() 2nd argument (tau) can't be converted to double"); | |||
| 103463 | if (f2py_success) { | |||
| 103464 | /* Processing variable c */ | |||
| 103465 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 103466 | ; | |||
| 103467 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 103468 | capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 103469 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 103470 | if (!PyErr_Occurred()) | |||
| 103471 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.dlarf to C/Fortran array" ); | |||
| 103472 | } else { | |||
| 103473 | c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 103474 | ||||
| 103475 | /* Processing variable m */ | |||
| 103476 | m = shape(c,0)c_Dims[0]; | |||
| 103477 | /* Processing variable n */ | |||
| 103478 | n = shape(c,1)c_Dims[1]; | |||
| 103479 | /* Processing variable v */ | |||
| 103480 | v_Dims[0]=(side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv))); | |||
| 103481 | capi_v_intent |= F2PY_INTENT_IN1; | |||
| 103482 | capi_v_tmp = array_from_pyobj(NPY_DOUBLE,v_Dims,v_Rank,capi_v_intent,v_capi); | |||
| 103483 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 103484 | if (!PyErr_Occurred()) | |||
| 103485 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.dlarf to C/Fortran array" ); | |||
| 103486 | } else { | |||
| 103487 | v = (double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 103488 | ||||
| 103489 | /* Processing variable ldc */ | |||
| 103490 | ldc = max(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0])); | |||
| 103491 | /* Processing variable work */ | |||
| 103492 | ; | |||
| 103493 | capi_work_intent |= F2PY_INTENT_IN1; | |||
| 103494 | capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,work_capi); | |||
| 103495 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 103496 | if (!PyErr_Occurred()) | |||
| 103497 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `work' of _flapack.dlarf to C/Fortran array" ); | |||
| 103498 | } else { | |||
| 103499 | work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 103500 | ||||
| 103501 | /* Processing variable lwork */ | |||
| 103502 | lwork = len(work)work_Dims[0]; | |||
| 103503 | CHECKSCALAR(lwork >= (side[0]=='L'?n:m),"lwork >= (side[0]=='L'?n:m)","hidden lwork","dlarf:lwork=%d",lwork)if (!(lwork >= (side[0]=='L'?n:m))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dlarf:lwork=%d", "(""lwork >= (side[0]=='L'?n:m)" ") failed for ""hidden lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 103504 | /*end of frompyobj*/ | |||
| 103505 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103506 | f2py_start_call_clock(); | |||
| 103507 | #endif | |||
| 103508 | /*callfortranroutine*/ | |||
| 103509 | (*f2py_func)(side,&m,&n,v,&incv,&tau,c,&ldc,work,&lwork,slen(side)capi_side_len); | |||
| 103510 | if (PyErr_Occurred()) | |||
| 103511 | f2py_success = 0; | |||
| 103512 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103513 | f2py_stop_call_clock(); | |||
| 103514 | #endif | |||
| 103515 | /*end of callfortranroutine*/ | |||
| 103516 | if (f2py_success) { | |||
| 103517 | /*pyobjfrom*/ | |||
| 103518 | /*end of pyobjfrom*/ | |||
| 103519 | CFUNCSMESS("Building return value.\n"); | |||
| 103520 | capi_buildvalue = Py_BuildValue("N",capi_c_tmp); | |||
| 103521 | /*closepyobjfrom*/ | |||
| 103522 | /*end of closepyobjfrom*/ | |||
| 103523 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 103524 | /*cleanupfrompyobj*/ | |||
| 103525 | } /*CHECKSCALAR(lwork >= (side[0]=='L'?n:m))*/ | |||
| 103526 | /* End of cleaning variable lwork */ | |||
| 103527 | if((PyObject *)capi_work_tmp!=work_capi) { | |||
| 103528 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); } | |||
| 103529 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 103530 | /* End of cleaning variable work */ | |||
| 103531 | /* End of cleaning variable ldc */ | |||
| 103532 | if((PyObject *)capi_v_tmp!=v_capi) { | |||
| 103533 | Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); } | |||
| 103534 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 103535 | /* End of cleaning variable v */ | |||
| 103536 | /* End of cleaning variable n */ | |||
| 103537 | /* End of cleaning variable m */ | |||
| 103538 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 103539 | /* End of cleaning variable c */ | |||
| 103540 | } /*if (f2py_success) of tau*/ | |||
| 103541 | /* End of cleaning variable tau */ | |||
| 103542 | } /*CHECKSCALAR(incv>0||incv<0)*/ | |||
| 103543 | } /*if (f2py_success) of incv*/ | |||
| 103544 | /* End of cleaning variable incv */ | |||
| 103545 | } /*CHECKSTRING(side[0]=='L'||side[0]=='R')*/ | |||
| 103546 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 103547 | } /*if (f2py_success) of side*/ | |||
| 103548 | /* End of cleaning variable side */ | |||
| 103549 | /*end of cleanupfrompyobj*/ | |||
| 103550 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 103551 | /*routdebugfailure*/ | |||
| 103552 | } else { | |||
| 103553 | /*routdebugleave*/ | |||
| 103554 | } | |||
| 103555 | CFUNCSMESS("Freeing memory.\n"); | |||
| 103556 | /*freemem*/ | |||
| 103557 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103558 | f2py_stop_clock(); | |||
| 103559 | #endif | |||
| 103560 | return capi_buildvalue; | |||
| 103561 | } | |||
| 103562 | /******************************** end of dlarf ********************************/ | |||
| 103563 | ||||
| 103564 | /*********************************** clarf ***********************************/ | |||
| 103565 | static char doc_f2py_rout__flapack_clarf[] = "\ | |||
| 103566 | c = clarf(v,tau,c,work,[side,incv,overwrite_c])\n\nWrapper for ``clarf``.\ | |||
| 103567 | \n\nParameters\n----------\n" | |||
| 103568 | "v : input rank-1 array('F') with bounds ((side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv))))\n" | |||
| 103569 | "tau : input complex\n" | |||
| 103570 | "c : input rank-2 array('F') with bounds (m,n)\n" | |||
| 103571 | "work : input rank-1 array('F') with bounds (lwork)\n" | |||
| 103572 | "\nOther Parameters\n----------------\n" | |||
| 103573 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 103574 | "incv : input int, optional\n Default: 1\n" | |||
| 103575 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 103576 | "\nReturns\n-------\n" | |||
| 103577 | "c : rank-2 array('F') with bounds (m,n)"; | |||
| 103578 | /* extern void F_FUNC(clarf,CLARF)(string,int*,int*,complex_float*,int*,complex_float*,complex_float*,int*,complex_float*,int*,size_t); */ | |||
| 103579 | static PyObject *f2py_rout__flapack_clarf(const PyObject *capi_self, | |||
| 103580 | PyObject *capi_args, | |||
| 103581 | PyObject *capi_keywds, | |||
| 103582 | void (*f2py_func)(string,int*,int*,complex_float*,int*,complex_float*,complex_float*,int*,complex_float*,int*,size_t)) { | |||
| 103583 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 103584 | volatile int f2py_success = 1; | |||
| 103585 | /*decl*/ | |||
| 103586 | ||||
| 103587 | string side = NULL((void*)0); | |||
| 103588 | int slen(side)capi_side_len; | |||
| 103589 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 103590 | int m = 0; | |||
| 103591 | int n = 0; | |||
| 103592 | complex_float *v = NULL((void*)0); | |||
| 103593 | npy_intp v_Dims[1] = {-1}; | |||
| 103594 | const int v_Rank = 1; | |||
| 103595 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 103596 | int capi_v_intent = 0; | |||
| 103597 | PyObject *v_capi = Py_None(&_Py_NoneStruct); | |||
| 103598 | int incv = 0; | |||
| 103599 | PyObject *incv_capi = Py_None(&_Py_NoneStruct); | |||
| 103600 | complex_float tau; | |||
| 103601 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 103602 | complex_float *c = NULL((void*)0); | |||
| 103603 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 103604 | const int c_Rank = 2; | |||
| 103605 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 103606 | int capi_c_intent = 0; | |||
| 103607 | int capi_overwrite_c = 0; | |||
| 103608 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 103609 | int ldc = 0; | |||
| 103610 | complex_float *work = NULL((void*)0); | |||
| 103611 | npy_intp work_Dims[1] = {-1}; | |||
| 103612 | const int work_Rank = 1; | |||
| 103613 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 103614 | int capi_work_intent = 0; | |||
| 103615 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 103616 | int lwork = 0; | |||
| 103617 | static char *capi_kwlist[] = {"v","tau","c","work","side","incv","overwrite_c",NULL((void*)0)}; | |||
| 103618 | ||||
| 103619 | /*routdebugenter*/ | |||
| 103620 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103621 | f2py_start_clock(); | |||
| 103622 | #endif | |||
| 103623 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 103624 | "OOOO|OOi:_flapack.clarf",\ | |||
| 103625 | capi_kwlist,&v_capi,&tau_capi,&c_capi,&work_capi,&side_capi,&incv_capi,&capi_overwrite_c)) | |||
| 103626 | return NULL((void*)0); | |||
| 103627 | /*frompyobj*/ | |||
| 103628 | /* Processing variable side */ | |||
| 103629 | slen(side)capi_side_len = 1; | |||
| 103630 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.clarf to C string"); | |||
| 103631 | if (f2py_success) { | |||
| 103632 | CHECKSTRING(side[0]=='L'||side[0]=='R',"side[0]=='L'||side[0]=='R'","1st keyword side","clarf:slen(side)=%d side=\"%s\"",side)if (!(side[0]=='L'||side[0]=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""clarf:slen(side)=%d side=\"%s\"", "(""side[0]=='L'||side[0]=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 103633 | /* Processing variable incv */ | |||
| 103634 | if (incv_capi == Py_None(&_Py_NoneStruct)) incv = 1; else | |||
| 103635 | f2py_success = int_from_pyobj(&incv,incv_capi,"_flapack.clarf() 2nd keyword (incv) can't be converted to int"); | |||
| 103636 | if (f2py_success) { | |||
| 103637 | CHECKSCALAR(incv>0||incv<0,"incv>0||incv<0","2nd keyword incv","clarf:incv=%d",incv)if (!(incv>0||incv<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""clarf:incv=%d", "(""incv>0||incv<0"") failed for " "2nd keyword incv", incv); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 103638 | /* Processing variable tau */ | |||
| 103639 | f2py_success = complex_float_from_pyobj(&tau,tau_capi,"_flapack.clarf() 2nd argument (tau) can't be converted to complex_float"); | |||
| 103640 | if (f2py_success) { | |||
| 103641 | /* Processing variable c */ | |||
| 103642 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 103643 | ; | |||
| 103644 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 103645 | capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 103646 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 103647 | if (!PyErr_Occurred()) | |||
| 103648 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.clarf to C/Fortran array" ); | |||
| 103649 | } else { | |||
| 103650 | c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 103651 | ||||
| 103652 | /* Processing variable m */ | |||
| 103653 | m = shape(c,0)c_Dims[0]; | |||
| 103654 | /* Processing variable n */ | |||
| 103655 | n = shape(c,1)c_Dims[1]; | |||
| 103656 | /* Processing variable v */ | |||
| 103657 | v_Dims[0]=(side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv))); | |||
| 103658 | capi_v_intent |= F2PY_INTENT_IN1; | |||
| 103659 | capi_v_tmp = array_from_pyobj(NPY_CFLOAT,v_Dims,v_Rank,capi_v_intent,v_capi); | |||
| 103660 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 103661 | if (!PyErr_Occurred()) | |||
| 103662 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.clarf to C/Fortran array" ); | |||
| 103663 | } else { | |||
| 103664 | v = (complex_float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 103665 | ||||
| 103666 | /* Processing variable ldc */ | |||
| 103667 | ldc = max(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0])); | |||
| 103668 | /* Processing variable work */ | |||
| 103669 | ; | |||
| 103670 | capi_work_intent |= F2PY_INTENT_IN1; | |||
| 103671 | capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,work_capi); | |||
| 103672 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 103673 | if (!PyErr_Occurred()) | |||
| 103674 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `work' of _flapack.clarf to C/Fortran array" ); | |||
| 103675 | } else { | |||
| 103676 | work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 103677 | ||||
| 103678 | /* Processing variable lwork */ | |||
| 103679 | lwork = len(work)work_Dims[0]; | |||
| 103680 | CHECKSCALAR(lwork >= (side[0]=='L'?n:m),"lwork >= (side[0]=='L'?n:m)","hidden lwork","clarf:lwork=%d",lwork)if (!(lwork >= (side[0]=='L'?n:m))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""clarf:lwork=%d", "(""lwork >= (side[0]=='L'?n:m)" ") failed for ""hidden lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 103681 | /*end of frompyobj*/ | |||
| 103682 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103683 | f2py_start_call_clock(); | |||
| 103684 | #endif | |||
| 103685 | /*callfortranroutine*/ | |||
| 103686 | (*f2py_func)(side,&m,&n,v,&incv,&tau,c,&ldc,work,&lwork,slen(side)capi_side_len); | |||
| 103687 | if (PyErr_Occurred()) | |||
| 103688 | f2py_success = 0; | |||
| 103689 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103690 | f2py_stop_call_clock(); | |||
| 103691 | #endif | |||
| 103692 | /*end of callfortranroutine*/ | |||
| 103693 | if (f2py_success) { | |||
| 103694 | /*pyobjfrom*/ | |||
| 103695 | /*end of pyobjfrom*/ | |||
| 103696 | CFUNCSMESS("Building return value.\n"); | |||
| 103697 | capi_buildvalue = Py_BuildValue("N",capi_c_tmp); | |||
| 103698 | /*closepyobjfrom*/ | |||
| 103699 | /*end of closepyobjfrom*/ | |||
| 103700 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 103701 | /*cleanupfrompyobj*/ | |||
| 103702 | } /*CHECKSCALAR(lwork >= (side[0]=='L'?n:m))*/ | |||
| 103703 | /* End of cleaning variable lwork */ | |||
| 103704 | if((PyObject *)capi_work_tmp!=work_capi) { | |||
| 103705 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); } | |||
| 103706 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 103707 | /* End of cleaning variable work */ | |||
| 103708 | /* End of cleaning variable ldc */ | |||
| 103709 | if((PyObject *)capi_v_tmp!=v_capi) { | |||
| 103710 | Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); } | |||
| 103711 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 103712 | /* End of cleaning variable v */ | |||
| 103713 | /* End of cleaning variable n */ | |||
| 103714 | /* End of cleaning variable m */ | |||
| 103715 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 103716 | /* End of cleaning variable c */ | |||
| 103717 | } /*if (f2py_success) of tau frompyobj*/ | |||
| 103718 | /* End of cleaning variable tau */ | |||
| 103719 | } /*CHECKSCALAR(incv>0||incv<0)*/ | |||
| 103720 | } /*if (f2py_success) of incv*/ | |||
| 103721 | /* End of cleaning variable incv */ | |||
| 103722 | } /*CHECKSTRING(side[0]=='L'||side[0]=='R')*/ | |||
| 103723 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 103724 | } /*if (f2py_success) of side*/ | |||
| 103725 | /* End of cleaning variable side */ | |||
| 103726 | /*end of cleanupfrompyobj*/ | |||
| 103727 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 103728 | /*routdebugfailure*/ | |||
| 103729 | } else { | |||
| 103730 | /*routdebugleave*/ | |||
| 103731 | } | |||
| 103732 | CFUNCSMESS("Freeing memory.\n"); | |||
| 103733 | /*freemem*/ | |||
| 103734 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103735 | f2py_stop_clock(); | |||
| 103736 | #endif | |||
| 103737 | return capi_buildvalue; | |||
| 103738 | } | |||
| 103739 | /******************************** end of clarf ********************************/ | |||
| 103740 | ||||
| 103741 | /*********************************** zlarf ***********************************/ | |||
| 103742 | static char doc_f2py_rout__flapack_zlarf[] = "\ | |||
| 103743 | c = zlarf(v,tau,c,work,[side,incv,overwrite_c])\n\nWrapper for ``zlarf``.\ | |||
| 103744 | \n\nParameters\n----------\n" | |||
| 103745 | "v : input rank-1 array('D') with bounds ((side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv))))\n" | |||
| 103746 | "tau : input complex\n" | |||
| 103747 | "c : input rank-2 array('D') with bounds (m,n)\n" | |||
| 103748 | "work : input rank-1 array('D') with bounds (lwork)\n" | |||
| 103749 | "\nOther Parameters\n----------------\n" | |||
| 103750 | "side : input string(len=1), optional\n Default: 'L'\n" | |||
| 103751 | "incv : input int, optional\n Default: 1\n" | |||
| 103752 | "overwrite_c : input int, optional\n Default: 0\n" | |||
| 103753 | "\nReturns\n-------\n" | |||
| 103754 | "c : rank-2 array('D') with bounds (m,n)"; | |||
| 103755 | /* extern void F_FUNC(zlarf,ZLARF)(string,int*,int*,complex_double*,int*,complex_double*,complex_double*,int*,complex_double*,int*,size_t); */ | |||
| 103756 | static PyObject *f2py_rout__flapack_zlarf(const PyObject *capi_self, | |||
| 103757 | PyObject *capi_args, | |||
| 103758 | PyObject *capi_keywds, | |||
| 103759 | void (*f2py_func)(string,int*,int*,complex_double*,int*,complex_double*,complex_double*,int*,complex_double*,int*,size_t)) { | |||
| 103760 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 103761 | volatile int f2py_success = 1; | |||
| 103762 | /*decl*/ | |||
| 103763 | ||||
| 103764 | string side = NULL((void*)0); | |||
| 103765 | int slen(side)capi_side_len; | |||
| 103766 | PyObject *side_capi = Py_None(&_Py_NoneStruct); | |||
| 103767 | int m = 0; | |||
| 103768 | int n = 0; | |||
| 103769 | complex_double *v = NULL((void*)0); | |||
| 103770 | npy_intp v_Dims[1] = {-1}; | |||
| 103771 | const int v_Rank = 1; | |||
| 103772 | PyArrayObject *capi_v_tmp = NULL((void*)0); | |||
| 103773 | int capi_v_intent = 0; | |||
| 103774 | PyObject *v_capi = Py_None(&_Py_NoneStruct); | |||
| 103775 | int incv = 0; | |||
| 103776 | PyObject *incv_capi = Py_None(&_Py_NoneStruct); | |||
| 103777 | complex_double tau; | |||
| 103778 | PyObject *tau_capi = Py_None(&_Py_NoneStruct); | |||
| 103779 | complex_double *c = NULL((void*)0); | |||
| 103780 | npy_intp c_Dims[2] = {-1, -1}; | |||
| 103781 | const int c_Rank = 2; | |||
| 103782 | PyArrayObject *capi_c_tmp = NULL((void*)0); | |||
| 103783 | int capi_c_intent = 0; | |||
| 103784 | int capi_overwrite_c = 0; | |||
| 103785 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 103786 | int ldc = 0; | |||
| 103787 | complex_double *work = NULL((void*)0); | |||
| 103788 | npy_intp work_Dims[1] = {-1}; | |||
| 103789 | const int work_Rank = 1; | |||
| 103790 | PyArrayObject *capi_work_tmp = NULL((void*)0); | |||
| 103791 | int capi_work_intent = 0; | |||
| 103792 | PyObject *work_capi = Py_None(&_Py_NoneStruct); | |||
| 103793 | int lwork = 0; | |||
| 103794 | static char *capi_kwlist[] = {"v","tau","c","work","side","incv","overwrite_c",NULL((void*)0)}; | |||
| 103795 | ||||
| 103796 | /*routdebugenter*/ | |||
| 103797 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103798 | f2py_start_clock(); | |||
| 103799 | #endif | |||
| 103800 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 103801 | "OOOO|OOi:_flapack.zlarf",\ | |||
| 103802 | capi_kwlist,&v_capi,&tau_capi,&c_capi,&work_capi,&side_capi,&incv_capi,&capi_overwrite_c)) | |||
| 103803 | return NULL((void*)0); | |||
| 103804 | /*frompyobj*/ | |||
| 103805 | /* Processing variable side */ | |||
| 103806 | slen(side)capi_side_len = 1; | |||
| 103807 | f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.zlarf to C string"); | |||
| 103808 | if (f2py_success) { | |||
| 103809 | CHECKSTRING(side[0]=='L'||side[0]=='R',"side[0]=='L'||side[0]=='R'","1st keyword side","zlarf:slen(side)=%d side=\"%s\"",side)if (!(side[0]=='L'||side[0]=='R')) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zlarf:slen(side)=%d side=\"%s\"", "(""side[0]=='L'||side[0]=='R'" ") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString (_flapack_error, errstring); } else { | |||
| 103810 | /* Processing variable incv */ | |||
| 103811 | if (incv_capi == Py_None(&_Py_NoneStruct)) incv = 1; else | |||
| 103812 | f2py_success = int_from_pyobj(&incv,incv_capi,"_flapack.zlarf() 2nd keyword (incv) can't be converted to int"); | |||
| 103813 | if (f2py_success) { | |||
| 103814 | CHECKSCALAR(incv>0||incv<0,"incv>0||incv<0","2nd keyword incv","zlarf:incv=%d",incv)if (!(incv>0||incv<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zlarf:incv=%d", "(""incv>0||incv<0"") failed for " "2nd keyword incv", incv); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 103815 | /* Processing variable tau */ | |||
| 103816 | f2py_success = complex_double_from_pyobj(&tau,tau_capi,"_flapack.zlarf() 2nd argument (tau) can't be converted to complex_double"); | |||
| 103817 | if (f2py_success) { | |||
| 103818 | /* Processing variable c */ | |||
| 103819 | capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32); | |||
| 103820 | ; | |||
| 103821 | capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 103822 | capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi); | |||
| 103823 | if (capi_c_tmp == NULL((void*)0)) { | |||
| 103824 | if (!PyErr_Occurred()) | |||
| 103825 | PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.zlarf to C/Fortran array" ); | |||
| 103826 | } else { | |||
| 103827 | c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data)); | |||
| 103828 | ||||
| 103829 | /* Processing variable m */ | |||
| 103830 | m = shape(c,0)c_Dims[0]; | |||
| 103831 | /* Processing variable n */ | |||
| 103832 | n = shape(c,1)c_Dims[1]; | |||
| 103833 | /* Processing variable v */ | |||
| 103834 | v_Dims[0]=(side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv))); | |||
| 103835 | capi_v_intent |= F2PY_INTENT_IN1; | |||
| 103836 | capi_v_tmp = array_from_pyobj(NPY_CDOUBLE,v_Dims,v_Rank,capi_v_intent,v_capi); | |||
| 103837 | if (capi_v_tmp == NULL((void*)0)) { | |||
| 103838 | if (!PyErr_Occurred()) | |||
| 103839 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.zlarf to C/Fortran array" ); | |||
| 103840 | } else { | |||
| 103841 | v = (complex_double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data)); | |||
| 103842 | ||||
| 103843 | /* Processing variable ldc */ | |||
| 103844 | ldc = max(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0])); | |||
| 103845 | /* Processing variable work */ | |||
| 103846 | ; | |||
| 103847 | capi_work_intent |= F2PY_INTENT_IN1; | |||
| 103848 | capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,work_capi); | |||
| 103849 | if (capi_work_tmp == NULL((void*)0)) { | |||
| 103850 | if (!PyErr_Occurred()) | |||
| 103851 | PyErr_SetString(_flapack_error,"failed in converting 4th argument `work' of _flapack.zlarf to C/Fortran array" ); | |||
| 103852 | } else { | |||
| 103853 | work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data)); | |||
| 103854 | ||||
| 103855 | /* Processing variable lwork */ | |||
| 103856 | lwork = len(work)work_Dims[0]; | |||
| 103857 | CHECKSCALAR(lwork >= (side[0]=='L'?n:m),"lwork >= (side[0]=='L'?n:m)","hidden lwork","zlarf:lwork=%d",lwork)if (!(lwork >= (side[0]=='L'?n:m))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zlarf:lwork=%d", "(""lwork >= (side[0]=='L'?n:m)" ") failed for ""hidden lwork", lwork); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 103858 | /*end of frompyobj*/ | |||
| 103859 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103860 | f2py_start_call_clock(); | |||
| 103861 | #endif | |||
| 103862 | /*callfortranroutine*/ | |||
| 103863 | (*f2py_func)(side,&m,&n,v,&incv,&tau,c,&ldc,work,&lwork,slen(side)capi_side_len); | |||
| 103864 | if (PyErr_Occurred()) | |||
| 103865 | f2py_success = 0; | |||
| 103866 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103867 | f2py_stop_call_clock(); | |||
| 103868 | #endif | |||
| 103869 | /*end of callfortranroutine*/ | |||
| 103870 | if (f2py_success) { | |||
| 103871 | /*pyobjfrom*/ | |||
| 103872 | /*end of pyobjfrom*/ | |||
| 103873 | CFUNCSMESS("Building return value.\n"); | |||
| 103874 | capi_buildvalue = Py_BuildValue("N",capi_c_tmp); | |||
| 103875 | /*closepyobjfrom*/ | |||
| 103876 | /*end of closepyobjfrom*/ | |||
| 103877 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 103878 | /*cleanupfrompyobj*/ | |||
| 103879 | } /*CHECKSCALAR(lwork >= (side[0]=='L'?n:m))*/ | |||
| 103880 | /* End of cleaning variable lwork */ | |||
| 103881 | if((PyObject *)capi_work_tmp!=work_capi) { | |||
| 103882 | Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); } | |||
| 103883 | } /*if (capi_work_tmp == NULL) ... else of work*/ | |||
| 103884 | /* End of cleaning variable work */ | |||
| 103885 | /* End of cleaning variable ldc */ | |||
| 103886 | if((PyObject *)capi_v_tmp!=v_capi) { | |||
| 103887 | Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); } | |||
| 103888 | } /*if (capi_v_tmp == NULL) ... else of v*/ | |||
| 103889 | /* End of cleaning variable v */ | |||
| 103890 | /* End of cleaning variable n */ | |||
| 103891 | /* End of cleaning variable m */ | |||
| 103892 | } /*if (capi_c_tmp == NULL) ... else of c*/ | |||
| 103893 | /* End of cleaning variable c */ | |||
| 103894 | } /*if (f2py_success) of tau frompyobj*/ | |||
| 103895 | /* End of cleaning variable tau */ | |||
| 103896 | } /*CHECKSCALAR(incv>0||incv<0)*/ | |||
| 103897 | } /*if (f2py_success) of incv*/ | |||
| 103898 | /* End of cleaning variable incv */ | |||
| 103899 | } /*CHECKSTRING(side[0]=='L'||side[0]=='R')*/ | |||
| 103900 | STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0); | |||
| 103901 | } /*if (f2py_success) of side*/ | |||
| 103902 | /* End of cleaning variable side */ | |||
| 103903 | /*end of cleanupfrompyobj*/ | |||
| 103904 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 103905 | /*routdebugfailure*/ | |||
| 103906 | } else { | |||
| 103907 | /*routdebugleave*/ | |||
| 103908 | } | |||
| 103909 | CFUNCSMESS("Freeing memory.\n"); | |||
| 103910 | /*freemem*/ | |||
| 103911 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103912 | f2py_stop_clock(); | |||
| 103913 | #endif | |||
| 103914 | return capi_buildvalue; | |||
| 103915 | } | |||
| 103916 | /******************************** end of zlarf ********************************/ | |||
| 103917 | ||||
| 103918 | /*********************************** slartg ***********************************/ | |||
| 103919 | static char doc_f2py_rout__flapack_slartg[] = "\ | |||
| 103920 | cs,sn,r = slartg(f,g)\n\nWrapper for ``slartg``.\ | |||
| 103921 | \n\nParameters\n----------\n" | |||
| 103922 | "f : input float\n" | |||
| 103923 | "g : input float\n" | |||
| 103924 | "\nReturns\n-------\n" | |||
| 103925 | "cs : float\n" | |||
| 103926 | "sn : float\n" | |||
| 103927 | "r : float"; | |||
| 103928 | /* extern void F_FUNC(slartg,SLARTG)(float*,float*,float*,float*,float*); */ | |||
| 103929 | static PyObject *f2py_rout__flapack_slartg(const PyObject *capi_self, | |||
| 103930 | PyObject *capi_args, | |||
| 103931 | PyObject *capi_keywds, | |||
| 103932 | void (*f2py_func)(float*,float*,float*,float*,float*)) { | |||
| 103933 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 103934 | volatile int f2py_success = 1; | |||
| 103935 | /*decl*/ | |||
| 103936 | ||||
| 103937 | float f = 0; | |||
| 103938 | PyObject *f_capi = Py_None(&_Py_NoneStruct); | |||
| 103939 | float g = 0; | |||
| 103940 | PyObject *g_capi = Py_None(&_Py_NoneStruct); | |||
| 103941 | float cs = 0; | |||
| 103942 | float sn = 0; | |||
| 103943 | float r = 0; | |||
| 103944 | static char *capi_kwlist[] = {"f","g",NULL((void*)0)}; | |||
| 103945 | ||||
| 103946 | /*routdebugenter*/ | |||
| 103947 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103948 | f2py_start_clock(); | |||
| 103949 | #endif | |||
| 103950 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 103951 | "OO:_flapack.slartg",\ | |||
| 103952 | capi_kwlist,&f_capi,&g_capi)) | |||
| 103953 | return NULL((void*)0); | |||
| 103954 | /*frompyobj*/ | |||
| 103955 | /* Processing variable f */ | |||
| 103956 | f2py_success = float_from_pyobj(&f,f_capi,"_flapack.slartg() 1st argument (f) can't be converted to float"); | |||
| 103957 | if (f2py_success) { | |||
| 103958 | /* Processing variable g */ | |||
| 103959 | f2py_success = float_from_pyobj(&g,g_capi,"_flapack.slartg() 2nd argument (g) can't be converted to float"); | |||
| 103960 | if (f2py_success) { | |||
| 103961 | /* Processing variable cs */ | |||
| 103962 | /* Processing variable sn */ | |||
| 103963 | /* Processing variable r */ | |||
| 103964 | /*end of frompyobj*/ | |||
| 103965 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103966 | f2py_start_call_clock(); | |||
| 103967 | #endif | |||
| 103968 | /*callfortranroutine*/ | |||
| 103969 | (*f2py_func)(&f,&g,&cs,&sn,&r); | |||
| 103970 | if (PyErr_Occurred()) | |||
| 103971 | f2py_success = 0; | |||
| 103972 | #ifdef F2PY_REPORT_ATEXIT | |||
| 103973 | f2py_stop_call_clock(); | |||
| 103974 | #endif | |||
| 103975 | /*end of callfortranroutine*/ | |||
| 103976 | if (f2py_success) { | |||
| 103977 | /*pyobjfrom*/ | |||
| 103978 | /*end of pyobjfrom*/ | |||
| 103979 | CFUNCSMESS("Building return value.\n"); | |||
| 103980 | capi_buildvalue = Py_BuildValue("fff",cs,sn,r); | |||
| 103981 | /*closepyobjfrom*/ | |||
| 103982 | /*end of closepyobjfrom*/ | |||
| 103983 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 103984 | /*cleanupfrompyobj*/ | |||
| 103985 | /* End of cleaning variable r */ | |||
| 103986 | /* End of cleaning variable sn */ | |||
| 103987 | /* End of cleaning variable cs */ | |||
| 103988 | } /*if (f2py_success) of g*/ | |||
| 103989 | /* End of cleaning variable g */ | |||
| 103990 | } /*if (f2py_success) of f*/ | |||
| 103991 | /* End of cleaning variable f */ | |||
| 103992 | /*end of cleanupfrompyobj*/ | |||
| 103993 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 103994 | /*routdebugfailure*/ | |||
| 103995 | } else { | |||
| 103996 | /*routdebugleave*/ | |||
| 103997 | } | |||
| 103998 | CFUNCSMESS("Freeing memory.\n"); | |||
| 103999 | /*freemem*/ | |||
| 104000 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104001 | f2py_stop_clock(); | |||
| 104002 | #endif | |||
| 104003 | return capi_buildvalue; | |||
| 104004 | } | |||
| 104005 | /******************************* end of slartg *******************************/ | |||
| 104006 | ||||
| 104007 | /*********************************** dlartg ***********************************/ | |||
| 104008 | static char doc_f2py_rout__flapack_dlartg[] = "\ | |||
| 104009 | cs,sn,r = dlartg(f,g)\n\nWrapper for ``dlartg``.\ | |||
| 104010 | \n\nParameters\n----------\n" | |||
| 104011 | "f : input float\n" | |||
| 104012 | "g : input float\n" | |||
| 104013 | "\nReturns\n-------\n" | |||
| 104014 | "cs : float\n" | |||
| 104015 | "sn : float\n" | |||
| 104016 | "r : float"; | |||
| 104017 | /* extern void F_FUNC(dlartg,DLARTG)(double*,double*,double*,double*,double*); */ | |||
| 104018 | static PyObject *f2py_rout__flapack_dlartg(const PyObject *capi_self, | |||
| 104019 | PyObject *capi_args, | |||
| 104020 | PyObject *capi_keywds, | |||
| 104021 | void (*f2py_func)(double*,double*,double*,double*,double*)) { | |||
| 104022 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 104023 | volatile int f2py_success = 1; | |||
| 104024 | /*decl*/ | |||
| 104025 | ||||
| 104026 | double f = 0; | |||
| 104027 | PyObject *f_capi = Py_None(&_Py_NoneStruct); | |||
| 104028 | double g = 0; | |||
| 104029 | PyObject *g_capi = Py_None(&_Py_NoneStruct); | |||
| 104030 | double cs = 0; | |||
| 104031 | double sn = 0; | |||
| 104032 | double r = 0; | |||
| 104033 | static char *capi_kwlist[] = {"f","g",NULL((void*)0)}; | |||
| 104034 | ||||
| 104035 | /*routdebugenter*/ | |||
| 104036 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104037 | f2py_start_clock(); | |||
| 104038 | #endif | |||
| 104039 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 104040 | "OO:_flapack.dlartg",\ | |||
| 104041 | capi_kwlist,&f_capi,&g_capi)) | |||
| 104042 | return NULL((void*)0); | |||
| 104043 | /*frompyobj*/ | |||
| 104044 | /* Processing variable f */ | |||
| 104045 | f2py_success = double_from_pyobj(&f,f_capi,"_flapack.dlartg() 1st argument (f) can't be converted to double"); | |||
| 104046 | if (f2py_success) { | |||
| 104047 | /* Processing variable g */ | |||
| 104048 | f2py_success = double_from_pyobj(&g,g_capi,"_flapack.dlartg() 2nd argument (g) can't be converted to double"); | |||
| 104049 | if (f2py_success) { | |||
| 104050 | /* Processing variable cs */ | |||
| 104051 | /* Processing variable sn */ | |||
| 104052 | /* Processing variable r */ | |||
| 104053 | /*end of frompyobj*/ | |||
| 104054 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104055 | f2py_start_call_clock(); | |||
| 104056 | #endif | |||
| 104057 | /*callfortranroutine*/ | |||
| 104058 | (*f2py_func)(&f,&g,&cs,&sn,&r); | |||
| 104059 | if (PyErr_Occurred()) | |||
| 104060 | f2py_success = 0; | |||
| 104061 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104062 | f2py_stop_call_clock(); | |||
| 104063 | #endif | |||
| 104064 | /*end of callfortranroutine*/ | |||
| 104065 | if (f2py_success) { | |||
| 104066 | /*pyobjfrom*/ | |||
| 104067 | /*end of pyobjfrom*/ | |||
| 104068 | CFUNCSMESS("Building return value.\n"); | |||
| 104069 | capi_buildvalue = Py_BuildValue("ddd",cs,sn,r); | |||
| 104070 | /*closepyobjfrom*/ | |||
| 104071 | /*end of closepyobjfrom*/ | |||
| 104072 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 104073 | /*cleanupfrompyobj*/ | |||
| 104074 | /* End of cleaning variable r */ | |||
| 104075 | /* End of cleaning variable sn */ | |||
| 104076 | /* End of cleaning variable cs */ | |||
| 104077 | } /*if (f2py_success) of g*/ | |||
| 104078 | /* End of cleaning variable g */ | |||
| 104079 | } /*if (f2py_success) of f*/ | |||
| 104080 | /* End of cleaning variable f */ | |||
| 104081 | /*end of cleanupfrompyobj*/ | |||
| 104082 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 104083 | /*routdebugfailure*/ | |||
| 104084 | } else { | |||
| 104085 | /*routdebugleave*/ | |||
| 104086 | } | |||
| 104087 | CFUNCSMESS("Freeing memory.\n"); | |||
| 104088 | /*freemem*/ | |||
| 104089 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104090 | f2py_stop_clock(); | |||
| 104091 | #endif | |||
| 104092 | return capi_buildvalue; | |||
| 104093 | } | |||
| 104094 | /******************************* end of dlartg *******************************/ | |||
| 104095 | ||||
| 104096 | /*********************************** clartg ***********************************/ | |||
| 104097 | static char doc_f2py_rout__flapack_clartg[] = "\ | |||
| 104098 | cs,sn,r = clartg(f,g)\n\nWrapper for ``clartg``.\ | |||
| 104099 | \n\nParameters\n----------\n" | |||
| 104100 | "f : input complex\n" | |||
| 104101 | "g : input complex\n" | |||
| 104102 | "\nReturns\n-------\n" | |||
| 104103 | "cs : float\n" | |||
| 104104 | "sn : complex\n" | |||
| 104105 | "r : complex"; | |||
| 104106 | /* extern void F_FUNC(clartg,CLARTG)(complex_float*,complex_float*,float*,complex_float*,complex_float*); */ | |||
| 104107 | static PyObject *f2py_rout__flapack_clartg(const PyObject *capi_self, | |||
| 104108 | PyObject *capi_args, | |||
| 104109 | PyObject *capi_keywds, | |||
| 104110 | void (*f2py_func)(complex_float*,complex_float*,float*,complex_float*,complex_float*)) { | |||
| 104111 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 104112 | volatile int f2py_success = 1; | |||
| 104113 | /*decl*/ | |||
| 104114 | ||||
| 104115 | complex_float f; | |||
| 104116 | PyObject *f_capi = Py_None(&_Py_NoneStruct); | |||
| 104117 | complex_float g; | |||
| 104118 | PyObject *g_capi = Py_None(&_Py_NoneStruct); | |||
| 104119 | float cs = 0; | |||
| 104120 | complex_float sn; | |||
| 104121 | PyObject *sn_capi = Py_None(&_Py_NoneStruct); | |||
| 104122 | complex_float r; | |||
| 104123 | PyObject *r_capi = Py_None(&_Py_NoneStruct); | |||
| 104124 | static char *capi_kwlist[] = {"f","g",NULL((void*)0)}; | |||
| 104125 | ||||
| 104126 | /*routdebugenter*/ | |||
| 104127 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104128 | f2py_start_clock(); | |||
| 104129 | #endif | |||
| 104130 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 104131 | "OO:_flapack.clartg",\ | |||
| 104132 | capi_kwlist,&f_capi,&g_capi)) | |||
| 104133 | return NULL((void*)0); | |||
| 104134 | /*frompyobj*/ | |||
| 104135 | /* Processing variable f */ | |||
| 104136 | f2py_success = complex_float_from_pyobj(&f,f_capi,"_flapack.clartg() 1st argument (f) can't be converted to complex_float"); | |||
| 104137 | if (f2py_success) { | |||
| 104138 | /* Processing variable g */ | |||
| 104139 | f2py_success = complex_float_from_pyobj(&g,g_capi,"_flapack.clartg() 2nd argument (g) can't be converted to complex_float"); | |||
| 104140 | if (f2py_success) { | |||
| 104141 | /* Processing variable cs */ | |||
| 104142 | /* Processing variable sn */ | |||
| 104143 | /* Processing variable r */ | |||
| 104144 | /*end of frompyobj*/ | |||
| 104145 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104146 | f2py_start_call_clock(); | |||
| 104147 | #endif | |||
| 104148 | /*callfortranroutine*/ | |||
| 104149 | (*f2py_func)(&f,&g,&cs,&sn,&r); | |||
| 104150 | if (PyErr_Occurred()) | |||
| 104151 | f2py_success = 0; | |||
| 104152 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104153 | f2py_stop_call_clock(); | |||
| 104154 | #endif | |||
| 104155 | /*end of callfortranroutine*/ | |||
| 104156 | if (f2py_success) { | |||
| 104157 | /*pyobjfrom*/ | |||
| 104158 | sn_capi = pyobj_from_complex_float1(sn)(PyComplex_FromDoubles(sn.r,sn.i)); | |||
| 104159 | r_capi = pyobj_from_complex_float1(r)(PyComplex_FromDoubles(r.r,r.i)); | |||
| 104160 | /*end of pyobjfrom*/ | |||
| 104161 | CFUNCSMESS("Building return value.\n"); | |||
| 104162 | capi_buildvalue = Py_BuildValue("fNN",cs,sn_capi,r_capi); | |||
| 104163 | /*closepyobjfrom*/ | |||
| 104164 | /*end of closepyobjfrom*/ | |||
| 104165 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 104166 | /*cleanupfrompyobj*/ | |||
| 104167 | /* End of cleaning variable r */ | |||
| 104168 | /* End of cleaning variable sn */ | |||
| 104169 | /* End of cleaning variable cs */ | |||
| 104170 | } /*if (f2py_success) of g frompyobj*/ | |||
| 104171 | /* End of cleaning variable g */ | |||
| 104172 | } /*if (f2py_success) of f frompyobj*/ | |||
| 104173 | /* End of cleaning variable f */ | |||
| 104174 | /*end of cleanupfrompyobj*/ | |||
| 104175 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 104176 | /*routdebugfailure*/ | |||
| 104177 | } else { | |||
| 104178 | /*routdebugleave*/ | |||
| 104179 | } | |||
| 104180 | CFUNCSMESS("Freeing memory.\n"); | |||
| 104181 | /*freemem*/ | |||
| 104182 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104183 | f2py_stop_clock(); | |||
| 104184 | #endif | |||
| 104185 | return capi_buildvalue; | |||
| 104186 | } | |||
| 104187 | /******************************* end of clartg *******************************/ | |||
| 104188 | ||||
| 104189 | /*********************************** zlartg ***********************************/ | |||
| 104190 | static char doc_f2py_rout__flapack_zlartg[] = "\ | |||
| 104191 | cs,sn,r = zlartg(f,g)\n\nWrapper for ``zlartg``.\ | |||
| 104192 | \n\nParameters\n----------\n" | |||
| 104193 | "f : input complex\n" | |||
| 104194 | "g : input complex\n" | |||
| 104195 | "\nReturns\n-------\n" | |||
| 104196 | "cs : float\n" | |||
| 104197 | "sn : complex\n" | |||
| 104198 | "r : complex"; | |||
| 104199 | /* extern void F_FUNC(zlartg,ZLARTG)(complex_double*,complex_double*,double*,complex_double*,complex_double*); */ | |||
| 104200 | static PyObject *f2py_rout__flapack_zlartg(const PyObject *capi_self, | |||
| 104201 | PyObject *capi_args, | |||
| 104202 | PyObject *capi_keywds, | |||
| 104203 | void (*f2py_func)(complex_double*,complex_double*,double*,complex_double*,complex_double*)) { | |||
| 104204 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 104205 | volatile int f2py_success = 1; | |||
| 104206 | /*decl*/ | |||
| 104207 | ||||
| 104208 | complex_double f; | |||
| 104209 | PyObject *f_capi = Py_None(&_Py_NoneStruct); | |||
| 104210 | complex_double g; | |||
| 104211 | PyObject *g_capi = Py_None(&_Py_NoneStruct); | |||
| 104212 | double cs = 0; | |||
| 104213 | complex_double sn; | |||
| 104214 | PyObject *sn_capi = Py_None(&_Py_NoneStruct); | |||
| 104215 | complex_double r; | |||
| 104216 | PyObject *r_capi = Py_None(&_Py_NoneStruct); | |||
| 104217 | static char *capi_kwlist[] = {"f","g",NULL((void*)0)}; | |||
| 104218 | ||||
| 104219 | /*routdebugenter*/ | |||
| 104220 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104221 | f2py_start_clock(); | |||
| 104222 | #endif | |||
| 104223 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 104224 | "OO:_flapack.zlartg",\ | |||
| 104225 | capi_kwlist,&f_capi,&g_capi)) | |||
| 104226 | return NULL((void*)0); | |||
| 104227 | /*frompyobj*/ | |||
| 104228 | /* Processing variable f */ | |||
| 104229 | f2py_success = complex_double_from_pyobj(&f,f_capi,"_flapack.zlartg() 1st argument (f) can't be converted to complex_double"); | |||
| 104230 | if (f2py_success) { | |||
| 104231 | /* Processing variable g */ | |||
| 104232 | f2py_success = complex_double_from_pyobj(&g,g_capi,"_flapack.zlartg() 2nd argument (g) can't be converted to complex_double"); | |||
| 104233 | if (f2py_success) { | |||
| 104234 | /* Processing variable cs */ | |||
| 104235 | /* Processing variable sn */ | |||
| 104236 | /* Processing variable r */ | |||
| 104237 | /*end of frompyobj*/ | |||
| 104238 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104239 | f2py_start_call_clock(); | |||
| 104240 | #endif | |||
| 104241 | /*callfortranroutine*/ | |||
| 104242 | (*f2py_func)(&f,&g,&cs,&sn,&r); | |||
| 104243 | if (PyErr_Occurred()) | |||
| 104244 | f2py_success = 0; | |||
| 104245 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104246 | f2py_stop_call_clock(); | |||
| 104247 | #endif | |||
| 104248 | /*end of callfortranroutine*/ | |||
| 104249 | if (f2py_success) { | |||
| 104250 | /*pyobjfrom*/ | |||
| 104251 | sn_capi = pyobj_from_complex_double1(sn)(PyComplex_FromDoubles(sn.r,sn.i)); | |||
| 104252 | r_capi = pyobj_from_complex_double1(r)(PyComplex_FromDoubles(r.r,r.i)); | |||
| 104253 | /*end of pyobjfrom*/ | |||
| 104254 | CFUNCSMESS("Building return value.\n"); | |||
| 104255 | capi_buildvalue = Py_BuildValue("dNN",cs,sn_capi,r_capi); | |||
| 104256 | /*closepyobjfrom*/ | |||
| 104257 | /*end of closepyobjfrom*/ | |||
| 104258 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 104259 | /*cleanupfrompyobj*/ | |||
| 104260 | /* End of cleaning variable r */ | |||
| 104261 | /* End of cleaning variable sn */ | |||
| 104262 | /* End of cleaning variable cs */ | |||
| 104263 | } /*if (f2py_success) of g frompyobj*/ | |||
| 104264 | /* End of cleaning variable g */ | |||
| 104265 | } /*if (f2py_success) of f frompyobj*/ | |||
| 104266 | /* End of cleaning variable f */ | |||
| 104267 | /*end of cleanupfrompyobj*/ | |||
| 104268 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 104269 | /*routdebugfailure*/ | |||
| 104270 | } else { | |||
| 104271 | /*routdebugleave*/ | |||
| 104272 | } | |||
| 104273 | CFUNCSMESS("Freeing memory.\n"); | |||
| 104274 | /*freemem*/ | |||
| 104275 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104276 | f2py_stop_clock(); | |||
| 104277 | #endif | |||
| 104278 | return capi_buildvalue; | |||
| 104279 | } | |||
| 104280 | /******************************* end of zlartg *******************************/ | |||
| 104281 | ||||
| 104282 | /************************************ crot ************************************/ | |||
| 104283 | static char doc_f2py_rout__flapack_crot[] = "\ | |||
| 104284 | x,y = crot(x,y,c,s,[n,offx,incx,offy,incy,overwrite_x,overwrite_y])\n\nWrapper for ``crot``.\ | |||
| 104285 | \n\nParameters\n----------\n" | |||
| 104286 | "x : input rank-1 array('F') with bounds (lx)\n" | |||
| 104287 | "y : input rank-1 array('F') with bounds (ly)\n" | |||
| 104288 | "c : input float\n" | |||
| 104289 | "s : input complex\n" | |||
| 104290 | "\nOther Parameters\n----------------\n" | |||
| 104291 | "n : input int, optional\n Default: (lx-1-offx)/abs(incx)+1\n" | |||
| 104292 | "overwrite_x : input int, optional\n Default: 0\n" | |||
| 104293 | "offx : input int, optional\n Default: 0\n" | |||
| 104294 | "incx : input int, optional\n Default: 1\n" | |||
| 104295 | "overwrite_y : input int, optional\n Default: 0\n" | |||
| 104296 | "offy : input int, optional\n Default: 0\n" | |||
| 104297 | "incy : input int, optional\n Default: 1\n" | |||
| 104298 | "\nReturns\n-------\n" | |||
| 104299 | "x : rank-1 array('F') with bounds (lx)\n" | |||
| 104300 | "y : rank-1 array('F') with bounds (ly)"; | |||
| 104301 | /* extern void F_FUNC(crot,CROT)(F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,complex_float* ); */ | |||
| 104302 | static PyObject *f2py_rout__flapack_crot(const PyObject *capi_self, | |||
| 104303 | PyObject *capi_args, | |||
| 104304 | PyObject *capi_keywds, | |||
| 104305 | void (*f2py_func)(F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float* )) { | |||
| 104306 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 104307 | volatile int f2py_success = 1; | |||
| 104308 | /*decl*/ | |||
| 104309 | ||||
| 104310 | int n = 0; | |||
| 104311 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 104312 | complex_float *x = NULL((void*)0); | |||
| 104313 | npy_intp x_Dims[1] = {-1}; | |||
| 104314 | const int x_Rank = 1; | |||
| 104315 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 104316 | int capi_x_intent = 0; | |||
| 104317 | int capi_overwrite_x = 0; | |||
| 104318 | PyObject *x_capi = Py_None(&_Py_NoneStruct); | |||
| 104319 | int offx = 0; | |||
| 104320 | PyObject *offx_capi = Py_None(&_Py_NoneStruct); | |||
| 104321 | int incx = 0; | |||
| 104322 | PyObject *incx_capi = Py_None(&_Py_NoneStruct); | |||
| 104323 | complex_float *y = NULL((void*)0); | |||
| 104324 | npy_intp y_Dims[1] = {-1}; | |||
| 104325 | const int y_Rank = 1; | |||
| 104326 | PyArrayObject *capi_y_tmp = NULL((void*)0); | |||
| 104327 | int capi_y_intent = 0; | |||
| 104328 | int capi_overwrite_y = 0; | |||
| 104329 | PyObject *y_capi = Py_None(&_Py_NoneStruct); | |||
| 104330 | int offy = 0; | |||
| 104331 | PyObject *offy_capi = Py_None(&_Py_NoneStruct); | |||
| 104332 | int incy = 0; | |||
| 104333 | PyObject *incy_capi = Py_None(&_Py_NoneStruct); | |||
| 104334 | float c = 0; | |||
| 104335 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 104336 | complex_float s; | |||
| 104337 | PyObject *s_capi = Py_None(&_Py_NoneStruct); | |||
| 104338 | int lx = 0; | |||
| 104339 | int ly = 0; | |||
| 104340 | static char *capi_kwlist[] = {"x","y","c","s","n","offx","incx","offy","incy","overwrite_x","overwrite_y",NULL((void*)0)}; | |||
| 104341 | ||||
| 104342 | /*routdebugenter*/ | |||
| 104343 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104344 | f2py_start_clock(); | |||
| 104345 | #endif | |||
| 104346 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 104347 | "OOOO|OOOOOii:_flapack.crot",\ | |||
| 104348 | capi_kwlist,&x_capi,&y_capi,&c_capi,&s_capi,&n_capi,&offx_capi,&incx_capi,&offy_capi,&incy_capi,&capi_overwrite_x,&capi_overwrite_y)) | |||
| 104349 | return NULL((void*)0); | |||
| 104350 | /*frompyobj*/ | |||
| 104351 | /* Processing variable x */ | |||
| 104352 | capi_x_intent |= (capi_overwrite_x?0:F2PY_INTENT_COPY32); | |||
| 104353 | ; | |||
| 104354 | capi_x_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 104355 | capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,x_capi); | |||
| 104356 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 104357 | if (!PyErr_Occurred()) | |||
| 104358 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `x' of _flapack.crot to C/Fortran array" ); | |||
| 104359 | } else { | |||
| 104360 | x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 104361 | ||||
| 104362 | /* Processing variable y */ | |||
| 104363 | capi_y_intent |= (capi_overwrite_y?0:F2PY_INTENT_COPY32); | |||
| 104364 | ; | |||
| 104365 | capi_y_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 104366 | capi_y_tmp = array_from_pyobj(NPY_CFLOAT,y_Dims,y_Rank,capi_y_intent,y_capi); | |||
| 104367 | if (capi_y_tmp == NULL((void*)0)) { | |||
| 104368 | if (!PyErr_Occurred()) | |||
| 104369 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `y' of _flapack.crot to C/Fortran array" ); | |||
| 104370 | } else { | |||
| 104371 | y = (complex_float *)(PyArray_DATA(capi_y_tmp)((void *)((PyArrayObject_fields *)(capi_y_tmp))->data)); | |||
| 104372 | ||||
| 104373 | /* Processing variable c */ | |||
| 104374 | f2py_success = float_from_pyobj(&c,c_capi,"_flapack.crot() 3rd argument (c) can't be converted to float"); | |||
| 104375 | if (f2py_success) { | |||
| 104376 | /* Processing variable s */ | |||
| 104377 | f2py_success = complex_float_from_pyobj(&s,s_capi,"_flapack.crot() 4th argument (s) can't be converted to complex_float"); | |||
| 104378 | if (f2py_success) { | |||
| 104379 | /* Processing variable incx */ | |||
| 104380 | if (incx_capi == Py_None(&_Py_NoneStruct)) incx = 1; else | |||
| 104381 | f2py_success = int_from_pyobj(&incx,incx_capi,"_flapack.crot() 3rd keyword (incx) can't be converted to int"); | |||
| 104382 | if (f2py_success) { | |||
| 104383 | CHECKSCALAR(incx>0||incx<0,"incx>0||incx<0","3rd keyword incx","crot:incx=%d",incx)if (!(incx>0||incx<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""crot:incx=%d", "(""incx>0||incx<0"") failed for " "3rd keyword incx", incx); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 104384 | /* Processing variable incy */ | |||
| 104385 | if (incy_capi == Py_None(&_Py_NoneStruct)) incy = 1; else | |||
| 104386 | f2py_success = int_from_pyobj(&incy,incy_capi,"_flapack.crot() 5th keyword (incy) can't be converted to int"); | |||
| 104387 | if (f2py_success) { | |||
| 104388 | CHECKSCALAR(incy>0||incy<0,"incy>0||incy<0","5th keyword incy","crot:incy=%d",incy)if (!(incy>0||incy<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""crot:incy=%d", "(""incy>0||incy<0"") failed for " "5th keyword incy", incy); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 104389 | /* Processing variable lx */ | |||
| 104390 | lx = len(x)x_Dims[0]; | |||
| 104391 | /* Processing variable ly */ | |||
| 104392 | ly = len(y)y_Dims[0]; | |||
| 104393 | /* Processing variable offx */ | |||
| 104394 | if (offx_capi == Py_None(&_Py_NoneStruct)) offx = 0; else | |||
| 104395 | f2py_success = int_from_pyobj(&offx,offx_capi,"_flapack.crot() 2nd keyword (offx) can't be converted to int"); | |||
| 104396 | if (f2py_success) { | |||
| 104397 | CHECKSCALAR(offx>=0 && offx<lx,"offx>=0 && offx<lx","2nd keyword offx","crot:offx=%d",offx)if (!(offx>=0 && offx<lx)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""crot:offx=%d", "(""offx>=0 && offx<lx" ") failed for ""2nd keyword offx", offx); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 104398 | /* Processing variable offy */ | |||
| 104399 | if (offy_capi == Py_None(&_Py_NoneStruct)) offy = 0; else | |||
| 104400 | f2py_success = int_from_pyobj(&offy,offy_capi,"_flapack.crot() 4th keyword (offy) can't be converted to int"); | |||
| 104401 | if (f2py_success) { | |||
| 104402 | CHECKSCALAR(offy>=0 && offy<ly,"offy>=0 && offy<ly","4th keyword offy","crot:offy=%d",offy)if (!(offy>=0 && offy<ly)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""crot:offy=%d", "(""offy>=0 && offy<ly" ") failed for ""4th keyword offy", offy); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 104403 | /* Processing variable n */ | |||
| 104404 | if (n_capi == Py_None(&_Py_NoneStruct)) n = (lx-1-offx)/abs(incx)+1; else | |||
| 104405 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.crot() 1st keyword (n) can't be converted to int"); | |||
| 104406 | if (f2py_success) { | |||
| 104407 | CHECKSCALAR(ly-offy>(n-1)*abs(incy),"ly-offy>(n-1)*abs(incy)","1st keyword n","crot:n=%d",n)if (!(ly-offy>(n-1)*abs(incy))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""crot:n=%d", "(""ly-offy>(n-1)*abs(incy)"") failed for " "1st keyword n", n); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 104408 | CHECKSCALAR(lx-offx>(n-1)*abs(incx),"lx-offx>(n-1)*abs(incx)","1st keyword n","crot:n=%d",n)if (!(lx-offx>(n-1)*abs(incx))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""crot:n=%d", "(""lx-offx>(n-1)*abs(incx)"") failed for " "1st keyword n", n); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 104409 | /*end of frompyobj*/ | |||
| 104410 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104411 | f2py_start_call_clock(); | |||
| 104412 | #endif | |||
| 104413 | /*callfortranroutine*/ | |||
| 104414 | (*f2py_func)(&n,x+offx,&incx,y+offy,&incy,&c,&s) ; | |||
| 104415 | /*(*f2py_func)(&n,x,&offx,&incx,y,&offy,&incy,&c,&s,&lx,&ly);*/ | |||
| 104416 | if (PyErr_Occurred()) | |||
| 104417 | f2py_success = 0; | |||
| 104418 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104419 | f2py_stop_call_clock(); | |||
| 104420 | #endif | |||
| 104421 | /*end of callfortranroutine*/ | |||
| 104422 | if (f2py_success) { | |||
| 104423 | /*pyobjfrom*/ | |||
| 104424 | /*end of pyobjfrom*/ | |||
| 104425 | CFUNCSMESS("Building return value.\n"); | |||
| 104426 | capi_buildvalue = Py_BuildValue("NN",capi_x_tmp,capi_y_tmp); | |||
| 104427 | /*closepyobjfrom*/ | |||
| 104428 | /*end of closepyobjfrom*/ | |||
| 104429 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 104430 | /*cleanupfrompyobj*/ | |||
| 104431 | } /*CHECKSCALAR(lx-offx>(n-1)*abs(incx))*/ | |||
| 104432 | } /*CHECKSCALAR(ly-offy>(n-1)*abs(incy))*/ | |||
| 104433 | } /*if (f2py_success) of n*/ | |||
| 104434 | /* End of cleaning variable n */ | |||
| 104435 | } /*CHECKSCALAR(offy>=0 && offy<ly)*/ | |||
| 104436 | } /*if (f2py_success) of offy*/ | |||
| 104437 | /* End of cleaning variable offy */ | |||
| 104438 | } /*CHECKSCALAR(offx>=0 && offx<lx)*/ | |||
| 104439 | } /*if (f2py_success) of offx*/ | |||
| 104440 | /* End of cleaning variable offx */ | |||
| 104441 | /* End of cleaning variable ly */ | |||
| 104442 | /* End of cleaning variable lx */ | |||
| 104443 | } /*CHECKSCALAR(incy>0||incy<0)*/ | |||
| 104444 | } /*if (f2py_success) of incy*/ | |||
| 104445 | /* End of cleaning variable incy */ | |||
| 104446 | } /*CHECKSCALAR(incx>0||incx<0)*/ | |||
| 104447 | } /*if (f2py_success) of incx*/ | |||
| 104448 | /* End of cleaning variable incx */ | |||
| 104449 | } /*if (f2py_success) of s frompyobj*/ | |||
| 104450 | /* End of cleaning variable s */ | |||
| 104451 | } /*if (f2py_success) of c*/ | |||
| 104452 | /* End of cleaning variable c */ | |||
| 104453 | } /*if (capi_y_tmp == NULL) ... else of y*/ | |||
| 104454 | /* End of cleaning variable y */ | |||
| 104455 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 104456 | /* End of cleaning variable x */ | |||
| 104457 | /*end of cleanupfrompyobj*/ | |||
| 104458 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 104459 | /*routdebugfailure*/ | |||
| 104460 | } else { | |||
| 104461 | /*routdebugleave*/ | |||
| 104462 | } | |||
| 104463 | CFUNCSMESS("Freeing memory.\n"); | |||
| 104464 | /*freemem*/ | |||
| 104465 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104466 | f2py_stop_clock(); | |||
| 104467 | #endif | |||
| 104468 | return capi_buildvalue; | |||
| 104469 | } | |||
| 104470 | /******************************** end of crot ********************************/ | |||
| 104471 | ||||
| 104472 | /************************************ zrot ************************************/ | |||
| 104473 | static char doc_f2py_rout__flapack_zrot[] = "\ | |||
| 104474 | x,y = zrot(x,y,c,s,[n,offx,incx,offy,incy,overwrite_x,overwrite_y])\n\nWrapper for ``zrot``.\ | |||
| 104475 | \n\nParameters\n----------\n" | |||
| 104476 | "x : input rank-1 array('D') with bounds (lx)\n" | |||
| 104477 | "y : input rank-1 array('D') with bounds (ly)\n" | |||
| 104478 | "c : input float\n" | |||
| 104479 | "s : input complex\n" | |||
| 104480 | "\nOther Parameters\n----------------\n" | |||
| 104481 | "n : input int, optional\n Default: (lx-1-offx)/abs(incx)+1\n" | |||
| 104482 | "overwrite_x : input int, optional\n Default: 0\n" | |||
| 104483 | "offx : input int, optional\n Default: 0\n" | |||
| 104484 | "incx : input int, optional\n Default: 1\n" | |||
| 104485 | "overwrite_y : input int, optional\n Default: 0\n" | |||
| 104486 | "offy : input int, optional\n Default: 0\n" | |||
| 104487 | "incy : input int, optional\n Default: 1\n" | |||
| 104488 | "\nReturns\n-------\n" | |||
| 104489 | "x : rank-1 array('D') with bounds (lx)\n" | |||
| 104490 | "y : rank-1 array('D') with bounds (ly)"; | |||
| 104491 | /* extern void F_FUNC(zrot,ZROT)(F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,complex_double* ); */ | |||
| 104492 | static PyObject *f2py_rout__flapack_zrot(const PyObject *capi_self, | |||
| 104493 | PyObject *capi_args, | |||
| 104494 | PyObject *capi_keywds, | |||
| 104495 | void (*f2py_func)(F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double* )) { | |||
| 104496 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 104497 | volatile int f2py_success = 1; | |||
| 104498 | /*decl*/ | |||
| 104499 | ||||
| 104500 | int n = 0; | |||
| 104501 | PyObject *n_capi = Py_None(&_Py_NoneStruct); | |||
| 104502 | complex_double *x = NULL((void*)0); | |||
| 104503 | npy_intp x_Dims[1] = {-1}; | |||
| 104504 | const int x_Rank = 1; | |||
| 104505 | PyArrayObject *capi_x_tmp = NULL((void*)0); | |||
| 104506 | int capi_x_intent = 0; | |||
| 104507 | int capi_overwrite_x = 0; | |||
| 104508 | PyObject *x_capi = Py_None(&_Py_NoneStruct); | |||
| 104509 | int offx = 0; | |||
| 104510 | PyObject *offx_capi = Py_None(&_Py_NoneStruct); | |||
| 104511 | int incx = 0; | |||
| 104512 | PyObject *incx_capi = Py_None(&_Py_NoneStruct); | |||
| 104513 | complex_double *y = NULL((void*)0); | |||
| 104514 | npy_intp y_Dims[1] = {-1}; | |||
| 104515 | const int y_Rank = 1; | |||
| 104516 | PyArrayObject *capi_y_tmp = NULL((void*)0); | |||
| 104517 | int capi_y_intent = 0; | |||
| 104518 | int capi_overwrite_y = 0; | |||
| 104519 | PyObject *y_capi = Py_None(&_Py_NoneStruct); | |||
| 104520 | int offy = 0; | |||
| 104521 | PyObject *offy_capi = Py_None(&_Py_NoneStruct); | |||
| 104522 | int incy = 0; | |||
| 104523 | PyObject *incy_capi = Py_None(&_Py_NoneStruct); | |||
| 104524 | double c = 0; | |||
| 104525 | PyObject *c_capi = Py_None(&_Py_NoneStruct); | |||
| 104526 | complex_double s; | |||
| 104527 | PyObject *s_capi = Py_None(&_Py_NoneStruct); | |||
| 104528 | int lx = 0; | |||
| 104529 | int ly = 0; | |||
| 104530 | static char *capi_kwlist[] = {"x","y","c","s","n","offx","incx","offy","incy","overwrite_x","overwrite_y",NULL((void*)0)}; | |||
| 104531 | ||||
| 104532 | /*routdebugenter*/ | |||
| 104533 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104534 | f2py_start_clock(); | |||
| 104535 | #endif | |||
| 104536 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 104537 | "OOOO|OOOOOii:_flapack.zrot",\ | |||
| 104538 | capi_kwlist,&x_capi,&y_capi,&c_capi,&s_capi,&n_capi,&offx_capi,&incx_capi,&offy_capi,&incy_capi,&capi_overwrite_x,&capi_overwrite_y)) | |||
| 104539 | return NULL((void*)0); | |||
| 104540 | /*frompyobj*/ | |||
| 104541 | /* Processing variable x */ | |||
| 104542 | capi_x_intent |= (capi_overwrite_x?0:F2PY_INTENT_COPY32); | |||
| 104543 | ; | |||
| 104544 | capi_x_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 104545 | capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,x_capi); | |||
| 104546 | if (capi_x_tmp == NULL((void*)0)) { | |||
| 104547 | if (!PyErr_Occurred()) | |||
| 104548 | PyErr_SetString(_flapack_error,"failed in converting 1st argument `x' of _flapack.zrot to C/Fortran array" ); | |||
| 104549 | } else { | |||
| 104550 | x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data)); | |||
| 104551 | ||||
| 104552 | /* Processing variable y */ | |||
| 104553 | capi_y_intent |= (capi_overwrite_y?0:F2PY_INTENT_COPY32); | |||
| 104554 | ; | |||
| 104555 | capi_y_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4; | |||
| 104556 | capi_y_tmp = array_from_pyobj(NPY_CDOUBLE,y_Dims,y_Rank,capi_y_intent,y_capi); | |||
| 104557 | if (capi_y_tmp == NULL((void*)0)) { | |||
| 104558 | if (!PyErr_Occurred()) | |||
| 104559 | PyErr_SetString(_flapack_error,"failed in converting 2nd argument `y' of _flapack.zrot to C/Fortran array" ); | |||
| 104560 | } else { | |||
| 104561 | y = (complex_double *)(PyArray_DATA(capi_y_tmp)((void *)((PyArrayObject_fields *)(capi_y_tmp))->data)); | |||
| 104562 | ||||
| 104563 | /* Processing variable c */ | |||
| 104564 | f2py_success = double_from_pyobj(&c,c_capi,"_flapack.zrot() 3rd argument (c) can't be converted to double"); | |||
| 104565 | if (f2py_success) { | |||
| 104566 | /* Processing variable s */ | |||
| 104567 | f2py_success = complex_double_from_pyobj(&s,s_capi,"_flapack.zrot() 4th argument (s) can't be converted to complex_double"); | |||
| 104568 | if (f2py_success) { | |||
| 104569 | /* Processing variable incx */ | |||
| 104570 | if (incx_capi == Py_None(&_Py_NoneStruct)) incx = 1; else | |||
| 104571 | f2py_success = int_from_pyobj(&incx,incx_capi,"_flapack.zrot() 3rd keyword (incx) can't be converted to int"); | |||
| 104572 | if (f2py_success) { | |||
| 104573 | CHECKSCALAR(incx>0||incx<0,"incx>0||incx<0","3rd keyword incx","zrot:incx=%d",incx)if (!(incx>0||incx<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zrot:incx=%d", "(""incx>0||incx<0"") failed for " "3rd keyword incx", incx); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 104574 | /* Processing variable incy */ | |||
| 104575 | if (incy_capi == Py_None(&_Py_NoneStruct)) incy = 1; else | |||
| 104576 | f2py_success = int_from_pyobj(&incy,incy_capi,"_flapack.zrot() 5th keyword (incy) can't be converted to int"); | |||
| 104577 | if (f2py_success) { | |||
| 104578 | CHECKSCALAR(incy>0||incy<0,"incy>0||incy<0","5th keyword incy","zrot:incy=%d",incy)if (!(incy>0||incy<0)) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zrot:incy=%d", "(""incy>0||incy<0"") failed for " "5th keyword incy", incy); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 104579 | /* Processing variable lx */ | |||
| 104580 | lx = len(x)x_Dims[0]; | |||
| 104581 | /* Processing variable ly */ | |||
| 104582 | ly = len(y)y_Dims[0]; | |||
| 104583 | /* Processing variable offx */ | |||
| 104584 | if (offx_capi == Py_None(&_Py_NoneStruct)) offx = 0; else | |||
| 104585 | f2py_success = int_from_pyobj(&offx,offx_capi,"_flapack.zrot() 2nd keyword (offx) can't be converted to int"); | |||
| 104586 | if (f2py_success) { | |||
| 104587 | CHECKSCALAR(offx>=0 && offx<lx,"offx>=0 && offx<lx","2nd keyword offx","zrot:offx=%d",offx)if (!(offx>=0 && offx<lx)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zrot:offx=%d", "(""offx>=0 && offx<lx" ") failed for ""2nd keyword offx", offx); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 104588 | /* Processing variable offy */ | |||
| 104589 | if (offy_capi == Py_None(&_Py_NoneStruct)) offy = 0; else | |||
| 104590 | f2py_success = int_from_pyobj(&offy,offy_capi,"_flapack.zrot() 4th keyword (offy) can't be converted to int"); | |||
| 104591 | if (f2py_success) { | |||
| 104592 | CHECKSCALAR(offy>=0 && offy<ly,"offy>=0 && offy<ly","4th keyword offy","zrot:offy=%d",offy)if (!(offy>=0 && offy<ly)) { char errstring[256 ]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zrot:offy=%d", "(""offy>=0 && offy<ly" ") failed for ""4th keyword offy", offy); PyErr_SetString(_flapack_error ,errstring); } else { | |||
| 104593 | /* Processing variable n */ | |||
| 104594 | if (n_capi == Py_None(&_Py_NoneStruct)) n = (lx-1-offx)/abs(incx)+1; else | |||
| 104595 | f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zrot() 1st keyword (n) can't be converted to int"); | |||
| 104596 | if (f2py_success) { | |||
| 104597 | CHECKSCALAR(ly-offy>(n-1)*abs(incy),"ly-offy>(n-1)*abs(incy)","1st keyword n","zrot:n=%d",n)if (!(ly-offy>(n-1)*abs(incy))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zrot:n=%d", "(""ly-offy>(n-1)*abs(incy)"") failed for " "1st keyword n", n); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 104598 | CHECKSCALAR(lx-offx>(n-1)*abs(incx),"lx-offx>(n-1)*abs(incx)","1st keyword n","zrot:n=%d",n)if (!(lx-offx>(n-1)*abs(incx))) { char errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1 ), "%s: ""zrot:n=%d", "(""lx-offx>(n-1)*abs(incx)"") failed for " "1st keyword n", n); PyErr_SetString(_flapack_error,errstring ); } else { | |||
| 104599 | /*end of frompyobj*/ | |||
| 104600 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104601 | f2py_start_call_clock(); | |||
| 104602 | #endif | |||
| 104603 | /*callfortranroutine*/ | |||
| 104604 | (*f2py_func)(&n,x+offx,&incx,y+offy,&incy,&c,&s) ; | |||
| 104605 | /*(*f2py_func)(&n,x,&offx,&incx,y,&offy,&incy,&c,&s,&lx,&ly);*/ | |||
| 104606 | if (PyErr_Occurred()) | |||
| 104607 | f2py_success = 0; | |||
| 104608 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104609 | f2py_stop_call_clock(); | |||
| 104610 | #endif | |||
| 104611 | /*end of callfortranroutine*/ | |||
| 104612 | if (f2py_success) { | |||
| 104613 | /*pyobjfrom*/ | |||
| 104614 | /*end of pyobjfrom*/ | |||
| 104615 | CFUNCSMESS("Building return value.\n"); | |||
| 104616 | capi_buildvalue = Py_BuildValue("NN",capi_x_tmp,capi_y_tmp); | |||
| 104617 | /*closepyobjfrom*/ | |||
| 104618 | /*end of closepyobjfrom*/ | |||
| 104619 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 104620 | /*cleanupfrompyobj*/ | |||
| 104621 | } /*CHECKSCALAR(lx-offx>(n-1)*abs(incx))*/ | |||
| 104622 | } /*CHECKSCALAR(ly-offy>(n-1)*abs(incy))*/ | |||
| 104623 | } /*if (f2py_success) of n*/ | |||
| 104624 | /* End of cleaning variable n */ | |||
| 104625 | } /*CHECKSCALAR(offy>=0 && offy<ly)*/ | |||
| 104626 | } /*if (f2py_success) of offy*/ | |||
| 104627 | /* End of cleaning variable offy */ | |||
| 104628 | } /*CHECKSCALAR(offx>=0 && offx<lx)*/ | |||
| 104629 | } /*if (f2py_success) of offx*/ | |||
| 104630 | /* End of cleaning variable offx */ | |||
| 104631 | /* End of cleaning variable ly */ | |||
| 104632 | /* End of cleaning variable lx */ | |||
| 104633 | } /*CHECKSCALAR(incy>0||incy<0)*/ | |||
| 104634 | } /*if (f2py_success) of incy*/ | |||
| 104635 | /* End of cleaning variable incy */ | |||
| 104636 | } /*CHECKSCALAR(incx>0||incx<0)*/ | |||
| 104637 | } /*if (f2py_success) of incx*/ | |||
| 104638 | /* End of cleaning variable incx */ | |||
| 104639 | } /*if (f2py_success) of s frompyobj*/ | |||
| 104640 | /* End of cleaning variable s */ | |||
| 104641 | } /*if (f2py_success) of c*/ | |||
| 104642 | /* End of cleaning variable c */ | |||
| 104643 | } /*if (capi_y_tmp == NULL) ... else of y*/ | |||
| 104644 | /* End of cleaning variable y */ | |||
| 104645 | } /*if (capi_x_tmp == NULL) ... else of x*/ | |||
| 104646 | /* End of cleaning variable x */ | |||
| 104647 | /*end of cleanupfrompyobj*/ | |||
| 104648 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 104649 | /*routdebugfailure*/ | |||
| 104650 | } else { | |||
| 104651 | /*routdebugleave*/ | |||
| 104652 | } | |||
| 104653 | CFUNCSMESS("Freeing memory.\n"); | |||
| 104654 | /*freemem*/ | |||
| 104655 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104656 | f2py_stop_clock(); | |||
| 104657 | #endif | |||
| 104658 | return capi_buildvalue; | |||
| 104659 | } | |||
| 104660 | /******************************** end of zrot ********************************/ | |||
| 104661 | ||||
| 104662 | /*********************************** ilaver ***********************************/ | |||
| 104663 | static char doc_f2py_rout__flapack_ilaver[] = "\ | |||
| 104664 | major,minor,patch = ilaver()\n\nWrapper for ``ilaver``.\ | |||
| 104665 | \n\nReturns\n-------\n" | |||
| 104666 | "major : int\n" | |||
| 104667 | "minor : int\n" | |||
| 104668 | "patch : int"; | |||
| 104669 | /* extern void F_FUNC(ilaver,ILAVER)(int*,int*,int*); */ | |||
| 104670 | static PyObject *f2py_rout__flapack_ilaver(const PyObject *capi_self, | |||
| 104671 | PyObject *capi_args, | |||
| 104672 | PyObject *capi_keywds, | |||
| 104673 | void (*f2py_func)(int*,int*,int*)) { | |||
| 104674 | PyObject * volatile capi_buildvalue = NULL((void*)0); | |||
| 104675 | volatile int f2py_success = 1; | |||
| 104676 | /*decl*/ | |||
| 104677 | ||||
| 104678 | int major = 0; | |||
| 104679 | int minor = 0; | |||
| 104680 | int patch = 0; | |||
| 104681 | static char *capi_kwlist[] = {NULL((void*)0)}; | |||
| 104682 | ||||
| 104683 | /*routdebugenter*/ | |||
| 104684 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104685 | f2py_start_clock(); | |||
| 104686 | #endif | |||
| 104687 | if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ | |||
| 104688 | ":_flapack.ilaver",\ | |||
| 104689 | capi_kwlist)) | |||
| 104690 | return NULL((void*)0); | |||
| 104691 | /*frompyobj*/ | |||
| 104692 | /* Processing variable major */ | |||
| 104693 | /* Processing variable minor */ | |||
| 104694 | /* Processing variable patch */ | |||
| 104695 | /*end of frompyobj*/ | |||
| 104696 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104697 | f2py_start_call_clock(); | |||
| 104698 | #endif | |||
| 104699 | /*callfortranroutine*/ | |||
| 104700 | (*f2py_func)(&major,&minor,&patch); | |||
| 104701 | if (PyErr_Occurred()) | |||
| 104702 | f2py_success = 0; | |||
| 104703 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104704 | f2py_stop_call_clock(); | |||
| 104705 | #endif | |||
| 104706 | /*end of callfortranroutine*/ | |||
| 104707 | if (f2py_success) { | |||
| 104708 | /*pyobjfrom*/ | |||
| 104709 | /*end of pyobjfrom*/ | |||
| 104710 | CFUNCSMESS("Building return value.\n"); | |||
| 104711 | capi_buildvalue = Py_BuildValue("iii",major,minor,patch); | |||
| 104712 | /*closepyobjfrom*/ | |||
| 104713 | /*end of closepyobjfrom*/ | |||
| 104714 | } /*if (f2py_success) after callfortranroutine*/ | |||
| 104715 | /*cleanupfrompyobj*/ | |||
| 104716 | /* End of cleaning variable patch */ | |||
| 104717 | /* End of cleaning variable minor */ | |||
| 104718 | /* End of cleaning variable major */ | |||
| 104719 | /*end of cleanupfrompyobj*/ | |||
| 104720 | if (capi_buildvalue == NULL((void*)0)) { | |||
| 104721 | /*routdebugfailure*/ | |||
| 104722 | } else { | |||
| 104723 | /*routdebugleave*/ | |||
| 104724 | } | |||
| 104725 | CFUNCSMESS("Freeing memory.\n"); | |||
| 104726 | /*freemem*/ | |||
| 104727 | #ifdef F2PY_REPORT_ATEXIT | |||
| 104728 | f2py_stop_clock(); | |||
| 104729 | #endif | |||
| 104730 | return capi_buildvalue; | |||
| 104731 | } | |||
| 104732 | /******************************* end of ilaver *******************************/ | |||
| 104733 | /*eof body*/ | |||
| 104734 | ||||
| 104735 | /******************* See f2py2e/f90mod_rules.py: buildhooks *******************/ | |||
| 104736 | /*need_f90modhooks*/ | |||
| 104737 | ||||
| 104738 | /************** See f2py2e/rules.py: module_rules['modulebody'] **************/ | |||
| 104739 | ||||
| 104740 | /******************* See f2py2e/common_rules.py: buildhooks *******************/ | |||
| 104741 | ||||
| 104742 | /*need_commonhooks*/ | |||
| 104743 | ||||
| 104744 | /**************************** See f2py2e/rules.py ****************************/ | |||
| 104745 | ||||
| 104746 | static FortranDataDef f2py_routine_defs[] = { | |||
| 104747 | {"sgebal",-1,{{-1}},0,(char *)F_FUNC(sgebal,SGEBAL)sgebal_,(f2py_init_func)f2py_rout__flapack_sgebal,doc_f2py_rout__flapack_sgebal}, | |||
| 104748 | {"dgebal",-1,{{-1}},0,(char *)F_FUNC(dgebal,DGEBAL)dgebal_,(f2py_init_func)f2py_rout__flapack_dgebal,doc_f2py_rout__flapack_dgebal}, | |||
| 104749 | {"cgebal",-1,{{-1}},0,(char *)F_FUNC(cgebal,CGEBAL)cgebal_,(f2py_init_func)f2py_rout__flapack_cgebal,doc_f2py_rout__flapack_cgebal}, | |||
| 104750 | {"zgebal",-1,{{-1}},0,(char *)F_FUNC(zgebal,ZGEBAL)zgebal_,(f2py_init_func)f2py_rout__flapack_zgebal,doc_f2py_rout__flapack_zgebal}, | |||
| 104751 | {"sgehrd",-1,{{-1}},0,(char *)F_FUNC(sgehrd,SGEHRD)sgehrd_,(f2py_init_func)f2py_rout__flapack_sgehrd,doc_f2py_rout__flapack_sgehrd}, | |||
| 104752 | {"dgehrd",-1,{{-1}},0,(char *)F_FUNC(dgehrd,DGEHRD)dgehrd_,(f2py_init_func)f2py_rout__flapack_dgehrd,doc_f2py_rout__flapack_dgehrd}, | |||
| 104753 | {"cgehrd",-1,{{-1}},0,(char *)F_FUNC(cgehrd,CGEHRD)cgehrd_,(f2py_init_func)f2py_rout__flapack_cgehrd,doc_f2py_rout__flapack_cgehrd}, | |||
| 104754 | {"zgehrd",-1,{{-1}},0,(char *)F_FUNC(zgehrd,ZGEHRD)zgehrd_,(f2py_init_func)f2py_rout__flapack_zgehrd,doc_f2py_rout__flapack_zgehrd}, | |||
| 104755 | {"sgehrd_lwork",-1,{{-1}},0,(char *)F_FUNC(sgehrd ,SGEHRD )sgehrd_,(f2py_init_func)f2py_rout__flapack_sgehrd_lwork,doc_f2py_rout__flapack_sgehrd_lwork}, | |||
| 104756 | {"dgehrd_lwork",-1,{{-1}},0,(char *)F_FUNC(dgehrd ,DGEHRD )dgehrd_,(f2py_init_func)f2py_rout__flapack_dgehrd_lwork,doc_f2py_rout__flapack_dgehrd_lwork}, | |||
| 104757 | {"cgehrd_lwork",-1,{{-1}},0,(char *)F_FUNC(cgehrd ,CGEHRD )cgehrd_,(f2py_init_func)f2py_rout__flapack_cgehrd_lwork,doc_f2py_rout__flapack_cgehrd_lwork}, | |||
| 104758 | {"zgehrd_lwork",-1,{{-1}},0,(char *)F_FUNC(zgehrd ,ZGEHRD )zgehrd_,(f2py_init_func)f2py_rout__flapack_zgehrd_lwork,doc_f2py_rout__flapack_zgehrd_lwork}, | |||
| 104759 | {"sgesv",-1,{{-1}},0,(char *)F_FUNC(sgesv,SGESV)sgesv_,(f2py_init_func)f2py_rout__flapack_sgesv,doc_f2py_rout__flapack_sgesv}, | |||
| 104760 | {"dgesv",-1,{{-1}},0,(char *)F_FUNC(dgesv,DGESV)dgesv_,(f2py_init_func)f2py_rout__flapack_dgesv,doc_f2py_rout__flapack_dgesv}, | |||
| 104761 | {"cgesv",-1,{{-1}},0,(char *)F_FUNC(cgesv,CGESV)cgesv_,(f2py_init_func)f2py_rout__flapack_cgesv,doc_f2py_rout__flapack_cgesv}, | |||
| 104762 | {"zgesv",-1,{{-1}},0,(char *)F_FUNC(zgesv,ZGESV)zgesv_,(f2py_init_func)f2py_rout__flapack_zgesv,doc_f2py_rout__flapack_zgesv}, | |||
| 104763 | {"sgesvx",-1,{{-1}},0,(char *)F_FUNC(sgesvx,SGESVX)sgesvx_,(f2py_init_func)f2py_rout__flapack_sgesvx,doc_f2py_rout__flapack_sgesvx}, | |||
| 104764 | {"dgesvx",-1,{{-1}},0,(char *)F_FUNC(dgesvx,DGESVX)dgesvx_,(f2py_init_func)f2py_rout__flapack_dgesvx,doc_f2py_rout__flapack_dgesvx}, | |||
| 104765 | {"cgesvx",-1,{{-1}},0,(char *)F_FUNC(cgesvx,CGESVX)cgesvx_,(f2py_init_func)f2py_rout__flapack_cgesvx,doc_f2py_rout__flapack_cgesvx}, | |||
| 104766 | {"zgesvx",-1,{{-1}},0,(char *)F_FUNC(zgesvx,ZGESVX)zgesvx_,(f2py_init_func)f2py_rout__flapack_zgesvx,doc_f2py_rout__flapack_zgesvx}, | |||
| 104767 | {"sgecon",-1,{{-1}},0,(char *)F_FUNC(sgecon,SGECON)sgecon_,(f2py_init_func)f2py_rout__flapack_sgecon,doc_f2py_rout__flapack_sgecon}, | |||
| 104768 | {"dgecon",-1,{{-1}},0,(char *)F_FUNC(dgecon,DGECON)dgecon_,(f2py_init_func)f2py_rout__flapack_dgecon,doc_f2py_rout__flapack_dgecon}, | |||
| 104769 | {"cgecon",-1,{{-1}},0,(char *)F_FUNC(cgecon,CGECON)cgecon_,(f2py_init_func)f2py_rout__flapack_cgecon,doc_f2py_rout__flapack_cgecon}, | |||
| 104770 | {"zgecon",-1,{{-1}},0,(char *)F_FUNC(zgecon,ZGECON)zgecon_,(f2py_init_func)f2py_rout__flapack_zgecon,doc_f2py_rout__flapack_zgecon}, | |||
| 104771 | {"sgetrf",-1,{{-1}},0,(char *)F_FUNC(sgetrf,SGETRF)sgetrf_,(f2py_init_func)f2py_rout__flapack_sgetrf,doc_f2py_rout__flapack_sgetrf}, | |||
| 104772 | {"dgetrf",-1,{{-1}},0,(char *)F_FUNC(dgetrf,DGETRF)dgetrf_,(f2py_init_func)f2py_rout__flapack_dgetrf,doc_f2py_rout__flapack_dgetrf}, | |||
| 104773 | {"cgetrf",-1,{{-1}},0,(char *)F_FUNC(cgetrf,CGETRF)cgetrf_,(f2py_init_func)f2py_rout__flapack_cgetrf,doc_f2py_rout__flapack_cgetrf}, | |||
| 104774 | {"zgetrf",-1,{{-1}},0,(char *)F_FUNC(zgetrf,ZGETRF)zgetrf_,(f2py_init_func)f2py_rout__flapack_zgetrf,doc_f2py_rout__flapack_zgetrf}, | |||
| 104775 | {"sgetrs",-1,{{-1}},0,(char *)F_FUNC(sgetrs,SGETRS)sgetrs_,(f2py_init_func)f2py_rout__flapack_sgetrs,doc_f2py_rout__flapack_sgetrs}, | |||
| 104776 | {"dgetrs",-1,{{-1}},0,(char *)F_FUNC(dgetrs,DGETRS)dgetrs_,(f2py_init_func)f2py_rout__flapack_dgetrs,doc_f2py_rout__flapack_dgetrs}, | |||
| 104777 | {"cgetrs",-1,{{-1}},0,(char *)F_FUNC(cgetrs,CGETRS)cgetrs_,(f2py_init_func)f2py_rout__flapack_cgetrs,doc_f2py_rout__flapack_cgetrs}, | |||
| 104778 | {"zgetrs",-1,{{-1}},0,(char *)F_FUNC(zgetrs,ZGETRS)zgetrs_,(f2py_init_func)f2py_rout__flapack_zgetrs,doc_f2py_rout__flapack_zgetrs}, | |||
| 104779 | {"sgetc2",-1,{{-1}},0,(char *)F_FUNC(sgetc2,SGETC2)sgetc2_,(f2py_init_func)f2py_rout__flapack_sgetc2,doc_f2py_rout__flapack_sgetc2}, | |||
| 104780 | {"dgetc2",-1,{{-1}},0,(char *)F_FUNC(dgetc2,DGETC2)dgetc2_,(f2py_init_func)f2py_rout__flapack_dgetc2,doc_f2py_rout__flapack_dgetc2}, | |||
| 104781 | {"cgetc2",-1,{{-1}},0,(char *)F_FUNC(cgetc2,CGETC2)cgetc2_,(f2py_init_func)f2py_rout__flapack_cgetc2,doc_f2py_rout__flapack_cgetc2}, | |||
| 104782 | {"zgetc2",-1,{{-1}},0,(char *)F_FUNC(zgetc2,ZGETC2)zgetc2_,(f2py_init_func)f2py_rout__flapack_zgetc2,doc_f2py_rout__flapack_zgetc2}, | |||
| 104783 | {"sgesc2",-1,{{-1}},0,(char *)F_FUNC(sgesc2,SGESC2)sgesc2_,(f2py_init_func)f2py_rout__flapack_sgesc2,doc_f2py_rout__flapack_sgesc2}, | |||
| 104784 | {"dgesc2",-1,{{-1}},0,(char *)F_FUNC(dgesc2,DGESC2)dgesc2_,(f2py_init_func)f2py_rout__flapack_dgesc2,doc_f2py_rout__flapack_dgesc2}, | |||
| 104785 | {"cgesc2",-1,{{-1}},0,(char *)F_FUNC(cgesc2,CGESC2)cgesc2_,(f2py_init_func)f2py_rout__flapack_cgesc2,doc_f2py_rout__flapack_cgesc2}, | |||
| 104786 | {"zgesc2",-1,{{-1}},0,(char *)F_FUNC(zgesc2,ZGESC2)zgesc2_,(f2py_init_func)f2py_rout__flapack_zgesc2,doc_f2py_rout__flapack_zgesc2}, | |||
| 104787 | {"sgetri",-1,{{-1}},0,(char *)F_FUNC(sgetri,SGETRI)sgetri_,(f2py_init_func)f2py_rout__flapack_sgetri,doc_f2py_rout__flapack_sgetri}, | |||
| 104788 | {"dgetri",-1,{{-1}},0,(char *)F_FUNC(dgetri,DGETRI)dgetri_,(f2py_init_func)f2py_rout__flapack_dgetri,doc_f2py_rout__flapack_dgetri}, | |||
| 104789 | {"cgetri",-1,{{-1}},0,(char *)F_FUNC(cgetri,CGETRI)cgetri_,(f2py_init_func)f2py_rout__flapack_cgetri,doc_f2py_rout__flapack_cgetri}, | |||
| 104790 | {"zgetri",-1,{{-1}},0,(char *)F_FUNC(zgetri,ZGETRI)zgetri_,(f2py_init_func)f2py_rout__flapack_zgetri,doc_f2py_rout__flapack_zgetri}, | |||
| 104791 | {"sgetri_lwork",-1,{{-1}},0,(char *)F_FUNC(sgetri ,SGETRI )sgetri_,(f2py_init_func)f2py_rout__flapack_sgetri_lwork,doc_f2py_rout__flapack_sgetri_lwork}, | |||
| 104792 | {"dgetri_lwork",-1,{{-1}},0,(char *)F_FUNC(dgetri ,DGETRI )dgetri_,(f2py_init_func)f2py_rout__flapack_dgetri_lwork,doc_f2py_rout__flapack_dgetri_lwork}, | |||
| 104793 | {"cgetri_lwork",-1,{{-1}},0,(char *)F_FUNC(cgetri ,CGETRI )cgetri_,(f2py_init_func)f2py_rout__flapack_cgetri_lwork,doc_f2py_rout__flapack_cgetri_lwork}, | |||
| 104794 | {"zgetri_lwork",-1,{{-1}},0,(char *)F_FUNC(zgetri ,ZGETRI )zgetri_,(f2py_init_func)f2py_rout__flapack_zgetri_lwork,doc_f2py_rout__flapack_zgetri_lwork}, | |||
| 104795 | {"sgesdd",-1,{{-1}},0,(char *)F_FUNC(sgesdd,SGESDD)sgesdd_,(f2py_init_func)f2py_rout__flapack_sgesdd,doc_f2py_rout__flapack_sgesdd}, | |||
| 104796 | {"dgesdd",-1,{{-1}},0,(char *)F_FUNC(dgesdd,DGESDD)dgesdd_,(f2py_init_func)f2py_rout__flapack_dgesdd,doc_f2py_rout__flapack_dgesdd}, | |||
| 104797 | {"sgesdd_lwork",-1,{{-1}},0,(char *)F_FUNC(sgesdd ,SGESDD )sgesdd_,(f2py_init_func)f2py_rout__flapack_sgesdd_lwork,doc_f2py_rout__flapack_sgesdd_lwork}, | |||
| 104798 | {"dgesdd_lwork",-1,{{-1}},0,(char *)F_FUNC(dgesdd ,DGESDD )dgesdd_,(f2py_init_func)f2py_rout__flapack_dgesdd_lwork,doc_f2py_rout__flapack_dgesdd_lwork}, | |||
| 104799 | {"cgesdd",-1,{{-1}},0,(char *)F_FUNC(cgesdd,CGESDD)cgesdd_,(f2py_init_func)f2py_rout__flapack_cgesdd,doc_f2py_rout__flapack_cgesdd}, | |||
| 104800 | {"zgesdd",-1,{{-1}},0,(char *)F_FUNC(zgesdd,ZGESDD)zgesdd_,(f2py_init_func)f2py_rout__flapack_zgesdd,doc_f2py_rout__flapack_zgesdd}, | |||
| 104801 | {"cgesdd_lwork",-1,{{-1}},0,(char *)F_FUNC(cgesdd ,CGESDD )cgesdd_,(f2py_init_func)f2py_rout__flapack_cgesdd_lwork,doc_f2py_rout__flapack_cgesdd_lwork}, | |||
| 104802 | {"zgesdd_lwork",-1,{{-1}},0,(char *)F_FUNC(zgesdd ,ZGESDD )zgesdd_,(f2py_init_func)f2py_rout__flapack_zgesdd_lwork,doc_f2py_rout__flapack_zgesdd_lwork}, | |||
| 104803 | {"sgesvd",-1,{{-1}},0,(char *)F_FUNC(sgesvd,SGESVD)sgesvd_,(f2py_init_func)f2py_rout__flapack_sgesvd,doc_f2py_rout__flapack_sgesvd}, | |||
| 104804 | {"dgesvd",-1,{{-1}},0,(char *)F_FUNC(dgesvd,DGESVD)dgesvd_,(f2py_init_func)f2py_rout__flapack_dgesvd,doc_f2py_rout__flapack_dgesvd}, | |||
| 104805 | {"sgesvd_lwork",-1,{{-1}},0,(char *)F_FUNC(sgesvd ,SGESVD )sgesvd_,(f2py_init_func)f2py_rout__flapack_sgesvd_lwork,doc_f2py_rout__flapack_sgesvd_lwork}, | |||
| 104806 | {"dgesvd_lwork",-1,{{-1}},0,(char *)F_FUNC(dgesvd ,DGESVD )dgesvd_,(f2py_init_func)f2py_rout__flapack_dgesvd_lwork,doc_f2py_rout__flapack_dgesvd_lwork}, | |||
| 104807 | {"cgesvd",-1,{{-1}},0,(char *)F_FUNC(cgesvd,CGESVD)cgesvd_,(f2py_init_func)f2py_rout__flapack_cgesvd,doc_f2py_rout__flapack_cgesvd}, | |||
| 104808 | {"zgesvd",-1,{{-1}},0,(char *)F_FUNC(zgesvd,ZGESVD)zgesvd_,(f2py_init_func)f2py_rout__flapack_zgesvd,doc_f2py_rout__flapack_zgesvd}, | |||
| 104809 | {"cgesvd_lwork",-1,{{-1}},0,(char *)F_FUNC(cgesvd ,CGESVD )cgesvd_,(f2py_init_func)f2py_rout__flapack_cgesvd_lwork,doc_f2py_rout__flapack_cgesvd_lwork}, | |||
| 104810 | {"zgesvd_lwork",-1,{{-1}},0,(char *)F_FUNC(zgesvd ,ZGESVD )zgesvd_,(f2py_init_func)f2py_rout__flapack_zgesvd_lwork,doc_f2py_rout__flapack_zgesvd_lwork}, | |||
| 104811 | {"sgels",-1,{{-1}},0,(char *)F_FUNC(sgels,SGELS)sgels_,(f2py_init_func)f2py_rout__flapack_sgels,doc_f2py_rout__flapack_sgels}, | |||
| 104812 | {"dgels",-1,{{-1}},0,(char *)F_FUNC(dgels,DGELS)dgels_,(f2py_init_func)f2py_rout__flapack_dgels,doc_f2py_rout__flapack_dgels}, | |||
| 104813 | {"cgels",-1,{{-1}},0,(char *)F_FUNC(cgels,CGELS)cgels_,(f2py_init_func)f2py_rout__flapack_cgels,doc_f2py_rout__flapack_cgels}, | |||
| 104814 | {"zgels",-1,{{-1}},0,(char *)F_FUNC(zgels,ZGELS)zgels_,(f2py_init_func)f2py_rout__flapack_zgels,doc_f2py_rout__flapack_zgels}, | |||
| 104815 | {"sgels_lwork",-1,{{-1}},0,(char *)F_FUNC(sgels ,SGELS )sgels_,(f2py_init_func)f2py_rout__flapack_sgels_lwork,doc_f2py_rout__flapack_sgels_lwork}, | |||
| 104816 | {"dgels_lwork",-1,{{-1}},0,(char *)F_FUNC(dgels ,DGELS )dgels_,(f2py_init_func)f2py_rout__flapack_dgels_lwork,doc_f2py_rout__flapack_dgels_lwork}, | |||
| 104817 | {"cgels_lwork",-1,{{-1}},0,(char *)F_FUNC(cgels ,CGELS )cgels_,(f2py_init_func)f2py_rout__flapack_cgels_lwork,doc_f2py_rout__flapack_cgels_lwork}, | |||
| 104818 | {"zgels_lwork",-1,{{-1}},0,(char *)F_FUNC(zgels ,ZGELS )zgels_,(f2py_init_func)f2py_rout__flapack_zgels_lwork,doc_f2py_rout__flapack_zgels_lwork}, | |||
| 104819 | {"sgelss",-1,{{-1}},0,(char *)F_FUNC(sgelss,SGELSS)sgelss_,(f2py_init_func)f2py_rout__flapack_sgelss,doc_f2py_rout__flapack_sgelss}, | |||
| 104820 | {"dgelss",-1,{{-1}},0,(char *)F_FUNC(dgelss,DGELSS)dgelss_,(f2py_init_func)f2py_rout__flapack_dgelss,doc_f2py_rout__flapack_dgelss}, | |||
| 104821 | {"sgelss_lwork",-1,{{-1}},0,(char *)F_FUNC(sgelss ,SGELSS )sgelss_,(f2py_init_func)f2py_rout__flapack_sgelss_lwork,doc_f2py_rout__flapack_sgelss_lwork}, | |||
| 104822 | {"dgelss_lwork",-1,{{-1}},0,(char *)F_FUNC(dgelss ,DGELSS )dgelss_,(f2py_init_func)f2py_rout__flapack_dgelss_lwork,doc_f2py_rout__flapack_dgelss_lwork}, | |||
| 104823 | {"cgelss",-1,{{-1}},0,(char *)F_FUNC(cgelss,CGELSS)cgelss_,(f2py_init_func)f2py_rout__flapack_cgelss,doc_f2py_rout__flapack_cgelss}, | |||
| 104824 | {"zgelss",-1,{{-1}},0,(char *)F_FUNC(zgelss,ZGELSS)zgelss_,(f2py_init_func)f2py_rout__flapack_zgelss,doc_f2py_rout__flapack_zgelss}, | |||
| 104825 | {"cgelss_lwork",-1,{{-1}},0,(char *)F_FUNC(cgelss ,CGELSS )cgelss_,(f2py_init_func)f2py_rout__flapack_cgelss_lwork,doc_f2py_rout__flapack_cgelss_lwork}, | |||
| 104826 | {"zgelss_lwork",-1,{{-1}},0,(char *)F_FUNC(zgelss ,ZGELSS )zgelss_,(f2py_init_func)f2py_rout__flapack_zgelss_lwork,doc_f2py_rout__flapack_zgelss_lwork}, | |||
| 104827 | {"sgelsy",-1,{{-1}},0,(char *)F_FUNC(sgelsy,SGELSY)sgelsy_,(f2py_init_func)f2py_rout__flapack_sgelsy,doc_f2py_rout__flapack_sgelsy}, | |||
| 104828 | {"dgelsy",-1,{{-1}},0,(char *)F_FUNC(dgelsy,DGELSY)dgelsy_,(f2py_init_func)f2py_rout__flapack_dgelsy,doc_f2py_rout__flapack_dgelsy}, | |||
| 104829 | {"sgelsy_lwork",-1,{{-1}},0,(char *)F_FUNC(sgelsy ,SGELSY )sgelsy_,(f2py_init_func)f2py_rout__flapack_sgelsy_lwork,doc_f2py_rout__flapack_sgelsy_lwork}, | |||
| 104830 | {"dgelsy_lwork",-1,{{-1}},0,(char *)F_FUNC(dgelsy ,DGELSY )dgelsy_,(f2py_init_func)f2py_rout__flapack_dgelsy_lwork,doc_f2py_rout__flapack_dgelsy_lwork}, | |||
| 104831 | {"cgelsy",-1,{{-1}},0,(char *)F_FUNC(cgelsy,CGELSY)cgelsy_,(f2py_init_func)f2py_rout__flapack_cgelsy,doc_f2py_rout__flapack_cgelsy}, | |||
| 104832 | {"zgelsy",-1,{{-1}},0,(char *)F_FUNC(zgelsy,ZGELSY)zgelsy_,(f2py_init_func)f2py_rout__flapack_zgelsy,doc_f2py_rout__flapack_zgelsy}, | |||
| 104833 | {"cgelsy_lwork",-1,{{-1}},0,(char *)F_FUNC(cgelsy ,CGELSY )cgelsy_,(f2py_init_func)f2py_rout__flapack_cgelsy_lwork,doc_f2py_rout__flapack_cgelsy_lwork}, | |||
| 104834 | {"zgelsy_lwork",-1,{{-1}},0,(char *)F_FUNC(zgelsy ,ZGELSY )zgelsy_,(f2py_init_func)f2py_rout__flapack_zgelsy_lwork,doc_f2py_rout__flapack_zgelsy_lwork}, | |||
| 104835 | {"sgelsd",-1,{{-1}},0,(char *)F_FUNC(sgelsd,SGELSD)sgelsd_,(f2py_init_func)f2py_rout__flapack_sgelsd,doc_f2py_rout__flapack_sgelsd}, | |||
| 104836 | {"dgelsd",-1,{{-1}},0,(char *)F_FUNC(dgelsd,DGELSD)dgelsd_,(f2py_init_func)f2py_rout__flapack_dgelsd,doc_f2py_rout__flapack_dgelsd}, | |||
| 104837 | {"sgelsd_lwork",-1,{{-1}},0,(char *)F_FUNC(sgelsd ,SGELSD )sgelsd_,(f2py_init_func)f2py_rout__flapack_sgelsd_lwork,doc_f2py_rout__flapack_sgelsd_lwork}, | |||
| 104838 | {"dgelsd_lwork",-1,{{-1}},0,(char *)F_FUNC(dgelsd ,DGELSD )dgelsd_,(f2py_init_func)f2py_rout__flapack_dgelsd_lwork,doc_f2py_rout__flapack_dgelsd_lwork}, | |||
| 104839 | {"cgelsd",-1,{{-1}},0,(char *)F_FUNC(cgelsd,CGELSD)cgelsd_,(f2py_init_func)f2py_rout__flapack_cgelsd,doc_f2py_rout__flapack_cgelsd}, | |||
| 104840 | {"zgelsd",-1,{{-1}},0,(char *)F_FUNC(zgelsd,ZGELSD)zgelsd_,(f2py_init_func)f2py_rout__flapack_zgelsd,doc_f2py_rout__flapack_zgelsd}, | |||
| 104841 | {"cgelsd_lwork",-1,{{-1}},0,(char *)F_FUNC(cgelsd ,CGELSD )cgelsd_,(f2py_init_func)f2py_rout__flapack_cgelsd_lwork,doc_f2py_rout__flapack_cgelsd_lwork}, | |||
| 104842 | {"zgelsd_lwork",-1,{{-1}},0,(char *)F_FUNC(zgelsd ,ZGELSD )zgelsd_,(f2py_init_func)f2py_rout__flapack_zgelsd_lwork,doc_f2py_rout__flapack_zgelsd_lwork}, | |||
| 104843 | {"sgeqp3",-1,{{-1}},0,(char *)F_FUNC(sgeqp3,SGEQP3)sgeqp3_,(f2py_init_func)f2py_rout__flapack_sgeqp3,doc_f2py_rout__flapack_sgeqp3}, | |||
| 104844 | {"dgeqp3",-1,{{-1}},0,(char *)F_FUNC(dgeqp3,DGEQP3)dgeqp3_,(f2py_init_func)f2py_rout__flapack_dgeqp3,doc_f2py_rout__flapack_dgeqp3}, | |||
| 104845 | {"cgeqp3",-1,{{-1}},0,(char *)F_FUNC(cgeqp3,CGEQP3)cgeqp3_,(f2py_init_func)f2py_rout__flapack_cgeqp3,doc_f2py_rout__flapack_cgeqp3}, | |||
| 104846 | {"zgeqp3",-1,{{-1}},0,(char *)F_FUNC(zgeqp3,ZGEQP3)zgeqp3_,(f2py_init_func)f2py_rout__flapack_zgeqp3,doc_f2py_rout__flapack_zgeqp3}, | |||
| 104847 | {"sgeqrf",-1,{{-1}},0,(char *)F_FUNC(sgeqrf,SGEQRF)sgeqrf_,(f2py_init_func)f2py_rout__flapack_sgeqrf,doc_f2py_rout__flapack_sgeqrf}, | |||
| 104848 | {"dgeqrf",-1,{{-1}},0,(char *)F_FUNC(dgeqrf,DGEQRF)dgeqrf_,(f2py_init_func)f2py_rout__flapack_dgeqrf,doc_f2py_rout__flapack_dgeqrf}, | |||
| 104849 | {"cgeqrf",-1,{{-1}},0,(char *)F_FUNC(cgeqrf,CGEQRF)cgeqrf_,(f2py_init_func)f2py_rout__flapack_cgeqrf,doc_f2py_rout__flapack_cgeqrf}, | |||
| 104850 | {"zgeqrf",-1,{{-1}},0,(char *)F_FUNC(zgeqrf,ZGEQRF)zgeqrf_,(f2py_init_func)f2py_rout__flapack_zgeqrf,doc_f2py_rout__flapack_zgeqrf}, | |||
| 104851 | {"sgeqrf_lwork",-1,{{-1}},0,(char *)F_FUNC(sgeqrf ,SGEQRF )sgeqrf_,(f2py_init_func)f2py_rout__flapack_sgeqrf_lwork,doc_f2py_rout__flapack_sgeqrf_lwork}, | |||
| 104852 | {"dgeqrf_lwork",-1,{{-1}},0,(char *)F_FUNC(dgeqrf ,DGEQRF )dgeqrf_,(f2py_init_func)f2py_rout__flapack_dgeqrf_lwork,doc_f2py_rout__flapack_dgeqrf_lwork}, | |||
| 104853 | {"cgeqrf_lwork",-1,{{-1}},0,(char *)F_FUNC(cgeqrf ,CGEQRF )cgeqrf_,(f2py_init_func)f2py_rout__flapack_cgeqrf_lwork,doc_f2py_rout__flapack_cgeqrf_lwork}, | |||
| 104854 | {"zgeqrf_lwork",-1,{{-1}},0,(char *)F_FUNC(zgeqrf ,ZGEQRF )zgeqrf_,(f2py_init_func)f2py_rout__flapack_zgeqrf_lwork,doc_f2py_rout__flapack_zgeqrf_lwork}, | |||
| 104855 | {"sgeqrfp",-1,{{-1}},0,(char *)F_FUNC(sgeqrfp,SGEQRFP)sgeqrfp_,(f2py_init_func)f2py_rout__flapack_sgeqrfp,doc_f2py_rout__flapack_sgeqrfp}, | |||
| 104856 | {"dgeqrfp",-1,{{-1}},0,(char *)F_FUNC(dgeqrfp,DGEQRFP)dgeqrfp_,(f2py_init_func)f2py_rout__flapack_dgeqrfp,doc_f2py_rout__flapack_dgeqrfp}, | |||
| 104857 | {"cgeqrfp",-1,{{-1}},0,(char *)F_FUNC(cgeqrfp,CGEQRFP)cgeqrfp_,(f2py_init_func)f2py_rout__flapack_cgeqrfp,doc_f2py_rout__flapack_cgeqrfp}, | |||
| 104858 | {"zgeqrfp",-1,{{-1}},0,(char *)F_FUNC(zgeqrfp,ZGEQRFP)zgeqrfp_,(f2py_init_func)f2py_rout__flapack_zgeqrfp,doc_f2py_rout__flapack_zgeqrfp}, | |||
| 104859 | {"sgeqrfp_lwork",-1,{{-1}},0,(char *)F_FUNC(sgeqrfp ,SGEQRFP )sgeqrfp_,(f2py_init_func)f2py_rout__flapack_sgeqrfp_lwork,doc_f2py_rout__flapack_sgeqrfp_lwork}, | |||
| 104860 | {"dgeqrfp_lwork",-1,{{-1}},0,(char *)F_FUNC(dgeqrfp ,DGEQRFP )dgeqrfp_,(f2py_init_func)f2py_rout__flapack_dgeqrfp_lwork,doc_f2py_rout__flapack_dgeqrfp_lwork}, | |||
| 104861 | {"cgeqrfp_lwork",-1,{{-1}},0,(char *)F_FUNC(cgeqrfp ,CGEQRFP )cgeqrfp_,(f2py_init_func)f2py_rout__flapack_cgeqrfp_lwork,doc_f2py_rout__flapack_cgeqrfp_lwork}, | |||
| 104862 | {"zgeqrfp_lwork",-1,{{-1}},0,(char *)F_FUNC(zgeqrfp ,ZGEQRFP )zgeqrfp_,(f2py_init_func)f2py_rout__flapack_zgeqrfp_lwork,doc_f2py_rout__flapack_zgeqrfp_lwork}, | |||
| 104863 | {"sgerqf",-1,{{-1}},0,(char *)F_FUNC(sgerqf,SGERQF)sgerqf_,(f2py_init_func)f2py_rout__flapack_sgerqf,doc_f2py_rout__flapack_sgerqf}, | |||
| 104864 | {"dgerqf",-1,{{-1}},0,(char *)F_FUNC(dgerqf,DGERQF)dgerqf_,(f2py_init_func)f2py_rout__flapack_dgerqf,doc_f2py_rout__flapack_dgerqf}, | |||
| 104865 | {"cgerqf",-1,{{-1}},0,(char *)F_FUNC(cgerqf,CGERQF)cgerqf_,(f2py_init_func)f2py_rout__flapack_cgerqf,doc_f2py_rout__flapack_cgerqf}, | |||
| 104866 | {"zgerqf",-1,{{-1}},0,(char *)F_FUNC(zgerqf,ZGERQF)zgerqf_,(f2py_init_func)f2py_rout__flapack_zgerqf,doc_f2py_rout__flapack_zgerqf}, | |||
| 104867 | {"sgeev",-1,{{-1}},0,(char *)F_FUNC(sgeev,SGEEV)sgeev_,(f2py_init_func)f2py_rout__flapack_sgeev,doc_f2py_rout__flapack_sgeev}, | |||
| 104868 | {"dgeev",-1,{{-1}},0,(char *)F_FUNC(dgeev,DGEEV)dgeev_,(f2py_init_func)f2py_rout__flapack_dgeev,doc_f2py_rout__flapack_dgeev}, | |||
| 104869 | {"sgeev_lwork",-1,{{-1}},0,(char *)F_FUNC(sgeev ,SGEEV )sgeev_,(f2py_init_func)f2py_rout__flapack_sgeev_lwork,doc_f2py_rout__flapack_sgeev_lwork}, | |||
| 104870 | {"dgeev_lwork",-1,{{-1}},0,(char *)F_FUNC(dgeev ,DGEEV )dgeev_,(f2py_init_func)f2py_rout__flapack_dgeev_lwork,doc_f2py_rout__flapack_dgeev_lwork}, | |||
| 104871 | {"cgeev",-1,{{-1}},0,(char *)F_FUNC(cgeev,CGEEV)cgeev_,(f2py_init_func)f2py_rout__flapack_cgeev,doc_f2py_rout__flapack_cgeev}, | |||
| 104872 | {"zgeev",-1,{{-1}},0,(char *)F_FUNC(zgeev,ZGEEV)zgeev_,(f2py_init_func)f2py_rout__flapack_zgeev,doc_f2py_rout__flapack_zgeev}, | |||
| 104873 | {"cgeev_lwork",-1,{{-1}},0,(char *)F_FUNC(cgeev ,CGEEV )cgeev_,(f2py_init_func)f2py_rout__flapack_cgeev_lwork,doc_f2py_rout__flapack_cgeev_lwork}, | |||
| 104874 | {"zgeev_lwork",-1,{{-1}},0,(char *)F_FUNC(zgeev ,ZGEEV )zgeev_,(f2py_init_func)f2py_rout__flapack_zgeev_lwork,doc_f2py_rout__flapack_zgeev_lwork}, | |||
| 104875 | {"sgegv",-1,{{-1}},0,(char *)F_FUNC(sgegv,SGEGV)sgegv_,(f2py_init_func)f2py_rout__flapack_sgegv,doc_f2py_rout__flapack_sgegv}, | |||
| 104876 | {"dgegv",-1,{{-1}},0,(char *)F_FUNC(dgegv,DGEGV)dgegv_,(f2py_init_func)f2py_rout__flapack_dgegv,doc_f2py_rout__flapack_dgegv}, | |||
| 104877 | {"cgegv",-1,{{-1}},0,(char *)F_FUNC(cgegv,CGEGV)cgegv_,(f2py_init_func)f2py_rout__flapack_cgegv,doc_f2py_rout__flapack_cgegv}, | |||
| 104878 | {"zgegv",-1,{{-1}},0,(char *)F_FUNC(zgegv,ZGEGV)zgegv_,(f2py_init_func)f2py_rout__flapack_zgegv,doc_f2py_rout__flapack_zgegv}, | |||
| 104879 | {"cgees",-1,{{-1}},0,(char *)F_FUNC(cgees,CGEES)cgees_,(f2py_init_func)f2py_rout__flapack_cgees,doc_f2py_rout__flapack_cgees}, | |||
| 104880 | {"zgees",-1,{{-1}},0,(char *)F_FUNC(zgees,ZGEES)zgees_,(f2py_init_func)f2py_rout__flapack_zgees,doc_f2py_rout__flapack_zgees}, | |||
| 104881 | {"sgees",-1,{{-1}},0,(char *)F_FUNC(sgees,SGEES)sgees_,(f2py_init_func)f2py_rout__flapack_sgees,doc_f2py_rout__flapack_sgees}, | |||
| 104882 | {"dgees",-1,{{-1}},0,(char *)F_FUNC(dgees,DGEES)dgees_,(f2py_init_func)f2py_rout__flapack_dgees,doc_f2py_rout__flapack_dgees}, | |||
| 104883 | {"sgges",-1,{{-1}},0,(char *)F_FUNC(sgges,SGGES)sgges_,(f2py_init_func)f2py_rout__flapack_sgges,doc_f2py_rout__flapack_sgges}, | |||
| 104884 | {"dgges",-1,{{-1}},0,(char *)F_FUNC(dgges,DGGES)dgges_,(f2py_init_func)f2py_rout__flapack_dgges,doc_f2py_rout__flapack_dgges}, | |||
| 104885 | {"cgges",-1,{{-1}},0,(char *)F_FUNC(cgges,CGGES)cgges_,(f2py_init_func)f2py_rout__flapack_cgges,doc_f2py_rout__flapack_cgges}, | |||
| 104886 | {"zgges",-1,{{-1}},0,(char *)F_FUNC(zgges,ZGGES)zgges_,(f2py_init_func)f2py_rout__flapack_zgges,doc_f2py_rout__flapack_zgges}, | |||
| 104887 | {"sggev",-1,{{-1}},0,(char *)F_FUNC(sggev,SGGEV)sggev_,(f2py_init_func)f2py_rout__flapack_sggev,doc_f2py_rout__flapack_sggev}, | |||
| 104888 | {"dggev",-1,{{-1}},0,(char *)F_FUNC(dggev,DGGEV)dggev_,(f2py_init_func)f2py_rout__flapack_dggev,doc_f2py_rout__flapack_dggev}, | |||
| 104889 | {"cggev",-1,{{-1}},0,(char *)F_FUNC(cggev,CGGEV)cggev_,(f2py_init_func)f2py_rout__flapack_cggev,doc_f2py_rout__flapack_cggev}, | |||
| 104890 | {"zggev",-1,{{-1}},0,(char *)F_FUNC(zggev,ZGGEV)zggev_,(f2py_init_func)f2py_rout__flapack_zggev,doc_f2py_rout__flapack_zggev}, | |||
| 104891 | {"sgeequ",-1,{{-1}},0,(char *)F_FUNC(sgeequ,SGEEQU)sgeequ_,(f2py_init_func)f2py_rout__flapack_sgeequ,doc_f2py_rout__flapack_sgeequ}, | |||
| 104892 | {"dgeequ",-1,{{-1}},0,(char *)F_FUNC(dgeequ,DGEEQU)dgeequ_,(f2py_init_func)f2py_rout__flapack_dgeequ,doc_f2py_rout__flapack_dgeequ}, | |||
| 104893 | {"cgeequ",-1,{{-1}},0,(char *)F_FUNC(cgeequ,CGEEQU)cgeequ_,(f2py_init_func)f2py_rout__flapack_cgeequ,doc_f2py_rout__flapack_cgeequ}, | |||
| 104894 | {"zgeequ",-1,{{-1}},0,(char *)F_FUNC(zgeequ,ZGEEQU)zgeequ_,(f2py_init_func)f2py_rout__flapack_zgeequ,doc_f2py_rout__flapack_zgeequ}, | |||
| 104895 | {"sgeequb",-1,{{-1}},0,(char *)F_FUNC(sgeequb,SGEEQUB)sgeequb_,(f2py_init_func)f2py_rout__flapack_sgeequb,doc_f2py_rout__flapack_sgeequb}, | |||
| 104896 | {"dgeequb",-1,{{-1}},0,(char *)F_FUNC(dgeequb,DGEEQUB)dgeequb_,(f2py_init_func)f2py_rout__flapack_dgeequb,doc_f2py_rout__flapack_dgeequb}, | |||
| 104897 | {"cgeequb",-1,{{-1}},0,(char *)F_FUNC(cgeequb,CGEEQUB)cgeequb_,(f2py_init_func)f2py_rout__flapack_cgeequb,doc_f2py_rout__flapack_cgeequb}, | |||
| 104898 | {"zgeequb",-1,{{-1}},0,(char *)F_FUNC(zgeequb,ZGEEQUB)zgeequb_,(f2py_init_func)f2py_rout__flapack_zgeequb,doc_f2py_rout__flapack_zgeequb}, | |||
| 104899 | {"sgbsv",-1,{{-1}},0,(char *)F_FUNC(sgbsv,SGBSV)sgbsv_,(f2py_init_func)f2py_rout__flapack_sgbsv,doc_f2py_rout__flapack_sgbsv}, | |||
| 104900 | {"dgbsv",-1,{{-1}},0,(char *)F_FUNC(dgbsv,DGBSV)dgbsv_,(f2py_init_func)f2py_rout__flapack_dgbsv,doc_f2py_rout__flapack_dgbsv}, | |||
| 104901 | {"cgbsv",-1,{{-1}},0,(char *)F_FUNC(cgbsv,CGBSV)cgbsv_,(f2py_init_func)f2py_rout__flapack_cgbsv,doc_f2py_rout__flapack_cgbsv}, | |||
| 104902 | {"zgbsv",-1,{{-1}},0,(char *)F_FUNC(zgbsv,ZGBSV)zgbsv_,(f2py_init_func)f2py_rout__flapack_zgbsv,doc_f2py_rout__flapack_zgbsv}, | |||
| 104903 | {"sgbtrf",-1,{{-1}},0,(char *)F_FUNC(sgbtrf,SGBTRF)sgbtrf_,(f2py_init_func)f2py_rout__flapack_sgbtrf,doc_f2py_rout__flapack_sgbtrf}, | |||
| 104904 | {"dgbtrf",-1,{{-1}},0,(char *)F_FUNC(dgbtrf,DGBTRF)dgbtrf_,(f2py_init_func)f2py_rout__flapack_dgbtrf,doc_f2py_rout__flapack_dgbtrf}, | |||
| 104905 | {"cgbtrf",-1,{{-1}},0,(char *)F_FUNC(cgbtrf,CGBTRF)cgbtrf_,(f2py_init_func)f2py_rout__flapack_cgbtrf,doc_f2py_rout__flapack_cgbtrf}, | |||
| 104906 | {"zgbtrf",-1,{{-1}},0,(char *)F_FUNC(zgbtrf,ZGBTRF)zgbtrf_,(f2py_init_func)f2py_rout__flapack_zgbtrf,doc_f2py_rout__flapack_zgbtrf}, | |||
| 104907 | {"sgbtrs",-1,{{-1}},0,(char *)F_FUNC(sgbtrs,SGBTRS)sgbtrs_,(f2py_init_func)f2py_rout__flapack_sgbtrs,doc_f2py_rout__flapack_sgbtrs}, | |||
| 104908 | {"dgbtrs",-1,{{-1}},0,(char *)F_FUNC(dgbtrs,DGBTRS)dgbtrs_,(f2py_init_func)f2py_rout__flapack_dgbtrs,doc_f2py_rout__flapack_dgbtrs}, | |||
| 104909 | {"cgbtrs",-1,{{-1}},0,(char *)F_FUNC(cgbtrs,CGBTRS)cgbtrs_,(f2py_init_func)f2py_rout__flapack_cgbtrs,doc_f2py_rout__flapack_cgbtrs}, | |||
| 104910 | {"zgbtrs",-1,{{-1}},0,(char *)F_FUNC(zgbtrs,ZGBTRS)zgbtrs_,(f2py_init_func)f2py_rout__flapack_zgbtrs,doc_f2py_rout__flapack_zgbtrs}, | |||
| 104911 | {"sgtsv",-1,{{-1}},0,(char *)F_FUNC(sgtsv,SGTSV)sgtsv_,(f2py_init_func)f2py_rout__flapack_sgtsv,doc_f2py_rout__flapack_sgtsv}, | |||
| 104912 | {"dgtsv",-1,{{-1}},0,(char *)F_FUNC(dgtsv,DGTSV)dgtsv_,(f2py_init_func)f2py_rout__flapack_dgtsv,doc_f2py_rout__flapack_dgtsv}, | |||
| 104913 | {"cgtsv",-1,{{-1}},0,(char *)F_FUNC(cgtsv,CGTSV)cgtsv_,(f2py_init_func)f2py_rout__flapack_cgtsv,doc_f2py_rout__flapack_cgtsv}, | |||
| 104914 | {"zgtsv",-1,{{-1}},0,(char *)F_FUNC(zgtsv,ZGTSV)zgtsv_,(f2py_init_func)f2py_rout__flapack_zgtsv,doc_f2py_rout__flapack_zgtsv}, | |||
| 104915 | {"sgttrf",-1,{{-1}},0,(char *)F_FUNC(sgttrf,SGTTRF)sgttrf_,(f2py_init_func)f2py_rout__flapack_sgttrf,doc_f2py_rout__flapack_sgttrf}, | |||
| 104916 | {"dgttrf",-1,{{-1}},0,(char *)F_FUNC(dgttrf,DGTTRF)dgttrf_,(f2py_init_func)f2py_rout__flapack_dgttrf,doc_f2py_rout__flapack_dgttrf}, | |||
| 104917 | {"cgttrf",-1,{{-1}},0,(char *)F_FUNC(cgttrf,CGTTRF)cgttrf_,(f2py_init_func)f2py_rout__flapack_cgttrf,doc_f2py_rout__flapack_cgttrf}, | |||
| 104918 | {"zgttrf",-1,{{-1}},0,(char *)F_FUNC(zgttrf,ZGTTRF)zgttrf_,(f2py_init_func)f2py_rout__flapack_zgttrf,doc_f2py_rout__flapack_zgttrf}, | |||
| 104919 | {"sgttrs",-1,{{-1}},0,(char *)F_FUNC(sgttrs,SGTTRS)sgttrs_,(f2py_init_func)f2py_rout__flapack_sgttrs,doc_f2py_rout__flapack_sgttrs}, | |||
| 104920 | {"dgttrs",-1,{{-1}},0,(char *)F_FUNC(dgttrs,DGTTRS)dgttrs_,(f2py_init_func)f2py_rout__flapack_dgttrs,doc_f2py_rout__flapack_dgttrs}, | |||
| 104921 | {"cgttrs",-1,{{-1}},0,(char *)F_FUNC(cgttrs,CGTTRS)cgttrs_,(f2py_init_func)f2py_rout__flapack_cgttrs,doc_f2py_rout__flapack_cgttrs}, | |||
| 104922 | {"zgttrs",-1,{{-1}},0,(char *)F_FUNC(zgttrs,ZGTTRS)zgttrs_,(f2py_init_func)f2py_rout__flapack_zgttrs,doc_f2py_rout__flapack_zgttrs}, | |||
| 104923 | {"sgtsvx",-1,{{-1}},0,(char *)F_FUNC(sgtsvx,SGTSVX)sgtsvx_,(f2py_init_func)f2py_rout__flapack_sgtsvx,doc_f2py_rout__flapack_sgtsvx}, | |||
| 104924 | {"dgtsvx",-1,{{-1}},0,(char *)F_FUNC(dgtsvx,DGTSVX)dgtsvx_,(f2py_init_func)f2py_rout__flapack_dgtsvx,doc_f2py_rout__flapack_dgtsvx}, | |||
| 104925 | {"cgtsvx",-1,{{-1}},0,(char *)F_FUNC(cgtsvx,CGTSVX)cgtsvx_,(f2py_init_func)f2py_rout__flapack_cgtsvx,doc_f2py_rout__flapack_cgtsvx}, | |||
| 104926 | {"zgtsvx",-1,{{-1}},0,(char *)F_FUNC(zgtsvx,ZGTSVX)zgtsvx_,(f2py_init_func)f2py_rout__flapack_zgtsvx,doc_f2py_rout__flapack_zgtsvx}, | |||
| 104927 | {"ssyev",-1,{{-1}},0,(char *)F_FUNC(ssyev,SSYEV)ssyev_,(f2py_init_func)f2py_rout__flapack_ssyev,doc_f2py_rout__flapack_ssyev}, | |||
| 104928 | {"dsyev",-1,{{-1}},0,(char *)F_FUNC(dsyev,DSYEV)dsyev_,(f2py_init_func)f2py_rout__flapack_dsyev,doc_f2py_rout__flapack_dsyev}, | |||
| 104929 | {"ssyev_lwork",-1,{{-1}},0,(char *)F_FUNC(ssyev ,SSYEV )ssyev_,(f2py_init_func)f2py_rout__flapack_ssyev_lwork,doc_f2py_rout__flapack_ssyev_lwork}, | |||
| 104930 | {"dsyev_lwork",-1,{{-1}},0,(char *)F_FUNC(dsyev ,DSYEV )dsyev_,(f2py_init_func)f2py_rout__flapack_dsyev_lwork,doc_f2py_rout__flapack_dsyev_lwork}, | |||
| 104931 | {"cheev",-1,{{-1}},0,(char *)F_FUNC(cheev,CHEEV)cheev_,(f2py_init_func)f2py_rout__flapack_cheev,doc_f2py_rout__flapack_cheev}, | |||
| 104932 | {"zheev",-1,{{-1}},0,(char *)F_FUNC(zheev,ZHEEV)zheev_,(f2py_init_func)f2py_rout__flapack_zheev,doc_f2py_rout__flapack_zheev}, | |||
| 104933 | {"cheev_lwork",-1,{{-1}},0,(char *)F_FUNC(cheev ,CHEEV )cheev_,(f2py_init_func)f2py_rout__flapack_cheev_lwork,doc_f2py_rout__flapack_cheev_lwork}, | |||
| 104934 | {"zheev_lwork",-1,{{-1}},0,(char *)F_FUNC(zheev ,ZHEEV )zheev_,(f2py_init_func)f2py_rout__flapack_zheev_lwork,doc_f2py_rout__flapack_zheev_lwork}, | |||
| 104935 | {"ssyevd",-1,{{-1}},0,(char *)F_FUNC(ssyevd,SSYEVD)ssyevd_,(f2py_init_func)f2py_rout__flapack_ssyevd,doc_f2py_rout__flapack_ssyevd}, | |||
| 104936 | {"dsyevd",-1,{{-1}},0,(char *)F_FUNC(dsyevd,DSYEVD)dsyevd_,(f2py_init_func)f2py_rout__flapack_dsyevd,doc_f2py_rout__flapack_dsyevd}, | |||
| 104937 | {"ssyevd_lwork",-1,{{-1}},0,(char *)F_FUNC(ssyevd ,SSYEVD )ssyevd_,(f2py_init_func)f2py_rout__flapack_ssyevd_lwork,doc_f2py_rout__flapack_ssyevd_lwork}, | |||
| 104938 | {"dsyevd_lwork",-1,{{-1}},0,(char *)F_FUNC(dsyevd ,DSYEVD )dsyevd_,(f2py_init_func)f2py_rout__flapack_dsyevd_lwork,doc_f2py_rout__flapack_dsyevd_lwork}, | |||
| 104939 | {"cheevd",-1,{{-1}},0,(char *)F_FUNC(cheevd,CHEEVD)cheevd_,(f2py_init_func)f2py_rout__flapack_cheevd,doc_f2py_rout__flapack_cheevd}, | |||
| 104940 | {"zheevd",-1,{{-1}},0,(char *)F_FUNC(zheevd,ZHEEVD)zheevd_,(f2py_init_func)f2py_rout__flapack_zheevd,doc_f2py_rout__flapack_zheevd}, | |||
| 104941 | {"cheevd_lwork",-1,{{-1}},0,(char *)F_FUNC(cheevd ,CHEEVD )cheevd_,(f2py_init_func)f2py_rout__flapack_cheevd_lwork,doc_f2py_rout__flapack_cheevd_lwork}, | |||
| 104942 | {"zheevd_lwork",-1,{{-1}},0,(char *)F_FUNC(zheevd ,ZHEEVD )zheevd_,(f2py_init_func)f2py_rout__flapack_zheevd_lwork,doc_f2py_rout__flapack_zheevd_lwork}, | |||
| 104943 | {"ssytf2",-1,{{-1}},0,(char *)F_FUNC(ssytf2,SSYTF2)ssytf2_,(f2py_init_func)f2py_rout__flapack_ssytf2,doc_f2py_rout__flapack_ssytf2}, | |||
| 104944 | {"dsytf2",-1,{{-1}},0,(char *)F_FUNC(dsytf2,DSYTF2)dsytf2_,(f2py_init_func)f2py_rout__flapack_dsytf2,doc_f2py_rout__flapack_dsytf2}, | |||
| 104945 | {"csytf2",-1,{{-1}},0,(char *)F_FUNC(csytf2,CSYTF2)csytf2_,(f2py_init_func)f2py_rout__flapack_csytf2,doc_f2py_rout__flapack_csytf2}, | |||
| 104946 | {"zsytf2",-1,{{-1}},0,(char *)F_FUNC(zsytf2,ZSYTF2)zsytf2_,(f2py_init_func)f2py_rout__flapack_zsytf2,doc_f2py_rout__flapack_zsytf2}, | |||
| 104947 | {"ssygst",-1,{{-1}},0,(char *)F_FUNC(ssygst,SSYGST)ssygst_,(f2py_init_func)f2py_rout__flapack_ssygst,doc_f2py_rout__flapack_ssygst}, | |||
| 104948 | {"dsygst",-1,{{-1}},0,(char *)F_FUNC(dsygst,DSYGST)dsygst_,(f2py_init_func)f2py_rout__flapack_dsygst,doc_f2py_rout__flapack_dsygst}, | |||
| 104949 | {"ssytrf",-1,{{-1}},0,(char *)F_FUNC(ssytrf,SSYTRF)ssytrf_,(f2py_init_func)f2py_rout__flapack_ssytrf,doc_f2py_rout__flapack_ssytrf}, | |||
| 104950 | {"dsytrf",-1,{{-1}},0,(char *)F_FUNC(dsytrf,DSYTRF)dsytrf_,(f2py_init_func)f2py_rout__flapack_dsytrf,doc_f2py_rout__flapack_dsytrf}, | |||
| 104951 | {"csytrf",-1,{{-1}},0,(char *)F_FUNC(csytrf,CSYTRF)csytrf_,(f2py_init_func)f2py_rout__flapack_csytrf,doc_f2py_rout__flapack_csytrf}, | |||
| 104952 | {"zsytrf",-1,{{-1}},0,(char *)F_FUNC(zsytrf,ZSYTRF)zsytrf_,(f2py_init_func)f2py_rout__flapack_zsytrf,doc_f2py_rout__flapack_zsytrf}, | |||
| 104953 | {"ssytrf_lwork",-1,{{-1}},0,(char *)F_FUNC(ssytrf ,SSYTRF )ssytrf_,(f2py_init_func)f2py_rout__flapack_ssytrf_lwork,doc_f2py_rout__flapack_ssytrf_lwork}, | |||
| 104954 | {"dsytrf_lwork",-1,{{-1}},0,(char *)F_FUNC(dsytrf ,DSYTRF )dsytrf_,(f2py_init_func)f2py_rout__flapack_dsytrf_lwork,doc_f2py_rout__flapack_dsytrf_lwork}, | |||
| 104955 | {"csytrf_lwork",-1,{{-1}},0,(char *)F_FUNC(csytrf ,CSYTRF )csytrf_,(f2py_init_func)f2py_rout__flapack_csytrf_lwork,doc_f2py_rout__flapack_csytrf_lwork}, | |||
| 104956 | {"zsytrf_lwork",-1,{{-1}},0,(char *)F_FUNC(zsytrf ,ZSYTRF )zsytrf_,(f2py_init_func)f2py_rout__flapack_zsytrf_lwork,doc_f2py_rout__flapack_zsytrf_lwork}, | |||
| 104957 | {"ssysv",-1,{{-1}},0,(char *)F_FUNC(ssysv,SSYSV)ssysv_,(f2py_init_func)f2py_rout__flapack_ssysv,doc_f2py_rout__flapack_ssysv}, | |||
| 104958 | {"dsysv",-1,{{-1}},0,(char *)F_FUNC(dsysv,DSYSV)dsysv_,(f2py_init_func)f2py_rout__flapack_dsysv,doc_f2py_rout__flapack_dsysv}, | |||
| 104959 | {"csysv",-1,{{-1}},0,(char *)F_FUNC(csysv,CSYSV)csysv_,(f2py_init_func)f2py_rout__flapack_csysv,doc_f2py_rout__flapack_csysv}, | |||
| 104960 | {"zsysv",-1,{{-1}},0,(char *)F_FUNC(zsysv,ZSYSV)zsysv_,(f2py_init_func)f2py_rout__flapack_zsysv,doc_f2py_rout__flapack_zsysv}, | |||
| 104961 | {"ssysv_lwork",-1,{{-1}},0,(char *)F_FUNC(ssysv ,SSYSV )ssysv_,(f2py_init_func)f2py_rout__flapack_ssysv_lwork,doc_f2py_rout__flapack_ssysv_lwork}, | |||
| 104962 | {"dsysv_lwork",-1,{{-1}},0,(char *)F_FUNC(dsysv ,DSYSV )dsysv_,(f2py_init_func)f2py_rout__flapack_dsysv_lwork,doc_f2py_rout__flapack_dsysv_lwork}, | |||
| 104963 | {"csysv_lwork",-1,{{-1}},0,(char *)F_FUNC(csysv ,CSYSV )csysv_,(f2py_init_func)f2py_rout__flapack_csysv_lwork,doc_f2py_rout__flapack_csysv_lwork}, | |||
| 104964 | {"zsysv_lwork",-1,{{-1}},0,(char *)F_FUNC(zsysv ,ZSYSV )zsysv_,(f2py_init_func)f2py_rout__flapack_zsysv_lwork,doc_f2py_rout__flapack_zsysv_lwork}, | |||
| 104965 | {"ssysvx",-1,{{-1}},0,(char *)F_FUNC(ssysvx,SSYSVX)ssysvx_,(f2py_init_func)f2py_rout__flapack_ssysvx,doc_f2py_rout__flapack_ssysvx}, | |||
| 104966 | {"dsysvx",-1,{{-1}},0,(char *)F_FUNC(dsysvx,DSYSVX)dsysvx_,(f2py_init_func)f2py_rout__flapack_dsysvx,doc_f2py_rout__flapack_dsysvx}, | |||
| 104967 | {"csysvx",-1,{{-1}},0,(char *)F_FUNC(csysvx,CSYSVX)csysvx_,(f2py_init_func)f2py_rout__flapack_csysvx,doc_f2py_rout__flapack_csysvx}, | |||
| 104968 | {"zsysvx",-1,{{-1}},0,(char *)F_FUNC(zsysvx,ZSYSVX)zsysvx_,(f2py_init_func)f2py_rout__flapack_zsysvx,doc_f2py_rout__flapack_zsysvx}, | |||
| 104969 | {"ssysvx_lwork",-1,{{-1}},0,(char *)F_FUNC(ssysvx ,SSYSVX )ssysvx_,(f2py_init_func)f2py_rout__flapack_ssysvx_lwork,doc_f2py_rout__flapack_ssysvx_lwork}, | |||
| 104970 | {"dsysvx_lwork",-1,{{-1}},0,(char *)F_FUNC(dsysvx ,DSYSVX )dsysvx_,(f2py_init_func)f2py_rout__flapack_dsysvx_lwork,doc_f2py_rout__flapack_dsysvx_lwork}, | |||
| 104971 | {"csysvx_lwork",-1,{{-1}},0,(char *)F_FUNC(csysvx ,CSYSVX )csysvx_,(f2py_init_func)f2py_rout__flapack_csysvx_lwork,doc_f2py_rout__flapack_csysvx_lwork}, | |||
| 104972 | {"zsysvx_lwork",-1,{{-1}},0,(char *)F_FUNC(zsysvx ,ZSYSVX )zsysvx_,(f2py_init_func)f2py_rout__flapack_zsysvx_lwork,doc_f2py_rout__flapack_zsysvx_lwork}, | |||
| 104973 | {"ssycon",-1,{{-1}},0,(char *)F_FUNC(ssycon,SSYCON)ssycon_,(f2py_init_func)f2py_rout__flapack_ssycon,doc_f2py_rout__flapack_ssycon}, | |||
| 104974 | {"dsycon",-1,{{-1}},0,(char *)F_FUNC(dsycon,DSYCON)dsycon_,(f2py_init_func)f2py_rout__flapack_dsycon,doc_f2py_rout__flapack_dsycon}, | |||
| 104975 | {"csycon",-1,{{-1}},0,(char *)F_FUNC(csycon,CSYCON)csycon_,(f2py_init_func)f2py_rout__flapack_csycon,doc_f2py_rout__flapack_csycon}, | |||
| 104976 | {"zsycon",-1,{{-1}},0,(char *)F_FUNC(zsycon,ZSYCON)zsycon_,(f2py_init_func)f2py_rout__flapack_zsycon,doc_f2py_rout__flapack_zsycon}, | |||
| 104977 | {"checon",-1,{{-1}},0,(char *)F_FUNC(checon,CHECON)checon_,(f2py_init_func)f2py_rout__flapack_checon,doc_f2py_rout__flapack_checon}, | |||
| 104978 | {"zhecon",-1,{{-1}},0,(char *)F_FUNC(zhecon,ZHECON)zhecon_,(f2py_init_func)f2py_rout__flapack_zhecon,doc_f2py_rout__flapack_zhecon}, | |||
| 104979 | {"ssyconv",-1,{{-1}},0,(char *)F_FUNC(ssyconv,SSYCONV)ssyconv_,(f2py_init_func)f2py_rout__flapack_ssyconv,doc_f2py_rout__flapack_ssyconv}, | |||
| 104980 | {"dsyconv",-1,{{-1}},0,(char *)F_FUNC(dsyconv,DSYCONV)dsyconv_,(f2py_init_func)f2py_rout__flapack_dsyconv,doc_f2py_rout__flapack_dsyconv}, | |||
| 104981 | {"csyconv",-1,{{-1}},0,(char *)F_FUNC(csyconv,CSYCONV)csyconv_,(f2py_init_func)f2py_rout__flapack_csyconv,doc_f2py_rout__flapack_csyconv}, | |||
| 104982 | {"zsyconv",-1,{{-1}},0,(char *)F_FUNC(zsyconv,ZSYCONV)zsyconv_,(f2py_init_func)f2py_rout__flapack_zsyconv,doc_f2py_rout__flapack_zsyconv}, | |||
| 104983 | {"chegst",-1,{{-1}},0,(char *)F_FUNC(chegst,CHEGST)chegst_,(f2py_init_func)f2py_rout__flapack_chegst,doc_f2py_rout__flapack_chegst}, | |||
| 104984 | {"zhegst",-1,{{-1}},0,(char *)F_FUNC(zhegst,ZHEGST)zhegst_,(f2py_init_func)f2py_rout__flapack_zhegst,doc_f2py_rout__flapack_zhegst}, | |||
| 104985 | {"chetrf",-1,{{-1}},0,(char *)F_FUNC(chetrf,CHETRF)chetrf_,(f2py_init_func)f2py_rout__flapack_chetrf,doc_f2py_rout__flapack_chetrf}, | |||
| 104986 | {"zhetrf",-1,{{-1}},0,(char *)F_FUNC(zhetrf,ZHETRF)zhetrf_,(f2py_init_func)f2py_rout__flapack_zhetrf,doc_f2py_rout__flapack_zhetrf}, | |||
| 104987 | {"chetrf_lwork",-1,{{-1}},0,(char *)F_FUNC(chetrf ,CHETRF )chetrf_,(f2py_init_func)f2py_rout__flapack_chetrf_lwork,doc_f2py_rout__flapack_chetrf_lwork}, | |||
| 104988 | {"zhetrf_lwork",-1,{{-1}},0,(char *)F_FUNC(zhetrf ,ZHETRF )zhetrf_,(f2py_init_func)f2py_rout__flapack_zhetrf_lwork,doc_f2py_rout__flapack_zhetrf_lwork}, | |||
| 104989 | {"chesv",-1,{{-1}},0,(char *)F_FUNC(chesv,CHESV)chesv_,(f2py_init_func)f2py_rout__flapack_chesv,doc_f2py_rout__flapack_chesv}, | |||
| 104990 | {"zhesv",-1,{{-1}},0,(char *)F_FUNC(zhesv,ZHESV)zhesv_,(f2py_init_func)f2py_rout__flapack_zhesv,doc_f2py_rout__flapack_zhesv}, | |||
| 104991 | {"chesv_lwork",-1,{{-1}},0,(char *)F_FUNC(chesv ,CHESV )chesv_,(f2py_init_func)f2py_rout__flapack_chesv_lwork,doc_f2py_rout__flapack_chesv_lwork}, | |||
| 104992 | {"zhesv_lwork",-1,{{-1}},0,(char *)F_FUNC(zhesv ,ZHESV )zhesv_,(f2py_init_func)f2py_rout__flapack_zhesv_lwork,doc_f2py_rout__flapack_zhesv_lwork}, | |||
| 104993 | {"chesvx",-1,{{-1}},0,(char *)F_FUNC(chesvx,CHESVX)chesvx_,(f2py_init_func)f2py_rout__flapack_chesvx,doc_f2py_rout__flapack_chesvx}, | |||
| 104994 | {"zhesvx",-1,{{-1}},0,(char *)F_FUNC(zhesvx,ZHESVX)zhesvx_,(f2py_init_func)f2py_rout__flapack_zhesvx,doc_f2py_rout__flapack_zhesvx}, | |||
| 104995 | {"chesvx_lwork",-1,{{-1}},0,(char *)F_FUNC(chesvx ,CHESVX )chesvx_,(f2py_init_func)f2py_rout__flapack_chesvx_lwork,doc_f2py_rout__flapack_chesvx_lwork}, | |||
| 104996 | {"zhesvx_lwork",-1,{{-1}},0,(char *)F_FUNC(zhesvx ,ZHESVX )zhesvx_,(f2py_init_func)f2py_rout__flapack_zhesvx_lwork,doc_f2py_rout__flapack_zhesvx_lwork}, | |||
| 104997 | {"ssytrd",-1,{{-1}},0,(char *)F_FUNC(ssytrd,SSYTRD)ssytrd_,(f2py_init_func)f2py_rout__flapack_ssytrd,doc_f2py_rout__flapack_ssytrd}, | |||
| 104998 | {"dsytrd",-1,{{-1}},0,(char *)F_FUNC(dsytrd,DSYTRD)dsytrd_,(f2py_init_func)f2py_rout__flapack_dsytrd,doc_f2py_rout__flapack_dsytrd}, | |||
| 104999 | {"ssytrd_lwork",-1,{{-1}},0,(char *)F_FUNC(ssytrd ,SSYTRD )ssytrd_,(f2py_init_func)f2py_rout__flapack_ssytrd_lwork,doc_f2py_rout__flapack_ssytrd_lwork}, | |||
| 105000 | {"dsytrd_lwork",-1,{{-1}},0,(char *)F_FUNC(dsytrd ,DSYTRD )dsytrd_,(f2py_init_func)f2py_rout__flapack_dsytrd_lwork,doc_f2py_rout__flapack_dsytrd_lwork}, | |||
| 105001 | {"chetrd",-1,{{-1}},0,(char *)F_FUNC(chetrd,CHETRD)chetrd_,(f2py_init_func)f2py_rout__flapack_chetrd,doc_f2py_rout__flapack_chetrd}, | |||
| 105002 | {"zhetrd",-1,{{-1}},0,(char *)F_FUNC(zhetrd,ZHETRD)zhetrd_,(f2py_init_func)f2py_rout__flapack_zhetrd,doc_f2py_rout__flapack_zhetrd}, | |||
| 105003 | {"chetrd_lwork",-1,{{-1}},0,(char *)F_FUNC(chetrd ,CHETRD )chetrd_,(f2py_init_func)f2py_rout__flapack_chetrd_lwork,doc_f2py_rout__flapack_chetrd_lwork}, | |||
| 105004 | {"zhetrd_lwork",-1,{{-1}},0,(char *)F_FUNC(zhetrd ,ZHETRD )zhetrd_,(f2py_init_func)f2py_rout__flapack_zhetrd_lwork,doc_f2py_rout__flapack_zhetrd_lwork}, | |||
| 105005 | {"ssyevr",-1,{{-1}},0,(char *)F_FUNC(ssyevr,SSYEVR)ssyevr_,(f2py_init_func)f2py_rout__flapack_ssyevr,doc_f2py_rout__flapack_ssyevr}, | |||
| 105006 | {"dsyevr",-1,{{-1}},0,(char *)F_FUNC(dsyevr,DSYEVR)dsyevr_,(f2py_init_func)f2py_rout__flapack_dsyevr,doc_f2py_rout__flapack_dsyevr}, | |||
| 105007 | {"ssyevr_lwork",-1,{{-1}},0,(char *)F_FUNC(ssyevr ,SSYEVR )ssyevr_,(f2py_init_func)f2py_rout__flapack_ssyevr_lwork,doc_f2py_rout__flapack_ssyevr_lwork}, | |||
| 105008 | {"dsyevr_lwork",-1,{{-1}},0,(char *)F_FUNC(dsyevr ,DSYEVR )dsyevr_,(f2py_init_func)f2py_rout__flapack_dsyevr_lwork,doc_f2py_rout__flapack_dsyevr_lwork}, | |||
| 105009 | {"cheevr",-1,{{-1}},0,(char *)F_FUNC(cheevr,CHEEVR)cheevr_,(f2py_init_func)f2py_rout__flapack_cheevr,doc_f2py_rout__flapack_cheevr}, | |||
| 105010 | {"zheevr",-1,{{-1}},0,(char *)F_FUNC(zheevr,ZHEEVR)zheevr_,(f2py_init_func)f2py_rout__flapack_zheevr,doc_f2py_rout__flapack_zheevr}, | |||
| 105011 | {"cheevr_lwork",-1,{{-1}},0,(char *)F_FUNC(cheevr ,CHEEVR )cheevr_,(f2py_init_func)f2py_rout__flapack_cheevr_lwork,doc_f2py_rout__flapack_cheevr_lwork}, | |||
| 105012 | {"zheevr_lwork",-1,{{-1}},0,(char *)F_FUNC(zheevr ,ZHEEVR )zheevr_,(f2py_init_func)f2py_rout__flapack_zheevr_lwork,doc_f2py_rout__flapack_zheevr_lwork}, | |||
| 105013 | {"ssyevx",-1,{{-1}},0,(char *)F_FUNC(ssyevx,SSYEVX)ssyevx_,(f2py_init_func)f2py_rout__flapack_ssyevx,doc_f2py_rout__flapack_ssyevx}, | |||
| 105014 | {"dsyevx",-1,{{-1}},0,(char *)F_FUNC(dsyevx,DSYEVX)dsyevx_,(f2py_init_func)f2py_rout__flapack_dsyevx,doc_f2py_rout__flapack_dsyevx}, | |||
| 105015 | {"ssyevx_lwork",-1,{{-1}},0,(char *)F_FUNC(ssyevx ,SSYEVX )ssyevx_,(f2py_init_func)f2py_rout__flapack_ssyevx_lwork,doc_f2py_rout__flapack_ssyevx_lwork}, | |||
| 105016 | {"dsyevx_lwork",-1,{{-1}},0,(char *)F_FUNC(dsyevx ,DSYEVX )dsyevx_,(f2py_init_func)f2py_rout__flapack_dsyevx_lwork,doc_f2py_rout__flapack_dsyevx_lwork}, | |||
| 105017 | {"cheevx",-1,{{-1}},0,(char *)F_FUNC(cheevx,CHEEVX)cheevx_,(f2py_init_func)f2py_rout__flapack_cheevx,doc_f2py_rout__flapack_cheevx}, | |||
| 105018 | {"zheevx",-1,{{-1}},0,(char *)F_FUNC(zheevx,ZHEEVX)zheevx_,(f2py_init_func)f2py_rout__flapack_zheevx,doc_f2py_rout__flapack_zheevx}, | |||
| 105019 | {"cheevx_lwork",-1,{{-1}},0,(char *)F_FUNC(cheevx ,CHEEVX )cheevx_,(f2py_init_func)f2py_rout__flapack_cheevx_lwork,doc_f2py_rout__flapack_cheevx_lwork}, | |||
| 105020 | {"zheevx_lwork",-1,{{-1}},0,(char *)F_FUNC(zheevx ,ZHEEVX )zheevx_,(f2py_init_func)f2py_rout__flapack_zheevx_lwork,doc_f2py_rout__flapack_zheevx_lwork}, | |||
| 105021 | {"ssygv",-1,{{-1}},0,(char *)F_FUNC(ssygv,SSYGV)ssygv_,(f2py_init_func)f2py_rout__flapack_ssygv,doc_f2py_rout__flapack_ssygv}, | |||
| 105022 | {"dsygv",-1,{{-1}},0,(char *)F_FUNC(dsygv,DSYGV)dsygv_,(f2py_init_func)f2py_rout__flapack_dsygv,doc_f2py_rout__flapack_dsygv}, | |||
| 105023 | {"ssygv_lwork",-1,{{-1}},0,(char *)F_FUNC(ssygv ,SSYGV )ssygv_,(f2py_init_func)f2py_rout__flapack_ssygv_lwork,doc_f2py_rout__flapack_ssygv_lwork}, | |||
| 105024 | {"dsygv_lwork",-1,{{-1}},0,(char *)F_FUNC(dsygv ,DSYGV )dsygv_,(f2py_init_func)f2py_rout__flapack_dsygv_lwork,doc_f2py_rout__flapack_dsygv_lwork}, | |||
| 105025 | {"chegv",-1,{{-1}},0,(char *)F_FUNC(chegv,CHEGV)chegv_,(f2py_init_func)f2py_rout__flapack_chegv,doc_f2py_rout__flapack_chegv}, | |||
| 105026 | {"zhegv",-1,{{-1}},0,(char *)F_FUNC(zhegv,ZHEGV)zhegv_,(f2py_init_func)f2py_rout__flapack_zhegv,doc_f2py_rout__flapack_zhegv}, | |||
| 105027 | {"chegv_lwork",-1,{{-1}},0,(char *)F_FUNC(chegv ,CHEGV )chegv_,(f2py_init_func)f2py_rout__flapack_chegv_lwork,doc_f2py_rout__flapack_chegv_lwork}, | |||
| 105028 | {"zhegv_lwork",-1,{{-1}},0,(char *)F_FUNC(zhegv ,ZHEGV )zhegv_,(f2py_init_func)f2py_rout__flapack_zhegv_lwork,doc_f2py_rout__flapack_zhegv_lwork}, | |||
| 105029 | {"ssygvd",-1,{{-1}},0,(char *)F_FUNC(ssygvd,SSYGVD)ssygvd_,(f2py_init_func)f2py_rout__flapack_ssygvd,doc_f2py_rout__flapack_ssygvd}, | |||
| 105030 | {"dsygvd",-1,{{-1}},0,(char *)F_FUNC(dsygvd,DSYGVD)dsygvd_,(f2py_init_func)f2py_rout__flapack_dsygvd,doc_f2py_rout__flapack_dsygvd}, | |||
| 105031 | {"chegvd",-1,{{-1}},0,(char *)F_FUNC(chegvd,CHEGVD)chegvd_,(f2py_init_func)f2py_rout__flapack_chegvd,doc_f2py_rout__flapack_chegvd}, | |||
| 105032 | {"zhegvd",-1,{{-1}},0,(char *)F_FUNC(zhegvd,ZHEGVD)zhegvd_,(f2py_init_func)f2py_rout__flapack_zhegvd,doc_f2py_rout__flapack_zhegvd}, | |||
| 105033 | {"ssygvx",-1,{{-1}},0,(char *)F_FUNC(ssygvx,SSYGVX)ssygvx_,(f2py_init_func)f2py_rout__flapack_ssygvx,doc_f2py_rout__flapack_ssygvx}, | |||
| 105034 | {"dsygvx",-1,{{-1}},0,(char *)F_FUNC(dsygvx,DSYGVX)dsygvx_,(f2py_init_func)f2py_rout__flapack_dsygvx,doc_f2py_rout__flapack_dsygvx}, | |||
| 105035 | {"ssygvx_lwork",-1,{{-1}},0,(char *)F_FUNC(ssygvx ,SSYGVX )ssygvx_,(f2py_init_func)f2py_rout__flapack_ssygvx_lwork,doc_f2py_rout__flapack_ssygvx_lwork}, | |||
| 105036 | {"dsygvx_lwork",-1,{{-1}},0,(char *)F_FUNC(dsygvx ,DSYGVX )dsygvx_,(f2py_init_func)f2py_rout__flapack_dsygvx_lwork,doc_f2py_rout__flapack_dsygvx_lwork}, | |||
| 105037 | {"chegvx",-1,{{-1}},0,(char *)F_FUNC(chegvx,CHEGVX)chegvx_,(f2py_init_func)f2py_rout__flapack_chegvx,doc_f2py_rout__flapack_chegvx}, | |||
| 105038 | {"zhegvx",-1,{{-1}},0,(char *)F_FUNC(zhegvx,ZHEGVX)zhegvx_,(f2py_init_func)f2py_rout__flapack_zhegvx,doc_f2py_rout__flapack_zhegvx}, | |||
| 105039 | {"chegvx_lwork",-1,{{-1}},0,(char *)F_FUNC(chegvx ,CHEGVX )chegvx_,(f2py_init_func)f2py_rout__flapack_chegvx_lwork,doc_f2py_rout__flapack_chegvx_lwork}, | |||
| 105040 | {"zhegvx_lwork",-1,{{-1}},0,(char *)F_FUNC(zhegvx ,ZHEGVX )zhegvx_,(f2py_init_func)f2py_rout__flapack_zhegvx_lwork,doc_f2py_rout__flapack_zhegvx_lwork}, | |||
| 105041 | {"ssyequb",-1,{{-1}},0,(char *)F_FUNC(ssyequb,SSYEQUB)ssyequb_,(f2py_init_func)f2py_rout__flapack_ssyequb,doc_f2py_rout__flapack_ssyequb}, | |||
| 105042 | {"dsyequb",-1,{{-1}},0,(char *)F_FUNC(dsyequb,DSYEQUB)dsyequb_,(f2py_init_func)f2py_rout__flapack_dsyequb,doc_f2py_rout__flapack_dsyequb}, | |||
| 105043 | {"csyequb",-1,{{-1}},0,(char *)F_FUNC(csyequb,CSYEQUB)csyequb_,(f2py_init_func)f2py_rout__flapack_csyequb,doc_f2py_rout__flapack_csyequb}, | |||
| 105044 | {"zsyequb",-1,{{-1}},0,(char *)F_FUNC(zsyequb,ZSYEQUB)zsyequb_,(f2py_init_func)f2py_rout__flapack_zsyequb,doc_f2py_rout__flapack_zsyequb}, | |||
| 105045 | {"cheequb",-1,{{-1}},0,(char *)F_FUNC(cheequb,CHEEQUB)cheequb_,(f2py_init_func)f2py_rout__flapack_cheequb,doc_f2py_rout__flapack_cheequb}, | |||
| 105046 | {"zheequb",-1,{{-1}},0,(char *)F_FUNC(zheequb,ZHEEQUB)zheequb_,(f2py_init_func)f2py_rout__flapack_zheequb,doc_f2py_rout__flapack_zheequb}, | |||
| 105047 | {"spstrf",-1,{{-1}},0,(char *)F_FUNC(spstrf,SPSTRF)spstrf_,(f2py_init_func)f2py_rout__flapack_spstrf,doc_f2py_rout__flapack_spstrf}, | |||
| 105048 | {"dpstrf",-1,{{-1}},0,(char *)F_FUNC(dpstrf,DPSTRF)dpstrf_,(f2py_init_func)f2py_rout__flapack_dpstrf,doc_f2py_rout__flapack_dpstrf}, | |||
| 105049 | {"cpstrf",-1,{{-1}},0,(char *)F_FUNC(cpstrf,CPSTRF)cpstrf_,(f2py_init_func)f2py_rout__flapack_cpstrf,doc_f2py_rout__flapack_cpstrf}, | |||
| 105050 | {"zpstrf",-1,{{-1}},0,(char *)F_FUNC(zpstrf,ZPSTRF)zpstrf_,(f2py_init_func)f2py_rout__flapack_zpstrf,doc_f2py_rout__flapack_zpstrf}, | |||
| 105051 | {"spstf2",-1,{{-1}},0,(char *)F_FUNC(spstf2,SPSTF2)spstf2_,(f2py_init_func)f2py_rout__flapack_spstf2,doc_f2py_rout__flapack_spstf2}, | |||
| 105052 | {"dpstf2",-1,{{-1}},0,(char *)F_FUNC(dpstf2,DPSTF2)dpstf2_,(f2py_init_func)f2py_rout__flapack_dpstf2,doc_f2py_rout__flapack_dpstf2}, | |||
| 105053 | {"cpstf2",-1,{{-1}},0,(char *)F_FUNC(cpstf2,CPSTF2)cpstf2_,(f2py_init_func)f2py_rout__flapack_cpstf2,doc_f2py_rout__flapack_cpstf2}, | |||
| 105054 | {"zpstf2",-1,{{-1}},0,(char *)F_FUNC(zpstf2,ZPSTF2)zpstf2_,(f2py_init_func)f2py_rout__flapack_zpstf2,doc_f2py_rout__flapack_zpstf2}, | |||
| 105055 | {"sposv",-1,{{-1}},0,(char *)F_FUNC(sposv,SPOSV)sposv_,(f2py_init_func)f2py_rout__flapack_sposv,doc_f2py_rout__flapack_sposv}, | |||
| 105056 | {"dposv",-1,{{-1}},0,(char *)F_FUNC(dposv,DPOSV)dposv_,(f2py_init_func)f2py_rout__flapack_dposv,doc_f2py_rout__flapack_dposv}, | |||
| 105057 | {"cposv",-1,{{-1}},0,(char *)F_FUNC(cposv,CPOSV)cposv_,(f2py_init_func)f2py_rout__flapack_cposv,doc_f2py_rout__flapack_cposv}, | |||
| 105058 | {"zposv",-1,{{-1}},0,(char *)F_FUNC(zposv,ZPOSV)zposv_,(f2py_init_func)f2py_rout__flapack_zposv,doc_f2py_rout__flapack_zposv}, | |||
| 105059 | {"sposvx",-1,{{-1}},0,(char *)F_FUNC(sposvx,SPOSVX)sposvx_,(f2py_init_func)f2py_rout__flapack_sposvx,doc_f2py_rout__flapack_sposvx}, | |||
| 105060 | {"dposvx",-1,{{-1}},0,(char *)F_FUNC(dposvx,DPOSVX)dposvx_,(f2py_init_func)f2py_rout__flapack_dposvx,doc_f2py_rout__flapack_dposvx}, | |||
| 105061 | {"cposvx",-1,{{-1}},0,(char *)F_FUNC(cposvx,CPOSVX)cposvx_,(f2py_init_func)f2py_rout__flapack_cposvx,doc_f2py_rout__flapack_cposvx}, | |||
| 105062 | {"zposvx",-1,{{-1}},0,(char *)F_FUNC(zposvx,ZPOSVX)zposvx_,(f2py_init_func)f2py_rout__flapack_zposvx,doc_f2py_rout__flapack_zposvx}, | |||
| 105063 | {"spocon",-1,{{-1}},0,(char *)F_FUNC(spocon,SPOCON)spocon_,(f2py_init_func)f2py_rout__flapack_spocon,doc_f2py_rout__flapack_spocon}, | |||
| 105064 | {"dpocon",-1,{{-1}},0,(char *)F_FUNC(dpocon,DPOCON)dpocon_,(f2py_init_func)f2py_rout__flapack_dpocon,doc_f2py_rout__flapack_dpocon}, | |||
| 105065 | {"cpocon",-1,{{-1}},0,(char *)F_FUNC(cpocon,CPOCON)cpocon_,(f2py_init_func)f2py_rout__flapack_cpocon,doc_f2py_rout__flapack_cpocon}, | |||
| 105066 | {"zpocon",-1,{{-1}},0,(char *)F_FUNC(zpocon,ZPOCON)zpocon_,(f2py_init_func)f2py_rout__flapack_zpocon,doc_f2py_rout__flapack_zpocon}, | |||
| 105067 | {"spotrf",-1,{{-1}},0,(char *)F_FUNC(spotrf,SPOTRF)spotrf_,(f2py_init_func)f2py_rout__flapack_spotrf,doc_f2py_rout__flapack_spotrf}, | |||
| 105068 | {"dpotrf",-1,{{-1}},0,(char *)F_FUNC(dpotrf,DPOTRF)dpotrf_,(f2py_init_func)f2py_rout__flapack_dpotrf,doc_f2py_rout__flapack_dpotrf}, | |||
| 105069 | {"cpotrf",-1,{{-1}},0,(char *)F_FUNC(cpotrf,CPOTRF)cpotrf_,(f2py_init_func)f2py_rout__flapack_cpotrf,doc_f2py_rout__flapack_cpotrf}, | |||
| 105070 | {"zpotrf",-1,{{-1}},0,(char *)F_FUNC(zpotrf,ZPOTRF)zpotrf_,(f2py_init_func)f2py_rout__flapack_zpotrf,doc_f2py_rout__flapack_zpotrf}, | |||
| 105071 | {"spotrs",-1,{{-1}},0,(char *)F_FUNC(spotrs,SPOTRS)spotrs_,(f2py_init_func)f2py_rout__flapack_spotrs,doc_f2py_rout__flapack_spotrs}, | |||
| 105072 | {"dpotrs",-1,{{-1}},0,(char *)F_FUNC(dpotrs,DPOTRS)dpotrs_,(f2py_init_func)f2py_rout__flapack_dpotrs,doc_f2py_rout__flapack_dpotrs}, | |||
| 105073 | {"cpotrs",-1,{{-1}},0,(char *)F_FUNC(cpotrs,CPOTRS)cpotrs_,(f2py_init_func)f2py_rout__flapack_cpotrs,doc_f2py_rout__flapack_cpotrs}, | |||
| 105074 | {"zpotrs",-1,{{-1}},0,(char *)F_FUNC(zpotrs,ZPOTRS)zpotrs_,(f2py_init_func)f2py_rout__flapack_zpotrs,doc_f2py_rout__flapack_zpotrs}, | |||
| 105075 | {"spotri",-1,{{-1}},0,(char *)F_FUNC(spotri,SPOTRI)spotri_,(f2py_init_func)f2py_rout__flapack_spotri,doc_f2py_rout__flapack_spotri}, | |||
| 105076 | {"dpotri",-1,{{-1}},0,(char *)F_FUNC(dpotri,DPOTRI)dpotri_,(f2py_init_func)f2py_rout__flapack_dpotri,doc_f2py_rout__flapack_dpotri}, | |||
| 105077 | {"cpotri",-1,{{-1}},0,(char *)F_FUNC(cpotri,CPOTRI)cpotri_,(f2py_init_func)f2py_rout__flapack_cpotri,doc_f2py_rout__flapack_cpotri}, | |||
| 105078 | {"zpotri",-1,{{-1}},0,(char *)F_FUNC(zpotri,ZPOTRI)zpotri_,(f2py_init_func)f2py_rout__flapack_zpotri,doc_f2py_rout__flapack_zpotri}, | |||
| 105079 | {"sptsv",-1,{{-1}},0,(char *)F_FUNC(sptsv,SPTSV)sptsv_,(f2py_init_func)f2py_rout__flapack_sptsv,doc_f2py_rout__flapack_sptsv}, | |||
| 105080 | {"dptsv",-1,{{-1}},0,(char *)F_FUNC(dptsv,DPTSV)dptsv_,(f2py_init_func)f2py_rout__flapack_dptsv,doc_f2py_rout__flapack_dptsv}, | |||
| 105081 | {"cptsv",-1,{{-1}},0,(char *)F_FUNC(cptsv,CPTSV)cptsv_,(f2py_init_func)f2py_rout__flapack_cptsv,doc_f2py_rout__flapack_cptsv}, | |||
| 105082 | {"zptsv",-1,{{-1}},0,(char *)F_FUNC(zptsv,ZPTSV)zptsv_,(f2py_init_func)f2py_rout__flapack_zptsv,doc_f2py_rout__flapack_zptsv}, | |||
| 105083 | {"spttrf",-1,{{-1}},0,(char *)F_FUNC(spttrf,SPTTRF)spttrf_,(f2py_init_func)f2py_rout__flapack_spttrf,doc_f2py_rout__flapack_spttrf}, | |||
| 105084 | {"dpttrf",-1,{{-1}},0,(char *)F_FUNC(dpttrf,DPTTRF)dpttrf_,(f2py_init_func)f2py_rout__flapack_dpttrf,doc_f2py_rout__flapack_dpttrf}, | |||
| 105085 | {"cpttrf",-1,{{-1}},0,(char *)F_FUNC(cpttrf,CPTTRF)cpttrf_,(f2py_init_func)f2py_rout__flapack_cpttrf,doc_f2py_rout__flapack_cpttrf}, | |||
| 105086 | {"zpttrf",-1,{{-1}},0,(char *)F_FUNC(zpttrf,ZPTTRF)zpttrf_,(f2py_init_func)f2py_rout__flapack_zpttrf,doc_f2py_rout__flapack_zpttrf}, | |||
| 105087 | {"spttrs",-1,{{-1}},0,(char *)F_FUNC(spttrs,SPTTRS)spttrs_,(f2py_init_func)f2py_rout__flapack_spttrs,doc_f2py_rout__flapack_spttrs}, | |||
| 105088 | {"dpttrs",-1,{{-1}},0,(char *)F_FUNC(dpttrs,DPTTRS)dpttrs_,(f2py_init_func)f2py_rout__flapack_dpttrs,doc_f2py_rout__flapack_dpttrs}, | |||
| 105089 | {"cpttrs",-1,{{-1}},0,(char *)F_FUNC(cpttrs,CPTTRS)cpttrs_,(f2py_init_func)f2py_rout__flapack_cpttrs,doc_f2py_rout__flapack_cpttrs}, | |||
| 105090 | {"zpttrs",-1,{{-1}},0,(char *)F_FUNC(zpttrs,ZPTTRS)zpttrs_,(f2py_init_func)f2py_rout__flapack_zpttrs,doc_f2py_rout__flapack_zpttrs}, | |||
| 105091 | {"spteqr",-1,{{-1}},0,(char *)F_FUNC(spteqr,SPTEQR)spteqr_,(f2py_init_func)f2py_rout__flapack_spteqr,doc_f2py_rout__flapack_spteqr}, | |||
| 105092 | {"dpteqr",-1,{{-1}},0,(char *)F_FUNC(dpteqr,DPTEQR)dpteqr_,(f2py_init_func)f2py_rout__flapack_dpteqr,doc_f2py_rout__flapack_dpteqr}, | |||
| 105093 | {"cpteqr",-1,{{-1}},0,(char *)F_FUNC(cpteqr,CPTEQR)cpteqr_,(f2py_init_func)f2py_rout__flapack_cpteqr,doc_f2py_rout__flapack_cpteqr}, | |||
| 105094 | {"zpteqr",-1,{{-1}},0,(char *)F_FUNC(zpteqr,ZPTEQR)zpteqr_,(f2py_init_func)f2py_rout__flapack_zpteqr,doc_f2py_rout__flapack_zpteqr}, | |||
| 105095 | {"sptsvx",-1,{{-1}},0,(char *)F_FUNC(sptsvx,SPTSVX)sptsvx_,(f2py_init_func)f2py_rout__flapack_sptsvx,doc_f2py_rout__flapack_sptsvx}, | |||
| 105096 | {"dptsvx",-1,{{-1}},0,(char *)F_FUNC(dptsvx,DPTSVX)dptsvx_,(f2py_init_func)f2py_rout__flapack_dptsvx,doc_f2py_rout__flapack_dptsvx}, | |||
| 105097 | {"cptsvx",-1,{{-1}},0,(char *)F_FUNC(cptsvx,CPTSVX)cptsvx_,(f2py_init_func)f2py_rout__flapack_cptsvx,doc_f2py_rout__flapack_cptsvx}, | |||
| 105098 | {"zptsvx",-1,{{-1}},0,(char *)F_FUNC(zptsvx,ZPTSVX)zptsvx_,(f2py_init_func)f2py_rout__flapack_zptsvx,doc_f2py_rout__flapack_zptsvx}, | |||
| 105099 | {"sgejsv",-1,{{-1}},0,(char *)F_FUNC(sgejsv,SGEJSV)sgejsv_,(f2py_init_func)f2py_rout__flapack_sgejsv,doc_f2py_rout__flapack_sgejsv}, | |||
| 105100 | {"dgejsv",-1,{{-1}},0,(char *)F_FUNC(dgejsv,DGEJSV)dgejsv_,(f2py_init_func)f2py_rout__flapack_dgejsv,doc_f2py_rout__flapack_dgejsv}, | |||
| 105101 | {"stgexc",-1,{{-1}},0,(char *)F_FUNC(stgexc,STGEXC)stgexc_,(f2py_init_func)f2py_rout__flapack_stgexc,doc_f2py_rout__flapack_stgexc}, | |||
| 105102 | {"dtgexc",-1,{{-1}},0,(char *)F_FUNC(dtgexc,DTGEXC)dtgexc_,(f2py_init_func)f2py_rout__flapack_dtgexc,doc_f2py_rout__flapack_dtgexc}, | |||
| 105103 | {"ctgexc",-1,{{-1}},0,(char *)F_FUNC(ctgexc,CTGEXC)ctgexc_,(f2py_init_func)f2py_rout__flapack_ctgexc,doc_f2py_rout__flapack_ctgexc}, | |||
| 105104 | {"ztgexc",-1,{{-1}},0,(char *)F_FUNC(ztgexc,ZTGEXC)ztgexc_,(f2py_init_func)f2py_rout__flapack_ztgexc,doc_f2py_rout__flapack_ztgexc}, | |||
| 105105 | {"stgsen",-1,{{-1}},0,(char *)F_FUNC(stgsen,STGSEN)stgsen_,(f2py_init_func)f2py_rout__flapack_stgsen,doc_f2py_rout__flapack_stgsen}, | |||
| 105106 | {"dtgsen",-1,{{-1}},0,(char *)F_FUNC(dtgsen,DTGSEN)dtgsen_,(f2py_init_func)f2py_rout__flapack_dtgsen,doc_f2py_rout__flapack_dtgsen}, | |||
| 105107 | {"stgsen_lwork",-1,{{-1}},0,(char *)F_FUNC(stgsen ,STGSEN )stgsen_,(f2py_init_func)f2py_rout__flapack_stgsen_lwork,doc_f2py_rout__flapack_stgsen_lwork}, | |||
| 105108 | {"dtgsen_lwork",-1,{{-1}},0,(char *)F_FUNC(dtgsen ,DTGSEN )dtgsen_,(f2py_init_func)f2py_rout__flapack_dtgsen_lwork,doc_f2py_rout__flapack_dtgsen_lwork}, | |||
| 105109 | {"ctgsen",-1,{{-1}},0,(char *)F_FUNC(ctgsen,CTGSEN)ctgsen_,(f2py_init_func)f2py_rout__flapack_ctgsen,doc_f2py_rout__flapack_ctgsen}, | |||
| 105110 | {"ztgsen",-1,{{-1}},0,(char *)F_FUNC(ztgsen,ZTGSEN)ztgsen_,(f2py_init_func)f2py_rout__flapack_ztgsen,doc_f2py_rout__flapack_ztgsen}, | |||
| 105111 | {"ctgsen_lwork",-1,{{-1}},0,(char *)F_FUNC(ctgsen ,CTGSEN )ctgsen_,(f2py_init_func)f2py_rout__flapack_ctgsen_lwork,doc_f2py_rout__flapack_ctgsen_lwork}, | |||
| 105112 | {"ztgsen_lwork",-1,{{-1}},0,(char *)F_FUNC(ztgsen ,ZTGSEN )ztgsen_,(f2py_init_func)f2py_rout__flapack_ztgsen_lwork,doc_f2py_rout__flapack_ztgsen_lwork}, | |||
| 105113 | {"spbtrf",-1,{{-1}},0,(char *)F_FUNC(spbtrf,SPBTRF)spbtrf_,(f2py_init_func)f2py_rout__flapack_spbtrf,doc_f2py_rout__flapack_spbtrf}, | |||
| 105114 | {"dpbtrf",-1,{{-1}},0,(char *)F_FUNC(dpbtrf,DPBTRF)dpbtrf_,(f2py_init_func)f2py_rout__flapack_dpbtrf,doc_f2py_rout__flapack_dpbtrf}, | |||
| 105115 | {"cpbtrf",-1,{{-1}},0,(char *)F_FUNC(cpbtrf,CPBTRF)cpbtrf_,(f2py_init_func)f2py_rout__flapack_cpbtrf,doc_f2py_rout__flapack_cpbtrf}, | |||
| 105116 | {"zpbtrf",-1,{{-1}},0,(char *)F_FUNC(zpbtrf,ZPBTRF)zpbtrf_,(f2py_init_func)f2py_rout__flapack_zpbtrf,doc_f2py_rout__flapack_zpbtrf}, | |||
| 105117 | {"spbtrs",-1,{{-1}},0,(char *)F_FUNC(spbtrs,SPBTRS)spbtrs_,(f2py_init_func)f2py_rout__flapack_spbtrs,doc_f2py_rout__flapack_spbtrs}, | |||
| 105118 | {"dpbtrs",-1,{{-1}},0,(char *)F_FUNC(dpbtrs,DPBTRS)dpbtrs_,(f2py_init_func)f2py_rout__flapack_dpbtrs,doc_f2py_rout__flapack_dpbtrs}, | |||
| 105119 | {"cpbtrs",-1,{{-1}},0,(char *)F_FUNC(cpbtrs,CPBTRS)cpbtrs_,(f2py_init_func)f2py_rout__flapack_cpbtrs,doc_f2py_rout__flapack_cpbtrs}, | |||
| 105120 | {"zpbtrs",-1,{{-1}},0,(char *)F_FUNC(zpbtrs,ZPBTRS)zpbtrs_,(f2py_init_func)f2py_rout__flapack_zpbtrs,doc_f2py_rout__flapack_zpbtrs}, | |||
| 105121 | {"strtrs",-1,{{-1}},0,(char *)F_FUNC(strtrs,STRTRS)strtrs_,(f2py_init_func)f2py_rout__flapack_strtrs,doc_f2py_rout__flapack_strtrs}, | |||
| 105122 | {"dtrtrs",-1,{{-1}},0,(char *)F_FUNC(dtrtrs,DTRTRS)dtrtrs_,(f2py_init_func)f2py_rout__flapack_dtrtrs,doc_f2py_rout__flapack_dtrtrs}, | |||
| 105123 | {"ctrtrs",-1,{{-1}},0,(char *)F_FUNC(ctrtrs,CTRTRS)ctrtrs_,(f2py_init_func)f2py_rout__flapack_ctrtrs,doc_f2py_rout__flapack_ctrtrs}, | |||
| 105124 | {"ztrtrs",-1,{{-1}},0,(char *)F_FUNC(ztrtrs,ZTRTRS)ztrtrs_,(f2py_init_func)f2py_rout__flapack_ztrtrs,doc_f2py_rout__flapack_ztrtrs}, | |||
| 105125 | {"stbtrs",-1,{{-1}},0,(char *)F_FUNC(stbtrs,STBTRS)stbtrs_,(f2py_init_func)f2py_rout__flapack_stbtrs,doc_f2py_rout__flapack_stbtrs}, | |||
| 105126 | {"dtbtrs",-1,{{-1}},0,(char *)F_FUNC(dtbtrs,DTBTRS)dtbtrs_,(f2py_init_func)f2py_rout__flapack_dtbtrs,doc_f2py_rout__flapack_dtbtrs}, | |||
| 105127 | {"ctbtrs",-1,{{-1}},0,(char *)F_FUNC(ctbtrs,CTBTRS)ctbtrs_,(f2py_init_func)f2py_rout__flapack_ctbtrs,doc_f2py_rout__flapack_ctbtrs}, | |||
| 105128 | {"ztbtrs",-1,{{-1}},0,(char *)F_FUNC(ztbtrs,ZTBTRS)ztbtrs_,(f2py_init_func)f2py_rout__flapack_ztbtrs,doc_f2py_rout__flapack_ztbtrs}, | |||
| 105129 | {"spbsv",-1,{{-1}},0,(char *)F_FUNC(spbsv,SPBSV)spbsv_,(f2py_init_func)f2py_rout__flapack_spbsv,doc_f2py_rout__flapack_spbsv}, | |||
| 105130 | {"dpbsv",-1,{{-1}},0,(char *)F_FUNC(dpbsv,DPBSV)dpbsv_,(f2py_init_func)f2py_rout__flapack_dpbsv,doc_f2py_rout__flapack_dpbsv}, | |||
| 105131 | {"cpbsv",-1,{{-1}},0,(char *)F_FUNC(cpbsv,CPBSV)cpbsv_,(f2py_init_func)f2py_rout__flapack_cpbsv,doc_f2py_rout__flapack_cpbsv}, | |||
| 105132 | {"zpbsv",-1,{{-1}},0,(char *)F_FUNC(zpbsv,ZPBSV)zpbsv_,(f2py_init_func)f2py_rout__flapack_zpbsv,doc_f2py_rout__flapack_zpbsv}, | |||
| 105133 | {"sorcsd",-1,{{-1}},0,(char *)F_FUNC(sorcsd,SORCSD)sorcsd_,(f2py_init_func)f2py_rout__flapack_sorcsd,doc_f2py_rout__flapack_sorcsd}, | |||
| 105134 | {"dorcsd",-1,{{-1}},0,(char *)F_FUNC(dorcsd,DORCSD)dorcsd_,(f2py_init_func)f2py_rout__flapack_dorcsd,doc_f2py_rout__flapack_dorcsd}, | |||
| 105135 | {"sorcsd_lwork",-1,{{-1}},0,(char *)F_FUNC(sorcsd ,SORCSD )sorcsd_,(f2py_init_func)f2py_rout__flapack_sorcsd_lwork,doc_f2py_rout__flapack_sorcsd_lwork}, | |||
| 105136 | {"dorcsd_lwork",-1,{{-1}},0,(char *)F_FUNC(dorcsd ,DORCSD )dorcsd_,(f2py_init_func)f2py_rout__flapack_dorcsd_lwork,doc_f2py_rout__flapack_dorcsd_lwork}, | |||
| 105137 | {"cuncsd",-1,{{-1}},0,(char *)F_FUNC(cuncsd,CUNCSD)cuncsd_,(f2py_init_func)f2py_rout__flapack_cuncsd,doc_f2py_rout__flapack_cuncsd}, | |||
| 105138 | {"zuncsd",-1,{{-1}},0,(char *)F_FUNC(zuncsd,ZUNCSD)zuncsd_,(f2py_init_func)f2py_rout__flapack_zuncsd,doc_f2py_rout__flapack_zuncsd}, | |||
| 105139 | {"cuncsd_lwork",-1,{{-1}},0,(char *)F_FUNC(cuncsd ,CUNCSD )cuncsd_,(f2py_init_func)f2py_rout__flapack_cuncsd_lwork,doc_f2py_rout__flapack_cuncsd_lwork}, | |||
| 105140 | {"zuncsd_lwork",-1,{{-1}},0,(char *)F_FUNC(zuncsd ,ZUNCSD )zuncsd_,(f2py_init_func)f2py_rout__flapack_zuncsd_lwork,doc_f2py_rout__flapack_zuncsd_lwork}, | |||
| 105141 | {"sorghr",-1,{{-1}},0,(char *)F_FUNC(sorghr,SORGHR)sorghr_,(f2py_init_func)f2py_rout__flapack_sorghr,doc_f2py_rout__flapack_sorghr}, | |||
| 105142 | {"dorghr",-1,{{-1}},0,(char *)F_FUNC(dorghr,DORGHR)dorghr_,(f2py_init_func)f2py_rout__flapack_dorghr,doc_f2py_rout__flapack_dorghr}, | |||
| 105143 | {"sorghr_lwork",-1,{{-1}},0,(char *)F_FUNC(sorghr ,SORGHR )sorghr_,(f2py_init_func)f2py_rout__flapack_sorghr_lwork,doc_f2py_rout__flapack_sorghr_lwork}, | |||
| 105144 | {"dorghr_lwork",-1,{{-1}},0,(char *)F_FUNC(dorghr ,DORGHR )dorghr_,(f2py_init_func)f2py_rout__flapack_dorghr_lwork,doc_f2py_rout__flapack_dorghr_lwork}, | |||
| 105145 | {"cunghr",-1,{{-1}},0,(char *)F_FUNC(cunghr,CUNGHR)cunghr_,(f2py_init_func)f2py_rout__flapack_cunghr,doc_f2py_rout__flapack_cunghr}, | |||
| 105146 | {"zunghr",-1,{{-1}},0,(char *)F_FUNC(zunghr,ZUNGHR)zunghr_,(f2py_init_func)f2py_rout__flapack_zunghr,doc_f2py_rout__flapack_zunghr}, | |||
| 105147 | {"cunghr_lwork",-1,{{-1}},0,(char *)F_FUNC(cunghr ,CUNGHR )cunghr_,(f2py_init_func)f2py_rout__flapack_cunghr_lwork,doc_f2py_rout__flapack_cunghr_lwork}, | |||
| 105148 | {"zunghr_lwork",-1,{{-1}},0,(char *)F_FUNC(zunghr ,ZUNGHR )zunghr_,(f2py_init_func)f2py_rout__flapack_zunghr_lwork,doc_f2py_rout__flapack_zunghr_lwork}, | |||
| 105149 | {"sorgqr",-1,{{-1}},0,(char *)F_FUNC(sorgqr,SORGQR)sorgqr_,(f2py_init_func)f2py_rout__flapack_sorgqr,doc_f2py_rout__flapack_sorgqr}, | |||
| 105150 | {"dorgqr",-1,{{-1}},0,(char *)F_FUNC(dorgqr,DORGQR)dorgqr_,(f2py_init_func)f2py_rout__flapack_dorgqr,doc_f2py_rout__flapack_dorgqr}, | |||
| 105151 | {"cungqr",-1,{{-1}},0,(char *)F_FUNC(cungqr,CUNGQR)cungqr_,(f2py_init_func)f2py_rout__flapack_cungqr,doc_f2py_rout__flapack_cungqr}, | |||
| 105152 | {"zungqr",-1,{{-1}},0,(char *)F_FUNC(zungqr,ZUNGQR)zungqr_,(f2py_init_func)f2py_rout__flapack_zungqr,doc_f2py_rout__flapack_zungqr}, | |||
| 105153 | {"sormqr",-1,{{-1}},0,(char *)F_FUNC(sormqr,SORMQR)sormqr_,(f2py_init_func)f2py_rout__flapack_sormqr,doc_f2py_rout__flapack_sormqr}, | |||
| 105154 | {"dormqr",-1,{{-1}},0,(char *)F_FUNC(dormqr,DORMQR)dormqr_,(f2py_init_func)f2py_rout__flapack_dormqr,doc_f2py_rout__flapack_dormqr}, | |||
| 105155 | {"cunmqr",-1,{{-1}},0,(char *)F_FUNC(cunmqr,CUNMQR)cunmqr_,(f2py_init_func)f2py_rout__flapack_cunmqr,doc_f2py_rout__flapack_cunmqr}, | |||
| 105156 | {"zunmqr",-1,{{-1}},0,(char *)F_FUNC(zunmqr,ZUNMQR)zunmqr_,(f2py_init_func)f2py_rout__flapack_zunmqr,doc_f2py_rout__flapack_zunmqr}, | |||
| 105157 | {"sgeqrt",-1,{{-1}},0,(char *)F_FUNC(sgeqrt,SGEQRT)sgeqrt_,(f2py_init_func)f2py_rout__flapack_sgeqrt,doc_f2py_rout__flapack_sgeqrt}, | |||
| 105158 | {"dgeqrt",-1,{{-1}},0,(char *)F_FUNC(dgeqrt,DGEQRT)dgeqrt_,(f2py_init_func)f2py_rout__flapack_dgeqrt,doc_f2py_rout__flapack_dgeqrt}, | |||
| 105159 | {"cgeqrt",-1,{{-1}},0,(char *)F_FUNC(cgeqrt,CGEQRT)cgeqrt_,(f2py_init_func)f2py_rout__flapack_cgeqrt,doc_f2py_rout__flapack_cgeqrt}, | |||
| 105160 | {"zgeqrt",-1,{{-1}},0,(char *)F_FUNC(zgeqrt,ZGEQRT)zgeqrt_,(f2py_init_func)f2py_rout__flapack_zgeqrt,doc_f2py_rout__flapack_zgeqrt}, | |||
| 105161 | {"sgemqrt",-1,{{-1}},0,(char *)F_FUNC(sgemqrt,SGEMQRT)sgemqrt_,(f2py_init_func)f2py_rout__flapack_sgemqrt,doc_f2py_rout__flapack_sgemqrt}, | |||
| 105162 | {"dgemqrt",-1,{{-1}},0,(char *)F_FUNC(dgemqrt,DGEMQRT)dgemqrt_,(f2py_init_func)f2py_rout__flapack_dgemqrt,doc_f2py_rout__flapack_dgemqrt}, | |||
| 105163 | {"cgemqrt",-1,{{-1}},0,(char *)F_FUNC(cgemqrt,CGEMQRT)cgemqrt_,(f2py_init_func)f2py_rout__flapack_cgemqrt,doc_f2py_rout__flapack_cgemqrt}, | |||
| 105164 | {"zgemqrt",-1,{{-1}},0,(char *)F_FUNC(zgemqrt,ZGEMQRT)zgemqrt_,(f2py_init_func)f2py_rout__flapack_zgemqrt,doc_f2py_rout__flapack_zgemqrt}, | |||
| 105165 | {"stpqrt",-1,{{-1}},0,(char *)F_FUNC(stpqrt,STPQRT)stpqrt_,(f2py_init_func)f2py_rout__flapack_stpqrt,doc_f2py_rout__flapack_stpqrt}, | |||
| 105166 | {"dtpqrt",-1,{{-1}},0,(char *)F_FUNC(dtpqrt,DTPQRT)dtpqrt_,(f2py_init_func)f2py_rout__flapack_dtpqrt,doc_f2py_rout__flapack_dtpqrt}, | |||
| 105167 | {"ctpqrt",-1,{{-1}},0,(char *)F_FUNC(ctpqrt,CTPQRT)ctpqrt_,(f2py_init_func)f2py_rout__flapack_ctpqrt,doc_f2py_rout__flapack_ctpqrt}, | |||
| 105168 | {"ztpqrt",-1,{{-1}},0,(char *)F_FUNC(ztpqrt,ZTPQRT)ztpqrt_,(f2py_init_func)f2py_rout__flapack_ztpqrt,doc_f2py_rout__flapack_ztpqrt}, | |||
| 105169 | {"stpmqrt",-1,{{-1}},0,(char *)F_FUNC(stpmqrt,STPMQRT)stpmqrt_,(f2py_init_func)f2py_rout__flapack_stpmqrt,doc_f2py_rout__flapack_stpmqrt}, | |||
| 105170 | {"dtpmqrt",-1,{{-1}},0,(char *)F_FUNC(dtpmqrt,DTPMQRT)dtpmqrt_,(f2py_init_func)f2py_rout__flapack_dtpmqrt,doc_f2py_rout__flapack_dtpmqrt}, | |||
| 105171 | {"ctpmqrt",-1,{{-1}},0,(char *)F_FUNC(ctpmqrt,CTPMQRT)ctpmqrt_,(f2py_init_func)f2py_rout__flapack_ctpmqrt,doc_f2py_rout__flapack_ctpmqrt}, | |||
| 105172 | {"ztpmqrt",-1,{{-1}},0,(char *)F_FUNC(ztpmqrt,ZTPMQRT)ztpmqrt_,(f2py_init_func)f2py_rout__flapack_ztpmqrt,doc_f2py_rout__flapack_ztpmqrt}, | |||
| 105173 | {"sormrz",-1,{{-1}},0,(char *)F_FUNC(sormrz,SORMRZ)sormrz_,(f2py_init_func)f2py_rout__flapack_sormrz,doc_f2py_rout__flapack_sormrz}, | |||
| 105174 | {"dormrz",-1,{{-1}},0,(char *)F_FUNC(dormrz,DORMRZ)dormrz_,(f2py_init_func)f2py_rout__flapack_dormrz,doc_f2py_rout__flapack_dormrz}, | |||
| 105175 | {"cunmrz",-1,{{-1}},0,(char *)F_FUNC(cunmrz,CUNMRZ)cunmrz_,(f2py_init_func)f2py_rout__flapack_cunmrz,doc_f2py_rout__flapack_cunmrz}, | |||
| 105176 | {"zunmrz",-1,{{-1}},0,(char *)F_FUNC(zunmrz,ZUNMRZ)zunmrz_,(f2py_init_func)f2py_rout__flapack_zunmrz,doc_f2py_rout__flapack_zunmrz}, | |||
| 105177 | {"sormrz_lwork",-1,{{-1}},0,(char *)F_FUNC(sormrz ,SORMRZ )sormrz_,(f2py_init_func)f2py_rout__flapack_sormrz_lwork,doc_f2py_rout__flapack_sormrz_lwork}, | |||
| 105178 | {"dormrz_lwork",-1,{{-1}},0,(char *)F_FUNC(dormrz ,DORMRZ )dormrz_,(f2py_init_func)f2py_rout__flapack_dormrz_lwork,doc_f2py_rout__flapack_dormrz_lwork}, | |||
| 105179 | {"cunmrz_lwork",-1,{{-1}},0,(char *)F_FUNC(cunmrz ,CUNMRZ )cunmrz_,(f2py_init_func)f2py_rout__flapack_cunmrz_lwork,doc_f2py_rout__flapack_cunmrz_lwork}, | |||
| 105180 | {"zunmrz_lwork",-1,{{-1}},0,(char *)F_FUNC(zunmrz ,ZUNMRZ )zunmrz_,(f2py_init_func)f2py_rout__flapack_zunmrz_lwork,doc_f2py_rout__flapack_zunmrz_lwork}, | |||
| 105181 | {"sorgrq",-1,{{-1}},0,(char *)F_FUNC(sorgrq,SORGRQ)sorgrq_,(f2py_init_func)f2py_rout__flapack_sorgrq,doc_f2py_rout__flapack_sorgrq}, | |||
| 105182 | {"dorgrq",-1,{{-1}},0,(char *)F_FUNC(dorgrq,DORGRQ)dorgrq_,(f2py_init_func)f2py_rout__flapack_dorgrq,doc_f2py_rout__flapack_dorgrq}, | |||
| 105183 | {"cungrq",-1,{{-1}},0,(char *)F_FUNC(cungrq,CUNGRQ)cungrq_,(f2py_init_func)f2py_rout__flapack_cungrq,doc_f2py_rout__flapack_cungrq}, | |||
| 105184 | {"zungrq",-1,{{-1}},0,(char *)F_FUNC(zungrq,ZUNGRQ)zungrq_,(f2py_init_func)f2py_rout__flapack_zungrq,doc_f2py_rout__flapack_zungrq}, | |||
| 105185 | {"strtri",-1,{{-1}},0,(char *)F_FUNC(strtri,STRTRI)strtri_,(f2py_init_func)f2py_rout__flapack_strtri,doc_f2py_rout__flapack_strtri}, | |||
| 105186 | {"dtrtri",-1,{{-1}},0,(char *)F_FUNC(dtrtri,DTRTRI)dtrtri_,(f2py_init_func)f2py_rout__flapack_dtrtri,doc_f2py_rout__flapack_dtrtri}, | |||
| 105187 | {"ctrtri",-1,{{-1}},0,(char *)F_FUNC(ctrtri,CTRTRI)ctrtri_,(f2py_init_func)f2py_rout__flapack_ctrtri,doc_f2py_rout__flapack_ctrtri}, | |||
| 105188 | {"ztrtri",-1,{{-1}},0,(char *)F_FUNC(ztrtri,ZTRTRI)ztrtri_,(f2py_init_func)f2py_rout__flapack_ztrtri,doc_f2py_rout__flapack_ztrtri}, | |||
| 105189 | {"strsyl",-1,{{-1}},0,(char *)F_FUNC(strsyl,STRSYL)strsyl_,(f2py_init_func)f2py_rout__flapack_strsyl,doc_f2py_rout__flapack_strsyl}, | |||
| 105190 | {"dtrsyl",-1,{{-1}},0,(char *)F_FUNC(dtrsyl,DTRSYL)dtrsyl_,(f2py_init_func)f2py_rout__flapack_dtrsyl,doc_f2py_rout__flapack_dtrsyl}, | |||
| 105191 | {"ctrsyl",-1,{{-1}},0,(char *)F_FUNC(ctrsyl,CTRSYL)ctrsyl_,(f2py_init_func)f2py_rout__flapack_ctrsyl,doc_f2py_rout__flapack_ctrsyl}, | |||
| 105192 | {"ztrsyl",-1,{{-1}},0,(char *)F_FUNC(ztrsyl,ZTRSYL)ztrsyl_,(f2py_init_func)f2py_rout__flapack_ztrsyl,doc_f2py_rout__flapack_ztrsyl}, | |||
| 105193 | {"chbevd",-1,{{-1}},0,(char *)F_FUNC(chbevd,CHBEVD)chbevd_,(f2py_init_func)f2py_rout__flapack_chbevd,doc_f2py_rout__flapack_chbevd}, | |||
| 105194 | {"zhbevd",-1,{{-1}},0,(char *)F_FUNC(zhbevd,ZHBEVD)zhbevd_,(f2py_init_func)f2py_rout__flapack_zhbevd,doc_f2py_rout__flapack_zhbevd}, | |||
| 105195 | {"chbevx",-1,{{-1}},0,(char *)F_FUNC(chbevx,CHBEVX)chbevx_,(f2py_init_func)f2py_rout__flapack_chbevx,doc_f2py_rout__flapack_chbevx}, | |||
| 105196 | {"zhbevx",-1,{{-1}},0,(char *)F_FUNC(zhbevx,ZHBEVX)zhbevx_,(f2py_init_func)f2py_rout__flapack_zhbevx,doc_f2py_rout__flapack_zhbevx}, | |||
| 105197 | {"sgglse",-1,{{-1}},0,(char *)F_FUNC(sgglse,SGGLSE)sgglse_,(f2py_init_func)f2py_rout__flapack_sgglse,doc_f2py_rout__flapack_sgglse}, | |||
| 105198 | {"dgglse",-1,{{-1}},0,(char *)F_FUNC(dgglse,DGGLSE)dgglse_,(f2py_init_func)f2py_rout__flapack_dgglse,doc_f2py_rout__flapack_dgglse}, | |||
| 105199 | {"cgglse",-1,{{-1}},0,(char *)F_FUNC(cgglse,CGGLSE)cgglse_,(f2py_init_func)f2py_rout__flapack_cgglse,doc_f2py_rout__flapack_cgglse}, | |||
| 105200 | {"zgglse",-1,{{-1}},0,(char *)F_FUNC(zgglse,ZGGLSE)zgglse_,(f2py_init_func)f2py_rout__flapack_zgglse,doc_f2py_rout__flapack_zgglse}, | |||
| 105201 | {"sgglse_lwork",-1,{{-1}},0,(char *)F_FUNC(sgglse ,SGGLSE )sgglse_,(f2py_init_func)f2py_rout__flapack_sgglse_lwork,doc_f2py_rout__flapack_sgglse_lwork}, | |||
| 105202 | {"dgglse_lwork",-1,{{-1}},0,(char *)F_FUNC(dgglse ,DGGLSE )dgglse_,(f2py_init_func)f2py_rout__flapack_dgglse_lwork,doc_f2py_rout__flapack_dgglse_lwork}, | |||
| 105203 | {"cgglse_lwork",-1,{{-1}},0,(char *)F_FUNC(cgglse ,CGGLSE )cgglse_,(f2py_init_func)f2py_rout__flapack_cgglse_lwork,doc_f2py_rout__flapack_cgglse_lwork}, | |||
| 105204 | {"zgglse_lwork",-1,{{-1}},0,(char *)F_FUNC(zgglse ,ZGGLSE )zgglse_,(f2py_init_func)f2py_rout__flapack_zgglse_lwork,doc_f2py_rout__flapack_zgglse_lwork}, | |||
| 105205 | {"sppcon",-1,{{-1}},0,(char *)F_FUNC(sppcon,SPPCON)sppcon_,(f2py_init_func)f2py_rout__flapack_sppcon,doc_f2py_rout__flapack_sppcon}, | |||
| 105206 | {"dppcon",-1,{{-1}},0,(char *)F_FUNC(dppcon,DPPCON)dppcon_,(f2py_init_func)f2py_rout__flapack_dppcon,doc_f2py_rout__flapack_dppcon}, | |||
| 105207 | {"cppcon",-1,{{-1}},0,(char *)F_FUNC(cppcon,CPPCON)cppcon_,(f2py_init_func)f2py_rout__flapack_cppcon,doc_f2py_rout__flapack_cppcon}, | |||
| 105208 | {"zppcon",-1,{{-1}},0,(char *)F_FUNC(zppcon,ZPPCON)zppcon_,(f2py_init_func)f2py_rout__flapack_zppcon,doc_f2py_rout__flapack_zppcon}, | |||
| 105209 | {"sppsv",-1,{{-1}},0,(char *)F_FUNC(sppsv,SPPSV)sppsv_,(f2py_init_func)f2py_rout__flapack_sppsv,doc_f2py_rout__flapack_sppsv}, | |||
| 105210 | {"dppsv",-1,{{-1}},0,(char *)F_FUNC(dppsv,DPPSV)dppsv_,(f2py_init_func)f2py_rout__flapack_dppsv,doc_f2py_rout__flapack_dppsv}, | |||
| 105211 | {"cppsv",-1,{{-1}},0,(char *)F_FUNC(cppsv,CPPSV)cppsv_,(f2py_init_func)f2py_rout__flapack_cppsv,doc_f2py_rout__flapack_cppsv}, | |||
| 105212 | {"zppsv",-1,{{-1}},0,(char *)F_FUNC(zppsv,ZPPSV)zppsv_,(f2py_init_func)f2py_rout__flapack_zppsv,doc_f2py_rout__flapack_zppsv}, | |||
| 105213 | {"spptrf",-1,{{-1}},0,(char *)F_FUNC(spptrf,SPPTRF)spptrf_,(f2py_init_func)f2py_rout__flapack_spptrf,doc_f2py_rout__flapack_spptrf}, | |||
| 105214 | {"dpptrf",-1,{{-1}},0,(char *)F_FUNC(dpptrf,DPPTRF)dpptrf_,(f2py_init_func)f2py_rout__flapack_dpptrf,doc_f2py_rout__flapack_dpptrf}, | |||
| 105215 | {"cpptrf",-1,{{-1}},0,(char *)F_FUNC(cpptrf,CPPTRF)cpptrf_,(f2py_init_func)f2py_rout__flapack_cpptrf,doc_f2py_rout__flapack_cpptrf}, | |||
| 105216 | {"zpptrf",-1,{{-1}},0,(char *)F_FUNC(zpptrf,ZPPTRF)zpptrf_,(f2py_init_func)f2py_rout__flapack_zpptrf,doc_f2py_rout__flapack_zpptrf}, | |||
| 105217 | {"spptri",-1,{{-1}},0,(char *)F_FUNC(spptri,SPPTRI)spptri_,(f2py_init_func)f2py_rout__flapack_spptri,doc_f2py_rout__flapack_spptri}, | |||
| 105218 | {"dpptri",-1,{{-1}},0,(char *)F_FUNC(dpptri,DPPTRI)dpptri_,(f2py_init_func)f2py_rout__flapack_dpptri,doc_f2py_rout__flapack_dpptri}, | |||
| 105219 | {"cpptri",-1,{{-1}},0,(char *)F_FUNC(cpptri,CPPTRI)cpptri_,(f2py_init_func)f2py_rout__flapack_cpptri,doc_f2py_rout__flapack_cpptri}, | |||
| 105220 | {"zpptri",-1,{{-1}},0,(char *)F_FUNC(zpptri,ZPPTRI)zpptri_,(f2py_init_func)f2py_rout__flapack_zpptri,doc_f2py_rout__flapack_zpptri}, | |||
| 105221 | {"spptrs",-1,{{-1}},0,(char *)F_FUNC(spptrs,SPPTRS)spptrs_,(f2py_init_func)f2py_rout__flapack_spptrs,doc_f2py_rout__flapack_spptrs}, | |||
| 105222 | {"dpptrs",-1,{{-1}},0,(char *)F_FUNC(dpptrs,DPPTRS)dpptrs_,(f2py_init_func)f2py_rout__flapack_dpptrs,doc_f2py_rout__flapack_dpptrs}, | |||
| 105223 | {"cpptrs",-1,{{-1}},0,(char *)F_FUNC(cpptrs,CPPTRS)cpptrs_,(f2py_init_func)f2py_rout__flapack_cpptrs,doc_f2py_rout__flapack_cpptrs}, | |||
| 105224 | {"zpptrs",-1,{{-1}},0,(char *)F_FUNC(zpptrs,ZPPTRS)zpptrs_,(f2py_init_func)f2py_rout__flapack_zpptrs,doc_f2py_rout__flapack_zpptrs}, | |||
| 105225 | {"ssbev",-1,{{-1}},0,(char *)F_FUNC(ssbev,SSBEV)ssbev_,(f2py_init_func)f2py_rout__flapack_ssbev,doc_f2py_rout__flapack_ssbev}, | |||
| 105226 | {"dsbev",-1,{{-1}},0,(char *)F_FUNC(dsbev,DSBEV)dsbev_,(f2py_init_func)f2py_rout__flapack_dsbev,doc_f2py_rout__flapack_dsbev}, | |||
| 105227 | {"ssbevd",-1,{{-1}},0,(char *)F_FUNC(ssbevd,SSBEVD)ssbevd_,(f2py_init_func)f2py_rout__flapack_ssbevd,doc_f2py_rout__flapack_ssbevd}, | |||
| 105228 | {"dsbevd",-1,{{-1}},0,(char *)F_FUNC(dsbevd,DSBEVD)dsbevd_,(f2py_init_func)f2py_rout__flapack_dsbevd,doc_f2py_rout__flapack_dsbevd}, | |||
| 105229 | {"ssbevx",-1,{{-1}},0,(char *)F_FUNC(ssbevx,SSBEVX)ssbevx_,(f2py_init_func)f2py_rout__flapack_ssbevx,doc_f2py_rout__flapack_ssbevx}, | |||
| 105230 | {"dsbevx",-1,{{-1}},0,(char *)F_FUNC(dsbevx,DSBEVX)dsbevx_,(f2py_init_func)f2py_rout__flapack_dsbevx,doc_f2py_rout__flapack_dsbevx}, | |||
| 105231 | {"sstebz",-1,{{-1}},0,(char *)F_FUNC(sstebz,SSTEBZ)sstebz_,(f2py_init_func)f2py_rout__flapack_sstebz,doc_f2py_rout__flapack_sstebz}, | |||
| 105232 | {"dstebz",-1,{{-1}},0,(char *)F_FUNC(dstebz,DSTEBZ)dstebz_,(f2py_init_func)f2py_rout__flapack_dstebz,doc_f2py_rout__flapack_dstebz}, | |||
| 105233 | {"ssterf",-1,{{-1}},0,(char *)F_FUNC(ssterf,SSTERF)ssterf_,(f2py_init_func)f2py_rout__flapack_ssterf,doc_f2py_rout__flapack_ssterf}, | |||
| 105234 | {"dsterf",-1,{{-1}},0,(char *)F_FUNC(dsterf,DSTERF)dsterf_,(f2py_init_func)f2py_rout__flapack_dsterf,doc_f2py_rout__flapack_dsterf}, | |||
| 105235 | {"sstein",-1,{{-1}},0,(char *)F_FUNC(sstein,SSTEIN)sstein_,(f2py_init_func)f2py_rout__flapack_sstein,doc_f2py_rout__flapack_sstein}, | |||
| 105236 | {"dstein",-1,{{-1}},0,(char *)F_FUNC(dstein,DSTEIN)dstein_,(f2py_init_func)f2py_rout__flapack_dstein,doc_f2py_rout__flapack_dstein}, | |||
| 105237 | {"sstemr",-1,{{-1}},0,(char *)F_FUNC(sstemr,SSTEMR)sstemr_,(f2py_init_func)f2py_rout__flapack_sstemr,doc_f2py_rout__flapack_sstemr}, | |||
| 105238 | {"dstemr",-1,{{-1}},0,(char *)F_FUNC(dstemr,DSTEMR)dstemr_,(f2py_init_func)f2py_rout__flapack_dstemr,doc_f2py_rout__flapack_dstemr}, | |||
| 105239 | {"sstemr_lwork",-1,{{-1}},0,(char *)F_FUNC(cstemr ,CSTEMR )cstemr_,(f2py_init_func)f2py_rout__flapack_sstemr_lwork,doc_f2py_rout__flapack_sstemr_lwork}, | |||
| 105240 | {"dstemr_lwork",-1,{{-1}},0,(char *)F_FUNC(zstemr ,ZSTEMR )zstemr_,(f2py_init_func)f2py_rout__flapack_dstemr_lwork,doc_f2py_rout__flapack_dstemr_lwork}, | |||
| 105241 | {"sstev",-1,{{-1}},0,(char *)F_FUNC(sstev,SSTEV)sstev_,(f2py_init_func)f2py_rout__flapack_sstev,doc_f2py_rout__flapack_sstev}, | |||
| 105242 | {"dstev",-1,{{-1}},0,(char *)F_FUNC(dstev,DSTEV)dstev_,(f2py_init_func)f2py_rout__flapack_dstev,doc_f2py_rout__flapack_dstev}, | |||
| 105243 | {"ssfrk",-1,{{-1}},0,(char *)F_FUNC(ssfrk,SSFRK)ssfrk_,(f2py_init_func)f2py_rout__flapack_ssfrk,doc_f2py_rout__flapack_ssfrk}, | |||
| 105244 | {"dsfrk",-1,{{-1}},0,(char *)F_FUNC(dsfrk,DSFRK)dsfrk_,(f2py_init_func)f2py_rout__flapack_dsfrk,doc_f2py_rout__flapack_dsfrk}, | |||
| 105245 | {"chfrk",-1,{{-1}},0,(char *)F_FUNC(chfrk,CHFRK)chfrk_,(f2py_init_func)f2py_rout__flapack_chfrk,doc_f2py_rout__flapack_chfrk}, | |||
| 105246 | {"zhfrk",-1,{{-1}},0,(char *)F_FUNC(zhfrk,ZHFRK)zhfrk_,(f2py_init_func)f2py_rout__flapack_zhfrk,doc_f2py_rout__flapack_zhfrk}, | |||
| 105247 | {"stpttf",-1,{{-1}},0,(char *)F_FUNC(stpttf,STPTTF)stpttf_,(f2py_init_func)f2py_rout__flapack_stpttf,doc_f2py_rout__flapack_stpttf}, | |||
| 105248 | {"dtpttf",-1,{{-1}},0,(char *)F_FUNC(dtpttf,DTPTTF)dtpttf_,(f2py_init_func)f2py_rout__flapack_dtpttf,doc_f2py_rout__flapack_dtpttf}, | |||
| 105249 | {"ctpttf",-1,{{-1}},0,(char *)F_FUNC(ctpttf,CTPTTF)ctpttf_,(f2py_init_func)f2py_rout__flapack_ctpttf,doc_f2py_rout__flapack_ctpttf}, | |||
| 105250 | {"ztpttf",-1,{{-1}},0,(char *)F_FUNC(ztpttf,ZTPTTF)ztpttf_,(f2py_init_func)f2py_rout__flapack_ztpttf,doc_f2py_rout__flapack_ztpttf}, | |||
| 105251 | {"stpttr",-1,{{-1}},0,(char *)F_FUNC(stpttr,STPTTR)stpttr_,(f2py_init_func)f2py_rout__flapack_stpttr,doc_f2py_rout__flapack_stpttr}, | |||
| 105252 | {"dtpttr",-1,{{-1}},0,(char *)F_FUNC(dtpttr,DTPTTR)dtpttr_,(f2py_init_func)f2py_rout__flapack_dtpttr,doc_f2py_rout__flapack_dtpttr}, | |||
| 105253 | {"ctpttr",-1,{{-1}},0,(char *)F_FUNC(ctpttr,CTPTTR)ctpttr_,(f2py_init_func)f2py_rout__flapack_ctpttr,doc_f2py_rout__flapack_ctpttr}, | |||
| 105254 | {"ztpttr",-1,{{-1}},0,(char *)F_FUNC(ztpttr,ZTPTTR)ztpttr_,(f2py_init_func)f2py_rout__flapack_ztpttr,doc_f2py_rout__flapack_ztpttr}, | |||
| 105255 | {"stfttp",-1,{{-1}},0,(char *)F_FUNC(stfttp,STFTTP)stfttp_,(f2py_init_func)f2py_rout__flapack_stfttp,doc_f2py_rout__flapack_stfttp}, | |||
| 105256 | {"dtfttp",-1,{{-1}},0,(char *)F_FUNC(dtfttp,DTFTTP)dtfttp_,(f2py_init_func)f2py_rout__flapack_dtfttp,doc_f2py_rout__flapack_dtfttp}, | |||
| 105257 | {"ctfttp",-1,{{-1}},0,(char *)F_FUNC(ctfttp,CTFTTP)ctfttp_,(f2py_init_func)f2py_rout__flapack_ctfttp,doc_f2py_rout__flapack_ctfttp}, | |||
| 105258 | {"ztfttp",-1,{{-1}},0,(char *)F_FUNC(ztfttp,ZTFTTP)ztfttp_,(f2py_init_func)f2py_rout__flapack_ztfttp,doc_f2py_rout__flapack_ztfttp}, | |||
| 105259 | {"stfttr",-1,{{-1}},0,(char *)F_FUNC(stfttr,STFTTR)stfttr_,(f2py_init_func)f2py_rout__flapack_stfttr,doc_f2py_rout__flapack_stfttr}, | |||
| 105260 | {"dtfttr",-1,{{-1}},0,(char *)F_FUNC(dtfttr,DTFTTR)dtfttr_,(f2py_init_func)f2py_rout__flapack_dtfttr,doc_f2py_rout__flapack_dtfttr}, | |||
| 105261 | {"ctfttr",-1,{{-1}},0,(char *)F_FUNC(ctfttr,CTFTTR)ctfttr_,(f2py_init_func)f2py_rout__flapack_ctfttr,doc_f2py_rout__flapack_ctfttr}, | |||
| 105262 | {"ztfttr",-1,{{-1}},0,(char *)F_FUNC(ztfttr,ZTFTTR)ztfttr_,(f2py_init_func)f2py_rout__flapack_ztfttr,doc_f2py_rout__flapack_ztfttr}, | |||
| 105263 | {"strttf",-1,{{-1}},0,(char *)F_FUNC(strttf,STRTTF)strttf_,(f2py_init_func)f2py_rout__flapack_strttf,doc_f2py_rout__flapack_strttf}, | |||
| 105264 | {"dtrttf",-1,{{-1}},0,(char *)F_FUNC(dtrttf,DTRTTF)dtrttf_,(f2py_init_func)f2py_rout__flapack_dtrttf,doc_f2py_rout__flapack_dtrttf}, | |||
| 105265 | {"ctrttf",-1,{{-1}},0,(char *)F_FUNC(ctrttf,CTRTTF)ctrttf_,(f2py_init_func)f2py_rout__flapack_ctrttf,doc_f2py_rout__flapack_ctrttf}, | |||
| 105266 | {"ztrttf",-1,{{-1}},0,(char *)F_FUNC(ztrttf,ZTRTTF)ztrttf_,(f2py_init_func)f2py_rout__flapack_ztrttf,doc_f2py_rout__flapack_ztrttf}, | |||
| 105267 | {"strttp",-1,{{-1}},0,(char *)F_FUNC(strttp,STRTTP)strttp_,(f2py_init_func)f2py_rout__flapack_strttp,doc_f2py_rout__flapack_strttp}, | |||
| 105268 | {"dtrttp",-1,{{-1}},0,(char *)F_FUNC(dtrttp,DTRTTP)dtrttp_,(f2py_init_func)f2py_rout__flapack_dtrttp,doc_f2py_rout__flapack_dtrttp}, | |||
| 105269 | {"ctrttp",-1,{{-1}},0,(char *)F_FUNC(ctrttp,CTRTTP)ctrttp_,(f2py_init_func)f2py_rout__flapack_ctrttp,doc_f2py_rout__flapack_ctrttp}, | |||
| 105270 | {"ztrttp",-1,{{-1}},0,(char *)F_FUNC(ztrttp,ZTRTTP)ztrttp_,(f2py_init_func)f2py_rout__flapack_ztrttp,doc_f2py_rout__flapack_ztrttp}, | |||
| 105271 | {"stfsm",-1,{{-1}},0,(char *)F_FUNC(stfsm,STFSM)stfsm_,(f2py_init_func)f2py_rout__flapack_stfsm,doc_f2py_rout__flapack_stfsm}, | |||
| 105272 | {"dtfsm",-1,{{-1}},0,(char *)F_FUNC(dtfsm,DTFSM)dtfsm_,(f2py_init_func)f2py_rout__flapack_dtfsm,doc_f2py_rout__flapack_dtfsm}, | |||
| 105273 | {"ctfsm",-1,{{-1}},0,(char *)F_FUNC(ctfsm,CTFSM)ctfsm_,(f2py_init_func)f2py_rout__flapack_ctfsm,doc_f2py_rout__flapack_ctfsm}, | |||
| 105274 | {"ztfsm",-1,{{-1}},0,(char *)F_FUNC(ztfsm,ZTFSM)ztfsm_,(f2py_init_func)f2py_rout__flapack_ztfsm,doc_f2py_rout__flapack_ztfsm}, | |||
| 105275 | {"spftrf",-1,{{-1}},0,(char *)F_FUNC(spftrf,SPFTRF)spftrf_,(f2py_init_func)f2py_rout__flapack_spftrf,doc_f2py_rout__flapack_spftrf}, | |||
| 105276 | {"dpftrf",-1,{{-1}},0,(char *)F_FUNC(dpftrf,DPFTRF)dpftrf_,(f2py_init_func)f2py_rout__flapack_dpftrf,doc_f2py_rout__flapack_dpftrf}, | |||
| 105277 | {"cpftrf",-1,{{-1}},0,(char *)F_FUNC(cpftrf,CPFTRF)cpftrf_,(f2py_init_func)f2py_rout__flapack_cpftrf,doc_f2py_rout__flapack_cpftrf}, | |||
| 105278 | {"zpftrf",-1,{{-1}},0,(char *)F_FUNC(zpftrf,ZPFTRF)zpftrf_,(f2py_init_func)f2py_rout__flapack_zpftrf,doc_f2py_rout__flapack_zpftrf}, | |||
| 105279 | {"spftri",-1,{{-1}},0,(char *)F_FUNC(spftri,SPFTRI)spftri_,(f2py_init_func)f2py_rout__flapack_spftri,doc_f2py_rout__flapack_spftri}, | |||
| 105280 | {"dpftri",-1,{{-1}},0,(char *)F_FUNC(dpftri,DPFTRI)dpftri_,(f2py_init_func)f2py_rout__flapack_dpftri,doc_f2py_rout__flapack_dpftri}, | |||
| 105281 | {"cpftri",-1,{{-1}},0,(char *)F_FUNC(cpftri,CPFTRI)cpftri_,(f2py_init_func)f2py_rout__flapack_cpftri,doc_f2py_rout__flapack_cpftri}, | |||
| 105282 | {"zpftri",-1,{{-1}},0,(char *)F_FUNC(zpftri,ZPFTRI)zpftri_,(f2py_init_func)f2py_rout__flapack_zpftri,doc_f2py_rout__flapack_zpftri}, | |||
| 105283 | {"spftrs",-1,{{-1}},0,(char *)F_FUNC(spftrs,SPFTRS)spftrs_,(f2py_init_func)f2py_rout__flapack_spftrs,doc_f2py_rout__flapack_spftrs}, | |||
| 105284 | {"dpftrs",-1,{{-1}},0,(char *)F_FUNC(dpftrs,DPFTRS)dpftrs_,(f2py_init_func)f2py_rout__flapack_dpftrs,doc_f2py_rout__flapack_dpftrs}, | |||
| 105285 | {"cpftrs",-1,{{-1}},0,(char *)F_FUNC(cpftrs,CPFTRS)cpftrs_,(f2py_init_func)f2py_rout__flapack_cpftrs,doc_f2py_rout__flapack_cpftrs}, | |||
| 105286 | {"zpftrs",-1,{{-1}},0,(char *)F_FUNC(zpftrs,ZPFTRS)zpftrs_,(f2py_init_func)f2py_rout__flapack_zpftrs,doc_f2py_rout__flapack_zpftrs}, | |||
| 105287 | {"stzrzf",-1,{{-1}},0,(char *)F_FUNC(stzrzf,STZRZF)stzrzf_,(f2py_init_func)f2py_rout__flapack_stzrzf,doc_f2py_rout__flapack_stzrzf}, | |||
| 105288 | {"dtzrzf",-1,{{-1}},0,(char *)F_FUNC(dtzrzf,DTZRZF)dtzrzf_,(f2py_init_func)f2py_rout__flapack_dtzrzf,doc_f2py_rout__flapack_dtzrzf}, | |||
| 105289 | {"ctzrzf",-1,{{-1}},0,(char *)F_FUNC(ctzrzf,CTZRZF)ctzrzf_,(f2py_init_func)f2py_rout__flapack_ctzrzf,doc_f2py_rout__flapack_ctzrzf}, | |||
| 105290 | {"ztzrzf",-1,{{-1}},0,(char *)F_FUNC(ztzrzf,ZTZRZF)ztzrzf_,(f2py_init_func)f2py_rout__flapack_ztzrzf,doc_f2py_rout__flapack_ztzrzf}, | |||
| 105291 | {"stzrzf_lwork",-1,{{-1}},0,(char *)F_FUNC(stzrzf ,STZRZF )stzrzf_,(f2py_init_func)f2py_rout__flapack_stzrzf_lwork,doc_f2py_rout__flapack_stzrzf_lwork}, | |||
| 105292 | {"dtzrzf_lwork",-1,{{-1}},0,(char *)F_FUNC(dtzrzf ,DTZRZF )dtzrzf_,(f2py_init_func)f2py_rout__flapack_dtzrzf_lwork,doc_f2py_rout__flapack_dtzrzf_lwork}, | |||
| 105293 | {"ctzrzf_lwork",-1,{{-1}},0,(char *)F_FUNC(ctzrzf ,CTZRZF )ctzrzf_,(f2py_init_func)f2py_rout__flapack_ctzrzf_lwork,doc_f2py_rout__flapack_ctzrzf_lwork}, | |||
| 105294 | {"ztzrzf_lwork",-1,{{-1}},0,(char *)F_FUNC(ztzrzf ,ZTZRZF )ztzrzf_,(f2py_init_func)f2py_rout__flapack_ztzrzf_lwork,doc_f2py_rout__flapack_ztzrzf_lwork}, | |||
| 105295 | {"slasd4",-1,{{-1}},0,(char *)F_FUNC(slasd4,SLASD4)slasd4_,(f2py_init_func)f2py_rout__flapack_slasd4,doc_f2py_rout__flapack_slasd4}, | |||
| 105296 | {"dlasd4",-1,{{-1}},0,(char *)F_FUNC(dlasd4,DLASD4)dlasd4_,(f2py_init_func)f2py_rout__flapack_dlasd4,doc_f2py_rout__flapack_dlasd4}, | |||
| 105297 | {"slauum",-1,{{-1}},0,(char *)F_FUNC(slauum,SLAUUM)slauum_,(f2py_init_func)f2py_rout__flapack_slauum,doc_f2py_rout__flapack_slauum}, | |||
| 105298 | {"dlauum",-1,{{-1}},0,(char *)F_FUNC(dlauum,DLAUUM)dlauum_,(f2py_init_func)f2py_rout__flapack_dlauum,doc_f2py_rout__flapack_dlauum}, | |||
| 105299 | {"clauum",-1,{{-1}},0,(char *)F_FUNC(clauum,CLAUUM)clauum_,(f2py_init_func)f2py_rout__flapack_clauum,doc_f2py_rout__flapack_clauum}, | |||
| 105300 | {"zlauum",-1,{{-1}},0,(char *)F_FUNC(zlauum,ZLAUUM)zlauum_,(f2py_init_func)f2py_rout__flapack_zlauum,doc_f2py_rout__flapack_zlauum}, | |||
| 105301 | {"slaswp",-1,{{-1}},0,(char *)F_FUNC(slaswp,SLASWP)slaswp_,(f2py_init_func)f2py_rout__flapack_slaswp,doc_f2py_rout__flapack_slaswp}, | |||
| 105302 | {"dlaswp",-1,{{-1}},0,(char *)F_FUNC(dlaswp,DLASWP)dlaswp_,(f2py_init_func)f2py_rout__flapack_dlaswp,doc_f2py_rout__flapack_dlaswp}, | |||
| 105303 | {"claswp",-1,{{-1}},0,(char *)F_FUNC(claswp,CLASWP)claswp_,(f2py_init_func)f2py_rout__flapack_claswp,doc_f2py_rout__flapack_claswp}, | |||
| 105304 | {"zlaswp",-1,{{-1}},0,(char *)F_FUNC(zlaswp,ZLASWP)zlaswp_,(f2py_init_func)f2py_rout__flapack_zlaswp,doc_f2py_rout__flapack_zlaswp}, | |||
| 105305 | {"dlamch",-1,{{-1}},0,(char *)F_WRAPPEDFUNC(dlamch,DLAMCH)f2pywrapdlamch_,(f2py_init_func)f2py_rout__flapack_dlamch,doc_f2py_rout__flapack_dlamch}, | |||
| 105306 | {"slamch",-1,{{-1}},0,(char *)F_WRAPPEDFUNC(slamch,SLAMCH)f2pywrapslamch_,(f2py_init_func)f2py_rout__flapack_slamch,doc_f2py_rout__flapack_slamch}, | |||
| 105307 | {"slange",-1,{{-1}},0,(char *)F_WRAPPEDFUNC(slange,SLANGE)f2pywrapslange_,(f2py_init_func)f2py_rout__flapack_slange,doc_f2py_rout__flapack_slange}, | |||
| 105308 | {"dlange",-1,{{-1}},0,(char *)F_WRAPPEDFUNC(dlange,DLANGE)f2pywrapdlange_,(f2py_init_func)f2py_rout__flapack_dlange,doc_f2py_rout__flapack_dlange}, | |||
| 105309 | {"clange",-1,{{-1}},0,(char *)F_WRAPPEDFUNC(clange,CLANGE)f2pywrapclange_,(f2py_init_func)f2py_rout__flapack_clange,doc_f2py_rout__flapack_clange}, | |||
| 105310 | {"zlange",-1,{{-1}},0,(char *)F_WRAPPEDFUNC(zlange,ZLANGE)f2pywrapzlange_,(f2py_init_func)f2py_rout__flapack_zlange,doc_f2py_rout__flapack_zlange}, | |||
| 105311 | {"slarfg",-1,{{-1}},0,(char *)F_FUNC(slarfg,SLARFG)slarfg_,(f2py_init_func)f2py_rout__flapack_slarfg,doc_f2py_rout__flapack_slarfg}, | |||
| 105312 | {"dlarfg",-1,{{-1}},0,(char *)F_FUNC(dlarfg,DLARFG)dlarfg_,(f2py_init_func)f2py_rout__flapack_dlarfg,doc_f2py_rout__flapack_dlarfg}, | |||
| 105313 | {"clarfg",-1,{{-1}},0,(char *)F_FUNC(clarfg,CLARFG)clarfg_,(f2py_init_func)f2py_rout__flapack_clarfg,doc_f2py_rout__flapack_clarfg}, | |||
| 105314 | {"zlarfg",-1,{{-1}},0,(char *)F_FUNC(zlarfg,ZLARFG)zlarfg_,(f2py_init_func)f2py_rout__flapack_zlarfg,doc_f2py_rout__flapack_zlarfg}, | |||
| 105315 | {"slarf",-1,{{-1}},0,(char *)F_FUNC(slarf,SLARF)slarf_,(f2py_init_func)f2py_rout__flapack_slarf,doc_f2py_rout__flapack_slarf}, | |||
| 105316 | {"dlarf",-1,{{-1}},0,(char *)F_FUNC(dlarf,DLARF)dlarf_,(f2py_init_func)f2py_rout__flapack_dlarf,doc_f2py_rout__flapack_dlarf}, | |||
| 105317 | {"clarf",-1,{{-1}},0,(char *)F_FUNC(clarf,CLARF)clarf_,(f2py_init_func)f2py_rout__flapack_clarf,doc_f2py_rout__flapack_clarf}, | |||
| 105318 | {"zlarf",-1,{{-1}},0,(char *)F_FUNC(zlarf,ZLARF)zlarf_,(f2py_init_func)f2py_rout__flapack_zlarf,doc_f2py_rout__flapack_zlarf}, | |||
| 105319 | {"slartg",-1,{{-1}},0,(char *)F_FUNC(slartg,SLARTG)slartg_,(f2py_init_func)f2py_rout__flapack_slartg,doc_f2py_rout__flapack_slartg}, | |||
| 105320 | {"dlartg",-1,{{-1}},0,(char *)F_FUNC(dlartg,DLARTG)dlartg_,(f2py_init_func)f2py_rout__flapack_dlartg,doc_f2py_rout__flapack_dlartg}, | |||
| 105321 | {"clartg",-1,{{-1}},0,(char *)F_FUNC(clartg,CLARTG)clartg_,(f2py_init_func)f2py_rout__flapack_clartg,doc_f2py_rout__flapack_clartg}, | |||
| 105322 | {"zlartg",-1,{{-1}},0,(char *)F_FUNC(zlartg,ZLARTG)zlartg_,(f2py_init_func)f2py_rout__flapack_zlartg,doc_f2py_rout__flapack_zlartg}, | |||
| 105323 | {"crot",-1,{{-1}},0,(char *)F_FUNC(crot,CROT)crot_,(f2py_init_func)f2py_rout__flapack_crot,doc_f2py_rout__flapack_crot}, | |||
| 105324 | {"zrot",-1,{{-1}},0,(char *)F_FUNC(zrot,ZROT)zrot_,(f2py_init_func)f2py_rout__flapack_zrot,doc_f2py_rout__flapack_zrot}, | |||
| 105325 | {"ilaver",-1,{{-1}},0,(char *)F_FUNC(ilaver,ILAVER)ilaver_,(f2py_init_func)f2py_rout__flapack_ilaver,doc_f2py_rout__flapack_ilaver}, | |||
| 105326 | ||||
| 105327 | /*eof routine_defs*/ | |||
| 105328 | {NULL((void*)0)} | |||
| 105329 | }; | |||
| 105330 | ||||
| 105331 | static PyMethodDef f2py_module_methods[] = { | |||
| 105332 | ||||
| 105333 | {NULL((void*)0),NULL((void*)0)} | |||
| 105334 | }; | |||
| 105335 | ||||
| 105336 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 105337 | static struct PyModuleDef moduledef = { | |||
| 105338 | PyModuleDef_HEAD_INIT{ { 1, ((void*)0) }, ((void*)0), 0, ((void*)0), }, | |||
| 105339 | "_flapack", | |||
| 105340 | NULL((void*)0), | |||
| 105341 | -1, | |||
| 105342 | f2py_module_methods, | |||
| 105343 | NULL((void*)0), | |||
| 105344 | NULL((void*)0), | |||
| 105345 | NULL((void*)0), | |||
| 105346 | NULL((void*)0) | |||
| 105347 | }; | |||
| 105348 | #endif | |||
| 105349 | ||||
| 105350 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 105351 | #define RETVALm m | |||
| 105352 | PyMODINIT_FUNCPyObject* PyInit__flapack(void) { | |||
| 105353 | #else | |||
| 105354 | #define RETVALm | |||
| 105355 | PyMODINIT_FUNCPyObject* init_flapack(void) { | |||
| 105356 | #endif | |||
| 105357 | int i; | |||
| 105358 | PyObject *m,*d, *s, *tmp; | |||
| 105359 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 105360 | m = _flapack_module = PyModule_Create(&moduledef)PyModule_Create2(&moduledef, 1013); | |||
| 105361 | #else | |||
| 105362 | m = _flapack_module = Py_InitModule("_flapack", f2py_module_methods); | |||
| 105363 | #endif | |||
| 105364 | Py_TYPE(&PyFortran_Type)(((PyObject*)(&PyFortran_Type))->ob_type) = &PyType_Type; | |||
| 105365 | import_array(){if (_import_array() < 0) {PyErr_Print(); PyErr_SetString( PyExc_ImportError, "numpy.core.multiarray failed to import"); return ((void*)0); } }; | |||
| ||||
| 105366 | if (PyErr_Occurred()) | |||
| 105367 | {PyErr_SetString(PyExc_ImportError, "can't initialize module _flapack (failed to import numpy)"); return RETVALm;} | |||
| 105368 | d = PyModule_GetDict(m); | |||
| 105369 | s = PyString_FromStringPyBytes_FromString("$Revision: $"); | |||
| 105370 | PyDict_SetItemString(d, "__version__", s); | |||
| 105371 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 105372 | s = PyUnicode_FromString( | |||
| 105373 | #else | |||
| 105374 | s = PyString_FromStringPyBytes_FromString( | |||
| 105375 | #endif | |||
| 105376 | "This module '_flapack' is auto-generated with f2py (version:2).\nFunctions:\n" | |||
| 105377 | " ba,lo,hi,pivscale,info = sgebal(a,scale=0,permute=0,overwrite_a=0)\n" | |||
| 105378 | " ba,lo,hi,pivscale,info = dgebal(a,scale=0,permute=0,overwrite_a=0)\n" | |||
| 105379 | " ba,lo,hi,pivscale,info = cgebal(a,scale=0,permute=0,overwrite_a=0)\n" | |||
| 105380 | " ba,lo,hi,pivscale,info = zgebal(a,scale=0,permute=0,overwrite_a=0)\n" | |||
| 105381 | " ht,tau,info = sgehrd(a,lo=0,hi=n-1,lwork=MAX(n,1),overwrite_a=0)\n" | |||
| 105382 | " ht,tau,info = dgehrd(a,lo=0,hi=n-1,lwork=MAX(n,1),overwrite_a=0)\n" | |||
| 105383 | " ht,tau,info = cgehrd(a,lo=0,hi=n-1,lwork=MAX(n,1),overwrite_a=0)\n" | |||
| 105384 | " ht,tau,info = zgehrd(a,lo=0,hi=n-1,lwork=MAX(n,1),overwrite_a=0)\n" | |||
| 105385 | " work,info = sgehrd_lwork(n,lo=0,hi=n-1)\n" | |||
| 105386 | " work,info = dgehrd_lwork(n,lo=0,hi=n-1)\n" | |||
| 105387 | " work,info = cgehrd_lwork(n,lo=0,hi=n-1)\n" | |||
| 105388 | " work,info = zgehrd_lwork(n,lo=0,hi=n-1)\n" | |||
| 105389 | " lu,piv,x,info = sgesv(a,b,overwrite_a=0,overwrite_b=0)\n" | |||
| 105390 | " lu,piv,x,info = dgesv(a,b,overwrite_a=0,overwrite_b=0)\n" | |||
| 105391 | " lu,piv,x,info = cgesv(a,b,overwrite_a=0,overwrite_b=0)\n" | |||
| 105392 | " lu,piv,x,info = zgesv(a,b,overwrite_a=0,overwrite_b=0)\n" | |||
| 105393 | " as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = sgesvx(a,b,fact='E',trans='N',af=,ipiv=,equed='B',r=,c=,overwrite_a=0,overwrite_b=0)\n" | |||
| 105394 | " as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = dgesvx(a,b,fact='E',trans='N',af=,ipiv=,equed='B',r=,c=,overwrite_a=0,overwrite_b=0)\n" | |||
| 105395 | " as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = cgesvx(a,b,fact='E',trans='N',af=,ipiv=,equed='B',r=,c=,overwrite_a=0,overwrite_b=0)\n" | |||
| 105396 | " as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = zgesvx(a,b,fact='E',trans='N',af=,ipiv=,equed='B',r=,c=,overwrite_a=0,overwrite_b=0)\n" | |||
| 105397 | " rcond,info = sgecon(a,anorm,norm='1')\n" | |||
| 105398 | " rcond,info = dgecon(a,anorm,norm='1')\n" | |||
| 105399 | " rcond,info = cgecon(a,anorm,norm='1')\n" | |||
| 105400 | " rcond,info = zgecon(a,anorm,norm='1')\n" | |||
| 105401 | " lu,piv,info = sgetrf(a,overwrite_a=0)\n" | |||
| 105402 | " lu,piv,info = dgetrf(a,overwrite_a=0)\n" | |||
| 105403 | " lu,piv,info = cgetrf(a,overwrite_a=0)\n" | |||
| 105404 | " lu,piv,info = zgetrf(a,overwrite_a=0)\n" | |||
| 105405 | " x,info = sgetrs(lu,piv,b,trans=0,overwrite_b=0)\n" | |||
| 105406 | " x,info = dgetrs(lu,piv,b,trans=0,overwrite_b=0)\n" | |||
| 105407 | " x,info = cgetrs(lu,piv,b,trans=0,overwrite_b=0)\n" | |||
| 105408 | " x,info = zgetrs(lu,piv,b,trans=0,overwrite_b=0)\n" | |||
| 105409 | " lu,ipiv,jpiv,info = sgetc2(a,overwrite_a=0)\n" | |||
| 105410 | " lu,ipiv,jpiv,info = dgetc2(a,overwrite_a=0)\n" | |||
| 105411 | " lu,ipiv,jpiv,info = cgetc2(a,overwrite_a=0)\n" | |||
| 105412 | " lu,ipiv,jpiv,info = zgetc2(a,overwrite_a=0)\n" | |||
| 105413 | " x,scale = sgesc2(lu,rhs,ipiv,jpiv,overwrite_rhs=0)\n" | |||
| 105414 | " x,scale = dgesc2(lu,rhs,ipiv,jpiv,overwrite_rhs=0)\n" | |||
| 105415 | " x,scale = cgesc2(lu,rhs,ipiv,jpiv,overwrite_rhs=0)\n" | |||
| 105416 | " x,scale = zgesc2(lu,rhs,ipiv,jpiv,overwrite_rhs=0)\n" | |||
| 105417 | " inv_a,info = sgetri(lu,piv,lwork=max(3*n,1),overwrite_lu=0)\n" | |||
| 105418 | " inv_a,info = dgetri(lu,piv,lwork=max(3*n,1),overwrite_lu=0)\n" | |||
| 105419 | " inv_a,info = cgetri(lu,piv,lwork=max(3*n,1),overwrite_lu=0)\n" | |||
| 105420 | " inv_a,info = zgetri(lu,piv,lwork=max(3*n,1),overwrite_lu=0)\n" | |||
| 105421 | " work,info = sgetri_lwork(n)\n" | |||
| 105422 | " work,info = dgetri_lwork(n)\n" | |||
| 105423 | " work,info = cgetri_lwork(n)\n" | |||
| 105424 | " work,info = zgetri_lwork(n)\n" | |||
| 105425 | " u,s,vt,info = sgesdd(a,compute_uv=1,full_matrices=1,lwork=max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1),overwrite_a=0)\n" | |||
| 105426 | " u,s,vt,info = dgesdd(a,compute_uv=1,full_matrices=1,lwork=max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1),overwrite_a=0)\n" | |||
| 105427 | " work,info = sgesdd_lwork(m,n,compute_uv=1,full_matrices=1)\n" | |||
| 105428 | " work,info = dgesdd_lwork(m,n,compute_uv=1,full_matrices=1)\n" | |||
| 105429 | " u,s,vt,info = cgesdd(a,compute_uv=1,full_matrices=1,lwork=max((compute_uv?2*minmn*minmn+MAX(m,n)+2*minmn:2*minmn+MAX(m,n)),1),overwrite_a=0)\n" | |||
| 105430 | " u,s,vt,info = zgesdd(a,compute_uv=1,full_matrices=1,lwork=max((compute_uv?2*minmn*minmn+MAX(m,n)+2*minmn:2*minmn+MAX(m,n)),1),overwrite_a=0)\n" | |||
| 105431 | " work,info = cgesdd_lwork(m,n,compute_uv=1,full_matrices=1)\n" | |||
| 105432 | " work,info = zgesdd_lwork(m,n,compute_uv=1,full_matrices=1)\n" | |||
| 105433 | " u,s,vt,info = sgesvd(a,compute_uv=1,full_matrices=1,lwork=max(MAX(3*minmn+MAX(m,n),5*minmn),1),overwrite_a=0)\n" | |||
| 105434 | " u,s,vt,info = dgesvd(a,compute_uv=1,full_matrices=1,lwork=max(MAX(3*minmn+MAX(m,n),5*minmn),1),overwrite_a=0)\n" | |||
| 105435 | " work,info = sgesvd_lwork(m,n,compute_uv=1,full_matrices=1)\n" | |||
| 105436 | " work,info = dgesvd_lwork(m,n,compute_uv=1,full_matrices=1)\n" | |||
| 105437 | " u,s,vt,info = cgesvd(a,compute_uv=1,full_matrices=1,lwork=MAX(2*minmn+MAX(m,n),1),overwrite_a=0)\n" | |||
| 105438 | " u,s,vt,info = zgesvd(a,compute_uv=1,full_matrices=1,lwork=MAX(2*minmn+MAX(m,n),1),overwrite_a=0)\n" | |||
| 105439 | " work,info = cgesvd_lwork(m,n,compute_uv=1,full_matrices=1)\n" | |||
| 105440 | " work,info = zgesvd_lwork(m,n,compute_uv=1,full_matrices=1)\n" | |||
| 105441 | " lqr,x,info = sgels(a,b,trans='N',lwork=MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105442 | " lqr,x,info = dgels(a,b,trans='N',lwork=MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105443 | " lqr,x,info = cgels(a,b,trans='N',lwork=MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105444 | " lqr,x,info = zgels(a,b,trans='N',lwork=MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105445 | " work,info = sgels_lwork(m,n,nrhs,trans='N')\n" | |||
| 105446 | " work,info = dgels_lwork(m,n,nrhs,trans='N')\n" | |||
| 105447 | " work,info = cgels_lwork(m,n,nrhs,trans='N')\n" | |||
| 105448 | " work,info = zgels_lwork(m,n,nrhs,trans='N')\n" | |||
| 105449 | " v,x,s,rank,work,info = sgelss(a,b,cond=-1.0,lwork=max(3*minmn+MAX(2*minmn,MAX(maxmn,nrhs)),1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105450 | " v,x,s,rank,work,info = dgelss(a,b,cond=-1.0,lwork=max(3*minmn+MAX(2*minmn,MAX(maxmn,nrhs)),1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105451 | " work,info = sgelss_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n" | |||
| 105452 | " work,info = dgelss_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n" | |||
| 105453 | " v,x,s,rank,work,info = cgelss(a,b,cond=-1.0,lwork=max(2*minmn+MAX(maxmn,nrhs),1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105454 | " v,x,s,rank,work,info = zgelss(a,b,cond=-1.0,lwork=max(2*minmn+MAX(maxmn,nrhs),1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105455 | " work,info = cgelss_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n" | |||
| 105456 | " work,info = zgelss_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n" | |||
| 105457 | " v,x,j,rank,info = sgelsy(a,b,jptv,cond,lwork,overwrite_a=0,overwrite_b=0)\n" | |||
| 105458 | " v,x,j,rank,info = dgelsy(a,b,jptv,cond,lwork,overwrite_a=0,overwrite_b=0)\n" | |||
| 105459 | " work,info = sgelsy_lwork(m,n,nrhs,cond,lwork=-1)\n" | |||
| 105460 | " work,info = dgelsy_lwork(m,n,nrhs,cond,lwork=-1)\n" | |||
| 105461 | " v,x,j,rank,info = cgelsy(a,b,jptv,cond,lwork,overwrite_a=0,overwrite_b=0)\n" | |||
| 105462 | " v,x,j,rank,info = zgelsy(a,b,jptv,cond,lwork,overwrite_a=0,overwrite_b=0)\n" | |||
| 105463 | " work,info = cgelsy_lwork(m,n,nrhs,cond,lwork=-1)\n" | |||
| 105464 | " work,info = zgelsy_lwork(m,n,nrhs,cond,lwork=-1)\n" | |||
| 105465 | " x,s,rank,info = sgelsd(a,b,lwork,size_iwork,cond=-1.0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105466 | " x,s,rank,info = dgelsd(a,b,lwork,size_iwork,cond=-1.0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105467 | " work,iwork,info = sgelsd_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n" | |||
| 105468 | " work,iwork,info = dgelsd_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n" | |||
| 105469 | " x,s,rank,info = cgelsd(a,b,lwork,size_rwork,size_iwork,cond=-1.0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105470 | " x,s,rank,info = zgelsd(a,b,lwork,size_rwork,size_iwork,cond=-1.0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105471 | " work,rwork,iwork,info = cgelsd_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n" | |||
| 105472 | " work,rwork,iwork,info = zgelsd_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n" | |||
| 105473 | " qr,jpvt,tau,work,info = sgeqp3(a,lwork=max(3*(n+1),1),overwrite_a=0)\n" | |||
| 105474 | " qr,jpvt,tau,work,info = dgeqp3(a,lwork=max(3*(n+1),1),overwrite_a=0)\n" | |||
| 105475 | " qr,jpvt,tau,work,info = cgeqp3(a,lwork=max(3*(n+1),1),overwrite_a=0)\n" | |||
| 105476 | " qr,jpvt,tau,work,info = zgeqp3(a,lwork=max(3*(n+1),1),overwrite_a=0)\n" | |||
| 105477 | " qr,tau,work,info = sgeqrf(a,lwork=max(3*n,1),overwrite_a=0)\n" | |||
| 105478 | " qr,tau,work,info = dgeqrf(a,lwork=max(3*n,1),overwrite_a=0)\n" | |||
| 105479 | " qr,tau,work,info = cgeqrf(a,lwork=max(3*n,1),overwrite_a=0)\n" | |||
| 105480 | " qr,tau,work,info = zgeqrf(a,lwork=max(3*n,1),overwrite_a=0)\n" | |||
| 105481 | " work,info = sgeqrf_lwork(m,n)\n" | |||
| 105482 | " work,info = dgeqrf_lwork(m,n)\n" | |||
| 105483 | " work,info = cgeqrf_lwork(m,n)\n" | |||
| 105484 | " work,info = zgeqrf_lwork(m,n)\n" | |||
| 105485 | " qr,tau,info = sgeqrfp(a,lwork=MAX(1, n),overwrite_a=0)\n" | |||
| 105486 | " qr,tau,info = dgeqrfp(a,lwork=MAX(1, n),overwrite_a=0)\n" | |||
| 105487 | " qr,tau,info = cgeqrfp(a,lwork=MAX(1, n),overwrite_a=0)\n" | |||
| 105488 | " qr,tau,info = zgeqrfp(a,lwork=MAX(1, n),overwrite_a=0)\n" | |||
| 105489 | " work,info = sgeqrfp_lwork(m,n)\n" | |||
| 105490 | " work,info = dgeqrfp_lwork(m,n)\n" | |||
| 105491 | " work,info = cgeqrfp_lwork(m,n)\n" | |||
| 105492 | " work,info = zgeqrfp_lwork(m,n)\n" | |||
| 105493 | " qr,tau,work,info = sgerqf(a,lwork=max(3*m,1),overwrite_a=0)\n" | |||
| 105494 | " qr,tau,work,info = dgerqf(a,lwork=max(3*m,1),overwrite_a=0)\n" | |||
| 105495 | " qr,tau,work,info = cgerqf(a,lwork=max(3*m,1),overwrite_a=0)\n" | |||
| 105496 | " qr,tau,work,info = zgerqf(a,lwork=max(3*m,1),overwrite_a=0)\n" | |||
| 105497 | " wr,wi,vl,vr,info = sgeev(a,compute_vl=1,compute_vr=1,lwork=max(4*n,1),overwrite_a=0)\n" | |||
| 105498 | " wr,wi,vl,vr,info = dgeev(a,compute_vl=1,compute_vr=1,lwork=max(4*n,1),overwrite_a=0)\n" | |||
| 105499 | " work,info = sgeev_lwork(n,compute_vl=1,compute_vr=1)\n" | |||
| 105500 | " work,info = dgeev_lwork(n,compute_vl=1,compute_vr=1)\n" | |||
| 105501 | " w,vl,vr,info = cgeev(a,compute_vl=1,compute_vr=1,lwork=max(2*n,1),overwrite_a=0)\n" | |||
| 105502 | " w,vl,vr,info = zgeev(a,compute_vl=1,compute_vr=1,lwork=max(2*n,1),overwrite_a=0)\n" | |||
| 105503 | " work,info = cgeev_lwork(n,compute_vl=1,compute_vr=1)\n" | |||
| 105504 | " work,info = zgeev_lwork(n,compute_vl=1,compute_vr=1)\n" | |||
| 105505 | " alphar,alphai,beta,vl,vr,info = sgegv(a,b,compute_vl=1,compute_vr=1,lwork=max(8*n,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105506 | " alphar,alphai,beta,vl,vr,info = dgegv(a,b,compute_vl=1,compute_vr=1,lwork=max(8*n,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105507 | " alpha,beta,vl,vr,info = cgegv(a,b,compute_vl=1,compute_vr=1,lwork=max(2*n,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105508 | " alpha,beta,vl,vr,info = zgegv(a,b,compute_vl=1,compute_vr=1,lwork=max(2*n,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105509 | " t,sdim,w,vs,work,info = cgees(cselect,a,compute_v=1,sort_t=0,lwork=max(3*n,1),cselect_extra_args=(),overwrite_a=0)\n" | |||
| 105510 | " t,sdim,w,vs,work,info = zgees(zselect,a,compute_v=1,sort_t=0,lwork=max(3*n,1),zselect_extra_args=(),overwrite_a=0)\n" | |||
| 105511 | " t,sdim,wr,wi,vs,work,info = sgees(sselect,a,compute_v=1,sort_t=0,lwork=max(3*n,1),sselect_extra_args=(),overwrite_a=0)\n" | |||
| 105512 | " t,sdim,wr,wi,vs,work,info = dgees(dselect,a,compute_v=1,sort_t=0,lwork=max(3*n,1),dselect_extra_args=(),overwrite_a=0)\n" | |||
| 105513 | " a,b,sdim,alphar,alphai,beta,vsl,vsr,work,info = sgges(sselect,a,b,jobvsl=1,jobvsr=1,sort_t=0,ldvsl=((jobvsl==1)?n:1),ldvsr=((jobvsr==1)?n:1),lwork=max(8*n+16,1),sselect_extra_args=(),overwrite_a=0,overwrite_b=0)\n" | |||
| 105514 | " a,b,sdim,alphar,alphai,beta,vsl,vsr,work,info = dgges(dselect,a,b,jobvsl=1,jobvsr=1,sort_t=0,ldvsl=((jobvsl==1)?n:1),ldvsr=((jobvsr==1)?n:1),lwork=max(8*n+16,1),dselect_extra_args=(),overwrite_a=0,overwrite_b=0)\n" | |||
| 105515 | " a,b,sdim,alpha,beta,vsl,vsr,work,info = cgges(cselect,a,b,jobvsl=1,jobvsr=1,sort_t=0,ldvsl=((jobvsl==1)?n:1),ldvsr=((jobvsr==1)?n:1),lwork=max(2*n,1),cselect_extra_args=(),overwrite_a=0,overwrite_b=0)\n" | |||
| 105516 | " a,b,sdim,alpha,beta,vsl,vsr,work,info = zgges(zselect,a,b,jobvsl=1,jobvsr=1,sort_t=0,ldvsl=((jobvsl==1)?n:1),ldvsr=((jobvsr==1)?n:1),lwork=max(2*n,1),zselect_extra_args=(),overwrite_a=0,overwrite_b=0)\n" | |||
| 105517 | " alphar,alphai,beta,vl,vr,work,info = sggev(a,b,compute_vl=1,compute_vr=1,lwork=max(8*n,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105518 | " alphar,alphai,beta,vl,vr,work,info = dggev(a,b,compute_vl=1,compute_vr=1,lwork=max(8*n,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105519 | " alpha,beta,vl,vr,work,info = cggev(a,b,compute_vl=1,compute_vr=1,lwork=max(2*n,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105520 | " alpha,beta,vl,vr,work,info = zggev(a,b,compute_vl=1,compute_vr=1,lwork=max(2*n,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105521 | " r,c,rowcnd,colcnd,amax,info = sgeequ(a)\n" | |||
| 105522 | " r,c,rowcnd,colcnd,amax,info = dgeequ(a)\n" | |||
| 105523 | " r,c,rowcnd,colcnd,amax,info = cgeequ(a)\n" | |||
| 105524 | " r,c,rowcnd,colcnd,amax,info = zgeequ(a)\n" | |||
| 105525 | " r,c,rowcnd,colcnd,amax,info = sgeequb(a)\n" | |||
| 105526 | " r,c,rowcnd,colcnd,amax,info = dgeequb(a)\n" | |||
| 105527 | " r,c,rowcnd,colcnd,amax,info = cgeequb(a)\n" | |||
| 105528 | " r,c,rowcnd,colcnd,amax,info = zgeequb(a)\n" | |||
| 105529 | " lub,piv,x,info = sgbsv(kl,ku,ab,b,overwrite_ab=0,overwrite_b=0)\n" | |||
| 105530 | " lub,piv,x,info = dgbsv(kl,ku,ab,b,overwrite_ab=0,overwrite_b=0)\n" | |||
| 105531 | " lub,piv,x,info = cgbsv(kl,ku,ab,b,overwrite_ab=0,overwrite_b=0)\n" | |||
| 105532 | " lub,piv,x,info = zgbsv(kl,ku,ab,b,overwrite_ab=0,overwrite_b=0)\n" | |||
| 105533 | " lu,ipiv,info = sgbtrf(ab,kl,ku,m=shape(ab,1),n=shape(ab,1),ldab=max(shape(ab,0),1),overwrite_ab=0)\n" | |||
| 105534 | " lu,ipiv,info = dgbtrf(ab,kl,ku,m=shape(ab,1),n=shape(ab,1),ldab=max(shape(ab,0),1),overwrite_ab=0)\n" | |||
| 105535 | " lu,ipiv,info = cgbtrf(ab,kl,ku,m=shape(ab,1),n=shape(ab,1),ldab=max(shape(ab,0),1),overwrite_ab=0)\n" | |||
| 105536 | " lu,ipiv,info = zgbtrf(ab,kl,ku,m=shape(ab,1),n=shape(ab,1),ldab=max(shape(ab,0),1),overwrite_ab=0)\n" | |||
| 105537 | " x,info = sgbtrs(ab,kl,ku,b,ipiv,trans=0,n=shape(ab,1),ldab=shape(ab,0),ldb=shape(b,0),overwrite_b=0)\n" | |||
| 105538 | " x,info = dgbtrs(ab,kl,ku,b,ipiv,trans=0,n=shape(ab,1),ldab=shape(ab,0),ldb=shape(b,0),overwrite_b=0)\n" | |||
| 105539 | " x,info = cgbtrs(ab,kl,ku,b,ipiv,trans=0,n=shape(ab,1),ldab=shape(ab,0),ldb=shape(b,0),overwrite_b=0)\n" | |||
| 105540 | " x,info = zgbtrs(ab,kl,ku,b,ipiv,trans=0,n=shape(ab,1),ldab=shape(ab,0),ldb=shape(b,0),overwrite_b=0)\n" | |||
| 105541 | " du2,d,du,x,info = sgtsv(dl,d,du,b,overwrite_dl=0,overwrite_d=0,overwrite_du=0,overwrite_b=0)\n" | |||
| 105542 | " du2,d,du,x,info = dgtsv(dl,d,du,b,overwrite_dl=0,overwrite_d=0,overwrite_du=0,overwrite_b=0)\n" | |||
| 105543 | " du2,d,du,x,info = cgtsv(dl,d,du,b,overwrite_dl=0,overwrite_d=0,overwrite_du=0,overwrite_b=0)\n" | |||
| 105544 | " du2,d,du,x,info = zgtsv(dl,d,du,b,overwrite_dl=0,overwrite_d=0,overwrite_du=0,overwrite_b=0)\n" | |||
| 105545 | " dl,d,du,du2,ipiv,info = sgttrf(dl,d,du,overwrite_dl=0,overwrite_d=0,overwrite_du=0)\n" | |||
| 105546 | " dl,d,du,du2,ipiv,info = dgttrf(dl,d,du,overwrite_dl=0,overwrite_d=0,overwrite_du=0)\n" | |||
| 105547 | " dl,d,du,du2,ipiv,info = cgttrf(dl,d,du,overwrite_dl=0,overwrite_d=0,overwrite_du=0)\n" | |||
| 105548 | " dl,d,du,du2,ipiv,info = zgttrf(dl,d,du,overwrite_dl=0,overwrite_d=0,overwrite_du=0)\n" | |||
| 105549 | " x,info = sgttrs(dl,d,du,du2,ipiv,b,trans='N',overwrite_b=0)\n" | |||
| 105550 | " x,info = dgttrs(dl,d,du,du2,ipiv,b,trans='N',overwrite_b=0)\n" | |||
| 105551 | " x,info = cgttrs(dl,d,du,du2,ipiv,b,trans='N',overwrite_b=0)\n" | |||
| 105552 | " x,info = zgttrs(dl,d,du,du2,ipiv,b,trans='N',overwrite_b=0)\n" | |||
| 105553 | " dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = sgtsvx(dl,d,du,b,fact='N',trans='N',dlf=,df=,duf=,du2=,ipiv=)\n" | |||
| 105554 | " dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = dgtsvx(dl,d,du,b,fact='N',trans='N',dlf=,df=,duf=,du2=,ipiv=)\n" | |||
| 105555 | " dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = cgtsvx(dl,d,du,b,fact='N',trans='N',dlf=,df=,duf=,du2=,ipiv=)\n" | |||
| 105556 | " dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = zgtsvx(dl,d,du,b,fact='N',trans='N',dlf=,df=,duf=,du2=,ipiv=)\n" | |||
| 105557 | " w,v,info = ssyev(a,compute_v=1,lower=0,lwork=max(3*n-1,1),overwrite_a=0)\n" | |||
| 105558 | " w,v,info = dsyev(a,compute_v=1,lower=0,lwork=max(3*n-1,1),overwrite_a=0)\n" | |||
| 105559 | " work,info = ssyev_lwork(n,lower=0)\n" | |||
| 105560 | " work,info = dsyev_lwork(n,lower=0)\n" | |||
| 105561 | " w,v,info = cheev(a,compute_v=1,lower=0,lwork=max(2*n-1,1),overwrite_a=0)\n" | |||
| 105562 | " w,v,info = zheev(a,compute_v=1,lower=0,lwork=max(2*n-1,1),overwrite_a=0)\n" | |||
| 105563 | " work,info = cheev_lwork(n,lower=0)\n" | |||
| 105564 | " work,info = zheev_lwork(n,lower=0)\n" | |||
| 105565 | " w,v,info = ssyevd(a,compute_v=1,lower=0,lwork=max((compute_v?1+6*n+2*n*n:2*n+1),1),liwork=(compute_v?3+5*n:1),overwrite_a=0)\n" | |||
| 105566 | " w,v,info = dsyevd(a,compute_v=1,lower=0,lwork=max((compute_v?1+6*n+2*n*n:2*n+1),1),liwork=(compute_v?3+5*n:1),overwrite_a=0)\n" | |||
| 105567 | " work,iwork,info = ssyevd_lwork(n,compute_v=1,lower=0)\n" | |||
| 105568 | " work,iwork,info = dsyevd_lwork(n,compute_v=1,lower=0)\n" | |||
| 105569 | " w,v,info = cheevd(a,compute_v=1,lower=0,lwork=max((compute_v?2*n+n*n:n+1),1),liwork=(compute_v?3+5*n:1),lrwork=(compute_v?1+5*n+2*n*n:n),overwrite_a=0)\n" | |||
| 105570 | " w,v,info = zheevd(a,compute_v=1,lower=0,lwork=max((compute_v?2*n+n*n:n+1),1),liwork=(compute_v?3+5*n:1),lrwork=(compute_v?1+5*n+2*n*n:n),overwrite_a=0)\n" | |||
| 105571 | " work,iwork,rwork,info = cheevd_lwork(n,compute_v=1,lower=0)\n" | |||
| 105572 | " work,iwork,rwork,info = zheevd_lwork(n,compute_v=1,lower=0)\n" | |||
| 105573 | " ldu,ipiv,info = ssytf2(a,lower=0,overwrite_a=0)\n" | |||
| 105574 | " ldu,ipiv,info = dsytf2(a,lower=0,overwrite_a=0)\n" | |||
| 105575 | " ldu,ipiv,info = csytf2(a,lower=0,overwrite_a=0)\n" | |||
| 105576 | " ldu,ipiv,info = zsytf2(a,lower=0,overwrite_a=0)\n" | |||
| 105577 | " c,info = ssygst(a,b,itype=1,lower=0,overwrite_a=0)\n" | |||
| 105578 | " c,info = dsygst(a,b,itype=1,lower=0,overwrite_a=0)\n" | |||
| 105579 | " ldu,ipiv,info = ssytrf(a,lower=0,lwork=max(n,1),overwrite_a=0)\n" | |||
| 105580 | " ldu,ipiv,info = dsytrf(a,lower=0,lwork=max(n,1),overwrite_a=0)\n" | |||
| 105581 | " ldu,ipiv,info = csytrf(a,lower=0,lwork=max(n,1),overwrite_a=0)\n" | |||
| 105582 | " ldu,ipiv,info = zsytrf(a,lower=0,lwork=max(n,1),overwrite_a=0)\n" | |||
| 105583 | " work,info = ssytrf_lwork(n,lower=0)\n" | |||
| 105584 | " work,info = dsytrf_lwork(n,lower=0)\n" | |||
| 105585 | " work,info = csytrf_lwork(n,lower=0)\n" | |||
| 105586 | " work,info = zsytrf_lwork(n,lower=0)\n" | |||
| 105587 | " udut,ipiv,x,info = ssysv(a,b,lwork=max(n,1),lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105588 | " udut,ipiv,x,info = dsysv(a,b,lwork=max(n,1),lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105589 | " udut,ipiv,x,info = csysv(a,b,lwork=max(n,1),lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105590 | " udut,ipiv,x,info = zsysv(a,b,lwork=max(n,1),lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105591 | " work,info = ssysv_lwork(n,lower=0)\n" | |||
| 105592 | " work,info = dsysv_lwork(n,lower=0)\n" | |||
| 105593 | " work,info = csysv_lwork(n,lower=0)\n" | |||
| 105594 | " work,info = zsysv_lwork(n,lower=0)\n" | |||
| 105595 | " a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = ssysvx(a,b,af=,ipiv=,lwork=max(3*n,1),factored=0,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105596 | " a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = dsysvx(a,b,af=,ipiv=,lwork=max(3*n,1),factored=0,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105597 | " a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = csysvx(a,b,af=,ipiv=,lwork=max(3*n,1),factored=0,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105598 | " a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = zsysvx(a,b,af=,ipiv=,lwork=max(3*n,1),factored=0,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105599 | " work,info = ssysvx_lwork(n,lower=0)\n" | |||
| 105600 | " work,info = dsysvx_lwork(n,lower=0)\n" | |||
| 105601 | " work,info = csysvx_lwork(n,lower=0)\n" | |||
| 105602 | " work,info = zsysvx_lwork(n,lower=0)\n" | |||
| 105603 | " rcond,info = ssycon(a,ipiv,anorm,lower=0)\n" | |||
| 105604 | " rcond,info = dsycon(a,ipiv,anorm,lower=0)\n" | |||
| 105605 | " rcond,info = csycon(a,ipiv,anorm,lower=0)\n" | |||
| 105606 | " rcond,info = zsycon(a,ipiv,anorm,lower=0)\n" | |||
| 105607 | " rcond,info = checon(a,ipiv,anorm,lower=0)\n" | |||
| 105608 | " rcond,info = zhecon(a,ipiv,anorm,lower=0)\n" | |||
| 105609 | " a,e,info = ssyconv(a,ipiv,lower=0,way=0,overwrite_a=0)\n" | |||
| 105610 | " a,e,info = dsyconv(a,ipiv,lower=0,way=0,overwrite_a=0)\n" | |||
| 105611 | " a,e,info = csyconv(a,ipiv,lower=0,way=0,overwrite_a=0)\n" | |||
| 105612 | " a,e,info = zsyconv(a,ipiv,lower=0,way=0,overwrite_a=0)\n" | |||
| 105613 | " c,info = chegst(a,b,itype=1,lower=0,overwrite_a=0)\n" | |||
| 105614 | " c,info = zhegst(a,b,itype=1,lower=0,overwrite_a=0)\n" | |||
| 105615 | " ldu,ipiv,info = chetrf(a,lower=0,lwork=max(n,1),overwrite_a=0)\n" | |||
| 105616 | " ldu,ipiv,info = zhetrf(a,lower=0,lwork=max(n,1),overwrite_a=0)\n" | |||
| 105617 | " work,info = chetrf_lwork(n,lower=0)\n" | |||
| 105618 | " work,info = zhetrf_lwork(n,lower=0)\n" | |||
| 105619 | " uduh,ipiv,x,info = chesv(a,b,lwork=max(n,1),lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105620 | " uduh,ipiv,x,info = zhesv(a,b,lwork=max(n,1),lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105621 | " work,info = chesv_lwork(n,lower=0)\n" | |||
| 105622 | " work,info = zhesv_lwork(n,lower=0)\n" | |||
| 105623 | " uduh,ipiv,x,rcond,ferr,berr,info = chesvx(a,b,af=,ipiv=,lwork=max(2*n,1),factored=0,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105624 | " uduh,ipiv,x,rcond,ferr,berr,info = zhesvx(a,b,af=,ipiv=,lwork=max(2*n,1),factored=0,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105625 | " work,info = chesvx_lwork(n,lower=0)\n" | |||
| 105626 | " work,info = zhesvx_lwork(n,lower=0)\n" | |||
| 105627 | " c,d,e,tau,info = ssytrd(a,lower=0,lwork=MAX(n,1),overwrite_a=0)\n" | |||
| 105628 | " c,d,e,tau,info = dsytrd(a,lower=0,lwork=MAX(n,1),overwrite_a=0)\n" | |||
| 105629 | " work,info = ssytrd_lwork(n,lower=0)\n" | |||
| 105630 | " work,info = dsytrd_lwork(n,lower=0)\n" | |||
| 105631 | " c,d,e,tau,info = chetrd(a,lower=0,lwork=MAX(n,1),overwrite_a=0)\n" | |||
| 105632 | " c,d,e,tau,info = zhetrd(a,lower=0,lwork=MAX(n,1),overwrite_a=0)\n" | |||
| 105633 | " work,info = chetrd_lwork(n,lower=0)\n" | |||
| 105634 | " work,info = zhetrd_lwork(n,lower=0)\n" | |||
| 105635 | " w,z,m,isuppz,info = ssyevr(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(26*n,1),liwork=max(1,10*n),overwrite_a=0)\n" | |||
| 105636 | " w,z,m,isuppz,info = dsyevr(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(26*n,1),liwork=max(1,10*n),overwrite_a=0)\n" | |||
| 105637 | " work,iwork,info = ssyevr_lwork(n,lower=0)\n" | |||
| 105638 | " work,iwork,info = dsyevr_lwork(n,lower=0)\n" | |||
| 105639 | " w,z,m,isuppz,info = cheevr(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(2*n,1),lrwork=max(24*n,1),liwork=max(1,10*n),overwrite_a=0)\n" | |||
| 105640 | " w,z,m,isuppz,info = zheevr(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(2*n,1),lrwork=max(24*n,1),liwork=max(1,10*n),overwrite_a=0)\n" | |||
| 105641 | " work,rwork,iwork,info = cheevr_lwork(n,lower=0)\n" | |||
| 105642 | " work,rwork,iwork,info = zheevr_lwork(n,lower=0)\n" | |||
| 105643 | " w,z,m,ifail,info = ssyevx(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(8*n,1),overwrite_a=0)\n" | |||
| 105644 | " w,z,m,ifail,info = dsyevx(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(8*n,1),overwrite_a=0)\n" | |||
| 105645 | " work,info = ssyevx_lwork(n,lower=0)\n" | |||
| 105646 | " work,info = dsyevx_lwork(n,lower=0)\n" | |||
| 105647 | " w,z,m,ifail,info = cheevx(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(2*n,1),overwrite_a=0)\n" | |||
| 105648 | " w,z,m,ifail,info = zheevx(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(2*n,1),overwrite_a=0)\n" | |||
| 105649 | " work,info = cheevx_lwork(n,lower=0)\n" | |||
| 105650 | " work,info = zheevx_lwork(n,lower=0)\n" | |||
| 105651 | " w,v,info = ssygv(a,b,itype=1,jobz='V',uplo='L',lwork=max(3*n-1,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105652 | " w,v,info = dsygv(a,b,itype=1,jobz='V',uplo='L',lwork=max(3*n-1,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105653 | " work,info = ssygv_lwork(n,uplo='L')\n" | |||
| 105654 | " work,info = dsygv_lwork(n,uplo='L')\n" | |||
| 105655 | " w,v,info = chegv(a,b,itype=1,jobz='V',uplo='L',lwork=max(2*n-1,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105656 | " w,v,info = zhegv(a,b,itype=1,jobz='V',uplo='L',lwork=max(2*n-1,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105657 | " work,info = chegv_lwork(n,uplo='L')\n" | |||
| 105658 | " work,info = zhegv_lwork(n,uplo='L')\n" | |||
| 105659 | " w,v,info = ssygvd(a,b,itype=1,jobz='V',uplo='L',lwork=(*jobz=='N'?2*n+1:1+6*n+2*n*n),liwork=(*jobz=='N'?1:5*n+3),overwrite_a=0,overwrite_b=0)\n" | |||
| 105660 | " w,v,info = dsygvd(a,b,itype=1,jobz='V',uplo='L',lwork=(*jobz=='N'?2*n+1:1+6*n+2*n*n),liwork=(*jobz=='N'?1:5*n+3),overwrite_a=0,overwrite_b=0)\n" | |||
| 105661 | " w,v,info = chegvd(a,b,itype=1,jobz='V',uplo='L',lwork=(*jobz=='N'?n+1:n*(n+2)),lrwork=max((*jobz=='N'?n:2*n*n+5*n+1),1),liwork=(*jobz=='N'?1:5*n+3),overwrite_a=0,overwrite_b=0)\n" | |||
| 105662 | " w,v,info = zhegvd(a,b,itype=1,jobz='V',uplo='L',lwork=(*jobz=='N'?n+1:n*(n+2)),lrwork=max((*jobz=='N'?n:2*n*n+5*n+1),1),liwork=(*jobz=='N'?1:5*n+3),overwrite_a=0,overwrite_b=0)\n" | |||
| 105663 | " w,z,m,ifail,info = ssygvx(a,b,itype=1,jobz='V',range='A',uplo='L',vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(8*n,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105664 | " w,z,m,ifail,info = dsygvx(a,b,itype=1,jobz='V',range='A',uplo='L',vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(8*n,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105665 | " work,info = ssygvx_lwork(n,uplo='L')\n" | |||
| 105666 | " work,info = dsygvx_lwork(n,uplo='L')\n" | |||
| 105667 | " w,z,m,ifail,info = chegvx(a,b,itype=1,jobz='V',range='A',uplo='L',vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(2*n,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105668 | " w,z,m,ifail,info = zhegvx(a,b,itype=1,jobz='V',range='A',uplo='L',vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(2*n,1),overwrite_a=0,overwrite_b=0)\n" | |||
| 105669 | " work,info = chegvx_lwork(n,uplo='L')\n" | |||
| 105670 | " work,info = zhegvx_lwork(n,uplo='L')\n" | |||
| 105671 | " s,scond,amax,info = ssyequb(a,lower=0)\n" | |||
| 105672 | " s,scond,amax,info = dsyequb(a,lower=0)\n" | |||
| 105673 | " s,scond,amax,info = csyequb(a,lower=0)\n" | |||
| 105674 | " s,scond,amax,info = zsyequb(a,lower=0)\n" | |||
| 105675 | " s,scond,amax,info = cheequb(a,lower=0)\n" | |||
| 105676 | " s,scond,amax,info = zheequb(a,lower=0)\n" | |||
| 105677 | " c,piv,rank_c,info = spstrf(a,tol=-1.0,lower=0,overwrite_a=0)\n" | |||
| 105678 | " c,piv,rank_c,info = dpstrf(a,tol=-1.0,lower=0,overwrite_a=0)\n" | |||
| 105679 | " c,piv,rank_c,info = cpstrf(a,tol=-1.0,lower=0,overwrite_a=0)\n" | |||
| 105680 | " c,piv,rank_c,info = zpstrf(a,tol=-1.0,lower=0,overwrite_a=0)\n" | |||
| 105681 | " c,piv,rank_c,info = spstf2(a,tol=-1.0,lower=0,overwrite_a=0)\n" | |||
| 105682 | " c,piv,rank_c,info = dpstf2(a,tol=-1.0,lower=0,overwrite_a=0)\n" | |||
| 105683 | " c,piv,rank_c,info = cpstf2(a,tol=-1.0,lower=0,overwrite_a=0)\n" | |||
| 105684 | " c,piv,rank_c,info = zpstf2(a,tol=-1.0,lower=0,overwrite_a=0)\n" | |||
| 105685 | " c,x,info = sposv(a,b,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105686 | " c,x,info = dposv(a,b,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105687 | " c,x,info = cposv(a,b,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105688 | " c,x,info = zposv(a,b,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105689 | " a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = sposvx(a,b,fact='E',af=,equed='Y',s=,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105690 | " a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = dposvx(a,b,fact='E',af=,equed='Y',s=,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105691 | " a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = cposvx(a,b,fact='E',af=,equed='Y',s=,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105692 | " a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = zposvx(a,b,fact='E',af=,equed='Y',s=,lower=0,overwrite_a=0,overwrite_b=0)\n" | |||
| 105693 | " rcond,info = spocon(a,anorm,uplo='U')\n" | |||
| 105694 | " rcond,info = dpocon(a,anorm,uplo='U')\n" | |||
| 105695 | " rcond,info = cpocon(a,anorm,uplo='U')\n" | |||
| 105696 | " rcond,info = zpocon(a,anorm,uplo='U')\n" | |||
| 105697 | " c,info = spotrf(a,lower=0,clean=1,overwrite_a=0)\n" | |||
| 105698 | " c,info = dpotrf(a,lower=0,clean=1,overwrite_a=0)\n" | |||
| 105699 | " c,info = cpotrf(a,lower=0,clean=1,overwrite_a=0)\n" | |||
| 105700 | " c,info = zpotrf(a,lower=0,clean=1,overwrite_a=0)\n" | |||
| 105701 | " x,info = spotrs(c,b,lower=0,overwrite_b=0)\n" | |||
| 105702 | " x,info = dpotrs(c,b,lower=0,overwrite_b=0)\n" | |||
| 105703 | " x,info = cpotrs(c,b,lower=0,overwrite_b=0)\n" | |||
| 105704 | " x,info = zpotrs(c,b,lower=0,overwrite_b=0)\n" | |||
| 105705 | " inv_a,info = spotri(c,lower=0,overwrite_c=0)\n" | |||
| 105706 | " inv_a,info = dpotri(c,lower=0,overwrite_c=0)\n" | |||
| 105707 | " inv_a,info = cpotri(c,lower=0,overwrite_c=0)\n" | |||
| 105708 | " inv_a,info = zpotri(c,lower=0,overwrite_c=0)\n" | |||
| 105709 | " d,du,x,info = sptsv(d,e,b,overwrite_d=0,overwrite_e=0,overwrite_b=0)\n" | |||
| 105710 | " d,du,x,info = dptsv(d,e,b,overwrite_d=0,overwrite_e=0,overwrite_b=0)\n" | |||
| 105711 | " d,du,x,info = cptsv(d,e,b,overwrite_d=0,overwrite_e=0,overwrite_b=0)\n" | |||
| 105712 | " d,du,x,info = zptsv(d,e,b,overwrite_d=0,overwrite_e=0,overwrite_b=0)\n" | |||
| 105713 | " d,e,info = spttrf(d,e,overwrite_d=0,overwrite_e=0)\n" | |||
| 105714 | " d,e,info = dpttrf(d,e,overwrite_d=0,overwrite_e=0)\n" | |||
| 105715 | " d,e,info = cpttrf(d,e,overwrite_d=0,overwrite_e=0)\n" | |||
| 105716 | " d,e,info = zpttrf(d,e,overwrite_d=0,overwrite_e=0)\n" | |||
| 105717 | " x,info = spttrs(d,e,b,overwrite_b=0)\n" | |||
| 105718 | " x,info = dpttrs(d,e,b,overwrite_b=0)\n" | |||
| 105719 | " x,info = cpttrs(d,e,b,lower=0,overwrite_b=0)\n" | |||
| 105720 | " x,info = zpttrs(d,e,b,lower=0,overwrite_b=0)\n" | |||
| 105721 | " d,e,z,info = spteqr(d,e,z,compute_z=0,overwrite_d=0,overwrite_e=0,overwrite_z=0)\n" | |||
| 105722 | " d,e,z,info = dpteqr(d,e,z,compute_z=0,overwrite_d=0,overwrite_e=0,overwrite_z=0)\n" | |||
| 105723 | " d,e,z,info = cpteqr(d,e,z,compute_z=0,overwrite_d=0,overwrite_e=0,overwrite_z=0)\n" | |||
| 105724 | " d,e,z,info = zpteqr(d,e,z,compute_z=0,overwrite_d=0,overwrite_e=0,overwrite_z=0)\n" | |||
| 105725 | " df,ef,x,rcond,ferr,berr,info = sptsvx(d,e,b,fact='N',df=,ef=)\n" | |||
| 105726 | " df,ef,x,rcond,ferr,berr,info = dptsvx(d,e,b,fact='N',df=,ef=)\n" | |||
| 105727 | " df,ef,x,rcond,ferr,berr,info = cptsvx(d,e,b,fact='N',df=,ef=)\n" | |||
| 105728 | " df,ef,x,rcond,ferr,berr,info = zptsvx(d,e,b,fact='N',df=,ef=)\n" | |||
| 105729 | " sva,u,v,workout,iworkout,info = sgejsv(a,joba=4,jobu=0,jobv=0,jobr=1,jobt=0,jobp=1,lwork=max(6*n+2*n*n, max(2*m+n, max(4*n+n*n, max(2*n+n*n+6, 7)))),overwrite_a=0)\n" | |||
| 105730 | " sva,u,v,workout,iworkout,info = dgejsv(a,joba=4,jobu=0,jobv=0,jobr=1,jobt=0,jobp=1,lwork=max(6*n+2*n*n, max(2*m+n, max(4*n+n*n, max(2*n+n*n+6, 7)))),overwrite_a=0)\n" | |||
| 105731 | " a,b,q,z,work,info = stgexc(a,b,q,z,ifst,ilst,lwork=max(4*n+16,1),overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n" | |||
| 105732 | " a,b,q,z,work,info = dtgexc(a,b,q,z,ifst,ilst,lwork=max(4*n+16,1),overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n" | |||
| 105733 | " a,b,q,z,info = ctgexc(a,b,q,z,ifst,ilst,overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n" | |||
| 105734 | " a,b,q,z,info = ztgexc(a,b,q,z,ifst,ilst,overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n" | |||
| 105735 | " as,bs,alphar,alphai,beta,qs,zs,m,pl,pr,dif,info = stgsen(select,a,b,q,z,ijob=4,wantq=1,wantz=1,lwork=4*n+16,liwork=n+6,overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n" | |||
| 105736 | " as,bs,alphar,alphai,beta,qs,zs,m,pl,pr,dif,info = dtgsen(select,a,b,q,z,ijob=4,wantq=1,wantz=1,lwork=4*n+16,liwork=n+6,overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n" | |||
| 105737 | " work,iwork,info = stgsen_lwork(select,a,ijob=4)\n" | |||
| 105738 | " work,iwork,info = dtgsen_lwork(select,a,ijob=4)\n" | |||
| 105739 | " as,bs,alpha,beta,qs,zs,m,pl,pr,dif,info = ctgsen(select,a,b,q,z,ijob=4,wantq=1,wantz=1,lwork=(ijob==0?1:n+2),liwork=(ijob==0?1:n+2),overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n" | |||
| 105740 | " as,bs,alpha,beta,qs,zs,m,pl,pr,dif,info = ztgsen(select,a,b,q,z,ijob=4,wantq=1,wantz=1,lwork=(ijob==0?1:n+2),liwork=(ijob==0?1:n+2),overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n" | |||
| 105741 | " work,iwork,info = ctgsen_lwork(select,a,b,ijob=4)\n" | |||
| 105742 | " work,iwork,info = ztgsen_lwork(select,a,b,ijob=4)\n" | |||
| 105743 | " c,info = spbtrf(ab,lower=0,ldab=shape(ab,0),overwrite_ab=0)\n" | |||
| 105744 | " c,info = dpbtrf(ab,lower=0,ldab=shape(ab,0),overwrite_ab=0)\n" | |||
| 105745 | " c,info = cpbtrf(ab,lower=0,ldab=shape(ab,0),overwrite_ab=0)\n" | |||
| 105746 | " c,info = zpbtrf(ab,lower=0,ldab=shape(ab,0),overwrite_ab=0)\n" | |||
| 105747 | " x,info = spbtrs(ab,b,lower=0,ldab=shape(ab,0),overwrite_b=0)\n" | |||
| 105748 | " x,info = dpbtrs(ab,b,lower=0,ldab=shape(ab,0),overwrite_b=0)\n" | |||
| 105749 | " x,info = cpbtrs(ab,b,lower=0,ldab=shape(ab,0),overwrite_b=0)\n" | |||
| 105750 | " x,info = zpbtrs(ab,b,lower=0,ldab=shape(ab,0),overwrite_b=0)\n" | |||
| 105751 | " x,info = strtrs(a,b,lower=0,trans=0,unitdiag=0,lda=shape(a,0),overwrite_b=0)\n" | |||
| 105752 | " x,info = dtrtrs(a,b,lower=0,trans=0,unitdiag=0,lda=shape(a,0),overwrite_b=0)\n" | |||
| 105753 | " x,info = ctrtrs(a,b,lower=0,trans=0,unitdiag=0,lda=shape(a,0),overwrite_b=0)\n" | |||
| 105754 | " x,info = ztrtrs(a,b,lower=0,trans=0,unitdiag=0,lda=shape(a,0),overwrite_b=0)\n" | |||
| 105755 | " x,info = stbtrs(ab,b,uplo='U',trans='N',diag='N',overwrite_b=0)\n" | |||
| 105756 | " x,info = dtbtrs(ab,b,uplo='U',trans='N',diag='N',overwrite_b=0)\n" | |||
| 105757 | " x,info = ctbtrs(ab,b,uplo='U',trans='N',diag='N',overwrite_b=0)\n" | |||
| 105758 | " x,info = ztbtrs(ab,b,uplo='U',trans='N',diag='N',overwrite_b=0)\n" | |||
| 105759 | " c,x,info = spbsv(ab,b,lower=0,ldab=shape(ab,0),overwrite_ab=0,overwrite_b=0)\n" | |||
| 105760 | " c,x,info = dpbsv(ab,b,lower=0,ldab=shape(ab,0),overwrite_ab=0,overwrite_b=0)\n" | |||
| 105761 | " c,x,info = cpbsv(ab,b,lower=0,ldab=shape(ab,0),overwrite_ab=0,overwrite_b=0)\n" | |||
| 105762 | " c,x,info = zpbsv(ab,b,lower=0,ldab=shape(ab,0),overwrite_ab=0,overwrite_b=0)\n" | |||
| 105763 | " cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = sorcsd(x11,x12,x21,x22,compute_u1=1,compute_u2=1,compute_v1t=1,compute_v2t=1,trans=0,signs=0,lwork=2+2*m+5*MAX(1,q-1)+4*MAX(1,q)+8*q,overwrite_x11=0,overwrite_x12=0,overwrite_x21=0,overwrite_x22=0)\n" | |||
| 105764 | " cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = dorcsd(x11,x12,x21,x22,compute_u1=1,compute_u2=1,compute_v1t=1,compute_v2t=1,trans=0,signs=0,lwork=2+2*m+5*MAX(1,q-1)+4*MAX(1,q)+8*q,overwrite_x11=0,overwrite_x12=0,overwrite_x21=0,overwrite_x22=0)\n" | |||
| 105765 | " work,info = sorcsd_lwork(m,p,q)\n" | |||
| 105766 | " work,info = dorcsd_lwork(m,p,q)\n" | |||
| 105767 | " cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = cuncsd(x11,x12,x21,x22,compute_u1=1,compute_u2=1,compute_v1t=1,compute_v2t=1,trans=0,signs=0,lwork=2*m+MAX(1,MAX(mmp,mmq))+1,lrwork=5*MAX(1,q-1)+4*MAX(1,q)+8*q+1,overwrite_x11=0,overwrite_x12=0,overwrite_x21=0,overwrite_x22=0)\n" | |||
| 105768 | " cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = zuncsd(x11,x12,x21,x22,compute_u1=1,compute_u2=1,compute_v1t=1,compute_v2t=1,trans=0,signs=0,lwork=2*m+MAX(1,MAX(mmp,mmq))+1,lrwork=5*MAX(1,q-1)+4*MAX(1,q)+8*q+1,overwrite_x11=0,overwrite_x12=0,overwrite_x21=0,overwrite_x22=0)\n" | |||
| 105769 | " work,rwork,info = cuncsd_lwork(m,p,q)\n" | |||
| 105770 | " work,rwork,info = zuncsd_lwork(m,p,q)\n" | |||
| 105771 | " ht,info = sorghr(a,tau,lo=0,hi=n-1,lwork=max(hi-lo,1),overwrite_a=0)\n" | |||
| 105772 | " ht,info = dorghr(a,tau,lo=0,hi=n-1,lwork=max(hi-lo,1),overwrite_a=0)\n" | |||
| 105773 | " work,info = sorghr_lwork(n,lo=0,hi=n-1)\n" | |||
| 105774 | " work,info = dorghr_lwork(n,lo=0,hi=n-1)\n" | |||
| 105775 | " ht,info = cunghr(a,tau,lo=0,hi=n-1,lwork=max(hi-lo,1),overwrite_a=0)\n" | |||
| 105776 | " ht,info = zunghr(a,tau,lo=0,hi=n-1,lwork=max(hi-lo,1),overwrite_a=0)\n" | |||
| 105777 | " work,info = cunghr_lwork(n,lo=0,hi=n-1)\n" | |||
| 105778 | " work,info = zunghr_lwork(n,lo=0,hi=n-1)\n" | |||
| 105779 | " q,work,info = sorgqr(a,tau,lwork=max(3*n,1),overwrite_a=0)\n" | |||
| 105780 | " q,work,info = dorgqr(a,tau,lwork=max(3*n,1),overwrite_a=0)\n" | |||
| 105781 | " q,work,info = cungqr(a,tau,lwork=max(3*n,1),overwrite_a=0)\n" | |||
| 105782 | " q,work,info = zungqr(a,tau,lwork=max(3*n,1),overwrite_a=0)\n" | |||
| 105783 | " cq,work,info = sormqr(side,trans,a,tau,c,lwork,overwrite_c=0)\n" | |||
| 105784 | " cq,work,info = dormqr(side,trans,a,tau,c,lwork,overwrite_c=0)\n" | |||
| 105785 | " cq,work,info = cunmqr(side,trans,a,tau,c,lwork,overwrite_c=0)\n" | |||
| 105786 | " cq,work,info = zunmqr(side,trans,a,tau,c,lwork,overwrite_c=0)\n" | |||
| 105787 | " a,t,info = sgeqrt(nb,a,overwrite_a=0)\n" | |||
| 105788 | " a,t,info = dgeqrt(nb,a,overwrite_a=0)\n" | |||
| 105789 | " a,t,info = cgeqrt(nb,a,overwrite_a=0)\n" | |||
| 105790 | " a,t,info = zgeqrt(nb,a,overwrite_a=0)\n" | |||
| 105791 | " c,info = sgemqrt(v,t,c,side='L',trans='N',overwrite_c=0)\n" | |||
| 105792 | " c,info = dgemqrt(v,t,c,side='L',trans='N',overwrite_c=0)\n" | |||
| 105793 | " c,info = cgemqrt(v,t,c,side='L',trans='N',overwrite_c=0)\n" | |||
| 105794 | " c,info = zgemqrt(v,t,c,side='L',trans='N',overwrite_c=0)\n" | |||
| 105795 | " a,b,t,info = stpqrt(l,nb,a,b,overwrite_a=0,overwrite_b=0)\n" | |||
| 105796 | " a,b,t,info = dtpqrt(l,nb,a,b,overwrite_a=0,overwrite_b=0)\n" | |||
| 105797 | " a,b,t,info = ctpqrt(l,nb,a,b,overwrite_a=0,overwrite_b=0)\n" | |||
| 105798 | " a,b,t,info = ztpqrt(l,nb,a,b,overwrite_a=0,overwrite_b=0)\n" | |||
| 105799 | " a,b,info = stpmqrt(l,v,t,a,b,side='L',trans='N',overwrite_a=0,overwrite_b=0)\n" | |||
| 105800 | " a,b,info = dtpmqrt(l,v,t,a,b,side='L',trans='N',overwrite_a=0,overwrite_b=0)\n" | |||
| 105801 | " a,b,info = ctpmqrt(l,v,t,a,b,side='L',trans='N',overwrite_a=0,overwrite_b=0)\n" | |||
| 105802 | " a,b,info = ztpmqrt(l,v,t,a,b,side='L',trans='N',overwrite_a=0,overwrite_b=0)\n" | |||
| 105803 | " cq,info = sormrz(a,tau,c,side='L',trans='N',lwork=MAX((side[0]=='L'?n:m),1),overwrite_c=0)\n" | |||
| 105804 | " cq,info = dormrz(a,tau,c,side='L',trans='N',lwork=MAX((side[0]=='L'?n:m),1),overwrite_c=0)\n" | |||
| 105805 | " cq,info = cunmrz(a,tau,c,side='L',trans='N',lwork=MAX((side[0]=='L'?n:m),1),overwrite_c=0)\n" | |||
| 105806 | " cq,info = zunmrz(a,tau,c,side='L',trans='N',lwork=MAX((side[0]=='L'?n:m),1),overwrite_c=0)\n" | |||
| 105807 | " work,info = sormrz_lwork(m,n,side='L',trans='N')\n" | |||
| 105808 | " work,info = dormrz_lwork(m,n,side='L',trans='N')\n" | |||
| 105809 | " work,info = cunmrz_lwork(m,n,side='L',trans='N')\n" | |||
| 105810 | " work,info = zunmrz_lwork(m,n,side='L',trans='N')\n" | |||
| 105811 | " q,work,info = sorgrq(a,tau,lwork=max(3*m,1),overwrite_a=0)\n" | |||
| 105812 | " q,work,info = dorgrq(a,tau,lwork=max(3*m,1),overwrite_a=0)\n" | |||
| 105813 | " q,work,info = cungrq(a,tau,lwork=max(3*m,1),overwrite_a=0)\n" | |||
| 105814 | " q,work,info = zungrq(a,tau,lwork=max(3*m,1),overwrite_a=0)\n" | |||
| 105815 | " inv_c,info = strtri(c,lower=0,unitdiag=0,overwrite_c=0)\n" | |||
| 105816 | " inv_c,info = dtrtri(c,lower=0,unitdiag=0,overwrite_c=0)\n" | |||
| 105817 | " inv_c,info = ctrtri(c,lower=0,unitdiag=0,overwrite_c=0)\n" | |||
| 105818 | " inv_c,info = ztrtri(c,lower=0,unitdiag=0,overwrite_c=0)\n" | |||
| 105819 | " x,scale,info = strsyl(a,b,c,trana='N',tranb='N',isgn=1,overwrite_c=0)\n" | |||
| 105820 | " x,scale,info = dtrsyl(a,b,c,trana='N',tranb='N',isgn=1,overwrite_c=0)\n" | |||
| 105821 | " x,scale,info = ctrsyl(a,b,c,trana='N',tranb='N',isgn=1,overwrite_c=0)\n" | |||
| 105822 | " x,scale,info = ztrsyl(a,b,c,trana='N',tranb='N',isgn=1,overwrite_c=0)\n" | |||
| 105823 | " w,z,info = chbevd(ab,compute_v=1,lower=0,ldab=shape(ab,0),lrwork=(compute_v?1+5*n+2*n*n:n),liwork=(compute_v?3+5*n:1),overwrite_ab=1)\n" | |||
| 105824 | " w,z,info = zhbevd(ab,compute_v=1,lower=0,ldab=shape(ab,0),lrwork=(compute_v?1+5*n+2*n*n:n),liwork=(compute_v?3+5*n:1),overwrite_ab=1)\n" | |||
| 105825 | " w,z,m,ifail,info = chbevx(ab,vl,vu,il,iu,ldab=shape(ab,0),compute_v=1,range=0,lower=0,abstol=0.0,mmax=(compute_v?(range==2?(iu-il+1):n):1),overwrite_ab=1)\n" | |||
| 105826 | " w,z,m,ifail,info = zhbevx(ab,vl,vu,il,iu,ldab=shape(ab,0),compute_v=1,range=0,lower=0,abstol=0.0,mmax=(compute_v?(range==2?(iu-il+1):n):1),overwrite_ab=1)\n" | |||
| 105827 | " t,r,res,x,info = sgglse(a,b,c,d,lwork=max(m+n+p,1),overwrite_a=0,overwrite_b=0,overwrite_c=0,overwrite_d=0)\n" | |||
| 105828 | " t,r,res,x,info = dgglse(a,b,c,d,lwork=max(m+n+p,1),overwrite_a=0,overwrite_b=0,overwrite_c=0,overwrite_d=0)\n" | |||
| 105829 | " t,r,res,x,info = cgglse(a,b,c,d,lwork=max(m+n+p,1),overwrite_a=0,overwrite_b=0,overwrite_c=0,overwrite_d=0)\n" | |||
| 105830 | " t,r,res,x,info = zgglse(a,b,c,d,lwork=max(m+n+p,1),overwrite_a=0,overwrite_b=0,overwrite_c=0,overwrite_d=0)\n" | |||
| 105831 | " work,info = sgglse_lwork(m,n,p)\n" | |||
| 105832 | " work,info = dgglse_lwork(m,n,p)\n" | |||
| 105833 | " work,info = cgglse_lwork(m,n,p)\n" | |||
| 105834 | " work,info = zgglse_lwork(m,n,p)\n" | |||
| 105835 | " rcond,info = sppcon(n,ap,anorm,lower=0)\n" | |||
| 105836 | " rcond,info = dppcon(n,ap,anorm,lower=0)\n" | |||
| 105837 | " rcond,info = cppcon(n,ap,anorm,lower=0)\n" | |||
| 105838 | " rcond,info = zppcon(n,ap,anorm,lower=0)\n" | |||
| 105839 | " x,info = sppsv(n,ap,b,lower=0,overwrite_b=0)\n" | |||
| 105840 | " x,info = dppsv(n,ap,b,lower=0,overwrite_b=0)\n" | |||
| 105841 | " x,info = cppsv(n,ap,b,lower=0,overwrite_b=0)\n" | |||
| 105842 | " x,info = zppsv(n,ap,b,lower=0,overwrite_b=0)\n" | |||
| 105843 | " ul,info = spptrf(n,ap,lower=0,overwrite_ap=0)\n" | |||
| 105844 | " ul,info = dpptrf(n,ap,lower=0,overwrite_ap=0)\n" | |||
| 105845 | " ul,info = cpptrf(n,ap,lower=0,overwrite_ap=0)\n" | |||
| 105846 | " ul,info = zpptrf(n,ap,lower=0,overwrite_ap=0)\n" | |||
| 105847 | " uli,info = spptri(n,ap,lower=0,overwrite_ap=0)\n" | |||
| 105848 | " uli,info = dpptri(n,ap,lower=0,overwrite_ap=0)\n" | |||
| 105849 | " uli,info = cpptri(n,ap,lower=0,overwrite_ap=0)\n" | |||
| 105850 | " uli,info = zpptri(n,ap,lower=0,overwrite_ap=0)\n" | |||
| 105851 | " x,info = spptrs(n,ap,b,lower=0,overwrite_b=0)\n" | |||
| 105852 | " x,info = dpptrs(n,ap,b,lower=0,overwrite_b=0)\n" | |||
| 105853 | " x,info = cpptrs(n,ap,b,lower=0,overwrite_b=0)\n" | |||
| 105854 | " x,info = zpptrs(n,ap,b,lower=0,overwrite_b=0)\n" | |||
| 105855 | " w,z,info = ssbev(ab,compute_v=1,lower=0,ldab=shape(ab,0),overwrite_ab=1)\n" | |||
| 105856 | " w,z,info = dsbev(ab,compute_v=1,lower=0,ldab=shape(ab,0),overwrite_ab=1)\n" | |||
| 105857 | " w,z,info = ssbevd(ab,compute_v=1,lower=0,ldab=shape(ab,0),liwork=(compute_v?3+5*n:1),overwrite_ab=1)\n" | |||
| 105858 | " w,z,info = dsbevd(ab,compute_v=1,lower=0,ldab=shape(ab,0),liwork=(compute_v?3+5*n:1),overwrite_ab=1)\n" | |||
| 105859 | " w,z,m,ifail,info = ssbevx(ab,vl,vu,il,iu,ldab=shape(ab,0),compute_v=1,range=0,lower=0,abstol=0.0,mmax=(compute_v?(range==2?(iu-il+1):n):1),overwrite_ab=1)\n" | |||
| 105860 | " w,z,m,ifail,info = dsbevx(ab,vl,vu,il,iu,ldab=shape(ab,0),compute_v=1,range=0,lower=0,abstol=0.0,mmax=(compute_v?(range==2?(iu-il+1):n):1),overwrite_ab=1)\n" | |||
| 105861 | " m,w,iblock,isplit,info = sstebz(d,e,range,vl,vu,il,iu,tol,order)\n" | |||
| 105862 | " m,w,iblock,isplit,info = dstebz(d,e,range,vl,vu,il,iu,tol,order)\n" | |||
| 105863 | " vals,info = ssterf(d,e,overwrite_d=0,overwrite_e=0)\n" | |||
| 105864 | " vals,info = dsterf(d,e,overwrite_d=0,overwrite_e=0)\n" | |||
| 105865 | " z,info = sstein(d,e,w,iblock,isplit)\n" | |||
| 105866 | " z,info = dstein(d,e,w,iblock,isplit)\n" | |||
| 105867 | " m,w,z,info = sstemr(d,e,range,vl,vu,il,iu,compute_v=1,lwork=max((compute_v?18*n:12*n),1),liwork=(compute_v?10*n:8*n),overwrite_d=0)\n" | |||
| 105868 | " m,w,z,info = dstemr(d,e,range,vl,vu,il,iu,compute_v=1,lwork=max((compute_v?18*n:12*n),1),liwork=(compute_v?10*n:8*n),overwrite_d=0)\n" | |||
| 105869 | " work,iwork,info = sstemr_lwork(d,e,range,vl,vu,il,iu,compute_v=1,overwrite_d=0,overwrite_e=0)\n" | |||
| 105870 | " work,iwork,info = dstemr_lwork(d,e,range,vl,vu,il,iu,compute_v=1,overwrite_d=0,overwrite_e=0)\n" | |||
| 105871 | " vals,z,info = sstev(d,e,compute_v=1,overwrite_d=0,overwrite_e=0)\n" | |||
| 105872 | " vals,z,info = dstev(d,e,compute_v=1,overwrite_d=0,overwrite_e=0)\n" | |||
| 105873 | " cout = ssfrk(n,k,alpha,a,beta,c,transr='N',uplo='U',trans='N',overwrite_c=0)\n" | |||
| 105874 | " cout = dsfrk(n,k,alpha,a,beta,c,transr='N',uplo='U',trans='N',overwrite_c=0)\n" | |||
| 105875 | " cout = chfrk(n,k,alpha,a,beta,c,transr='N',uplo='U',trans='N',overwrite_c=0)\n" | |||
| 105876 | " cout = zhfrk(n,k,alpha,a,beta,c,transr='N',uplo='U',trans='N',overwrite_c=0)\n" | |||
| 105877 | " arf,info = stpttf(n,ap,transr='N',uplo='U')\n" | |||
| 105878 | " arf,info = dtpttf(n,ap,transr='N',uplo='U')\n" | |||
| 105879 | " arf,info = ctpttf(n,ap,transr='N',uplo='U')\n" | |||
| 105880 | " arf,info = ztpttf(n,ap,transr='N',uplo='U')\n" | |||
| 105881 | " a,info = stpttr(n,ap,uplo='U')\n" | |||
| 105882 | " a,info = dtpttr(n,ap,uplo='U')\n" | |||
| 105883 | " a,info = ctpttr(n,ap,uplo='U')\n" | |||
| 105884 | " a,info = ztpttr(n,ap,uplo='U')\n" | |||
| 105885 | " ap,info = stfttp(n,arf,transr='N',uplo='U')\n" | |||
| 105886 | " ap,info = dtfttp(n,arf,transr='N',uplo='U')\n" | |||
| 105887 | " ap,info = ctfttp(n,arf,transr='N',uplo='U')\n" | |||
| 105888 | " ap,info = ztfttp(n,arf,transr='N',uplo='U')\n" | |||
| 105889 | " a,info = stfttr(n,arf,transr='N',uplo='U')\n" | |||
| 105890 | " a,info = dtfttr(n,arf,transr='N',uplo='U')\n" | |||
| 105891 | " a,info = ctfttr(n,arf,transr='N',uplo='U')\n" | |||
| 105892 | " a,info = ztfttr(n,arf,transr='N',uplo='U')\n" | |||
| 105893 | " arf,info = strttf(a,transr='N',uplo='U')\n" | |||
| 105894 | " arf,info = dtrttf(a,transr='N',uplo='U')\n" | |||
| 105895 | " arf,info = ctrttf(a,transr='N',uplo='U')\n" | |||
| 105896 | " arf,info = ztrttf(a,transr='N',uplo='U')\n" | |||
| 105897 | " ap,info = strttp(a,uplo='U')\n" | |||
| 105898 | " ap,info = dtrttp(a,uplo='U')\n" | |||
| 105899 | " ap,info = ctrttp(a,uplo='U')\n" | |||
| 105900 | " ap,info = ztrttp(a,uplo='U')\n" | |||
| 105901 | " x = stfsm(alpha,a,b,transr='N',side='L',uplo='U',trans='N',diag='N',overwrite_b=0)\n" | |||
| 105902 | " x = dtfsm(alpha,a,b,transr='N',side='L',uplo='U',trans='N',diag='N',overwrite_b=0)\n" | |||
| 105903 | " x = ctfsm(alpha,a,b,transr='N',side='L',uplo='U',trans='N',diag='N',overwrite_b=0)\n" | |||
| 105904 | " x = ztfsm(alpha,a,b,transr='N',side='L',uplo='U',trans='N',diag='N',overwrite_b=0)\n" | |||
| 105905 | " achol,info = spftrf(n,a,transr='N',uplo='U',overwrite_a=0)\n" | |||
| 105906 | " achol,info = dpftrf(n,a,transr='N',uplo='U',overwrite_a=0)\n" | |||
| 105907 | " achol,info = cpftrf(n,a,transr='N',uplo='U',overwrite_a=0)\n" | |||
| 105908 | " achol,info = zpftrf(n,a,transr='N',uplo='U',overwrite_a=0)\n" | |||
| 105909 | " ainv,info = spftri(n,a,transr='N',uplo='U',overwrite_a=0)\n" | |||
| 105910 | " ainv,info = dpftri(n,a,transr='N',uplo='U',overwrite_a=0)\n" | |||
| 105911 | " ainv,info = cpftri(n,a,transr='N',uplo='U',overwrite_a=0)\n" | |||
| 105912 | " ainv,info = zpftri(n,a,transr='N',uplo='U',overwrite_a=0)\n" | |||
| 105913 | " x,info = spftrs(n,a,b,transr='N',uplo='U',overwrite_b=0)\n" | |||
| 105914 | " x,info = dpftrs(n,a,b,transr='N',uplo='U',overwrite_b=0)\n" | |||
| 105915 | " x,info = cpftrs(n,a,b,transr='N',uplo='U',overwrite_b=0)\n" | |||
| 105916 | " x,info = zpftrs(n,a,b,transr='N',uplo='U',overwrite_b=0)\n" | |||
| 105917 | " rz,tau,info = stzrzf(a,lwork=MAX(m,1),overwrite_a=0)\n" | |||
| 105918 | " rz,tau,info = dtzrzf(a,lwork=MAX(m,1),overwrite_a=0)\n" | |||
| 105919 | " rz,tau,info = ctzrzf(a,lwork=MAX(m,1),overwrite_a=0)\n" | |||
| 105920 | " rz,tau,info = ztzrzf(a,lwork=MAX(m,1),overwrite_a=0)\n" | |||
| 105921 | " work,info = stzrzf_lwork(m,n)\n" | |||
| 105922 | " work,info = dtzrzf_lwork(m,n)\n" | |||
| 105923 | " work,info = ctzrzf_lwork(m,n)\n" | |||
| 105924 | " work,info = ztzrzf_lwork(m,n)\n" | |||
| 105925 | " delta,sigma,work,info = slasd4(i,d,z,rho=1.0)\n" | |||
| 105926 | " delta,sigma,work,info = dlasd4(i,d,z,rho=1.0)\n" | |||
| 105927 | " a,info = slauum(c,lower=0,overwrite_c=0)\n" | |||
| 105928 | " a,info = dlauum(c,lower=0,overwrite_c=0)\n" | |||
| 105929 | " a,info = clauum(c,lower=0,overwrite_c=0)\n" | |||
| 105930 | " a,info = zlauum(c,lower=0,overwrite_c=0)\n" | |||
| 105931 | " a = slaswp(a,piv,k1=0,k2=npiv-1,off=0,inc=1,overwrite_a=0)\n" | |||
| 105932 | " a = dlaswp(a,piv,k1=0,k2=npiv-1,off=0,inc=1,overwrite_a=0)\n" | |||
| 105933 | " a = claswp(a,piv,k1=0,k2=npiv-1,off=0,inc=1,overwrite_a=0)\n" | |||
| 105934 | " a = zlaswp(a,piv,k1=0,k2=npiv-1,off=0,inc=1,overwrite_a=0)\n" | |||
| 105935 | " dlamch = dlamch(cmach)\n" | |||
| 105936 | " slamch = slamch(cmach)\n" | |||
| 105937 | " n2 = slange(norm,a)\n" | |||
| 105938 | " n2 = dlange(norm,a)\n" | |||
| 105939 | " n2 = clange(norm,a)\n" | |||
| 105940 | " n2 = zlange(norm,a)\n" | |||
| 105941 | " alpha,x,tau = slarfg(n,alpha,x,incx=1,overwrite_x=0)\n" | |||
| 105942 | " alpha,x,tau = dlarfg(n,alpha,x,incx=1,overwrite_x=0)\n" | |||
| 105943 | " alpha,x,tau = clarfg(n,alpha,x,incx=1,overwrite_x=0)\n" | |||
| 105944 | " alpha,x,tau = zlarfg(n,alpha,x,incx=1,overwrite_x=0)\n" | |||
| 105945 | " c = slarf(v,tau,c,work,side='L',incv=1,overwrite_c=0)\n" | |||
| 105946 | " c = dlarf(v,tau,c,work,side='L',incv=1,overwrite_c=0)\n" | |||
| 105947 | " c = clarf(v,tau,c,work,side='L',incv=1,overwrite_c=0)\n" | |||
| 105948 | " c = zlarf(v,tau,c,work,side='L',incv=1,overwrite_c=0)\n" | |||
| 105949 | " cs,sn,r = slartg(f,g)\n" | |||
| 105950 | " cs,sn,r = dlartg(f,g)\n" | |||
| 105951 | " cs,sn,r = clartg(f,g)\n" | |||
| 105952 | " cs,sn,r = zlartg(f,g)\n" | |||
| 105953 | " x,y = crot(x,y,c,s,n=(lx-1-offx)/abs(incx)+1,offx=0,incx=1,offy=0,incy=1,overwrite_x=0,overwrite_y=0)\n" | |||
| 105954 | " x,y = zrot(x,y,c,s,n=(lx-1-offx)/abs(incx)+1,offx=0,incx=1,offy=0,incy=1,overwrite_x=0,overwrite_y=0)\n" | |||
| 105955 | " major,minor,patch = ilaver()\n" | |||
| 105956 | "."); | |||
| 105957 | PyDict_SetItemString(d, "__doc__", s); | |||
| 105958 | _flapack_error = PyErr_NewException ("_flapack.error", NULL((void*)0), NULL((void*)0)); | |||
| 105959 | Py_DECREF(s)_Py_DECREF(((PyObject*)(s))); | |||
| 105960 | for(i=0;f2py_routine_defs[i].name!=NULL((void*)0);i++) { | |||
| 105961 | tmp = PyFortranObject_NewAsAttr(&f2py_routine_defs[i]); | |||
| 105962 | PyDict_SetItemString(d, f2py_routine_defs[i].name, tmp); | |||
| 105963 | Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp))); | |||
| 105964 | } | |||
| 105965 | ||||
| 105966 | ||||
| 105967 | ||||
| 105968 | ||||
| 105969 | ||||
| 105970 | ||||
| 105971 | ||||
| 105972 | ||||
| 105973 | ||||
| 105974 | ||||
| 105975 | ||||
| 105976 | ||||
| 105977 | ||||
| 105978 | ||||
| 105979 | ||||
| 105980 | ||||
| 105981 | ||||
| 105982 | ||||
| 105983 | ||||
| 105984 | ||||
| 105985 | ||||
| 105986 | ||||
| 105987 | ||||
| 105988 | ||||
| 105989 | ||||
| 105990 | ||||
| 105991 | ||||
| 105992 | ||||
| 105993 | ||||
| 105994 | ||||
| 105995 | ||||
| 105996 | ||||
| 105997 | ||||
| 105998 | ||||
| 105999 | ||||
| 106000 | ||||
| 106001 | ||||
| 106002 | ||||
| 106003 | ||||
| 106004 | ||||
| 106005 | ||||
| 106006 | ||||
| 106007 | ||||
| 106008 | ||||
| 106009 | ||||
| 106010 | ||||
| 106011 | ||||
| 106012 | ||||
| 106013 | ||||
| 106014 | ||||
| 106015 | ||||
| 106016 | ||||
| 106017 | ||||
| 106018 | ||||
| 106019 | ||||
| 106020 | ||||
| 106021 | ||||
| 106022 | ||||
| 106023 | ||||
| 106024 | ||||
| 106025 | ||||
| 106026 | ||||
| 106027 | ||||
| 106028 | ||||
| 106029 | ||||
| 106030 | ||||
| 106031 | ||||
| 106032 | ||||
| 106033 | ||||
| 106034 | ||||
| 106035 | ||||
| 106036 | ||||
| 106037 | ||||
| 106038 | ||||
| 106039 | ||||
| 106040 | ||||
| 106041 | ||||
| 106042 | ||||
| 106043 | ||||
| 106044 | ||||
| 106045 | ||||
| 106046 | ||||
| 106047 | ||||
| 106048 | ||||
| 106049 | ||||
| 106050 | ||||
| 106051 | ||||
| 106052 | ||||
| 106053 | ||||
| 106054 | ||||
| 106055 | ||||
| 106056 | ||||
| 106057 | ||||
| 106058 | ||||
| 106059 | ||||
| 106060 | ||||
| 106061 | ||||
| 106062 | ||||
| 106063 | ||||
| 106064 | ||||
| 106065 | ||||
| 106066 | ||||
| 106067 | ||||
| 106068 | ||||
| 106069 | ||||
| 106070 | ||||
| 106071 | ||||
| 106072 | ||||
| 106073 | ||||
| 106074 | ||||
| 106075 | ||||
| 106076 | ||||
| 106077 | ||||
| 106078 | ||||
| 106079 | ||||
| 106080 | ||||
| 106081 | ||||
| 106082 | ||||
| 106083 | ||||
| 106084 | ||||
| 106085 | ||||
| 106086 | ||||
| 106087 | ||||
| 106088 | ||||
| 106089 | ||||
| 106090 | ||||
| 106091 | ||||
| 106092 | ||||
| 106093 | ||||
| 106094 | ||||
| 106095 | ||||
| 106096 | ||||
| 106097 | ||||
| 106098 | ||||
| 106099 | ||||
| 106100 | ||||
| 106101 | ||||
| 106102 | ||||
| 106103 | ||||
| 106104 | ||||
| 106105 | ||||
| 106106 | ||||
| 106107 | ||||
| 106108 | ||||
| 106109 | ||||
| 106110 | ||||
| 106111 | ||||
| 106112 | ||||
| 106113 | ||||
| 106114 | ||||
| 106115 | ||||
| 106116 | ||||
| 106117 | ||||
| 106118 | ||||
| 106119 | ||||
| 106120 | ||||
| 106121 | ||||
| 106122 | ||||
| 106123 | ||||
| 106124 | ||||
| 106125 | ||||
| 106126 | ||||
| 106127 | ||||
| 106128 | ||||
| 106129 | ||||
| 106130 | ||||
| 106131 | ||||
| 106132 | ||||
| 106133 | ||||
| 106134 | ||||
| 106135 | ||||
| 106136 | ||||
| 106137 | ||||
| 106138 | ||||
| 106139 | ||||
| 106140 | ||||
| 106141 | ||||
| 106142 | ||||
| 106143 | ||||
| 106144 | ||||
| 106145 | ||||
| 106146 | ||||
| 106147 | ||||
| 106148 | ||||
| 106149 | ||||
| 106150 | ||||
| 106151 | ||||
| 106152 | ||||
| 106153 | ||||
| 106154 | ||||
| 106155 | ||||
| 106156 | ||||
| 106157 | ||||
| 106158 | ||||
| 106159 | ||||
| 106160 | ||||
| 106161 | ||||
| 106162 | ||||
| 106163 | ||||
| 106164 | ||||
| 106165 | ||||
| 106166 | ||||
| 106167 | ||||
| 106168 | ||||
| 106169 | ||||
| 106170 | ||||
| 106171 | ||||
| 106172 | ||||
| 106173 | ||||
| 106174 | ||||
| 106175 | ||||
| 106176 | ||||
| 106177 | ||||
| 106178 | ||||
| 106179 | ||||
| 106180 | ||||
| 106181 | ||||
| 106182 | ||||
| 106183 | ||||
| 106184 | ||||
| 106185 | ||||
| 106186 | ||||
| 106187 | ||||
| 106188 | ||||
| 106189 | ||||
| 106190 | ||||
| 106191 | ||||
| 106192 | ||||
| 106193 | ||||
| 106194 | ||||
| 106195 | ||||
| 106196 | ||||
| 106197 | ||||
| 106198 | ||||
| 106199 | ||||
| 106200 | ||||
| 106201 | ||||
| 106202 | ||||
| 106203 | ||||
| 106204 | ||||
| 106205 | ||||
| 106206 | ||||
| 106207 | ||||
| 106208 | ||||
| 106209 | ||||
| 106210 | ||||
| 106211 | ||||
| 106212 | ||||
| 106213 | ||||
| 106214 | ||||
| 106215 | ||||
| 106216 | ||||
| 106217 | ||||
| 106218 | ||||
| 106219 | ||||
| 106220 | ||||
| 106221 | ||||
| 106222 | ||||
| 106223 | ||||
| 106224 | ||||
| 106225 | ||||
| 106226 | ||||
| 106227 | ||||
| 106228 | ||||
| 106229 | ||||
| 106230 | ||||
| 106231 | ||||
| 106232 | ||||
| 106233 | ||||
| 106234 | ||||
| 106235 | ||||
| 106236 | ||||
| 106237 | ||||
| 106238 | ||||
| 106239 | ||||
| 106240 | ||||
| 106241 | ||||
| 106242 | ||||
| 106243 | ||||
| 106244 | ||||
| 106245 | ||||
| 106246 | ||||
| 106247 | ||||
| 106248 | ||||
| 106249 | ||||
| 106250 | ||||
| 106251 | ||||
| 106252 | ||||
| 106253 | ||||
| 106254 | ||||
| 106255 | ||||
| 106256 | ||||
| 106257 | ||||
| 106258 | ||||
| 106259 | ||||
| 106260 | ||||
| 106261 | ||||
| 106262 | ||||
| 106263 | ||||
| 106264 | ||||
| 106265 | ||||
| 106266 | ||||
| 106267 | ||||
| 106268 | ||||
| 106269 | ||||
| 106270 | ||||
| 106271 | ||||
| 106272 | ||||
| 106273 | ||||
| 106274 | ||||
| 106275 | ||||
| 106276 | ||||
| 106277 | ||||
| 106278 | ||||
| 106279 | ||||
| 106280 | ||||
| 106281 | ||||
| 106282 | ||||
| 106283 | ||||
| 106284 | ||||
| 106285 | ||||
| 106286 | ||||
| 106287 | ||||
| 106288 | ||||
| 106289 | ||||
| 106290 | ||||
| 106291 | ||||
| 106292 | ||||
| 106293 | ||||
| 106294 | ||||
| 106295 | ||||
| 106296 | ||||
| 106297 | ||||
| 106298 | ||||
| 106299 | ||||
| 106300 | ||||
| 106301 | ||||
| 106302 | ||||
| 106303 | ||||
| 106304 | ||||
| 106305 | ||||
| 106306 | ||||
| 106307 | ||||
| 106308 | ||||
| 106309 | ||||
| 106310 | ||||
| 106311 | ||||
| 106312 | ||||
| 106313 | ||||
| 106314 | ||||
| 106315 | ||||
| 106316 | ||||
| 106317 | ||||
| 106318 | ||||
| 106319 | ||||
| 106320 | ||||
| 106321 | ||||
| 106322 | ||||
| 106323 | ||||
| 106324 | ||||
| 106325 | ||||
| 106326 | ||||
| 106327 | ||||
| 106328 | ||||
| 106329 | ||||
| 106330 | ||||
| 106331 | ||||
| 106332 | ||||
| 106333 | ||||
| 106334 | ||||
| 106335 | ||||
| 106336 | ||||
| 106337 | ||||
| 106338 | ||||
| 106339 | ||||
| 106340 | ||||
| 106341 | ||||
| 106342 | ||||
| 106343 | ||||
| 106344 | ||||
| 106345 | ||||
| 106346 | ||||
| 106347 | ||||
| 106348 | ||||
| 106349 | ||||
| 106350 | ||||
| 106351 | ||||
| 106352 | ||||
| 106353 | ||||
| 106354 | ||||
| 106355 | ||||
| 106356 | ||||
| 106357 | ||||
| 106358 | ||||
| 106359 | ||||
| 106360 | ||||
| 106361 | ||||
| 106362 | ||||
| 106363 | ||||
| 106364 | ||||
| 106365 | ||||
| 106366 | ||||
| 106367 | ||||
| 106368 | ||||
| 106369 | ||||
| 106370 | ||||
| 106371 | ||||
| 106372 | ||||
| 106373 | ||||
| 106374 | ||||
| 106375 | ||||
| 106376 | ||||
| 106377 | ||||
| 106378 | ||||
| 106379 | ||||
| 106380 | ||||
| 106381 | ||||
| 106382 | ||||
| 106383 | ||||
| 106384 | ||||
| 106385 | ||||
| 106386 | ||||
| 106387 | ||||
| 106388 | ||||
| 106389 | ||||
| 106390 | ||||
| 106391 | ||||
| 106392 | ||||
| 106393 | ||||
| 106394 | ||||
| 106395 | ||||
| 106396 | ||||
| 106397 | ||||
| 106398 | ||||
| 106399 | ||||
| 106400 | ||||
| 106401 | ||||
| 106402 | ||||
| 106403 | ||||
| 106404 | ||||
| 106405 | ||||
| 106406 | ||||
| 106407 | ||||
| 106408 | ||||
| 106409 | ||||
| 106410 | ||||
| 106411 | ||||
| 106412 | ||||
| 106413 | ||||
| 106414 | ||||
| 106415 | ||||
| 106416 | ||||
| 106417 | ||||
| 106418 | ||||
| 106419 | ||||
| 106420 | ||||
| 106421 | ||||
| 106422 | ||||
| 106423 | ||||
| 106424 | ||||
| 106425 | ||||
| 106426 | ||||
| 106427 | ||||
| 106428 | ||||
| 106429 | ||||
| 106430 | ||||
| 106431 | ||||
| 106432 | ||||
| 106433 | ||||
| 106434 | ||||
| 106435 | ||||
| 106436 | ||||
| 106437 | ||||
| 106438 | ||||
| 106439 | ||||
| 106440 | ||||
| 106441 | ||||
| 106442 | ||||
| 106443 | ||||
| 106444 | ||||
| 106445 | ||||
| 106446 | ||||
| 106447 | ||||
| 106448 | ||||
| 106449 | ||||
| 106450 | ||||
| 106451 | ||||
| 106452 | ||||
| 106453 | ||||
| 106454 | ||||
| 106455 | ||||
| 106456 | ||||
| 106457 | ||||
| 106458 | ||||
| 106459 | ||||
| 106460 | ||||
| 106461 | ||||
| 106462 | ||||
| 106463 | ||||
| 106464 | ||||
| 106465 | ||||
| 106466 | ||||
| 106467 | ||||
| 106468 | ||||
| 106469 | ||||
| 106470 | ||||
| 106471 | ||||
| 106472 | ||||
| 106473 | ||||
| 106474 | ||||
| 106475 | ||||
| 106476 | ||||
| 106477 | ||||
| 106478 | ||||
| 106479 | ||||
| 106480 | ||||
| 106481 | ||||
| 106482 | ||||
| 106483 | ||||
| 106484 | ||||
| 106485 | ||||
| 106486 | ||||
| 106487 | ||||
| 106488 | ||||
| 106489 | ||||
| 106490 | ||||
| 106491 | ||||
| 106492 | ||||
| 106493 | ||||
| 106494 | ||||
| 106495 | ||||
| 106496 | ||||
| 106497 | ||||
| 106498 | ||||
| 106499 | ||||
| 106500 | ||||
| 106501 | ||||
| 106502 | ||||
| 106503 | ||||
| 106504 | ||||
| 106505 | ||||
| 106506 | ||||
| 106507 | ||||
| 106508 | ||||
| 106509 | ||||
| 106510 | ||||
| 106511 | ||||
| 106512 | ||||
| 106513 | ||||
| 106514 | ||||
| 106515 | ||||
| 106516 | ||||
| 106517 | ||||
| 106518 | ||||
| 106519 | ||||
| 106520 | ||||
| 106521 | ||||
| 106522 | ||||
| 106523 | ||||
| 106524 | { | |||
| 106525 | extern double F_FUNC(dlamch,DLAMCH)dlamch_(void); | |||
| 106526 | PyObject* o = PyDict_GetItemString(d,"dlamch"); | |||
| 106527 | PyObject_SetAttrString(o,"_cpointer", F2PyCapsule_FromVoidPtr((void*)F_FUNC(dlamch,DLAMCH)dlamch_,NULL((void*)0))); | |||
| 106528 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 106529 | PyObject_SetAttrString(o,"__name__", PyUnicode_FromString("dlamch")); | |||
| 106530 | #else | |||
| 106531 | PyObject_SetAttrString(o,"__name__", PyString_FromStringPyBytes_FromString("dlamch")); | |||
| 106532 | #endif | |||
| 106533 | } | |||
| 106534 | ||||
| 106535 | ||||
| 106536 | { | |||
| 106537 | extern float F_FUNC(slamch,SLAMCH)slamch_(void); | |||
| 106538 | PyObject* o = PyDict_GetItemString(d,"slamch"); | |||
| 106539 | PyObject_SetAttrString(o,"_cpointer", F2PyCapsule_FromVoidPtr((void*)F_FUNC(slamch,SLAMCH)slamch_,NULL((void*)0))); | |||
| 106540 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 106541 | PyObject_SetAttrString(o,"__name__", PyUnicode_FromString("slamch")); | |||
| 106542 | #else | |||
| 106543 | PyObject_SetAttrString(o,"__name__", PyString_FromStringPyBytes_FromString("slamch")); | |||
| 106544 | #endif | |||
| 106545 | } | |||
| 106546 | ||||
| 106547 | ||||
| 106548 | { | |||
| 106549 | extern float F_FUNC(slange,SLANGE)slange_(void); | |||
| 106550 | PyObject* o = PyDict_GetItemString(d,"slange"); | |||
| 106551 | PyObject_SetAttrString(o,"_cpointer", F2PyCapsule_FromVoidPtr((void*)F_FUNC(slange,SLANGE)slange_,NULL((void*)0))); | |||
| 106552 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 106553 | PyObject_SetAttrString(o,"__name__", PyUnicode_FromString("slange")); | |||
| 106554 | #else | |||
| 106555 | PyObject_SetAttrString(o,"__name__", PyString_FromStringPyBytes_FromString("slange")); | |||
| 106556 | #endif | |||
| 106557 | } | |||
| 106558 | ||||
| 106559 | ||||
| 106560 | { | |||
| 106561 | extern double F_FUNC(dlange,DLANGE)dlange_(void); | |||
| 106562 | PyObject* o = PyDict_GetItemString(d,"dlange"); | |||
| 106563 | PyObject_SetAttrString(o,"_cpointer", F2PyCapsule_FromVoidPtr((void*)F_FUNC(dlange,DLANGE)dlange_,NULL((void*)0))); | |||
| 106564 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 106565 | PyObject_SetAttrString(o,"__name__", PyUnicode_FromString("dlange")); | |||
| ||||
| 106566 | #else | |||
| 106567 | PyObject_SetAttrString(o,"__name__", PyString_FromStringPyBytes_FromString("dlange")); | |||
| 106568 | #endif | |||
| 106569 | } | |||
| 106570 | ||||
| 106571 | ||||
| 106572 | { | |||
| 106573 | extern float F_FUNC(clange,CLANGE)clange_(void); | |||
| 106574 | PyObject* o = PyDict_GetItemString(d,"clange"); | |||
| 106575 | PyObject_SetAttrString(o,"_cpointer", F2PyCapsule_FromVoidPtr((void*)F_FUNC(clange,CLANGE)clange_,NULL((void*)0))); | |||
| 106576 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 106577 | PyObject_SetAttrString(o,"__name__", PyUnicode_FromString("clange")); | |||
| 106578 | #else | |||
| 106579 | PyObject_SetAttrString(o,"__name__", PyString_FromStringPyBytes_FromString("clange")); | |||
| 106580 | #endif | |||
| 106581 | } | |||
| 106582 | ||||
| 106583 | ||||
| 106584 | { | |||
| 106585 | extern double F_FUNC(zlange,ZLANGE)zlange_(void); | |||
| 106586 | PyObject* o = PyDict_GetItemString(d,"zlange"); | |||
| 106587 | PyObject_SetAttrString(o,"_cpointer", F2PyCapsule_FromVoidPtr((void*)F_FUNC(zlange,ZLANGE)zlange_,NULL((void*)0))); | |||
| 106588 | #if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF << 4) | (0 << 0)) >= 0x03000000 | |||
| 106589 | PyObject_SetAttrString(o,"__name__", PyUnicode_FromString("zlange")); | |||
| 106590 | #else | |||
| 106591 | PyObject_SetAttrString(o,"__name__", PyString_FromStringPyBytes_FromString("zlange")); | |||
| 106592 | #endif | |||
| 106593 | } | |||
| 106594 | ||||
| 106595 | ||||
| 106596 | ||||
| 106597 | ||||
| 106598 | ||||
| 106599 | ||||
| 106600 | ||||
| 106601 | ||||
| 106602 | ||||
| 106603 | ||||
| 106604 | ||||
| 106605 | ||||
| 106606 | ||||
| 106607 | ||||
| 106608 | ||||
| 106609 | ||||
| 106610 | /*eof initf2pywraphooks*/ | |||
| 106611 | /*eof initf90modhooks*/ | |||
| 106612 | ||||
| 106613 | /*eof initcommonhooks*/ | |||
| 106614 | ||||
| 106615 | ||||
| 106616 | #ifdef F2PY_REPORT_ATEXIT | |||
| 106617 | if (! PyErr_Occurred()) | |||
| 106618 | on_exit(f2py_report_on_exit,(void*)"_flapack"); | |||
| 106619 | #endif | |||
| 106620 | ||||
| 106621 | return RETVALm; | |||
| 106622 | } | |||
| 106623 | #ifdef __cplusplus | |||
| 106624 | } | |||
| 106625 | #endif |
| 1 | #ifndef PyUnicode_FromString |
| 2 | struct _object; |
| 3 | typedef struct _object PyObject; |
| 4 | PyObject* clang_analyzer_PyObject_New_Reference(); |
| 5 | PyObject *PyUnicode_FromString(const char *u) { |
| 6 | return clang_analyzer_PyObject_New_Reference(); |
| 7 | } |
| 8 | #else |
| 9 | #warning "API PyUnicode_FromString is defined as a macro." |
| 10 | #endif |